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_ms.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, t6, t7, t8, t9, t10, t11;
24   double t12, t13, t14, t15, t16, t17, t18, t19;
25   double t20, t21, t23, t24, t26, t27, t31, t32;
26   double t34, t37, t38, t39, t42, t45, t46, t47;
27   double t48, t49, t50, t53, t56, t57, t60, t61;
28   double t62, t63, t68, t70, t72;
29 
30 #ifndef XC_DONT_COMPILE_VXC
31   double t77, t78, t79, t80, t83, t84, t85, t87;
32   double t88, t89, t90, t92, t93, t94, t99, t100;
33   double t101, t104, t105, t106, t107, t111, t112, t115;
34   double t116, t118, t121, t124, t126, t130, t131, t132;
35   double t134, t135, t136, t137, t138, t139, t141, t143;
36   double t145, t147, t148, t152, t155, t158, t159, t167;
37   double t168, t171;
38 
39 #ifndef XC_DONT_COMPILE_FXC
40   double t174, t175, t185, t186, t187, t188, t189, t191;
41   double t192, t193, t195, t197, t198, t199, t201, t202;
42   double t203, t204, t206, t207, t208, t209, t212, t213;
43   double t214, t215, t218, t221, t222, t229, t230, t231;
44   double t235, t236, t237, t238, t241, t244, t249, t250;
45   double t256, t262, t267, t269, t274, t277, t278, t280;
46   double t282, t284, t285, t287, t288, t289, t290, t291;
47   double t292, t293, t296, t297, t299, t300, t301, t303;
48   double t304, t305, t307, t308, t310, t316, t318, t320;
49   double t322, t323, t326, t328, t329, t331, t340, t342;
50   double t343, t348, t349, t353, t361, t367, t375, t376;
51   double t379, t382, t384, t385, t386, t388, t389, t390;
52   double t393, t394, t396, t397, t398, t400, t401, t403;
53   double t404, t407, t410, t412, t414, t416, t417, t421;
54   double t424, t428, t429, t430, t431, t434, t439, t440;
55   double t442, t443, t444, t445, t447, t450, t452, t455;
56   double t457, t458, t461, t465, t466, t467, t471, t474;
57   double t477, t478, t486, t487, t490;
58 
59 #ifndef XC_DONT_COMPILE_KXC
60   double t502, t503, t505, t508, t509, t512, t516, t523;
61   double t524, t529, t532, t537, t538, t541, t543, t545;
62   double t547, t549, t550, t551, t553, t554, t555, t556;
63   double t558, t561, t562, t563, t570, t571, t572, t578;
64   double t580, t581, t582, t583, t584, t585, t587, t588;
65   double t589, t593, t596, t599, t608, t618, t619, t621;
66   double t622, t623, t624, t625, t630, t632, t639, t641;
67   double t642, t647, t654, t657, t660, t661, t662, t664;
68   double t665, t666, t668, t670, t671, t673, t675, t676;
69   double t677, t679, t683, t686, t687, t688, t689, t691;
70   double t696, t700, t704, t706, t708, t709, t711, t713;
71   double t716, t717, t718, t720, t721, t722, t724, t726;
72   double t728, t729, t732, t733, t735, t736, t737, t738;
73   double t740, t741, t742, t745, t746, t748, t750, t751;
74   double t756, t760, t762, t763, t765, t768, t769, t771;
75   double t773, t775, t777, t778, t780, t782, t785, t787;
76   double t788, t790, t794, t796, t798, t813, t814, t815;
77   double t816, t817, t818, t819, t823, t826, t839, t842;
78   double t847, t854, t857, t860, t865, t866, t869, t875;
79   double t878, t879, t883, t900, t901, t903, t905, t920;
80   double t922, t925, t927, t932, t934, t936, t937, t938;
81   double t940, t941, t942, t944, t945, t946, t947, t948;
82   double t950, t953, t956, t959, t960, t961, t963, t964;
83   double t966, t968, t969, t972, t974, t975, t977, t979;
84   double t982, t984, t986, t989, t990, t992, t994, t995;
85   double t996, t998, t1000, t1001, t1004, t1005, t1007, t1008;
86   double t1010, t1013, t1016, t1017, t1018, t1019, t1021, t1034;
87   double t1036, t1041, t1043, t1044, t1045, t1047, t1049, t1052;
88   double t1053, t1055, t1056, t1057, t1058, t1059, t1060, t1062;
89   double t1063, t1064, t1066, t1068, t1073, t1076, t1082, t1083;
90   double t1084, t1086, t1092, t1093, t1094, t1098, t1099, t1101;
91   double t1102, t1103, t1105, t1106, t1107, t1114, t1121, t1123;
92   double t1124, t1126, t1127, t1130, t1132, t1134, t1137, t1140;
93   double t1141, t1143, t1160, t1161, t1162, t1165, t1167, t1170;
94   double t1171, t1172, t1174, t1175, t1176, t1179, t1182, t1183;
95   double t1185, t1187, t1189, t1194, t1198, t1203, t1204, t1208;
96   double t1210, t1214, t1223, t1226, t1227, t1228, t1234, t1240;
97   double t1246, t1252, t1260, t1261, t1263, t1265, t1268, t1269;
98   double t1271, t1273, t1275, t1277, t1278, t1279, t1281, t1282;
99   double t1283, t1285, t1287, t1289, t1290, t1293, t1296, t1297;
100   double t1298, t1300, t1303, t1306, t1309, t1313, t1314, t1316;
101   double t1317, t1320, t1321, t1323, t1326, t1327, t1330, t1331;
102   double t1333, t1334, t1338, t1341, t1343, t1345, t1347, t1348;
103   double t1351, t1352, t1356, t1358, t1361, t1362, t1364, t1365;
104   double t1367, t1368, t1370, t1372, t1377, t1381, t1384, t1387;
105   double t1389, t1390, t1394, t1396, t1397, t1398, t1400, t1403;
106   double t1406, t1408, t1410, t1413, t1414, t1416, t1419, t1424;
107   double t1425, t1426, t1429, t1430, t1433, t1438, t1439, t1440;
108   double t1443, t1446, t1451, t1456, t1462, t1467, t1469, t1471;
109   double t1472, t1474, t1475, t1477, t1478, t1481, t1482, t1487;
110   double t1490, t1491, t1495, t1498, t1502, t1505, t1506, t1509;
111   double t1514, t1517, t1518, t1521;
112 
113 #ifndef XC_DONT_COMPILE_LXC
114   double t1537, t1538, t1539, t1545, t1548, t1550, t1556, t1560;
115   double t1561, t1562, t1567, t1570, t1572, t1574, t1576, t1581;
116   double t1584, t1591, t1594, t1595, t1623, t1629, t1630, t1649;
117   double t1650, t1657, t1667, t1668, t1669, t1697, t1699, t1727;
118   double t1735, t1736, t1741, t1746, t1747, t1750, t1751, t1765;
119   double t1784, t1791, t1798, t1800, t1803, t1806, t1813, t1816;
120   double t1820, t1824, t1831, t1833, t1835, t1859, t1890, t1893;
121   double t1896, t1901, t1905, t1920, t1931, t1933, t1945, t1950;
122   double t1954, t1957, t1973, t1976, t1986, t2004, t2009, t2019;
123   double t2024, t2031, t2046, t2059, t2070, t2083, t2087, t2091;
124   double t2095, t2096, t2097, t2103, t2108, t2109, t2134, t2138;
125   double t2143, t2144, t2150, t2161, t2172, t2177, t2186, t2192;
126   double t2199, t2233, t2249, t2260, t2296, t2308, t2315, t2328;
127   double t2348, t2351, t2356, t2359, t2374, t2379, t2392, t2397;
128   double t2407, t2410, t2413, t2434, t2450, t2460, t2463, t2489;
129   double t2498, t2501, t2504, t2507, t2512, t2514, t2516, t2522;
130   double t2525, t2529, t2533, t2570, t2590, t2594, t2597, t2606;
131   double t2615, t2621, t2624, t2639, t2663, t2667, t2670, t2673;
132   double t2697, t2716, t2726, t2748, t2751, t2756, t2771, t2794;
133   double t2798, t2801, t2803, t2806, t2810, t2817, t2838, t2839;
134   double t2844, t2876, t2888, t2895, t2933, t2977, t2982, t2983;
135   double t3003, t3013, t3017, t3021, t3026, t3043, t3056, t3059;
136   double t3070, t3080, t3081, t3085, t3090, t3099, t3102, t3127;
137   double t3170, t3203, t3206, t3209, t3219, t3257, t3263, t3275;
138   double t3295, t3316, t3339, t3350, t3358, t3361, t3366, t3382;
139   double t3392, t3399, t3406, t3440, t3507, t3510, t3521, t3524;
140   double t3530, t3533, t3536, t3544, t3549, t3553, t3556, t3572;
141   double t3574, t3576, t3577, t3579, t3603, t3608, t3617, t3625;
142   double t3646, t3650, t3653, t3655, t3682, t3702, t3713, t3748;
143   double t3752, t3765, t3776, t3786, t3794, t3797, t3814, t3828;
144   double t3837, t3840, t3841, t3844, t3878, t3914, t3957, t3993;
145   double t4024, t4056, t4058, t4092, t4116, t4126, t4133, t4134;
146   double t4144, t4155, t4179, t4202, t4213, t4214, t4217, t4220;
147   double t4246, t4268, t4276, t4306, t4318, t4321, t4365, t4370;
148   double t4379, t4381, t4410, t4413, t4418, t4448, t4481, t4485;
149   double t4492, t4496, t4506, t4508, t4509, t4514, t4517, t4525;
150   double t4557, t4558, t4565, t4605, t4628, t4629, t4642, t4679;
151   double t4711, t4725, t4732, t4755, t4779, t4792, t4800, t4802;
152   double t4836, t4878, t4903, t4908, t4909, t4921, t4947, t5001;
153   double t5006, t5013, t5061;
154 #endif
155 
156 #endif
157 
158 #endif
159 
160 #endif
161 
162 #endif
163 
164 
165   mgga_x_ms_params *params;
166 
167   assert(p->params != NULL);
168   params = (mgga_x_ms_params * ) (p->params);
169 
170   t2 = M_CBRT3;
171   t4 = POW_1_3(0.1e1 / M_PI);
172   t6 = M_CBRT4;
173   t7 = t6 * t6;
174   t8 = t2 * t4 * t7;
175   t9 = M_CBRT2;
176   t10 = t9 * t9;
177   t11 = POW_1_3(rho[0]);
178   t12 = t10 * t11;
179   t13 = M_CBRT6;
180   t14 = M_PI * M_PI;
181   t15 = POW_1_3(t14);
182   t16 = t15 * t15;
183   t17 = 0.1e1 / t16;
184   t18 = t13 * t17;
185   t19 = sigma[0] * t10;
186   t20 = rho[0] * rho[0];
187   t21 = t11 * t11;
188   t23 = 0.1e1 / t21 / t20;
189   t24 = t19 * t23;
190   t26 = 0.5e1 / 0.972e3 * t18 * t24;
191   t27 = params->kappa + t26;
192   t31 = params->kappa * (0.1e1 - params->kappa / t27);
193   t32 = tau[0] * t10;
194   t34 = 0.1e1 / t21 / rho[0];
195   t37 = t32 * t34 - t24 / 0.8e1;
196   t38 = t37 * t37;
197   t39 = t13 * t13;
198   t42 = 0.1e1 / t15 / t14;
199   t45 = 0.1e1 - 0.25e2 / 0.81e2 * t38 * t39 * t42;
200   t46 = t45 * t45;
201   t47 = t46 * t45;
202   t48 = t38 * t37;
203   t49 = t14 * t14;
204   t50 = 0.1e1 / t49;
205   t53 = t38 * t38;
206   t56 = t49 * t49;
207   t57 = 0.1e1 / t56;
208   t60 = 0.1e1 + 0.250e3 / 0.243e3 * t48 * t50 + 0.62500e5 / 0.59049e5 * params->b * t53 * t38 * t57;
209   t61 = 0.1e1 / t60;
210   t62 = t47 * t61;
211   t63 = params->kappa + t26 + params->c;
212   t68 = params->kappa * (0.1e1 - params->kappa / t63) - t31;
213   t70 = t62 * t68 + t31 + 0.1e1;
214   t72 = t8 * t12 * t70;
215   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
216     zk[0] = -0.3e1 / 0.16e2 * t72;
217 
218 #ifndef XC_DONT_COMPILE_VXC
219 
220   if(order < 1) return;
221 
222 
223   t77 = t11 * rho[0] * t2 * t4;
224   t78 = t7 * t10;
225   t79 = params->kappa * params->kappa;
226   t80 = t27 * t27;
227   t83 = t79 / t80 * t13;
228   t84 = t17 * sigma[0];
229   t85 = t20 * rho[0];
230   t87 = 0.1e1 / t21 / t85;
231   t88 = t10 * t87;
232   t89 = t84 * t88;
233   t90 = t83 * t89;
234   t92 = t46 * t61;
235   t93 = t92 * t68;
236   t94 = t37 * t39;
237   t99 = -0.5e1 / 0.3e1 * t32 * t23 + t19 * t87 / 0.3e1;
238   t100 = t42 * t99;
239   t101 = t94 * t100;
240   t104 = t60 * t60;
241   t105 = 0.1e1 / t104;
242   t106 = t47 * t105;
243   t107 = t38 * t50;
244   t111 = params->b * t53 * t37;
245   t112 = t57 * t99;
246   t115 = 0.250e3 / 0.81e2 * t107 * t99 + 0.125000e6 / 0.19683e5 * t111 * t112;
247   t116 = t68 * t115;
248   t118 = t63 * t63;
249   t121 = t79 / t118 * t13;
250   t124 = -0.10e2 / 0.729e3 * t121 * t89 + 0.10e2 / 0.729e3 * t90;
251   t126 = -0.10e2 / 0.729e3 * t90 - 0.50e2 / 0.27e2 * t93 * t101 - t106 * t116 + t62 * t124;
252   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
253     vrho[0] = -t72 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t78 * t126;
254 
255   t130 = t17 * t10;
256   t131 = t130 * t23;
257   t132 = t83 * t131;
258   t134 = t68 * t37;
259   t135 = t92 * t134;
260   t136 = t39 * t42;
261   t137 = t10 * t23;
262   t138 = t136 * t137;
263   t139 = t135 * t138;
264   t141 = t107 * t137;
265   t143 = t57 * t10;
266   t145 = t111 * t143 * t23;
267   t147 = -0.125e3 / 0.324e3 * t141 - 0.15625e5 / 0.19683e5 * t145;
268   t148 = t68 * t147;
269   t152 = 0.5e1 / 0.972e3 * t121 * t131 - 0.5e1 / 0.972e3 * t132;
270   t155 = t78 * (0.5e1 / 0.972e3 * t132 + 0.25e2 / 0.108e3 * t139 - t106 * t148 + t62 * t152);
271   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
272     vsigma[0] = -0.3e1 / 0.16e2 * t77 * t155;
273 
274   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
275     vlapl[0] = 0.0e0;
276 
277   t158 = t10 * t34;
278   t159 = t136 * t158;
279   t167 = 0.250e3 / 0.81e2 * t107 * t158 + 0.125000e6 / 0.19683e5 * t111 * t143 * t34;
280   t168 = t68 * t167;
281   t171 = t78 * (-0.50e2 / 0.27e2 * t135 * t159 - t106 * t168);
282   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
283     vtau[0] = -0.3e1 / 0.16e2 * t77 * t171;
284 
285 #ifndef XC_DONT_COMPILE_FXC
286 
287   if(order < 2) return;
288 
289 
290   t174 = 0.1e1 / t21;
291   t175 = t10 * t174;
292   t185 = t79 / t80 / t27 * t39;
293   t186 = sigma[0] * sigma[0];
294   t187 = t42 * t186;
295   t188 = t20 * t20;
296   t189 = t188 * t85;
297   t191 = 0.1e1 / t11 / t189;
298   t192 = t9 * t191;
299   t193 = t187 * t192;
300   t195 = 0.400e3 / 0.531441e6 * t185 * t193;
301   t197 = 0.1e1 / t21 / t188;
302   t198 = t10 * t197;
303   t199 = t84 * t198;
304   t201 = 0.110e3 / 0.2187e4 * t83 * t199;
305   t202 = t45 * t61;
306   t203 = t202 * t68;
307   t204 = t38 * t13;
308   t206 = 0.1e1 / t16 / t49;
309   t207 = t99 * t99;
310   t208 = t206 * t207;
311   t209 = t204 * t208;
312   t212 = t46 * t105;
313   t213 = t212 * t134;
314   t214 = t99 * t115;
315   t215 = t136 * t214;
316   t218 = t92 * t124;
317   t221 = t207 * t39;
318   t222 = t221 * t42;
319   t229 = 0.40e2 / 0.9e1 * t32 * t87 - 0.11e2 / 0.9e1 * t19 * t197;
320   t230 = t42 * t229;
321   t231 = t94 * t230;
322   t235 = 0.1e1 / t104 / t60;
323   t236 = t47 * t235;
324   t237 = t115 * t115;
325   t238 = t68 * t237;
326   t241 = t124 * t115;
327   t244 = t37 * t50;
328   t249 = params->b * t53;
329   t250 = t57 * t207;
330   t256 = 0.500e3 / 0.81e2 * t244 * t207 + 0.250e3 / 0.81e2 * t107 * t229 + 0.625000e6 / 0.19683e5 * t249 * t250 + 0.125000e6 / 0.19683e5 * t111 * t57 * t229;
331   t262 = t79 / t118 / t63 * t39;
332   t267 = -0.400e3 / 0.531441e6 * t262 * t193 + 0.110e3 / 0.2187e4 * t121 * t199 + t195 - t201;
333   t269 = -t195 + t201 + 0.10000e5 / 0.729e3 * t203 * t209 + 0.100e3 / 0.27e2 * t213 * t215 - 0.100e3 / 0.27e2 * t218 * t101 - 0.50e2 / 0.27e2 * t93 * t222 - 0.50e2 / 0.27e2 * t93 * t231 + 0.2e1 * t236 * t238 - 0.2e1 * t106 * t241 - t106 * t68 * t256 + t62 * t267;
334   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
335     v2rho2[0] = -t8 * t175 * t70 / 0.12e2 - t8 * t12 * t126 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t78 * t269;
336 
337   t274 = t11 * t2 * t4;
338   t277 = t42 * t9;
339   t278 = t188 * t20;
340   t280 = 0.1e1 / t11 / t278;
341   t282 = t277 * t280 * sigma[0];
342   t284 = 0.50e2 / 0.177147e6 * t185 * t282;
343   t285 = t130 * t87;
344   t287 = 0.10e2 / 0.729e3 * t83 * t285;
345   t288 = t68 * t38;
346   t289 = t202 * t288;
347   t290 = t13 * t206;
348   t291 = t137 * t99;
349   t292 = t290 * t291;
350   t293 = t289 * t292;
351   t296 = t136 * t137 * t115;
352   t297 = t213 * t296;
353   t299 = t124 * t37;
354   t300 = t92 * t299;
355   t301 = t300 * t138;
356   t303 = t68 * t99;
357   t304 = t92 * t303;
358   t305 = t304 * t138;
359   t307 = t136 * t88;
360   t308 = t135 * t307;
361   t310 = t212 * t148;
362   t316 = t124 * t147;
363   t318 = t244 * t291;
364   t320 = t107 * t88;
365   t322 = t249 * t57;
366   t323 = t322 * t291;
367   t326 = t111 * t143 * t87;
368   t328 = -0.125e3 / 0.162e3 * t318 + 0.250e3 / 0.243e3 * t320 - 0.78125e5 / 0.19683e5 * t323 + 0.125000e6 / 0.59049e5 * t326;
369   t329 = t68 * t328;
370   t331 = t92 * t152;
371   t340 = 0.50e2 / 0.177147e6 * t262 * t282 - 0.10e2 / 0.729e3 * t121 * t285 - t284 + t287;
372   t342 = t284 - t287 - 0.1250e4 / 0.729e3 * t293 - 0.25e2 / 0.108e3 * t297 + 0.25e2 / 0.108e3 * t301 + 0.25e2 / 0.108e3 * t305 - 0.50e2 / 0.81e2 * t308 + 0.50e2 / 0.27e2 * t310 * t101 + 0.2e1 * t236 * t148 * t115 - t106 * t316 - t106 * t329 - 0.50e2 / 0.27e2 * t331 * t101 - t106 * t152 * t115 + t62 * t340;
373   t343 = t78 * t342;
374   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
375     v2rhosigma[0] = -t274 * t155 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t343;
376 
377   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
378     v2rholapl[0] = 0.0e0;
379 
380   t348 = t158 * t99;
381   t349 = t290 * t348;
382   t353 = t136 * t158 * t115;
383   t361 = t212 * t168;
384   t367 = t124 * t167;
385   t375 = 0.500e3 / 0.81e2 * t244 * t348 - 0.1250e4 / 0.243e3 * t141 + 0.625000e6 / 0.19683e5 * t322 * t348 - 0.625000e6 / 0.59049e5 * t145;
386   t376 = t68 * t375;
387   t379 = t78 * (0.10000e5 / 0.729e3 * t289 * t349 + 0.50e2 / 0.27e2 * t213 * t353 - 0.50e2 / 0.27e2 * t300 * t159 - 0.50e2 / 0.27e2 * t304 * t159 + 0.250e3 / 0.81e2 * t139 + 0.50e2 / 0.27e2 * t361 * t101 + 0.2e1 * t236 * t168 * t115 - t106 * t367 - t106 * t376);
388   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
389     v2rhotau[0] = -t274 * t171 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t379;
390 
391   t382 = t188 * rho[0];
392   t384 = 0.1e1 / t11 / t382;
393   t385 = t277 * t384;
394   t386 = t185 * t385;
395   t388 = t9 * t384;
396   t389 = t290 * t388;
397   t390 = t289 * t389;
398   t393 = t136 * t137 * t147;
399   t394 = t213 * t393;
400   t396 = t152 * t37;
401   t397 = t92 * t396;
402   t398 = t397 * t138;
403   t400 = t388 * t136;
404   t401 = t93 * t400;
405   t403 = t147 * t147;
406   t404 = t68 * t403;
407   t407 = t152 * t147;
408   t410 = t244 * t388;
409   t412 = t57 * t9;
410   t414 = t249 * t412 * t384;
411   t416 = 0.125e3 / 0.648e3 * t410 + 0.78125e5 / 0.78732e5 * t414;
412   t417 = t68 * t416;
413   t421 = -0.25e2 / 0.236196e6 * t262 * t385 + 0.25e2 / 0.236196e6 * t386;
414   t424 = t78 * (-0.25e2 / 0.236196e6 * t386 + 0.625e3 / 0.1458e4 * t390 - 0.25e2 / 0.54e2 * t394 + 0.25e2 / 0.54e2 * t398 - 0.25e2 / 0.432e3 * t401 + 0.2e1 * t236 * t404 - 0.2e1 * t106 * t407 - t106 * t417 + t62 * t421);
415   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
416     v2sigma2[0] = -0.3e1 / 0.16e2 * t77 * t424;
417 
418   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
419     v2sigmalapl[0] = 0.0e0;
420 
421   t428 = 0.1e1 / t11 / t188;
422   t429 = t9 * t428;
423   t430 = t290 * t429;
424   t431 = t289 * t430;
425   t434 = t136 * t158 * t147;
426   t439 = t429 * t136;
427   t440 = t93 * t439;
428   t442 = t42 * t10;
429   t443 = t442 * t23;
430   t444 = t94 * t443;
431   t445 = t361 * t444;
432   t447 = t168 * t147;
433   t450 = t152 * t167;
434   t452 = t244 * t429;
435   t455 = t249 * t412 * t428;
436   t457 = -0.125e3 / 0.81e2 * t452 - 0.156250e6 / 0.19683e5 * t455;
437   t458 = t68 * t457;
438   t461 = t78 * (-0.2500e4 / 0.729e3 * t431 + 0.50e2 / 0.27e2 * t213 * t434 - 0.50e2 / 0.27e2 * t397 * t159 + 0.25e2 / 0.54e2 * t440 - 0.25e2 / 0.108e3 * t445 + 0.2e1 * t236 * t447 - t106 * t450 - t106 * t458);
439   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
440     v2sigmatau[0] = -0.3e1 / 0.16e2 * t77 * t461;
441 
442   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
443     v2lapl2[0] = 0.0e0;
444 
445   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
446     v2lapltau[0] = 0.0e0;
447 
448   t465 = 0.1e1 / t11 / t85;
449   t466 = t9 * t465;
450   t467 = t290 * t466;
451   t471 = t136 * t158 * t167;
452   t474 = t466 * t136;
453   t477 = t167 * t167;
454   t478 = t68 * t477;
455   t486 = 0.1000e4 / 0.81e2 * t244 * t466 + 0.1250000e7 / 0.19683e5 * t249 * t412 * t465;
456   t487 = t68 * t486;
457   t490 = t78 * (0.20000e5 / 0.729e3 * t289 * t467 + 0.100e3 / 0.27e2 * t213 * t471 - 0.100e3 / 0.27e2 * t93 * t474 + 0.2e1 * t236 * t478 - t106 * t487);
458   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
459     v2tau2[0] = -0.3e1 / 0.16e2 * t77 * t490;
460 
461 #ifndef XC_DONT_COMPILE_KXC
462 
463   if(order < 3) return;
464 
465 
466   t502 = t45 * t105;
467   t503 = t502 * t288;
468   t505 = t290 * t207 * t115;
469   t508 = t99 * t229;
470   t509 = t290 * t508;
471   t512 = t212 * t299;
472   t516 = t136 * t229 * t115;
473   t523 = t46 * t235;
474   t524 = t523 * t134;
475   t529 = t202 * t124;
476   t532 = t92 * t267;
477   t537 = t99 * t39;
478   t538 = t537 * t230;
479   t541 = t188 * t188;
480   t543 = 0.1e1 / t11 / t541;
481   t545 = t187 * t9 * t543;
482   t547 = 0.4400e4 / 0.531441e6 * t185 * t545;
483   t549 = 0.1e1 / t21 / t382;
484   t550 = t10 * t549;
485   t551 = t84 * t550;
486   t553 = 0.1540e4 / 0.6561e4 * t83 * t551;
487   t554 = -0.10000e5 / 0.243e3 * t503 * t505 + 0.10000e5 / 0.243e3 * t289 * t509 + 0.100e3 / 0.9e1 * t512 * t215 + 0.50e2 / 0.9e1 * t213 * t516 + 0.50e2 / 0.9e1 * t213 * t136 * t99 * t256 - 0.100e3 / 0.9e1 * t524 * t136 * t99 * t237 + 0.10000e5 / 0.243e3 * t529 * t209 - 0.50e2 / 0.9e1 * t532 * t101 - 0.50e2 / 0.9e1 * t218 * t231 - 0.50e2 / 0.9e1 * t93 * t538 + t547 - t553;
488   t555 = t37 * t13;
489   t556 = t207 * t99;
490   t558 = t555 * t206 * t556;
491   t561 = t212 * t68;
492   t562 = t42 * t115;
493   t563 = t221 * t562;
494   t570 = -0.440e3 / 0.27e2 * t32 * t197 + 0.154e3 / 0.27e2 * t19 * t549;
495   t571 = t42 * t570;
496   t572 = t94 * t571;
497   t578 = t80 * t80;
498   t580 = t79 / t578;
499   t581 = t186 * sigma[0];
500   t582 = t50 * t581;
501   t583 = t541 * t85;
502   t584 = 0.1e1 / t583;
503   t585 = t582 * t584;
504   t587 = 0.16000e5 / 0.43046721e8 * t580 * t585;
505   t588 = t48 * t57;
506   t589 = t556 * t61;
507   t593 = t124 * t237;
508   t596 = t267 * t115;
509   t599 = t124 * t256;
510   t608 = params->b * t48;
511   t618 = 0.500e3 / 0.81e2 * t556 * t50 + 0.500e3 / 0.27e2 * t244 * t508 + 0.250e3 / 0.81e2 * t107 * t570 + 0.2500000e7 / 0.19683e5 * t608 * t57 * t556 + 0.625000e6 / 0.6561e4 * t249 * t112 * t229 + 0.125000e6 / 0.19683e5 * t111 * t57 * t570;
512   t619 = t68 * t618;
513   t621 = t104 * t104;
514   t622 = 0.1e1 / t621;
515   t623 = t47 * t622;
516   t624 = t237 * t115;
517   t625 = t68 * t624;
518   t630 = t118 * t118;
519   t632 = t79 / t630;
520   t639 = -0.16000e5 / 0.43046721e8 * t632 * t585 + 0.4400e4 / 0.531441e6 * t262 * t545 - 0.1540e4 / 0.6561e4 * t121 * t551 + t587 - t547 + t553;
521   t641 = 0.10000e5 / 0.243e3 * t203 * t558 + 0.50e2 / 0.9e1 * t561 * t563 - 0.50e2 / 0.27e2 * t93 * t572 + 0.6e1 * t236 * t116 * t256 - t587 - 0.1000000e7 / 0.19683e5 * t588 * t589 * t68 + 0.6e1 * t236 * t593 - 0.3e1 * t106 * t596 - 0.3e1 * t106 * t599 - t106 * t619 - 0.6e1 * t623 * t625 - 0.50e2 / 0.9e1 * t218 * t222 + t62 * t639;
522   t642 = t554 + t641;
523   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
524     v3rho3[0] = t8 * t158 * t70 / 0.18e2 - t8 * t175 * t126 / 0.4e1 - 0.3e1 / 0.4e1 * t8 * t12 * t269 - 0.3e1 / 0.16e2 * t77 * t78 * t642;
525 
526   t647 = t174 * t2 * t4;
527   t654 = t502 * t148;
528   t657 = t212 * t396;
529   t660 = t267 * t37;
530   t661 = t92 * t660;
531   t662 = t661 * t138;
532   t664 = t124 * t99;
533   t665 = t92 * t664;
534   t666 = t665 * t138;
535   t668 = t304 * t307;
536   t670 = t136 * t198;
537   t671 = t135 * t670;
538   t673 = t300 * t307;
539   t675 = t68 * t229;
540   t676 = t92 * t675;
541   t677 = t676 * t138;
542   t679 = t212 * t316;
543   t683 = t212 * t329;
544   t686 = t588 * t207;
545   t687 = t61 * t68;
546   t688 = t687 * t137;
547   t689 = t686 * t688;
548   t691 = t92 * t340;
549   t696 = t202 * t152;
550   t700 = t147 * t207 * t136;
551   t704 = t277 * t191 * sigma[0];
552   t706 = 0.50e2 / 0.19683e5 * t185 * t704;
553   t708 = t136 * t88 * t115;
554   t709 = t213 * t708;
555   t711 = t523 * t148;
556   t713 = t94 * t100 * t115;
557   t716 = t124 * t38;
558   t717 = t202 * t716;
559   t718 = t717 * t292;
560   t720 = t137 * t229;
561   t721 = t290 * t720;
562   t722 = t289 * t721;
563   t724 = 0.100e3 / 0.27e2 * t683 * t101 + 0.125000e6 / 0.19683e5 * t689 - 0.100e3 / 0.27e2 * t691 * t101 - 0.50e2 / 0.27e2 * t331 * t231 + 0.10000e5 / 0.729e3 * t696 * t209 + 0.50e2 / 0.27e2 * t561 * t700 - t706 + 0.100e3 / 0.81e2 * t709 - 0.200e3 / 0.27e2 * t711 * t713 - 0.2500e4 / 0.729e3 * t718 - 0.1250e4 / 0.729e3 * t722;
564   t726 = t512 * t296;
565   t728 = t212 * t303;
566   t729 = t728 * t296;
567   t732 = t136 * t137 * t256;
568   t733 = t213 * t732;
569   t735 = t202 * t134;
570   t736 = t137 * t207;
571   t737 = t290 * t736;
572   t738 = t735 * t737;
573   t740 = t88 * t99;
574   t741 = t290 * t740;
575   t742 = t289 * t741;
576   t745 = t136 * t137 * t237;
577   t746 = t524 * t745;
578   t748 = t541 * t20;
579   t750 = t50 / t748;
580   t751 = t750 * t186;
581   t756 = t130 * t197;
582   t760 = 0.2000e4 / 0.14348907e8 * t580 * t751;
583   t762 = 0.110e3 / 0.2187e4 * t83 * t756;
584   t763 = 0.2000e4 / 0.14348907e8 * t632 * t751 - 0.50e2 / 0.19683e5 * t262 * t704 + 0.110e3 / 0.2187e4 * t121 * t756 - t760 + t706 - t762;
585   t765 = t152 * t237;
586   t768 = t207 * t50;
587   t769 = t768 * t137;
588   t771 = t244 * t740;
589   t773 = t244 * t720;
590   t775 = t107 * t198;
591   t777 = t608 * t57;
592   t778 = t777 * t736;
593   t780 = t322 * t740;
594   t782 = t322 * t720;
595   t785 = t111 * t143 * t197;
596   t787 = -0.125e3 / 0.162e3 * t769 + 0.1000e4 / 0.243e3 * t771 - 0.125e3 / 0.162e3 * t773 - 0.2750e4 / 0.729e3 * t775 - 0.312500e6 / 0.19683e5 * t778 + 0.1250000e7 / 0.59049e5 * t780 - 0.78125e5 / 0.19683e5 * t782 - 0.1375000e7 / 0.177147e6 * t785;
597   t788 = t68 * t787;
598   t790 = t340 * t115;
599   t794 = t152 * t256;
600   t796 = t267 * t147;
601   t798 = t124 * t328;
602   t813 = t288 * t13;
603   t814 = t502 * t813;
604   t815 = t206 * t10;
605   t816 = t23 * t99;
606   t817 = t816 * t115;
607   t818 = t815 * t817;
608   t819 = t814 * t818;
609   t823 = -t106 * t794 - t106 * t796 - 0.2e1 * t106 * t798 + 0.2e1 * t236 * t148 * t256 + t760 + 0.4e1 * t236 * t316 * t115 + 0.4e1 * t236 * t329 * t115 - 0.6e1 * t623 * t148 * t237 + 0.2500e4 / 0.729e3 * t819 + t762 - 0.50e2 / 0.27e2 * t331 * t222;
610   t826 = t78 * (0.50e2 / 0.27e2 * t310 * t231 - 0.10000e5 / 0.729e3 * t654 * t209 + 0.100e3 / 0.27e2 * t657 * t215 + 0.25e2 / 0.108e3 * t662 + 0.25e2 / 0.54e2 * t666 - 0.100e3 / 0.81e2 * t668 + 0.550e3 / 0.243e3 * t671 - 0.100e3 / 0.81e2 * t673 + 0.25e2 / 0.108e3 * t677 + 0.100e3 / 0.27e2 * t679 * t101 + t724 - 0.25e2 / 0.54e2 * t726 - 0.25e2 / 0.54e2 * t729 - 0.25e2 / 0.108e3 * t733 - 0.1250e4 / 0.243e3 * t738 + 0.20000e5 / 0.2187e4 * t742 + 0.25e2 / 0.54e2 * t746 + t62 * t763 + 0.2e1 * t236 * t765 - t106 * t788 - 0.2e1 * t106 * t790 + t823);
611   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
612     v3rho2sigma[0] = -t647 * t155 / 0.12e2 - t274 * t343 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t826;
613 
614   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
615     v3rho2lapl[0] = 0.0e0;
616 
617   t839 = t212 * t367;
618   t842 = t212 * t376;
619   t847 = t502 * t168;
620   t854 = t167 * t207 * t136;
621   t857 = t687 * t158;
622   t860 = t523 * t168;
623   t865 = t158 * t229;
624   t866 = t290 * t865;
625   t869 = -0.50e2 / 0.27e2 * t661 * t159 - 0.100e3 / 0.27e2 * t665 * t159 - 0.50e2 / 0.27e2 * t676 * t159 + 0.100e3 / 0.27e2 * t839 * t101 + 0.100e3 / 0.27e2 * t842 * t101 + 0.50e2 / 0.27e2 * t361 * t231 - 0.10000e5 / 0.729e3 * t847 * t209 + 0.500e3 / 0.81e2 * t301 + 0.500e3 / 0.81e2 * t305 - 0.2000e4 / 0.243e3 * t308 + 0.50e2 / 0.27e2 * t561 * t854 - 0.1000000e7 / 0.19683e5 * t686 * t857 - 0.200e3 / 0.27e2 * t860 * t713 + 0.20000e5 / 0.729e3 * t717 * t349 + 0.10000e5 / 0.729e3 * t289 * t866;
626   t875 = t136 * t158 * t256;
627   t878 = t158 * t207;
628   t879 = t290 * t878;
629   t883 = t136 * t158 * t237;
630   t900 = 0.500e3 / 0.81e2 * t768 * t158 - 0.5000e4 / 0.243e3 * t318 + 0.500e3 / 0.81e2 * t244 * t865 + 0.10000e5 / 0.729e3 * t320 + 0.2500000e7 / 0.19683e5 * t777 * t878 - 0.6250000e7 / 0.59049e5 * t323 + 0.625000e6 / 0.19683e5 * t322 * t865 + 0.5000000e7 / 0.177147e6 * t326;
631   t901 = t68 * t900;
632   t903 = t267 * t167;
633   t905 = t124 * t375;
634   t920 = t34 * t99;
635   t922 = t815 * t920 * t115;
636   t925 = 0.100e3 / 0.27e2 * t512 * t353 + 0.100e3 / 0.27e2 * t728 * t353 + 0.50e2 / 0.27e2 * t213 * t875 + 0.10000e5 / 0.243e3 * t735 * t879 - 0.100e3 / 0.27e2 * t524 * t883 - 0.100000e6 / 0.2187e4 * t293 - 0.500e3 / 0.81e2 * t297 - t106 * t901 - t106 * t903 - 0.2e1 * t106 * t905 + 0.4e1 * t236 * t376 * t115 + 0.2e1 * t236 * t168 * t256 - 0.6e1 * t623 * t168 * t237 + 0.4e1 * t236 * t367 * t115 - 0.20000e5 / 0.729e3 * t814 * t922;
637   t927 = t78 * (t869 + t925);
638   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
639     v3rho2tau[0] = -t647 * t171 / 0.12e2 - t274 * t379 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t927;
640 
641   t932 = t397 * t307;
642   t934 = t717 * t389;
643   t936 = t340 * t37;
644   t937 = t92 * t936;
645   t938 = t937 * t138;
646   t940 = t152 * t99;
647   t941 = t92 * t940;
648   t942 = t941 * t138;
649   t944 = t68 * t9;
650   t945 = t212 * t944;
651   t946 = t384 * t39;
652   t947 = t946 * t562;
653   t948 = t945 * t947;
654   t950 = t523 * t404;
655   t953 = t212 * t407;
656   t956 = t212 * t417;
657   t959 = t9 * t280;
658   t960 = t290 * t959;
659   t961 = t289 * t960;
660   t963 = t99 * t50;
661   t964 = t963 * t388;
662   t966 = t244 * t959;
663   t968 = t388 * t99;
664   t969 = t777 * t968;
665   t972 = t249 * t412 * t280;
666   t974 = 0.125e3 / 0.648e3 * t964 - 0.250e3 / 0.243e3 * t966 + 0.78125e5 / 0.19683e5 * t969 - 0.312500e6 / 0.59049e5 * t972;
667   t975 = t68 * t974;
668   t977 = t421 * t115;
669   t979 = t152 * t328;
670   t982 = t124 * t416;
671   t984 = t512 * t393;
672   t986 = t728 * t393;
673   t989 = t136 * t137 * t328;
674   t990 = t213 * t989;
675   t992 = t657 * t296;
676   t994 = t152 * t38;
677   t995 = t202 * t994;
678   t996 = t995 * t292;
679   t998 = -0.100e3 / 0.81e2 * t932 + 0.625e3 / 0.1458e4 * t934 + 0.25e2 / 0.54e2 * t938 + 0.25e2 / 0.54e2 * t942 + 0.25e2 / 0.432e3 * t948 - 0.100e3 / 0.27e2 * t950 * t101 + 0.100e3 / 0.27e2 * t953 * t101 + 0.50e2 / 0.27e2 * t956 * t101 - 0.5000e4 / 0.2187e4 * t961 - t106 * t975 - t106 * t977 - 0.2e1 * t106 * t979 - t106 * t982 - 0.25e2 / 0.54e2 * t984 - 0.25e2 / 0.54e2 * t986 - 0.25e2 / 0.54e2 * t990 - 0.25e2 / 0.54e2 * t992 - 0.2500e4 / 0.729e3 * t996;
680   t1000 = t136 * t88 * t147;
681   t1001 = t213 * t1000;
682   t1004 = t290 * t388 * t115;
683   t1005 = t503 * t1004;
684   t1007 = t290 * t968;
685   t1008 = t735 * t1007;
686   t1010 = t124 * t403;
687   t1013 = t340 * t147;
688   t1016 = t541 * rho[0];
689   t1017 = 0.1e1 / t1016;
690   t1018 = t50 * t1017;
691   t1019 = t1018 * sigma[0];
692   t1021 = 0.250e3 / 0.4782969e7 * t580 * t1019;
693   t1034 = t277 * t280;
694   t1036 = 0.100e3 / 0.177147e6 * t185 * t1034;
695   t1041 = -0.250e3 / 0.4782969e7 * t632 * t1019 + 0.100e3 / 0.177147e6 * t262 * t1034 + t1021 - t1036;
696   t1043 = t588 * t99;
697   t1044 = t687 * t388;
698   t1045 = t1043 * t1044;
699   t1047 = t218 * t400;
700   t1049 = t92 * t421;
701   t1052 = t959 * t136;
702   t1053 = t93 * t1052;
703   t1055 = t134 * t39;
704   t1056 = t523 * t1055;
705   t1057 = t23 * t147;
706   t1058 = t1057 * t115;
707   t1059 = t442 * t1058;
708   t1060 = t1056 * t1059;
709   t1062 = t1057 * t99;
710   t1063 = t815 * t1062;
711   t1064 = t814 * t1063;
712   t1066 = 0.100e3 / 0.81e2 * t1001 - 0.625e3 / 0.1458e4 * t1005 + 0.625e3 / 0.486e3 * t1008 + 0.2e1 * t236 * t1010 - 0.2e1 * t106 * t1013 - t1021 - 0.6e1 * t623 * t404 * t115 + 0.4e1 * t236 * t148 * t328 + 0.4e1 * t236 * t407 * t115 + 0.2e1 * t236 * t417 * t115 + t1036 + t62 * t1041 - 0.31250e5 / 0.19683e5 * t1045 - 0.25e2 / 0.432e3 * t1047 - 0.50e2 / 0.27e2 * t1049 * t101 + 0.25e2 / 0.81e2 * t1053 + 0.25e2 / 0.27e2 * t1060 + 0.2500e4 / 0.729e3 * t1064;
713   t1068 = t78 * (t998 + t1066);
714   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
715     v3rhosigma2[0] = -t274 * t424 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t1068;
716 
717   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
718     v3rhosigmalapl[0] = 0.0e0;
719 
720   t1073 = t212 * t458;
721   t1076 = t717 * t430;
722   t1082 = t428 * t39;
723   t1083 = t1082 * t562;
724   t1084 = t945 * t1083;
725   t1086 = t212 * t450;
726   t1092 = t147 * t37;
727   t1093 = t136 * t99;
728   t1094 = t1092 * t1093;
729   t1098 = t290 * t429 * t115;
730   t1099 = t503 * t1098;
731   t1101 = t429 * t99;
732   t1102 = t290 * t1101;
733   t1103 = t735 * t1102;
734   t1105 = t442 * t87;
735   t1106 = t94 * t1105;
736   t1107 = t361 * t1106;
737   t1114 = t136 * t158 * t328;
738   t1121 = t839 * t444;
739   t1123 = 0.50e2 / 0.27e2 * t1073 * t101 - 0.2500e4 / 0.729e3 * t1076 - 0.50e2 / 0.27e2 * t937 * t159 - 0.50e2 / 0.27e2 * t941 * t159 - 0.25e2 / 0.54e2 * t1084 + 0.50e2 / 0.27e2 * t1086 * t101 + 0.32500e5 / 0.2187e4 * t390 + 0.250e3 / 0.81e2 * t398 - 0.325e3 / 0.162e3 * t401 - 0.100e3 / 0.27e2 * t860 * t1094 + 0.2500e4 / 0.729e3 * t1099 - 0.2500e4 / 0.243e3 * t1103 + 0.50e2 / 0.81e2 * t1107 + 0.50e2 / 0.27e2 * t512 * t434 + 0.50e2 / 0.27e2 * t728 * t434 + 0.50e2 / 0.27e2 * t213 * t1114 + 0.50e2 / 0.27e2 * t657 * t353 + 0.10000e5 / 0.729e3 * t995 * t349 - 0.25e2 / 0.108e3 * t1121;
740   t1124 = t842 * t444;
741   t1126 = t537 * t443;
742   t1127 = t361 * t1126;
743   t1130 = t152 * t375;
744   t1132 = t124 * t457;
745   t1134 = t963 * t429;
746   t1137 = t777 * t1101;
747   t1140 = -0.125e3 / 0.81e2 * t1134 + 0.1625e4 / 0.243e3 * t410 - 0.625000e6 / 0.19683e5 * t1137 + 0.2031250e7 / 0.59049e5 * t414;
748   t1141 = t68 * t1140;
749   t1143 = t340 * t167;
750   t1160 = t623 * t68;
751   t1161 = t167 * t147;
752   t1162 = t1161 * t115;
753   t1165 = t34 * t147;
754   t1167 = t815 * t1165 * t99;
755   t1170 = t168 * t37;
756   t1171 = t523 * t1170;
757   t1172 = t1171 * t296;
758   t1174 = t168 * t38;
759   t1175 = t502 * t1174;
760   t1176 = t1175 * t292;
761   t1179 = t442 * t1165 * t115;
762   t1182 = t687 * t429;
763   t1183 = t1043 * t1182;
764   t1185 = t218 * t439;
765   t1187 = -0.25e2 / 0.108e3 * t1124 - 0.25e2 / 0.108e3 * t1127 - 0.250e3 / 0.81e2 * t394 - t106 * t1130 - t106 * t1132 - t106 * t1141 - t106 * t1143 + 0.2e1 * t236 * t367 * t147 + 0.2e1 * t236 * t376 * t147 + 0.2e1 * t236 * t168 * t328 + 0.2e1 * t236 * t450 * t115 + 0.2e1 * t236 * t458 * t115 - 0.6e1 * t1160 * t1162 - 0.10000e5 / 0.729e3 * t814 * t1167 + 0.25e2 / 0.54e2 * t1172 + 0.1250e4 / 0.729e3 * t1176 - 0.100e3 / 0.27e2 * t1056 * t1179 + 0.250000e6 / 0.19683e5 * t1183 + 0.25e2 / 0.54e2 * t1185;
766   t1189 = t78 * (t1123 + t1187);
767   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
768     v3rhosigmatau[0] = -t274 * t461 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t1189;
769 
770   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
771     v3rholapl2[0] = 0.0e0;
772 
773   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
774     v3rholapltau[0] = 0.0e0;
775 
776   t1194 = t687 * t466;
777   t1198 = t290 * t466 * t115;
778   t1203 = t466 * t99;
779   t1204 = t290 * t1203;
780   t1208 = t34 * t167;
781   t1210 = t815 * t1208 * t99;
782   t1214 = t442 * t1208 * t115;
783   t1223 = t136 * t158 * t375;
784   t1226 = -0.2000000e7 / 0.19683e5 * t1043 * t1194 - 0.20000e5 / 0.729e3 * t503 * t1198 + 0.20000e5 / 0.729e3 * t717 * t467 + 0.20000e5 / 0.243e3 * t735 * t1204 - 0.200000e6 / 0.2187e4 * t431 - 0.20000e5 / 0.729e3 * t814 * t1210 - 0.200e3 / 0.27e2 * t1056 * t1214 + 0.100e3 / 0.27e2 * t512 * t471 + 0.100e3 / 0.27e2 * t728 * t471 - 0.500e3 / 0.81e2 * t445 + 0.100e3 / 0.27e2 * t213 * t1223;
785   t1227 = t465 * t39;
786   t1228 = t1227 * t562;
787   t1234 = t523 * t478;
788   t1240 = t124 * t477;
789   t1246 = t212 * t487;
790   t1252 = t124 * t486;
791   t1260 = 0.1000e4 / 0.81e2 * t963 * t466 - 0.10000e5 / 0.243e3 * t452 + 0.5000000e7 / 0.19683e5 * t777 * t1203 - 0.12500000e8 / 0.59049e5 * t455;
792   t1261 = t68 * t1260;
793   t1263 = 0.100e3 / 0.27e2 * t945 * t1228 - 0.100e3 / 0.27e2 * t218 * t474 + 0.1000e4 / 0.81e2 * t440 - 0.100e3 / 0.27e2 * t1234 * t101 - 0.6e1 * t623 * t478 * t115 + 0.2e1 * t236 * t1240 + 0.4e1 * t236 * t168 * t375 + 0.50e2 / 0.27e2 * t1246 * t101 + 0.2e1 * t236 * t487 * t115 - t106 * t1252 - t106 * t1261;
794   t1265 = t78 * (t1226 + t1263);
795   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
796     v3rhotau2[0] = -t274 * t490 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t1265;
797 
798   t1268 = 0.1e1 / t541;
799   t1269 = t1268 * t50;
800   t1271 = t580 * t1269;
801   t1273 = 0.125e3 / 0.6377292e7 * t632 * t1269 - 0.125e3 / 0.6377292e7 * t1271;
802   t1275 = t995 * t389;
803   t1277 = t42 * t147;
804   t1278 = t946 * t1277;
805   t1279 = t945 * t1278;
806   t1281 = t421 * t37;
807   t1282 = t92 * t1281;
808   t1283 = t1282 * t138;
809   t1285 = t1268 * t61;
810   t1287 = t588 * t1285 * t68;
811   t1289 = t403 * t147;
812   t1290 = t68 * t1289;
813   t1293 = t148 * t416;
814   t1296 = t206 * t1268;
815   t1297 = t555 * t1296;
816   t1298 = t203 * t1297;
817   t1300 = t331 * t400;
818   t1303 = t152 * t403;
819   t1306 = t421 * t147;
820   t1309 = t152 * t416;
821   t1313 = t57 * t1268;
822   t1314 = t608 * t1313;
823   t1316 = -0.125e3 / 0.2592e4 * t1269 - 0.78125e5 / 0.78732e5 * t1314;
824   t1317 = t68 * t1316;
825   t1320 = t290 * t388 * t147;
826   t1321 = t503 * t1320;
827   t1323 = t657 * t393;
828   t1326 = t136 * t137 * t416;
829   t1327 = t213 * t1326;
830   t1330 = t136 * t137 * t403;
831   t1331 = t524 * t1330;
832   t1333 = t62 * t1273 + 0.625e3 / 0.486e3 * t1275 + 0.25e2 / 0.144e3 * t1279 + 0.25e2 / 0.36e2 * t1283 + 0.15625e5 / 0.39366e5 * t1287 - 0.6e1 * t623 * t1290 + 0.6e1 * t236 * t1293 - 0.625e3 / 0.1944e4 * t1298 - 0.25e2 / 0.144e3 * t1300 + 0.125e3 / 0.6377292e7 * t1271 + 0.6e1 * t236 * t1303 - 0.3e1 * t106 * t1306 - 0.3e1 * t106 * t1309 - t106 * t1317 - 0.625e3 / 0.486e3 * t1321 - 0.25e2 / 0.18e2 * t1323 - 0.25e2 / 0.36e2 * t1327 + 0.25e2 / 0.18e2 * t1331;
833   t1334 = t78 * t1333;
834   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
835     v3sigma3[0] = -0.3e1 / 0.16e2 * t77 * t1334;
836 
837   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
838     v3sigma2lapl[0] = 0.0e0;
839 
840   t1338 = t136 * t158 * t416;
841   t1341 = t1086 * t444;
842   t1343 = t1073 * t444;
843   t1345 = t206 * t9;
844   t1347 = t204 * t1345 * t384;
845   t1348 = t847 * t1347;
846   t1351 = t290 * t429 * t147;
847   t1352 = t503 * t1351;
848   t1356 = t421 * t167;
849   t1358 = t152 * t457;
850   t1361 = 0.1e1 / t189;
851   t1362 = t1361 * t50;
852   t1364 = t57 * t1361;
853   t1365 = t608 * t1364;
854   t1367 = 0.125e3 / 0.324e3 * t1362 + 0.156250e6 / 0.19683e5 * t1365;
855   t1368 = t68 * t1367;
856   t1370 = t1361 * t61;
857   t1372 = t588 * t1370 * t68;
858   t1377 = 0.50e2 / 0.27e2 * t213 * t1338 - 0.25e2 / 0.54e2 * t1341 - 0.25e2 / 0.54e2 * t1343 - 0.625e3 / 0.1458e4 * t1348 + 0.5000e4 / 0.729e3 * t1352 + 0.100e3 / 0.27e2 * t657 * t434 - t106 * t1356 - 0.2e1 * t106 * t1358 - t106 * t1368 - 0.62500e5 / 0.19683e5 * t1372 + 0.4e1 * t236 * t450 * t147;
859   t1381 = t168 * t416;
860   t1384 = t168 * t403;
861   t1387 = t995 * t430;
862   t1389 = t1082 * t1277;
863   t1390 = t945 * t1389;
864   t1394 = t361 * t400;
865   t1396 = t206 * t1361;
866   t1397 = t555 * t1396;
867   t1398 = t203 * t1397;
868   t1400 = t331 * t439;
869   t1403 = t136 * t158 * t403;
870   t1406 = t1171 * t393;
871   t1408 = 0.4e1 * t236 * t458 * t147 + 0.2e1 * t236 * t1381 - 0.6e1 * t623 * t1384 - 0.5000e4 / 0.729e3 * t1387 - 0.25e2 / 0.27e2 * t1390 - 0.50e2 / 0.27e2 * t1282 * t159 + 0.25e2 / 0.432e3 * t1394 + 0.625e3 / 0.243e3 * t1398 + 0.25e2 / 0.27e2 * t1400 - 0.100e3 / 0.27e2 * t524 * t1403 + 0.25e2 / 0.27e2 * t1406;
872   t1410 = t78 * (t1377 + t1408);
873   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
874     v3sigma2tau[0] = -0.3e1 / 0.16e2 * t77 * t1410;
875 
876   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
877     v3sigmalapl2[0] = 0.0e0;
878 
879   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
880     v3sigmalapltau[0] = 0.0e0;
881 
882   t1413 = 0.1e1 / t278;
883   t1414 = t1413 * t61;
884   t1416 = t588 * t1414 * t68;
885   t1419 = t290 * t466 * t147;
886   t1424 = t206 * t1413;
887   t1425 = t555 * t1424;
888   t1426 = t203 * t1425;
889   t1429 = t290 * t429 * t167;
890   t1430 = t503 * t1429;
891   t1433 = t442 * t1208 * t147;
892   t1438 = t42 * t167;
893   t1439 = t1082 * t1438;
894   t1440 = t945 * t1439;
895   t1443 = t136 * t158 * t457;
896   t1446 = t1227 * t1277;
897   t1451 = t1234 * t444;
898   t1456 = t152 * t477;
899   t1462 = t1246 * t444;
900   t1467 = t152 * t486;
901   t1469 = t1413 * t50;
902   t1471 = t57 * t1413;
903   t1472 = t608 * t1471;
904   t1474 = -0.250e3 / 0.81e2 * t1469 - 0.1250000e7 / 0.19683e5 * t1472;
905   t1475 = t68 * t1474;
906   t1477 = 0.500000e6 / 0.19683e5 * t1416 - 0.20000e5 / 0.729e3 * t503 * t1419 + 0.20000e5 / 0.729e3 * t995 * t467 - 0.5000e4 / 0.243e3 * t1426 + 0.5000e4 / 0.729e3 * t1430 - 0.200e3 / 0.27e2 * t1056 * t1433 + 0.100e3 / 0.27e2 * t657 * t471 - 0.25e2 / 0.27e2 * t1440 + 0.100e3 / 0.27e2 * t213 * t1443 + 0.100e3 / 0.27e2 * t945 * t1446 - 0.100e3 / 0.27e2 * t331 * t474 + 0.25e2 / 0.54e2 * t1451 - 0.6e1 * t623 * t478 * t147 + 0.2e1 * t236 * t1456 + 0.4e1 * t236 * t168 * t457 - 0.25e2 / 0.108e3 * t1462 + 0.2e1 * t236 * t487 * t147 - t106 * t1467 - t106 * t1475;
907   t1478 = t78 * t1477;
908   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
909     v3sigmatau2[0] = -0.3e1 / 0.16e2 * t77 * t1478;
910 
911   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
912     v3lapl3[0] = 0.0e0;
913 
914   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
915     v3lapl2tau[0] = 0.0e0;
916 
917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
918     v3lapltau2[0] = 0.0e0;
919 
920   t1481 = 0.1e1 / t382;
921   t1482 = t1481 * t61;
922   t1487 = t290 * t466 * t167;
923   t1490 = t206 * t1481;
924   t1491 = t555 * t1490;
925   t1495 = t136 * t158 * t477;
926   t1498 = t1227 * t1438;
927   t1502 = t136 * t158 * t486;
928   t1505 = t477 * t167;
929   t1506 = t68 * t1505;
930   t1509 = t168 * t486;
931   t1514 = t57 * t1481;
932   t1517 = 0.2000e4 / 0.81e2 * t1481 * t50 + 0.10000000e8 / 0.19683e5 * t608 * t1514;
933   t1518 = t68 * t1517;
934   t1521 = t78 * (-0.4000000e7 / 0.19683e5 * t588 * t1482 * t68 - 0.20000e5 / 0.243e3 * t503 * t1487 + 0.40000e5 / 0.243e3 * t203 * t1491 - 0.100e3 / 0.9e1 * t524 * t1495 + 0.100e3 / 0.9e1 * t945 * t1498 + 0.50e2 / 0.9e1 * t213 * t1502 - 0.6e1 * t623 * t1506 + 0.6e1 * t236 * t1509 - t106 * t1518);
935   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
936     v3tau3[0] = -0.3e1 / 0.16e2 * t77 * t1521;
937 
938 #ifndef XC_DONT_COMPILE_LXC
939 
940   if(order < 4) return;
941 
942 
943   t1537 = t79 / t630 / t63;
944   t1538 = t186 * t186;
945   t1539 = t50 * t1538;
946   t1545 = 0.1e1 / t21 / t541 / t278 * t13 * t130;
947   t1548 = t541 * t188;
948   t1550 = t582 / t1548;
949   t1556 = t187 * t9 / t11 / t1016;
950   t1560 = 0.1e1 / t21 / t278;
951   t1561 = t10 * t1560;
952   t1562 = t84 * t1561;
953   t1567 = t79 / t578 / t27;
954   t1570 = 0.640000e6 / 0.31381059609e11 * t1567 * t1539 * t1545;
955   t1572 = 0.352000e6 / 0.43046721e8 * t580 * t1550;
956   t1574 = 0.391600e6 / 0.4782969e7 * t185 * t1556;
957   t1576 = 0.26180e5 / 0.19683e5 * t83 * t1562;
958   t1581 = t229 * t229;
959   t1584 = t99 * t570;
960   t1591 = 0.6160e4 / 0.81e2 * t32 * t549 - 0.2618e4 / 0.81e2 * t19 * t1560;
961   t1594 = params->b * t38;
962   t1595 = t207 * t207;
963   t1623 = t256 * t256;
964   t1629 = t47 / t621 / t60;
965   t1630 = t237 * t237;
966   t1649 = t62 * (-0.640000e6 / 0.31381059609e11 * t1537 * t1539 * t1545 + 0.352000e6 / 0.43046721e8 * t632 * t1550 - 0.391600e6 / 0.4782969e7 * t262 * t1556 + 0.26180e5 / 0.19683e5 * t121 * t1562 + t1570 - t1572 + t1574 - t1576) - t106 * t68 * (0.1000e4 / 0.27e2 * t768 * t229 + 0.500e3 / 0.27e2 * t244 * t1581 + 0.2000e4 / 0.81e2 * t244 * t1584 + 0.250e3 / 0.81e2 * t107 * t1591 + 0.2500000e7 / 0.6561e4 * t1594 * t57 * t1595 + 0.5000000e7 / 0.6561e4 * t608 * t250 * t229 + 0.625000e6 / 0.6561e4 * t249 * t57 * t1581 + 0.2500000e7 / 0.19683e5 * t249 * t112 * t570 + 0.125000e6 / 0.19683e5 * t111 * t57 * t1591) + 0.12e2 * t236 * t267 * t237 - 0.4e1 * t106 * t639 * t115 - 0.4e1 * t106 * t124 * t618 + 0.6e1 * t236 * t68 * t1623 + 0.24e2 * t1629 * t68 * t1630 - 0.24e2 * t623 * t124 * t624 + t1572 + 0.24e2 * t236 * t241 * t256 + 0.8e1 * t236 * t619 * t115 - 0.4000000e7 / 0.19683e5 * t588 * t589 * t124 - 0.36e2 * t623 * t238 * t256;
967   t1650 = t38 * t57;
968   t1657 = t256 * t37 * t1093;
969   t1667 = t588 * t556;
970   t1668 = t105 * t68;
971   t1669 = t1668 * t115;
972   t1697 = -0.2000000e7 / 0.6561e4 * t1650 * t1595 * t61 * t68 - 0.400e3 / 0.9e1 * t523 * t116 * t1657 - 0.40000e5 / 0.243e3 * t503 * t290 * t214 * t229 - 0.2000000e7 / 0.6561e4 * t686 * t687 * t229 + 0.4000000e7 / 0.19683e5 * t1667 * t1669 - 0.100e3 / 0.9e1 * t532 * t222 - 0.50e2 / 0.9e1 * t93 * t1581 * t39 * t42 + 0.10000e5 / 0.243e3 * t203 * t1595 * t13 * t206 - t1570 + 0.200e3 / 0.9e1 * t512 * t516 + 0.200e3 / 0.9e1 * t728 * t516 + 0.200e3 / 0.27e2 * t213 * t136 * t570 * t115 + 0.100e3 / 0.9e1 * t213 * t136 * t229 * t256 - 0.6e1 * t106 * t267 * t256;
973   t1699 = t502 * t716;
974   t1727 = t46 * t622;
975   t1735 = t45 * t235;
976   t1736 = t1735 * t288;
977   t1741 = t502 * t134;
978   t1746 = -0.40000e5 / 0.243e3 * t1699 * t505 - 0.20000e5 / 0.243e3 * t503 * t290 * t207 * t256 + 0.20000e5 / 0.81e2 * t735 * t290 * t207 * t229 + 0.40000e5 / 0.243e3 * t717 * t509 + 0.40000e5 / 0.729e3 * t289 * t290 * t1584 - 0.400e3 / 0.9e1 * t523 * t593 * t101 + 0.200e3 / 0.9e1 * t212 * t596 * t101 + 0.200e3 / 0.9e1 * t212 * t599 * t101 + 0.200e3 / 0.27e2 * t212 * t619 * t101 + 0.400e3 / 0.9e1 * t1727 * t625 * t101 - 0.200e3 / 0.9e1 * t524 * t136 * t229 * t237 + 0.40000e5 / 0.243e3 * t1736 * t290 * t207 * t237 - 0.40000e5 / 0.243e3 * t1741 * t290 * t556 * t115;
979   t1747 = t212 * t124;
980   t1750 = t523 * t68;
981   t1751 = t42 * t237;
982   t1765 = t42 * t256;
983   t1784 = -t1574 + t1576 + 0.200e3 / 0.9e1 * t1747 * t563 - 0.200e3 / 0.9e1 * t1750 * t221 * t1751 + 0.10000e5 / 0.243e3 * t203 * t204 * t206 * t1581 - 0.100e3 / 0.9e1 * t532 * t231 - 0.200e3 / 0.9e1 * t218 * t538 + 0.40000e5 / 0.243e3 * t529 * t558 + 0.100e3 / 0.9e1 * t561 * t221 * t1765 - 0.200e3 / 0.27e2 * t218 * t572 - 0.200e3 / 0.27e2 * t93 * t537 * t571 - 0.50e2 / 0.27e2 * t93 * t94 * t42 * t1591 + 0.20000e5 / 0.243e3 * t202 * t267 * t209 - 0.200e3 / 0.27e2 * t92 * t639 * t101;
984   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
985     v4rho4[0] = -0.5e1 / 0.54e2 * t8 * t137 * t70 + 0.2e1 / 0.9e1 * t8 * t158 * t126 - t8 * t175 * t269 / 0.2e1 - t8 * t12 * t642 - 0.3e1 / 0.16e2 * t77 * t78 * (t1649 + t1697 + t1746 + t1784);
986 
987   t1791 = t34 * t2 * t4;
988   t1798 = t130 * t549;
989   t1800 = 0.1540e4 / 0.6561e4 * t83 * t1798;
990   t1803 = t1668 * t147;
991   t1806 = t147 * t115;
992   t1813 = t50 / t21 / t541 / t382;
993   t1816 = t581 * t13 * t130;
994   t1820 = t50 * t584 * t186;
995   t1824 = t277 * t543 * sigma[0];
996   t1831 = 0.80000e5 / 0.10460353203e11 * t1567 * t1813 * t1816;
997   t1833 = 0.38000e5 / 0.14348907e8 * t580 * t1820;
998   t1835 = 0.34100e5 / 0.1594323e7 * t185 * t1824;
999   t1859 = -t1800 - 0.50e2 / 0.9e1 * t691 * t222 + 0.1000000e7 / 0.19683e5 * t1667 * t1803 - 0.18e2 * t1160 * t1806 * t256 + t62 * (0.80000e5 / 0.10460353203e11 * t1537 * t1813 * t1816 - 0.38000e5 / 0.14348907e8 * t632 * t1820 + 0.34100e5 / 0.1594323e7 * t262 * t1824 - 0.1540e4 / 0.6561e4 * t121 * t1798 - t1831 + t1833 - t1835 + t1800) + 0.6e1 * t236 * t316 * t256 + 0.6e1 * t236 * t329 * t256 - t1833 + 0.24e2 * t1629 * t148 * t624 - 0.18e2 * t623 * t329 * t237 + 0.6e1 * t236 * t796 * t115 + 0.12e2 * t236 * t798 * t115 + 0.6e1 * t236 * t788 * t115;
1000   t1890 = t198 * t99;
1001   t1893 = t88 * t229;
1002   t1896 = t137 * t570;
1003   t1901 = t1594 * t57;
1004   t1905 = t88 * t207;
1005   t1920 = -0.125e3 / 0.54e2 * t963 * t720 + 0.500e3 / 0.81e2 * t768 * t88 - 0.5500e4 / 0.243e3 * t244 * t1890 + 0.500e3 / 0.81e2 * t244 * t1893 - 0.125e3 / 0.162e3 * t244 * t1896 + 0.38500e5 / 0.2187e4 * t107 * t550 - 0.312500e6 / 0.6561e4 * t1901 * t137 * t556 + 0.2500000e7 / 0.19683e5 * t777 * t1905 - 0.312500e6 / 0.6561e4 * t777 * t137 * t508 - 0.6875000e7 / 0.59049e5 * t322 * t1890 + 0.625000e6 / 0.19683e5 * t322 * t1893 - 0.78125e5 / 0.19683e5 * t322 * t1896 + 0.19250000e8 / 0.531441e6 * t111 * t143 * t549;
1006   t1931 = 0.6e1 * t236 * t794 * t115 + 0.2e1 * t236 * t148 * t618 - 0.1000000e7 / 0.19683e5 * t588 * t589 * t152 - 0.18e2 * t623 * t316 * t237 + 0.6e1 * t236 * t340 * t237 - 0.6e1 * t623 * t152 * t624 - t106 * t639 * t147 - 0.3e1 * t106 * t267 * t328 - 0.3e1 * t106 * t124 * t787 - t106 * t68 * t1920 - 0.3e1 * t106 * t763 * t115 - 0.3e1 * t106 * t340 * t256 - t106 * t152 * t618;
1007   t1933 = t523 * t303;
1008   t1945 = t94 * t230 * t115;
1009   t1950 = t212 * t660;
1010   t1954 = t202 * t267 * t38;
1011   t1957 = t212 * t664;
1012   t1973 = t237 * t37 * t1093;
1013   t1976 = 0.25e2 / 0.18e2 * t1933 * t745 + 0.100e3 / 0.27e2 * t512 * t708 + 0.100e3 / 0.27e2 * t728 * t708 + 0.50e2 / 0.27e2 * t213 * t136 * t88 * t256 - 0.100e3 / 0.9e1 * t711 * t1945 - 0.100e3 / 0.9e1 * t711 * t1657 - 0.25e2 / 0.36e2 * t1950 * t296 - 0.1250e4 / 0.243e3 * t1954 * t292 - 0.25e2 / 0.18e2 * t1957 * t296 - 0.1250e4 / 0.81e2 * t202 * t124 * t207 * t290 * t137 * t37 + 0.20000e5 / 0.729e3 * t717 * t741 + 0.10000e5 / 0.729e3 * t289 * t290 * t1893 + 0.100e3 / 0.3e1 * t1727 * t148 * t1973;
1014   t1986 = t1727 * t134;
1015   t2004 = t204 * t206 * t229 * t99;
1016   t2009 = t204 * t208 * t115;
1017   t2019 = t212 * t675;
1018   t2024 = -0.200e3 / 0.9e1 * t523 * t316 * t713 - 0.200e3 / 0.9e1 * t523 * t329 * t713 - 0.110000e6 / 0.2187e4 * t289 * t290 * t1890 - 0.25e2 / 0.18e2 * t1986 * t136 * t137 * t624 - 0.100e3 / 0.27e2 * t524 * t136 * t88 * t237 - 0.550e3 / 0.81e2 * t213 * t136 * t198 * t115 + 0.10000e5 / 0.243e3 * t735 * t290 * t1905 - 0.10000e5 / 0.243e3 * t654 * t2004 + 0.20000e5 / 0.243e3 * t1735 * t148 * t2009 - 0.1250e4 / 0.243e3 * t717 * t721 - 0.1250e4 / 0.729e3 * t289 * t290 * t1896 - 0.25e2 / 0.36e2 * t512 * t732 - 0.25e2 / 0.36e2 * t2019 * t296 - 0.25e2 / 0.36e2 * t728 * t732;
1019   t2031 = t523 * t299;
1020   t2046 = t92 * t68 * t570;
1021   t2059 = -0.25e2 / 0.108e3 * t213 * t136 * t137 * t618 + 0.25e2 / 0.18e2 * t2031 * t745 + t1835 + 0.50e2 / 0.9e1 * t1747 * t700 + 0.50e2 / 0.9e1 * t561 * t328 * t207 * t136 - 0.50e2 / 0.9e1 * t691 * t231 + 0.10000e5 / 0.243e3 * t202 * t340 * t209 + t1831 + 0.25e2 / 0.108e3 * t2046 * t138 + 0.50e2 / 0.9e1 * t679 * t231 - 0.10000e5 / 0.243e3 * t502 * t316 * t209 + 0.50e2 / 0.9e1 * t683 * t231 - 0.10000e5 / 0.243e3 * t502 * t329 * t209;
1022   t2070 = t502 * t994;
1023   t2083 = t92 * t639 * t37;
1024   t2087 = t92 * t267 * t99;
1025   t2091 = t92 * t124 * t229;
1026   t2095 = t588 * t207 * t105;
1027   t2096 = t68 * t10;
1028   t2097 = t23 * t115;
1029   t2103 = 0.50e2 / 0.9e1 * t310 * t538 - 0.10000e5 / 0.243e3 * t654 * t558 + 0.50e2 / 0.27e2 * t310 * t572 + 0.50e2 / 0.9e1 * t657 * t516 + 0.10000e5 / 0.243e3 * t995 * t509 - 0.10000e5 / 0.243e3 * t2070 * t505 + 0.100e3 / 0.9e1 * t212 * t790 * t101 + 0.50e2 / 0.9e1 * t212 * t794 * t101 - 0.100e3 / 0.9e1 * t523 * t765 * t101 + 0.25e2 / 0.108e3 * t2083 * t138 + 0.25e2 / 0.36e2 * t2087 * t138 + 0.25e2 / 0.36e2 * t2091 * t138 - 0.125000e6 / 0.6561e4 * t2095 * t2096 * t2097 - 0.50e2 / 0.27e2 * t676 * t307;
1030   t2108 = t588 * t99 * t61;
1031   t2109 = t23 * t229;
1032   t2134 = t202 * t68 * t556;
1033   t2138 = t1735 * t813;
1034   t2143 = t134 * t13;
1035   t2144 = t502 * t2143;
1036   t2150 = 0.550e3 / 0.81e2 * t300 * t670 + 0.125000e6 / 0.6561e4 * t2108 * t2096 * t2109 + 0.50e2 / 0.9e1 * t212 * t796 * t101 + 0.100e3 / 0.9e1 * t212 * t798 * t101 + 0.50e2 / 0.9e1 * t212 * t788 * t101 + 0.550e3 / 0.81e2 * t304 * t670 - 0.7700e4 / 0.729e3 * t135 * t136 * t550 - 0.100e3 / 0.9e1 * t711 * t563 - 0.50e2 / 0.27e2 * t661 * t307 - 0.100e3 / 0.27e2 * t665 * t307 - 0.1250e4 / 0.243e3 * t2134 * t290 * t137 - 0.2500e4 / 0.243e3 * t2138 * t815 * t816 * t237 + 0.1250e4 / 0.81e2 * t2144 * t815 * t23 * t207 * t115;
1037   t2161 = t502 * t716 * t13;
1038   t2172 = t202 * t2143;
1039   t2177 = t212 * t152;
1040   t2186 = t1650 * t556;
1041   t2192 = t61 * t124;
1042   t2199 = -0.20000e5 / 0.729e3 * t814 * t815 * t87 * t99 * t115 + 0.25e2 / 0.18e2 * t1056 * t442 * t2097 * t256 + 0.2500e4 / 0.243e3 * t2161 * t818 + 0.1250e4 / 0.243e3 * t814 * t815 * t2109 * t115 + 0.1250e4 / 0.243e3 * t814 * t815 * t816 * t256 - 0.1250e4 / 0.81e2 * t2172 * t815 * t816 * t229 + 0.50e2 / 0.9e1 * t2177 * t563 - 0.50e2 / 0.9e1 * t331 * t538 + 0.10000e5 / 0.243e3 * t696 * t558 - 0.50e2 / 0.27e2 * t331 * t572 + 0.250000e6 / 0.6561e4 * t2186 * t688 - 0.1000000e7 / 0.19683e5 * t686 * t687 * t88 + 0.125000e6 / 0.6561e4 * t686 * t2192 * t137 - 0.50e2 / 0.9e1 * t92 * t763 * t101;
1043   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1044     v4rho3sigma[0] = t1791 * t155 / 0.18e2 - t647 * t343 / 0.4e1 - 0.3e1 / 0.4e1 * t274 * t826 - 0.3e1 / 0.16e2 * t77 * t78 * (t1859 + t1931 + t1976 + t2024 + t2059 + t2103 + t2150 + t2199);
1045 
1046   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1047     v4rho3lapl[0] = 0.0e0;
1048 
1049   t2233 = t158 * t570;
1050   t2249 = 0.500e3 / 0.27e2 * t963 * t865 - 0.2500e4 / 0.81e2 * t769 + 0.20000e5 / 0.243e3 * t771 - 0.2500e4 / 0.81e2 * t773 + 0.500e3 / 0.81e2 * t244 * t2233 - 0.110000e6 / 0.2187e4 * t775 + 0.2500000e7 / 0.6561e4 * t1901 * t158 * t556 - 0.12500000e8 / 0.19683e5 * t778 + 0.2500000e7 / 0.6561e4 * t777 * t158 * t508 + 0.25000000e8 / 0.59049e5 * t780 - 0.3125000e7 / 0.19683e5 * t782 + 0.625000e6 / 0.19683e5 * t322 * t2233 - 0.55000000e8 / 0.531441e6 * t785;
1051   t2260 = 0.250e3 / 0.27e2 * t662 + 0.500e3 / 0.27e2 * t666 - 0.2000e4 / 0.81e2 * t668 + 0.22000e5 / 0.729e3 * t671 - 0.2000e4 / 0.81e2 * t673 + 0.250e3 / 0.27e2 * t677 + 0.5000000e7 / 0.19683e5 * t689 + 0.2000e4 / 0.81e2 * t709 - 0.100000e6 / 0.729e3 * t718 - 0.50000e5 / 0.729e3 * t722 - 0.500e3 / 0.27e2 * t726 - 0.500e3 / 0.27e2 * t729 - 0.250e3 / 0.27e2 * t733 - 0.50000e5 / 0.243e3 * t738 + 0.400000e6 / 0.2187e4 * t742 + 0.500e3 / 0.27e2 * t746 - t106 * t68 * t2249 - 0.3e1 * t106 * t124 * t900 - t106 * t639 * t167 - 0.3e1 * t106 * t267 * t375;
1052   t2296 = t1668 * t167;
1053   t2308 = t34 * t115;
1054   t2315 = t34 * t229;
1055   t2328 = -0.1000000e7 / 0.6561e4 * t686 * t2192 * t158 - 0.2000000e7 / 0.6561e4 * t2186 * t857 + 0.50e2 / 0.9e1 * t1747 * t854 + 0.50e2 / 0.9e1 * t561 * t375 * t207 * t136 - 0.18e2 * t623 * t376 * t237 + 0.6e1 * t236 * t367 * t256 + 0.6e1 * t236 * t901 * t115 + 0.6e1 * t236 * t376 * t256 + 0.2e1 * t236 * t168 * t618 - 0.18e2 * t623 * t367 * t237 + 0.6e1 * t236 * t903 * t115 + 0.12e2 * t236 * t905 * t115 + 0.1000000e7 / 0.19683e5 * t1667 * t2296 + 0.20000e5 / 0.243e3 * t2138 * t815 * t920 * t237 - 0.10000e5 / 0.81e2 * t2144 * t815 * t34 * t207 * t115 - 0.100e3 / 0.9e1 * t1056 * t442 * t2308 * t256 - 0.20000e5 / 0.243e3 * t2161 * t922 - 0.10000e5 / 0.243e3 * t814 * t815 * t2315 * t115 - 0.10000e5 / 0.243e3 * t814 * t815 * t920 * t256 + 0.10000e5 / 0.81e2 * t2172 * t815 * t920 * t229;
1056   t2348 = t523 * t367;
1057   t2351 = t523 * t376;
1058   t2356 = t1727 * t168;
1059   t2359 = t202 * t299;
1060   t2374 = t1735 * t168;
1061   t2379 = 0.100000e6 / 0.729e3 * t819 + 0.10000e5 / 0.729e3 * t289 * t290 * t2233 + 0.50e2 / 0.9e1 * t1950 * t353 + 0.100e3 / 0.9e1 * t1957 * t353 + 0.50e2 / 0.9e1 * t512 * t875 + 0.50e2 / 0.9e1 * t2019 * t353 + 0.50e2 / 0.9e1 * t728 * t875 + 0.50e2 / 0.27e2 * t213 * t136 * t158 * t618 - 0.200e3 / 0.9e1 * t2348 * t713 - 0.200e3 / 0.9e1 * t2351 * t713 - 0.100e3 / 0.9e1 * t860 * t1657 + 0.100e3 / 0.3e1 * t2356 * t1973 + 0.10000e5 / 0.81e2 * t2359 * t879 - 0.100e3 / 0.9e1 * t2031 * t883 - 0.100e3 / 0.9e1 * t1933 * t883 - 0.10000e5 / 0.243e3 * t847 * t2004 + 0.100e3 / 0.9e1 * t1986 * t136 * t158 * t624 - 0.100e3 / 0.9e1 * t860 * t1945 + 0.20000e5 / 0.243e3 * t2374 * t2009 + 0.10000e5 / 0.243e3 * t1954 * t349;
1062   t2392 = t502 * t367;
1063   t2397 = t502 * t376;
1064   t2407 = t212 * t903;
1065   t2410 = t212 * t905;
1066   t2413 = t212 * t901;
1067   t2434 = 0.50e2 / 0.27e2 * t361 * t572 + 0.50e2 / 0.9e1 * t2407 * t101 + 0.100e3 / 0.9e1 * t2410 * t101 + 0.50e2 / 0.9e1 * t2413 * t101 + 0.1000000e7 / 0.6561e4 * t2095 * t2096 * t2308 - 0.1000000e7 / 0.6561e4 * t2108 * t2096 * t2315 - 0.50e2 / 0.27e2 * t2083 * t159 - 0.50e2 / 0.9e1 * t2087 * t159 - 0.100e3 / 0.9e1 * t860 * t563 + 0.10000e5 / 0.243e3 * t2134 * t290 * t158 + 0.24e2 * t1629 * t168 * t624;
1068   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1069     v4rho3tau[0] = t1791 * t171 / 0.18e2 - t647 * t379 / 0.4e1 - 0.3e1 / 0.4e1 * t274 * t927 - 0.3e1 / 0.16e2 * t77 * t78 * (t2260 + t2328 + t2379 + 0.10000e5 / 0.243e3 * t717 * t866 - 0.18e2 * t1160 * t167 * t256 * t115 - 0.50e2 / 0.9e1 * t2091 * t159 - 0.50e2 / 0.27e2 * t2046 * t159 + 0.50e2 / 0.9e1 * t839 * t231 - 0.10000e5 / 0.243e3 * t2392 * t209 + 0.50e2 / 0.9e1 * t842 * t231 - 0.10000e5 / 0.243e3 * t2397 * t209 + 0.50e2 / 0.9e1 * t361 * t538 - 0.10000e5 / 0.243e3 * t847 * t558 + t2434);
1070 
1071   t2450 = t229 * t50;
1072   t2460 = t959 * t99;
1073   t2463 = t388 * t229;
1074   t2489 = t328 * t328;
1075   t2498 = t50 / t21 / t1548;
1076   t2501 = t186 * t13 * t130;
1077   t2504 = t750 * sigma[0];
1078   t2507 = t277 * t191;
1079   t2512 = 0.10000e5 / 0.3486784401e10 * t1567 * t2498 * t2501;
1080   t2514 = 0.10750e5 / 0.14348907e8 * t580 * t2504;
1081   t2516 = 0.1900e4 / 0.531441e6 * t185 * t2507;
1082   t2522 = t1650 * t207;
1083   t2525 = -t106 * t421 * t256 - 0.2e1 * t106 * t124 * t974 - t106 * t68 * (0.125e3 / 0.648e3 * t2450 * t388 - 0.500e3 / 0.243e3 * t963 * t959 + 0.4750e4 / 0.729e3 * t244 * t192 + 0.78125e5 / 0.6561e4 * t1901 * t388 * t207 - 0.2500000e7 / 0.59049e5 * t777 * t2460 + 0.78125e5 / 0.19683e5 * t777 * t2463 + 0.5937500e7 / 0.177147e6 * t249 * t412 * t191) - 0.4e1 * t106 * t340 * t328 - 0.2e1 * t106 * t152 * t787 - t106 * t267 * t416 - 0.2e1 * t106 * t1041 * t115 + 0.2e1 * t236 * t267 * t403 - 0.2e1 * t106 * t763 * t147 + 0.4e1 * t236 * t68 * t2489 + 0.2e1 * t236 * t421 * t237 + t62 * (-0.10000e5 / 0.3486784401e10 * t1537 * t2498 * t2501 + 0.10750e5 / 0.14348907e8 * t632 * t2504 - 0.1900e4 / 0.531441e6 * t262 * t2507 + t2512 - t2514 + t2516) - 0.100e3 / 0.27e2 * t92 * t1041 * t101 - 0.62500e5 / 0.6561e4 * t2522 * t1044;
1084   t2529 = t61 * t152;
1085   t2533 = t588 * t229;
1086   t2570 = 0.1000000e7 / 0.59049e5 * t1043 * t687 * t959 + 0.250000e6 / 0.19683e5 * t686 * t2529 * t137 - 0.31250e5 / 0.19683e5 * t2533 * t1044 - 0.62500e5 / 0.19683e5 * t1043 * t2192 * t388 - 0.25e2 / 0.432e3 * t532 * t400 - 0.50e2 / 0.27e2 * t1049 * t231 + 0.10000e5 / 0.729e3 * t202 * t421 * t209 - 0.475e3 / 0.243e3 * t93 * t192 * t136 - 0.100e3 / 0.27e2 * t1750 * t403 * t207 * t136 + 0.100e3 / 0.27e2 * t2177 * t700 + 0.50e2 / 0.27e2 * t561 * t416 * t207 * t136 + 0.50e2 / 0.81e2 * t218 * t1052 + 0.24e2 * t1629 * t404 * t237 - 0.12e2 * t623 * t407 * t237 - 0.6e1 * t623 * t417 * t237;
1087   t2590 = t523 * t299 * t39;
1088   t2594 = t523 * t303 * t39;
1089   t2597 = t23 * t328;
1090   t2606 = t87 * t147;
1091   t2615 = t1727 * t1055;
1092   t2621 = t502 * t994 * t13;
1093   t2624 = 0.8e1 * t236 * t979 * t115 + 0.4e1 * t236 * t407 * t256 + 0.4e1 * t236 * t982 * t115 + 0.4e1 * t236 * t975 * t115 + 0.2e1 * t236 * t417 * t256 - 0.50e2 / 0.27e2 * t1049 * t222 + 0.50e2 / 0.27e2 * t2590 * t1059 + 0.50e2 / 0.27e2 * t2594 * t1059 + 0.50e2 / 0.27e2 * t1056 * t442 * t2597 * t115 + 0.25e2 / 0.27e2 * t1056 * t442 * t1057 * t256 - 0.400e3 / 0.81e2 * t1056 * t442 * t2606 * t115 + 0.2500e4 / 0.243e3 * t2144 * t815 * t1057 * t207 - 0.25e2 / 0.9e1 * t2615 * t442 * t1057 * t237 + 0.5000e4 / 0.729e3 * t2621 * t818;
1094   t2639 = t384 * t115;
1095   t2663 = t1806 * t99;
1096   t2667 = t202 * t396;
1097   t2670 = -0.40000e5 / 0.2187e4 * t814 * t815 * t2606 * t99 + 0.5000e4 / 0.729e3 * t2161 * t1063 + 0.5000e4 / 0.729e3 * t814 * t815 * t2597 * t99 + 0.2500e4 / 0.729e3 * t814 * t815 * t1057 * t229 - 0.625e3 / 0.243e3 * t2144 * t1345 * t2639 * t99 - 0.6e1 * t623 * t404 * t256 + 0.8e1 * t236 * t316 * t328 + 0.4e1 * t236 * t148 * t787 + 0.8e1 * t236 * t1013 * t115 + t2514 - 0.12e2 * t623 * t1010 * t115 - 0.24e2 * t1160 * t1806 * t328 - 0.10000e5 / 0.729e3 * t2138 * t815 * t23 * t2663 - t2516 - 0.2500e4 / 0.243e3 * t2667 * t737;
1098   t2673 = t523 * t396;
1099   t2697 = t328 * t37 * t1093;
1100   t2716 = 0.25e2 / 0.27e2 * t2673 * t745 + 0.200e3 / 0.81e2 * t657 * t708 + 0.625e3 / 0.729e3 * t1736 * t290 * t388 * t237 + 0.10000e5 / 0.2187e4 * t503 * t290 * t959 * t115 - 0.10000e5 / 0.729e3 * t735 * t290 * t2460 - 0.1100e4 / 0.243e3 * t213 * t136 * t198 * t147 + 0.200e3 / 0.9e1 * t1727 * t404 * t713 - 0.400e3 / 0.27e2 * t711 * t2697 - 0.400e3 / 0.27e2 * t523 * t407 * t713 - 0.200e3 / 0.27e2 * t523 * t417 * t713 + 0.200e3 / 0.81e2 * t512 * t1000 + 0.200e3 / 0.81e2 * t728 * t1000 + 0.200e3 / 0.81e2 * t213 * t136 * t88 * t328 - 0.625e3 / 0.729e3 * t1699 * t1004;
1101   t2726 = t202 * t340 * t38;
1102   t2748 = t212 * t936;
1103   t2751 = t212 * t940;
1104   t2756 = -0.625e3 / 0.1458e4 * t503 * t290 * t388 * t256 + 0.625e3 / 0.243e3 * t2359 * t1007 + 0.40000e5 / 0.2187e4 * t995 * t741 - 0.5000e4 / 0.729e3 * t2726 * t292 - 0.2500e4 / 0.729e3 * t995 * t721 + 0.625e3 / 0.486e3 * t735 * t290 * t2463 - 0.25e2 / 0.54e2 * t1950 * t393 - 0.25e2 / 0.27e2 * t1957 * t393 - 0.25e2 / 0.27e2 * t512 * t989 - 0.25e2 / 0.54e2 * t2019 * t393 - 0.25e2 / 0.27e2 * t728 * t989 - 0.25e2 / 0.54e2 * t213 * t136 * t137 * t787 - 0.25e2 / 0.27e2 * t2748 * t296 - 0.25e2 / 0.27e2 * t2751 * t296 - 0.25e2 / 0.54e2 * t657 * t732;
1105   t2771 = t588 * t99 * t105;
1106   t2794 = t92 * t763 * t37;
1107   t2798 = t92 * t340 * t99;
1108   t2801 = 0.100e3 / 0.27e2 * t212 * t982 * t101 + 0.100e3 / 0.27e2 * t212 * t975 * t101 + 0.100e3 / 0.27e2 * t212 * t977 * t101 - 0.250000e6 / 0.19683e5 * t2095 * t2096 * t1057 + 0.62500e5 / 0.19683e5 * t2771 * t944 * t2639 - 0.10000e5 / 0.2187e4 * t717 * t960 - 0.200e3 / 0.81e2 * t937 * t307 - 0.200e3 / 0.81e2 * t941 * t307 - 0.200e3 / 0.27e2 * t523 * t1010 * t101 + 0.200e3 / 0.27e2 * t212 * t1013 * t101 + 0.200e3 / 0.27e2 * t212 * t979 * t101 + 0.25e2 / 0.432e3 * t945 * t946 * t1765 + 0.25e2 / 0.54e2 * t2794 * t138 + 0.25e2 / 0.27e2 * t2798 * t138;
1109   t2803 = t92 * t152 * t229;
1110   t2806 = t523 * t944;
1111   t2810 = t280 * t39;
1112   t2817 = t202 * t68 * t207;
1113   t2838 = t124 * t9;
1114   t2839 = t212 * t2838;
1115   t2844 = 0.25e2 / 0.54e2 * t2803 * t138 - t2512 - 0.25e2 / 0.216e3 * t2806 * t946 * t1751 - 0.50e2 / 0.81e2 * t945 * t2810 * t562 + 0.1100e4 / 0.243e3 * t397 * t670 + 0.625e3 / 0.486e3 * t2817 * t389 + 0.95000e5 / 0.6561e4 * t289 * t290 * t192 - 0.100e3 / 0.27e2 * t950 * t231 + 0.20000e5 / 0.729e3 * t1735 * t404 * t209 + 0.100e3 / 0.27e2 * t953 * t231 - 0.20000e5 / 0.729e3 * t502 * t407 * t209 + 0.50e2 / 0.27e2 * t956 * t231 - 0.10000e5 / 0.729e3 * t502 * t417 * t209 + 0.25e2 / 0.216e3 * t2839 * t947 + 0.625e3 / 0.1458e4 * t1954 * t389;
1116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1117     v4rho2sigma2[0] = -t647 * t424 / 0.12e2 - t274 * t1068 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t2525 + t2570 + t2624 + t2670 + t2716 + t2756 + t2801 + t2844);
1118 
1119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1120     v4rho2sigmalapl[0] = 0.0e0;
1121 
1122   t2876 = t429 * t229;
1123   t2888 = t1629 * t68;
1124   t2895 = -0.2000e4 / 0.243e3 * t932 + 0.65000e5 / 0.2187e4 * t934 + 0.500e3 / 0.81e2 * t938 + 0.500e3 / 0.81e2 * t942 + 0.325e3 / 0.81e2 * t948 - 0.520000e6 / 0.6561e4 * t961 - t106 * t152 * t900 - t106 * t267 * t457 - 0.2e1 * t106 * t124 * t1140 - t106 * t68 * (-0.125e3 / 0.81e2 * t2450 * t429 + 0.3250e4 / 0.243e3 * t964 - 0.26000e5 / 0.729e3 * t966 - 0.625000e6 / 0.6561e4 * t1901 * t429 * t207 + 0.16250000e8 / 0.59049e5 * t969 - 0.625000e6 / 0.19683e5 * t777 * t2876 - 0.32500000e8 / 0.177147e6 * t972) - t106 * t763 * t167 - 0.2e1 * t106 * t340 * t375 + 0.24e2 * t2888 * t1161 * t237 - 0.500e3 / 0.81e2 * t984 - 0.500e3 / 0.81e2 * t986 - 0.500e3 / 0.81e2 * t990;
1125   t2933 = -0.500e3 / 0.81e2 * t992 - 0.100000e6 / 0.2187e4 * t996 + 0.2000e4 / 0.243e3 * t1001 - 0.65000e5 / 0.2187e4 * t1005 + 0.65000e5 / 0.729e3 * t1008 + 0.2e1 * t236 * t168 * t787 + 0.2e1 * t236 * t450 * t256 + 0.2e1 * t236 * t458 * t256 - 0.6e1 * t623 * t450 * t237 - 0.6e1 * t623 * t458 * t237 + 0.25e2 / 0.54e2 * t532 * t439 - 0.1000000e7 / 0.19683e5 * t686 * t2529 * t158 + 0.4e1 * t236 * t905 * t147 + 0.4e1 * t236 * t367 * t328 + 0.2e1 * t236 * t901 * t147 + 0.4e1 * t236 * t376 * t328;
1126   t2977 = t1727 * t1170;
1127   t2982 = 0.4e1 * t236 * t1143 * t115 + 0.4e1 * t236 * t1130 * t115 + 0.4e1 * t236 * t1132 * t115 + 0.4e1 * t236 * t1141 * t115 + 0.2e1 * t236 * t903 * t147 - 0.12e2 * t623 * t124 * t1162 - 0.12e2 * t1160 * t375 * t147 * t115 - 0.12e2 * t1160 * t167 * t328 * t115 - 0.6e1 * t1160 * t1161 * t256 + 0.50e2 / 0.27e2 * t2177 * t854 + 0.50e2 / 0.27e2 * t561 * t457 * t207 * t136 + 0.500000e6 / 0.6561e4 * t2522 * t1182 + 0.250000e6 / 0.19683e5 * t2533 * t1182 + 0.500000e6 / 0.19683e5 * t1043 * t2192 * t429 - 0.25e2 / 0.18e2 * t2977 * t745 - 0.200e3 / 0.81e2 * t1171 * t708;
1128   t2983 = t502 * t1170;
1129   t3003 = t34 * t328;
1130   t3013 = t523 * t367 * t37;
1131   t3017 = t523 * t376 * t37;
1132   t3021 = t523 * t168 * t99;
1133   t3026 = t428 * t115;
1134   t3043 = 0.1250e4 / 0.243e3 * t2983 * t737 + 0.100e3 / 0.9e1 * t2615 * t442 * t1165 * t237 - 0.10000e5 / 0.243e3 * t2144 * t815 * t1165 * t207 - 0.100e3 / 0.27e2 * t1056 * t442 * t1165 * t256 + 0.200e3 / 0.9e1 * t1727 * t447 * t713 - 0.20000e5 / 0.729e3 * t2161 * t1167 - 0.20000e5 / 0.729e3 * t814 * t815 * t3003 * t99 - 0.10000e5 / 0.729e3 * t814 * t815 * t1165 * t229 + 0.25e2 / 0.27e2 * t3013 * t296 + 0.25e2 / 0.27e2 * t3017 * t296 + 0.25e2 / 0.27e2 * t3021 * t296 + 0.25e2 / 0.54e2 * t1171 * t732 + 0.5000e4 / 0.243e3 * t2144 * t1345 * t3026 * t99 - 0.20000e5 / 0.729e3 * t2621 * t922 - 0.20000e5 / 0.2187e4 * t1175 * t741 + 0.2500e4 / 0.729e3 * t502 * t367 * t38 * t292 + 0.2500e4 / 0.729e3 * t502 * t376 * t38 * t292;
1135   t3056 = t212 * t1132;
1136   t3059 = t212 * t1141;
1137   t3070 = t502 * t458;
1138   t3080 = t1735 * t1174;
1139   t3081 = t290 * t10;
1140   t3085 = t815 * t34;
1141   t3090 = 0.1250e4 / 0.729e3 * t1175 * t721 - 0.200e3 / 0.27e2 * t2590 * t1179 - 0.200e3 / 0.27e2 * t2594 * t1179 - 0.200e3 / 0.27e2 * t1056 * t442 * t3003 * t115 + 0.100e3 / 0.27e2 * t3056 * t101 + 0.100e3 / 0.27e2 * t3059 * t101 + 0.1000000e7 / 0.19683e5 * t2095 * t2096 * t1165 - 0.125000e6 / 0.19683e5 * t2095 * t168 * t137 + 0.50e2 / 0.27e2 * t1073 * t231 - 0.10000e5 / 0.729e3 * t3070 * t209 - 0.2500e4 / 0.729e3 * t1954 * t430 - 0.500000e6 / 0.19683e5 * t2771 * t944 * t3026 - 0.25e2 / 0.27e2 * t2839 * t1083 - 0.5000e4 / 0.729e3 * t3080 * t3081 * t817 + 0.40000e5 / 0.729e3 * t2138 * t3085 * t2663 - 0.6500000e7 / 0.59049e5 * t1045;
1142   t3099 = t523 * t450;
1143   t3102 = t523 * t458;
1144   t3127 = -0.325e3 / 0.81e2 * t1047 + 0.2600e4 / 0.243e3 * t1053 + 0.1000e4 / 0.81e2 * t1060 + 0.100000e6 / 0.2187e4 * t1064 - 0.200e3 / 0.27e2 * t2351 * t1094 - 0.200e3 / 0.27e2 * t860 * t2697 - 0.200e3 / 0.27e2 * t3099 * t713 - 0.200e3 / 0.27e2 * t3102 * t713 + 0.100e3 / 0.81e2 * t839 * t1106 + 0.100e3 / 0.81e2 * t842 * t1106 + 0.100e3 / 0.81e2 * t361 * t537 * t1105 + 0.50e2 / 0.27e2 * t1950 * t434 + 0.100e3 / 0.27e2 * t1957 * t434 + 0.5000e4 / 0.729e3 * t1699 * t1098 + 0.2500e4 / 0.729e3 * t503 * t290 * t429 * t256 - 0.2500e4 / 0.243e3 * t735 * t290 * t2876 + 0.100e3 / 0.27e2 * t512 * t1114;
1145   t3170 = 0.50e2 / 0.27e2 * t2019 * t434 + 0.100e3 / 0.27e2 * t728 * t1114 + 0.50e2 / 0.27e2 * t213 * t136 * t158 * t787 + 0.100e3 / 0.27e2 * t2748 * t353 + 0.100e3 / 0.27e2 * t2751 * t353 + 0.50e2 / 0.27e2 * t657 * t875 + 0.20000e5 / 0.729e3 * t2726 * t349 + 0.10000e5 / 0.729e3 * t995 * t866 - 0.25e2 / 0.108e3 * t2407 * t444 - 0.25e2 / 0.54e2 * t2410 * t444 - 0.25e2 / 0.54e2 * t839 * t1126 - 0.25e2 / 0.108e3 * t2413 * t444 - 0.25e2 / 0.54e2 * t842 * t1126 - 0.5000e4 / 0.243e3 * t202 * t2838 * t428 * t13 * t206 * t37 * t99 - 0.200e3 / 0.27e2 * t2348 * t1094 - 0.5000e4 / 0.729e3 * t1736 * t290 * t429 * t237;
1146   t3203 = t502 * t450;
1147   t3206 = t212 * t1143;
1148   t3209 = t212 * t1130;
1149   t3219 = -0.100e3 / 0.27e2 * t2673 * t883 + 0.10000e5 / 0.243e3 * t2667 * t879 - 0.550e3 / 0.243e3 * t361 * t94 * t442 * t197 - 0.25e2 / 0.108e3 * t361 * t229 * t39 * t443 - 0.100e3 / 0.27e2 * t860 * t1092 * t136 * t229 + 0.20000e5 / 0.729e3 * t2374 * t147 * t38 * t290 * t207 - 0.50e2 / 0.27e2 * t2794 * t159 - 0.100e3 / 0.27e2 * t2798 * t159 - 0.50e2 / 0.27e2 * t2803 * t159 - 0.25e2 / 0.54e2 * t945 * t1082 * t1765 + 0.50e2 / 0.27e2 * t1086 * t231 - 0.10000e5 / 0.729e3 * t3203 * t209 + 0.100e3 / 0.27e2 * t3206 * t101 + 0.100e3 / 0.27e2 * t3209 * t101 + 0.25e2 / 0.27e2 * t2806 * t1082 * t1751 - 0.100e3 / 0.27e2 * t860 * t700 - 0.2500e4 / 0.243e3 * t2817 * t430;
1150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1151     v4rho2sigmatau[0] = -t647 * t461 / 0.12e2 - t274 * t1189 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t2895 + t2933 + t2982 + t3043 + t3090 + t3127 + t3170 + t3219);
1152 
1153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1154     v4rho2lapl2[0] = 0.0e0;
1155 
1156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1157     v4rho2lapltau[0] = 0.0e0;
1158 
1159   t3257 = t375 * t375;
1160   t3263 = -0.400000e6 / 0.2187e4 * t1076 - 0.2000e4 / 0.81e2 * t1084 + 0.2600000e7 / 0.6561e4 * t390 - 0.13000e5 / 0.243e3 * t401 - 0.4000000e7 / 0.19683e5 * t1043 * t2192 * t466 - 0.100e3 / 0.27e2 * t532 * t474 + 0.50e2 / 0.27e2 * t561 * t486 * t207 * t136 - 0.4000000e7 / 0.6561e4 * t2522 * t1194 - 0.100e3 / 0.27e2 * t1750 * t477 * t207 * t136 - 0.2000000e7 / 0.19683e5 * t2533 * t1194 + 0.400000e6 / 0.2187e4 * t1099 - 0.400000e6 / 0.729e3 * t1103 + 0.4000e4 / 0.243e3 * t1107 - 0.1000e4 / 0.81e2 * t1121 - 0.1000e4 / 0.81e2 * t1124 - 0.1000e4 / 0.81e2 * t1127 + 0.4e1 * t236 * t68 * t3257 - t106 * t267 * t486;
1161   t3275 = t466 * t229;
1162   t3295 = t34 * t375;
1163   t3316 = t465 * t115;
1164   t3339 = -0.2e1 * t106 * t124 * t1260 - t106 * t68 * (0.1000e4 / 0.81e2 * t2450 * t466 - 0.20000e5 / 0.243e3 * t1134 + 0.130000e6 / 0.729e3 * t410 + 0.5000000e7 / 0.6561e4 * t1901 * t466 * t207 - 0.100000000e9 / 0.59049e5 * t1137 + 0.5000000e7 / 0.19683e5 * t777 * t3275 + 0.162500000e9 / 0.177147e6 * t414) + 0.2e1 * t236 * t267 * t477 + 0.200e3 / 0.9e1 * t2615 * t442 * t1208 * t237 - 0.20000e5 / 0.243e3 * t2144 * t815 * t1208 * t207 - 0.40000e5 / 0.729e3 * t2161 * t1210 - 0.40000e5 / 0.729e3 * t814 * t815 * t3295 * t99 - 0.20000e5 / 0.729e3 * t814 * t815 * t1208 * t229 - 0.400e3 / 0.27e2 * t2590 * t1214 - 0.400e3 / 0.27e2 * t2594 * t1214 - 0.400e3 / 0.27e2 * t1056 * t442 * t3295 * t115 - 0.200e3 / 0.27e2 * t1056 * t442 * t1208 * t256 - 0.40000e5 / 0.243e3 * t2144 * t1345 * t3316 * t99 + 0.4e1 * t236 * t1252 * t115 + 0.4e1 * t236 * t1261 * t115 + 0.2e1 * t236 * t487 * t256 - 0.12e2 * t623 * t1240 * t115 + 0.24e2 * t1629 * t478 * t237 - 0.6e1 * t623 * t487 * t237;
1165   t3350 = t1735 * t478;
1166   t3358 = t212 * t1252;
1167   t3361 = t212 * t1261;
1168   t3366 = t502 * t487;
1169   t3382 = t523 * t1240;
1170   t3392 = -0.6e1 * t623 * t478 * t256 + 0.8e1 * t236 * t367 * t375 + 0.4e1 * t236 * t168 * t900 + 0.20000e5 / 0.729e3 * t3350 * t209 - 0.200e3 / 0.27e2 * t2806 * t1227 * t1751 + 0.20000e5 / 0.243e3 * t2817 * t467 + 0.100e3 / 0.27e2 * t3358 * t101 + 0.100e3 / 0.27e2 * t3361 * t101 + 0.50e2 / 0.27e2 * t1246 * t231 - 0.10000e5 / 0.729e3 * t3366 * t209 + 0.4000000e7 / 0.19683e5 * t2771 * t944 * t3316 + 0.20000e5 / 0.729e3 * t1954 * t467 + 0.2000000e7 / 0.19683e5 * t2095 * t2096 * t1208 + 0.200e3 / 0.27e2 * t2839 * t1228 + 0.100e3 / 0.27e2 * t945 * t1227 * t1765 - 0.200e3 / 0.27e2 * t3382 * t101 - 0.100e3 / 0.27e2 * t1234 * t231 + 0.80000e5 / 0.729e3 * t2138 * t3085 * t167 * t99 * t115;
1171   t3399 = t1727 * t478;
1172   t3406 = t523 * t487;
1173   t3440 = -0.24e2 * t1160 * t167 * t115 * t375 + 0.2000e4 / 0.81e2 * t1172 + 0.200000e6 / 0.2187e4 * t1176 + 0.200e3 / 0.9e1 * t3399 * t713 - 0.400e3 / 0.27e2 * t860 * t94 * t100 * t375 - 0.200e3 / 0.27e2 * t3406 * t713 - 0.40000e5 / 0.729e3 * t1699 * t1198 - 0.20000e5 / 0.729e3 * t503 * t290 * t466 * t256 + 0.40000e5 / 0.243e3 * t2359 * t1204 + 0.20000e5 / 0.243e3 * t735 * t290 * t3275 + 0.100e3 / 0.27e2 * t1950 * t471 + 0.200e3 / 0.27e2 * t1957 * t471 + 0.200e3 / 0.27e2 * t512 * t1223 + 0.100e3 / 0.27e2 * t2019 * t471 + 0.40000e5 / 0.729e3 * t1736 * t290 * t466 * t237 + 0.200e3 / 0.27e2 * t728 * t1223 + 0.100e3 / 0.27e2 * t213 * t136 * t158 * t900 + 0.40000000e8 / 0.59049e5 * t1183 + 0.2000e4 / 0.81e2 * t1185;
1174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1175     v4rho2tau2[0] = -t647 * t490 / 0.12e2 - t274 * t1265 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t3263 + t3339 + t3392 + t3440);
1176 
1177   t3507 = 0.250e3 / 0.1594323e7 * t580 * t1018;
1178   t3510 = 0.2e1 * t236 * t1317 * t115 - 0.62500e5 / 0.19683e5 * t588 * t1017 * t61 * t68 + 0.6e1 * t236 * t329 * t416 + 0.6e1 * t236 * t148 * t974 - 0.18e2 * t623 * t1303 * t115 + 0.12e2 * t236 * t407 * t328 + 0.6e1 * t236 * t1306 * t115 + 0.6e1 * t236 * t1309 * t115 + 0.15625e5 / 0.39366e5 * t588 * t1285 * t124 + 0.24e2 * t1629 * t1290 * t115 - 0.18e2 * t623 * t404 * t328 + 0.6e1 * t236 * t316 * t416 - t106 * t124 * t1316 - t106 * t68 * (0.125e3 / 0.324e3 * t1018 - 0.78125e5 / 0.26244e5 * t1594 * t1313 * t99 + 0.156250e6 / 0.19683e5 * t608 * t57 * t1017) - 0.3e1 * t106 * t421 * t328 - 0.3e1 * t106 * t340 * t416 - 0.3e1 * t106 * t152 * t974 - t3507 - t106 * t1273 * t115;
1179   t3521 = t212 * t152 * t9;
1180   t3524 = t523 * t1303;
1181   t3530 = t212 * t1309;
1182   t3533 = t212 * t1317;
1183   t3536 = t384 * t147;
1184   t3544 = t42 * t328;
1185   t3549 = t92 * t1041 * t37;
1186   t3553 = t92 * t421 * t99;
1187   t3556 = t1727 * t1290;
1188   t3572 = t50 / t21 / t583;
1189   t3574 = t18 * t19;
1190   t3576 = 0.1250e4 / 0.1162261467e10 * t1567 * t3572 * t3574;
1191   t3577 = -0.6e1 * t623 * t124 * t1289 + 0.6e1 * t236 * t340 * t403 - 0.3e1 * t106 * t1041 * t147 + 0.25e2 / 0.144e3 * t3521 * t947 - 0.100e3 / 0.9e1 * t3524 * t101 + 0.50e2 / 0.9e1 * t212 * t1306 * t101 + 0.50e2 / 0.9e1 * t3530 * t101 + 0.50e2 / 0.27e2 * t3533 * t101 + 0.31250e5 / 0.6561e4 * t2771 * t944 * t3536 + 0.625e3 / 0.486e3 * t2726 * t389 + 0.25e2 / 0.144e3 * t2839 * t1278 + 0.25e2 / 0.144e3 * t945 * t946 * t3544 + 0.25e2 / 0.36e2 * t3549 * t138 + 0.25e2 / 0.36e2 * t3553 * t138 + 0.100e3 / 0.9e1 * t3556 * t101 + 0.625e3 / 0.1944e4 * t1741 * t290 * t1268 * t115 - 0.5000e4 / 0.729e3 * t995 * t960 - 0.25e2 / 0.27e2 * t945 * t2810 * t1277 - 0.50e2 / 0.27e2 * t1282 * t307 + t3576;
1192   t3579 = t23 * t403;
1193   t3603 = t523 * t396 * t39;
1194   t3608 = t23 * t416;
1195   t3617 = t588 * t1268;
1196   t3625 = t687 * t99;
1197   t3646 = t212 * t1281;
1198   t3650 = t202 * t421 * t38;
1199   t3653 = -0.25e2 / 0.6e1 * t2615 * t442 * t3579 * t115 + 0.25e2 / 0.9e1 * t1056 * t442 * t1057 * t328 - 0.2500e4 / 0.243e3 * t2138 * t815 * t3579 * t99 - 0.625e3 / 0.162e3 * t502 * t944 * t384 * t290 * t1092 * t99 + 0.625e3 / 0.243e3 * t2138 * t1345 * t3536 * t115 + 0.25e2 / 0.9e1 * t3603 * t1059 + 0.2500e4 / 0.243e3 * t2621 * t1063 + 0.25e2 / 0.18e2 * t1056 * t442 * t3608 * t115 + 0.1250e4 / 0.243e3 * t814 * t815 * t3608 * t99 - 0.15625e5 / 0.39366e5 * t3617 * t1669 - 0.18e2 * t1160 * t147 * t416 * t115 + 0.15625e5 / 0.6561e4 * t1650 * t1268 * t3625 + 0.50e2 / 0.27e2 * t213 * t136 * t88 * t416 - 0.100e3 / 0.27e2 * t524 * t136 * t88 * t403 + 0.5000e4 / 0.729e3 * t503 * t290 * t959 * t147 + 0.100e3 / 0.27e2 * t657 * t1000 - 0.625e3 / 0.486e3 * t2070 * t1004 + 0.625e3 / 0.162e3 * t2667 * t1007 - 0.25e2 / 0.36e2 * t3646 * t296 - 0.1250e4 / 0.243e3 * t3650 * t292;
1200   t3655 = t416 * t37 * t1093;
1201   t3682 = t1277 * t115;
1202   t3702 = t99 * t13;
1203   t3713 = -0.100e3 / 0.9e1 * t711 * t3655 - 0.625e3 / 0.486e3 * t1699 * t1320 - 0.625e3 / 0.486e3 * t503 * t290 * t388 * t328 - 0.25e2 / 0.18e2 * t2748 * t393 - 0.25e2 / 0.18e2 * t2751 * t393 - 0.25e2 / 0.18e2 * t657 * t989 - 0.25e2 / 0.36e2 * t512 * t1326 - 0.25e2 / 0.36e2 * t728 * t1326 - 0.25e2 / 0.36e2 * t213 * t136 * t137 * t974 + 0.25e2 / 0.18e2 * t2031 * t1330 + 0.25e2 / 0.18e2 * t1933 * t1330 - 0.25e2 / 0.72e2 * t2806 * t946 * t3682 - 0.25e2 / 0.144e3 * t691 * t400 + 0.625e3 / 0.243e3 * t203 * t555 * t206 * t1017 + 0.25e2 / 0.27e2 * t331 * t1052 - 0.50e2 / 0.27e2 * t92 * t1273 * t101 - 0.31250e5 / 0.6561e4 * t1043 * t2529 * t388 - 0.625e3 / 0.1944e4 * t529 * t1297 - 0.625e3 / 0.1944e4 * t203 * t3702 * t1296 + t62 * (0.1250e4 / 0.1162261467e10 * t1537 * t3572 * t3574 - 0.250e3 / 0.1594323e7 * t632 * t1018 - t3576 + t3507);
1204   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1205     v4rhosigma3[0] = -t274 * t1334 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t3510 + t3577 + t3653 + t3713);
1206 
1207   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1208     v4rhosigma2lapl[0] = 0.0e0;
1209 
1210   t3748 = 0.65000e5 / 0.2187e4 * t1275 + 0.325e3 / 0.81e2 * t1279 + 0.250e3 / 0.81e2 * t1283 - t106 * t124 * t1367 - t106 * t68 * (-0.875e3 / 0.324e3 * t1269 + 0.156250e6 / 0.6561e4 * t1594 * t1364 * t99 - 0.1093750e7 / 0.19683e5 * t1314) - t106 * t1041 * t167 - t106 * t421 * t375 - 0.65000e5 / 0.2187e4 * t1321 - 0.500e3 / 0.81e2 * t1323 - 0.250e3 / 0.81e2 * t1327 + 0.500e3 / 0.81e2 * t1331 - 0.2e1 * t106 * t340 * t457 - 0.2e1 * t106 * t152 * t1140;
1211   t3752 = t34 * t403;
1212   t3765 = t428 * t147;
1213   t3776 = t34 * t416;
1214   t3786 = t523 * t450 * t37;
1215   t3794 = t523 * t458 * t37;
1216   t3797 = 0.437500e6 / 0.19683e5 * t1287 - 0.20000e5 / 0.729e3 * t2621 * t1167 + 0.100e3 / 0.9e1 * t2615 * t442 * t3752 * t115 + 0.2500e4 / 0.729e3 * t502 * t458 * t38 * t292 + 0.625e3 / 0.729e3 * t3080 * t1004 - 0.625e3 / 0.486e3 * t2983 * t1007 - 0.10000e5 / 0.729e3 * t2138 * t1345 * t3765 * t115 + 0.5000e4 / 0.243e3 * t2144 * t1345 * t3765 * t99 - 0.200e3 / 0.27e2 * t3603 * t1179 - 0.100e3 / 0.27e2 * t1056 * t442 * t3776 * t115 - 0.10000e5 / 0.729e3 * t814 * t815 * t3776 * t99 + 0.25e2 / 0.27e2 * t3786 * t296 + 0.2500e4 / 0.729e3 * t502 * t450 * t38 * t292 + 0.25e2 / 0.27e2 * t3794 * t296;
1217   t3814 = t167 * t416;
1218   t3828 = t588 * t1361;
1219   t3837 = t212 * t1356;
1220   t3840 = -0.200e3 / 0.81e2 * t1171 * t1000 + 0.25e2 / 0.27e2 * t3017 * t393 + 0.25e2 / 0.27e2 * t3021 * t393 + 0.25e2 / 0.27e2 * t1171 * t989 - 0.12e2 * t623 * t152 * t1162 - 0.12e2 * t1160 * t457 * t147 * t115 - 0.6e1 * t1160 * t3814 * t115 + 0.24e2 * t2888 * t167 * t403 * t115 - 0.12e2 * t1160 * t1161 * t328 - 0.125000e6 / 0.6561e4 * t1650 * t1361 * t3625 + 0.62500e5 / 0.19683e5 * t3828 * t1669 + 0.31250e5 / 0.19683e5 * t2771 * t168 * t388 - 0.500000e6 / 0.19683e5 * t2771 * t944 * t3765 + 0.50e2 / 0.27e2 * t3837 * t101;
1221   t3841 = t212 * t1358;
1222   t3844 = t212 * t1368;
1223   t3878 = 0.100e3 / 0.27e2 * t3841 * t101 + 0.50e2 / 0.27e2 * t3844 * t101 - 0.5000e4 / 0.729e3 * t2726 * t430 - 0.25e2 / 0.27e2 * t2839 * t1389 - 0.25e2 / 0.27e2 * t945 * t1082 * t3544 - 0.50e2 / 0.27e2 * t3549 * t159 - 0.50e2 / 0.27e2 * t3553 * t159 + 0.25e2 / 0.432e3 * t839 * t400 + 0.25e2 / 0.432e3 * t842 * t400 - 0.625e3 / 0.243e3 * t1741 * t290 * t1361 * t115 - 0.25e2 / 0.27e2 * t3521 * t1083 - 0.25e2 / 0.81e2 * t361 * t1052 - 0.200e3 / 0.27e2 * t1056 * t442 * t1165 * t328 + 0.20000e5 / 0.729e3 * t2138 * t815 * t3752 * t99;
1224   t3914 = 0.25e2 / 0.27e2 * t3013 * t393 - 0.625e3 / 0.1458e4 * t2392 * t1347 - 0.625e3 / 0.1458e4 * t2397 * t1347 + 0.5000e4 / 0.729e3 * t1699 * t1351 + 0.5000e4 / 0.729e3 * t503 * t290 * t429 * t328 + 0.100e3 / 0.27e2 * t2748 * t434 + 0.100e3 / 0.27e2 * t2751 * t434 + 0.100e3 / 0.27e2 * t657 * t1114 + 0.100e3 / 0.81e2 * t1073 * t1106 + 0.5000e4 / 0.2187e4 * t847 * t204 * t1345 * t280 + 0.100e3 / 0.81e2 * t1086 * t1106 - 0.25e2 / 0.9e1 * t2977 * t136 * t10 * t1058 - 0.5000e4 / 0.729e3 * t3080 * t3081 * t1062;
1225   t3957 = 0.2e1 * t236 * t168 * t974 - 0.6e1 * t623 * t367 * t403 - 0.6e1 * t623 * t376 * t403 + 0.2e1 * t236 * t1356 * t115 + 0.4e1 * t236 * t1132 * t147 + 0.4e1 * t236 * t1141 * t147 + 0.4e1 * t236 * t458 * t328 + 0.2e1 * t236 * t367 * t416 + 0.2e1 * t236 * t376 * t416 + 0.4e1 * t236 * t1358 * t115 + 0.2e1 * t236 * t1368 * t115 - 0.62500e5 / 0.19683e5 * t588 * t1370 * t124 + 0.4e1 * t236 * t1143 * t147 + 0.4e1 * t236 * t1130 * t147;
1226   t3993 = 0.4e1 * t236 * t450 * t328 - 0.25e2 / 0.216e3 * t860 * t388 * t136 * t115 - 0.100e3 / 0.27e2 * t2031 * t1403 - 0.100e3 / 0.27e2 * t1933 * t1403 - 0.200e3 / 0.27e2 * t3099 * t1094 - 0.200e3 / 0.27e2 * t3102 * t1094 - 0.100e3 / 0.27e2 * t860 * t3655 + 0.100e3 / 0.9e1 * t2356 * t403 * t37 * t1093 + 0.5000e4 / 0.729e3 * t2070 * t1098 - 0.5000e4 / 0.243e3 * t2667 * t1102 + 0.50e2 / 0.27e2 * t2806 * t1082 * t3682 + 0.50e2 / 0.27e2 * t3646 * t353 + 0.10000e5 / 0.729e3 * t3650 * t349 + 0.50e2 / 0.27e2 * t512 * t1338;
1227   t4024 = 0.50e2 / 0.27e2 * t728 * t1338 + 0.50e2 / 0.27e2 * t213 * t136 * t158 * t974 - 0.25e2 / 0.54e2 * t3206 * t444 - 0.25e2 / 0.54e2 * t3209 * t444 - 0.25e2 / 0.54e2 * t1086 * t1126 - 0.25e2 / 0.54e2 * t3056 * t444 - 0.25e2 / 0.54e2 * t3059 * t444 - 0.25e2 / 0.54e2 * t1073 * t1126 + 0.625e3 / 0.243e3 * t529 * t1397 + 0.625e3 / 0.243e3 * t203 * t3702 * t1396 + 0.25e2 / 0.27e2 * t691 * t439 + 0.500000e6 / 0.19683e5 * t1043 * t2529 * t429 - 0.4375e4 / 0.243e3 * t1298 - 0.325e3 / 0.81e2 * t1300;
1228   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1229     v4rhosigma2tau[0] = -t274 * t1410 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t3748 + t3797 + t3840 + t3878 + t3914 + t3957 + t3993 + t4024);
1230 
1231   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1232     v4rhosigmalapl2[0] = 0.0e0;
1233 
1234   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1235     v4rhosigmalapltau[0] = 0.0e0;
1236 
1237   t4056 = -0.200000e6 / 0.2187e4 * t1387 - 0.1000e4 / 0.81e2 * t1390 + 0.325e3 / 0.81e2 * t1394 + 0.2e1 * t236 * t340 * t477 - t106 * t340 * t486 - t106 * t152 * t1260 - t106 * t124 * t1474 - t106 * t68 * (0.500e3 / 0.27e2 * t1362 - 0.1250000e7 / 0.6561e4 * t1594 * t1471 * t99 + 0.2500000e7 / 0.6561e4 * t1365) - 0.500e3 / 0.81e2 * t1341 - 0.500e3 / 0.81e2 * t1343 - 0.65000e5 / 0.2187e4 * t1348;
1238   t4058 = t588 * t1413;
1239   t4092 = 0.200000e6 / 0.2187e4 * t1352 - 0.500000e6 / 0.19683e5 * t4058 * t1669 + 0.24e2 * t2888 * t477 * t147 * t115 - 0.12e2 * t1160 * t1161 * t375 - 0.12e2 * t1160 * t167 * t457 * t115 - 0.6e1 * t1160 * t486 * t147 * t115 + 0.1000000e7 / 0.6561e4 * t1650 * t1413 * t3625 - 0.1000000e7 / 0.6561e4 * t1372 - 0.6e1 * t623 * t478 * t328 - 0.6e1 * t623 * t1456 * t115 + 0.4e1 * t236 * t450 * t375 + 0.4e1 * t236 * t367 * t457;
1240   t4116 = t465 * t147;
1241   t4126 = t523 * t487 * t37;
1242   t4133 = 0.2e1 * t236 * t1261 * t147 + 0.2e1 * t236 * t487 * t328 + 0.2e1 * t236 * t1467 * t115 + 0.2e1 * t236 * t1475 * t115 + 0.500000e6 / 0.19683e5 * t588 * t1414 * t124 - 0.6e1 * t623 * t1240 * t147 - 0.200e3 / 0.27e2 * t3603 * t1214 - 0.20000e5 / 0.729e3 * t2621 * t1210 + 0.40000e5 / 0.729e3 * t2138 * t1345 * t4116 * t115 - 0.20000e5 / 0.243e3 * t2144 * t1345 * t4116 * t99 + 0.25e2 / 0.54e2 * t4126 * t296 + 0.1250e4 / 0.729e3 * t502 * t487 * t38 * t292;
1243   t4134 = t34 * t457;
1244   t4144 = t1727 * t478 * t37;
1245   t4155 = t428 * t167;
1246   t4179 = -0.200e3 / 0.27e2 * t1056 * t442 * t4134 * t115 - 0.20000e5 / 0.729e3 * t814 * t815 * t4134 * t99 - 0.25e2 / 0.18e2 * t4144 * t296 + 0.25e2 / 0.27e2 * t1171 * t136 * t137 * t375 - 0.2500e4 / 0.729e3 * t1735 * t478 * t38 * t292 - 0.10000e5 / 0.729e3 * t2138 * t1345 * t4155 * t115 + 0.5000e4 / 0.243e3 * t2144 * t1345 * t4155 * t99 - 0.200e3 / 0.27e2 * t2590 * t1433 - 0.200e3 / 0.27e2 * t2594 * t1433 - 0.200e3 / 0.27e2 * t1056 * t442 * t3295 * t147 - 0.200e3 / 0.27e2 * t1056 * t442 * t1208 * t328 + 0.4e1 * t236 * t376 * t457;
1247   t4202 = t42 * t375;
1248   t4213 = 0.4e1 * t236 * t168 * t1140 + 0.2e1 * t236 * t1252 * t147 + 0.2000000e7 / 0.19683e5 * t2771 * t944 * t4116 + 0.20000e5 / 0.729e3 * t2726 * t467 + 0.5000e4 / 0.243e3 * t1741 * t290 * t1413 * t115 - 0.500000e6 / 0.19683e5 * t2771 * t944 * t4155 - 0.25e2 / 0.27e2 * t2839 * t1439 - 0.25e2 / 0.27e2 * t945 * t1082 * t4202 + 0.100e3 / 0.27e2 * t2839 * t1446 + 0.100e3 / 0.27e2 * t945 * t1227 * t3544 + 0.100e3 / 0.27e2 * t3521 * t1228;
1249   t4214 = t523 * t1456;
1250   t4217 = t212 * t1467;
1251   t4220 = t212 * t1475;
1252   t4246 = -0.100e3 / 0.27e2 * t4214 * t101 + 0.50e2 / 0.27e2 * t4217 * t101 + 0.50e2 / 0.27e2 * t4220 * t101 - 0.200e3 / 0.27e2 * t2806 * t1227 * t3682 - 0.20000e5 / 0.729e3 * t1699 * t1419 - 0.20000e5 / 0.729e3 * t503 * t290 * t466 * t328 - 0.20000e5 / 0.729e3 * t2070 * t1198 + 0.20000e5 / 0.243e3 * t2667 * t1204 + 0.25e2 / 0.54e2 * t3382 * t444 + 0.25e2 / 0.54e2 * t1234 * t1126 + 0.100e3 / 0.9e1 * t3399 * t1094 - 0.200e3 / 0.27e2 * t860 * t457 * t37 * t1093;
1253   t4268 = t1438 * t115;
1254   t4276 = -0.25e2 / 0.108e3 * t3358 * t444 - 0.25e2 / 0.108e3 * t3361 * t444 - 0.25e2 / 0.108e3 * t1246 * t1126 - 0.100e3 / 0.27e2 * t3406 * t1094 + 0.5000e4 / 0.729e3 * t1699 * t1429 + 0.5000e4 / 0.729e3 * t503 * t290 * t429 * t375 + 0.100e3 / 0.27e2 * t2748 * t471 + 0.100e3 / 0.27e2 * t2751 * t471 + 0.100e3 / 0.27e2 * t657 * t1223 + 0.50e2 / 0.27e2 * t2806 * t1082 * t4268 + 0.100e3 / 0.27e2 * t512 * t1443 + 0.100e3 / 0.27e2 * t728 * t1443;
1255   t4306 = 0.100e3 / 0.27e2 * t213 * t136 * t158 * t1140 + 0.50e2 / 0.81e2 * t1246 * t1106 - 0.100e3 / 0.81e2 * t1234 * t1106 - 0.100e3 / 0.27e2 * t691 * t474 + 0.200e3 / 0.9e1 * t2615 * t442 * t34 * t1162 + 0.40000e5 / 0.729e3 * t2138 * t3085 * t1161 * t99 + 0.1000e4 / 0.81e2 * t1406 - 0.2000000e7 / 0.19683e5 * t1043 * t2529 * t466 - 0.5000e4 / 0.243e3 * t529 * t1425 - 0.5000e4 / 0.243e3 * t203 * t3702 * t1424 + 0.10000e5 / 0.81e2 * t1398 + 0.1000e4 / 0.81e2 * t1400;
1256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1257     v4rhosigmatau2[0] = -t274 * t1478 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t78 * (t4056 + t4092 + t4133 + t4179 + t4213 + t4246 + t4276 + t4306);
1258 
1259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1260     v4rholapl3[0] = 0.0e0;
1261 
1262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1263     v4rholapl2tau[0] = 0.0e0;
1264 
1265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1266     v4rholapltau2[0] = 0.0e0;
1267 
1268   t4318 = t588 * t1481;
1269   t4321 = t167 * t486;
1270   t4365 = t34 * t477;
1271   t4370 = t34 * t486;
1272   t4379 = -0.250e3 / 0.27e2 * t1462 + 0.24e2 * t1629 * t1506 * t115 - 0.18e2 * t623 * t478 * t375 + 0.6e1 * t236 * t367 * t486 - 0.6e1 * t623 * t124 * t1505 - t106 * t124 * t1517 - t106 * t68 * (-0.10000e5 / 0.81e2 * t1469 + 0.10000000e8 / 0.6561e4 * t1594 * t1514 * t99 - 0.50000000e8 / 0.19683e5 * t1472) + 0.20000000e8 / 0.19683e5 * t1416 + 0.20000e5 / 0.243e3 * t2138 * t815 * t4365 * t99 - 0.100e3 / 0.9e1 * t1056 * t442 * t4370 * t115 - 0.10000e5 / 0.243e3 * t814 * t815 * t4370 * t99;
1273   t4381 = t465 * t167;
1274   t4410 = t1727 * t1506;
1275   t4413 = t212 * t1518;
1276   t4418 = 0.40000e5 / 0.243e3 * t2138 * t1345 * t4381 * t115 - 0.20000e5 / 0.81e2 * t2144 * t1345 * t4381 * t99 + 0.100e3 / 0.3e1 * t2615 * t442 * t4365 * t115 - 0.200e3 / 0.9e1 * t1056 * t442 * t1208 * t375 + 0.2000000e7 / 0.6561e4 * t2771 * t944 * t4381 - 0.40000e5 / 0.243e3 * t1741 * t290 * t1481 * t115 + 0.100e3 / 0.9e1 * t2839 * t1498 + 0.100e3 / 0.9e1 * t945 * t1227 * t4202 + 0.100e3 / 0.9e1 * t4410 * t101 + 0.50e2 / 0.27e2 * t4413 * t101 - 0.20000e5 / 0.243e3 * t1699 * t1487;
1277   t4448 = -0.20000e5 / 0.243e3 * t503 * t290 * t466 * t375 - 0.100e3 / 0.9e1 * t2031 * t1495 - 0.100e3 / 0.9e1 * t1933 * t1495 - 0.200e3 / 0.9e1 * t2806 * t1227 * t4268 + 0.50e2 / 0.9e1 * t512 * t1502 + 0.50e2 / 0.9e1 * t728 * t1502 + 0.50e2 / 0.9e1 * t213 * t136 * t158 * t1260 - 0.100e3 / 0.9e1 * t860 * t486 * t37 * t1093 + 0.40000e5 / 0.243e3 * t529 * t1491 + 0.40000e5 / 0.243e3 * t203 * t3702 * t1490 - 0.200000e6 / 0.243e3 * t1426;
1278   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1279     v4rhotau3[0] = -t274 * t1521 / 0.4e1 - 0.3e1 / 0.16e2 * t77 * t78 * (-0.8000000e7 / 0.6561e4 * t1650 * t1481 * t3625 + 0.4000000e7 / 0.19683e5 * t4318 * t1669 - 0.18e2 * t1160 * t4321 * t115 - 0.1000e4 / 0.27e2 * t1440 + 0.6e1 * t236 * t376 * t486 + 0.6e1 * t236 * t168 * t1260 + 0.2e1 * t236 * t1518 * t115 - 0.4000000e7 / 0.19683e5 * t588 * t1482 * t124 + 0.200000e6 / 0.729e3 * t1430 + 0.500e3 / 0.27e2 * t1451 + t4379 + t4418 + t4448);
1280 
1281   t4481 = t403 * t403;
1282   t4485 = t416 * t416;
1283   t4492 = t42 * t403;
1284   t4496 = t42 * t416;
1285   t4506 = t106 * t68 * params->b;
1286   t4508 = 0.1e1 / t21 / t748;
1287   t4509 = t4508 * t10;
1288   t4514 = t92 * t1273 * t37;
1289   t4517 = 0.24e2 * t236 * t407 * t416 + 0.8e1 * t236 * t148 * t1316 + 0.31250e5 / 0.19683e5 * t588 * t1285 * t152 - 0.36e2 * t623 * t404 * t416 - 0.4e1 * t106 * t1273 * t147 - 0.24e2 * t623 * t152 * t1289 + 0.12e2 * t236 * t421 * t403 - 0.6e1 * t106 * t421 * t416 - 0.4e1 * t106 * t152 * t1316 + 0.24e2 * t1629 * t68 * t4481 + 0.6e1 * t236 * t68 * t4485 + 0.50e2 / 0.9e1 * t523 * t1293 * t444 - 0.25e2 / 0.36e2 * t2806 * t946 * t4492 + 0.25e2 / 0.72e2 * t945 * t946 * t4496 + 0.625e3 / 0.486e3 * t502 * t68 * t1268 * t290 * t1092 - 0.78125e5 / 0.209952e6 * t4506 * t1650 * t4509 + 0.25e2 / 0.27e2 * t4514 * t138;
1290   t4525 = t687 * t10;
1291   t4557 = t4508 * t13 * t130;
1292   t4558 = t1567 * t50 * t4557;
1293   t4565 = 0.625e3 / 0.243e3 * t3650 * t389 + 0.25e2 / 0.36e2 * t3521 * t1278 - 0.31250e5 / 0.19683e5 * t3617 * t1803 - 0.15625e5 / 0.52488e5 * t1650 * t4508 * t4525 + 0.1250e4 / 0.243e3 * t1736 * t290 * t388 * t403 + 0.50e2 / 0.9e1 * t3524 * t444 - 0.25e2 / 0.9e1 * t3530 * t444 - 0.25e2 / 0.27e2 * t3533 * t444 - 0.625e3 / 0.243e3 * t503 * t290 * t388 * t416 - 0.1250e4 / 0.243e3 * t2070 * t1320 - 0.25e2 / 0.9e1 * t3646 * t393 - 0.50e2 / 0.9e1 * t3556 * t444 - 0.625e3 / 0.486e3 * t696 * t1297 - 0.25e2 / 0.72e2 * t1049 * t400 + 0.625e3 / 0.15552e5 * t203 * t4509 * t290 - 0.625e3 / 0.1549681956e10 * t4558 + t62 * (-0.625e3 / 0.1549681956e10 * t1537 * t50 * t4557 + 0.625e3 / 0.1549681956e10 * t4558);
1294   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1295     v4sigma4[0] = -0.3e1 / 0.16e2 * t77 * t78 * (t4517 + t4565);
1296 
1297   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1298     v4sigma3lapl[0] = 0.0e0;
1299 
1300   t4605 = 0.2e1 * t236 * t168 * t1316 + 0.6e1 * t236 * t1356 * t147 + 0.12e2 * t236 * t1358 * t147 + 0.6e1 * t236 * t1368 * t147 - 0.62500e5 / 0.6561e4 * t588 * t1370 * t152 - 0.18e2 * t623 * t450 * t403 - 0.18e2 * t623 * t458 * t403 + 0.6e1 * t236 * t450 * t416 + 0.6e1 * t236 * t458 * t416 + 0.24e2 * t1629 * t168 * t1289 - 0.3e1 * t106 * t152 * t1367 - t106 * t1273 * t167;
1301   t4628 = 0.1e1 / t21 / t1016;
1302   t4629 = t4628 * t10;
1303   t4642 = -0.3e1 * t106 * t421 * t457 + 0.625e3 / 0.243e3 * t3080 * t1320 - 0.100e3 / 0.9e1 * t1056 * t442 * t3776 * t147 + 0.25e2 / 0.9e1 * t3786 * t393 + 0.25e2 / 0.9e1 * t3794 * t393 + 0.25e2 / 0.18e2 * t523 * t1381 * t444 - 0.25e2 / 0.6e1 * t1727 * t1384 * t444 - 0.25e2 / 0.9e1 * t3521 * t1389 + 0.78125e5 / 0.26244e5 * t4506 * t1650 * t4629 - 0.2500e4 / 0.243e3 * t3650 * t430 - 0.50e2 / 0.27e2 * t4514 * t159 - 0.25e2 / 0.18e2 * t945 * t1082 * t4496 + 0.25e2 / 0.144e3 * t1086 * t400;
1304   t4679 = 0.25e2 / 0.144e3 * t1073 * t400 + 0.25e2 / 0.9e1 * t2806 * t1082 * t4492 + 0.625e3 / 0.1944e4 * t847 * t1297 - 0.625e3 / 0.81e2 * t1741 * t290 * t1361 * t147 - 0.15625e5 / 0.39366e5 * t3617 * t2296 + 0.62500e5 / 0.6561e4 * t3828 * t1803 + 0.15625e5 / 0.6561e4 * t1650 * t4628 * t4525 - 0.18e2 * t1160 * t3814 * t147 - 0.5000e4 / 0.243e3 * t1736 * t290 * t429 * t403 - 0.100e3 / 0.9e1 * t2673 * t1403 + 0.100e3 / 0.9e1 * t1986 * t136 * t158 * t1289 - 0.25e2 / 0.72e2 * t860 * t388 * t136 * t147;
1305   t4711 = -0.625e3 / 0.486e3 * t3203 * t1347 - 0.25e2 / 0.36e2 * t3844 * t444 - 0.625e3 / 0.486e3 * t3070 * t1347 + 0.5000e4 / 0.243e3 * t2070 * t1351 + 0.50e2 / 0.9e1 * t3646 * t434 + 0.50e2 / 0.9e1 * t657 * t1338 + 0.50e2 / 0.27e2 * t213 * t136 * t158 * t1316 + 0.2500e4 / 0.243e3 * t503 * t290 * t429 * t416 - 0.25e2 / 0.36e2 * t3837 * t444 - 0.25e2 / 0.18e2 * t3841 * t444 + 0.625e3 / 0.81e2 * t696 * t1397 + 0.25e2 / 0.18e2 * t1049 * t439 - 0.625e3 / 0.1944e4 * t203 * t4629 * t290;
1306   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1307     v4sigma3tau[0] = -0.3e1 / 0.16e2 * t77 * t78 * (t4605 + t4642 + t4679 + t4711);
1308 
1309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1310     v4sigma2lapl2[0] = 0.0e0;
1311 
1312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1313     v4sigma2lapltau[0] = 0.0e0;
1314 
1315   t4725 = t457 * t457;
1316   t4732 = 0.1e1 / t21 / t541;
1317   t4755 = 0.2e1 * t236 * t421 * t477 - t106 * t421 * t486 - 0.2e1 * t106 * t152 * t1474 + 0.4e1 * t236 * t68 * t4725 - 0.1000000e7 / 0.19683e5 * t4058 * t1803 - 0.125000e6 / 0.6561e4 * t1650 * t4732 * t4525 + 0.125000e6 / 0.19683e5 * t3828 * t2296 - 0.24e2 * t1160 * t1161 * t457 + 0.200e3 / 0.9e1 * t2615 * t442 * t1208 * t403 - 0.25e2 / 0.9e1 * t4144 * t393 + 0.50e2 / 0.27e2 * t1171 * t136 * t137 * t457 + 0.25e2 / 0.27e2 * t4126 * t393 - 0.400e3 / 0.27e2 * t3603 * t1433;
1318   t4779 = t42 * t457;
1319   t4792 = t4732 * t10;
1320   t4800 = -0.400e3 / 0.27e2 * t1056 * t442 * t4134 * t147 - 0.200e3 / 0.27e2 * t1056 * t442 * t1208 * t416 - 0.20000e5 / 0.729e3 * t2138 * t1345 * t4155 * t147 + 0.20000e5 / 0.729e3 * t3650 * t467 - 0.200e3 / 0.27e2 * t2806 * t1227 * t4492 - 0.1250e4 / 0.243e3 * t1741 * t290 * t1361 * t167 - 0.50e2 / 0.27e2 * t3521 * t1439 - 0.50e2 / 0.27e2 * t945 * t1082 * t4779 + 0.200e3 / 0.27e2 * t3521 * t1446 + 0.100e3 / 0.27e2 * t945 * t1227 * t4496 - 0.25e2 / 0.216e3 * t1234 * t400 + 0.25e2 / 0.432e3 * t1246 * t400 - 0.156250e6 / 0.6561e4 * t4506 * t1650 * t4792 + 0.10000e5 / 0.243e3 * t1741 * t290 * t1413 * t147;
1321   t4802 = t1438 * t147;
1322   t4836 = 0.100e3 / 0.27e2 * t2806 * t1082 * t4802 + 0.100e3 / 0.27e2 * t3646 * t471 + 0.200e3 / 0.27e2 * t657 * t1443 + 0.40000e5 / 0.729e3 * t1736 * t290 * t466 * t403 - 0.625e3 / 0.1458e4 * t3366 * t1347 + 0.100e3 / 0.27e2 * t213 * t136 * t158 * t1367 + 0.25e2 / 0.27e2 * t4214 * t444 + 0.625e3 / 0.729e3 * t3350 * t1347 - 0.25e2 / 0.54e2 * t4217 * t444 - 0.25e2 / 0.54e2 * t4220 * t444 - 0.40000e5 / 0.729e3 * t2070 * t1419 - 0.20000e5 / 0.729e3 * t503 * t290 * t466 * t416 + 0.10000e5 / 0.729e3 * t2070 * t1429;
1323   t4878 = 0.10000e5 / 0.729e3 * t503 * t290 * t429 * t457 - 0.10000e5 / 0.243e3 * t696 * t1425 + 0.625e3 / 0.243e3 * t203 * t4792 * t290 - 0.100e3 / 0.27e2 * t1049 * t474 - 0.12e2 * t623 * t1456 * t147 - 0.6e1 * t623 * t478 * t416 + 0.8e1 * t236 * t450 * t457 + 0.4e1 * t236 * t168 * t1367 + 0.4e1 * t236 * t1467 * t147 + 0.4e1 * t236 * t1475 * t147 + 0.2e1 * t236 * t487 * t416 + 0.1000000e7 / 0.19683e5 * t588 * t1414 * t152 + 0.24e2 * t1629 * t478 * t403 - 0.6e1 * t623 * t487 * t403;
1324   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1325     v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t77 * t78 * (t4755 + t4800 + t4836 + t4878);
1326 
1327   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1328     v4sigmalapl3[0] = 0.0e0;
1329 
1330   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1331     v4sigmalapl2tau[0] = 0.0e0;
1332 
1333   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1334     v4sigmalapltau2[0] = 0.0e0;
1335 
1336   t4903 = t42 * t486;
1337   t4908 = 0.1e1 / t21 / t189;
1338   t4909 = t4908 * t10;
1339   t4921 = t42 * t477;
1340   t4947 = 0.100e3 / 0.3e1 * t2615 * t442 * t4365 * t147 - 0.200e3 / 0.9e1 * t1056 * t442 * t1208 * t457 - 0.100e3 / 0.9e1 * t1056 * t442 * t4370 * t147 + 0.25e2 / 0.18e2 * t523 * t1509 * t444 + 0.40000e5 / 0.243e3 * t2138 * t1345 * t4381 * t147 - 0.25e2 / 0.18e2 * t945 * t1082 * t4903 + 0.1250000e7 / 0.6561e4 * t4506 * t1650 * t4909 + 0.5000e4 / 0.81e2 * t1741 * t290 * t1413 * t167 - 0.40000e5 / 0.243e3 * t1741 * t290 * t1481 * t147 + 0.25e2 / 0.9e1 * t2806 * t1082 * t4921 + 0.100e3 / 0.9e1 * t3521 * t1498 + 0.100e3 / 0.9e1 * t945 * t1227 * t4779 + 0.40000e5 / 0.243e3 * t696 * t1491 - 0.5000e4 / 0.243e3 * t203 * t4909 * t290 + 0.50e2 / 0.9e1 * t213 * t136 * t158 * t1474 + 0.2500e4 / 0.243e3 * t503 * t290 * t429 * t486 - 0.25e2 / 0.18e2 * t4410 * t444 - 0.25e2 / 0.108e3 * t4413 * t444;
1341   t5001 = -0.20000e5 / 0.243e3 * t2070 * t1487 - 0.20000e5 / 0.243e3 * t503 * t290 * t466 * t457 - 0.100e3 / 0.9e1 * t2673 * t1495 - 0.5000e4 / 0.243e3 * t1736 * t290 * t429 * t477 - 0.200e3 / 0.9e1 * t2806 * t1227 * t4802 + 0.50e2 / 0.9e1 * t657 * t1502 + 0.6e1 * t236 * t458 * t486 + 0.6e1 * t236 * t168 * t1474 + 0.2e1 * t236 * t1518 * t147 - 0.4000000e7 / 0.19683e5 * t588 * t1482 * t152 + 0.24e2 * t1629 * t1506 * t147 - 0.18e2 * t623 * t478 * t457 + 0.6e1 * t236 * t450 * t486 + 0.4000000e7 / 0.19683e5 * t4318 * t1803 + 0.1000000e7 / 0.6561e4 * t1650 * t4908 * t4525 - 0.500000e6 / 0.6561e4 * t4058 * t2296 - 0.6e1 * t623 * t152 * t1505 - t106 * t152 * t1517 - 0.18e2 * t1160 * t4321 * t147;
1342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1343     v4sigmatau3[0] = -0.3e1 / 0.16e2 * t77 * t78 * (t4947 + t5001);
1344 
1345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1346     v4lapl4[0] = 0.0e0;
1347 
1348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1349     v4lapl3tau[0] = 0.0e0;
1350 
1351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1352     v4lapl2tau2[0] = 0.0e0;
1353 
1354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1355     v4lapltau3[0] = 0.0e0;
1356 
1357   t5006 = t477 * t477;
1358   t5013 = t486 * t486;
1359   t5061 = 0.24e2 * t1629 * t68 * t5006 - 0.36e2 * t623 * t478 * t486 + 0.6e1 * t236 * t68 * t5013 + 0.8e1 * t236 * t168 * t1517 + 0.16000000e8 / 0.19683e5 * t4318 * t2296 - 0.8000000e7 / 0.6561e4 * t1650 * t1560 * t4525 + 0.200e3 / 0.27e2 * t213 * t136 * t158 * t1517 - 0.40000e5 / 0.243e3 * t503 * t290 * t466 * t486 - 0.160000e6 / 0.243e3 * t1741 * t290 * t1481 * t167 + 0.40000e5 / 0.243e3 * t203 * t1561 * t290 - 0.400e3 / 0.9e1 * t2806 * t1227 * t4921 + 0.200e3 / 0.9e1 * t945 * t1227 * t4903 - 0.10000000e8 / 0.6561e4 * t4506 * t1650 * t1561 + 0.80000e5 / 0.243e3 * t1736 * t290 * t466 * t477 + 0.400e3 / 0.9e1 * t1986 * t136 * t158 * t1505 - 0.400e3 / 0.9e1 * t1056 * t442 * t1208 * t486;
1360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1361     v4tau4[0] = -0.3e1 / 0.16e2 * t77 * t78 * t5061;
1362 
1363 #ifndef XC_DONT_COMPILE_MXC
1364 
1365   if(order < 5) return;
1366 
1367 
1368 #endif
1369 
1370 #endif
1371 
1372 #endif
1373 
1374 #endif
1375 
1376 #endif
1377 
1378 
1379 }
1380 
1381 
1382 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 *))1383 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 *))
1384 {
1385 
1386 #ifndef XC_DONT_COMPILE_EXC
1387   double t2, t4, t5, t6, t7, t8, t9, t10;
1388   double t11, t12, t13, t14, t15, t16, t17, t19;
1389   double t20, t22, t23, t27, t29, t32, t33, t34;
1390   double t37, t40, t41, t42, t43, t44, t45, t48;
1391   double t51, t52, t55, t56, t57, t58, t63, t65;
1392   double t67;
1393 
1394 #ifndef XC_DONT_COMPILE_VXC
1395   double t71, t72, t73, t74, t76, t77, t78, t79;
1396   double t81, t82, t83, t85, t86, t87, t92, t93;
1397   double t94, t97, t98, t99, t100, t104, t105, t108;
1398   double t109, t111, t113, t114, t117, t119, t123, t124;
1399   double t126, t127, t128, t130, t132, t133, t135, t136;
1400   double t140, t143, t146, t147, t152, t155, t156, t159;
1401 
1402 #ifndef XC_DONT_COMPILE_FXC
1403   double t162, t163, t171, t172, t173, t174, t175, t176;
1404   double t178, t179, t181, t183, t184, t186, t187, t188;
1405   double t189, t191, t192, t193, t194, t197, t198, t199;
1406   double t200, t201, t202, t205, t208, t209, t216, t217;
1407   double t218, t222, t223, t224, t225, t228, t231, t236;
1408   double t237, t243, t248, t249, t254, t256, t260, t263;
1409   double t265, t267, t269, t270, t272, t273, t274, t275;
1410   double t276, t277, t278, t280, t281, t282, t284, t286;
1411   double t287, t288, t290, t291, t292, t294, t300, t302;
1412   double t304, t307, t309, t310, t312, t313, t315, t324;
1413   double t326, t327, t332, t333, t336, t337, t342, t346;
1414   double t352, t361, t362, t365, t368, t370, t371, t372;
1415   double t374, t375, t376, t378, t379, t380, t382, t384;
1416   double t386, t387, t390, t393, t395, t396, t398, t399;
1417   double t403, t406, t410, t411, t412, t413, t415, t416;
1418   double t421, t422, t423, t425, t427, t430, t432, t434;
1419   double t435, t437, t438, t441, t445, t446, t447, t450;
1420   double t451, t454, t455, t458, t459, t464, t467, t468;
1421   double t471;
1422 
1423 #ifndef XC_DONT_COMPILE_KXC
1424   double t474, t484, t486, t487, t488, t489, t490, t491;
1425   double t492, t496, t497, t501, t502, t505, t507, t509;
1426   double t511, t513, t514, t516, t519, t522, t525, t528;
1427   double t535, t538, t548, t549, t551, t552, t553, t554;
1428   double t555, t560, t563, t565, t568, t569, t570, t573;
1429   double t574, t577, t580, t581, t584, t585, t592, t595;
1430   double t596, t600, t607, t608, t613, t614, t616, t621;
1431   double t622, t626, t631, t632, t634, t637, t642, t644;
1432   double t645, t649, t652, t656, t658, t660, t661, t663;
1433   double t665, t668, t670, t673, t674, t676, t677, t679;
1434   double t680, t682, t685, t688, t691, t693, t694, t696;
1435   double t697, t700, t703, t705, t707, t708, t709, t711;
1436   double t716, t719, t721, t722, t724, t725, t726, t729;
1437   double t732, t746, t747, t749, t750, t751, t754, t755;
1438   double t757, t758, t759, t760, t763, t766, t767, t770;
1439   double t771, t772, t774, t775, t777, t779, t780, t781;
1440   double t785, t786, t787, t788, t790, t792, t796, t797;
1441   double t799, t802, t820, t825, t828, t829, t833, t838;
1442   double t839, t847, t850, t853, t854, t871, t872, t874;
1443   double t880, t884, t891, t895, t899, t902, t904, t909;
1444   double t911, t914, t917, t920, t922, t923, t925, t928;
1445   double t930, t931, t933, t934, t936, t937, t938, t939;
1446   double t941, t942, t944, t961, t963, t966, t969, t970;
1447   double t971, t973, t974, t975, t979, t981, t982, t984;
1448   double t986, t987, t988, t990, t992, t993, t994, t996;
1449   double t999, t1001, t1003, t1005, t1006, t1007, t1009, t1013;
1450   double t1014, t1016, t1018, t1019, t1020, t1022, t1024, t1027;
1451   double t1028, t1031, t1032, t1034, t1036, t1041, t1043, t1045;
1452   double t1047, t1051, t1054, t1055, t1072, t1073, t1074, t1077;
1453   double t1078, t1084, t1085, t1092, t1094, t1096, t1098, t1099;
1454   double t1102, t1105, t1111, t1112, t1114, t1119, t1121, t1122;
1455   double t1123, t1126, t1127, t1131, t1135, t1138, t1139, t1140;
1456   double t1142, t1144, t1145, t1147, t1148, t1149, t1152, t1154;
1457   double t1159, t1162, t1163, t1169, t1174, t1178, t1186, t1187;
1458   double t1190, t1191, t1197, t1203, t1209, t1215, t1224, t1225;
1459   double t1227, t1229, t1232, t1233, t1235, t1237, t1238, t1244;
1460   double t1245, t1246, t1248, t1250, t1251, t1252, t1254, t1255;
1461   double t1257, t1260, t1263, t1267, t1268, t1270, t1271, t1275;
1462   double t1277, t1278, t1279, t1281, t1283, t1285, t1287, t1288;
1463   double t1289, t1291, t1292, t1293, t1295, t1296, t1299, t1301;
1464   double t1304, t1305, t1307, t1308, t1310, t1311, t1313, t1315;
1465   double t1326, t1327, t1328, t1332, t1333, t1336, t1338, t1339;
1466   double t1341, t1343, t1344, t1347, t1348, t1349, t1351, t1356;
1467   double t1357, t1358, t1360, t1362, t1363, t1364, t1366, t1367;
1468   double t1371, t1373, t1376, t1377, t1379, t1381, t1382, t1387;
1469   double t1388, t1389, t1391, t1392, t1393, t1396, t1401, t1402;
1470   double t1403, t1405, t1406, t1409, t1414, t1419, t1425, t1430;
1471   double t1432, t1434, t1435, t1437, t1438, t1440, t1441, t1444;
1472   double t1445, t1449, t1450, t1453, t1454, t1457, t1458, t1461;
1473   double t1464, t1465, t1468, t1469, t1477, t1480, t1481, t1484;
1474 
1475 #ifndef XC_DONT_COMPILE_LXC
1476   double t1499, t1516, t1524, t1525, t1534, t1538, t1545, t1548;
1477   double t1562, t1563, t1569, t1574, t1585, t1588, t1593, t1598;
1478   double t1601, t1605, t1612, t1613, t1618, t1620, t1625, t1632;
1479   double t1634, t1635, t1637, t1644, t1647, t1649, t1651, t1652;
1480   double t1663, t1674, t1675, t1679, t1703, t1728, t1742, t1743;
1481   double t1744, t1747, t1753, t1766, t1770, t1774, t1778, t1793;
1482   double t1799, t1804, t1816, t1837, t1841, t1845, t1848, t1865;
1483   double t1869, t1880, t1903, t1909, t1912, t1919, t1924, t1934;
1484   double t1936, t1946, t1966, t1973, t1982, t1986, t1991, t2018;
1485   double t2046, t2061, t2090, t2095, t2097, t2098, t2100, t2101;
1486   double t2107, t2111, t2121, t2127, t2129, t2142, t2160, t2168;
1487   double t2177, t2188, t2191, t2196, t2199, t2204, t2225, t2269;
1488   double t2303, t2306, t2311, t2314, t2330, t2347, t2350, t2375;
1489   double t2394, t2396, t2397, t2399, t2424, t2431, t2462, t2476;
1490   double t2484, t2516, t2528, t2532, t2544, t2552, t2555, t2576;
1491   double t2582, t2618, t2626, t2634, t2638, t2641, t2648, t2650;
1492   double t2658, t2672, t2696, t2725, t2728, t2737, t2755, t2759;
1493   double t2777, t2806, t2865, t2904, t2905, t2910, t2919, t2922;
1494   double t2927, t2930, t2933, t2938, t2953, t2992, t3001, t3042;
1495   double t3084, t3087, t3098, t3144, t3163, t3171, t3183, t3218;
1496   double t3223, t3226, t3229, t3234, t3237, t3292, t3299, t3302;
1497   double t3364, t3375, t3381, t3383, t3394, t3397, t3404, t3410;
1498   double t3417, t3432, t3490, t3495, t3502, t3505, t3549, t3556;
1499   double t3589, t3590, t3625, t3651, t3697, t3746, t3785, t3822;
1500   double t3829, t3848, t3859, t3866, t3888, t3891, t3894, t3905;
1501   double t3936, t3968, t4001, t4014, t4032, t4067, t4104, t4134;
1502   double t4144, t4146, t4155, t4158, t4173, t4176, t4186, t4208;
1503   double t4270, t4274, t4307, t4310, t4314, t4317, t4318, t4346;
1504   double t4353, t4354, t4355, t4357, t4383, t4387, t4402, t4406;
1505   double t4413, t4414, t4422, t4423, t4460, t4496, t4503, t4540;
1506   double t4573, t4610, t4624, t4632, t4658, t4686, t4701, t4742;
1507   double t4771, t4782, t4792, t4828, t4837, t4845, t4906, t4917;
1508   double t4924, t4969;
1509 #endif
1510 
1511 #endif
1512 
1513 #endif
1514 
1515 #endif
1516 
1517 #endif
1518 
1519 
1520   mgga_x_ms_params *params;
1521 
1522   assert(p->params != NULL);
1523   params = (mgga_x_ms_params * ) (p->params);
1524 
1525   t2 = M_CBRT3;
1526   t4 = POW_1_3(0.1e1 / M_PI);
1527   t5 = t2 * t4;
1528   t6 = M_CBRT4;
1529   t7 = t6 * t6;
1530   t8 = POW_1_3(rho[0]);
1531   t9 = t7 * t8;
1532   t10 = M_CBRT6;
1533   t11 = M_PI * M_PI;
1534   t12 = POW_1_3(t11);
1535   t13 = t12 * t12;
1536   t14 = 0.1e1 / t13;
1537   t15 = t10 * t14;
1538   t16 = rho[0] * rho[0];
1539   t17 = t8 * t8;
1540   t19 = 0.1e1 / t17 / t16;
1541   t20 = sigma[0] * t19;
1542   t22 = 0.5e1 / 0.972e3 * t15 * t20;
1543   t23 = params->kappa + t22;
1544   t27 = params->kappa * (0.1e1 - params->kappa / t23);
1545   t29 = 0.1e1 / t17 / rho[0];
1546   t32 = tau[0] * t29 - t20 / 0.8e1;
1547   t33 = t32 * t32;
1548   t34 = t10 * t10;
1549   t37 = 0.1e1 / t12 / t11;
1550   t40 = 0.1e1 - 0.25e2 / 0.81e2 * t33 * t34 * t37;
1551   t41 = t40 * t40;
1552   t42 = t41 * t40;
1553   t43 = t33 * t32;
1554   t44 = t11 * t11;
1555   t45 = 0.1e1 / t44;
1556   t48 = t33 * t33;
1557   t51 = t44 * t44;
1558   t52 = 0.1e1 / t51;
1559   t55 = 0.1e1 + 0.250e3 / 0.243e3 * t43 * t45 + 0.62500e5 / 0.59049e5 * params->b * t48 * t33 * t52;
1560   t56 = 0.1e1 / t55;
1561   t57 = t42 * t56;
1562   t58 = params->kappa + t22 + params->c;
1563   t63 = params->kappa * (0.1e1 - params->kappa / t58) - t27;
1564   t65 = t57 * t63 + t27 + 0.1e1;
1565   t67 = t5 * t9 * t65;
1566   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1567     zk[0] = -0.3e1 / 0.8e1 * t67;
1568 
1569 #ifndef XC_DONT_COMPILE_VXC
1570 
1571   if(order < 1) return;
1572 
1573 
1574   t71 = t8 * rho[0] * t2;
1575   t72 = t4 * t7;
1576   t73 = params->kappa * params->kappa;
1577   t74 = t23 * t23;
1578   t76 = t73 / t74;
1579   t77 = t76 * t10;
1580   t78 = t14 * sigma[0];
1581   t79 = t16 * rho[0];
1582   t81 = 0.1e1 / t17 / t79;
1583   t82 = t78 * t81;
1584   t83 = t77 * t82;
1585   t85 = t41 * t56;
1586   t86 = t85 * t63;
1587   t87 = t32 * t34;
1588   t92 = -0.5e1 / 0.3e1 * tau[0] * t19 + sigma[0] * t81 / 0.3e1;
1589   t93 = t37 * t92;
1590   t94 = t87 * t93;
1591   t97 = t55 * t55;
1592   t98 = 0.1e1 / t97;
1593   t99 = t42 * t98;
1594   t100 = t33 * t45;
1595   t104 = params->b * t48 * t32;
1596   t105 = t52 * t92;
1597   t108 = 0.250e3 / 0.81e2 * t100 * t92 + 0.125000e6 / 0.19683e5 * t104 * t105;
1598   t109 = t63 * t108;
1599   t111 = t58 * t58;
1600   t113 = t73 / t111;
1601   t114 = t113 * t10;
1602   t117 = -0.10e2 / 0.729e3 * t114 * t82 + 0.10e2 / 0.729e3 * t83;
1603   t119 = -0.10e2 / 0.729e3 * t83 - 0.50e2 / 0.27e2 * t86 * t94 - t99 * t109 + t57 * t117;
1604   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1605     vrho[0] = -t67 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t72 * t119;
1606 
1607   t123 = t15 * t19;
1608   t124 = t76 * t123;
1609   t126 = t37 * t19;
1610   t127 = t87 * t126;
1611   t128 = t86 * t127;
1612   t130 = t100 * t19;
1613   t132 = t52 * t19;
1614   t133 = t104 * t132;
1615   t135 = -0.125e3 / 0.324e3 * t130 - 0.15625e5 / 0.19683e5 * t133;
1616   t136 = t63 * t135;
1617   t140 = 0.5e1 / 0.972e3 * t113 * t123 - 0.5e1 / 0.972e3 * t124;
1618   t143 = t72 * (0.5e1 / 0.972e3 * t124 + 0.25e2 / 0.108e3 * t128 - t99 * t136 + t57 * t140);
1619   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1620     vsigma[0] = -0.3e1 / 0.8e1 * t71 * t143;
1621 
1622   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1623     vlapl[0] = 0.0e0;
1624 
1625   t146 = t37 * t29;
1626   t147 = t87 * t146;
1627   t152 = t52 * t29;
1628   t155 = 0.250e3 / 0.81e2 * t100 * t29 + 0.125000e6 / 0.19683e5 * t104 * t152;
1629   t156 = t63 * t155;
1630   t159 = t72 * (-0.50e2 / 0.27e2 * t86 * t147 - t99 * t156);
1631   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1632     vtau[0] = -0.3e1 / 0.8e1 * t71 * t159;
1633 
1634 #ifndef XC_DONT_COMPILE_FXC
1635 
1636   if(order < 2) return;
1637 
1638 
1639   t162 = 0.1e1 / t17;
1640   t163 = t7 * t162;
1641   t171 = t73 / t74 / t23;
1642   t172 = t171 * t34;
1643   t173 = sigma[0] * sigma[0];
1644   t174 = t37 * t173;
1645   t175 = t16 * t16;
1646   t176 = t175 * t79;
1647   t178 = 0.1e1 / t8 / t176;
1648   t179 = t174 * t178;
1649   t181 = 0.200e3 / 0.531441e6 * t172 * t179;
1650   t183 = 0.1e1 / t17 / t175;
1651   t184 = t78 * t183;
1652   t186 = 0.110e3 / 0.2187e4 * t77 * t184;
1653   t187 = t40 * t56;
1654   t188 = t187 * t63;
1655   t189 = t33 * t10;
1656   t191 = 0.1e1 / t13 / t44;
1657   t192 = t92 * t92;
1658   t193 = t191 * t192;
1659   t194 = t189 * t193;
1660   t197 = t41 * t98;
1661   t198 = t63 * t32;
1662   t199 = t197 * t198;
1663   t200 = t34 * t37;
1664   t201 = t92 * t108;
1665   t202 = t200 * t201;
1666   t205 = t85 * t117;
1667   t208 = t192 * t34;
1668   t209 = t208 * t37;
1669   t216 = 0.40e2 / 0.9e1 * tau[0] * t81 - 0.11e2 / 0.9e1 * sigma[0] * t183;
1670   t217 = t37 * t216;
1671   t218 = t87 * t217;
1672   t222 = 0.1e1 / t97 / t55;
1673   t223 = t42 * t222;
1674   t224 = t108 * t108;
1675   t225 = t63 * t224;
1676   t228 = t117 * t108;
1677   t231 = t32 * t45;
1678   t236 = params->b * t48;
1679   t237 = t52 * t192;
1680   t243 = 0.500e3 / 0.81e2 * t231 * t192 + 0.250e3 / 0.81e2 * t100 * t216 + 0.625000e6 / 0.19683e5 * t236 * t237 + 0.125000e6 / 0.19683e5 * t104 * t52 * t216;
1681   t248 = t73 / t111 / t58;
1682   t249 = t248 * t34;
1683   t254 = -0.200e3 / 0.531441e6 * t249 * t179 + 0.110e3 / 0.2187e4 * t114 * t184 + t181 - t186;
1684   t256 = -t181 + t186 + 0.10000e5 / 0.729e3 * t188 * t194 + 0.100e3 / 0.27e2 * t199 * t202 - 0.100e3 / 0.27e2 * t205 * t94 - 0.50e2 / 0.27e2 * t86 * t209 - 0.50e2 / 0.27e2 * t86 * t218 + 0.2e1 * t223 * t225 - 0.2e1 * t99 * t228 - t99 * t63 * t243 + t57 * t254;
1685   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1686     v2rho2[0] = -t5 * t163 * t65 / 0.6e1 - t5 * t9 * t119 - 0.3e1 / 0.8e1 * t71 * t72 * t256;
1687 
1688   t260 = t8 * t2;
1689   t263 = t175 * t16;
1690   t265 = 0.1e1 / t8 / t263;
1691   t267 = t37 * t265 * sigma[0];
1692   t269 = 0.25e2 / 0.177147e6 * t172 * t267;
1693   t270 = t15 * t81;
1694   t272 = 0.10e2 / 0.729e3 * t76 * t270;
1695   t273 = t63 * t33;
1696   t274 = t187 * t273;
1697   t275 = t10 * t191;
1698   t276 = t19 * t92;
1699   t277 = t275 * t276;
1700   t278 = t274 * t277;
1701   t280 = t19 * t108;
1702   t281 = t200 * t280;
1703   t282 = t199 * t281;
1704   t284 = t205 * t127;
1705   t286 = t92 * t34;
1706   t287 = t286 * t126;
1707   t288 = t86 * t287;
1708   t290 = t37 * t81;
1709   t291 = t87 * t290;
1710   t292 = t86 * t291;
1711   t294 = t197 * t136;
1712   t300 = t117 * t135;
1713   t302 = t231 * t276;
1714   t304 = t100 * t81;
1715   t307 = t236 * t132 * t92;
1716   t309 = t52 * t81;
1717   t310 = t104 * t309;
1718   t312 = -0.125e3 / 0.162e3 * t302 + 0.250e3 / 0.243e3 * t304 - 0.78125e5 / 0.19683e5 * t307 + 0.125000e6 / 0.59049e5 * t310;
1719   t313 = t63 * t312;
1720   t315 = t85 * t140;
1721   t324 = 0.25e2 / 0.177147e6 * t249 * t267 - 0.10e2 / 0.729e3 * t113 * t270 - t269 + t272;
1722   t326 = t269 - t272 - 0.1250e4 / 0.729e3 * t278 - 0.25e2 / 0.108e3 * t282 + 0.25e2 / 0.108e3 * t284 + 0.25e2 / 0.108e3 * t288 - 0.50e2 / 0.81e2 * t292 + 0.50e2 / 0.27e2 * t294 * t94 + 0.2e1 * t223 * t136 * t108 - t99 * t300 - t99 * t313 - 0.50e2 / 0.27e2 * t315 * t94 - t99 * t140 * t108 + t57 * t324;
1723   t327 = t72 * t326;
1724   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1725     v2rhosigma[0] = -t260 * t143 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t327;
1726 
1727   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1728     v2rholapl[0] = 0.0e0;
1729 
1730   t332 = t29 * t92;
1731   t333 = t275 * t332;
1732   t336 = t29 * t108;
1733   t337 = t200 * t336;
1734   t342 = t286 * t146;
1735   t346 = t197 * t156;
1736   t352 = t117 * t155;
1737   t361 = 0.500e3 / 0.81e2 * t231 * t332 - 0.1250e4 / 0.243e3 * t130 + 0.625000e6 / 0.19683e5 * t236 * t152 * t92 - 0.625000e6 / 0.59049e5 * t133;
1738   t362 = t63 * t361;
1739   t365 = t72 * (0.10000e5 / 0.729e3 * t274 * t333 + 0.50e2 / 0.27e2 * t199 * t337 - 0.50e2 / 0.27e2 * t205 * t147 - 0.50e2 / 0.27e2 * t86 * t342 + 0.250e3 / 0.81e2 * t128 + 0.50e2 / 0.27e2 * t346 * t94 + 0.2e1 * t223 * t156 * t108 - t99 * t352 - t99 * t362);
1740   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1741     v2rhotau[0] = -t260 * t159 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t365;
1742 
1743   t368 = t175 * rho[0];
1744   t370 = 0.1e1 / t8 / t368;
1745   t371 = t200 * t370;
1746   t372 = t171 * t371;
1747   t374 = t191 * t370;
1748   t375 = t189 * t374;
1749   t376 = t188 * t375;
1750   t378 = t19 * t135;
1751   t379 = t200 * t378;
1752   t380 = t199 * t379;
1753   t382 = t315 * t127;
1754   t384 = t86 * t371;
1755   t386 = t135 * t135;
1756   t387 = t63 * t386;
1757   t390 = t140 * t135;
1758   t393 = t231 * t370;
1759   t395 = t52 * t370;
1760   t396 = t236 * t395;
1761   t398 = 0.125e3 / 0.1296e4 * t393 + 0.78125e5 / 0.157464e6 * t396;
1762   t399 = t63 * t398;
1763   t403 = -0.25e2 / 0.472392e6 * t248 * t371 + 0.25e2 / 0.472392e6 * t372;
1764   t406 = t72 * (-0.25e2 / 0.472392e6 * t372 + 0.625e3 / 0.2916e4 * t376 - 0.25e2 / 0.54e2 * t380 + 0.25e2 / 0.54e2 * t382 - 0.25e2 / 0.864e3 * t384 + 0.2e1 * t223 * t387 - 0.2e1 * t99 * t390 - t99 * t399 + t57 * t403);
1765   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1766     v2sigma2[0] = -0.3e1 / 0.8e1 * t71 * t406;
1767 
1768   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1769     v2sigmalapl[0] = 0.0e0;
1770 
1771   t410 = 0.1e1 / t8 / t175;
1772   t411 = t191 * t410;
1773   t412 = t189 * t411;
1774   t413 = t188 * t412;
1775   t415 = t29 * t135;
1776   t416 = t200 * t415;
1777   t421 = t410 * t34;
1778   t422 = t421 * t37;
1779   t423 = t86 * t422;
1780   t425 = t346 * t127;
1781   t427 = t156 * t135;
1782   t430 = t140 * t155;
1783   t432 = t231 * t410;
1784   t434 = t52 * t410;
1785   t435 = t236 * t434;
1786   t437 = -0.125e3 / 0.162e3 * t432 - 0.78125e5 / 0.19683e5 * t435;
1787   t438 = t63 * t437;
1788   t441 = t72 * (-0.1250e4 / 0.729e3 * t413 + 0.50e2 / 0.27e2 * t199 * t416 - 0.50e2 / 0.27e2 * t315 * t147 + 0.25e2 / 0.108e3 * t423 - 0.25e2 / 0.108e3 * t425 + 0.2e1 * t223 * t427 - t99 * t430 - t99 * t438);
1789   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1790     v2sigmatau[0] = -0.3e1 / 0.8e1 * t71 * t441;
1791 
1792   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1793     v2lapl2[0] = 0.0e0;
1794 
1795   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1796     v2lapltau[0] = 0.0e0;
1797 
1798   t445 = 0.1e1 / t8 / t79;
1799   t446 = t191 * t445;
1800   t447 = t189 * t446;
1801   t450 = t29 * t155;
1802   t451 = t200 * t450;
1803   t454 = t445 * t34;
1804   t455 = t454 * t37;
1805   t458 = t155 * t155;
1806   t459 = t63 * t458;
1807   t464 = t52 * t445;
1808   t467 = 0.500e3 / 0.81e2 * t231 * t445 + 0.625000e6 / 0.19683e5 * t236 * t464;
1809   t468 = t63 * t467;
1810   t471 = t72 * (0.10000e5 / 0.729e3 * t188 * t447 + 0.100e3 / 0.27e2 * t199 * t451 - 0.50e2 / 0.27e2 * t86 * t455 + 0.2e1 * t223 * t459 - t99 * t468);
1811   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1812     v2tau2[0] = -0.3e1 / 0.8e1 * t71 * t471;
1813 
1814 #ifndef XC_DONT_COMPILE_KXC
1815 
1816   if(order < 3) return;
1817 
1818 
1819   t474 = t7 * t29;
1820   t484 = t111 * t111;
1821   t486 = t73 / t484;
1822   t487 = t173 * sigma[0];
1823   t488 = t45 * t487;
1824   t489 = t175 * t175;
1825   t490 = t489 * t79;
1826   t491 = 0.1e1 / t490;
1827   t492 = t488 * t491;
1828   t496 = 0.1e1 / t8 / t489;
1829   t497 = t174 * t496;
1830   t501 = 0.1e1 / t17 / t368;
1831   t502 = t78 * t501;
1832   t505 = t74 * t74;
1833   t507 = t73 / t505;
1834   t509 = 0.4000e4 / 0.43046721e8 * t507 * t492;
1835   t511 = 0.2200e4 / 0.531441e6 * t172 * t497;
1836   t513 = 0.1540e4 / 0.6561e4 * t77 * t502;
1837   t514 = -0.4000e4 / 0.43046721e8 * t486 * t492 + 0.2200e4 / 0.531441e6 * t249 * t497 - 0.1540e4 / 0.6561e4 * t114 * t502 + t509 - t511 + t513;
1838   t516 = t117 * t224;
1839   t519 = t254 * t108;
1840   t522 = t117 * t243;
1841   t525 = t192 * t92;
1842   t528 = t92 * t216;
1843   t535 = -0.440e3 / 0.27e2 * tau[0] * t183 + 0.154e3 / 0.27e2 * sigma[0] * t501;
1844   t538 = params->b * t43;
1845   t548 = 0.500e3 / 0.81e2 * t525 * t45 + 0.500e3 / 0.27e2 * t231 * t528 + 0.250e3 / 0.81e2 * t100 * t535 + 0.2500000e7 / 0.19683e5 * t538 * t52 * t525 + 0.625000e6 / 0.6561e4 * t236 * t105 * t216 + 0.125000e6 / 0.19683e5 * t104 * t52 * t535;
1846   t549 = t63 * t548;
1847   t551 = t97 * t97;
1848   t552 = 0.1e1 / t551;
1849   t553 = t42 * t552;
1850   t554 = t224 * t108;
1851   t555 = t63 * t554;
1852   t560 = t286 * t217;
1853   t563 = t32 * t10;
1854   t565 = t563 * t191 * t525;
1855   t568 = t197 * t63;
1856   t569 = t37 * t108;
1857   t570 = t208 * t569;
1858   t573 = t37 * t535;
1859   t574 = t87 * t573;
1860   t577 = t187 * t117;
1861   t580 = t57 * t514 + 0.6e1 * t223 * t516 - 0.3e1 * t99 * t519 - 0.3e1 * t99 * t522 - t99 * t549 - 0.6e1 * t553 * t555 - 0.50e2 / 0.9e1 * t205 * t218 - 0.50e2 / 0.9e1 * t86 * t560 + 0.10000e5 / 0.243e3 * t188 * t565 + 0.50e2 / 0.9e1 * t568 * t570 - 0.50e2 / 0.27e2 * t86 * t574 + 0.10000e5 / 0.243e3 * t577 * t194;
1862   t581 = t85 * t254;
1863   t584 = t43 * t52;
1864   t585 = t525 * t56;
1865   t592 = t275 * t528;
1866   t595 = t117 * t32;
1867   t596 = t197 * t595;
1868   t600 = t200 * t216 * t108;
1869   t607 = t41 * t222;
1870   t608 = t607 * t198;
1871   t613 = t40 * t98;
1872   t614 = t613 * t273;
1873   t616 = t275 * t192 * t108;
1874   t621 = -0.50e2 / 0.9e1 * t581 * t94 - t509 - 0.1000000e7 / 0.19683e5 * t584 * t585 * t63 + 0.6e1 * t223 * t109 * t243 + 0.10000e5 / 0.243e3 * t274 * t592 + 0.100e3 / 0.9e1 * t596 * t202 + 0.50e2 / 0.9e1 * t199 * t600 + 0.50e2 / 0.9e1 * t199 * t200 * t92 * t243 - 0.100e3 / 0.9e1 * t608 * t200 * t92 * t224 - 0.10000e5 / 0.243e3 * t614 * t616 - 0.50e2 / 0.9e1 * t205 * t209 + t511 - t513;
1875   t622 = t580 + t621;
1876   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1877     v3rho3[0] = t5 * t474 * t65 / 0.9e1 - t5 * t163 * t119 / 0.2e1 - 0.3e1 / 0.2e1 * t5 * t9 * t256 - 0.3e1 / 0.8e1 * t71 * t72 * t622;
1878 
1879   t626 = t162 * t2;
1880   t631 = t200 * t19 * t243;
1881   t632 = t199 * t631;
1882   t634 = t197 * t300;
1883   t637 = t197 * t313;
1884   t642 = t489 * t16;
1885   t644 = t45 / t642;
1886   t645 = t644 * t173;
1887   t649 = t37 * t178 * sigma[0];
1888   t652 = t15 * t183;
1889   t656 = 0.500e3 / 0.14348907e8 * t507 * t645;
1890   t658 = 0.25e2 / 0.19683e5 * t172 * t649;
1891   t660 = 0.110e3 / 0.2187e4 * t76 * t652;
1892   t661 = 0.500e3 / 0.14348907e8 * t486 * t645 - 0.25e2 / 0.19683e5 * t249 * t649 + 0.110e3 / 0.2187e4 * t113 * t652 - t656 + t658 - t660;
1893   t663 = t140 * t243;
1894   t665 = t140 * t224;
1895   t668 = t254 * t135;
1896   t670 = t117 * t312;
1897   t673 = t192 * t45;
1898   t674 = t673 * t19;
1899   t676 = t81 * t92;
1900   t677 = t231 * t676;
1901   t679 = t19 * t216;
1902   t680 = t231 * t679;
1903   t682 = t100 * t183;
1904   t685 = t538 * t132 * t192;
1905   t688 = t236 * t309 * t92;
1906   t691 = t236 * t132 * t216;
1907   t693 = t52 * t183;
1908   t694 = t104 * t693;
1909   t696 = -0.125e3 / 0.162e3 * t674 + 0.1000e4 / 0.243e3 * t677 - 0.125e3 / 0.162e3 * t680 - 0.2750e4 / 0.729e3 * t682 - 0.312500e6 / 0.19683e5 * t685 + 0.1250000e7 / 0.59049e5 * t688 - 0.78125e5 / 0.19683e5 * t691 - 0.1375000e7 / 0.177147e6 * t694;
1910   t697 = t63 * t696;
1911   t700 = t324 * t108;
1912   t703 = t581 * t127;
1913   t705 = t205 * t287;
1914   t707 = t216 * t34;
1915   t708 = t707 * t126;
1916   t709 = t86 * t708;
1917   t711 = t85 * t324;
1918   t716 = t187 * t140;
1919   t719 = t205 * t291;
1920   t721 = t286 * t290;
1921   t722 = t86 * t721;
1922   t724 = t37 * t183;
1923   t725 = t87 * t724;
1924   t726 = t86 * t725;
1925   t729 = t135 * t192 * t200;
1926   t732 = -0.2e1 * t99 * t700 + 0.25e2 / 0.108e3 * t703 + 0.25e2 / 0.54e2 * t705 + 0.25e2 / 0.108e3 * t709 - 0.100e3 / 0.27e2 * t711 * t94 - 0.50e2 / 0.27e2 * t315 * t218 + 0.10000e5 / 0.729e3 * t716 * t194 - 0.100e3 / 0.81e2 * t719 - 0.100e3 / 0.81e2 * t722 + 0.550e3 / 0.243e3 * t726 + 0.50e2 / 0.27e2 * t568 * t729;
1927   t746 = t275 * t676;
1928   t747 = t274 * t746;
1929   t749 = t19 * t224;
1930   t750 = t200 * t749;
1931   t751 = t608 * t750;
1932   t754 = t200 * t81 * t108;
1933   t755 = t199 * t754;
1934   t757 = t187 * t198;
1935   t758 = t19 * t192;
1936   t759 = t275 * t758;
1937   t760 = t757 * t759;
1938   t763 = t613 * t136;
1939   t766 = t140 * t32;
1940   t767 = t197 * t766;
1941   t770 = t117 * t33;
1942   t771 = t187 * t770;
1943   t772 = t771 * t277;
1944   t774 = t275 * t679;
1945   t775 = t274 * t774;
1946   t777 = t596 * t281;
1947   t779 = t63 * t92;
1948   t780 = t197 * t779;
1949   t781 = t780 * t281;
1950   t785 = t584 * t192;
1951   t786 = t56 * t63;
1952   t787 = t786 * t19;
1953   t788 = t785 * t787;
1954   t790 = t607 * t136;
1955   t792 = t87 * t93 * t108;
1956   t796 = t275 * t276 * t108;
1957   t797 = t614 * t796;
1958   t799 = -0.10000e5 / 0.729e3 * t763 * t194 + 0.100e3 / 0.27e2 * t767 * t202 - 0.2500e4 / 0.729e3 * t772 - 0.1250e4 / 0.729e3 * t775 - 0.25e2 / 0.54e2 * t777 - 0.25e2 / 0.54e2 * t781 - 0.50e2 / 0.27e2 * t315 * t209 - t658 + 0.125000e6 / 0.19683e5 * t788 - 0.200e3 / 0.27e2 * t790 * t792 + 0.2500e4 / 0.729e3 * t797;
1959   t802 = t72 * (-0.25e2 / 0.108e3 * t632 + 0.100e3 / 0.27e2 * t634 * t94 + 0.100e3 / 0.27e2 * t637 * t94 + 0.50e2 / 0.27e2 * t294 * t218 + t57 * t661 - t99 * t663 + 0.2e1 * t223 * t665 - t99 * t668 - 0.2e1 * t99 * t670 - t99 * t697 + t732 - 0.6e1 * t553 * t136 * t224 + t656 + t660 + 0.4e1 * t223 * t300 * t108 + 0.4e1 * t223 * t313 * t108 + 0.2e1 * t223 * t136 * t243 + 0.20000e5 / 0.2187e4 * t747 + 0.25e2 / 0.54e2 * t751 + 0.100e3 / 0.81e2 * t755 - 0.1250e4 / 0.243e3 * t760 + t799);
1960   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1961     v3rho2sigma[0] = -t626 * t143 / 0.6e1 - t260 * t327 - 0.3e1 / 0.8e1 * t71 * t802;
1962 
1963   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1964     v3rho2lapl[0] = 0.0e0;
1965 
1966   t820 = t197 * t362;
1967   t825 = t613 * t156;
1968   t828 = t29 * t192;
1969   t829 = t275 * t828;
1970   t833 = t200 * t29 * t224;
1971   t838 = t29 * t216;
1972   t839 = t275 * t838;
1973   t847 = t200 * t29 * t243;
1974   t850 = t197 * t352;
1975   t853 = -0.6e1 * t553 * t156 * t224 + 0.4e1 * t223 * t352 * t108 + 0.4e1 * t223 * t362 * t108 + 0.2e1 * t223 * t156 * t243 + 0.100e3 / 0.27e2 * t820 * t94 + 0.50e2 / 0.27e2 * t346 * t218 - 0.10000e5 / 0.729e3 * t825 * t194 + 0.10000e5 / 0.243e3 * t757 * t829 - 0.100e3 / 0.27e2 * t608 * t833 + 0.20000e5 / 0.729e3 * t771 * t333 + 0.10000e5 / 0.729e3 * t274 * t839 + 0.100e3 / 0.27e2 * t596 * t337 + 0.100e3 / 0.27e2 * t780 * t337 + 0.50e2 / 0.27e2 * t199 * t847 + 0.100e3 / 0.27e2 * t850 * t94;
1976   t854 = t117 * t361;
1977   t871 = 0.500e3 / 0.81e2 * t673 * t29 - 0.5000e4 / 0.243e3 * t302 + 0.500e3 / 0.81e2 * t231 * t838 + 0.10000e5 / 0.729e3 * t304 + 0.2500000e7 / 0.19683e5 * t538 * t152 * t192 - 0.6250000e7 / 0.59049e5 * t307 + 0.625000e6 / 0.19683e5 * t236 * t152 * t216 + 0.5000000e7 / 0.177147e6 * t310;
1978   t872 = t63 * t871;
1979   t874 = t254 * t155;
1980   t880 = t707 * t146;
1981   t884 = t155 * t192 * t200;
1982   t891 = t786 * t29;
1983   t895 = t607 * t156;
1984   t899 = t275 * t332 * t108;
1985   t902 = -0.2e1 * t99 * t854 - t99 * t872 - t99 * t874 - 0.50e2 / 0.27e2 * t581 * t147 - 0.100e3 / 0.27e2 * t205 * t342 - 0.50e2 / 0.27e2 * t86 * t880 + 0.50e2 / 0.27e2 * t568 * t884 + 0.500e3 / 0.81e2 * t288 - 0.2000e4 / 0.243e3 * t292 - 0.100000e6 / 0.2187e4 * t278 - 0.500e3 / 0.81e2 * t282 - 0.1000000e7 / 0.19683e5 * t785 * t891 + 0.500e3 / 0.81e2 * t284 - 0.200e3 / 0.27e2 * t895 * t792 - 0.20000e5 / 0.729e3 * t614 * t899;
1986   t904 = t72 * (t853 + t902);
1987   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1988     v3rho2tau[0] = -t626 * t159 / 0.6e1 - t260 * t365 - 0.3e1 / 0.8e1 * t71 * t904;
1989 
1990   t909 = t403 * t108;
1991   t911 = t117 * t386;
1992   t914 = t324 * t135;
1993   t917 = t140 * t312;
1994   t920 = t117 * t398;
1995   t922 = t92 * t45;
1996   t923 = t922 * t370;
1997   t925 = t231 * t265;
1998   t928 = t538 * t395 * t92;
1999   t930 = t52 * t265;
2000   t931 = t236 * t930;
2001   t933 = 0.125e3 / 0.1296e4 * t923 - 0.125e3 / 0.243e3 * t925 + 0.78125e5 / 0.39366e5 * t928 - 0.156250e6 / 0.59049e5 * t931;
2002   t934 = t63 * t933;
2003   t936 = t489 * rho[0];
2004   t937 = 0.1e1 / t936;
2005   t938 = t45 * t937;
2006   t939 = t938 * sigma[0];
2007   t941 = 0.125e3 / 0.9565938e7 * t507 * t939;
2008   t942 = t200 * t265;
2009   t944 = 0.50e2 / 0.177147e6 * t171 * t942;
2010   t961 = -0.125e3 / 0.9565938e7 * t486 * t939 + 0.50e2 / 0.177147e6 * t248 * t942 + t941 - t944;
2011   t963 = t197 * t390;
2012   t966 = t197 * t399;
2013   t969 = t81 * t135;
2014   t970 = t200 * t969;
2015   t971 = t199 * t970;
2016   t973 = t370 * t108;
2017   t974 = t275 * t973;
2018   t975 = t614 * t974;
2019   t979 = t757 * t275 * t370 * t92;
2020   t981 = -t99 * t909 + 0.2e1 * t223 * t911 - 0.2e1 * t99 * t914 - 0.2e1 * t99 * t917 - t99 * t920 - t99 * t934 - t941 + t944 - 0.6e1 * t553 * t387 * t108 + 0.4e1 * t223 * t136 * t312 + 0.4e1 * t223 * t390 * t108 + 0.2e1 * t223 * t399 * t108 + t57 * t961 + 0.100e3 / 0.27e2 * t963 * t94 + 0.50e2 / 0.27e2 * t966 * t94 + 0.100e3 / 0.81e2 * t971 - 0.625e3 / 0.2916e4 * t975 + 0.625e3 / 0.972e3 * t979;
2021   t982 = t596 * t379;
2022   t984 = t780 * t379;
2023   t986 = t19 * t312;
2024   t987 = t200 * t986;
2025   t988 = t199 * t987;
2026   t990 = t767 * t281;
2027   t992 = t140 * t33;
2028   t993 = t187 * t992;
2029   t994 = t993 * t277;
2030   t996 = t607 * t387;
2031   t999 = t577 * t375;
2032   t1001 = t711 * t127;
2033   t1003 = t315 * t287;
2034   t1005 = t370 * t34;
2035   t1006 = t1005 * t569;
2036   t1007 = t568 * t1006;
2037   t1009 = t85 * t403;
2038   t1013 = t189 * t191 * t265;
2039   t1014 = t188 * t1013;
2040   t1016 = t315 * t291;
2041   t1018 = t584 * t92;
2042   t1019 = t786 * t370;
2043   t1020 = t1018 * t1019;
2044   t1022 = t205 * t371;
2045   t1024 = t86 * t942;
2046   t1027 = t275 * t378 * t92;
2047   t1028 = t614 * t1027;
2048   t1031 = t200 * t378 * t108;
2049   t1032 = t608 * t1031;
2050   t1034 = -0.25e2 / 0.54e2 * t982 - 0.25e2 / 0.54e2 * t984 - 0.25e2 / 0.54e2 * t988 - 0.25e2 / 0.54e2 * t990 - 0.2500e4 / 0.729e3 * t994 - 0.100e3 / 0.27e2 * t996 * t94 + 0.625e3 / 0.2916e4 * t999 + 0.25e2 / 0.54e2 * t1001 + 0.25e2 / 0.54e2 * t1003 + 0.25e2 / 0.864e3 * t1007 - 0.50e2 / 0.27e2 * t1009 * t94 - 0.2500e4 / 0.2187e4 * t1014 - 0.100e3 / 0.81e2 * t1016 - 0.15625e5 / 0.19683e5 * t1020 - 0.25e2 / 0.864e3 * t1022 + 0.25e2 / 0.162e3 * t1024 + 0.2500e4 / 0.729e3 * t1028 + 0.25e2 / 0.27e2 * t1032;
2051   t1036 = t72 * (t981 + t1034);
2052   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2053     v3rhosigma2[0] = -t260 * t406 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t1036;
2054 
2055   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2056     v3rhosigmalapl[0] = 0.0e0;
2057 
2058   t1041 = t324 * t155;
2059   t1043 = t140 * t361;
2060   t1045 = t117 * t437;
2061   t1047 = t922 * t410;
2062   t1051 = t538 * t434 * t92;
2063   t1054 = -0.125e3 / 0.162e3 * t1047 + 0.1625e4 / 0.486e3 * t393 - 0.312500e6 / 0.19683e5 * t1051 + 0.1015625e7 / 0.59049e5 * t396;
2064   t1055 = t63 * t1054;
2065   t1072 = t410 * t108;
2066   t1073 = t275 * t1072;
2067   t1074 = t614 * t1073;
2068   t1077 = t275 * t410 * t92;
2069   t1078 = t757 * t1077;
2070   t1084 = t29 * t312;
2071   t1085 = t200 * t1084;
2072   t1092 = t850 * t127;
2073   t1094 = t820 * t127;
2074   t1096 = t346 * t287;
2075   t1098 = -t99 * t1041 - t99 * t1043 - t99 * t1045 - t99 * t1055 + 0.2e1 * t223 * t352 * t135 + 0.2e1 * t223 * t362 * t135 + 0.2e1 * t223 * t156 * t312 + 0.2e1 * t223 * t430 * t108 + 0.2e1 * t223 * t438 * t108 + 0.1250e4 / 0.729e3 * t1074 - 0.1250e4 / 0.243e3 * t1078 + 0.50e2 / 0.27e2 * t596 * t416 + 0.50e2 / 0.27e2 * t780 * t416 + 0.50e2 / 0.27e2 * t199 * t1085 + 0.50e2 / 0.27e2 * t767 * t337 + 0.10000e5 / 0.729e3 * t993 * t333 - 0.25e2 / 0.108e3 * t1092 - 0.25e2 / 0.108e3 * t1094 - 0.25e2 / 0.108e3 * t1096;
2076   t1099 = t197 * t430;
2077   t1102 = t197 * t438;
2078   t1105 = t346 * t291;
2079   t1111 = t421 * t569;
2080   t1112 = t568 * t1111;
2081   t1114 = t577 * t412;
2082   t1119 = t205 * t422;
2083   t1121 = t553 * t63;
2084   t1122 = t155 * t135;
2085   t1123 = t1122 * t108;
2086   t1126 = t786 * t410;
2087   t1127 = t1018 * t1126;
2088   t1131 = t200 * t415 * t108;
2089   t1135 = t275 * t415 * t92;
2090   t1138 = t126 * t108;
2091   t1139 = t87 * t1138;
2092   t1140 = t895 * t1139;
2093   t1142 = t191 * t19;
2094   t1144 = t189 * t1142 * t92;
2095   t1145 = t825 * t1144;
2096   t1147 = t135 * t32;
2097   t1148 = t200 * t92;
2098   t1149 = t1147 * t1148;
2099   t1152 = 0.50e2 / 0.27e2 * t1099 * t94 + 0.50e2 / 0.27e2 * t1102 * t94 + 0.50e2 / 0.81e2 * t1105 - 0.50e2 / 0.27e2 * t711 * t147 - 0.50e2 / 0.27e2 * t315 * t342 - 0.25e2 / 0.108e3 * t1112 - 0.1250e4 / 0.729e3 * t1114 + 0.16250e5 / 0.2187e4 * t376 + 0.250e3 / 0.81e2 * t382 - 0.250e3 / 0.81e2 * t380 + 0.25e2 / 0.108e3 * t1119 - 0.6e1 * t1121 * t1123 + 0.125000e6 / 0.19683e5 * t1127 - 0.325e3 / 0.324e3 * t384 - 0.100e3 / 0.27e2 * t608 * t1131 - 0.10000e5 / 0.729e3 * t614 * t1135 + 0.25e2 / 0.54e2 * t1140 + 0.1250e4 / 0.729e3 * t1145 - 0.100e3 / 0.27e2 * t895 * t1149;
2100   t1154 = t72 * (t1098 + t1152);
2101   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2102     v3rhosigmatau[0] = -t260 * t441 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t1154;
2103 
2104   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2105     v3rholapl2[0] = 0.0e0;
2106 
2107   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2108     v3rholapltau[0] = 0.0e0;
2109 
2110   t1159 = t786 * t445;
2111   t1162 = t445 * t108;
2112   t1163 = t275 * t1162;
2113   t1169 = t275 * t445 * t92;
2114   t1174 = t275 * t450 * t92;
2115   t1178 = t200 * t450 * t108;
2116   t1186 = t29 * t361;
2117   t1187 = t200 * t1186;
2118   t1190 = -0.1000000e7 / 0.19683e5 * t1018 * t1159 - 0.10000e5 / 0.729e3 * t614 * t1163 + 0.10000e5 / 0.729e3 * t577 * t447 + 0.10000e5 / 0.243e3 * t757 * t1169 - 0.100000e6 / 0.2187e4 * t413 - 0.20000e5 / 0.729e3 * t614 * t1174 - 0.200e3 / 0.27e2 * t608 * t1178 + 0.100e3 / 0.27e2 * t596 * t451 + 0.100e3 / 0.27e2 * t780 * t451 - 0.500e3 / 0.81e2 * t425 + 0.100e3 / 0.27e2 * t199 * t1187;
2119   t1191 = t454 * t569;
2120   t1197 = t607 * t459;
2121   t1203 = t117 * t458;
2122   t1209 = t197 * t468;
2123   t1215 = t117 * t467;
2124   t1224 = 0.500e3 / 0.81e2 * t922 * t445 - 0.5000e4 / 0.243e3 * t432 + 0.2500000e7 / 0.19683e5 * t538 * t464 * t92 - 0.6250000e7 / 0.59049e5 * t435;
2125   t1225 = t63 * t1224;
2126   t1227 = 0.50e2 / 0.27e2 * t568 * t1191 - 0.50e2 / 0.27e2 * t205 * t455 + 0.500e3 / 0.81e2 * t423 - 0.100e3 / 0.27e2 * t1197 * t94 - 0.6e1 * t553 * t459 * t108 + 0.2e1 * t223 * t1203 + 0.4e1 * t223 * t156 * t361 + 0.50e2 / 0.27e2 * t1209 * t94 + 0.2e1 * t223 * t468 * t108 - t99 * t1215 - t99 * t1225;
2127   t1229 = t72 * (t1190 + t1227);
2128   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2129     v3rhotau2[0] = -t260 * t471 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t1229;
2130 
2131   t1232 = 0.1e1 / t489;
2132   t1233 = t1232 * t56;
2133   t1235 = t584 * t1233 * t63;
2134   t1237 = t386 * t135;
2135   t1238 = t63 * t1237;
2136   t1244 = t370 * t135;
2137   t1245 = t275 * t1244;
2138   t1246 = t614 * t1245;
2139   t1248 = t767 * t379;
2140   t1250 = t19 * t398;
2141   t1251 = t200 * t1250;
2142   t1252 = t199 * t1251;
2143   t1254 = t1232 * t45;
2144   t1255 = t507 * t1254;
2145   t1257 = t140 * t386;
2146   t1260 = t403 * t135;
2147   t1263 = t140 * t398;
2148   t1267 = t52 * t1232;
2149   t1268 = t538 * t1267;
2150   t1270 = -0.125e3 / 0.10368e5 * t1254 - 0.78125e5 / 0.314928e6 * t1268;
2151   t1271 = t63 * t1270;
2152   t1275 = 0.125e3 / 0.25509168e8 * t486 * t1254 - 0.125e3 / 0.25509168e8 * t1255;
2153   t1277 = t19 * t386;
2154   t1278 = t200 * t1277;
2155   t1279 = t608 * t1278;
2156   t1281 = t315 * t371;
2157   t1283 = t1009 * t127;
2158   t1285 = t716 * t375;
2159   t1287 = t191 * t1232;
2160   t1288 = t563 * t1287;
2161   t1289 = t188 * t1288;
2162   t1291 = t37 * t135;
2163   t1292 = t1005 * t1291;
2164   t1293 = t568 * t1292;
2165   t1295 = 0.15625e5 / 0.157464e6 * t1235 - 0.6e1 * t553 * t1238 + 0.6e1 * t223 * t136 * t398 - 0.625e3 / 0.972e3 * t1246 - 0.25e2 / 0.18e2 * t1248 - 0.25e2 / 0.36e2 * t1252 + 0.125e3 / 0.25509168e8 * t1255 + 0.6e1 * t223 * t1257 - 0.3e1 * t99 * t1260 - 0.3e1 * t99 * t1263 - t99 * t1271 + t57 * t1275 + 0.25e2 / 0.18e2 * t1279 - 0.25e2 / 0.288e3 * t1281 + 0.25e2 / 0.36e2 * t1283 + 0.625e3 / 0.972e3 * t1285 - 0.625e3 / 0.7776e4 * t1289 + 0.25e2 / 0.288e3 * t1293;
2166   t1296 = t72 * t1295;
2167   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2168     v3sigma3[0] = -0.3e1 / 0.8e1 * t71 * t1296;
2169 
2170   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2171     v3sigma2lapl[0] = 0.0e0;
2172 
2173   t1299 = t403 * t155;
2174   t1301 = t140 * t437;
2175   t1304 = 0.1e1 / t176;
2176   t1305 = t1304 * t45;
2177   t1307 = t52 * t1304;
2178   t1308 = t538 * t1307;
2179   t1310 = 0.125e3 / 0.1296e4 * t1305 + 0.78125e5 / 0.39366e5 * t1308;
2180   t1311 = t63 * t1310;
2181   t1313 = t1304 * t56;
2182   t1315 = t584 * t1313 * t63;
2183   t1326 = t410 * t135;
2184   t1327 = t275 * t1326;
2185   t1328 = t614 * t1327;
2186   t1332 = t29 * t398;
2187   t1333 = t200 * t1332;
2188   t1336 = t1099 * t127;
2189   t1338 = -t99 * t1299 - 0.2e1 * t99 * t1301 - t99 * t1311 - 0.15625e5 / 0.19683e5 * t1315 + 0.4e1 * t223 * t430 * t135 + 0.4e1 * t223 * t438 * t135 + 0.2e1 * t223 * t156 * t398 + 0.2500e4 / 0.729e3 * t1328 + 0.100e3 / 0.27e2 * t767 * t416 + 0.50e2 / 0.27e2 * t199 * t1333 - 0.25e2 / 0.54e2 * t1336;
2190   t1339 = t1102 * t127;
2191   t1341 = t825 * t375;
2192   t1343 = t29 * t386;
2193   t1344 = t200 * t1343;
2194   t1347 = t126 * t135;
2195   t1348 = t87 * t1347;
2196   t1349 = t895 * t1348;
2197   t1351 = t315 * t422;
2198   t1356 = t155 * t370;
2199   t1357 = t1356 * t200;
2200   t1358 = t568 * t1357;
2201   t1360 = t716 * t412;
2202   t1362 = t191 * t1304;
2203   t1363 = t563 * t1362;
2204   t1364 = t188 * t1363;
2205   t1366 = t421 * t1291;
2206   t1367 = t568 * t1366;
2207   t1371 = -0.25e2 / 0.54e2 * t1339 - 0.625e3 / 0.2916e4 * t1341 - 0.100e3 / 0.27e2 * t608 * t1344 + 0.25e2 / 0.27e2 * t1349 + 0.25e2 / 0.54e2 * t1351 - 0.6e1 * t553 * t156 * t386 + 0.25e2 / 0.864e3 * t1358 - 0.2500e4 / 0.729e3 * t1360 + 0.625e3 / 0.972e3 * t1364 - 0.25e2 / 0.54e2 * t1367 - 0.50e2 / 0.27e2 * t1009 * t147;
2208   t1373 = t72 * (t1338 + t1371);
2209   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2210     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t71 * t1373;
2211 
2212   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2213     v3sigmalapl2[0] = 0.0e0;
2214 
2215   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2216     v3sigmalapltau[0] = 0.0e0;
2217 
2218   t1376 = 0.1e1 / t263;
2219   t1377 = t1376 * t56;
2220   t1379 = t584 * t1377 * t63;
2221   t1381 = t445 * t135;
2222   t1382 = t275 * t1381;
2223   t1387 = t191 * t1376;
2224   t1388 = t563 * t1387;
2225   t1389 = t188 * t1388;
2226   t1391 = t410 * t155;
2227   t1392 = t275 * t1391;
2228   t1393 = t614 * t1392;
2229   t1396 = t200 * t450 * t135;
2230   t1401 = t37 * t155;
2231   t1402 = t421 * t1401;
2232   t1403 = t568 * t1402;
2233   t1405 = t29 * t437;
2234   t1406 = t200 * t1405;
2235   t1409 = t454 * t1291;
2236   t1414 = t1197 * t127;
2237   t1419 = t140 * t458;
2238   t1425 = t1209 * t127;
2239   t1430 = t140 * t467;
2240   t1432 = t1376 * t45;
2241   t1434 = t52 * t1376;
2242   t1435 = t538 * t1434;
2243   t1437 = -0.125e3 / 0.162e3 * t1432 - 0.312500e6 / 0.19683e5 * t1435;
2244   t1438 = t63 * t1437;
2245   t1440 = 0.125000e6 / 0.19683e5 * t1379 - 0.10000e5 / 0.729e3 * t614 * t1382 + 0.10000e5 / 0.729e3 * t716 * t447 - 0.1250e4 / 0.243e3 * t1389 + 0.2500e4 / 0.729e3 * t1393 - 0.200e3 / 0.27e2 * t608 * t1396 + 0.100e3 / 0.27e2 * t767 * t451 - 0.25e2 / 0.54e2 * t1403 + 0.100e3 / 0.27e2 * t199 * t1406 + 0.50e2 / 0.27e2 * t568 * t1409 - 0.50e2 / 0.27e2 * t315 * t455 + 0.25e2 / 0.54e2 * t1414 - 0.6e1 * t553 * t459 * t135 + 0.2e1 * t223 * t1419 + 0.4e1 * t223 * t156 * t437 - 0.25e2 / 0.108e3 * t1425 + 0.2e1 * t223 * t468 * t135 - t99 * t1430 - t99 * t1438;
2246   t1441 = t72 * t1440;
2247   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2248     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t71 * t1441;
2249 
2250   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2251     v3lapl3[0] = 0.0e0;
2252 
2253   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2254     v3lapl2tau[0] = 0.0e0;
2255 
2256   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2257     v3lapltau2[0] = 0.0e0;
2258 
2259   t1444 = 0.1e1 / t368;
2260   t1445 = t1444 * t56;
2261   t1449 = t445 * t155;
2262   t1450 = t275 * t1449;
2263   t1453 = t191 * t1444;
2264   t1454 = t563 * t1453;
2265   t1457 = t29 * t458;
2266   t1458 = t200 * t1457;
2267   t1461 = t454 * t1401;
2268   t1464 = t29 * t467;
2269   t1465 = t200 * t1464;
2270   t1468 = t458 * t155;
2271   t1469 = t63 * t1468;
2272   t1477 = t52 * t1444;
2273   t1480 = 0.500e3 / 0.81e2 * t1444 * t45 + 0.2500000e7 / 0.19683e5 * t538 * t1477;
2274   t1481 = t63 * t1480;
2275   t1484 = t72 * (-0.1000000e7 / 0.19683e5 * t584 * t1445 * t63 - 0.10000e5 / 0.243e3 * t614 * t1450 + 0.10000e5 / 0.243e3 * t188 * t1454 - 0.100e3 / 0.9e1 * t608 * t1458 + 0.50e2 / 0.9e1 * t568 * t1461 + 0.50e2 / 0.9e1 * t199 * t1465 - 0.6e1 * t553 * t1469 + 0.6e1 * t223 * t156 * t467 - t99 * t1481);
2276   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2277     v3tau3[0] = -0.3e1 / 0.8e1 * t71 * t1484;
2278 
2279 #ifndef XC_DONT_COMPILE_LXC
2280 
2281   if(order < 4) return;
2282 
2283 
2284   t1499 = t613 * t198;
2285   t1516 = t41 * t552;
2286   t1524 = t40 * t222;
2287   t1525 = t1524 * t273;
2288   t1534 = t535 * t92;
2289   t1538 = t613 * t770;
2290   t1545 = -0.40000e5 / 0.243e3 * t1499 * t275 * t525 * t108 - 0.400e3 / 0.9e1 * t607 * t516 * t94 + 0.200e3 / 0.9e1 * t197 * t519 * t94 + 0.200e3 / 0.9e1 * t197 * t522 * t94 + 0.200e3 / 0.27e2 * t197 * t549 * t94 + 0.400e3 / 0.9e1 * t1516 * t555 * t94 - 0.200e3 / 0.9e1 * t608 * t200 * t216 * t224 + 0.40000e5 / 0.243e3 * t1525 * t275 * t192 * t224 + 0.200e3 / 0.27e2 * t199 * t200 * t535 * t108 + 0.40000e5 / 0.729e3 * t274 * t275 * t1534 - 0.40000e5 / 0.243e3 * t1538 * t616 + 0.40000e5 / 0.243e3 * t771 * t592 + 0.200e3 / 0.9e1 * t596 * t600;
2291   t1548 = t63 * t192;
2292   t1562 = t607 * t63;
2293   t1563 = t37 * t224;
2294   t1569 = t216 * t216;
2295   t1574 = t85 * t514;
2296   t1585 = 0.1e1 / t17 / t263;
2297   t1588 = 0.6160e4 / 0.81e2 * tau[0] * t501 - 0.2618e4 / 0.81e2 * sigma[0] * t1585;
2298   t1593 = t187 * t254;
2299   t1598 = t197 * t117;
2300   t1601 = 0.200e3 / 0.9e1 * t780 * t600 + 0.20000e5 / 0.81e2 * t187 * t1548 * t275 * t216 * t32 - 0.20000e5 / 0.243e3 * t614 * t275 * t192 * t243 + 0.100e3 / 0.9e1 * t199 * t200 * t216 * t243 - 0.200e3 / 0.9e1 * t1562 * t208 * t1563 + 0.40000e5 / 0.243e3 * t577 * t565 + 0.10000e5 / 0.243e3 * t188 * t189 * t191 * t1569 - 0.200e3 / 0.27e2 * t1574 * t94 - 0.200e3 / 0.27e2 * t205 * t574 - 0.200e3 / 0.27e2 * t86 * t286 * t573 - 0.50e2 / 0.27e2 * t86 * t87 * t37 * t1588 + 0.20000e5 / 0.243e3 * t1593 * t194 - 0.100e3 / 0.9e1 * t581 * t218 + 0.200e3 / 0.9e1 * t1598 * t570;
2301   t1605 = t37 * t243;
2302   t1612 = t73 / t505 / t23 * t45;
2303   t1613 = t173 * t173;
2304   t1618 = t1613 / t17 / t489 / t263 * t15;
2305   t1620 = 0.160000e6 / 0.31381059609e11 * t1612 * t1618;
2306   t1625 = t192 * t192;
2307   t1632 = t174 / t8 / t936;
2308   t1634 = 0.195800e6 / 0.4782969e7 * t172 * t1632;
2309   t1635 = t78 * t1585;
2310   t1637 = 0.26180e5 / 0.19683e5 * t77 * t1635;
2311   t1644 = t243 * t32 * t1148;
2312   t1647 = t489 * t175;
2313   t1649 = t488 / t1647;
2314   t1651 = 0.88000e5 / 0.43046721e8 * t507 * t1649;
2315   t1652 = t33 * t52;
2316   t1663 = -0.200e3 / 0.9e1 * t205 * t560 + 0.100e3 / 0.9e1 * t568 * t208 * t1605 - t1620 - 0.50e2 / 0.9e1 * t86 * t1569 * t34 * t37 + 0.10000e5 / 0.243e3 * t188 * t1625 * t10 * t191 - t1634 + t1637 - 0.40000e5 / 0.243e3 * t614 * t275 * t201 * t216 - 0.400e3 / 0.9e1 * t607 * t109 * t1644 + t1651 - 0.2000000e7 / 0.6561e4 * t1652 * t1625 * t56 * t63 - 0.4000000e7 / 0.19683e5 * t584 * t585 * t117 - 0.36e2 * t553 * t225 * t243;
2317   t1674 = t42 / t551 / t55;
2318   t1675 = t224 * t224;
2319   t1679 = t243 * t243;
2320   t1703 = params->b * t33;
2321   t1728 = t73 / t484 / t58 * t45;
2322   t1742 = t584 * t525;
2323   t1743 = t98 * t63;
2324   t1744 = t1743 * t108;
2325   t1747 = 0.24e2 * t223 * t228 * t243 + 0.8e1 * t223 * t549 * t108 - 0.100e3 / 0.9e1 * t581 * t209 + 0.24e2 * t1674 * t63 * t1675 + 0.6e1 * t223 * t63 * t1679 - 0.24e2 * t553 * t117 * t554 - 0.4e1 * t99 * t514 * t108 - 0.6e1 * t99 * t254 * t243 - 0.4e1 * t99 * t117 * t548 - t99 * t63 * (0.1000e4 / 0.27e2 * t673 * t216 + 0.500e3 / 0.27e2 * t231 * t1569 + 0.2000e4 / 0.81e2 * t231 * t1534 + 0.250e3 / 0.81e2 * t100 * t1588 + 0.2500000e7 / 0.6561e4 * t1703 * t52 * t1625 + 0.5000000e7 / 0.6561e4 * t538 * t237 * t216 + 0.625000e6 / 0.6561e4 * t236 * t52 * t1569 + 0.2500000e7 / 0.19683e5 * t236 * t105 * t535 + 0.125000e6 / 0.19683e5 * t104 * t52 * t1588) + 0.12e2 * t223 * t254 * t224 + t57 * (-0.160000e6 / 0.31381059609e11 * t1728 * t1618 + 0.88000e5 / 0.43046721e8 * t486 * t1649 - 0.195800e6 / 0.4782969e7 * t249 * t1632 + 0.26180e5 / 0.19683e5 * t114 * t1635 + t1620 - t1651 + t1634 - t1637) - 0.2000000e7 / 0.6561e4 * t785 * t786 * t216 + 0.4000000e7 / 0.19683e5 * t1742 * t1744;
2326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2327     v4rho4[0] = -0.5e1 / 0.27e2 * t5 * t7 * t19 * t65 + 0.4e1 / 0.9e1 * t5 * t474 * t119 - t5 * t163 * t256 - 0.2e1 * t5 * t9 * t622 - 0.3e1 / 0.8e1 * t71 * t72 * (t1545 + t1601 + t1663 + t1747);
2328 
2329   t1753 = t29 * t2;
2330   t1766 = t187 * t595;
2331   t1770 = t197 * t254 * t32;
2332   t1774 = t187 * t254 * t33;
2333   t1778 = t197 * t117 * t92;
2334   t1793 = t19 * t535;
2335   t1799 = 0.100e3 / 0.27e2 * t780 * t754 + 0.50e2 / 0.27e2 * t199 * t200 * t81 * t243 - 0.1250e4 / 0.81e2 * t1766 * t759 - 0.25e2 / 0.36e2 * t1770 * t281 - 0.1250e4 / 0.243e3 * t1774 * t277 - 0.25e2 / 0.18e2 * t1778 * t281 + 0.50e2 / 0.9e1 * t637 * t218 + 0.50e2 / 0.9e1 * t294 * t560 + 0.50e2 / 0.27e2 * t294 * t574 - 0.25e2 / 0.108e3 * t199 * t200 * t19 * t548 - 0.1250e4 / 0.243e3 * t771 * t774 - 0.1250e4 / 0.729e3 * t274 * t275 * t1793 - 0.25e2 / 0.36e2 * t596 * t631;
2336   t1804 = t613 * t992;
2337   t1816 = t197 * t63 * t216;
2338   t1837 = -0.25e2 / 0.36e2 * t780 * t631 + 0.10000e5 / 0.243e3 * t993 * t592 - 0.10000e5 / 0.243e3 * t1804 * t616 - 0.10000e5 / 0.243e3 * t613 * t300 * t194 - 0.10000e5 / 0.243e3 * t613 * t313 * t194 + 0.50e2 / 0.9e1 * t767 * t600 - 0.25e2 / 0.36e2 * t1816 * t281 + 0.50e2 / 0.9e1 * t197 * t668 * t94 + 0.100e3 / 0.9e1 * t197 * t670 * t94 + 0.50e2 / 0.9e1 * t197 * t697 * t94 + 0.100e3 / 0.9e1 * t197 * t700 * t94 + 0.50e2 / 0.9e1 * t197 * t663 * t94 - 0.100e3 / 0.9e1 * t607 * t665 * t94;
2339   t1841 = t81 * t216;
2340   t1845 = t607 * t595;
2341   t1848 = t607 * t779;
2342   t1865 = t183 * t92;
2343   t1869 = t1516 * t198;
2344   t1880 = 0.20000e5 / 0.729e3 * t771 * t746 + 0.10000e5 / 0.729e3 * t274 * t275 * t1841 + 0.25e2 / 0.18e2 * t1845 * t750 + 0.25e2 / 0.18e2 * t1848 * t750 + 0.100e3 / 0.27e2 * t596 * t754 - 0.10000e5 / 0.243e3 * t763 * t565 - 0.550e3 / 0.81e2 * t199 * t200 * t183 * t108 - 0.100e3 / 0.9e1 * t790 * t570 + 0.10000e5 / 0.243e3 * t757 * t275 * t81 * t192 - 0.110000e6 / 0.2187e4 * t274 * t275 * t1865 - 0.25e2 / 0.18e2 * t1869 * t200 * t19 * t554 - 0.100e3 / 0.27e2 * t608 * t200 * t81 * t224 + 0.50e2 / 0.9e1 * t634 * t218;
2345   t1903 = t535 * t34;
2346   t1909 = t187 * t324;
2347   t1912 = t197 * t140;
2348   t1919 = 0.50e2 / 0.9e1 * t1598 * t729 + 0.50e2 / 0.9e1 * t568 * t312 * t192 * t200 + 0.550e3 / 0.81e2 * t205 * t725 + 0.550e3 / 0.81e2 * t86 * t286 * t724 - 0.7700e4 / 0.729e3 * t86 * t87 * t37 * t501 - 0.50e2 / 0.27e2 * t86 * t707 * t290 + 0.25e2 / 0.36e2 * t581 * t287 + 0.25e2 / 0.36e2 * t205 * t708 + 0.25e2 / 0.108e3 * t86 * t1903 * t126 - 0.50e2 / 0.9e1 * t711 * t218 + 0.10000e5 / 0.243e3 * t1909 * t194 + 0.50e2 / 0.9e1 * t1912 * t570 - 0.50e2 / 0.9e1 * t315 * t560 + 0.10000e5 / 0.243e3 * t716 * t565;
2349   t1924 = t85 * t661;
2350   t1934 = 0.1e1 / t17 / t489 / t368 * t487 * t15;
2351   t1936 = 0.20000e5 / 0.10460353203e11 * t1612 * t1934;
2352   t1946 = t276 * t216;
2353   t1966 = -0.50e2 / 0.27e2 * t315 * t574 - 0.50e2 / 0.9e1 * t1924 * t94 - 0.125000e6 / 0.6561e4 * t785 * t1743 * t280 + t1936 + 0.125000e6 / 0.6561e4 * t1018 * t786 * t679 + 0.25e2 / 0.108e3 * t1574 * t127 + 0.1250e4 / 0.243e3 * t614 * t275 * t276 * t243 - 0.1250e4 / 0.81e2 * t757 * t275 * t1946 - 0.200e3 / 0.9e1 * t607 * t300 * t792 - 0.200e3 / 0.9e1 * t607 * t313 * t792 - 0.100e3 / 0.9e1 * t790 * t1644 - 0.20000e5 / 0.729e3 * t614 * t275 * t676 * t108 + 0.25e2 / 0.18e2 * t608 * t200 * t280 * t243;
2354   t1973 = t87 * t93 * t224;
2355   t1982 = t189 * t191 * t92 * t216;
2356   t1986 = t87 * t217 * t108;
2357   t1991 = t189 * t193 * t108;
2358   t2018 = -0.2500e4 / 0.243e3 * t1525 * t275 * t749 * t92 + 0.100e3 / 0.3e1 * t1516 * t136 * t1973 + 0.1250e4 / 0.81e2 * t1499 * t275 * t758 * t108 - 0.10000e5 / 0.243e3 * t763 * t1982 - 0.100e3 / 0.9e1 * t790 * t1986 + 0.20000e5 / 0.243e3 * t1524 * t136 * t1991 + 0.2500e4 / 0.243e3 * t1538 * t796 + 0.1250e4 / 0.243e3 * t614 * t275 * t679 * t108 - 0.6e1 * t553 * t140 * t554 + 0.6e1 * t223 * t324 * t224 + 0.24e2 * t1674 * t136 * t554 - 0.18e2 * t553 * t300 * t224 - 0.18e2 * t553 * t313 * t224 - 0.3e1 * t99 * t324 * t243;
2359   t2046 = t538 * t52;
2360   t2061 = -0.125e3 / 0.54e2 * t922 * t679 + 0.500e3 / 0.81e2 * t673 * t81 - 0.5500e4 / 0.243e3 * t231 * t1865 + 0.500e3 / 0.81e2 * t231 * t1841 - 0.125e3 / 0.162e3 * t231 * t1793 + 0.38500e5 / 0.2187e4 * t100 * t501 - 0.312500e6 / 0.6561e4 * t1703 * t132 * t525 + 0.2500000e7 / 0.19683e5 * t538 * t309 * t192 - 0.312500e6 / 0.6561e4 * t2046 * t1946 - 0.6875000e7 / 0.59049e5 * t236 * t693 * t92 + 0.625000e6 / 0.19683e5 * t236 * t309 * t216 - 0.78125e5 / 0.19683e5 * t236 * t132 * t535 + 0.19250000e8 / 0.531441e6 * t104 * t52 * t501;
2361   t2090 = -t99 * t140 * t548 - 0.3e1 * t99 * t254 * t312 - 0.3e1 * t99 * t117 * t696 - t99 * t63 * t2061 - 0.3e1 * t99 * t661 * t108 - t99 * t514 * t135 - 0.1000000e7 / 0.19683e5 * t584 * t585 * t140 + 0.6e1 * t223 * t668 * t108 + 0.12e2 * t223 * t670 * t108 + 0.6e1 * t223 * t697 * t108 + 0.6e1 * t223 * t663 * t108 + 0.6e1 * t223 * t300 * t243 + 0.6e1 * t223 * t313 * t243;
2362   t2095 = t45 * t491 * t173;
2363   t2097 = 0.9500e4 / 0.14348907e8 * t507 * t2095;
2364   t2098 = t15 * t501;
2365   t2100 = 0.1540e4 / 0.6561e4 * t76 * t2098;
2366   t2101 = t525 * t10;
2367   t2107 = t56 * t117;
2368   t2111 = t1743 * t135;
2369   t2121 = t1652 * t525;
2370   t2127 = t37 * t496 * sigma[0];
2371   t2129 = 0.17050e5 / 0.1594323e7 * t172 * t2127;
2372   t2142 = 0.2e1 * t223 * t136 * t548 - t2097 - t2100 - 0.1250e4 / 0.243e3 * t188 * t2101 * t1142 - 0.50e2 / 0.27e2 * t581 * t291 + 0.125000e6 / 0.6561e4 * t785 * t2107 * t19 + 0.1000000e7 / 0.19683e5 * t1742 * t2111 - 0.18e2 * t1121 * t135 * t243 * t108 - 0.1000000e7 / 0.19683e5 * t785 * t786 * t81 + 0.250000e6 / 0.6561e4 * t2121 * t787 - 0.50e2 / 0.9e1 * t711 * t209 + t2129 - 0.100e3 / 0.27e2 * t205 * t721 + t57 * (0.20000e5 / 0.10460353203e11 * t1728 * t1934 - 0.9500e4 / 0.14348907e8 * t486 * t2095 + 0.17050e5 / 0.1594323e7 * t249 * t2127 - 0.1540e4 / 0.6561e4 * t113 * t2098 - t1936 + t2097 - t2129 + t2100);
2373   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2374     v4rho3sigma[0] = t1753 * t143 / 0.9e1 - t626 * t327 / 0.2e1 - 0.3e1 / 0.2e1 * t260 * t802 - 0.3e1 / 0.8e1 * t71 * t72 * (t1799 + t1837 + t1880 + t1919 + t1966 + t2018 + t2090 + t2142);
2375 
2376   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2377     v4rho3lapl[0] = 0.0e0;
2378 
2379   t2160 = t29 * t535;
2380   t2168 = t332 * t216;
2381   t2177 = 0.500e3 / 0.27e2 * t922 * t838 - 0.2500e4 / 0.81e2 * t674 + 0.20000e5 / 0.243e3 * t677 - 0.2500e4 / 0.81e2 * t680 + 0.500e3 / 0.81e2 * t231 * t2160 - 0.110000e6 / 0.2187e4 * t682 + 0.2500000e7 / 0.6561e4 * t1703 * t152 * t525 - 0.12500000e8 / 0.19683e5 * t685 + 0.2500000e7 / 0.6561e4 * t2046 * t2168 + 0.25000000e8 / 0.59049e5 * t688 - 0.3125000e7 / 0.19683e5 * t691 + 0.625000e6 / 0.19683e5 * t236 * t152 * t535 - 0.55000000e8 / 0.531441e6 * t694;
2382   t2188 = t197 * t854;
2383   t2191 = t197 * t872;
2384   t2196 = t197 * t874;
2385   t2199 = t613 * t352;
2386   t2204 = t613 * t362;
2387   t2225 = -t99 * t63 * t2177 - t99 * t514 * t155 - 0.3e1 * t99 * t254 * t361 - 0.3e1 * t99 * t117 * t871 + 0.100e3 / 0.9e1 * t2188 * t94 + 0.50e2 / 0.9e1 * t2191 * t94 + 0.10000e5 / 0.81e2 * t1766 * t829 + 0.50e2 / 0.9e1 * t2196 * t94 - 0.10000e5 / 0.243e3 * t2199 * t194 + 0.50e2 / 0.9e1 * t820 * t218 - 0.10000e5 / 0.243e3 * t2204 * t194 + 0.50e2 / 0.9e1 * t346 * t560 - 0.10000e5 / 0.243e3 * t825 * t565 - 0.100e3 / 0.9e1 * t1845 * t833 - 0.100e3 / 0.9e1 * t1848 * t833 + 0.50e2 / 0.9e1 * t1770 * t337 + 0.10000e5 / 0.243e3 * t1774 * t333 + 0.100e3 / 0.9e1 * t1778 * t337 + 0.50e2 / 0.9e1 * t1816 * t337 + 0.10000e5 / 0.243e3 * t771 * t839;
2388   t2269 = 0.10000e5 / 0.729e3 * t274 * t275 * t2160 + 0.100e3 / 0.9e1 * t1869 * t200 * t29 * t554 - 0.100e3 / 0.9e1 * t895 * t570 + 0.50e2 / 0.27e2 * t346 * t574 + 0.50e2 / 0.9e1 * t596 * t847 + 0.50e2 / 0.9e1 * t780 * t847 + 0.50e2 / 0.27e2 * t199 * t200 * t29 * t548 + 0.50e2 / 0.9e1 * t850 * t218 - 0.250e3 / 0.27e2 * t632 + 0.250e3 / 0.27e2 * t703 + 0.500e3 / 0.27e2 * t705 + 0.250e3 / 0.27e2 * t709 - 0.2000e4 / 0.81e2 * t719 - 0.2000e4 / 0.81e2 * t722 + 0.22000e5 / 0.729e3 * t726 - 0.18e2 * t553 * t352 * t224 - 0.18e2 * t553 * t362 * t224 + 0.24e2 * t1674 * t156 * t554 + 0.6e1 * t223 * t362 * t243 + 0.2e1 * t223 * t156 * t548;
2389   t2303 = t607 * t352;
2390   t2306 = t607 * t362;
2391   t2311 = 0.6e1 * t223 * t874 * t108 + 0.6e1 * t223 * t352 * t243 + 0.12e2 * t223 * t854 * t108 + 0.6e1 * t223 * t872 * t108 + 0.400000e6 / 0.2187e4 * t747 + 0.500e3 / 0.27e2 * t751 + 0.2000e4 / 0.81e2 * t755 - 0.50000e5 / 0.243e3 * t760 - 0.100000e6 / 0.729e3 * t772 - 0.50000e5 / 0.729e3 * t775 - 0.500e3 / 0.27e2 * t777 - 0.500e3 / 0.27e2 * t781 + 0.5000000e7 / 0.19683e5 * t788 + 0.100000e6 / 0.729e3 * t797 - 0.10000e5 / 0.81e2 * t1499 * t275 * t828 * t108 - 0.10000e5 / 0.243e3 * t825 * t1982 - 0.100e3 / 0.9e1 * t608 * t200 * t336 * t243 - 0.200e3 / 0.9e1 * t2303 * t792 - 0.200e3 / 0.9e1 * t2306 * t792 - 0.100e3 / 0.9e1 * t895 * t1644;
2392   t2314 = t1524 * t156;
2393   t2330 = t1516 * t156;
2394   t2347 = t1743 * t155;
2395   t2350 = t191 * t29;
2396   t2375 = -0.1000000e7 / 0.6561e4 * t785 * t2107 * t29 + 0.1000000e7 / 0.19683e5 * t1742 * t2347 + 0.10000e5 / 0.243e3 * t188 * t2101 * t2350 + 0.1000000e7 / 0.6561e4 * t785 * t1743 * t336 - 0.1000000e7 / 0.6561e4 * t1018 * t786 * t838 - 0.50e2 / 0.27e2 * t1574 * t147 - 0.50e2 / 0.9e1 * t581 * t342 - 0.50e2 / 0.9e1 * t205 * t880 - 0.50e2 / 0.27e2 * t86 * t1903 * t146 + 0.50e2 / 0.9e1 * t1598 * t884 + 0.50e2 / 0.9e1 * t568 * t361 * t192 * t200;
2397   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2398     v4rho3tau[0] = t1753 * t159 / 0.9e1 - t626 * t365 / 0.2e1 - 0.3e1 / 0.2e1 * t260 * t904 - 0.3e1 / 0.8e1 * t71 * t72 * (t2225 + t2269 + t2311 - 0.100e3 / 0.9e1 * t895 * t1986 + 0.20000e5 / 0.243e3 * t2314 * t1991 - 0.20000e5 / 0.243e3 * t1538 * t899 - 0.10000e5 / 0.243e3 * t614 * t275 * t838 * t108 - 0.10000e5 / 0.243e3 * t614 * t275 * t332 * t243 + 0.10000e5 / 0.81e2 * t757 * t275 * t2168 + 0.100e3 / 0.3e1 * t2330 * t1973 + 0.20000e5 / 0.243e3 * t1525 * t275 * t332 * t224 - 0.18e2 * t1121 * t155 * t243 * t108 - 0.2000000e7 / 0.6561e4 * t2121 * t891 + t2375);
2399 
2400   t2394 = t644 * sigma[0];
2401   t2396 = 0.5375e4 / 0.28697814e8 * t507 * t2394;
2402   t2397 = t200 * t178;
2403   t2399 = 0.950e3 / 0.531441e6 * t171 * t2397;
2404   t2424 = t275 * t32 * t92;
2405   t2431 = 0.24e2 * t1674 * t387 * t224 - 0.12e2 * t553 * t390 * t224 - 0.6e1 * t553 * t399 * t224 + t2396 - t2399 + 0.4e1 * t223 * t934 * t108 + 0.2e1 * t223 * t399 * t243 - 0.12e2 * t553 * t911 * t108 + 0.8e1 * t223 * t300 * t312 + 0.8e1 * t223 * t914 * t108 + 0.8e1 * t223 * t917 * t108 + 0.4e1 * t223 * t920 * t108 - 0.5000e4 / 0.729e3 * t187 * t63 * t265 * t2424 - 0.625e3 / 0.2916e4 * t614 * t275 * t370 * t243;
2406   t2462 = t197 * t324 * t32;
2407   t2476 = 0.625e3 / 0.972e3 * t757 * t275 * t370 * t216 + 0.50e2 / 0.27e2 * t966 * t218 - 0.10000e5 / 0.729e3 * t613 * t399 * t194 - 0.200e3 / 0.27e2 * t607 * t911 * t94 + 0.100e3 / 0.27e2 * t197 * t909 * t94 + 0.200e3 / 0.81e2 * t596 * t970 + 0.200e3 / 0.81e2 * t780 * t970 + 0.200e3 / 0.81e2 * t199 * t200 * t81 * t312 + 0.625e3 / 0.486e3 * t187 * t117 * t370 * t2424 - 0.625e3 / 0.1458e4 * t1538 * t974 - 0.25e2 / 0.27e2 * t2462 * t281 + 0.200e3 / 0.27e2 * t197 * t914 * t94 + 0.200e3 / 0.27e2 * t197 * t917 * t94 + 0.100e3 / 0.27e2 * t963 * t218 - 0.20000e5 / 0.729e3 * t613 * t390 * t194;
2408   t2484 = t607 * t766;
2409   t2516 = 0.100e3 / 0.27e2 * t197 * t920 * t94 + 0.100e3 / 0.27e2 * t197 * t934 * t94 + 0.25e2 / 0.27e2 * t2484 * t750 + 0.200e3 / 0.81e2 * t767 * t754 + 0.625e3 / 0.1458e4 * t1525 * t275 * t370 * t224 + 0.5000e4 / 0.2187e4 * t614 * t275 * t265 * t108 - 0.1100e4 / 0.243e3 * t199 * t200 * t183 * t135 - 0.2500e4 / 0.729e3 * t993 * t774 - 0.100e3 / 0.27e2 * t996 * t218 + 0.20000e5 / 0.729e3 * t1524 * t387 * t194 - 0.25e2 / 0.54e2 * t1770 * t379 - 0.25e2 / 0.27e2 * t1778 * t379 - 0.25e2 / 0.27e2 * t596 * t987 - 0.25e2 / 0.54e2 * t1816 * t379;
2410   t2528 = t187 * t324 * t33;
2411   t2532 = t197 * t140 * t92;
2412   t2544 = 0.1e1 / t17 / t1647 * t173 * t15;
2413   t2552 = 0.2500e4 / 0.3486784401e10 * t1612 * t2544;
2414   t2555 = t312 * t312;
2415   t2576 = -0.25e2 / 0.27e2 * t780 * t987 - 0.25e2 / 0.54e2 * t199 * t200 * t19 * t696 - 0.25e2 / 0.54e2 * t767 * t631 + 0.40000e5 / 0.2187e4 * t993 * t746 - 0.5000e4 / 0.729e3 * t2528 * t277 - 0.25e2 / 0.27e2 * t2532 * t281 - 0.2500e4 / 0.243e3 * t187 * t140 * t192 * t275 * t19 * t32 + t57 * (-0.2500e4 / 0.3486784401e10 * t1728 * t2544 + 0.5375e4 / 0.28697814e8 * t486 * t2394 - 0.950e3 / 0.531441e6 * t248 * t2397 + t2552 - t2396 + t2399) + 0.4e1 * t223 * t63 * t2555 + 0.2e1 * t223 * t403 * t224 + 0.2e1 * t223 * t254 * t386 - 0.2e1 * t99 * t661 * t135 - 0.4e1 * t99 * t324 * t312 - 0.2e1 * t99 * t140 * t696 - t99 * t254 * t398;
2416   t2582 = t216 * t45;
2417   t2618 = t135 * t108;
2418   t2626 = t584 * t216;
2419   t2634 = t56 * t140;
2420   t2638 = -0.2e1 * t99 * t117 * t933 - t99 * t63 * (0.125e3 / 0.1296e4 * t2582 * t370 - 0.250e3 / 0.243e3 * t922 * t265 + 0.2375e4 / 0.729e3 * t231 * t178 + 0.78125e5 / 0.13122e5 * t1703 * t395 * t192 - 0.1250000e7 / 0.59049e5 * t538 * t930 * t92 + 0.78125e5 / 0.39366e5 * t538 * t395 * t216 + 0.2968750e7 / 0.177147e6 * t236 * t52 * t178) - 0.2e1 * t99 * t961 * t108 - t99 * t403 * t243 - 0.6e1 * t553 * t387 * t243 + 0.4e1 * t223 * t136 * t696 + 0.4e1 * t223 * t390 * t243 - 0.24e2 * t1121 * t2618 * t312 + 0.25e2 / 0.81e2 * t205 * t942 - 0.475e3 / 0.486e3 * t86 * t2397 - 0.15625e5 / 0.19683e5 * t2626 * t1019 - 0.31250e5 / 0.19683e5 * t1018 * t2107 * t370 - 0.25e2 / 0.864e3 * t581 * t371 + 0.250000e6 / 0.19683e5 * t785 * t2634 * t19;
2421   t2641 = t1652 * t192;
2422   t2648 = t1524 * t273 * t10;
2423   t2650 = t135 * t92 * t108;
2424   t2658 = t63 * t370;
2425   t2672 = t312 * t32 * t1148;
2426   t2696 = -0.50e2 / 0.27e2 * t1009 * t209 - 0.31250e5 / 0.6561e4 * t2641 * t1019 + 0.500000e6 / 0.59049e5 * t1018 * t786 * t265 - 0.10000e5 / 0.729e3 * t2648 * t1142 * t2650 + 0.25e2 / 0.27e2 * t608 * t200 * t378 * t243 - 0.625e3 / 0.486e3 * t613 * t2658 * t275 * t108 * t32 * t92 - 0.200e3 / 0.27e2 * t607 * t399 * t792 + 0.200e3 / 0.9e1 * t1516 * t387 * t792 - 0.400e3 / 0.27e2 * t790 * t2672 - 0.400e3 / 0.81e2 * t608 * t200 * t969 * t108 - 0.40000e5 / 0.2187e4 * t614 * t275 * t969 * t92 + 0.5000e4 / 0.729e3 * t1538 * t1027 + 0.5000e4 / 0.729e3 * t614 * t275 * t986 * t92 + 0.2500e4 / 0.729e3 * t614 * t275 * t378 * t216 - 0.400e3 / 0.27e2 * t607 * t390 * t792;
2427   t2725 = t187 * t403;
2428   t2728 = t85 * t961;
2429   t2737 = 0.2500e4 / 0.243e3 * t1499 * t275 * t378 * t192 - 0.25e2 / 0.9e1 * t1869 * t200 * t378 * t224 + 0.5000e4 / 0.729e3 * t1804 * t796 + 0.50e2 / 0.27e2 * t1845 * t1031 + 0.50e2 / 0.27e2 * t1848 * t1031 + 0.50e2 / 0.27e2 * t608 * t200 * t986 * t108 + 0.25e2 / 0.27e2 * t711 * t287 + 0.25e2 / 0.54e2 * t315 * t708 + 0.25e2 / 0.864e3 * t568 * t1005 * t1605 - 0.50e2 / 0.27e2 * t1009 * t218 + 0.10000e5 / 0.729e3 * t2725 * t194 - 0.100e3 / 0.27e2 * t2728 * t94 - 0.250000e6 / 0.19683e5 * t785 * t1743 * t378 + 0.31250e5 / 0.19683e5 * t1018 * t1743 * t973;
2430   t2755 = t265 * t34;
2431   t2759 = t192 * t10;
2432   t2777 = 0.25e2 / 0.432e3 * t1598 * t1006 + 0.625e3 / 0.2916e4 * t1593 * t375 + 0.25e2 / 0.54e2 * t1924 * t127 + 0.100e3 / 0.27e2 * t1912 * t729 - t2552 + 0.1100e4 / 0.243e3 * t315 * t725 - 0.200e3 / 0.81e2 * t711 * t291 - 0.200e3 / 0.81e2 * t315 * t721 - 0.25e2 / 0.432e3 * t1562 * t1005 * t1563 - 0.25e2 / 0.81e2 * t568 * t2755 * t569 + 0.625e3 / 0.972e3 * t188 * t2759 * t374 + 0.50e2 / 0.27e2 * t568 * t398 * t192 * t200 - 0.5000e4 / 0.2187e4 * t577 * t1013 - 0.100e3 / 0.27e2 * t1562 * t386 * t192 * t200 + 0.47500e5 / 0.6561e4 * t188 * t189 * t191 * t178;
2433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2434     v4rho2sigma2[0] = -t626 * t406 / 0.6e1 - t260 * t1036 - 0.3e1 / 0.8e1 * t71 * t72 * (t2431 + t2476 + t2516 + t2576 + t2638 + t2696 + t2737 + t2777);
2435 
2436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2437     v4rho2sigmalapl[0] = 0.0e0;
2438 
2439   t2806 = 0.2000e4 / 0.243e3 * t971 - 0.32500e5 / 0.2187e4 * t975 + 0.32500e5 / 0.729e3 * t979 - 0.500e3 / 0.81e2 * t982 - 0.500e3 / 0.81e2 * t984 - 0.500e3 / 0.81e2 * t988 - 0.500e3 / 0.81e2 * t990 - 0.100000e6 / 0.2187e4 * t994 + 0.32500e5 / 0.2187e4 * t999 + 0.500e3 / 0.81e2 * t1001 + 0.500e3 / 0.81e2 * t1003 + 0.325e3 / 0.162e3 * t1007 - 0.260000e6 / 0.6561e4 * t1014 - 0.2000e4 / 0.243e3 * t1016 - t99 * t661 * t155 - 0.2e1 * t99 * t324 * t361;
2440   t2865 = -t99 * t140 * t871 - t99 * t254 * t437 - 0.2e1 * t99 * t117 * t1054 - t99 * t63 * (-0.125e3 / 0.162e3 * t2582 * t410 + 0.1625e4 / 0.243e3 * t923 - 0.13000e5 / 0.729e3 * t925 - 0.312500e6 / 0.6561e4 * t1703 * t434 * t192 + 0.8125000e7 / 0.59049e5 * t928 - 0.312500e6 / 0.19683e5 * t538 * t434 * t216 - 0.16250000e8 / 0.177147e6 * t931) - 0.6e1 * t553 * t430 * t224 - 0.6e1 * t553 * t438 * t224 + 0.4e1 * t223 * t1041 * t108 + 0.4e1 * t223 * t1043 * t108 + 0.4e1 * t223 * t1045 * t108 + 0.4e1 * t223 * t1055 * t108 + 0.2e1 * t223 * t874 * t135 + 0.4e1 * t223 * t854 * t135 + 0.4e1 * t223 * t352 * t312 + 0.2e1 * t223 * t872 * t135 + 0.4e1 * t223 * t362 * t312 + 0.2e1 * t223 * t156 * t696;
2441   t2904 = 0.2e1 * t223 * t430 * t243 + 0.2e1 * t223 * t438 * t243 - 0.3250000e7 / 0.59049e5 * t1020 - 0.325e3 / 0.162e3 * t1022 + 0.1300e4 / 0.243e3 * t1024 + 0.25e2 / 0.108e3 * t581 * t422 - 0.12e2 * t553 * t117 * t1123 - 0.12e2 * t1121 * t361 * t135 * t108 - 0.12e2 * t1121 * t155 * t312 * t108 - 0.6e1 * t1121 * t1122 * t243 + 0.250000e6 / 0.6561e4 * t2641 * t1126 - 0.1000000e7 / 0.19683e5 * t785 * t2634 * t29 + 0.125000e6 / 0.19683e5 * t2626 * t1126 + 0.250000e6 / 0.19683e5 * t1018 * t2107 * t410 + 0.100000e6 / 0.2187e4 * t1028 + 0.1000e4 / 0.81e2 * t1032;
2442   t2905 = t1674 * t63;
2443   t2910 = t1524 * t156 * t33;
2444   t2919 = t197 * t1041;
2445   t2922 = t197 * t1043;
2446   t2927 = t613 * t430;
2447   t2930 = t197 * t1045;
2448   t2933 = t197 * t1055;
2449   t2938 = t613 * t438;
2450   t2953 = 0.24e2 * t2905 * t1122 * t224 - 0.5000e4 / 0.729e3 * t2910 * t796 + 0.200e3 / 0.9e1 * t1516 * t427 * t792 + 0.40000e5 / 0.729e3 * t2648 * t2350 * t2650 + 0.100e3 / 0.27e2 * t2919 * t94 + 0.100e3 / 0.27e2 * t2922 * t94 + 0.50e2 / 0.27e2 * t1099 * t218 - 0.10000e5 / 0.729e3 * t2927 * t194 + 0.100e3 / 0.27e2 * t2930 * t94 + 0.100e3 / 0.27e2 * t2933 * t94 + 0.50e2 / 0.27e2 * t1102 * t218 - 0.10000e5 / 0.729e3 * t2938 * t194 + 0.50e2 / 0.27e2 * t1816 * t416 + 0.100e3 / 0.27e2 * t780 * t1085 + 0.50e2 / 0.27e2 * t199 * t200 * t29 * t696 + 0.100e3 / 0.27e2 * t2462 * t337 + 0.100e3 / 0.27e2 * t2532 * t337;
2451   t2992 = 0.50e2 / 0.27e2 * t767 * t847 + 0.20000e5 / 0.729e3 * t2528 * t333 + 0.10000e5 / 0.729e3 * t993 * t839 - 0.25e2 / 0.108e3 * t2196 * t127 - 0.25e2 / 0.54e2 * t2188 * t127 - 0.25e2 / 0.54e2 * t850 * t287 - 0.25e2 / 0.108e3 * t2191 * t127 - 0.25e2 / 0.54e2 * t820 * t287 - 0.25e2 / 0.108e3 * t346 * t708 + 0.2500e4 / 0.729e3 * t1538 * t1073 + 0.1250e4 / 0.729e3 * t614 * t275 * t410 * t243 - 0.2500e4 / 0.243e3 * t1766 * t1077 - 0.1250e4 / 0.243e3 * t757 * t275 * t410 * t216 + 0.50e2 / 0.27e2 * t1770 * t416 + 0.100e3 / 0.27e2 * t1778 * t416 + 0.100e3 / 0.27e2 * t596 * t1085;
2452   t3001 = t187 * t766;
2453   t3042 = -0.550e3 / 0.243e3 * t346 * t725 - 0.100e3 / 0.27e2 * t895 * t729 + 0.100e3 / 0.81e2 * t346 * t721 - 0.100e3 / 0.27e2 * t2484 * t833 + 0.10000e5 / 0.243e3 * t3001 * t829 + 0.100e3 / 0.81e2 * t850 * t291 + 0.100e3 / 0.81e2 * t820 * t291 - 0.2500e4 / 0.729e3 * t1525 * t275 * t410 * t224 + 0.25e2 / 0.27e2 * t895 * t286 * t1138 - 0.200e3 / 0.27e2 * t1845 * t1131 - 0.20000e5 / 0.729e3 * t1538 * t1135 - 0.200e3 / 0.27e2 * t1848 * t1131 - 0.10000e5 / 0.243e3 * t613 * t1548 * t275 * t415 * t32 - 0.200e3 / 0.27e2 * t608 * t200 * t1084 * t108 - 0.20000e5 / 0.729e3 * t614 * t275 * t1084 * t92 + 0.2500e4 / 0.243e3 * t1499 * t275 * t1072 * t92 - 0.25e2 / 0.18e2 * t2330 * t87 * t126 * t224;
2454   t3084 = t607 * t430;
2455   t3087 = t607 * t438;
2456   t3098 = -0.200e3 / 0.81e2 * t895 * t87 * t290 * t108 + 0.100e3 / 0.9e1 * t1869 * t200 * t415 * t224 + 0.25e2 / 0.54e2 * t895 * t87 * t126 * t243 - 0.20000e5 / 0.2187e4 * t825 * t189 * t191 * t81 * t92 + 0.1250e4 / 0.729e3 * t825 * t189 * t1142 * t216 - 0.200e3 / 0.27e2 * t2303 * t1149 - 0.200e3 / 0.27e2 * t2306 * t1149 - 0.200e3 / 0.27e2 * t895 * t2672 - 0.100e3 / 0.27e2 * t895 * t1147 * t200 * t216 + 0.20000e5 / 0.729e3 * t2314 * t135 * t33 * t275 * t192 + 0.1250e4 / 0.243e3 * t825 * t2759 * t1142 * t32 - 0.200e3 / 0.27e2 * t3084 * t792 - 0.200e3 / 0.27e2 * t3087 * t792 - 0.100e3 / 0.27e2 * t608 * t200 * t415 * t243 - 0.20000e5 / 0.729e3 * t1804 * t899 + 0.25e2 / 0.27e2 * t2303 * t1139;
2457   t3144 = 0.2500e4 / 0.729e3 * t2199 * t1144 + 0.25e2 / 0.27e2 * t2306 * t1139 + 0.2500e4 / 0.729e3 * t2204 * t1144 - 0.10000e5 / 0.729e3 * t614 * t275 * t415 * t216 - 0.1250e4 / 0.243e3 * t188 * t2759 * t411 - 0.250000e6 / 0.19683e5 * t1018 * t1743 * t1072 + 0.1000000e7 / 0.19683e5 * t785 * t1743 * t415 - 0.125000e6 / 0.19683e5 * t785 * t1743 * t155 * t19 - 0.25e2 / 0.54e2 * t1598 * t1111 + 0.25e2 / 0.54e2 * t1562 * t421 * t1563 + 0.50e2 / 0.27e2 * t1912 * t884 + 0.50e2 / 0.27e2 * t568 * t437 * t192 * t200 - 0.50e2 / 0.27e2 * t1924 * t147 - 0.100e3 / 0.27e2 * t711 * t342 - 0.50e2 / 0.27e2 * t315 * t880 - 0.25e2 / 0.108e3 * t568 * t421 * t1605 - 0.1250e4 / 0.729e3 * t1593 * t412;
2458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2459     v4rho2sigmatau[0] = -t626 * t441 / 0.6e1 - t260 * t1154 - 0.3e1 / 0.8e1 * t71 * t72 * (t2806 + t2865 + t2904 + t2953 + t2992 + t3042 + t3098 + t3144);
2460 
2461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2462     v4rho2lapl2[0] = 0.0e0;
2463 
2464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2465     v4rho2lapltau[0] = 0.0e0;
2466 
2467   t3163 = t361 * t361;
2468   t3171 = t155 * t108;
2469   t3183 = 0.200000e6 / 0.2187e4 * t1074 - 0.200000e6 / 0.729e3 * t1078 - 0.1000e4 / 0.81e2 * t1092 - 0.1000e4 / 0.81e2 * t1094 - 0.1000e4 / 0.81e2 * t1096 + 0.4000e4 / 0.243e3 * t1105 - 0.1000e4 / 0.81e2 * t1112 - 0.200000e6 / 0.2187e4 * t1114 + 0.1300000e7 / 0.6561e4 * t376 + 0.4e1 * t223 * t63 * t3163 + 0.1000e4 / 0.81e2 * t1119 + 0.20000000e8 / 0.59049e5 * t1127 - 0.50e2 / 0.27e2 * t581 * t455 - 0.24e2 * t1121 * t3171 * t361 - 0.2000000e7 / 0.6561e4 * t2641 * t1159 - 0.1000000e7 / 0.19683e5 * t2626 * t1159 - 0.2000000e7 / 0.19683e5 * t1018 * t2107 * t445 - 0.6500e4 / 0.243e3 * t384;
2470   t3218 = t607 * t1203;
2471   t3223 = t1524 * t459;
2472   t3226 = t197 * t1215;
2473   t3229 = t197 * t1225;
2474   t3234 = t613 * t468;
2475   t3237 = 0.2000e4 / 0.81e2 * t1140 + 0.200000e6 / 0.2187e4 * t1145 - 0.100e3 / 0.27e2 * t1562 * t454 * t1563 + 0.100e3 / 0.27e2 * t1598 * t1191 + 0.50e2 / 0.27e2 * t568 * t454 * t1605 - 0.100e3 / 0.27e2 * t1562 * t458 * t192 * t200 + 0.50e2 / 0.27e2 * t568 * t467 * t192 * t200 + 0.10000e5 / 0.243e3 * t188 * t2759 * t446 + 0.2000000e7 / 0.19683e5 * t1018 * t1743 * t1162 + 0.10000e5 / 0.729e3 * t1593 * t447 + 0.2000000e7 / 0.19683e5 * t785 * t1743 * t450 + 0.80000e5 / 0.729e3 * t2648 * t2350 * t155 * t92 * t108 - 0.200e3 / 0.27e2 * t3218 * t94 - 0.100e3 / 0.27e2 * t1197 * t218 + 0.20000e5 / 0.729e3 * t3223 * t194 + 0.100e3 / 0.27e2 * t3226 * t94 + 0.100e3 / 0.27e2 * t3229 * t94 + 0.50e2 / 0.27e2 * t1209 * t218 - 0.10000e5 / 0.729e3 * t3234 * t194;
2476   t3292 = t1516 * t459;
2477   t3299 = t607 * t468;
2478   t3302 = -0.20000e5 / 0.729e3 * t1538 * t1163 - 0.10000e5 / 0.729e3 * t614 * t275 * t445 * t243 + 0.20000e5 / 0.243e3 * t1766 * t1169 + 0.10000e5 / 0.243e3 * t757 * t275 * t445 * t216 + 0.100e3 / 0.27e2 * t1770 * t451 + 0.200e3 / 0.27e2 * t1778 * t451 + 0.200e3 / 0.27e2 * t596 * t1187 + 0.100e3 / 0.27e2 * t1816 * t451 + 0.200e3 / 0.27e2 * t780 * t1187 + 0.100e3 / 0.27e2 * t199 * t200 * t29 * t871 + 0.20000e5 / 0.729e3 * t1525 * t275 * t445 * t224 + 0.2e1 * t223 * t254 * t458 - t99 * t254 * t467 - 0.2e1 * t99 * t117 * t1224 - t99 * t63 * (0.500e3 / 0.81e2 * t2582 * t445 - 0.10000e5 / 0.243e3 * t1047 + 0.65000e5 / 0.729e3 * t393 + 0.2500000e7 / 0.6561e4 * t1703 * t464 * t192 - 0.50000000e8 / 0.59049e5 * t1051 + 0.2500000e7 / 0.19683e5 * t538 * t464 * t216 + 0.81250000e8 / 0.177147e6 * t396) + 0.200e3 / 0.9e1 * t3292 * t792 - 0.400e3 / 0.27e2 * t895 * t87 * t93 * t361 - 0.200e3 / 0.27e2 * t3299 * t792;
2479   t3364 = -0.40000e5 / 0.729e3 * t1538 * t1174 - 0.40000e5 / 0.729e3 * t614 * t275 * t1186 * t92 - 0.20000e5 / 0.729e3 * t614 * t275 * t450 * t216 - 0.400e3 / 0.27e2 * t1845 * t1178 - 0.400e3 / 0.27e2 * t1848 * t1178 - 0.400e3 / 0.27e2 * t608 * t200 * t1186 * t108 - 0.200e3 / 0.27e2 * t608 * t200 * t450 * t243 - 0.20000e5 / 0.243e3 * t1499 * t275 * t1162 * t92 - 0.20000e5 / 0.243e3 * t1499 * t275 * t450 * t192 + 0.200e3 / 0.9e1 * t1869 * t200 * t450 * t224 - 0.12e2 * t553 * t1203 * t108 - 0.6e1 * t553 * t459 * t243 + 0.8e1 * t223 * t352 * t361 + 0.4e1 * t223 * t156 * t871 + 0.4e1 * t223 * t1215 * t108 + 0.4e1 * t223 * t1225 * t108 + 0.2e1 * t223 * t468 * t243 + 0.24e2 * t1674 * t459 * t224 - 0.6e1 * t553 * t468 * t224;
2480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2481     v4rho2tau2[0] = -t626 * t471 / 0.6e1 - t260 * t1229 - 0.3e1 / 0.8e1 * t71 * t72 * (t3183 + t3237 + t3302 + t3364);
2482 
2483   t3375 = 0.1e1 / t17 / t490 * t10 * t78;
2484   t3381 = 0.625e3 / 0.2324522934e10 * t1612 * t3375;
2485   t3383 = 0.125e3 / 0.3188646e7 * t507 * t938;
2486   t3394 = t786 * t92;
2487   t3397 = t584 * t1232;
2488   t3404 = t92 * t10;
2489   t3410 = t37 * t312;
2490   t3417 = t85 * t1275;
2491   t3432 = t57 * (0.625e3 / 0.2324522934e10 * t1728 * t3375 - 0.125e3 / 0.3188646e7 * t486 * t938 - t3381 + t3383) - 0.25e2 / 0.288e3 * t711 * t371 - 0.15625e5 / 0.6561e4 * t1018 * t2634 * t370 + 0.25e2 / 0.54e2 * t315 * t942 + 0.15625e5 / 0.26244e5 * t1652 * t1232 * t3394 - 0.15625e5 / 0.157464e6 * t3397 * t1744 - 0.18e2 * t1121 * t135 * t398 * t108 - 0.625e3 / 0.7776e4 * t188 * t3404 * t1287 + 0.25e2 / 0.288e3 * t1598 * t1292 + 0.25e2 / 0.288e3 * t568 * t1005 * t3410 + 0.15625e5 / 0.6561e4 * t1018 * t1743 * t1244 + t3381 - 0.50e2 / 0.27e2 * t3417 * t94 + 0.25e2 / 0.288e3 * t1912 * t1006 + 0.25e2 / 0.36e2 * t2728 * t127 + 0.25e2 / 0.36e2 * t1009 * t287 + 0.625e3 / 0.972e3 * t1909 * t375 - 0.50e2 / 0.27e2 * t1009 * t291 - 0.2500e4 / 0.729e3 * t716 * t1013;
2492   t3490 = t187 * t403 * t33;
2493   t3495 = 0.625e3 / 0.972e3 * t188 * t563 * t191 * t937 - 0.25e2 / 0.54e2 * t568 * t2755 * t1291 - 0.625e3 / 0.7776e4 * t577 * t1288 + 0.6e1 * t223 * t1263 * t108 + 0.2e1 * t223 * t1271 * t108 - 0.15625e5 / 0.19683e5 * t584 * t937 * t56 * t63 + 0.6e1 * t223 * t313 * t398 + 0.6e1 * t223 * t136 * t933 - 0.18e2 * t553 * t1257 * t108 + 0.12e2 * t223 * t390 * t312 + 0.6e1 * t223 * t1260 * t108 + 0.15625e5 / 0.157464e6 * t584 * t1233 * t117 + 0.24e2 * t1674 * t1238 * t108 - 0.18e2 * t553 * t387 * t312 + 0.6e1 * t223 * t300 * t398 + 0.100e3 / 0.27e2 * t767 * t970 + 0.50e2 / 0.27e2 * t199 * t200 * t81 * t398 - 0.100e3 / 0.27e2 * t608 * t200 * t81 * t386 - 0.1250e4 / 0.243e3 * t3490 * t277 - 0.625e3 / 0.972e3 * t1804 * t974;
2494   t3502 = t200 * t2618;
2495   t3505 = t1516 * t1238;
2496   t3549 = t197 * t403 * t32;
2497   t3556 = 0.625e3 / 0.7776e4 * t1499 * t275 * t1232 * t108 - 0.25e2 / 0.144e3 * t607 * t2658 * t3502 + 0.100e3 / 0.9e1 * t3505 * t94 - 0.625e3 / 0.972e3 * t1538 * t1245 - 0.625e3 / 0.972e3 * t614 * t275 * t370 * t312 - 0.25e2 / 0.18e2 * t2462 * t379 - 0.25e2 / 0.18e2 * t2532 * t379 - 0.25e2 / 0.18e2 * t767 * t987 - 0.25e2 / 0.36e2 * t596 * t1251 - 0.25e2 / 0.36e2 * t780 * t1251 - 0.25e2 / 0.36e2 * t199 * t200 * t19 * t933 - 0.100e3 / 0.9e1 * t607 * t1257 * t94 + 0.50e2 / 0.9e1 * t197 * t1260 * t94 + 0.50e2 / 0.9e1 * t197 * t1263 * t94 + 0.50e2 / 0.27e2 * t197 * t1271 * t94 + 0.25e2 / 0.18e2 * t1845 * t1278 + 0.25e2 / 0.18e2 * t1848 * t1278 + 0.625e3 / 0.324e3 * t187 * t140 * t370 * t2424 - 0.25e2 / 0.36e2 * t3549 * t281 + 0.2500e4 / 0.729e3 * t614 * t275 * t265 * t135;
2498   t3589 = t398 * t32;
2499   t3590 = t3589 * t1148;
2500   t3625 = -t3383 - 0.3e1 * t99 * t140 * t933 - t99 * t117 * t1270 - t99 * t63 * (0.125e3 / 0.1296e4 * t938 - 0.78125e5 / 0.104976e6 * t1703 * t1267 * t92 + 0.78125e5 / 0.39366e5 * t538 * t52 * t937) - t99 * t1275 * t108 - 0.6e1 * t553 * t117 * t1237 + 0.6e1 * t223 * t324 * t386 - 0.3e1 * t99 * t961 * t135 - 0.3e1 * t99 * t403 * t312 - 0.3e1 * t99 * t324 * t398 - 0.100e3 / 0.9e1 * t790 * t3590 + 0.625e3 / 0.486e3 * t1525 * t275 * t1244 * t108 - 0.625e3 / 0.324e3 * t1499 * t275 * t1244 * t92 + 0.25e2 / 0.9e1 * t2484 * t1031 + 0.2500e4 / 0.243e3 * t1804 * t1027 + 0.25e2 / 0.18e2 * t608 * t200 * t1250 * t108 + 0.1250e4 / 0.243e3 * t614 * t275 * t1250 * t92 - 0.25e2 / 0.6e1 * t1869 * t200 * t1277 * t108 + 0.25e2 / 0.9e1 * t608 * t200 * t378 * t312 - 0.2500e4 / 0.243e3 * t1525 * t275 * t1277 * t92;
2501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2502     v4rhosigma3[0] = -t260 * t1296 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t72 * (t3432 + t3495 + t3556 + t3625);
2503 
2504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2505     v4rhosigma2lapl[0] = 0.0e0;
2506 
2507   t3651 = 0.109375e6 / 0.19683e5 * t1235 - 0.32500e5 / 0.2187e4 * t1246 - 0.500e3 / 0.81e2 * t1248 - 0.250e3 / 0.81e2 * t1252 + 0.500e3 / 0.81e2 * t1279 + 0.250e3 / 0.81e2 * t1283 + 0.32500e5 / 0.2187e4 * t1285 - 0.4375e4 / 0.972e3 * t1289 + 0.325e3 / 0.162e3 * t1293 - 0.325e3 / 0.162e3 * t1281 - 0.2e1 * t99 * t324 * t437 - 0.2e1 * t99 * t140 * t1054 - t99 * t117 * t1310;
2508   t3697 = -t99 * t63 * (-0.875e3 / 0.1296e4 * t1254 + 0.78125e5 / 0.13122e5 * t1703 * t1307 * t92 - 0.546875e6 / 0.39366e5 * t1268) - t99 * t961 * t155 - t99 * t403 * t361 + 0.2e1 * t223 * t156 * t933 - 0.6e1 * t553 * t352 * t386 - 0.6e1 * t553 * t362 * t386 + 0.4e1 * t223 * t1055 * t135 + 0.4e1 * t223 * t438 * t312 + 0.2e1 * t223 * t352 * t398 + 0.2e1 * t223 * t362 * t398 - 0.15625e5 / 0.19683e5 * t584 * t1313 * t117 + 0.4e1 * t223 * t1041 * t135 + 0.4e1 * t223 * t1043 * t135 + 0.4e1 * t223 * t430 * t312;
2509   t3746 = 0.4e1 * t223 * t1045 * t135 + 0.2e1 * t223 * t1299 * t108 + 0.4e1 * t223 * t1301 * t108 + 0.2e1 * t223 * t1311 * t108 - 0.200e3 / 0.81e2 * t895 * t87 * t290 * t135 + 0.625e3 / 0.1458e4 * t2314 * t189 * t374 * t108 - 0.625e3 / 0.972e3 * t825 * t563 * t374 * t92 + 0.100e3 / 0.9e1 * t1869 * t200 * t1343 * t108 - 0.200e3 / 0.27e2 * t608 * t200 * t415 * t312 + 0.20000e5 / 0.729e3 * t1525 * t275 * t1343 * t92 + 0.25e2 / 0.27e2 * t2303 * t1348 + 0.25e2 / 0.27e2 * t2306 * t1348 + 0.25e2 / 0.27e2 * t895 * t286 * t1347 + 0.25e2 / 0.27e2 * t895 * t87 * t126 * t312;
2510   t3785 = 0.100e3 / 0.9e1 * t2330 * t386 * t32 * t1148 - 0.5000e4 / 0.729e3 * t1525 * t275 * t1326 * t108 + 0.2500e4 / 0.243e3 * t1499 * t275 * t1326 * t92 - 0.200e3 / 0.27e2 * t2484 * t1131 - 0.20000e5 / 0.729e3 * t1804 * t1135 - 0.100e3 / 0.27e2 * t608 * t200 * t1332 * t108 - 0.10000e5 / 0.729e3 * t614 * t275 * t1332 * t92 + 0.25e2 / 0.27e2 * t3084 * t1139 + 0.2500e4 / 0.729e3 * t2927 * t1144 + 0.25e2 / 0.27e2 * t3087 * t1139 - 0.200e3 / 0.27e2 * t3084 * t1149 - 0.200e3 / 0.27e2 * t3087 * t1149 - 0.100e3 / 0.27e2 * t895 * t3590 + 0.2500e4 / 0.729e3 * t2938 * t1144;
2511   t3822 = 0.25e2 / 0.864e3 * t1598 * t1357 + 0.25e2 / 0.864e3 * t568 * t361 * t370 * t200 - 0.2500e4 / 0.729e3 * t1909 * t412 + 0.625e3 / 0.972e3 * t577 * t1363 + 0.625e3 / 0.972e3 * t188 * t3404 * t1362 - 0.25e2 / 0.54e2 * t1598 * t1366 - 0.25e2 / 0.54e2 * t568 * t421 * t3410 - 0.50e2 / 0.27e2 * t2728 * t147 - 0.50e2 / 0.27e2 * t1009 * t342 - 0.250000e6 / 0.19683e5 * t1018 * t1743 * t1326 + 0.15625e5 / 0.19683e5 * t1018 * t1743 * t1356 - 0.25e2 / 0.54e2 * t1912 * t1111 - 0.25e2 / 0.162e3 * t568 * t155 * t265 * t200;
2512   t3829 = t155 * t398;
2513   t3848 = t584 * t1304;
2514   t3859 = t607 * t63 * t410;
2515   t3866 = -0.25e2 / 0.9e1 * t1516 * t156 * t32 * t1031 - 0.5000e4 / 0.729e3 * t2910 * t1027 - 0.6e1 * t1121 * t3829 * t108 + 0.25e2 / 0.54e2 * t711 * t422 + 0.24e2 * t2905 * t155 * t386 * t108 - 0.12e2 * t1121 * t1122 * t312 + 0.250000e6 / 0.19683e5 * t1018 * t2634 * t410 - 0.31250e5 / 0.6561e4 * t1652 * t1304 * t3394 + 0.15625e5 / 0.19683e5 * t3848 * t1744 - 0.12e2 * t553 * t140 * t1123 - 0.12e2 * t1121 * t437 * t135 * t108 + 0.25e2 / 0.27e2 * t3859 * t3502 + 0.50e2 / 0.27e2 * t3549 * t337 + 0.10000e5 / 0.729e3 * t3490 * t333;
2516   t3888 = t197 * t1299;
2517   t3891 = t197 * t1301;
2518   t3894 = t197 * t1311;
2519   t3905 = -0.625e3 / 0.2916e4 * t2199 * t375 - 0.625e3 / 0.2916e4 * t2204 * t375 - 0.100e3 / 0.27e2 * t1845 * t1344 - 0.100e3 / 0.27e2 * t1848 * t1344 - 0.2500e4 / 0.243e3 * t187 * t140 * t410 * t2424 - 0.25e2 / 0.432e3 * t895 * t1006 + 0.2500e4 / 0.729e3 * t1804 * t1073 - 0.625e3 / 0.972e3 * t1499 * t275 * t1304 * t108 + 0.50e2 / 0.27e2 * t3888 * t94 + 0.100e3 / 0.27e2 * t3891 * t94 + 0.50e2 / 0.27e2 * t3894 * t94 + 0.2500e4 / 0.729e3 * t1538 * t1327 + 0.2500e4 / 0.729e3 * t614 * t275 * t410 * t312 + 0.100e3 / 0.27e2 * t2462 * t416;
2520   t3936 = 0.100e3 / 0.27e2 * t2532 * t416 + 0.100e3 / 0.27e2 * t767 * t1085 + 0.50e2 / 0.27e2 * t596 * t1333 + 0.50e2 / 0.27e2 * t780 * t1333 + 0.50e2 / 0.27e2 * t199 * t200 * t29 * t933 - 0.25e2 / 0.54e2 * t2919 * t127 - 0.25e2 / 0.54e2 * t2922 * t127 - 0.25e2 / 0.54e2 * t1099 * t287 - 0.25e2 / 0.54e2 * t2930 * t127 - 0.25e2 / 0.54e2 * t2933 * t127 - 0.25e2 / 0.54e2 * t1102 * t287 + 0.100e3 / 0.81e2 * t1102 * t291 + 0.2500e4 / 0.2187e4 * t825 * t1013 + 0.100e3 / 0.81e2 * t1099 * t291;
2521   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2522     v4rhosigma2tau[0] = -t260 * t1373 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t72 * (t3651 + t3697 + t3746 + t3785 + t3822 + t3866 + t3905 + t3936);
2523 
2524   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2525     v4rhosigmalapl2[0] = 0.0e0;
2526 
2527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2528     v4rhosigmalapltau[0] = 0.0e0;
2529 
2530   t3968 = 0.100000e6 / 0.2187e4 * t1328 - 0.500e3 / 0.81e2 * t1336 - 0.500e3 / 0.81e2 * t1339 - 0.32500e5 / 0.2187e4 * t1341 + 0.2e1 * t223 * t324 * t458 - t99 * t324 * t467 - t99 * t140 * t1224 - t99 * t117 * t1437 - t99 * t63 * (0.125e3 / 0.27e2 * t1305 - 0.312500e6 / 0.6561e4 * t1703 * t1434 * t92 + 0.625000e6 / 0.6561e4 * t1308) + 0.325e3 / 0.162e3 * t1358 - 0.100000e6 / 0.2187e4 * t1360;
2531   t4001 = 0.2500e4 / 0.81e2 * t1364 - 0.500e3 / 0.81e2 * t1367 - 0.6e1 * t553 * t1203 * t135 - 0.6e1 * t553 * t459 * t312 - 0.6e1 * t553 * t1419 * t108 + 0.4e1 * t223 * t430 * t361 + 0.4e1 * t223 * t352 * t437 + 0.4e1 * t223 * t362 * t437 + 0.4e1 * t223 * t156 * t1054 + 0.2e1 * t223 * t1215 * t135 + 0.2e1 * t223 * t1225 * t135 + 0.2e1 * t223 * t468 * t312;
2532   t4014 = t37 * t361;
2533   t4032 = 0.2e1 * t223 * t1430 * t108 + 0.2e1 * t223 * t1438 * t108 + 0.125000e6 / 0.19683e5 * t584 * t1377 * t117 + 0.500e3 / 0.81e2 * t1351 + 0.1000e4 / 0.81e2 * t1349 - 0.25e2 / 0.54e2 * t568 * t421 * t4014 + 0.50e2 / 0.27e2 * t1598 * t1409 + 0.50e2 / 0.27e2 * t568 * t454 * t3410 + 0.50e2 / 0.27e2 * t1912 * t1191 + 0.1000000e7 / 0.19683e5 * t1018 * t1743 * t1381 + 0.10000e5 / 0.729e3 * t1909 * t447 - 0.1250e4 / 0.243e3 * t577 * t1388;
2534   t4067 = 0.100e3 / 0.9e1 * t3292 * t1149 - 0.200e3 / 0.27e2 * t895 * t437 * t32 * t1148 + 0.25e2 / 0.54e2 * t3299 * t1139 + 0.1250e4 / 0.729e3 * t3234 * t1144 - 0.100e3 / 0.27e2 * t3299 * t1149 - 0.5000e4 / 0.729e3 * t1525 * t275 * t1391 * t108 + 0.2500e4 / 0.243e3 * t1499 * t275 * t1391 * t92 - 0.200e3 / 0.27e2 * t1845 * t1396 - 0.200e3 / 0.27e2 * t1848 * t1396 - 0.200e3 / 0.27e2 * t608 * t200 * t1186 * t135 - 0.200e3 / 0.27e2 * t608 * t200 * t450 * t312 - 0.200e3 / 0.27e2 * t2484 * t1178;
2535   t4104 = -0.20000e5 / 0.729e3 * t1804 * t1174 - 0.200e3 / 0.27e2 * t608 * t200 * t1405 * t108 + 0.20000e5 / 0.729e3 * t1525 * t275 * t1381 * t108 - 0.10000e5 / 0.243e3 * t1499 * t275 * t1381 * t92 - 0.20000e5 / 0.729e3 * t614 * t275 * t1405 * t92 - 0.25e2 / 0.18e2 * t3292 * t1139 + 0.25e2 / 0.27e2 * t895 * t87 * t126 * t361 - 0.2500e4 / 0.729e3 * t3223 * t1144 - 0.1250e4 / 0.243e3 * t188 * t3404 * t1387 - 0.250000e6 / 0.19683e5 * t1018 * t1743 * t1391 - 0.25e2 / 0.54e2 * t1598 * t1402;
2536   t4134 = t584 * t1376;
2537   t4144 = 0.200e3 / 0.9e1 * t1516 * t198 * t34 * t146 * t1123 + 0.40000e5 / 0.729e3 * t2648 * t2350 * t1122 * t92 - 0.50e2 / 0.27e2 * t711 * t455 + 0.24e2 * t2905 * t458 * t135 * t108 - 0.12e2 * t1121 * t1122 * t361 - 0.12e2 * t1121 * t155 * t437 * t108 - 0.6e1 * t1121 * t467 * t135 * t108 + 0.250000e6 / 0.6561e4 * t1652 * t1376 * t3394 - 0.125000e6 / 0.19683e5 * t4134 * t1744 - 0.1000000e7 / 0.19683e5 * t1018 * t2634 * t445 + 0.25e2 / 0.54e2 * t3218 * t127 + 0.25e2 / 0.54e2 * t1197 * t287;
2538   t4146 = t607 * t1419;
2539   t4155 = t197 * t1430;
2540   t4158 = t197 * t1438;
2541   t4173 = t200 * t3171;
2542   t4176 = -0.100e3 / 0.27e2 * t4146 * t94 - 0.25e2 / 0.108e3 * t3226 * t127 - 0.25e2 / 0.108e3 * t3229 * t127 - 0.25e2 / 0.108e3 * t1209 * t287 + 0.50e2 / 0.27e2 * t4155 * t94 + 0.50e2 / 0.27e2 * t4158 * t94 + 0.2500e4 / 0.729e3 * t1538 * t1392 + 0.2500e4 / 0.729e3 * t614 * t275 * t410 * t361 + 0.100e3 / 0.27e2 * t2462 * t451 + 0.100e3 / 0.27e2 * t2532 * t451 + 0.100e3 / 0.27e2 * t767 * t1187 + 0.25e2 / 0.27e2 * t3859 * t4173;
2543   t4186 = t607 * t63 * t445;
2544   t4208 = 0.100e3 / 0.27e2 * t596 * t1406 + 0.100e3 / 0.27e2 * t780 * t1406 + 0.100e3 / 0.27e2 * t199 * t200 * t29 * t1054 - 0.100e3 / 0.27e2 * t4186 * t3502 - 0.10000e5 / 0.729e3 * t1538 * t1382 - 0.10000e5 / 0.729e3 * t614 * t275 * t445 * t312 - 0.10000e5 / 0.729e3 * t1804 * t1163 + 0.10000e5 / 0.243e3 * t3001 * t1169 + 0.1250e4 / 0.243e3 * t1499 * t275 * t1376 * t108 - 0.100e3 / 0.81e2 * t1197 * t291 + 0.50e2 / 0.81e2 * t1209 * t291 - 0.250000e6 / 0.6561e4 * t1315;
2545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2546     v4rhosigmatau2[0] = -t260 * t1441 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t72 * (t3968 + t4001 + t4032 + t4067 + t4104 + t4144 + t4176 + t4208);
2547 
2548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2549     v4rholapl3[0] = 0.0e0;
2550 
2551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2552     v4rholapl2tau[0] = 0.0e0;
2553 
2554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2555     v4rholapltau2[0] = 0.0e0;
2556 
2557   t4270 = t467 * t32;
2558   t4274 = -0.18e2 * t553 * t459 * t361 + 0.6e1 * t223 * t352 * t467 + 0.6e1 * t223 * t362 * t467 + 0.6e1 * t223 * t156 * t1224 + 0.2e1 * t223 * t1481 * t108 + 0.10000e5 / 0.243e3 * t577 * t1454 + 0.10000e5 / 0.243e3 * t188 * t3404 * t1453 + 0.50e2 / 0.9e1 * t1598 * t1461 + 0.50e2 / 0.9e1 * t568 * t454 * t4014 + 0.1000000e7 / 0.6561e4 * t1018 * t1743 * t1449 - 0.100e3 / 0.9e1 * t895 * t4270 * t1148;
2559   t4307 = t584 * t1444;
2560   t4310 = t155 * t467;
2561   t4314 = t1516 * t1469;
2562   t4317 = 0.20000e5 / 0.243e3 * t1525 * t275 * t1449 * t108 - 0.10000e5 / 0.81e2 * t1499 * t275 * t1449 * t92 + 0.100e3 / 0.3e1 * t1869 * t200 * t1457 * t108 - 0.200e3 / 0.9e1 * t608 * t200 * t450 * t361 + 0.20000e5 / 0.243e3 * t1525 * t275 * t1457 * t92 - 0.100e3 / 0.9e1 * t608 * t200 * t1464 * t108 - 0.10000e5 / 0.243e3 * t614 * t275 * t1464 * t92 - 0.2000000e7 / 0.6561e4 * t1652 * t1444 * t3394 + 0.1000000e7 / 0.19683e5 * t4307 * t1744 - 0.18e2 * t1121 * t4310 * t108 + 0.100e3 / 0.9e1 * t4314 * t94;
2563   t4318 = t197 * t1481;
2564   t4346 = 0.50e2 / 0.27e2 * t4318 * t94 - 0.10000e5 / 0.243e3 * t1538 * t1450 - 0.10000e5 / 0.243e3 * t614 * t275 * t445 * t361 - 0.10000e5 / 0.243e3 * t1499 * t275 * t1444 * t108 - 0.100e3 / 0.9e1 * t1845 * t1458 - 0.100e3 / 0.9e1 * t1848 * t1458 - 0.100e3 / 0.9e1 * t4186 * t4173 + 0.50e2 / 0.9e1 * t596 * t1465 + 0.50e2 / 0.9e1 * t780 * t1465 + 0.50e2 / 0.9e1 * t199 * t200 * t29 * t1224 + 0.5000000e7 / 0.19683e5 * t1379;
2565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2566     v4rhotau3[0] = -t260 * t1484 / 0.2e1 - 0.3e1 / 0.8e1 * t71 * t72 * (0.100000e6 / 0.729e3 * t1393 + 0.500e3 / 0.27e2 * t1414 - 0.250e3 / 0.27e2 * t1425 - 0.50000e5 / 0.243e3 * t1389 - 0.500e3 / 0.27e2 * t1403 - 0.6e1 * t553 * t117 * t1468 - t99 * t117 * t1480 - t99 * t63 * (-0.2500e4 / 0.81e2 * t1432 + 0.2500000e7 / 0.6561e4 * t1703 * t1477 * t92 - 0.12500000e8 / 0.19683e5 * t1435) - 0.1000000e7 / 0.19683e5 * t584 * t1445 * t117 + 0.24e2 * t1674 * t1469 * t108 + t4274 + t4317 + t4346);
2567 
2568   t4353 = 0.1e1 / t17 / t642;
2569   t4354 = t4353 * t10;
2570   t4355 = t4354 * t14;
2571   t4357 = t1612 * t4355;
2572   t4383 = t386 * t386;
2573   t4387 = t398 * t398;
2574   t4402 = t37 * t398;
2575   t4406 = t99 * t63;
2576   t4413 = t57 * (-0.625e3 / 0.6198727824e10 * t1728 * t4355 + 0.625e3 / 0.6198727824e10 * t4357) + 0.15625e5 / 0.39366e5 * t584 * t1233 * t140 - 0.15625e5 / 0.209952e6 * t1652 * t4353 * t56 * t63 - 0.36e2 * t553 * t387 * t398 + 0.24e2 * t223 * t390 * t398 + 0.8e1 * t223 * t136 * t1270 - 0.24e2 * t553 * t140 * t1237 + 0.12e2 * t223 * t403 * t386 + 0.24e2 * t1674 * t63 * t4383 + 0.6e1 * t223 * t63 * t4387 - 0.4e1 * t99 * t1275 * t135 - 0.6e1 * t99 * t403 * t398 - 0.4e1 * t99 * t140 * t1270 + 0.25e2 / 0.72e2 * t1912 * t1292 + 0.25e2 / 0.144e3 * t568 * t1005 * t4402 - 0.78125e5 / 0.839808e6 * t4406 * t1703 * t52 * t4353 + 0.25e2 / 0.27e2 * t3417 * t127;
2577   t4414 = t37 * t386;
2578   t4422 = t200 * t19;
2579   t4423 = t3589 * t4422;
2580   t4460 = -0.25e2 / 0.72e2 * t1562 * t1005 * t4414 - 0.625e3 / 0.1944e4 * t716 * t1288 + 0.625e3 / 0.486e3 * t2725 * t375 + 0.50e2 / 0.9e1 * t790 * t4423 - 0.625e3 / 0.6198727824e10 * t4357 - 0.25e2 / 0.144e3 * t1009 * t371 + 0.625e3 / 0.62208e5 * t188 * t4354 * t191 - 0.15625e5 / 0.39366e5 * t3397 * t2111 - 0.25e2 / 0.9e1 * t767 * t1251 - 0.25e2 / 0.27e2 * t199 * t200 * t19 * t1270 + 0.625e3 / 0.243e3 * t1525 * t275 * t370 * t386 + 0.50e2 / 0.9e1 * t2484 * t1278 - 0.50e2 / 0.9e1 * t3505 * t127 - 0.625e3 / 0.243e3 * t1804 * t1245 - 0.625e3 / 0.486e3 * t614 * t275 * t370 * t398 + 0.625e3 / 0.1944e4 * t1499 * t275 * t1232 * t135 - 0.25e2 / 0.9e1 * t3549 * t379;
2581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2582     v4sigma4[0] = -0.3e1 / 0.8e1 * t71 * t72 * (t4413 + t4460);
2583 
2584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2585     v4sigma3lapl[0] = 0.0e0;
2586 
2587   t4496 = 0.1e1 / t17 / t936;
2588   t4503 = 0.24e2 * t1674 * t156 * t1237 - 0.18e2 * t553 * t430 * t386 - 0.18e2 * t553 * t438 * t386 + 0.6e1 * t223 * t430 * t398 + 0.6e1 * t223 * t438 * t398 + 0.2e1 * t223 * t156 * t1270 + 0.6e1 * t223 * t1299 * t135 + 0.12e2 * t223 * t1301 * t135 + 0.6e1 * t223 * t1311 * t135 - 0.15625e5 / 0.6561e4 * t584 * t1313 * t140 + 0.15625e5 / 0.26244e5 * t1652 * t4496 * t56 * t63 - t99 * t1275 * t155;
2589   t4540 = -0.3e1 * t99 * t403 * t437 - 0.3e1 * t99 * t140 * t1310 - 0.25e2 / 0.18e2 * t1912 * t1366 - 0.25e2 / 0.36e2 * t568 * t421 * t4402 + 0.25e2 / 0.288e3 * t1912 * t1357 + 0.25e2 / 0.288e3 * t568 * t437 * t370 * t200 + 0.25e2 / 0.18e2 * t1562 * t421 * t4414 + 0.625e3 / 0.324e3 * t716 * t1363 - 0.1250e4 / 0.243e3 * t2725 * t412 - 0.50e2 / 0.27e2 * t3417 * t147 + 0.78125e5 / 0.104976e6 * t4406 * t1703 * t52 * t4496 + 0.625e3 / 0.486e3 * t2314 * t189 * t374 * t135 + 0.25e2 / 0.9e1 * t3084 * t1348;
2590   t4573 = 0.25e2 / 0.9e1 * t3087 * t1348 + 0.25e2 / 0.18e2 * t895 * t4423 - 0.100e3 / 0.9e1 * t608 * t200 * t1332 * t135 - 0.25e2 / 0.6e1 * t2330 * t87 * t126 * t386 - 0.18e2 * t1121 * t3829 * t135 - 0.15625e5 / 0.157464e6 * t3397 * t2347 + 0.25e2 / 0.36e2 * t1009 * t422 - 0.625e3 / 0.7776e4 * t188 * t4496 * t10 * t191 + 0.15625e5 / 0.6561e4 * t3848 * t2111 - 0.625e3 / 0.972e3 * t2938 * t375 + 0.625e3 / 0.7776e4 * t825 * t1288 - 0.25e2 / 0.144e3 * t895 * t1292;
2591   t4610 = -0.25e2 / 0.36e2 * t3888 * t127 - 0.25e2 / 0.18e2 * t3891 * t127 - 0.25e2 / 0.36e2 * t3894 * t127 + 0.2500e4 / 0.243e3 * t1804 * t1327 + 0.1250e4 / 0.243e3 * t614 * t275 * t410 * t398 - 0.625e3 / 0.324e3 * t1499 * t275 * t1304 * t135 + 0.50e2 / 0.9e1 * t3549 * t416 + 0.50e2 / 0.9e1 * t767 * t1333 + 0.50e2 / 0.27e2 * t199 * t200 * t29 * t1270 - 0.625e3 / 0.972e3 * t2927 * t375 + 0.100e3 / 0.9e1 * t1869 * t200 * t29 * t1237 - 0.2500e4 / 0.243e3 * t1525 * t275 * t410 * t386 - 0.100e3 / 0.9e1 * t2484 * t1344;
2592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2593     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t71 * t72 * (t4503 + t4540 + t4573 + t4610);
2594 
2595   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2596     v4sigma2lapl2[0] = 0.0e0;
2597 
2598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2599     v4sigma2lapltau[0] = 0.0e0;
2600 
2601   t4624 = t437 * t437;
2602   t4632 = 0.1e1 / t17 / t489;
2603   t4658 = 0.2e1 * t223 * t403 * t458 - t99 * t403 * t467 - 0.2e1 * t99 * t140 * t1437 + 0.4e1 * t223 * t63 * t4624 + 0.250000e6 / 0.19683e5 * t584 * t1377 * t140 - 0.31250e5 / 0.6561e4 * t1652 * t4632 * t56 * t63 - 0.12e2 * t553 * t1419 * t135 - 0.6e1 * t553 * t459 * t398 + 0.8e1 * t223 * t430 * t437 + 0.4e1 * t223 * t156 * t1310 + 0.4e1 * t223 * t1430 * t135 + 0.4e1 * t223 * t1438 * t135 + 0.2e1 * t223 * t468 * t398;
2604   t4686 = t37 * t437;
2605   t4701 = 0.24e2 * t1674 * t459 * t386 - 0.6e1 * t553 * t468 * t386 - 0.100e3 / 0.27e2 * t1562 * t454 * t4414 - 0.25e2 / 0.432e3 * t1562 * t458 * t370 * t200 + 0.25e2 / 0.864e3 * t568 * t467 * t370 * t200 - 0.78125e5 / 0.13122e5 * t4406 * t1703 * t52 * t4632 + 0.10000e5 / 0.729e3 * t2725 * t447 - 0.2500e4 / 0.243e3 * t716 * t1388 - 0.25e2 / 0.27e2 * t1912 * t1402 - 0.25e2 / 0.27e2 * t568 * t421 * t4686 + 0.100e3 / 0.27e2 * t1912 * t1409 + 0.50e2 / 0.27e2 * t568 * t454 * t4402 + 0.200e3 / 0.9e1 * t1869 * t200 * t450 * t386 - 0.25e2 / 0.9e1 * t3292 * t1348;
2606   t4742 = 0.50e2 / 0.27e2 * t895 * t87 * t126 * t437 + 0.25e2 / 0.27e2 * t3299 * t1348 - 0.10000e5 / 0.729e3 * t1525 * t275 * t1391 * t135 - 0.400e3 / 0.27e2 * t2484 * t1396 - 0.400e3 / 0.27e2 * t608 * t200 * t1405 * t135 - 0.200e3 / 0.27e2 * t608 * t200 * t450 * t398 - 0.250000e6 / 0.19683e5 * t4134 * t2111 + 0.625e3 / 0.972e3 * t188 * t4632 * t10 * t191 + 0.31250e5 / 0.19683e5 * t3848 * t2347 - 0.50e2 / 0.27e2 * t1009 * t455 - 0.24e2 * t1121 * t1122 * t437 + 0.20000e5 / 0.729e3 * t1525 * t275 * t445 * t386 - 0.20000e5 / 0.729e3 * t1804 * t1382;
2607   t4771 = t200 * t1122;
2608   t4782 = -0.10000e5 / 0.729e3 * t614 * t275 * t445 * t398 + 0.2500e4 / 0.243e3 * t1499 * t275 * t1376 * t135 + 0.25e2 / 0.27e2 * t4146 * t127 + 0.625e3 / 0.1458e4 * t3223 * t375 - 0.25e2 / 0.54e2 * t4155 * t127 - 0.25e2 / 0.54e2 * t4158 * t127 - 0.625e3 / 0.2916e4 * t3234 * t375 + 0.5000e4 / 0.729e3 * t1804 * t1392 + 0.5000e4 / 0.729e3 * t614 * t275 * t410 * t437 - 0.625e3 / 0.486e3 * t1499 * t275 * t1304 * t155 + 0.50e2 / 0.27e2 * t3859 * t4771 + 0.100e3 / 0.27e2 * t3549 * t451 + 0.200e3 / 0.27e2 * t767 * t1406 + 0.100e3 / 0.27e2 * t199 * t200 * t29 * t1310;
2609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2610     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t71 * t72 * (t4658 + t4701 + t4742 + t4782);
2611 
2612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2613     v4sigmalapl3[0] = 0.0e0;
2614 
2615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2616     v4sigmalapl2tau[0] = 0.0e0;
2617 
2618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2619     v4sigmalapltau2[0] = 0.0e0;
2620 
2621   t4792 = 0.1e1 / t17 / t176;
2622   t4828 = t37 * t458;
2623   t4837 = t37 * t467;
2624   t4845 = -0.1000000e7 / 0.19683e5 * t584 * t1445 * t140 + 0.250000e6 / 0.6561e4 * t1652 * t4792 * t56 * t63 + 0.24e2 * t1674 * t1469 * t135 - 0.18e2 * t553 * t459 * t437 + 0.6e1 * t223 * t430 * t467 + 0.6e1 * t223 * t438 * t467 + 0.6e1 * t223 * t156 * t1437 + 0.2e1 * t223 * t1481 * t135 - 0.18e2 * t1121 * t4310 * t135 + 0.1000000e7 / 0.19683e5 * t4307 * t2111 - 0.125000e6 / 0.6561e4 * t4134 * t2347 - 0.1250e4 / 0.243e3 * t188 * t4792 * t10 * t191 + 0.10000e5 / 0.243e3 * t716 * t1454 + 0.25e2 / 0.18e2 * t1562 * t421 * t4828 + 0.50e2 / 0.9e1 * t1912 * t1461 + 0.50e2 / 0.9e1 * t568 * t454 * t4686 - 0.25e2 / 0.36e2 * t568 * t421 * t4837 + 0.312500e6 / 0.6561e4 * t4406 * t1703 * t52 * t4792;
2625   t4906 = 0.100e3 / 0.3e1 * t1869 * t200 * t1457 * t135 - 0.200e3 / 0.9e1 * t608 * t200 * t450 * t437 - 0.100e3 / 0.9e1 * t608 * t200 * t1464 * t135 + 0.25e2 / 0.18e2 * t895 * t4270 * t4422 + 0.20000e5 / 0.243e3 * t1525 * t275 * t1449 * t135 - 0.6e1 * t553 * t140 * t1468 - t99 * t140 * t1480 - 0.10000e5 / 0.243e3 * t1804 * t1450 - 0.10000e5 / 0.243e3 * t614 * t275 * t445 * t437 + 0.1250e4 / 0.81e2 * t1499 * t275 * t1376 * t155 - 0.10000e5 / 0.243e3 * t1499 * t275 * t1444 * t135 - 0.100e3 / 0.9e1 * t2484 * t1458 - 0.2500e4 / 0.243e3 * t1525 * t275 * t410 * t458 - 0.100e3 / 0.9e1 * t4186 * t4771 + 0.50e2 / 0.9e1 * t767 * t1465 + 0.50e2 / 0.9e1 * t199 * t200 * t29 * t1437 + 0.1250e4 / 0.243e3 * t614 * t275 * t410 * t467 - 0.25e2 / 0.18e2 * t4314 * t127 - 0.25e2 / 0.108e3 * t4318 * t127;
2626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2627     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t71 * t72 * (t4845 + t4906);
2628 
2629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2630     v4lapl4[0] = 0.0e0;
2631 
2632   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2633     v4lapl3tau[0] = 0.0e0;
2634 
2635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2636     v4lapl2tau2[0] = 0.0e0;
2637 
2638   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2639     v4lapltau3[0] = 0.0e0;
2640 
2641   t4917 = t458 * t458;
2642   t4924 = t467 * t467;
2643   t4969 = -0.2000000e7 / 0.6561e4 * t1652 * t1585 * t56 * t63 + 0.4000000e7 / 0.19683e5 * t4307 * t2347 + 0.24e2 * t1674 * t63 * t4917 - 0.36e2 * t553 * t459 * t467 + 0.6e1 * t223 * t63 * t4924 + 0.8e1 * t223 * t156 * t1480 + 0.200e3 / 0.27e2 * t199 * t200 * t29 * t1480 - 0.20000e5 / 0.243e3 * t614 * t275 * t445 * t467 - 0.200e3 / 0.9e1 * t1562 * t454 * t4828 + 0.10000e5 / 0.243e3 * t188 * t1585 * t10 * t191 + 0.100e3 / 0.9e1 * t568 * t454 * t4837 - 0.2500000e7 / 0.6561e4 * t4406 * t1703 * t52 * t1585 + 0.40000e5 / 0.243e3 * t1525 * t275 * t445 * t458 - 0.40000e5 / 0.243e3 * t1499 * t275 * t1444 * t155 + 0.400e3 / 0.9e1 * t1869 * t200 * t29 * t1468 - 0.400e3 / 0.9e1 * t608 * t200 * t450 * t467;
2644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2645     v4tau4[0] = -0.3e1 / 0.8e1 * t71 * t72 * t4969;
2646 
2647 #ifndef XC_DONT_COMPILE_MXC
2648 
2649   if(order < 5) return;
2650 
2651 
2652 #endif
2653 
2654 #endif
2655 
2656 #endif
2657 
2658 #endif
2659 
2660 #endif
2661 
2662 
2663 }
2664 
2665 
2666 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 *))2667 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 *))
2668 {
2669 
2670 #ifndef XC_DONT_COMPILE_EXC
2671   double t2, t4, t5, t6, t7, t8, t9, t10;
2672   double t11, t12, t14, t15, t16, t17, t18, t19;
2673   double t20, t21, t22, t23, t24, t25, t26, t27;
2674   double t29, t30, t32, t33, t37, t39, t42, t43;
2675   double t44, t47, t50, t51, t52, t53, t54, t55;
2676   double t58, t61, t62, t65, t66, t67, t68, t73;
2677   double t75, t77, t79, t80, t81, t82, t83, t84;
2678   double t85, t87, t88, t90, t91, t95, t97, t100;
2679   double t101, t105, t106, t107, t108, t111, t116, t117;
2680   double t118, t119, t124, t126, t128;
2681 
2682 #ifndef XC_DONT_COMPILE_VXC
2683   double t130, t131, t132, t133, t134, t135, t137, t138;
2684   double t140, t141, t142, t143, t144, t146, t147, t148;
2685   double t149, t151, t152, t153, t154, t156, t157, t158;
2686   double t160, t161, t162, t167, t168, t169, t172, t173;
2687   double t174, t175, t179, t180, t183, t184, t186, t188;
2688   double t189, t192, t194, t196, t197, t198, t199, t200;
2689   double t202, t203, t204, t206, t207, t211, t212, t214;
2690   double t215, t216, t217, t219, t220, t221, t223, t224;
2691   double t225, t226, t228, t229, t230, t232, t233, t234;
2692   double t239, t240, t241, t244, t245, t246, t247, t251;
2693   double t252, t255, t256, t258, t260, t261, t264, t266;
2694   double t268, t269, t273, t274, t275, t276, t277, t279;
2695   double t280, t281, t283, t285, t286, t288, t289, t293;
2696   double t295, t296, t299, t300, t301, t303, t304, t305;
2697   double t307, t309, t310, t312, t313, t317, t319, t320;
2698   double t323, t324, t329, t332, t333, t335, t336, t339;
2699   double t340, t345, t348, t349, t351, t352;
2700 
2701 #ifndef XC_DONT_COMPILE_FXC
2702   double t355, t357, t358, t359, t360, t361, t362, t364;
2703   double t365, t366, t368, t369, t370, t372, t373, t374;
2704   double t375, t376, t377, t379, t380, t382, t383, t385;
2705   double t386, t388, t389, t392, t393, t394, t395, t396;
2706   double t397, t399, t400, t402, t404, t405, t407, t408;
2707   double t409, t410, t412, t413, t414, t415, t418, t419;
2708   double t420, t421, t422, t423, t426, t429, t430, t437;
2709   double t438, t439, t443, t444, t445, t446, t449, t452;
2710   double t457, t458, t464, t469, t470, t475, t477, t479;
2711   double t480, t481, t482, t483, t484, t485, t487, t488;
2712   double t489, t491, t492, t493, t494, t496, t497, t498;
2713   double t500, t501, t502, t504, t505, t506, t507, t509;
2714   double t512, t514, t516, t519, t520, t521, t523, t527;
2715   double t528, t529, t530, t532, t535, t537, t538, t540;
2716   double t543, t545, t548, t550, t553, t554, t556, t557;
2717   double t558, t559, t560, t562, t563, t564, t565, t567;
2718   double t568, t569, t570, t572, t573, t574, t576, t577;
2719   double t578, t581, t582, t583, t584, t585, t586, t588;
2720   double t589, t591, t593, t594, t596, t597, t598, t599;
2721   double t600, t601, t602, t605, t606, t607, t608, t609;
2722   double t612, t615, t616, t623, t624, t625, t629, t630;
2723   double t631, t632, t635, t638, t643, t644, t650, t655;
2724   double t656, t661, t663, t665, t666, t667, t669, t670;
2725   double t671, t673, t675, t678, t680, t682, t684, t685;
2726   double t687, t688, t689, t690, t691, t692, t693, t695;
2727   double t696, t697, t699, t701, t702, t703, t705, t706;
2728   double t707, t709, t715, t717, t719, t722, t724, t725;
2729   double t727, t728, t730, t739, t741, t742, t745, t746;
2730   double t748, t752, t757, t760, t762, t764, t766, t767;
2731   double t769, t770, t771, t772, t773, t774, t776, t777;
2732   double t778, t780, t782, t783, t784, t786, t787, t788;
2733   double t790, t796, t798, t800, t803, t805, t806, t808;
2734   double t809, t811, t814, t820, t822, t823, t826, t829;
2735   double t832, t833, t836, t837, t842, t846, t852, t861;
2736   double t862, t864, t865, t868, t870, t874, t879, t882;
2737   double t883, t886, t887, t892, t896, t902, t911, t912;
2738   double t914, t915, t918, t920, t921, t922, t924, t925;
2739   double t926, t928, t929, t930, t932, t934, t936, t937;
2740   double t940, t943, t945, t946, t948, t949, t953, t955;
2741   double t956, t959, t961, t962, t963, t965, t966, t967;
2742   double t969, t970, t971, t973, t975, t977, t978, t981;
2743   double t984, t986, t987, t989, t990, t994, t996, t997;
2744   double t1001, t1002, t1003, t1004, t1006, t1007, t1012, t1013;
2745   double t1014, t1016, t1018, t1021, t1023, t1025, t1026, t1028;
2746   double t1029, t1031, t1032, t1036, t1037, t1038, t1039, t1041;
2747   double t1042, t1047, t1048, t1049, t1051, t1053, t1056, t1058;
2748   double t1060, t1061, t1063, t1064, t1066, t1067, t1071, t1072;
2749   double t1073, t1076, t1077, t1080, t1081, t1084, t1085, t1090;
2750   double t1093, t1094, t1096, t1097, t1101, t1102, t1103, t1106;
2751   double t1107, t1110, t1111, t1114, t1115, t1120, t1123, t1124;
2752   double t1126, t1127;
2753 
2754 #ifndef XC_DONT_COMPILE_KXC
2755   double t1131, t1133, t1134, t1135, t1137, t1138, t1140, t1141;
2756   double t1142, t1144, t1145, t1147, t1148, t1149, t1150, t1152;
2757   double t1153, t1154, t1156, t1158, t1160, t1161, t1162, t1164;
2758   double t1165, t1167, t1168, t1169, t1170, t1172, t1173, t1174;
2759   double t1176, t1178, t1180, t1181, t1183, t1185, t1186, t1188;
2760   double t1189, t1191, t1194, t1201, t1202, t1207, t1208, t1210;
2761   double t1213, t1214, t1217, t1218, t1221, t1223, t1224, t1226;
2762   double t1228, t1229, t1231, t1237, t1240, t1249, t1252, t1262;
2763   double t1263, t1265, t1266, t1267, t1268, t1269, t1270, t1273;
2764   double t1276, t1279, t1281, t1282, t1283, t1284, t1285, t1286;
2765   double t1288, t1289, t1290, t1294, t1296, t1299, t1300, t1301;
2766   double t1304, t1307, t1312, t1315, t1316, t1319, t1321, t1328;
2767   double t1330, t1331, t1333, t1334, t1335, t1337, t1338, t1340;
2768   double t1342, t1344, t1346, t1347, t1348, t1350, t1351, t1352;
2769   double t1353, t1355, t1356, t1357, t1359, t1360, t1361, t1366;
2770   double t1369, t1373, t1375, t1377, t1378, t1380, t1382, t1384;
2771   double t1386, t1388, t1390, t1391, t1392, t1394, t1396, t1398;
2772   double t1399, t1400, t1401, t1403, t1405, t1406, t1407, t1409;
2773   double t1411, t1413, t1414, t1418, t1421, t1424, t1426, t1427;
2774   double t1429, t1432, t1433, t1435, t1437, t1439, t1442, t1444;
2775   double t1446, t1449, t1450, t1452, t1453, t1455, t1457, t1459;
2776   double t1461, t1463, t1471, t1476, t1477, t1480, t1481, t1483;
2777   double t1487, t1490, t1493, t1496, t1499, t1501, t1503, t1506;
2778   double t1507, t1509, t1511, t1513, t1514, t1515, t1517, t1519;
2779   double t1521, t1523, t1525, t1527, t1528, t1530, t1532, t1534;
2780   double t1536, t1538, t1540, t1542, t1544, t1546, t1548, t1550;
2781   double t1553, t1562, t1569, t1570, t1571, t1573, t1574, t1575;
2782   double t1576, t1577, t1578, t1579, t1583, t1584, t1588, t1589;
2783   double t1592, t1594, t1596, t1598, t1600, t1601, t1603, t1606;
2784   double t1613, t1616, t1626, t1627, t1629, t1630, t1631, t1632;
2785   double t1633, t1636, t1642, t1645, t1646, t1653, t1655, t1658;
2786   double t1659, t1660, t1663, t1666, t1667, t1672, t1675, t1676;
2787   double t1679, t1680, t1682, t1685, t1686, t1688, t1691, t1694;
2788   double t1695, t1699, t1703, t1708, t1709, t1711, t1712, t1714;
2789   double t1715, t1717, t1718, t1719, t1721, t1722, t1723, t1725;
2790   double t1726, t1727, t1729, t1730, t1731, t1732, t1734, t1735;
2791   double t1736, t1739, t1744, t1745, t1747, t1748, t1749, t1751;
2792   double t1752, t1753, t1754, t1756, t1757, t1758, t1760, t1761;
2793   double t1762, t1773, t1775, t1776, t1778, t1780, t1784, t1787;
2794   double t1790, t1792, t1796, t1797, t1799, t1805, t1807, t1809;
2795   double t1812, t1813, t1815, t1816, t1818, t1819, t1821, t1824;
2796   double t1827, t1830, t1832, t1833, t1835, t1836, t1845, t1847;
2797   double t1851, t1853, t1854, t1856, t1860, t1861, t1862, t1864;
2798   double t1866, t1867, t1869, t1872, t1874, t1876, t1877, t1878;
2799   double t1880, t1882, t1888, t1891, t1892, t1893, t1894, t1896;
2800   double t1897, t1900, t1901, t1904, t1905, t1907, t1908, t1913;
2801   double t1917, t1920, t1923, t1924, t1925, t1927, t1928, t1930;
2802   double t1932, t1933, t1934, t1937, t1938, t1943, t1949, t1950;
2803   double t1954, t1955, t1956, t1957, t1959, t1961, t1962, t1966;
2804   double t1967, t1970, t1974, t1979, t1981, t1982, t1983, t1984;
2805   double t1988, t1991, t1992, t1994, t1998, t2000, t2001, t2005;
2806   double t2008, t2011, t2016, t2020, t2025, t2029, t2032, t2035;
2807   double t2037, t2041, t2042, t2044, t2046, t2050, t2052, t2053;
2808   double t2055, t2068, t2074, t2075, t2080, t2081, t2082, t2083;
2809   double t2085, t2086, t2087, t2089, t2090, t2091, t2094, t2097;
2810   double t2099, t2100, t2102, t2107, t2110, t2112, t2114, t2118;
2811   double t2120, t2123, t2124, t2126, t2127, t2129, t2130, t2132;
2812   double t2135, t2138, t2141, t2143, t2144, t2146, t2147, t2155;
2813   double t2156, t2159, t2160, t2161, t2162, t2164, t2165, t2169;
2814   double t2170, t2173, t2174, t2176, t2179, t2184, t2187, t2189;
2815   double t2190, t2191, t2194, t2195, t2197, t2198, t2199, t2201;
2816   double t2202, t2204, t2206, t2207, t2211, t2212, t2214, t2216;
2817   double t2220, t2223, t2228, t2232, t2247, t2254, t2258, t2261;
2818   double t2267, t2279, t2280, t2282, t2283, t2290, t2297, t2298;
2819   double t2301, t2304, t2309, t2313, t2317, t2320, t2321, t2322;
2820   double t2326, t2327, t2330, t2334, t2339, t2341, t2342, t2346;
2821   double t2350, t2354, t2356, t2357, t2361, t2364, t2367, t2372;
2822   double t2376, t2381, t2385, t2388, t2394, t2397, t2400, t2402;
2823   double t2408, t2420, t2421, t2423, t2430, t2434, t2440, t2441;
2824   double t2444, t2449, t2454, t2461, t2462, t2466, t2470, t2485;
2825   double t2486, t2487, t2490, t2493, t2497, t2498, t2501, t2502;
2826   double t2504, t2505, t2506, t2507, t2510, t2514, t2516, t2517;
2827   double t2519, t2521, t2524, t2527, t2530, t2532, t2533, t2535;
2828   double t2538, t2540, t2541, t2543, t2544, t2546, t2548, t2550;
2829   double t2552, t2554, t2555, t2556, t2558, t2561, t2563, t2564;
2830   double t2565, t2567, t2569, t2571, t2572, t2580, t2582, t2584;
2831   double t2585, t2586, t2588, t2590, t2591, t2592, t2594, t2597;
2832   double t2600, t2603, t2604, t2605, t2608, t2609, t2611, t2612;
2833   double t2613, t2621, t2622, t2623, t2626, t2628, t2632, t2637;
2834   double t2640, t2642, t2645, t2648, t2651, t2653, t2654, t2656;
2835   double t2659, t2661, t2662, t2664, t2665, t2668, t2669, t2672;
2836   double t2673, t2675, t2676, t2677, t2678, t2681, t2685, t2687;
2837   double t2688, t2690, t2693, t2694, t2696, t2698, t2700, t2702;
2838   double t2703, t2704, t2706, t2709, t2711, t2712, t2713, t2715;
2839   double t2716, t2730, t2732, t2734, t2735, t2736, t2738, t2740;
2840   double t2741, t2742, t2744, t2747, t2750, t2753, t2754, t2755;
2841   double t2758, t2759, t2761, t2762, t2763, t2765, t2766, t2767;
2842   double t2770, t2773, t2778, t2782, t2785, t2786, t2787, t2789;
2843   double t2791, t2792, t2794, t2795, t2796, t2799, t2801, t2803;
2844   double t2805, t2809, t2812, t2813, t2816, t2822, t2823, t2825;
2845   double t2826, t2828, t2830, t2831, t2832, t2838, t2855, t2857;
2846   double t2859, t2861, t2864, t2867, t2868, t2869, t2872, t2873;
2847   double t2879, t2880, t2885, t2887, t2888, t2889, t2892, t2894;
2848   double t2898, t2903, t2907, t2909, t2910, t2912, t2913, t2914;
2849   double t2918, t2922, t2925, t2926, t2927, t2929, t2931, t2933;
2850   double t2935, t2939, t2942, t2943, t2946, t2947, t2949, t2951;
2851   double t2952, t2953, t2956, t2962, t2963, t2968, t2983, t2985;
2852   double t2987, t2989, t2991, t2994, t2997, t2998, t2999, t3002;
2853   double t3003, t3009, t3010, t3017, t3018, t3019, t3022, t3025;
2854   double t3028, t3031, t3032, t3038, t3043, t3047, t3055, t3056;
2855   double t3059, t3060, t3066, t3072, t3078, t3084, t3093, t3094;
2856   double t3096, t3097, t3098, t3101, t3103, t3107, t3112, t3115;
2857   double t3118, t3119, t3125, t3130, t3134, t3142, t3143, t3146;
2858   double t3147, t3153, t3159, t3165, t3171, t3180, t3181, t3183;
2859   double t3184, t3185, t3188, t3189, t3191, t3193, t3194, t3200;
2860   double t3202, t3204, t3206, t3208, t3209, t3210, t3212, t3213;
2861   double t3214, t3216, t3219, t3222, t3225, t3229, t3230, t3232;
2862   double t3233, t3235, t3236, t3237, t3239, t3240, t3241, t3243;
2863   double t3245, t3246, t3247, t3249, t3251, t3252, t3255, t3256;
2864   double t3258, t3260, t3261, t3267, t3269, t3271, t3273, t3275;
2865   double t3276, t3277, t3279, t3280, t3281, t3283, t3286, t3289;
2866   double t3292, t3296, t3297, t3299, t3300, t3302, t3303, t3304;
2867   double t3306, t3308, t3309, t3310, t3312, t3313, t3314, t3316;
2868   double t3318, t3319, t3322, t3324, t3326, t3328, t3329, t3330;
2869   double t3334, t3335, t3338, t3340, t3343, t3344, t3346, t3347;
2870   double t3349, t3350, t3355, t3357, t3358, t3360, t3371, t3372;
2871   double t3373, t3375, t3377, t3378, t3379, t3381, t3382, t3386;
2872   double t3387, t3388, t3390, t3391, t3394, t3395, t3396, t3399;
2873   double t3401, t3403, t3405, t3406, t3407, t3411, t3412, t3415;
2874   double t3417, t3420, t3421, t3423, t3424, t3426, t3427, t3429;
2875   double t3434, t3444, t3446, t3448, t3449, t3450, t3452, t3454;
2876   double t3455, t3456, t3458, t3459, t3463, t3464, t3467, t3468;
2877   double t3469, t3471, t3472, t3473, t3476, t3477, t3479, t3481;
2878   double t3482, t3487, t3488, t3489, t3491, t3492, t3493, t3496;
2879   double t3501, t3502, t3503, t3505, t3506, t3509, t3514, t3519;
2880   double t3525, t3530, t3532, t3534, t3535, t3537, t3538, t3540;
2881   double t3541, t3544, t3545, t3547, t3549, t3550, t3555, t3556;
2882   double t3557, t3559, t3560, t3561, t3564, t3569, t3570, t3571;
2883   double t3573, t3574, t3577, t3582, t3587, t3593, t3598, t3600;
2884   double t3602, t3603, t3605, t3606, t3608, t3609, t3612, t3613;
2885   double t3617, t3618, t3621, t3622, t3625, t3626, t3629, t3632;
2886   double t3633, t3636, t3637, t3645, t3648, t3649, t3651, t3652;
2887   double t3655, t3656, t3660, t3661, t3664, t3665, t3668, t3669;
2888   double t3672, t3675, t3676, t3679, t3680, t3688, t3691, t3692;
2889   double t3694, t3695;
2890 
2891 #ifndef XC_DONT_COMPILE_LXC
2892   double t3700, t3703, t3709, t3712, t3715, t3716, t3749, t3750;
2893   double t3754, t3761, t3762, t3763, t3766, t3768, t3779, t3782;
2894   double t3784, t3785, t3786, t3794, t3797, t3816, t3817, t3822;
2895   double t3824, t3827, t3831, t3834, t3839, t3866, t3870, t3881;
2896   double t3893, t3894, t3899, t3907, t3909, t3911, t3923, t3933;
2897   double t3944, t3951, t3954, t3957, t3962, t3966, t3968, t3970;
2898   double t3976, t3978, t3980, t3981, t3982, t3987, t3989, t3991;
2899   double t3993, t3995, t4001, t4003, t4005, t4006, t4007, t4012;
2900   double t4014, t4016, t4018, t4020, t4022, t4024, t4030, t4032;
2901   double t4038, t4041, t4044, t4051, t4057, t4060, t4087, t4098;
2902   double t4100, t4105, t4113, t4123, t4124, t4129, t4132, t4135;
2903   double t4138, t4141, t4144, t4149, t4154, t4164, t4168, t4174;
2904   double t4175, t4177, t4180, t4183, t4184, t4186, t4193, t4197;
2905   double t4206, t4220, t4222, t4226, t4233, t4239, t4248, t4255;
2906   double t4256, t4257, t4259, t4266, t4268, t4270, t4288, t4294;
2907   double t4298, t4299, t4310, t4317, t4319, t4320, t4327, t4334;
2908   double t4337, t4351, t4360, t4371, t4386, t4405, t4407, t4422;
2909   double t4428, t4431, t4434, t4441, t4444, t4447, t4449, t4451;
2910   double t4454, t4460, t4463, t4478, t4497, t4504, t4511, t4518;
2911   double t4521, t4528, t4534, t4536, t4545, t4585, t4589, t4606;
2912   double t4626, t4629, t4632, t4635, t4638, t4641, t4644, t4646;
2913   double t4660, t4671, t4678, t4709, t4744, t4746, t4750, t4758;
2914   double t4766, t4769, t4781, t4798, t4803, t4808, t4813, t4829;
2915   double t4859, t4862, t4867, t4872, t4873, t4879, t4891, t4894;
2916   double t4902, t4903, t4908, t4910, t4911, t4916, t4917, t4919;
2917   double t4921, t4922, t4923, t4940, t4945, t4958, t4959, t4969;
2918   double t4972, t4978, t4988, t5001, t5010, t5011, t5012, t5017;
2919   double t5020, t5045, t5066, t5067, t5071, t5088, t5090, t5091;
2920   double t5093, t5097, t5108, t5115, t5125, t5137, t5145, t5148;
2921   double t5149, t5151, t5153, t5171, t5173, t5181, t5188, t5194;
2922   double t5215, t5218, t5221, t5232, t5248, t5251, t5255, t5256;
2923   double t5260, t5280, t5286, t5290, t5293, t5296, t5306, t5338;
2924   double t5346, t5349, t5372, t5376, t5383, t5387, t5391, t5394;
2925   double t5398, t5400, t5402, t5404, t5418, t5423, t5443, t5446;
2926   double t5461, t5489, t5503, t5513, t5524, t5534, t5538, t5543;
2927   double t5563, t5571, t5572, t5574, t5576, t5590, t5604, t5606;
2928   double t5608, t5610, t5611, t5618, t5622, t5634, t5637, t5638;
2929   double t5640, t5653, t5656, t5669, t5681, t5698, t5706, t5715;
2930   double t5724, t5793, t5796, t5799, t5810, t5826, t5839, t5843;
2931   double t5847, t5850, t5854, t5856, t5858, t5860, t5872, t5883;
2932   double t5887, t5892, t5896, t5897, t5910, t5917, t5919, t5930;
2933   double t5953, t5954, t5957, t5985, t5994, t6005, t6028, t6043;
2934   double t6044, t6048, t6079, t6087, t6102, t6107, t6116, t6127;
2935   double t6132, t6139, t6145, t6149, t6158, t6170, t6171, t6173;
2936   double t6175, t6189, t6198, t6200, t6207, t6215, t6224, t6267;
2937   double t6270, t6275, t6278, t6281, t6284, t6316, t6327, t6330;
2938   double t6332, t6335, t6342, t6355, t6384, t6392, t6421, t6425;
2939   double t6433, t6434, t6436, t6438, t6451, t6459, t6470, t6473;
2940   double t6474, t6492, t6495, t6496, t6498, t6511, t6514, t6527;
2941   double t6539, t6556, t6564, t6573, t6582, t6637, t6645, t6654;
2942   double t6665, t6670, t6677, t6698, t6703, t6717, t6720, t6742;
2943   double t6756, t6776, t6779, t6786, t6789, t6796, t6820, t6824;
2944   double t6853, t6861, t6862, t6864, t6906, t6908, t6912, t6914;
2945   double t6918, t6926, t6945, t6964, t6977, t6985, t7004, t7034;
2946   double t7044, t7065, t7075, t7077, t7081, t7087, t7092, t7111;
2947   double t7119, t7123, t7126, t7134, t7166, t7183, t7203, t7237;
2948   double t7242, t7243, t7255, t7263, t7264, t7276, t7291, t7301;
2949   double t7345, t7372, t7388, t7428, t7437, t7445, t7471, t7474;
2950   double t7504, t7508, t7518, t7531, t7533, t7536, t7542, t7558;
2951   double t7571, t7573, t7574, t7576, t7605, t7613, t7654, t7673;
2952   double t7674, t7675, t7684, t7689, t7693, t7706, t7714, t7715;
2953   double t7717, t7747, t7750, t7753, t7756, t7765, t7784, t7789;
2954   double t7806, t7845, t7885, t7888, t7891, t7954, t7989, t7991;
2955   double t8047, t8052, t8084, t8092, t8093, t8105, t8120, t8130;
2956   double t8208, t8209, t8239, t8244, t8253, t8257, t8260, t8263;
2957   double t8266, t8293, t8338, t8380, t8383, t8393, t8447, t8456;
2958   double t8476, t8512, t8520, t8521, t8523, t8548, t8553, t8556;
2959   double t8559, t8564, t8579, t8624, t8627, t8636, t8651, t8662;
2960   double t8699, t8745, t8752, t8753, t8765, t8780, t8790, t8819;
2961   double t8822, t8825, t8830, t8851, t8866, t8902, t8909, t8914;
2962   double t8936, t8987, t9014, t9027, t9033, t9042, t9048, t9050;
2963   double t9054, t9071, t9073, t9112, t9113, t9114, t9183, t9193;
2964   double t9199, t9217, t9223, t9226, t9232, t9235, t9238, t9263;
2965   double t9277, t9280, t9292, t9298, t9373, t9378, t9379, t9382;
2966   double t9391, t9397, t9399, t9405, t9408, t9425, t9432, t9438;
2967   double t9446, t9460, t9464, t9468, t9471, t9477, t9480, t9501;
2968   double t9508, t9565, t9571, t9623, t9628, t9658, t9680, t9694;
2969   double t9732, t9769, t9776, t9809, t9811, t9814, t9817, t9845;
2970   double t9882, t9889, t9912, t9938, t9988, t10030, t10031, t10065;
2971   double t10103, t10129, t10136, t10162, t10165, t10168, t10177, t10208;
2972   double t10215, t10256, t10295, t10331, t10364, t10372, t10396, t10402;
2973   double t10422, t10433, t10440, t10455, t10466, t10469, t10472, t10484;
2974   double t10491, t10537, t10569, t10575, t10608, t10614, t10639, t10666;
2975   double t10671, t10679, t10686, t10693, t10696, t10703, t10731, t10768;
2976   double t10775, t10789, t10816, t10820, t10841, t10846, t10868, t10880;
2977   double t10910, t10916, t10946, t10965, t10969, t11001, t11032, t11039;
2978   double t11042, t11059, t11065, t11066, t11072, t11073, t11074, t11075;
2979   double t11082, t11094, t11098, t11107, t11120, t11127, t11171, t11176;
2980   double t11177, t11181, t11182, t11190, t11191, t11199, t11203, t11214;
2981   double t11218, t11222, t11232, t11282, t11295, t11322, t11358, t11396;
2982   double t11431, t11447, t11471, t11512, t11548, t11581, t11595, t11628;
2983   double t11637, t11672, t11686, t11713, t11732, t11753, t11762, t11788;
2984   double t11800, t11844, t11854, t11883, t11902, t11925, t11968, t11984;
2985   double t11990, t11994, t12049, t12091, t12107, t12113, t12117, t12172;
2986   double t12177, t12184, t12235, t12250, t12257, t12297;
2987 #endif
2988 
2989 #endif
2990 
2991 #endif
2992 
2993 #endif
2994 
2995 #endif
2996 
2997 
2998   mgga_x_ms_params *params;
2999 
3000   assert(p->params != NULL);
3001   params = (mgga_x_ms_params * ) (p->params);
3002 
3003   t2 = M_CBRT3;
3004   t4 = POW_1_3(0.1e1 / M_PI);
3005   t5 = t2 * t4;
3006   t6 = M_CBRT4;
3007   t7 = t6 * t6;
3008   t8 = t5 * t7;
3009   t9 = rho[0] - rho[1];
3010   t10 = rho[0] + rho[1];
3011   t11 = 0.1e1 / t10;
3012   t12 = t9 * t11;
3013   t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
3014   t15 = POW_1_3(t14);
3015   t16 = t15 * t14;
3016   t17 = POW_1_3(t10);
3017   t18 = t16 * t17;
3018   t19 = M_CBRT6;
3019   t20 = M_PI * M_PI;
3020   t21 = POW_1_3(t20);
3021   t22 = t21 * t21;
3022   t23 = 0.1e1 / t22;
3023   t24 = t19 * t23;
3024   t25 = rho[0] * rho[0];
3025   t26 = POW_1_3(rho[0]);
3026   t27 = t26 * t26;
3027   t29 = 0.1e1 / t27 / t25;
3028   t30 = sigma[0] * t29;
3029   t32 = 0.5e1 / 0.972e3 * t24 * t30;
3030   t33 = params->kappa + t32;
3031   t37 = params->kappa * (0.1e1 - params->kappa / t33);
3032   t39 = 0.1e1 / t27 / rho[0];
3033   t42 = tau[0] * t39 - t30 / 0.8e1;
3034   t43 = t42 * t42;
3035   t44 = t19 * t19;
3036   t47 = 0.1e1 / t21 / t20;
3037   t50 = 0.1e1 - 0.25e2 / 0.81e2 * t43 * t44 * t47;
3038   t51 = t50 * t50;
3039   t52 = t51 * t50;
3040   t53 = t43 * t42;
3041   t54 = t20 * t20;
3042   t55 = 0.1e1 / t54;
3043   t58 = t43 * t43;
3044   t61 = t54 * t54;
3045   t62 = 0.1e1 / t61;
3046   t65 = 0.1e1 + 0.250e3 / 0.243e3 * t53 * t55 + 0.62500e5 / 0.59049e5 * params->b * t58 * t43 * t62;
3047   t66 = 0.1e1 / t65;
3048   t67 = t52 * t66;
3049   t68 = params->kappa + t32 + params->c;
3050   t73 = params->kappa * (0.1e1 - params->kappa / t68) - t37;
3051   t75 = t67 * t73 + t37 + 0.1e1;
3052   t77 = t8 * t18 * t75;
3053   t79 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
3054   t80 = POW_1_3(t79);
3055   t81 = t80 * t79;
3056   t82 = t81 * t17;
3057   t83 = rho[1] * rho[1];
3058   t84 = POW_1_3(rho[1]);
3059   t85 = t84 * t84;
3060   t87 = 0.1e1 / t85 / t83;
3061   t88 = sigma[2] * t87;
3062   t90 = 0.5e1 / 0.972e3 * t24 * t88;
3063   t91 = params->kappa + t90;
3064   t95 = params->kappa * (0.1e1 - params->kappa / t91);
3065   t97 = 0.1e1 / t85 / rho[1];
3066   t100 = tau[1] * t97 - t88 / 0.8e1;
3067   t101 = t100 * t100;
3068   t105 = 0.1e1 - 0.25e2 / 0.81e2 * t101 * t44 * t47;
3069   t106 = t105 * t105;
3070   t107 = t106 * t105;
3071   t108 = t101 * t100;
3072   t111 = t101 * t101;
3073   t116 = 0.1e1 + 0.250e3 / 0.243e3 * t108 * t55 + 0.62500e5 / 0.59049e5 * params->b * t111 * t101 * t62;
3074   t117 = 0.1e1 / t116;
3075   t118 = t107 * t117;
3076   t119 = params->kappa + t90 + params->c;
3077   t124 = params->kappa * (0.1e1 - params->kappa / t119) - t95;
3078   t126 = t118 * t124 + t95 + 0.1e1;
3079   t128 = t8 * t82 * t126;
3080   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
3081     zk[0] = -0.3e1 / 0.8e1 * t77 - 0.3e1 / 0.8e1 * t128;
3082 
3083 #ifndef XC_DONT_COMPILE_VXC
3084 
3085   if(order < 1) return;
3086 
3087 
3088   t130 = 0.3e1 / 0.8e1 * t77;
3089   t131 = 0.3e1 / 0.8e1 * t128;
3090   t132 = t15 * t17;
3091   t133 = t10 * t10;
3092   t134 = 0.1e1 / t133;
3093   t135 = t9 * t134;
3094   t137 = t11 / 0.2e1 - t135 / 0.2e1;
3095   t138 = t75 * t137;
3096   t140 = t8 * t132 * t138;
3097   t141 = t140 / 0.2e1;
3098   t142 = t17 * t17;
3099   t143 = 0.1e1 / t142;
3100   t144 = t16 * t143;
3101   t146 = t8 * t144 * t75;
3102   t147 = t146 / 0.8e1;
3103   t148 = params->kappa * params->kappa;
3104   t149 = t33 * t33;
3105   t151 = t148 / t149;
3106   t152 = t151 * t19;
3107   t153 = t23 * sigma[0];
3108   t154 = t25 * rho[0];
3109   t156 = 0.1e1 / t27 / t154;
3110   t157 = t153 * t156;
3111   t158 = t152 * t157;
3112   t160 = t51 * t66;
3113   t161 = t160 * t73;
3114   t162 = t42 * t44;
3115   t167 = -0.5e1 / 0.3e1 * tau[0] * t29 + sigma[0] * t156 / 0.3e1;
3116   t168 = t47 * t167;
3117   t169 = t162 * t168;
3118   t172 = t65 * t65;
3119   t173 = 0.1e1 / t172;
3120   t174 = t52 * t173;
3121   t175 = t43 * t55;
3122   t179 = params->b * t58 * t42;
3123   t180 = t62 * t167;
3124   t183 = 0.250e3 / 0.81e2 * t175 * t167 + 0.125000e6 / 0.19683e5 * t179 * t180;
3125   t184 = t73 * t183;
3126   t186 = t68 * t68;
3127   t188 = t148 / t186;
3128   t189 = t188 * t19;
3129   t192 = -0.10e2 / 0.729e3 * t189 * t157 + 0.10e2 / 0.729e3 * t158;
3130   t194 = -0.10e2 / 0.729e3 * t158 - 0.50e2 / 0.27e2 * t161 * t169 - t174 * t184 + t67 * t192;
3131   t196 = t8 * t18 * t194;
3132   t197 = 0.3e1 / 0.8e1 * t196;
3133   t198 = t80 * t17;
3134   t199 = -t137;
3135   t200 = t126 * t199;
3136   t202 = t8 * t198 * t200;
3137   t203 = t202 / 0.2e1;
3138   t204 = t81 * t143;
3139   t206 = t8 * t204 * t126;
3140   t207 = t206 / 0.8e1;
3141   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3142     vrho[0] = -t130 - t131 + t10 * (-t141 - t147 - t197 - t203 - t207);
3143 
3144   t211 = -t11 / 0.2e1 - t135 / 0.2e1;
3145   t212 = t75 * t211;
3146   t214 = t8 * t132 * t212;
3147   t215 = t214 / 0.2e1;
3148   t216 = -t211;
3149   t217 = t126 * t216;
3150   t219 = t8 * t198 * t217;
3151   t220 = t219 / 0.2e1;
3152   t221 = t91 * t91;
3153   t223 = t148 / t221;
3154   t224 = t223 * t19;
3155   t225 = t23 * sigma[2];
3156   t226 = t83 * rho[1];
3157   t228 = 0.1e1 / t85 / t226;
3158   t229 = t225 * t228;
3159   t230 = t224 * t229;
3160   t232 = t106 * t117;
3161   t233 = t232 * t124;
3162   t234 = t100 * t44;
3163   t239 = -0.5e1 / 0.3e1 * tau[1] * t87 + sigma[2] * t228 / 0.3e1;
3164   t240 = t47 * t239;
3165   t241 = t234 * t240;
3166   t244 = t116 * t116;
3167   t245 = 0.1e1 / t244;
3168   t246 = t107 * t245;
3169   t247 = t101 * t55;
3170   t251 = params->b * t111 * t100;
3171   t252 = t62 * t239;
3172   t255 = 0.250e3 / 0.81e2 * t247 * t239 + 0.125000e6 / 0.19683e5 * t251 * t252;
3173   t256 = t124 * t255;
3174   t258 = t119 * t119;
3175   t260 = t148 / t258;
3176   t261 = t260 * t19;
3177   t264 = -0.10e2 / 0.729e3 * t261 * t229 + 0.10e2 / 0.729e3 * t230;
3178   t266 = -0.10e2 / 0.729e3 * t230 - 0.50e2 / 0.27e2 * t233 * t241 - t246 * t256 + t118 * t264;
3179   t268 = t8 * t82 * t266;
3180   t269 = 0.3e1 / 0.8e1 * t268;
3181   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3182     vrho[1] = -t130 - t131 + t10 * (-t215 - t147 - t220 - t207 - t269);
3183 
3184   t273 = t17 * t10 * t2;
3185   t274 = t273 * t4;
3186   t275 = t7 * t16;
3187   t276 = t24 * t29;
3188   t277 = t151 * t276;
3189   t279 = t47 * t29;
3190   t280 = t162 * t279;
3191   t281 = t161 * t280;
3192   t283 = t175 * t29;
3193   t285 = t62 * t29;
3194   t286 = t179 * t285;
3195   t288 = -0.125e3 / 0.324e3 * t283 - 0.15625e5 / 0.19683e5 * t286;
3196   t289 = t73 * t288;
3197   t293 = 0.5e1 / 0.972e3 * t188 * t276 - 0.5e1 / 0.972e3 * t277;
3198   t295 = 0.5e1 / 0.972e3 * t277 + 0.25e2 / 0.108e3 * t281 - t174 * t289 + t67 * t293;
3199   t296 = t275 * t295;
3200   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3201     vsigma[0] = -0.3e1 / 0.8e1 * t274 * t296;
3202 
3203   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3204     vsigma[1] = 0.0e0;
3205 
3206   t299 = t7 * t81;
3207   t300 = t24 * t87;
3208   t301 = t223 * t300;
3209   t303 = t47 * t87;
3210   t304 = t234 * t303;
3211   t305 = t233 * t304;
3212   t307 = t247 * t87;
3213   t309 = t62 * t87;
3214   t310 = t251 * t309;
3215   t312 = -0.125e3 / 0.324e3 * t307 - 0.15625e5 / 0.19683e5 * t310;
3216   t313 = t124 * t312;
3217   t317 = 0.5e1 / 0.972e3 * t260 * t300 - 0.5e1 / 0.972e3 * t301;
3218   t319 = 0.5e1 / 0.972e3 * t301 + 0.25e2 / 0.108e3 * t305 - t246 * t313 + t118 * t317;
3219   t320 = t299 * t319;
3220   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3221     vsigma[2] = -0.3e1 / 0.8e1 * t274 * t320;
3222 
3223   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3224     vlapl[0] = 0.0e0;
3225 
3226   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
3227     vlapl[1] = 0.0e0;
3228 
3229   t323 = t47 * t39;
3230   t324 = t162 * t323;
3231   t329 = t62 * t39;
3232   t332 = 0.250e3 / 0.81e2 * t175 * t39 + 0.125000e6 / 0.19683e5 * t179 * t329;
3233   t333 = t73 * t332;
3234   t335 = -0.50e2 / 0.27e2 * t161 * t324 - t174 * t333;
3235   t336 = t275 * t335;
3236   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3237     vtau[0] = -0.3e1 / 0.8e1 * t274 * t336;
3238 
3239   t339 = t47 * t97;
3240   t340 = t234 * t339;
3241   t345 = t62 * t97;
3242   t348 = 0.250e3 / 0.81e2 * t247 * t97 + 0.125000e6 / 0.19683e5 * t251 * t345;
3243   t349 = t124 * t348;
3244   t351 = -0.50e2 / 0.27e2 * t233 * t340 - t246 * t349;
3245   t352 = t299 * t351;
3246   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
3247     vtau[1] = -0.3e1 / 0.8e1 * t274 * t352;
3248 
3249 #ifndef XC_DONT_COMPILE_FXC
3250 
3251   if(order < 2) return;
3252 
3253 
3254   t355 = t146 / 0.4e1;
3255   t357 = t206 / 0.4e1;
3256   t358 = t15 * t15;
3257   t359 = 0.1e1 / t358;
3258   t360 = t359 * t17;
3259   t361 = t137 * t137;
3260   t362 = t75 * t361;
3261   t364 = t8 * t360 * t362;
3262   t365 = t364 / 0.6e1;
3263   t366 = t15 * t143;
3264   t368 = t8 * t366 * t138;
3265   t369 = t368 / 0.3e1;
3266   t370 = t194 * t137;
3267   t372 = t8 * t132 * t370;
3268   t373 = t133 * t10;
3269   t374 = 0.1e1 / t373;
3270   t375 = t9 * t374;
3271   t376 = -t134 + t375;
3272   t377 = t75 * t376;
3273   t379 = t8 * t132 * t377;
3274   t380 = t379 / 0.2e1;
3275   t382 = 0.1e1 / t142 / t10;
3276   t383 = t16 * t382;
3277   t385 = t8 * t383 * t75;
3278   t386 = t385 / 0.12e2;
3279   t388 = t8 * t144 * t194;
3280   t389 = t388 / 0.4e1;
3281   t392 = t148 / t149 / t33;
3282   t393 = t392 * t44;
3283   t394 = sigma[0] * sigma[0];
3284   t395 = t47 * t394;
3285   t396 = t25 * t25;
3286   t397 = t396 * t154;
3287   t399 = 0.1e1 / t26 / t397;
3288   t400 = t395 * t399;
3289   t402 = 0.200e3 / 0.531441e6 * t393 * t400;
3290   t404 = 0.1e1 / t27 / t396;
3291   t405 = t153 * t404;
3292   t407 = 0.110e3 / 0.2187e4 * t152 * t405;
3293   t408 = t50 * t66;
3294   t409 = t408 * t73;
3295   t410 = t43 * t19;
3296   t412 = 0.1e1 / t22 / t54;
3297   t413 = t167 * t167;
3298   t414 = t412 * t413;
3299   t415 = t410 * t414;
3300   t418 = t51 * t173;
3301   t419 = t73 * t42;
3302   t420 = t418 * t419;
3303   t421 = t44 * t47;
3304   t422 = t167 * t183;
3305   t423 = t421 * t422;
3306   t426 = t160 * t192;
3307   t429 = t413 * t44;
3308   t430 = t429 * t47;
3309   t437 = 0.40e2 / 0.9e1 * tau[0] * t156 - 0.11e2 / 0.9e1 * sigma[0] * t404;
3310   t438 = t47 * t437;
3311   t439 = t162 * t438;
3312   t443 = 0.1e1 / t172 / t65;
3313   t444 = t52 * t443;
3314   t445 = t183 * t183;
3315   t446 = t73 * t445;
3316   t449 = t192 * t183;
3317   t452 = t42 * t55;
3318   t457 = params->b * t58;
3319   t458 = t62 * t413;
3320   t464 = 0.500e3 / 0.81e2 * t452 * t413 + 0.250e3 / 0.81e2 * t175 * t437 + 0.625000e6 / 0.19683e5 * t457 * t458 + 0.125000e6 / 0.19683e5 * t179 * t62 * t437;
3321   t469 = t148 / t186 / t68;
3322   t470 = t469 * t44;
3323   t475 = -0.200e3 / 0.531441e6 * t470 * t400 + 0.110e3 / 0.2187e4 * t189 * t405 + t402 - t407;
3324   t477 = -t402 + t407 + 0.10000e5 / 0.729e3 * t409 * t415 + 0.100e3 / 0.27e2 * t420 * t423 - 0.100e3 / 0.27e2 * t426 * t169 - 0.50e2 / 0.27e2 * t161 * t430 - 0.50e2 / 0.27e2 * t161 * t439 + 0.2e1 * t444 * t446 - 0.2e1 * t174 * t449 - t174 * t73 * t464 + t67 * t475;
3325   t479 = t8 * t18 * t477;
3326   t480 = 0.3e1 / 0.8e1 * t479;
3327   t481 = t80 * t80;
3328   t482 = 0.1e1 / t481;
3329   t483 = t482 * t17;
3330   t484 = t199 * t199;
3331   t485 = t126 * t484;
3332   t487 = t8 * t483 * t485;
3333   t488 = t487 / 0.6e1;
3334   t489 = t80 * t143;
3335   t491 = t8 * t489 * t200;
3336   t492 = t491 / 0.3e1;
3337   t493 = -t376;
3338   t494 = t126 * t493;
3339   t496 = t8 * t198 * t494;
3340   t497 = t496 / 0.2e1;
3341   t498 = t81 * t382;
3342   t500 = t8 * t498 * t126;
3343   t501 = t500 / 0.12e2;
3344   t502 = -t365 - t369 - t372 - t380 + t386 - t389 - t480 - t488 - t492 - t497 + t501;
3345   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3346     v2rho2[0] = -t140 - t355 - 0.3e1 / 0.4e1 * t196 - t202 - t357 + t10 * t502;
3347 
3348   t504 = t7 * t359;
3349   t505 = t5 * t504;
3350   t506 = t17 * t75;
3351   t507 = t211 * t137;
3352   t509 = t505 * t506 * t507;
3353   t512 = t8 * t366 * t212;
3354   t514 = t194 * t211;
3355   t516 = t8 * t132 * t514;
3356   t519 = 0.1e1 / t142 / t133;
3357   t520 = t15 * t519;
3358   t521 = t75 * t9;
3359   t523 = t8 * t520 * t521;
3360   t527 = t7 * t482;
3361   t528 = t5 * t527;
3362   t529 = t17 * t126;
3363   t530 = t216 * t199;
3364   t532 = t528 * t529 * t530;
3365   t535 = t8 * t489 * t217;
3366   t537 = t80 * t519;
3367   t538 = t126 * t9;
3368   t540 = t8 * t537 * t538;
3369   t543 = t266 * t199;
3370   t545 = t8 * t198 * t543;
3371   t548 = t8 * t204 * t266;
3372   t550 = -t509 / 0.6e1 - t512 / 0.6e1 - t516 / 0.2e1 - t523 / 0.2e1 - t368 / 0.6e1 + t386 - t388 / 0.8e1 - t532 / 0.6e1 - t535 / 0.6e1 + t540 / 0.2e1 - t491 / 0.6e1 + t501 - t545 / 0.2e1 - t548 / 0.8e1;
3373   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3374     v2rho2[1] = t10 * t550 - t141 - t197 - t203 - t215 - t220 - t269 - t355 - t357;
3375 
3376   t553 = t211 * t211;
3377   t554 = t75 * t553;
3378   t556 = t8 * t360 * t554;
3379   t557 = t556 / 0.6e1;
3380   t558 = t512 / 0.3e1;
3381   t559 = t134 + t375;
3382   t560 = t75 * t559;
3383   t562 = t8 * t132 * t560;
3384   t563 = t562 / 0.2e1;
3385   t564 = t216 * t216;
3386   t565 = t126 * t564;
3387   t567 = t8 * t483 * t565;
3388   t568 = t567 / 0.6e1;
3389   t569 = t535 / 0.3e1;
3390   t570 = t266 * t216;
3391   t572 = t8 * t198 * t570;
3392   t573 = -t559;
3393   t574 = t126 * t573;
3394   t576 = t8 * t198 * t574;
3395   t577 = t576 / 0.2e1;
3396   t578 = t548 / 0.4e1;
3397   t581 = t148 / t221 / t91;
3398   t582 = t581 * t44;
3399   t583 = sigma[2] * sigma[2];
3400   t584 = t47 * t583;
3401   t585 = t83 * t83;
3402   t586 = t585 * t226;
3403   t588 = 0.1e1 / t84 / t586;
3404   t589 = t584 * t588;
3405   t591 = 0.200e3 / 0.531441e6 * t582 * t589;
3406   t593 = 0.1e1 / t85 / t585;
3407   t594 = t225 * t593;
3408   t596 = 0.110e3 / 0.2187e4 * t224 * t594;
3409   t597 = t105 * t117;
3410   t598 = t597 * t124;
3411   t599 = t101 * t19;
3412   t600 = t239 * t239;
3413   t601 = t412 * t600;
3414   t602 = t599 * t601;
3415   t605 = t106 * t245;
3416   t606 = t124 * t100;
3417   t607 = t605 * t606;
3418   t608 = t239 * t255;
3419   t609 = t421 * t608;
3420   t612 = t232 * t264;
3421   t615 = t600 * t44;
3422   t616 = t615 * t47;
3423   t623 = 0.40e2 / 0.9e1 * tau[1] * t228 - 0.11e2 / 0.9e1 * sigma[2] * t593;
3424   t624 = t47 * t623;
3425   t625 = t234 * t624;
3426   t629 = 0.1e1 / t244 / t116;
3427   t630 = t107 * t629;
3428   t631 = t255 * t255;
3429   t632 = t124 * t631;
3430   t635 = t264 * t255;
3431   t638 = t100 * t55;
3432   t643 = params->b * t111;
3433   t644 = t62 * t600;
3434   t650 = 0.500e3 / 0.81e2 * t638 * t600 + 0.250e3 / 0.81e2 * t247 * t623 + 0.625000e6 / 0.19683e5 * t643 * t644 + 0.125000e6 / 0.19683e5 * t251 * t62 * t623;
3435   t655 = t148 / t258 / t119;
3436   t656 = t655 * t44;
3437   t661 = -0.200e3 / 0.531441e6 * t656 * t589 + 0.110e3 / 0.2187e4 * t261 * t594 + t591 - t596;
3438   t663 = -t591 + t596 + 0.10000e5 / 0.729e3 * t598 * t602 + 0.100e3 / 0.27e2 * t607 * t609 - 0.100e3 / 0.27e2 * t612 * t241 - 0.50e2 / 0.27e2 * t233 * t616 - 0.50e2 / 0.27e2 * t233 * t625 + 0.2e1 * t630 * t632 - 0.2e1 * t246 * t635 - t246 * t124 * t650 + t118 * t661;
3439   t665 = t8 * t82 * t663;
3440   t666 = 0.3e1 / 0.8e1 * t665;
3441   t667 = -t557 - t558 - t563 + t386 - t568 - t569 - t572 - t577 + t501 - t578 - t666;
3442   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3443     v2rho2[2] = -t214 - t355 - t219 - t357 - 0.3e1 / 0.4e1 * t268 + t10 * t667;
3444 
3445   t669 = t17 * t2;
3446   t670 = t669 * t4;
3447   t671 = t670 * t296;
3448   t673 = t7 * t15;
3449   t675 = t673 * t295 * t137;
3450   t678 = t396 * t25;
3451   t680 = 0.1e1 / t26 / t678;
3452   t682 = t47 * t680 * sigma[0];
3453   t684 = 0.25e2 / 0.177147e6 * t393 * t682;
3454   t685 = t24 * t156;
3455   t687 = 0.10e2 / 0.729e3 * t151 * t685;
3456   t688 = t73 * t43;
3457   t689 = t408 * t688;
3458   t690 = t19 * t412;
3459   t691 = t29 * t167;
3460   t692 = t690 * t691;
3461   t693 = t689 * t692;
3462   t695 = t29 * t183;
3463   t696 = t421 * t695;
3464   t697 = t420 * t696;
3465   t699 = t426 * t280;
3466   t701 = t167 * t44;
3467   t702 = t701 * t279;
3468   t703 = t161 * t702;
3469   t705 = t47 * t156;
3470   t706 = t162 * t705;
3471   t707 = t161 * t706;
3472   t709 = t418 * t289;
3473   t715 = t192 * t288;
3474   t717 = t452 * t691;
3475   t719 = t175 * t156;
3476   t722 = t457 * t285 * t167;
3477   t724 = t62 * t156;
3478   t725 = t179 * t724;
3479   t727 = -0.125e3 / 0.162e3 * t717 + 0.250e3 / 0.243e3 * t719 - 0.78125e5 / 0.19683e5 * t722 + 0.125000e6 / 0.59049e5 * t725;
3480   t728 = t73 * t727;
3481   t730 = t160 * t293;
3482   t739 = 0.25e2 / 0.177147e6 * t470 * t682 - 0.10e2 / 0.729e3 * t188 * t685 - t684 + t687;
3483   t741 = t684 - t687 - 0.1250e4 / 0.729e3 * t693 - 0.25e2 / 0.108e3 * t697 + 0.25e2 / 0.108e3 * t699 + 0.25e2 / 0.108e3 * t703 - 0.50e2 / 0.81e2 * t707 + 0.50e2 / 0.27e2 * t709 * t169 + 0.2e1 * t444 * t289 * t183 - t174 * t715 - t174 * t728 - 0.50e2 / 0.27e2 * t730 * t169 - t174 * t293 * t183 + t67 * t739;
3484   t742 = t275 * t741;
3485   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3486     v2rhosigma[0] = -t671 / 0.2e1 - t274 * t675 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t742;
3487 
3488   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3489     v2rhosigma[1] = 0.0e0;
3490 
3491   t745 = t670 * t320;
3492   t746 = t7 * t80;
3493   t748 = t746 * t319 * t199;
3494   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3495     v2rhosigma[2] = -t274 * t748 / 0.2e1 - t745 / 0.2e1;
3496 
3497   t752 = t673 * t295 * t211;
3498   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3499     v2rhosigma[3] = -t274 * t752 / 0.2e1 - t671 / 0.2e1;
3500 
3501   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3502     v2rhosigma[4] = 0.0e0;
3503 
3504   t757 = t746 * t319 * t216;
3505   t760 = t585 * t83;
3506   t762 = 0.1e1 / t84 / t760;
3507   t764 = t47 * t762 * sigma[2];
3508   t766 = 0.25e2 / 0.177147e6 * t582 * t764;
3509   t767 = t24 * t228;
3510   t769 = 0.10e2 / 0.729e3 * t223 * t767;
3511   t770 = t124 * t101;
3512   t771 = t597 * t770;
3513   t772 = t87 * t239;
3514   t773 = t690 * t772;
3515   t774 = t771 * t773;
3516   t776 = t87 * t255;
3517   t777 = t421 * t776;
3518   t778 = t607 * t777;
3519   t780 = t612 * t304;
3520   t782 = t239 * t44;
3521   t783 = t782 * t303;
3522   t784 = t233 * t783;
3523   t786 = t47 * t228;
3524   t787 = t234 * t786;
3525   t788 = t233 * t787;
3526   t790 = t605 * t313;
3527   t796 = t264 * t312;
3528   t798 = t638 * t772;
3529   t800 = t247 * t228;
3530   t803 = t643 * t309 * t239;
3531   t805 = t62 * t228;
3532   t806 = t251 * t805;
3533   t808 = -0.125e3 / 0.162e3 * t798 + 0.250e3 / 0.243e3 * t800 - 0.78125e5 / 0.19683e5 * t803 + 0.125000e6 / 0.59049e5 * t806;
3534   t809 = t124 * t808;
3535   t811 = t232 * t317;
3536   t814 = t317 * t255;
3537   t820 = 0.25e2 / 0.177147e6 * t656 * t764 - 0.10e2 / 0.729e3 * t260 * t767 - t766 + t769;
3538   t822 = t766 - t769 - 0.1250e4 / 0.729e3 * t774 - 0.25e2 / 0.108e3 * t778 + 0.25e2 / 0.108e3 * t780 + 0.25e2 / 0.108e3 * t784 - 0.50e2 / 0.81e2 * t788 + 0.50e2 / 0.27e2 * t790 * t241 + 0.2e1 * t630 * t313 * t255 - t246 * t796 - t246 * t809 - 0.50e2 / 0.27e2 * t811 * t241 - t246 * t814 + t118 * t820;
3539   t823 = t299 * t822;
3540   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3541     v2rhosigma[5] = -t745 / 0.2e1 - t274 * t757 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t823;
3542 
3543   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3544     v2rholapl[0] = 0.0e0;
3545 
3546   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3547     v2rholapl[1] = 0.0e0;
3548 
3549   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3550     v2rholapl[2] = 0.0e0;
3551 
3552   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3553     v2rholapl[3] = 0.0e0;
3554 
3555   t826 = t670 * t336;
3556   t829 = t673 * t335 * t137;
3557   t832 = t39 * t167;
3558   t833 = t690 * t832;
3559   t836 = t39 * t183;
3560   t837 = t421 * t836;
3561   t842 = t701 * t323;
3562   t846 = t418 * t333;
3563   t852 = t192 * t332;
3564   t861 = 0.500e3 / 0.81e2 * t452 * t832 - 0.1250e4 / 0.243e3 * t283 + 0.625000e6 / 0.19683e5 * t457 * t329 * t167 - 0.625000e6 / 0.59049e5 * t286;
3565   t862 = t73 * t861;
3566   t864 = 0.10000e5 / 0.729e3 * t689 * t833 + 0.50e2 / 0.27e2 * t420 * t837 - 0.50e2 / 0.27e2 * t426 * t324 - 0.50e2 / 0.27e2 * t161 * t842 + 0.250e3 / 0.81e2 * t281 + 0.50e2 / 0.27e2 * t846 * t169 + 0.2e1 * t444 * t333 * t183 - t174 * t852 - t174 * t862;
3567   t865 = t275 * t864;
3568   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3569     v2rhotau[0] = -t826 / 0.2e1 - t274 * t829 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t865;
3570 
3571   t868 = t670 * t352;
3572   t870 = t746 * t351 * t199;
3573   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3574     v2rhotau[1] = -t274 * t870 / 0.2e1 - t868 / 0.2e1;
3575 
3576   t874 = t673 * t335 * t211;
3577   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3578     v2rhotau[2] = -t274 * t874 / 0.2e1 - t826 / 0.2e1;
3579 
3580   t879 = t746 * t351 * t216;
3581   t882 = t97 * t239;
3582   t883 = t690 * t882;
3583   t886 = t97 * t255;
3584   t887 = t421 * t886;
3585   t892 = t782 * t339;
3586   t896 = t605 * t349;
3587   t902 = t264 * t348;
3588   t911 = 0.500e3 / 0.81e2 * t638 * t882 - 0.1250e4 / 0.243e3 * t307 + 0.625000e6 / 0.19683e5 * t643 * t345 * t239 - 0.625000e6 / 0.59049e5 * t310;
3589   t912 = t124 * t911;
3590   t914 = 0.10000e5 / 0.729e3 * t771 * t883 + 0.50e2 / 0.27e2 * t607 * t887 - 0.50e2 / 0.27e2 * t612 * t340 - 0.50e2 / 0.27e2 * t233 * t892 + 0.250e3 / 0.81e2 * t305 + 0.50e2 / 0.27e2 * t896 * t241 + 0.2e1 * t630 * t349 * t255 - t246 * t902 - t246 * t912;
3591   t915 = t299 * t914;
3592   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3593     v2rhotau[3] = -t868 / 0.2e1 - t274 * t879 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t915;
3594 
3595   t918 = t396 * rho[0];
3596   t920 = 0.1e1 / t26 / t918;
3597   t921 = t421 * t920;
3598   t922 = t392 * t921;
3599   t924 = t412 * t920;
3600   t925 = t410 * t924;
3601   t926 = t409 * t925;
3602   t928 = t29 * t288;
3603   t929 = t421 * t928;
3604   t930 = t420 * t929;
3605   t932 = t730 * t280;
3606   t934 = t161 * t921;
3607   t936 = t288 * t288;
3608   t937 = t73 * t936;
3609   t940 = t293 * t288;
3610   t943 = t452 * t920;
3611   t945 = t62 * t920;
3612   t946 = t457 * t945;
3613   t948 = 0.125e3 / 0.1296e4 * t943 + 0.78125e5 / 0.157464e6 * t946;
3614   t949 = t73 * t948;
3615   t953 = -0.25e2 / 0.472392e6 * t469 * t921 + 0.25e2 / 0.472392e6 * t922;
3616   t955 = -0.25e2 / 0.472392e6 * t922 + 0.625e3 / 0.2916e4 * t926 - 0.25e2 / 0.54e2 * t930 + 0.25e2 / 0.54e2 * t932 - 0.25e2 / 0.864e3 * t934 + 0.2e1 * t444 * t937 - 0.2e1 * t174 * t940 - t174 * t949 + t67 * t953;
3617   t956 = t275 * t955;
3618   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3619     v2sigma2[0] = -0.3e1 / 0.8e1 * t274 * t956;
3620 
3621   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3622     v2sigma2[1] = 0.0e0;
3623 
3624   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3625     v2sigma2[2] = 0.0e0;
3626 
3627   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3628     v2sigma2[3] = 0.0e0;
3629 
3630   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3631     v2sigma2[4] = 0.0e0;
3632 
3633   t959 = t585 * rho[1];
3634   t961 = 0.1e1 / t84 / t959;
3635   t962 = t421 * t961;
3636   t963 = t581 * t962;
3637   t965 = t412 * t961;
3638   t966 = t599 * t965;
3639   t967 = t598 * t966;
3640   t969 = t87 * t312;
3641   t970 = t421 * t969;
3642   t971 = t607 * t970;
3643   t973 = t811 * t304;
3644   t975 = t233 * t962;
3645   t977 = t312 * t312;
3646   t978 = t124 * t977;
3647   t981 = t317 * t312;
3648   t984 = t638 * t961;
3649   t986 = t62 * t961;
3650   t987 = t643 * t986;
3651   t989 = 0.125e3 / 0.1296e4 * t984 + 0.78125e5 / 0.157464e6 * t987;
3652   t990 = t124 * t989;
3653   t994 = -0.25e2 / 0.472392e6 * t655 * t962 + 0.25e2 / 0.472392e6 * t963;
3654   t996 = -0.25e2 / 0.472392e6 * t963 + 0.625e3 / 0.2916e4 * t967 - 0.25e2 / 0.54e2 * t971 + 0.25e2 / 0.54e2 * t973 - 0.25e2 / 0.864e3 * t975 + 0.2e1 * t630 * t978 - 0.2e1 * t246 * t981 - t246 * t990 + t118 * t994;
3655   t997 = t299 * t996;
3656   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3657     v2sigma2[5] = -0.3e1 / 0.8e1 * t274 * t997;
3658 
3659   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3660     v2sigmalapl[0] = 0.0e0;
3661 
3662   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3663     v2sigmalapl[1] = 0.0e0;
3664 
3665   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3666     v2sigmalapl[2] = 0.0e0;
3667 
3668   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3669     v2sigmalapl[3] = 0.0e0;
3670 
3671   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3672     v2sigmalapl[4] = 0.0e0;
3673 
3674   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3675     v2sigmalapl[5] = 0.0e0;
3676 
3677   t1001 = 0.1e1 / t26 / t396;
3678   t1002 = t412 * t1001;
3679   t1003 = t410 * t1002;
3680   t1004 = t409 * t1003;
3681   t1006 = t39 * t288;
3682   t1007 = t421 * t1006;
3683   t1012 = t1001 * t44;
3684   t1013 = t1012 * t47;
3685   t1014 = t161 * t1013;
3686   t1016 = t846 * t280;
3687   t1018 = t333 * t288;
3688   t1021 = t293 * t332;
3689   t1023 = t452 * t1001;
3690   t1025 = t62 * t1001;
3691   t1026 = t457 * t1025;
3692   t1028 = -0.125e3 / 0.162e3 * t1023 - 0.78125e5 / 0.19683e5 * t1026;
3693   t1029 = t73 * t1028;
3694   t1031 = -0.1250e4 / 0.729e3 * t1004 + 0.50e2 / 0.27e2 * t420 * t1007 - 0.50e2 / 0.27e2 * t730 * t324 + 0.25e2 / 0.108e3 * t1014 - 0.25e2 / 0.108e3 * t1016 + 0.2e1 * t444 * t1018 - t174 * t1021 - t174 * t1029;
3695   t1032 = t275 * t1031;
3696   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3697     v2sigmatau[0] = -0.3e1 / 0.8e1 * t274 * t1032;
3698 
3699   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3700     v2sigmatau[1] = 0.0e0;
3701 
3702   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3703     v2sigmatau[2] = 0.0e0;
3704 
3705   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3706     v2sigmatau[3] = 0.0e0;
3707 
3708   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3709     v2sigmatau[4] = 0.0e0;
3710 
3711   t1036 = 0.1e1 / t84 / t585;
3712   t1037 = t412 * t1036;
3713   t1038 = t599 * t1037;
3714   t1039 = t598 * t1038;
3715   t1041 = t97 * t312;
3716   t1042 = t421 * t1041;
3717   t1047 = t1036 * t44;
3718   t1048 = t1047 * t47;
3719   t1049 = t233 * t1048;
3720   t1051 = t896 * t304;
3721   t1053 = t349 * t312;
3722   t1056 = t317 * t348;
3723   t1058 = t638 * t1036;
3724   t1060 = t62 * t1036;
3725   t1061 = t643 * t1060;
3726   t1063 = -0.125e3 / 0.162e3 * t1058 - 0.78125e5 / 0.19683e5 * t1061;
3727   t1064 = t124 * t1063;
3728   t1066 = -0.1250e4 / 0.729e3 * t1039 + 0.50e2 / 0.27e2 * t607 * t1042 - 0.50e2 / 0.27e2 * t811 * t340 + 0.25e2 / 0.108e3 * t1049 - 0.25e2 / 0.108e3 * t1051 + 0.2e1 * t630 * t1053 - t246 * t1056 - t246 * t1064;
3729   t1067 = t299 * t1066;
3730   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3731     v2sigmatau[5] = -0.3e1 / 0.8e1 * t274 * t1067;
3732 
3733   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3734     v2lapl2[0] = 0.0e0;
3735 
3736   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3737     v2lapl2[1] = 0.0e0;
3738 
3739   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3740     v2lapl2[2] = 0.0e0;
3741 
3742   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3743     v2lapltau[0] = 0.0e0;
3744 
3745   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3746     v2lapltau[1] = 0.0e0;
3747 
3748   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3749     v2lapltau[2] = 0.0e0;
3750 
3751   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
3752     v2lapltau[3] = 0.0e0;
3753 
3754   t1071 = 0.1e1 / t26 / t154;
3755   t1072 = t412 * t1071;
3756   t1073 = t410 * t1072;
3757   t1076 = t39 * t332;
3758   t1077 = t421 * t1076;
3759   t1080 = t1071 * t44;
3760   t1081 = t1080 * t47;
3761   t1084 = t332 * t332;
3762   t1085 = t73 * t1084;
3763   t1090 = t62 * t1071;
3764   t1093 = 0.500e3 / 0.81e2 * t452 * t1071 + 0.625000e6 / 0.19683e5 * t457 * t1090;
3765   t1094 = t73 * t1093;
3766   t1096 = 0.10000e5 / 0.729e3 * t409 * t1073 + 0.100e3 / 0.27e2 * t420 * t1077 - 0.50e2 / 0.27e2 * t161 * t1081 + 0.2e1 * t444 * t1085 - t174 * t1094;
3767   t1097 = t275 * t1096;
3768   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3769     v2tau2[0] = -0.3e1 / 0.8e1 * t274 * t1097;
3770 
3771   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3772     v2tau2[1] = 0.0e0;
3773 
3774   t1101 = 0.1e1 / t84 / t226;
3775   t1102 = t412 * t1101;
3776   t1103 = t599 * t1102;
3777   t1106 = t97 * t348;
3778   t1107 = t421 * t1106;
3779   t1110 = t1101 * t44;
3780   t1111 = t1110 * t47;
3781   t1114 = t348 * t348;
3782   t1115 = t124 * t1114;
3783   t1120 = t62 * t1101;
3784   t1123 = 0.500e3 / 0.81e2 * t638 * t1101 + 0.625000e6 / 0.19683e5 * t643 * t1120;
3785   t1124 = t124 * t1123;
3786   t1126 = 0.10000e5 / 0.729e3 * t598 * t1103 + 0.100e3 / 0.27e2 * t607 * t1107 - 0.50e2 / 0.27e2 * t233 * t1111 + 0.2e1 * t630 * t1115 - t246 * t1124;
3787   t1127 = t299 * t1126;
3788   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3789     v2tau2[2] = -0.3e1 / 0.8e1 * t274 * t1127;
3790 
3791 #ifndef XC_DONT_COMPILE_KXC
3792 
3793   if(order < 3) return;
3794 
3795 
3796   t1131 = t8 * t489 * t494;
3797   t1133 = t133 * t133;
3798   t1134 = 0.1e1 / t1133;
3799   t1135 = t9 * t1134;
3800   t1137 = -0.3e1 * t374 + 0.3e1 * t1135;
3801   t1138 = t126 * t1137;
3802   t1140 = t8 * t198 * t1138;
3803   t1141 = t1140 / 0.2e1;
3804   t1142 = t81 * t519;
3805   t1144 = t8 * t1142 * t126;
3806   t1145 = 0.5e1 / 0.36e2 * t1144;
3807   t1147 = 0.1e1 / t358 / t14;
3808   t1148 = t1147 * t17;
3809   t1149 = t361 * t137;
3810   t1150 = t75 * t1149;
3811   t1152 = t8 * t1148 * t1150;
3812   t1153 = t1152 / 0.9e1;
3813   t1154 = t359 * t143;
3814   t1156 = t8 * t1154 * t362;
3815   t1158 = t137 * t376;
3816   t1160 = t505 * t506 * t1158;
3817   t1161 = t1160 / 0.2e1;
3818   t1162 = t15 * t382;
3819   t1164 = t8 * t1162 * t138;
3820   t1165 = t1164 / 0.3e1;
3821   t1167 = 0.1e1 / t481 / t79;
3822   t1168 = t1167 * t17;
3823   t1169 = t484 * t199;
3824   t1170 = t126 * t1169;
3825   t1172 = t8 * t1168 * t1170;
3826   t1173 = t1172 / 0.9e1;
3827   t1174 = t482 * t143;
3828   t1176 = t8 * t1174 * t485;
3829   t1178 = t199 * t493;
3830   t1180 = t528 * t529 * t1178;
3831   t1181 = t1180 / 0.2e1;
3832   t1183 = t80 * t382;
3833   t1185 = t8 * t1183 * t200;
3834   t1186 = t1185 / 0.3e1;
3835   t1188 = t8 * t383 * t194;
3836   t1189 = t1188 / 0.4e1;
3837   t1191 = t8 * t144 * t477;
3838   t1194 = t421 * t437 * t183;
3839   t1201 = t51 * t443;
3840   t1202 = t1201 * t419;
3841   t1207 = t50 * t173;
3842   t1208 = t1207 * t688;
3843   t1210 = t690 * t413 * t183;
3844   t1213 = t167 * t437;
3845   t1214 = t690 * t1213;
3846   t1217 = t192 * t42;
3847   t1218 = t418 * t1217;
3848   t1221 = t396 * t396;
3849   t1223 = 0.1e1 / t26 / t1221;
3850   t1224 = t395 * t1223;
3851   t1226 = 0.2200e4 / 0.531441e6 * t393 * t1224;
3852   t1228 = 0.1e1 / t27 / t918;
3853   t1229 = t153 * t1228;
3854   t1231 = 0.1540e4 / 0.6561e4 * t152 * t1229;
3855   t1237 = t192 * t464;
3856   t1240 = t413 * t167;
3857   t1249 = -0.440e3 / 0.27e2 * tau[0] * t404 + 0.154e3 / 0.27e2 * sigma[0] * t1228;
3858   t1252 = params->b * t53;
3859   t1262 = 0.500e3 / 0.81e2 * t1240 * t55 + 0.500e3 / 0.27e2 * t452 * t1213 + 0.250e3 / 0.81e2 * t175 * t1249 + 0.2500000e7 / 0.19683e5 * t1252 * t62 * t1240 + 0.625000e6 / 0.6561e4 * t457 * t180 * t437 + 0.125000e6 / 0.19683e5 * t179 * t62 * t1249;
3860   t1263 = t73 * t1262;
3861   t1265 = 0.50e2 / 0.9e1 * t420 * t1194 + 0.50e2 / 0.9e1 * t420 * t421 * t167 * t464 - 0.100e3 / 0.9e1 * t1202 * t421 * t167 * t445 - 0.10000e5 / 0.243e3 * t1208 * t1210 + 0.10000e5 / 0.243e3 * t689 * t1214 + 0.100e3 / 0.9e1 * t1218 * t423 + t1226 - t1231 - 0.50e2 / 0.9e1 * t426 * t430 + 0.6e1 * t444 * t184 * t464 - 0.3e1 * t174 * t1237 - t174 * t1263;
3862   t1266 = t172 * t172;
3863   t1267 = 0.1e1 / t1266;
3864   t1268 = t52 * t1267;
3865   t1269 = t445 * t183;
3866   t1270 = t73 * t1269;
3867   t1273 = t192 * t445;
3868   t1276 = t475 * t183;
3869   t1279 = t149 * t149;
3870   t1281 = t148 / t1279;
3871   t1282 = t394 * sigma[0];
3872   t1283 = t55 * t1282;
3873   t1284 = t1221 * t154;
3874   t1285 = 0.1e1 / t1284;
3875   t1286 = t1283 * t1285;
3876   t1288 = 0.4000e4 / 0.43046721e8 * t1281 * t1286;
3877   t1289 = t53 * t62;
3878   t1290 = t1240 * t66;
3879   t1294 = t42 * t19;
3880   t1296 = t1294 * t412 * t1240;
3881   t1299 = t418 * t73;
3882   t1300 = t47 * t183;
3883   t1301 = t429 * t1300;
3884   t1304 = t408 * t192;
3885   t1307 = t160 * t475;
3886   t1312 = t701 * t438;
3887   t1315 = t47 * t1249;
3888   t1316 = t162 * t1315;
3889   t1319 = t186 * t186;
3890   t1321 = t148 / t1319;
3891   t1328 = -0.4000e4 / 0.43046721e8 * t1321 * t1286 + 0.2200e4 / 0.531441e6 * t470 * t1224 - 0.1540e4 / 0.6561e4 * t189 * t1229 + t1288 - t1226 + t1231;
3892   t1330 = -0.6e1 * t1268 * t1270 + 0.6e1 * t444 * t1273 - 0.3e1 * t174 * t1276 - t1288 - 0.1000000e7 / 0.19683e5 * t1289 * t1290 * t73 + 0.10000e5 / 0.243e3 * t409 * t1296 + 0.50e2 / 0.9e1 * t1299 * t1301 + 0.10000e5 / 0.243e3 * t1304 * t415 - 0.50e2 / 0.9e1 * t1307 * t169 - 0.50e2 / 0.9e1 * t426 * t439 - 0.50e2 / 0.9e1 * t161 * t1312 - 0.50e2 / 0.27e2 * t161 * t1316 + t67 * t1328;
3893   t1331 = t1265 + t1330;
3894   t1333 = t8 * t18 * t1331;
3895   t1334 = 0.3e1 / 0.8e1 * t1333;
3896   t1335 = t194 * t361;
3897   t1337 = t8 * t360 * t1335;
3898   t1338 = t1337 / 0.2e1;
3899   t1340 = t8 * t366 * t370;
3900   t1342 = t8 * t366 * t377;
3901   t1344 = t477 * t137;
3902   t1346 = t8 * t132 * t1344;
3903   t1347 = 0.3e1 / 0.2e1 * t1346;
3904   t1348 = t194 * t376;
3905   t1350 = t8 * t132 * t1348;
3906   t1351 = 0.3e1 / 0.2e1 * t1350;
3907   t1352 = -t1137;
3908   t1353 = t75 * t1352;
3909   t1355 = t8 * t132 * t1353;
3910   t1356 = t1355 / 0.2e1;
3911   t1357 = t16 * t519;
3912   t1359 = t8 * t1357 * t75;
3913   t1360 = 0.5e1 / 0.36e2 * t1359;
3914   t1361 = t1186 + t1189 - 0.3e1 / 0.8e1 * t1191 - t1334 - t1338 - t1340 - t1342 / 0.2e1 - t1347 - t1351 - t1356 - t1360;
3915   t1366 = t500 / 0.4e1;
3916   t1369 = t385 / 0.4e1;
3917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3918     v3rho3[0] = t10 * (-t1131 / 0.2e1 - t1141 - t1145 + t1153 - t1156 / 0.6e1 - t1161 + t1165 + t1173 - t1176 / 0.6e1 - t1181 + t1361) - 0.3e1 / 0.4e1 * t388 - 0.9e1 / 0.8e1 * t479 + t1366 - 0.3e1 * t372 - 0.3e1 / 0.2e1 * t379 + t1369 - 0.3e1 / 0.2e1 * t496 - t364 / 0.2e1 - t368 - t487 / 0.2e1 - t491;
3919 
3920   t1373 = t216 * t493;
3921   t1375 = t528 * t529 * t1373;
3922   t1377 = t519 * t126;
3923   t1378 = t9 * t199;
3924   t1380 = t528 * t1377 * t1378;
3925   t1382 = t17 * t194;
3926   t1384 = t505 * t1382 * t507;
3927   t1386 = t211 * t376;
3928   t1388 = t505 * t506 * t1386;
3929   t1390 = t7 * t1147;
3930   t1391 = t5 * t1390;
3931   t1392 = t211 * t361;
3932   t1394 = t1391 * t506 * t1392;
3933   t1396 = t143 * t75;
3934   t1398 = t505 * t1396 * t507;
3935   t1399 = t1398 / 0.9e1;
3936   t1400 = t519 * t75;
3937   t1401 = t9 * t137;
3938   t1403 = t505 * t1400 * t1401;
3939   t1405 = t7 * t1167;
3940   t1406 = t5 * t1405;
3941   t1407 = t216 * t484;
3942   t1409 = t1406 * t529 * t1407;
3943   t1411 = t143 * t126;
3944   t1413 = t528 * t1411 * t530;
3945   t1414 = t1413 / 0.9e1;
3946   t1418 = t8 * t498 * t266;
3947   t1421 = t8 * t520 * t75;
3948   t1424 = t8 * t537 * t126;
3949   t1426 = -t1375 / 0.6e1 + t1380 / 0.3e1 - t1384 / 0.3e1 - t1388 / 0.6e1 + t1394 / 0.9e1 - t1399 - t1403 / 0.3e1 + t1409 / 0.9e1 - t1414 - t1145 + t1188 / 0.6e1 - t1191 / 0.8e1 - t1360 + t1418 / 0.12e2 - t1421 / 0.2e1 + t1424 / 0.2e1;
3950   t1427 = t477 * t211;
3951   t1429 = t8 * t132 * t1427;
3952   t1432 = 0.1e1 / t142 / t373;
3953   t1433 = t80 * t1432;
3954   t1435 = t8 * t1433 * t538;
3955   t1437 = t266 * t493;
3956   t1439 = t8 * t198 * t1437;
3957   t1442 = t8 * t1183 * t217;
3958   t1444 = t266 * t484;
3959   t1446 = t8 * t483 * t1444;
3960   t1449 = t8 * t489 * t543;
3961   t1450 = t1449 / 0.3e1;
3962   t1452 = t8 * t366 * t514;
3963   t1453 = t1452 / 0.3e1;
3964   t1455 = t8 * t1162 * t212;
3965   t1457 = t15 * t1432;
3966   t1459 = t8 * t1457 * t521;
3967   t1461 = t194 * t9;
3968   t1463 = t8 * t520 * t1461;
3969   t1471 = -t1429 / 0.2e1 - 0.7e1 / 0.6e1 * t1435 - t1439 / 0.2e1 + t1442 / 0.9e1 - t1446 / 0.6e1 - t1450 - t1453 + t1455 / 0.9e1 + 0.7e1 / 0.6e1 * t1459 - t1463 - t1340 / 0.3e1 - t1342 / 0.6e1 - t1176 / 0.18e2 + 0.2e1 / 0.9e1 * t1185 - t1131 / 0.6e1 - t1156 / 0.18e2 + 0.2e1 / 0.9e1 * t1164;
3970   t1476 = t509 / 0.3e1;
3971   t1477 = t532 / 0.3e1;
3972   t1480 = t1369 - t497 - t1476 - t558 - t523 - t1477 - t569 - t365 - 0.2e1 / 0.3e1 * t368 - t488 - 0.2e1 / 0.3e1 * t491;
3973   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3974     v3rho3[1] = t10 * (t1426 + t1471) - t388 / 0.2e1 - t480 + t1366 - t516 + t540 - t545 - t578 - t372 - t380 + t1480;
3975 
3976   t1481 = t211 * t9;
3977   t1483 = t505 * t1400 * t1481;
3978   t1487 = t8 * t489 * t570;
3979   t1490 = t8 * t489 * t574;
3980   t1493 = t8 * t1154 * t554;
3981   t1496 = t8 * t366 * t560;
3982   t1499 = t8 * t1174 * t565;
3983   t1501 = t194 * t559;
3984   t1503 = t8 * t132 * t1501;
3985   t1506 = -t374 - 0.3e1 * t1135;
3986   t1507 = t75 * t1506;
3987   t1509 = t8 * t132 * t1507;
3988   t1511 = t266 * t9;
3989   t1513 = t8 * t537 * t1511;
3990   t1514 = -t1506;
3991   t1515 = t126 * t1514;
3992   t1517 = t8 * t198 * t1515;
3993   t1519 = t663 * t199;
3994   t1521 = t8 * t198 * t1519;
3995   t1523 = t194 * t553;
3996   t1525 = t8 * t360 * t1523;
3997   t1527 = -t1483 / 0.3e1 - t1399 - t1414 - t1145 + t1188 / 0.12e2 - t1487 / 0.3e1 - t1490 / 0.6e1 - t1493 / 0.18e2 - t1496 / 0.6e1 - t1499 / 0.18e2 - t1503 / 0.2e1 - t1509 / 0.2e1 + t1513 - t1517 / 0.2e1 - t1521 / 0.2e1 - t1525 / 0.6e1;
3998   t1528 = t553 * t137;
3999   t1530 = t1391 * t506 * t1528;
4000   t1532 = t559 * t137;
4001   t1534 = t505 * t506 * t1532;
4002   t1536 = t564 * t199;
4003   t1538 = t1406 * t529 * t1536;
4004   t1540 = t216 * t9;
4005   t1542 = t528 * t1377 * t1540;
4006   t1544 = t17 * t266;
4007   t1546 = t528 * t1544 * t530;
4008   t1548 = t573 * t199;
4009   t1550 = t528 * t529 * t1548;
4010   t1553 = t8 * t204 * t663;
4011   t1562 = -t1360 + t1530 / 0.9e1 - t1534 / 0.6e1 + t1538 / 0.9e1 + t1542 / 0.3e1 - t1546 / 0.3e1 - t1550 / 0.6e1 - t1553 / 0.8e1 + t1418 / 0.6e1 + t1435 / 0.3e1 + 0.2e1 / 0.9e1 * t1442 - t1450 - t1453 + 0.2e1 / 0.9e1 * t1455 - t1459 / 0.3e1 + t1185 / 0.9e1 + t1164 / 0.9e1;
4012   t1569 = -t577 + t1369 - t568 - t1476 - 0.2e1 / 0.3e1 * t512 - t523 - t1477 - 0.2e1 / 0.3e1 * t535 - t557 - t369 - t492;
4013   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4014     v3rho3[2] = t10 * (t1527 + t1562) - t666 - t389 + t1366 - t516 + t540 - t545 - t548 / 0.2e1 - t563 - t572 + t1569;
4015 
4016   t1570 = t1455 / 0.3e1;
4017   t1571 = t258 * t258;
4018   t1573 = t148 / t1571;
4019   t1574 = t583 * sigma[2];
4020   t1575 = t55 * t1574;
4021   t1576 = t585 * t585;
4022   t1577 = t1576 * t226;
4023   t1578 = 0.1e1 / t1577;
4024   t1579 = t1575 * t1578;
4025   t1583 = 0.1e1 / t84 / t1576;
4026   t1584 = t584 * t1583;
4027   t1588 = 0.1e1 / t85 / t959;
4028   t1589 = t225 * t1588;
4029   t1592 = t221 * t221;
4030   t1594 = t148 / t1592;
4031   t1596 = 0.4000e4 / 0.43046721e8 * t1594 * t1579;
4032   t1598 = 0.2200e4 / 0.531441e6 * t582 * t1584;
4033   t1600 = 0.1540e4 / 0.6561e4 * t224 * t1589;
4034   t1601 = -0.4000e4 / 0.43046721e8 * t1573 * t1579 + 0.2200e4 / 0.531441e6 * t656 * t1584 - 0.1540e4 / 0.6561e4 * t261 * t1589 + t1596 - t1598 + t1600;
4035   t1603 = t600 * t239;
4036   t1606 = t239 * t623;
4037   t1613 = -0.440e3 / 0.27e2 * tau[1] * t593 + 0.154e3 / 0.27e2 * sigma[2] * t1588;
4038   t1616 = params->b * t108;
4039   t1626 = 0.500e3 / 0.81e2 * t1603 * t55 + 0.500e3 / 0.27e2 * t638 * t1606 + 0.250e3 / 0.81e2 * t247 * t1613 + 0.2500000e7 / 0.19683e5 * t1616 * t62 * t1603 + 0.625000e6 / 0.6561e4 * t643 * t252 * t623 + 0.125000e6 / 0.19683e5 * t251 * t62 * t1613;
4040   t1627 = t124 * t1626;
4041   t1629 = t244 * t244;
4042   t1630 = 0.1e1 / t1629;
4043   t1631 = t107 * t1630;
4044   t1632 = t631 * t255;
4045   t1633 = t124 * t1632;
4046   t1636 = t264 * t631;
4047   t1642 = t264 * t650;
4048   t1645 = t108 * t62;
4049   t1646 = t1603 * t117;
4050   t1653 = t100 * t19;
4051   t1655 = t1653 * t412 * t1603;
4052   t1658 = t605 * t124;
4053   t1659 = t47 * t255;
4054   t1660 = t615 * t1659;
4055   t1663 = t597 * t264;
4056   t1666 = t118 * t1601 - t246 * t1627 - 0.6e1 * t1631 * t1633 + 0.6e1 * t630 * t1636 - 0.3e1 * t246 * t661 * t255 - 0.3e1 * t246 * t1642 - t1596 - 0.1000000e7 / 0.19683e5 * t1645 * t1646 * t124 + 0.6e1 * t630 * t256 * t650 + 0.10000e5 / 0.243e3 * t598 * t1655 + 0.50e2 / 0.9e1 * t1658 * t1660 + 0.10000e5 / 0.243e3 * t1663 * t602;
4057   t1667 = t232 * t661;
4058   t1672 = t782 * t624;
4059   t1675 = t47 * t1613;
4060   t1676 = t234 * t1675;
4061   t1679 = t106 * t629;
4062   t1680 = t1679 * t606;
4063   t1682 = t421 * t239 * t631;
4064   t1685 = t105 * t245;
4065   t1686 = t1685 * t770;
4066   t1688 = t690 * t600 * t255;
4067   t1691 = t690 * t1606;
4068   t1694 = t264 * t100;
4069   t1695 = t605 * t1694;
4070   t1699 = t421 * t623 * t255;
4071   t1703 = t421 * t239 * t650;
4072   t1708 = -0.50e2 / 0.9e1 * t1667 * t241 - 0.50e2 / 0.9e1 * t612 * t625 - 0.50e2 / 0.9e1 * t233 * t1672 - 0.50e2 / 0.27e2 * t233 * t1676 - 0.100e3 / 0.9e1 * t1680 * t1682 - 0.10000e5 / 0.243e3 * t1686 * t1688 + 0.10000e5 / 0.243e3 * t771 * t1691 + 0.100e3 / 0.9e1 * t1695 * t609 + 0.50e2 / 0.9e1 * t607 * t1699 + 0.50e2 / 0.9e1 * t607 * t1703 + t1598 - t1600 - 0.50e2 / 0.9e1 * t612 * t616;
4073   t1709 = t1666 + t1708;
4074   t1711 = t8 * t82 * t1709;
4075   t1712 = 0.3e1 / 0.8e1 * t1711;
4076   t1714 = -0.3e1 * t374 - 0.3e1 * t1135;
4077   t1715 = t75 * t1714;
4078   t1717 = t8 * t132 * t1715;
4079   t1718 = t1717 / 0.2e1;
4080   t1719 = t266 * t564;
4081   t1721 = t8 * t483 * t1719;
4082   t1722 = t1721 / 0.2e1;
4083   t1723 = t663 * t216;
4084   t1725 = t8 * t198 * t1723;
4085   t1726 = 0.3e1 / 0.2e1 * t1725;
4086   t1727 = t266 * t573;
4087   t1729 = t8 * t198 * t1727;
4088   t1730 = 0.3e1 / 0.2e1 * t1729;
4089   t1731 = -t1714;
4090   t1732 = t126 * t1731;
4091   t1734 = t8 * t198 * t1732;
4092   t1735 = t1734 / 0.2e1;
4093   t1736 = t1418 / 0.4e1;
4094   t1739 = t1442 / 0.3e1;
4095   t1744 = t553 * t211;
4096   t1745 = t75 * t1744;
4097   t1747 = t8 * t1148 * t1745;
4098   t1748 = t1747 / 0.9e1;
4099   t1749 = t211 * t559;
4100   t1751 = t505 * t506 * t1749;
4101   t1752 = t1751 / 0.2e1;
4102   t1753 = t564 * t216;
4103   t1754 = t126 * t1753;
4104   t1756 = t8 * t1168 * t1754;
4105   t1757 = t1756 / 0.9e1;
4106   t1758 = t216 * t573;
4107   t1760 = t528 * t529 * t1758;
4108   t1761 = t1760 / 0.2e1;
4109   t1762 = -0.3e1 / 0.8e1 * t1553 + t1739 - t1493 / 0.6e1 - t1496 / 0.2e1 - t1499 / 0.6e1 - t1487 - t1490 / 0.2e1 + t1748 - t1752 + t1757 - t1761;
4110   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4111     v3rho3[3] = t10 * (-t1145 + t1570 - t1712 - t1360 - t1718 - t1722 - t1726 - t1730 - t1735 + t1736 + t1762) - 0.9e1 / 0.8e1 * t665 + t1366 - 0.3e1 / 0.4e1 * t548 - 0.3e1 / 0.2e1 * t562 - 0.3e1 * t572 - 0.3e1 / 0.2e1 * t576 + t1369 - t567 / 0.2e1 - t512 - t535 - t556 / 0.2e1;
4112 
4113   t1773 = t143 * t2 * t4;
4114   t1775 = t1773 * t296 / 0.6e1;
4115   t1776 = t670 * t675;
4116   t1778 = t670 * t742;
4117   t1780 = t504 * t295 * t361;
4118   t1784 = t673 * t741 * t137;
4119   t1787 = t673 * t295 * t376;
4120   t1790 = t1201 * t289;
4121   t1792 = t162 * t168 * t183;
4122   t1796 = t690 * t691 * t183;
4123   t1797 = t1208 * t1796;
4124   t1799 = t293 * t445;
4125   t1805 = t293 * t464;
4126   t1807 = t475 * t288;
4127   t1809 = t192 * t727;
4128   t1812 = t413 * t55;
4129   t1813 = t1812 * t29;
4130   t1815 = t156 * t167;
4131   t1816 = t452 * t1815;
4132   t1818 = t29 * t437;
4133   t1819 = t452 * t1818;
4134   t1821 = t175 * t404;
4135   t1824 = t1252 * t285 * t413;
4136   t1827 = t457 * t724 * t167;
4137   t1830 = t457 * t285 * t437;
4138   t1832 = t62 * t404;
4139   t1833 = t179 * t1832;
4140   t1835 = -0.125e3 / 0.162e3 * t1813 + 0.1000e4 / 0.243e3 * t1816 - 0.125e3 / 0.162e3 * t1819 - 0.2750e4 / 0.729e3 * t1821 - 0.312500e6 / 0.19683e5 * t1824 + 0.1250000e7 / 0.59049e5 * t1827 - 0.78125e5 / 0.19683e5 * t1830 - 0.1375000e7 / 0.177147e6 * t1833;
4141   t1836 = t73 * t1835;
4142   t1845 = t24 * t404;
4143   t1847 = 0.110e3 / 0.2187e4 * t151 * t1845;
4144   t1851 = t1221 * t25;
4145   t1853 = t55 / t1851;
4146   t1854 = t1853 * t394;
4147   t1856 = 0.500e3 / 0.14348907e8 * t1281 * t1854;
4148   t1860 = t47 * t404;
4149   t1861 = t162 * t1860;
4150   t1862 = t161 * t1861;
4151   t1864 = t426 * t706;
4152   t1866 = t701 * t705;
4153   t1867 = t161 * t1866;
4154   t1869 = t408 * t293;
4155   t1872 = t1307 * t280;
4156   t1874 = t426 * t702;
4157   t1876 = t437 * t44;
4158   t1877 = t1876 * t279;
4159   t1878 = t161 * t1877;
4160   t1880 = t1847 - 0.6e1 * t1268 * t289 * t445 + t1856 + 0.4e1 * t444 * t715 * t183 + 0.550e3 / 0.243e3 * t1862 - 0.100e3 / 0.81e2 * t1864 - 0.100e3 / 0.81e2 * t1867 + 0.10000e5 / 0.729e3 * t1869 * t415 + 0.25e2 / 0.108e3 * t1872 + 0.25e2 / 0.54e2 * t1874 + 0.25e2 / 0.108e3 * t1878;
4161   t1882 = t160 * t739;
4162   t1888 = t288 * t413 * t421;
4163   t1891 = t408 * t419;
4164   t1892 = t29 * t413;
4165   t1893 = t690 * t1892;
4166   t1894 = t1891 * t1893;
4167   t1896 = t690 * t1815;
4168   t1897 = t689 * t1896;
4169   t1900 = t421 * t29 * t445;
4170   t1901 = t1202 * t1900;
4171   t1904 = t421 * t156 * t183;
4172   t1905 = t420 * t1904;
4173   t1907 = t293 * t42;
4174   t1908 = t418 * t1907;
4175   t1913 = t1207 * t289;
4176   t1917 = t418 * t715;
4177   t1920 = t418 * t728;
4178   t1923 = t192 * t43;
4179   t1924 = t408 * t1923;
4180   t1925 = t1924 * t692;
4181   t1927 = t690 * t1818;
4182   t1928 = t689 * t1927;
4183   t1930 = t1218 * t696;
4184   t1932 = t73 * t167;
4185   t1933 = t418 * t1932;
4186   t1934 = t1933 * t696;
4187   t1937 = t421 * t29 * t464;
4188   t1938 = t420 * t1937;
4189   t1943 = t47 * t399 * sigma[0];
4190   t1949 = 0.25e2 / 0.19683e5 * t393 * t1943;
4191   t1950 = 0.500e3 / 0.14348907e8 * t1321 * t1854 - 0.25e2 / 0.19683e5 * t470 * t1943 + 0.110e3 / 0.2187e4 * t188 * t1845 - t1856 + t1949 - t1847;
4192   t1954 = t1289 * t413;
4193   t1955 = t66 * t73;
4194   t1956 = t1955 * t29;
4195   t1957 = t1954 * t1956;
4196   t1959 = 0.100e3 / 0.27e2 * t1917 * t169 + 0.100e3 / 0.27e2 * t1920 * t169 - 0.2500e4 / 0.729e3 * t1925 - 0.1250e4 / 0.729e3 * t1928 - 0.25e2 / 0.54e2 * t1930 - 0.25e2 / 0.54e2 * t1934 - 0.25e2 / 0.108e3 * t1938 + t67 * t1950 - 0.50e2 / 0.27e2 * t730 * t430 + 0.125000e6 / 0.19683e5 * t1957 - t1949;
4197   t1961 = -0.200e3 / 0.27e2 * t1790 * t1792 + 0.2500e4 / 0.729e3 * t1797 + 0.2e1 * t444 * t1799 - 0.2e1 * t174 * t739 * t183 - t174 * t1805 - t174 * t1807 - 0.2e1 * t174 * t1809 - t174 * t1836 + 0.4e1 * t444 * t728 * t183 + 0.2e1 * t444 * t289 * t464 + t1880 - 0.100e3 / 0.27e2 * t1882 * t169 - 0.50e2 / 0.27e2 * t730 * t439 + 0.50e2 / 0.27e2 * t1299 * t1888 - 0.1250e4 / 0.243e3 * t1894 + 0.20000e5 / 0.2187e4 * t1897 + 0.25e2 / 0.54e2 * t1901 + 0.100e3 / 0.81e2 * t1905 + 0.100e3 / 0.27e2 * t1908 * t423 + 0.50e2 / 0.27e2 * t709 * t439 - 0.10000e5 / 0.729e3 * t1913 * t415 + t1959;
4198   t1962 = t275 * t1961;
4199   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4200     v3rho2sigma[0] = -t1775 - 0.4e1 / 0.3e1 * t1776 - t1778 - t274 * t1780 / 0.6e1 - t274 * t1784 - t274 * t1787 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t1962;
4201 
4202   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4203     v3rho2sigma[1] = 0.0e0;
4204 
4205   t1966 = t1773 * t320 / 0.6e1;
4206   t1967 = t670 * t748;
4207   t1970 = t527 * t319 * t484;
4208   t1974 = t746 * t319 * t493;
4209   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4210     v3rho2sigma[2] = -t1966 - 0.4e1 / 0.3e1 * t1967 - t274 * t1970 / 0.6e1 - t274 * t1974 / 0.2e1;
4211 
4212   t1979 = t670 * t752;
4213   t1981 = t4 * t7;
4214   t1982 = t273 * t1981;
4215   t1983 = t359 * t295;
4216   t1984 = t1983 * t507;
4217   t1988 = t673 * t741 * t211;
4218   t1991 = t382 * t2;
4219   t1992 = t1991 * t4;
4220   t1994 = t673 * t295 * t9;
4221   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4222     v3rho2sigma[3] = -t1775 - 0.2e1 / 0.3e1 * t1776 - t1778 / 0.2e1 - 0.2e1 / 0.3e1 * t1979 - t1982 * t1984 / 0.6e1 - t274 * t1988 / 0.2e1 - t1992 * t1994 / 0.2e1;
4223 
4224   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4225     v3rho2sigma[4] = 0.0e0;
4226 
4227   t1998 = t670 * t757;
4228   t2000 = t482 * t319;
4229   t2001 = t2000 * t530;
4230   t2005 = t746 * t319 * t9;
4231   t2008 = t670 * t823;
4232   t2011 = t746 * t822 * t199;
4233   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4234     v3rho2sigma[5] = -t1966 - 0.2e1 / 0.3e1 * t1967 - 0.2e1 / 0.3e1 * t1998 - t1982 * t2001 / 0.6e1 + t1992 * t2005 / 0.2e1 - t2008 / 0.2e1 - t274 * t2011 / 0.2e1;
4235 
4236   t2016 = t504 * t295 * t553;
4237   t2020 = t673 * t295 * t559;
4238   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4239     v3rho2sigma[6] = -t1775 - 0.4e1 / 0.3e1 * t1979 - t274 * t2016 / 0.6e1 - t274 * t2020 / 0.2e1;
4240 
4241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4242     v3rho2sigma[7] = 0.0e0;
4243 
4244   t2025 = t527 * t319 * t564;
4245   t2029 = t746 * t822 * t216;
4246   t2032 = t746 * t319 * t573;
4247   t2035 = t1679 * t313;
4248   t2037 = t234 * t240 * t255;
4249   t2041 = t690 * t772 * t255;
4250   t2042 = t1686 * t2041;
4251   t2044 = t24 * t593;
4252   t2046 = 0.110e3 / 0.2187e4 * t223 * t2044;
4253   t2050 = t1576 * t83;
4254   t2052 = t55 / t2050;
4255   t2053 = t2052 * t583;
4256   t2055 = 0.500e3 / 0.14348907e8 * t1594 * t2053;
4257   t2068 = t47 * t588 * sigma[2];
4258   t2074 = 0.25e2 / 0.19683e5 * t582 * t2068;
4259   t2075 = 0.500e3 / 0.14348907e8 * t1573 * t2053 - 0.25e2 / 0.19683e5 * t656 * t2068 + 0.110e3 / 0.2187e4 * t260 * t2044 - t2055 + t2074 - t2046;
4260   t2080 = t1645 * t600;
4261   t2081 = t117 * t124;
4262   t2082 = t2081 * t87;
4263   t2083 = t2080 * t2082;
4264   t2085 = t623 * t44;
4265   t2086 = t2085 * t303;
4266   t2087 = t233 * t2086;
4267   t2089 = t47 * t593;
4268   t2090 = t234 * t2089;
4269   t2091 = t233 * t2090;
4270   t2094 = t312 * t600 * t421;
4271   t2097 = t612 * t787;
4272   t2099 = t782 * t786;
4273   t2100 = t233 * t2099;
4274   t2102 = t232 * t820;
4275   t2107 = t597 * t317;
4276   t2110 = t1667 * t304;
4277   t2112 = -t2074 + 0.125000e6 / 0.19683e5 * t2083 + 0.25e2 / 0.108e3 * t2087 + 0.550e3 / 0.243e3 * t2091 + 0.50e2 / 0.27e2 * t1658 * t2094 - 0.100e3 / 0.81e2 * t2097 - 0.100e3 / 0.81e2 * t2100 - 0.100e3 / 0.27e2 * t2102 * t241 - 0.50e2 / 0.27e2 * t811 * t625 + 0.10000e5 / 0.729e3 * t2107 * t602 + 0.25e2 / 0.108e3 * t2110;
4278   t2114 = t612 * t783;
4279   t2118 = t661 * t312;
4280   t2120 = t264 * t808;
4281   t2123 = t600 * t55;
4282   t2124 = t2123 * t87;
4283   t2126 = t228 * t239;
4284   t2127 = t638 * t2126;
4285   t2129 = t87 * t623;
4286   t2130 = t638 * t2129;
4287   t2132 = t247 * t593;
4288   t2135 = t1616 * t309 * t600;
4289   t2138 = t643 * t805 * t239;
4290   t2141 = t643 * t309 * t623;
4291   t2143 = t62 * t593;
4292   t2144 = t251 * t2143;
4293   t2146 = -0.125e3 / 0.162e3 * t2124 + 0.1000e4 / 0.243e3 * t2127 - 0.125e3 / 0.162e3 * t2130 - 0.2750e4 / 0.729e3 * t2132 - 0.312500e6 / 0.19683e5 * t2135 + 0.1250000e7 / 0.59049e5 * t2138 - 0.78125e5 / 0.19683e5 * t2141 - 0.1375000e7 / 0.177147e6 * t2144;
4294   t2147 = t124 * t2146;
4295   t2155 = t317 * t100;
4296   t2156 = t605 * t2155;
4297   t2159 = t597 * t606;
4298   t2160 = t87 * t600;
4299   t2161 = t690 * t2160;
4300   t2162 = t2159 * t2161;
4301   t2164 = t690 * t2126;
4302   t2165 = t771 * t2164;
4303   t2169 = t421 * t87 * t631;
4304   t2170 = t1680 * t2169;
4305   t2173 = t421 * t228 * t255;
4306   t2174 = t607 * t2173;
4307   t2176 = t605 * t796;
4308   t2179 = t605 * t809;
4309   t2184 = t1685 * t313;
4310   t2187 = t1695 * t777;
4311   t2189 = t124 * t239;
4312   t2190 = t605 * t2189;
4313   t2191 = t2190 * t777;
4314   t2194 = t421 * t87 * t650;
4315   t2195 = t607 * t2194;
4316   t2197 = t264 * t101;
4317   t2198 = t597 * t2197;
4318   t2199 = t2198 * t773;
4319   t2201 = t690 * t2129;
4320   t2202 = t771 * t2201;
4321   t2204 = 0.25e2 / 0.54e2 * t2170 + 0.100e3 / 0.81e2 * t2174 + 0.100e3 / 0.27e2 * t2176 * t241 + 0.100e3 / 0.27e2 * t2179 * t241 + 0.50e2 / 0.27e2 * t790 * t625 - 0.10000e5 / 0.729e3 * t2184 * t602 - 0.25e2 / 0.54e2 * t2187 - 0.25e2 / 0.54e2 * t2191 - 0.25e2 / 0.108e3 * t2195 - 0.2500e4 / 0.729e3 * t2199 - 0.1250e4 / 0.729e3 * t2202;
4322   t2206 = -0.200e3 / 0.27e2 * t2035 * t2037 + 0.2500e4 / 0.729e3 * t2042 + t2046 - 0.6e1 * t1631 * t313 * t631 + t2055 + 0.4e1 * t630 * t796 * t255 + 0.4e1 * t630 * t809 * t255 + 0.2e1 * t630 * t313 * t650 + t118 * t2075 - 0.50e2 / 0.27e2 * t811 * t616 + t2112 + 0.25e2 / 0.54e2 * t2114 - t246 * t317 * t650 - t246 * t2118 - 0.2e1 * t246 * t2120 - t246 * t2147 - 0.2e1 * t246 * t820 * t255 + 0.2e1 * t630 * t317 * t631 + 0.100e3 / 0.27e2 * t2156 * t609 - 0.1250e4 / 0.243e3 * t2162 + 0.20000e5 / 0.2187e4 * t2165 + t2204;
4323   t2207 = t299 * t2206;
4324   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4325     v3rho2sigma[8] = -t1966 - 0.4e1 / 0.3e1 * t1998 - t2008 - t274 * t2025 / 0.6e1 - t274 * t2029 - t274 * t2032 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2207;
4326 
4327   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4328     v3rho2lapl[0] = 0.0e0;
4329 
4330   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4331     v3rho2lapl[1] = 0.0e0;
4332 
4333   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4334     v3rho2lapl[2] = 0.0e0;
4335 
4336   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4337     v3rho2lapl[3] = 0.0e0;
4338 
4339   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4340     v3rho2lapl[4] = 0.0e0;
4341 
4342   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4343     v3rho2lapl[5] = 0.0e0;
4344 
4345   t2211 = t1773 * t336 / 0.6e1;
4346   t2212 = t670 * t829;
4347   t2214 = t670 * t865;
4348   t2216 = t504 * t335 * t361;
4349   t2220 = t673 * t864 * t137;
4350   t2223 = t673 * t335 * t376;
4351   t2228 = t1201 * t333;
4352   t2232 = t690 * t832 * t183;
4353   t2247 = t1955 * t39;
4354   t2254 = t1876 * t323;
4355   t2258 = t332 * t413 * t421;
4356   t2261 = t192 * t861;
4357   t2267 = t39 * t437;
4358   t2279 = 0.500e3 / 0.81e2 * t1812 * t39 - 0.5000e4 / 0.243e3 * t717 + 0.500e3 / 0.81e2 * t452 * t2267 + 0.10000e5 / 0.729e3 * t719 + 0.2500000e7 / 0.19683e5 * t1252 * t329 * t413 - 0.6250000e7 / 0.59049e5 * t722 + 0.625000e6 / 0.19683e5 * t457 * t329 * t437 + 0.5000000e7 / 0.177147e6 * t725;
4359   t2280 = t73 * t2279;
4360   t2282 = -0.100000e6 / 0.2187e4 * t693 - 0.500e3 / 0.81e2 * t697 - 0.200e3 / 0.27e2 * t2228 * t1792 - 0.20000e5 / 0.729e3 * t1208 * t2232 - 0.6e1 * t1268 * t333 * t445 + 0.4e1 * t444 * t862 * t183 + 0.2e1 * t444 * t333 * t464 + 0.4e1 * t444 * t852 * t183 - 0.1000000e7 / 0.19683e5 * t1954 * t2247 - 0.50e2 / 0.27e2 * t1307 * t324 - 0.100e3 / 0.27e2 * t426 * t842 - 0.50e2 / 0.27e2 * t161 * t2254 + 0.50e2 / 0.27e2 * t1299 * t2258 - 0.2e1 * t174 * t2261 - t174 * t2280;
4361   t2283 = t475 * t332;
4362   t2290 = t690 * t2267;
4363   t2297 = t39 * t464;
4364   t2298 = t421 * t2297;
4365   t2301 = t418 * t852;
4366   t2304 = t418 * t862;
4367   t2309 = t1207 * t333;
4368   t2313 = t690 * t39 * t413;
4369   t2317 = t421 * t39 * t445;
4370   t2320 = -t174 * t2283 + 0.20000e5 / 0.729e3 * t1924 * t833 + 0.500e3 / 0.81e2 * t699 + 0.500e3 / 0.81e2 * t703 - 0.2000e4 / 0.243e3 * t707 + 0.10000e5 / 0.729e3 * t689 * t2290 + 0.100e3 / 0.27e2 * t1218 * t837 + 0.100e3 / 0.27e2 * t1933 * t837 + 0.50e2 / 0.27e2 * t420 * t2298 + 0.100e3 / 0.27e2 * t2301 * t169 + 0.100e3 / 0.27e2 * t2304 * t169 + 0.50e2 / 0.27e2 * t846 * t439 - 0.10000e5 / 0.729e3 * t2309 * t415 + 0.10000e5 / 0.243e3 * t1891 * t2313 - 0.100e3 / 0.27e2 * t1202 * t2317;
4371   t2321 = t2282 + t2320;
4372   t2322 = t275 * t2321;
4373   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4374     v3rho2tau[0] = -t2211 - 0.4e1 / 0.3e1 * t2212 - t2214 - t274 * t2216 / 0.6e1 - t274 * t2220 - t274 * t2223 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2322;
4375 
4376   t2326 = t1773 * t352 / 0.6e1;
4377   t2327 = t670 * t870;
4378   t2330 = t527 * t351 * t484;
4379   t2334 = t746 * t351 * t493;
4380   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4381     v3rho2tau[1] = -t2326 - 0.4e1 / 0.3e1 * t2327 - t274 * t2330 / 0.6e1 - t274 * t2334 / 0.2e1;
4382 
4383   t2339 = t670 * t874;
4384   t2341 = t359 * t335;
4385   t2342 = t2341 * t507;
4386   t2346 = t673 * t864 * t211;
4387   t2350 = t673 * t335 * t9;
4388   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4389     v3rho2tau[2] = -t2211 - 0.2e1 / 0.3e1 * t2212 - t2214 / 0.2e1 - 0.2e1 / 0.3e1 * t2339 - t1982 * t2342 / 0.6e1 - t274 * t2346 / 0.2e1 - t1992 * t2350 / 0.2e1;
4390 
4391   t2354 = t670 * t879;
4392   t2356 = t482 * t351;
4393   t2357 = t2356 * t530;
4394   t2361 = t746 * t351 * t9;
4395   t2364 = t670 * t915;
4396   t2367 = t746 * t914 * t199;
4397   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4398     v3rho2tau[3] = -t2326 - 0.2e1 / 0.3e1 * t2327 - 0.2e1 / 0.3e1 * t2354 - t1982 * t2357 / 0.6e1 + t1992 * t2361 / 0.2e1 - t2364 / 0.2e1 - t274 * t2367 / 0.2e1;
4399 
4400   t2372 = t504 * t335 * t553;
4401   t2376 = t673 * t335 * t559;
4402   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4403     v3rho2tau[4] = -t2211 - 0.4e1 / 0.3e1 * t2339 - t274 * t2372 / 0.6e1 - t274 * t2376 / 0.2e1;
4404 
4405   t2381 = t527 * t351 * t564;
4406   t2385 = t746 * t914 * t216;
4407   t2388 = t746 * t351 * t573;
4408   t2394 = t690 * t882 * t255;
4409   t2397 = t1679 * t349;
4410   t2400 = t661 * t348;
4411   t2402 = t264 * t911;
4412   t2408 = t97 * t623;
4413   t2420 = 0.500e3 / 0.81e2 * t2123 * t97 - 0.5000e4 / 0.243e3 * t798 + 0.500e3 / 0.81e2 * t638 * t2408 + 0.10000e5 / 0.729e3 * t800 + 0.2500000e7 / 0.19683e5 * t1616 * t345 * t600 - 0.6250000e7 / 0.59049e5 * t803 + 0.625000e6 / 0.19683e5 * t643 * t345 * t623 + 0.5000000e7 / 0.177147e6 * t806;
4414   t2421 = t124 * t2420;
4415   t2423 = t2081 * t97;
4416   t2430 = t2085 * t339;
4417   t2434 = t348 * t600 * t421;
4418   t2440 = -0.100000e6 / 0.2187e4 * t774 - 0.500e3 / 0.81e2 * t778 - 0.20000e5 / 0.729e3 * t1686 * t2394 - 0.200e3 / 0.27e2 * t2397 * t2037 - t246 * t2400 - 0.2e1 * t246 * t2402 - t246 * t2421 - 0.1000000e7 / 0.19683e5 * t2080 * t2423 - 0.50e2 / 0.27e2 * t1667 * t340 - 0.100e3 / 0.27e2 * t612 * t892 - 0.50e2 / 0.27e2 * t233 * t2430 + 0.50e2 / 0.27e2 * t1658 * t2434 + 0.500e3 / 0.81e2 * t780 + 0.500e3 / 0.81e2 * t784 - 0.2000e4 / 0.243e3 * t788;
4419   t2441 = t605 * t902;
4420   t2444 = t605 * t912;
4421   t2449 = t1685 * t349;
4422   t2454 = t690 * t2408;
4423   t2461 = t97 * t650;
4424   t2462 = t421 * t2461;
4425   t2466 = t690 * t97 * t600;
4426   t2470 = t421 * t97 * t631;
4427   t2485 = 0.100e3 / 0.27e2 * t2441 * t241 + 0.100e3 / 0.27e2 * t2444 * t241 + 0.50e2 / 0.27e2 * t896 * t625 - 0.10000e5 / 0.729e3 * t2449 * t602 + 0.20000e5 / 0.729e3 * t2198 * t883 + 0.10000e5 / 0.729e3 * t771 * t2454 + 0.100e3 / 0.27e2 * t1695 * t887 + 0.100e3 / 0.27e2 * t2190 * t887 + 0.50e2 / 0.27e2 * t607 * t2462 + 0.10000e5 / 0.243e3 * t2159 * t2466 - 0.100e3 / 0.27e2 * t1680 * t2470 + 0.4e1 * t630 * t902 * t255 + 0.4e1 * t630 * t912 * t255 + 0.2e1 * t630 * t349 * t650 - 0.6e1 * t1631 * t349 * t631;
4428   t2486 = t2440 + t2485;
4429   t2487 = t299 * t2486;
4430   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4431     v3rho2tau[5] = -t2326 - 0.4e1 / 0.3e1 * t2354 - t2364 - t274 * t2381 / 0.6e1 - t274 * t2385 - t274 * t2388 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2487;
4432 
4433   t2490 = t670 * t956;
4434   t2493 = t673 * t955 * t137;
4435   t2497 = t421 * t928 * t183;
4436   t2498 = t1202 * t2497;
4437   t2501 = t690 * t928 * t167;
4438   t2502 = t1208 * t2501;
4439   t2504 = t1221 * rho[0];
4440   t2505 = 0.1e1 / t2504;
4441   t2506 = t55 * t2505;
4442   t2507 = t2506 * sigma[0];
4443   t2510 = t421 * t680;
4444   t2514 = 0.125e3 / 0.9565938e7 * t1281 * t2507;
4445   t2516 = 0.50e2 / 0.177147e6 * t392 * t2510;
4446   t2517 = -0.125e3 / 0.9565938e7 * t1321 * t2507 + 0.50e2 / 0.177147e6 * t469 * t2510 + t2514 - t2516;
4447   t2519 = t953 * t183;
4448   t2521 = t192 * t936;
4449   t2524 = t739 * t288;
4450   t2527 = t293 * t727;
4451   t2530 = t192 * t948;
4452   t2532 = t167 * t55;
4453   t2533 = t2532 * t920;
4454   t2535 = t452 * t680;
4455   t2538 = t1252 * t945 * t167;
4456   t2540 = t62 * t680;
4457   t2541 = t457 * t2540;
4458   t2543 = 0.125e3 / 0.1296e4 * t2533 - 0.125e3 / 0.243e3 * t2535 + 0.78125e5 / 0.39366e5 * t2538 - 0.156250e6 / 0.59049e5 * t2541;
4459   t2544 = t73 * t2543;
4460   t2546 = t730 * t706;
4461   t2548 = t1304 * t925;
4462   t2550 = t1882 * t280;
4463   t2552 = t730 * t702;
4464   t2554 = t920 * t44;
4465   t2555 = t2554 * t1300;
4466   t2556 = t1299 * t2555;
4467   t2558 = t160 * t953;
4468   t2561 = t161 * t2510;
4469   t2563 = t1289 * t167;
4470   t2564 = t1955 * t920;
4471   t2565 = t2563 * t2564;
4472   t2567 = t426 * t921;
4473   t2569 = 0.25e2 / 0.27e2 * t2498 + 0.2500e4 / 0.729e3 * t2502 + t67 * t2517 - t174 * t2519 + 0.2e1 * t444 * t2521 - 0.2e1 * t174 * t2524 - 0.2e1 * t174 * t2527 - t174 * t2530 - t174 * t2544 - 0.100e3 / 0.81e2 * t2546 + 0.625e3 / 0.2916e4 * t2548 + 0.25e2 / 0.54e2 * t2550 + 0.25e2 / 0.54e2 * t2552 + 0.25e2 / 0.864e3 * t2556 - 0.50e2 / 0.27e2 * t2558 * t169 + 0.25e2 / 0.162e3 * t2561 - 0.15625e5 / 0.19683e5 * t2565 - 0.25e2 / 0.864e3 * t2567;
4474   t2571 = t410 * t412 * t680;
4475   t2572 = t409 * t2571;
4476   t2580 = t1218 * t929;
4477   t2582 = t1933 * t929;
4478   t2584 = t29 * t727;
4479   t2585 = t421 * t2584;
4480   t2586 = t420 * t2585;
4481   t2588 = t1908 * t696;
4482   t2590 = t293 * t43;
4483   t2591 = t408 * t2590;
4484   t2592 = t2591 * t692;
4485   t2594 = t1201 * t937;
4486   t2597 = t418 * t940;
4487   t2600 = t418 * t949;
4488   t2603 = t920 * t183;
4489   t2604 = t690 * t2603;
4490   t2605 = t1208 * t2604;
4491   t2608 = t690 * t920 * t167;
4492   t2609 = t1891 * t2608;
4493   t2611 = t156 * t288;
4494   t2612 = t421 * t2611;
4495   t2613 = t420 * t2612;
4496   t2621 = -0.2500e4 / 0.2187e4 * t2572 + t2516 + 0.4e1 * t444 * t289 * t727 + 0.4e1 * t444 * t940 * t183 - 0.25e2 / 0.54e2 * t2580 - 0.25e2 / 0.54e2 * t2582 - 0.25e2 / 0.54e2 * t2586 - 0.25e2 / 0.54e2 * t2588 - 0.2500e4 / 0.729e3 * t2592 - 0.100e3 / 0.27e2 * t2594 * t169 + 0.100e3 / 0.27e2 * t2597 * t169 + 0.50e2 / 0.27e2 * t2600 * t169 - 0.625e3 / 0.2916e4 * t2605 + 0.625e3 / 0.972e3 * t2609 + 0.100e3 / 0.81e2 * t2613 + 0.2e1 * t444 * t949 * t183 - t2514 - 0.6e1 * t1268 * t937 * t183;
4497   t2622 = t2569 + t2621;
4498   t2623 = t275 * t2622;
4499   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4500     v3rhosigma2[0] = -t2490 / 0.2e1 - t274 * t2493 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2623;
4501 
4502   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4503     v3rhosigma2[1] = 0.0e0;
4504 
4505   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4506     v3rhosigma2[2] = 0.0e0;
4507 
4508   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4509     v3rhosigma2[3] = 0.0e0;
4510 
4511   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4512     v3rhosigma2[4] = 0.0e0;
4513 
4514   t2626 = t670 * t997;
4515   t2628 = t746 * t996 * t199;
4516   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4517     v3rhosigma2[5] = -t274 * t2628 / 0.2e1 - t2626 / 0.2e1;
4518 
4519   t2632 = t673 * t955 * t211;
4520   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4521     v3rhosigma2[6] = -t274 * t2632 / 0.2e1 - t2490 / 0.2e1;
4522 
4523   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4524     v3rhosigma2[7] = 0.0e0;
4525 
4526   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4527     v3rhosigma2[8] = 0.0e0;
4528 
4529   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4530     v3rhosigma2[9] = 0.0e0;
4531 
4532   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4533     v3rhosigma2[10] = 0.0e0;
4534 
4535   t2637 = t746 * t996 * t216;
4536   t2640 = t994 * t255;
4537   t2642 = t264 * t977;
4538   t2645 = t820 * t312;
4539   t2648 = t317 * t808;
4540   t2651 = t264 * t989;
4541   t2653 = t239 * t55;
4542   t2654 = t2653 * t961;
4543   t2656 = t638 * t762;
4544   t2659 = t1616 * t986 * t239;
4545   t2661 = t62 * t762;
4546   t2662 = t643 * t2661;
4547   t2664 = 0.125e3 / 0.1296e4 * t2654 - 0.125e3 / 0.243e3 * t2656 + 0.78125e5 / 0.39366e5 * t2659 - 0.156250e6 / 0.59049e5 * t2662;
4548   t2665 = t124 * t2664;
4549   t2668 = t421 * t969 * t255;
4550   t2669 = t1680 * t2668;
4551   t2672 = t690 * t969 * t239;
4552   t2673 = t1686 * t2672;
4553   t2675 = t1576 * rho[1];
4554   t2676 = 0.1e1 / t2675;
4555   t2677 = t55 * t2676;
4556   t2678 = t2677 * sigma[2];
4557   t2681 = t421 * t762;
4558   t2685 = 0.125e3 / 0.9565938e7 * t1594 * t2678;
4559   t2687 = 0.50e2 / 0.177147e6 * t581 * t2681;
4560   t2688 = -0.125e3 / 0.9565938e7 * t1573 * t2678 + 0.50e2 / 0.177147e6 * t655 * t2681 + t2685 - t2687;
4561   t2690 = t811 * t787;
4562   t2693 = t599 * t412 * t762;
4563   t2694 = t598 * t2693;
4564   t2696 = t1663 * t966;
4565   t2698 = t2102 * t304;
4566   t2700 = t811 * t783;
4567   t2702 = t961 * t44;
4568   t2703 = t2702 * t1659;
4569   t2704 = t1658 * t2703;
4570   t2706 = t232 * t994;
4571   t2709 = t233 * t2681;
4572   t2711 = t1645 * t239;
4573   t2712 = t2081 * t961;
4574   t2713 = t2711 * t2712;
4575   t2715 = -t246 * t2640 + 0.2e1 * t630 * t2642 - 0.2e1 * t246 * t2645 - 0.2e1 * t246 * t2648 - t246 * t2651 - t246 * t2665 + 0.25e2 / 0.27e2 * t2669 + 0.2500e4 / 0.729e3 * t2673 + t118 * t2688 - 0.100e3 / 0.81e2 * t2690 - 0.2500e4 / 0.2187e4 * t2694 + 0.625e3 / 0.2916e4 * t2696 + 0.25e2 / 0.54e2 * t2698 + 0.25e2 / 0.54e2 * t2700 + 0.25e2 / 0.864e3 * t2704 - 0.50e2 / 0.27e2 * t2706 * t241 + 0.25e2 / 0.162e3 * t2709 - 0.15625e5 / 0.19683e5 * t2713;
4576   t2716 = t612 * t962;
4577   t2730 = t1695 * t970;
4578   t2732 = t2190 * t970;
4579   t2734 = t87 * t808;
4580   t2735 = t421 * t2734;
4581   t2736 = t607 * t2735;
4582   t2738 = t2156 * t777;
4583   t2740 = t317 * t101;
4584   t2741 = t597 * t2740;
4585   t2742 = t2741 * t773;
4586   t2744 = t1679 * t978;
4587   t2747 = t605 * t981;
4588   t2750 = t605 * t990;
4589   t2753 = t961 * t255;
4590   t2754 = t690 * t2753;
4591   t2755 = t1686 * t2754;
4592   t2758 = t690 * t961 * t239;
4593   t2759 = t2159 * t2758;
4594   t2761 = t228 * t312;
4595   t2762 = t421 * t2761;
4596   t2763 = t607 * t2762;
4597   t2765 = -0.25e2 / 0.864e3 * t2716 - 0.6e1 * t1631 * t978 * t255 + 0.4e1 * t630 * t313 * t808 + 0.4e1 * t630 * t981 * t255 + 0.2e1 * t630 * t990 * t255 - t2685 + t2687 - 0.25e2 / 0.54e2 * t2730 - 0.25e2 / 0.54e2 * t2732 - 0.25e2 / 0.54e2 * t2736 - 0.25e2 / 0.54e2 * t2738 - 0.2500e4 / 0.729e3 * t2742 - 0.100e3 / 0.27e2 * t2744 * t241 + 0.100e3 / 0.27e2 * t2747 * t241 + 0.50e2 / 0.27e2 * t2750 * t241 - 0.625e3 / 0.2916e4 * t2755 + 0.625e3 / 0.972e3 * t2759 + 0.100e3 / 0.81e2 * t2763;
4598   t2766 = t2715 + t2765;
4599   t2767 = t299 * t2766;
4600   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4601     v3rhosigma2[11] = -t2626 / 0.2e1 - t274 * t2637 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2767;
4602 
4603   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4604     v3rhosigmalapl[0] = 0.0e0;
4605 
4606   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4607     v3rhosigmalapl[1] = 0.0e0;
4608 
4609   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4610     v3rhosigmalapl[2] = 0.0e0;
4611 
4612   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4613     v3rhosigmalapl[3] = 0.0e0;
4614 
4615   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4616     v3rhosigmalapl[4] = 0.0e0;
4617 
4618   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4619     v3rhosigmalapl[5] = 0.0e0;
4620 
4621   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4622     v3rhosigmalapl[6] = 0.0e0;
4623 
4624   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4625     v3rhosigmalapl[7] = 0.0e0;
4626 
4627   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4628     v3rhosigmalapl[8] = 0.0e0;
4629 
4630   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4631     v3rhosigmalapl[9] = 0.0e0;
4632 
4633   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4634     v3rhosigmalapl[10] = 0.0e0;
4635 
4636   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4637     v3rhosigmalapl[11] = 0.0e0;
4638 
4639   t2770 = t670 * t1032;
4640   t2773 = t673 * t1031 * t137;
4641   t2778 = t421 * t1006 * t183;
4642   t2782 = t690 * t1006 * t167;
4643   t2785 = t279 * t183;
4644   t2786 = t162 * t2785;
4645   t2787 = t2228 * t2786;
4646   t2789 = t412 * t29;
4647   t2791 = t410 * t2789 * t167;
4648   t2792 = t2309 * t2791;
4649   t2794 = t288 * t42;
4650   t2795 = t421 * t167;
4651   t2796 = t2794 * t2795;
4652   t2799 = t739 * t332;
4653   t2801 = t293 * t861;
4654   t2803 = t192 * t1028;
4655   t2805 = t2532 * t1001;
4656   t2809 = t1252 * t1025 * t167;
4657   t2812 = -0.125e3 / 0.162e3 * t2805 + 0.1625e4 / 0.486e3 * t943 - 0.312500e6 / 0.19683e5 * t2809 + 0.1015625e7 / 0.59049e5 * t946;
4658   t2813 = t73 * t2812;
4659   t2816 = t1304 * t1003;
4660   t2822 = t1012 * t1300;
4661   t2823 = t1299 * t2822;
4662   t2825 = t1955 * t1001;
4663   t2826 = t2563 * t2825;
4664   t2828 = t426 * t1013;
4665   t2830 = t1268 * t73;
4666   t2831 = t332 * t288;
4667   t2832 = t2831 * t183;
4668   t2838 = -0.250e3 / 0.81e2 * t930 - 0.100e3 / 0.27e2 * t1202 * t2778 - 0.10000e5 / 0.729e3 * t1208 * t2782 + 0.25e2 / 0.54e2 * t2787 + 0.1250e4 / 0.729e3 * t2792 - 0.100e3 / 0.27e2 * t2228 * t2796 - t174 * t2799 - t174 * t2801 - t174 * t2803 - t174 * t2813 - 0.325e3 / 0.324e3 * t934 - 0.1250e4 / 0.729e3 * t2816 - 0.50e2 / 0.27e2 * t1882 * t324 - 0.50e2 / 0.27e2 * t730 * t842 - 0.25e2 / 0.108e3 * t2823 + 0.125000e6 / 0.19683e5 * t2826 + 0.25e2 / 0.108e3 * t2828 - 0.6e1 * t2830 * t2832 + 0.2e1 * t444 * t333 * t727;
4669   t2855 = t2301 * t280;
4670   t2857 = t2304 * t280;
4671   t2859 = t846 * t702;
4672   t2861 = t418 * t1021;
4673   t2864 = t418 * t1029;
4674   t2867 = t1001 * t183;
4675   t2868 = t690 * t2867;
4676   t2869 = t1208 * t2868;
4677   t2872 = t690 * t1001 * t167;
4678   t2873 = t1891 * t2872;
4679   t2879 = t39 * t727;
4680   t2880 = t421 * t2879;
4681   t2885 = t846 * t706;
4682   t2887 = 0.2e1 * t444 * t1021 * t183 + 0.2e1 * t444 * t1029 * t183 + 0.2e1 * t444 * t852 * t288 + 0.2e1 * t444 * t862 * t288 + 0.16250e5 / 0.2187e4 * t926 + 0.250e3 / 0.81e2 * t932 + 0.10000e5 / 0.729e3 * t2591 * t833 - 0.25e2 / 0.108e3 * t2855 - 0.25e2 / 0.108e3 * t2857 - 0.25e2 / 0.108e3 * t2859 + 0.50e2 / 0.27e2 * t2861 * t169 + 0.50e2 / 0.27e2 * t2864 * t169 + 0.1250e4 / 0.729e3 * t2869 - 0.1250e4 / 0.243e3 * t2873 + 0.50e2 / 0.27e2 * t1218 * t1007 + 0.50e2 / 0.27e2 * t1933 * t1007 + 0.50e2 / 0.27e2 * t420 * t2880 + 0.50e2 / 0.27e2 * t1908 * t837 + 0.50e2 / 0.81e2 * t2885;
4683   t2888 = t2838 + t2887;
4684   t2889 = t275 * t2888;
4685   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4686     v3rhosigmatau[0] = -t2770 / 0.2e1 - t274 * t2773 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t2889;
4687 
4688   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4689     v3rhosigmatau[1] = 0.0e0;
4690 
4691   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4692     v3rhosigmatau[2] = 0.0e0;
4693 
4694   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4695     v3rhosigmatau[3] = 0.0e0;
4696 
4697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4698     v3rhosigmatau[4] = 0.0e0;
4699 
4700   t2892 = t670 * t1067;
4701   t2894 = t746 * t1066 * t199;
4702   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4703     v3rhosigmatau[5] = -t274 * t2894 / 0.2e1 - t2892 / 0.2e1;
4704 
4705   t2898 = t673 * t1031 * t211;
4706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4707     v3rhosigmatau[6] = -t274 * t2898 / 0.2e1 - t2770 / 0.2e1;
4708 
4709   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4710     v3rhosigmatau[7] = 0.0e0;
4711 
4712   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4713     v3rhosigmatau[8] = 0.0e0;
4714 
4715   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4716     v3rhosigmatau[9] = 0.0e0;
4717 
4718   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4719     v3rhosigmatau[10] = 0.0e0;
4720 
4721   t2903 = t746 * t1066 * t216;
4722   t2907 = t412 * t87;
4723   t2909 = t599 * t2907 * t239;
4724   t2910 = t2449 * t2909;
4725   t2912 = t312 * t100;
4726   t2913 = t421 * t239;
4727   t2914 = t2912 * t2913;
4728   t2918 = t421 * t1041 * t255;
4729   t2922 = t690 * t1041 * t239;
4730   t2925 = t303 * t255;
4731   t2926 = t234 * t2925;
4732   t2927 = t2397 * t2926;
4733   t2929 = t820 * t348;
4734   t2931 = t317 * t911;
4735   t2933 = t264 * t1063;
4736   t2935 = t2653 * t1036;
4737   t2939 = t1616 * t1060 * t239;
4738   t2942 = -0.125e3 / 0.162e3 * t2935 + 0.1625e4 / 0.486e3 * t984 - 0.312500e6 / 0.19683e5 * t2939 + 0.1015625e7 / 0.59049e5 * t987;
4739   t2943 = t124 * t2942;
4740   t2946 = t2081 * t1036;
4741   t2947 = t2711 * t2946;
4742   t2949 = t612 * t1048;
4743   t2951 = t1631 * t124;
4744   t2952 = t348 * t312;
4745   t2953 = t2952 * t255;
4746   t2956 = t1663 * t1038;
4747   t2962 = t1047 * t1659;
4748   t2963 = t1658 * t2962;
4749   t2968 = -0.250e3 / 0.81e2 * t971 + 0.1250e4 / 0.729e3 * t2910 - 0.100e3 / 0.27e2 * t2397 * t2914 - 0.100e3 / 0.27e2 * t1680 * t2918 - 0.10000e5 / 0.729e3 * t1686 * t2922 + 0.25e2 / 0.54e2 * t2927 - t246 * t2929 - t246 * t2931 - t246 * t2933 - t246 * t2943 - 0.325e3 / 0.324e3 * t975 + 0.125000e6 / 0.19683e5 * t2947 + 0.25e2 / 0.108e3 * t2949 - 0.6e1 * t2951 * t2953 - 0.1250e4 / 0.729e3 * t2956 - 0.50e2 / 0.27e2 * t2102 * t340 - 0.50e2 / 0.27e2 * t811 * t892 - 0.25e2 / 0.108e3 * t2963 + 0.2e1 * t630 * t902 * t312;
4750   t2983 = t896 * t787;
4751   t2985 = t2441 * t304;
4752   t2987 = t2444 * t304;
4753   t2989 = t896 * t783;
4754   t2991 = t605 * t1056;
4755   t2994 = t605 * t1064;
4756   t2997 = t1036 * t255;
4757   t2998 = t690 * t2997;
4758   t2999 = t1686 * t2998;
4759   t3002 = t690 * t1036 * t239;
4760   t3003 = t2159 * t3002;
4761   t3009 = t97 * t808;
4762   t3010 = t421 * t3009;
4763   t3017 = 0.2e1 * t630 * t912 * t312 + 0.2e1 * t630 * t349 * t808 + 0.2e1 * t630 * t1056 * t255 + 0.2e1 * t630 * t1064 * t255 + 0.16250e5 / 0.2187e4 * t967 + 0.250e3 / 0.81e2 * t973 + 0.50e2 / 0.81e2 * t2983 - 0.25e2 / 0.108e3 * t2985 - 0.25e2 / 0.108e3 * t2987 - 0.25e2 / 0.108e3 * t2989 + 0.50e2 / 0.27e2 * t2991 * t241 + 0.50e2 / 0.27e2 * t2994 * t241 + 0.1250e4 / 0.729e3 * t2999 - 0.1250e4 / 0.243e3 * t3003 + 0.50e2 / 0.27e2 * t1695 * t1042 + 0.50e2 / 0.27e2 * t2190 * t1042 + 0.50e2 / 0.27e2 * t607 * t3010 + 0.50e2 / 0.27e2 * t2156 * t887 + 0.10000e5 / 0.729e3 * t2741 * t883;
4764   t3018 = t2968 + t3017;
4765   t3019 = t299 * t3018;
4766   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4767     v3rhosigmatau[11] = -t2892 / 0.2e1 - t274 * t2903 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t3019;
4768 
4769   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4770     v3rholapl2[0] = 0.0e0;
4771 
4772   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4773     v3rholapl2[1] = 0.0e0;
4774 
4775   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4776     v3rholapl2[2] = 0.0e0;
4777 
4778   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4779     v3rholapl2[3] = 0.0e0;
4780 
4781   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4782     v3rholapl2[4] = 0.0e0;
4783 
4784   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4785     v3rholapl2[5] = 0.0e0;
4786 
4787   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4788     v3rholapltau[0] = 0.0e0;
4789 
4790   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4791     v3rholapltau[1] = 0.0e0;
4792 
4793   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4794     v3rholapltau[2] = 0.0e0;
4795 
4796   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4797     v3rholapltau[3] = 0.0e0;
4798 
4799   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4800     v3rholapltau[4] = 0.0e0;
4801 
4802   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4803     v3rholapltau[5] = 0.0e0;
4804 
4805   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4806     v3rholapltau[6] = 0.0e0;
4807 
4808   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4809     v3rholapltau[7] = 0.0e0;
4810 
4811   t3022 = t670 * t1097;
4812   t3025 = t673 * t1096 * t137;
4813   t3028 = t1955 * t1071;
4814   t3031 = t1071 * t183;
4815   t3032 = t690 * t3031;
4816   t3038 = t690 * t1071 * t167;
4817   t3043 = t690 * t1076 * t167;
4818   t3047 = t421 * t1076 * t183;
4819   t3055 = t39 * t861;
4820   t3056 = t421 * t3055;
4821   t3059 = -0.1000000e7 / 0.19683e5 * t2563 * t3028 - 0.10000e5 / 0.729e3 * t1208 * t3032 + 0.10000e5 / 0.729e3 * t1304 * t1073 + 0.10000e5 / 0.243e3 * t1891 * t3038 - 0.100000e6 / 0.2187e4 * t1004 - 0.20000e5 / 0.729e3 * t1208 * t3043 - 0.200e3 / 0.27e2 * t1202 * t3047 + 0.100e3 / 0.27e2 * t1218 * t1077 + 0.100e3 / 0.27e2 * t1933 * t1077 - 0.500e3 / 0.81e2 * t1016 + 0.100e3 / 0.27e2 * t420 * t3056;
4822   t3060 = t1080 * t1300;
4823   t3066 = t1201 * t1085;
4824   t3072 = t192 * t1084;
4825   t3078 = t418 * t1094;
4826   t3084 = t192 * t1093;
4827   t3093 = 0.500e3 / 0.81e2 * t2532 * t1071 - 0.5000e4 / 0.243e3 * t1023 + 0.2500000e7 / 0.19683e5 * t1252 * t1090 * t167 - 0.6250000e7 / 0.59049e5 * t1026;
4828   t3094 = t73 * t3093;
4829   t3096 = 0.50e2 / 0.27e2 * t1299 * t3060 - 0.50e2 / 0.27e2 * t426 * t1081 + 0.500e3 / 0.81e2 * t1014 - 0.100e3 / 0.27e2 * t3066 * t169 - 0.6e1 * t1268 * t1085 * t183 + 0.2e1 * t444 * t3072 + 0.4e1 * t444 * t333 * t861 + 0.50e2 / 0.27e2 * t3078 * t169 + 0.2e1 * t444 * t1094 * t183 - t174 * t3084 - t174 * t3094;
4830   t3097 = t3059 + t3096;
4831   t3098 = t275 * t3097;
4832   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4833     v3rhotau2[0] = -t3022 / 0.2e1 - t274 * t3025 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t3098;
4834 
4835   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4836     v3rhotau2[1] = 0.0e0;
4837 
4838   t3101 = t670 * t1127;
4839   t3103 = t746 * t1126 * t199;
4840   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4841     v3rhotau2[2] = -t274 * t3103 / 0.2e1 - t3101 / 0.2e1;
4842 
4843   t3107 = t673 * t1096 * t211;
4844   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4845     v3rhotau2[3] = -t274 * t3107 / 0.2e1 - t3022 / 0.2e1;
4846 
4847   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4848     v3rhotau2[4] = 0.0e0;
4849 
4850   t3112 = t746 * t1126 * t216;
4851   t3115 = t2081 * t1101;
4852   t3118 = t1101 * t255;
4853   t3119 = t690 * t3118;
4854   t3125 = t690 * t1101 * t239;
4855   t3130 = t690 * t1106 * t239;
4856   t3134 = t421 * t1106 * t255;
4857   t3142 = t97 * t911;
4858   t3143 = t421 * t3142;
4859   t3146 = -0.1000000e7 / 0.19683e5 * t2711 * t3115 - 0.10000e5 / 0.729e3 * t1686 * t3119 + 0.10000e5 / 0.729e3 * t1663 * t1103 + 0.10000e5 / 0.243e3 * t2159 * t3125 - 0.100000e6 / 0.2187e4 * t1039 - 0.20000e5 / 0.729e3 * t1686 * t3130 - 0.200e3 / 0.27e2 * t1680 * t3134 + 0.100e3 / 0.27e2 * t1695 * t1107 + 0.100e3 / 0.27e2 * t2190 * t1107 - 0.500e3 / 0.81e2 * t1051 + 0.100e3 / 0.27e2 * t607 * t3143;
4860   t3147 = t1110 * t1659;
4861   t3153 = t1679 * t1115;
4862   t3159 = t264 * t1114;
4863   t3165 = t605 * t1124;
4864   t3171 = t264 * t1123;
4865   t3180 = 0.500e3 / 0.81e2 * t2653 * t1101 - 0.5000e4 / 0.243e3 * t1058 + 0.2500000e7 / 0.19683e5 * t1616 * t1120 * t239 - 0.6250000e7 / 0.59049e5 * t1061;
4866   t3181 = t124 * t3180;
4867   t3183 = 0.50e2 / 0.27e2 * t1658 * t3147 - 0.50e2 / 0.27e2 * t612 * t1111 + 0.500e3 / 0.81e2 * t1049 - 0.100e3 / 0.27e2 * t3153 * t241 - 0.6e1 * t1631 * t1115 * t255 + 0.2e1 * t630 * t3159 + 0.4e1 * t630 * t349 * t911 + 0.50e2 / 0.27e2 * t3165 * t241 + 0.2e1 * t630 * t1124 * t255 - t246 * t3171 - t246 * t3181;
4868   t3184 = t3146 + t3183;
4869   t3185 = t299 * t3184;
4870   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4871     v3rhotau2[5] = -t3101 / 0.2e1 - t274 * t3112 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t3185;
4872 
4873   t3188 = 0.1e1 / t1221;
4874   t3189 = t3188 * t66;
4875   t3191 = t1289 * t3189 * t73;
4876   t3193 = t936 * t288;
4877   t3194 = t73 * t3193;
4878   t3200 = t3188 * t55;
4879   t3202 = t1281 * t3200;
4880   t3204 = 0.125e3 / 0.25509168e8 * t1321 * t3200 - 0.125e3 / 0.25509168e8 * t3202;
4881   t3206 = t1869 * t925;
4882   t3208 = t412 * t3188;
4883   t3209 = t1294 * t3208;
4884   t3210 = t409 * t3209;
4885   t3212 = t47 * t288;
4886   t3213 = t2554 * t3212;
4887   t3214 = t1299 * t3213;
4888   t3216 = t2558 * t280;
4889   t3219 = t293 * t936;
4890   t3222 = t953 * t288;
4891   t3225 = t293 * t948;
4892   t3229 = t62 * t3188;
4893   t3230 = t1252 * t3229;
4894   t3232 = -0.125e3 / 0.10368e5 * t3200 - 0.78125e5 / 0.314928e6 * t3230;
4895   t3233 = t73 * t3232;
4896   t3235 = t29 * t936;
4897   t3236 = t421 * t3235;
4898   t3237 = t1202 * t3236;
4899   t3239 = t920 * t288;
4900   t3240 = t690 * t3239;
4901   t3241 = t1208 * t3240;
4902   t3243 = t1908 * t929;
4903   t3245 = t29 * t948;
4904   t3246 = t421 * t3245;
4905   t3247 = t420 * t3246;
4906   t3249 = t730 * t921;
4907   t3251 = 0.15625e5 / 0.157464e6 * t3191 - 0.6e1 * t1268 * t3194 + 0.6e1 * t444 * t289 * t948 + t67 * t3204 + 0.625e3 / 0.972e3 * t3206 - 0.625e3 / 0.7776e4 * t3210 + 0.25e2 / 0.288e3 * t3214 + 0.25e2 / 0.36e2 * t3216 + 0.125e3 / 0.25509168e8 * t3202 + 0.6e1 * t444 * t3219 - 0.3e1 * t174 * t3222 - 0.3e1 * t174 * t3225 - t174 * t3233 + 0.25e2 / 0.18e2 * t3237 - 0.625e3 / 0.972e3 * t3241 - 0.25e2 / 0.18e2 * t3243 - 0.25e2 / 0.36e2 * t3247 - 0.25e2 / 0.288e3 * t3249;
4908   t3252 = t275 * t3251;
4909   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4910     v3sigma3[0] = -0.3e1 / 0.8e1 * t274 * t3252;
4911 
4912   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4913     v3sigma3[1] = 0.0e0;
4914 
4915   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4916     v3sigma3[2] = 0.0e0;
4917 
4918   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4919     v3sigma3[3] = 0.0e0;
4920 
4921   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4922     v3sigma3[4] = 0.0e0;
4923 
4924   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4925     v3sigma3[5] = 0.0e0;
4926 
4927   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4928     v3sigma3[6] = 0.0e0;
4929 
4930   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4931     v3sigma3[7] = 0.0e0;
4932 
4933   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4934     v3sigma3[8] = 0.0e0;
4935 
4936   t3255 = 0.1e1 / t1576;
4937   t3256 = t3255 * t117;
4938   t3258 = t1645 * t3256 * t124;
4939   t3260 = t977 * t312;
4940   t3261 = t124 * t3260;
4941   t3267 = t3255 * t55;
4942   t3269 = t1594 * t3267;
4943   t3271 = 0.125e3 / 0.25509168e8 * t1573 * t3267 - 0.125e3 / 0.25509168e8 * t3269;
4944   t3273 = t2107 * t966;
4945   t3275 = t412 * t3255;
4946   t3276 = t1653 * t3275;
4947   t3277 = t598 * t3276;
4948   t3279 = t47 * t312;
4949   t3280 = t2702 * t3279;
4950   t3281 = t1658 * t3280;
4951   t3283 = t2706 * t304;
4952   t3286 = t317 * t977;
4953   t3289 = t994 * t312;
4954   t3292 = t317 * t989;
4955   t3296 = t62 * t3255;
4956   t3297 = t1616 * t3296;
4957   t3299 = -0.125e3 / 0.10368e5 * t3267 - 0.78125e5 / 0.314928e6 * t3297;
4958   t3300 = t124 * t3299;
4959   t3302 = t87 * t977;
4960   t3303 = t421 * t3302;
4961   t3304 = t1680 * t3303;
4962   t3306 = t2156 * t970;
4963   t3308 = t87 * t989;
4964   t3309 = t421 * t3308;
4965   t3310 = t607 * t3309;
4966   t3312 = t961 * t312;
4967   t3313 = t690 * t3312;
4968   t3314 = t1686 * t3313;
4969   t3316 = t811 * t962;
4970   t3318 = 0.15625e5 / 0.157464e6 * t3258 - 0.6e1 * t1631 * t3261 + 0.6e1 * t630 * t313 * t989 + t118 * t3271 + 0.625e3 / 0.972e3 * t3273 - 0.625e3 / 0.7776e4 * t3277 + 0.25e2 / 0.288e3 * t3281 + 0.25e2 / 0.36e2 * t3283 + 0.125e3 / 0.25509168e8 * t3269 + 0.6e1 * t630 * t3286 - 0.3e1 * t246 * t3289 - 0.3e1 * t246 * t3292 - t246 * t3300 + 0.25e2 / 0.18e2 * t3304 - 0.25e2 / 0.18e2 * t3306 - 0.25e2 / 0.36e2 * t3310 - 0.625e3 / 0.972e3 * t3314 - 0.25e2 / 0.288e3 * t3316;
4971   t3319 = t299 * t3318;
4972   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4973     v3sigma3[9] = -0.3e1 / 0.8e1 * t274 * t3319;
4974 
4975   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4976     v3sigma2lapl[0] = 0.0e0;
4977 
4978   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4979     v3sigma2lapl[1] = 0.0e0;
4980 
4981   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4982     v3sigma2lapl[2] = 0.0e0;
4983 
4984   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4985     v3sigma2lapl[3] = 0.0e0;
4986 
4987   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4988     v3sigma2lapl[4] = 0.0e0;
4989 
4990   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4991     v3sigma2lapl[5] = 0.0e0;
4992 
4993   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4994     v3sigma2lapl[6] = 0.0e0;
4995 
4996   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4997     v3sigma2lapl[7] = 0.0e0;
4998 
4999   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5000     v3sigma2lapl[8] = 0.0e0;
5001 
5002   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5003     v3sigma2lapl[9] = 0.0e0;
5004 
5005   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5006     v3sigma2lapl[10] = 0.0e0;
5007 
5008   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5009     v3sigma2lapl[11] = 0.0e0;
5010 
5011   t3322 = t2861 * t280;
5012   t3324 = t2864 * t280;
5013   t3326 = t2309 * t925;
5014   t3328 = t1001 * t288;
5015   t3329 = t690 * t3328;
5016   t3330 = t1208 * t3329;
5017   t3334 = t39 * t948;
5018   t3335 = t421 * t3334;
5019   t3338 = t953 * t332;
5020   t3340 = t293 * t1028;
5021   t3343 = 0.1e1 / t397;
5022   t3344 = t3343 * t55;
5023   t3346 = t62 * t3343;
5024   t3347 = t1252 * t3346;
5025   t3349 = 0.125e3 / 0.1296e4 * t3344 + 0.78125e5 / 0.39366e5 * t3347;
5026   t3350 = t73 * t3349;
5027   t3355 = t730 * t1013;
5028   t3357 = -0.25e2 / 0.54e2 * t3322 - 0.25e2 / 0.54e2 * t3324 - 0.625e3 / 0.2916e4 * t3326 + 0.2500e4 / 0.729e3 * t3330 + 0.100e3 / 0.27e2 * t1908 * t1007 + 0.50e2 / 0.27e2 * t420 * t3335 - t174 * t3338 - 0.2e1 * t174 * t3340 - t174 * t3350 - 0.6e1 * t1268 * t333 * t936 + 0.25e2 / 0.54e2 * t3355;
5029   t3358 = t3343 * t66;
5030   t3360 = t1289 * t3358 * t73;
5031   t3371 = t332 * t920;
5032   t3372 = t3371 * t421;
5033   t3373 = t1299 * t3372;
5034   t3375 = t1869 * t1003;
5035   t3377 = t412 * t3343;
5036   t3378 = t1294 * t3377;
5037   t3379 = t409 * t3378;
5038   t3381 = t1012 * t3212;
5039   t3382 = t1299 * t3381;
5040   t3386 = t279 * t288;
5041   t3387 = t162 * t3386;
5042   t3388 = t2228 * t3387;
5043   t3390 = t39 * t936;
5044   t3391 = t421 * t3390;
5045   t3394 = -0.15625e5 / 0.19683e5 * t3360 + 0.4e1 * t444 * t1021 * t288 + 0.4e1 * t444 * t1029 * t288 + 0.2e1 * t444 * t333 * t948 + 0.25e2 / 0.864e3 * t3373 - 0.2500e4 / 0.729e3 * t3375 + 0.625e3 / 0.972e3 * t3379 - 0.25e2 / 0.54e2 * t3382 - 0.50e2 / 0.27e2 * t2558 * t324 + 0.25e2 / 0.27e2 * t3388 - 0.100e3 / 0.27e2 * t1202 * t3391;
5046   t3395 = t3357 + t3394;
5047   t3396 = t275 * t3395;
5048   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5049     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t274 * t3396;
5050 
5051   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5052     v3sigma2tau[1] = 0.0e0;
5053 
5054   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5055     v3sigma2tau[2] = 0.0e0;
5056 
5057   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5058     v3sigma2tau[3] = 0.0e0;
5059 
5060   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5061     v3sigma2tau[4] = 0.0e0;
5062 
5063   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5064     v3sigma2tau[5] = 0.0e0;
5065 
5066   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5067     v3sigma2tau[6] = 0.0e0;
5068 
5069   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5070     v3sigma2tau[7] = 0.0e0;
5071 
5072   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5073     v3sigma2tau[8] = 0.0e0;
5074 
5075   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5076     v3sigma2tau[9] = 0.0e0;
5077 
5078   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5079     v3sigma2tau[10] = 0.0e0;
5080 
5081   t3399 = t2991 * t304;
5082   t3401 = t2994 * t304;
5083   t3403 = t2449 * t966;
5084   t3405 = t1036 * t312;
5085   t3406 = t690 * t3405;
5086   t3407 = t1686 * t3406;
5087   t3411 = t97 * t989;
5088   t3412 = t421 * t3411;
5089   t3415 = t994 * t348;
5090   t3417 = t317 * t1063;
5091   t3420 = 0.1e1 / t586;
5092   t3421 = t3420 * t55;
5093   t3423 = t62 * t3420;
5094   t3424 = t1616 * t3423;
5095   t3426 = 0.125e3 / 0.1296e4 * t3421 + 0.78125e5 / 0.39366e5 * t3424;
5096   t3427 = t124 * t3426;
5097   t3429 = t811 * t1048;
5098   t3434 = -0.25e2 / 0.54e2 * t3399 - 0.25e2 / 0.54e2 * t3401 - 0.625e3 / 0.2916e4 * t3403 + 0.2500e4 / 0.729e3 * t3407 + 0.100e3 / 0.27e2 * t2156 * t1042 + 0.50e2 / 0.27e2 * t607 * t3412 - t246 * t3415 - 0.2e1 * t246 * t3417 - t246 * t3427 + 0.25e2 / 0.54e2 * t3429 - 0.6e1 * t1631 * t349 * t977;
5099   t3444 = t3420 * t117;
5100   t3446 = t1645 * t3444 * t124;
5101   t3448 = t348 * t961;
5102   t3449 = t3448 * t421;
5103   t3450 = t1658 * t3449;
5104   t3452 = t2107 * t1038;
5105   t3454 = t412 * t3420;
5106   t3455 = t1653 * t3454;
5107   t3456 = t598 * t3455;
5108   t3458 = t1047 * t3279;
5109   t3459 = t1658 * t3458;
5110   t3463 = t97 * t977;
5111   t3464 = t421 * t3463;
5112   t3467 = t303 * t312;
5113   t3468 = t234 * t3467;
5114   t3469 = t2397 * t3468;
5115   t3471 = 0.4e1 * t630 * t1056 * t312 + 0.4e1 * t630 * t1064 * t312 + 0.2e1 * t630 * t349 * t989 - 0.15625e5 / 0.19683e5 * t3446 + 0.25e2 / 0.864e3 * t3450 - 0.2500e4 / 0.729e3 * t3452 + 0.625e3 / 0.972e3 * t3456 - 0.25e2 / 0.54e2 * t3459 - 0.50e2 / 0.27e2 * t2706 * t340 - 0.100e3 / 0.27e2 * t1680 * t3464 + 0.25e2 / 0.27e2 * t3469;
5116   t3472 = t3434 + t3471;
5117   t3473 = t299 * t3472;
5118   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5119     v3sigma2tau[11] = -0.3e1 / 0.8e1 * t274 * t3473;
5120 
5121   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5122     v3sigmalapl2[0] = 0.0e0;
5123 
5124   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5125     v3sigmalapl2[1] = 0.0e0;
5126 
5127   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5128     v3sigmalapl2[2] = 0.0e0;
5129 
5130   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5131     v3sigmalapl2[3] = 0.0e0;
5132 
5133   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5134     v3sigmalapl2[4] = 0.0e0;
5135 
5136   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5137     v3sigmalapl2[5] = 0.0e0;
5138 
5139   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5140     v3sigmalapl2[6] = 0.0e0;
5141 
5142   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5143     v3sigmalapl2[7] = 0.0e0;
5144 
5145   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5146     v3sigmalapl2[8] = 0.0e0;
5147 
5148   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5149     v3sigmalapltau[0] = 0.0e0;
5150 
5151   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5152     v3sigmalapltau[1] = 0.0e0;
5153 
5154   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5155     v3sigmalapltau[2] = 0.0e0;
5156 
5157   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5158     v3sigmalapltau[3] = 0.0e0;
5159 
5160   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5161     v3sigmalapltau[4] = 0.0e0;
5162 
5163   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5164     v3sigmalapltau[5] = 0.0e0;
5165 
5166   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5167     v3sigmalapltau[6] = 0.0e0;
5168 
5169   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5170     v3sigmalapltau[7] = 0.0e0;
5171 
5172   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5173     v3sigmalapltau[8] = 0.0e0;
5174 
5175   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5176     v3sigmalapltau[9] = 0.0e0;
5177 
5178   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5179     v3sigmalapltau[10] = 0.0e0;
5180 
5181   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5182     v3sigmalapltau[11] = 0.0e0;
5183 
5184   t3476 = 0.1e1 / t678;
5185   t3477 = t3476 * t66;
5186   t3479 = t1289 * t3477 * t73;
5187   t3481 = t1071 * t288;
5188   t3482 = t690 * t3481;
5189   t3487 = t412 * t3476;
5190   t3488 = t1294 * t3487;
5191   t3489 = t409 * t3488;
5192   t3491 = t1001 * t332;
5193   t3492 = t690 * t3491;
5194   t3493 = t1208 * t3492;
5195   t3496 = t421 * t1076 * t288;
5196   t3501 = t47 * t332;
5197   t3502 = t1012 * t3501;
5198   t3503 = t1299 * t3502;
5199   t3505 = t39 * t1028;
5200   t3506 = t421 * t3505;
5201   t3509 = t1080 * t3212;
5202   t3514 = t3066 * t280;
5203   t3519 = t293 * t1084;
5204   t3525 = t3078 * t280;
5205   t3530 = t293 * t1093;
5206   t3532 = t3476 * t55;
5207   t3534 = t62 * t3476;
5208   t3535 = t1252 * t3534;
5209   t3537 = -0.125e3 / 0.162e3 * t3532 - 0.312500e6 / 0.19683e5 * t3535;
5210   t3538 = t73 * t3537;
5211   t3540 = 0.125000e6 / 0.19683e5 * t3479 - 0.10000e5 / 0.729e3 * t1208 * t3482 + 0.10000e5 / 0.729e3 * t1869 * t1073 - 0.1250e4 / 0.243e3 * t3489 + 0.2500e4 / 0.729e3 * t3493 - 0.200e3 / 0.27e2 * t1202 * t3496 + 0.100e3 / 0.27e2 * t1908 * t1077 - 0.25e2 / 0.54e2 * t3503 + 0.100e3 / 0.27e2 * t420 * t3506 + 0.50e2 / 0.27e2 * t1299 * t3509 - 0.50e2 / 0.27e2 * t730 * t1081 + 0.25e2 / 0.54e2 * t3514 - 0.6e1 * t1268 * t1085 * t288 + 0.2e1 * t444 * t3519 + 0.4e1 * t444 * t333 * t1028 - 0.25e2 / 0.108e3 * t3525 + 0.2e1 * t444 * t1094 * t288 - t174 * t3530 - t174 * t3538;
5212   t3541 = t275 * t3540;
5213   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5214     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t274 * t3541;
5215 
5216   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5217     v3sigmatau2[1] = 0.0e0;
5218 
5219   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5220     v3sigmatau2[2] = 0.0e0;
5221 
5222   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5223     v3sigmatau2[3] = 0.0e0;
5224 
5225   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5226     v3sigmatau2[4] = 0.0e0;
5227 
5228   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5229     v3sigmatau2[5] = 0.0e0;
5230 
5231   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5232     v3sigmatau2[6] = 0.0e0;
5233 
5234   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5235     v3sigmatau2[7] = 0.0e0;
5236 
5237   t3544 = 0.1e1 / t760;
5238   t3545 = t3544 * t117;
5239   t3547 = t1645 * t3545 * t124;
5240   t3549 = t1101 * t312;
5241   t3550 = t690 * t3549;
5242   t3555 = t412 * t3544;
5243   t3556 = t1653 * t3555;
5244   t3557 = t598 * t3556;
5245   t3559 = t1036 * t348;
5246   t3560 = t690 * t3559;
5247   t3561 = t1686 * t3560;
5248   t3564 = t421 * t1106 * t312;
5249   t3569 = t47 * t348;
5250   t3570 = t1047 * t3569;
5251   t3571 = t1658 * t3570;
5252   t3573 = t97 * t1063;
5253   t3574 = t421 * t3573;
5254   t3577 = t1110 * t3279;
5255   t3582 = t3153 * t304;
5256   t3587 = t317 * t1114;
5257   t3593 = t3165 * t304;
5258   t3598 = t317 * t1123;
5259   t3600 = t3544 * t55;
5260   t3602 = t62 * t3544;
5261   t3603 = t1616 * t3602;
5262   t3605 = -0.125e3 / 0.162e3 * t3600 - 0.312500e6 / 0.19683e5 * t3603;
5263   t3606 = t124 * t3605;
5264   t3608 = 0.125000e6 / 0.19683e5 * t3547 - 0.10000e5 / 0.729e3 * t1686 * t3550 + 0.10000e5 / 0.729e3 * t2107 * t1103 - 0.1250e4 / 0.243e3 * t3557 + 0.2500e4 / 0.729e3 * t3561 - 0.200e3 / 0.27e2 * t1680 * t3564 + 0.100e3 / 0.27e2 * t2156 * t1107 - 0.25e2 / 0.54e2 * t3571 + 0.100e3 / 0.27e2 * t607 * t3574 + 0.50e2 / 0.27e2 * t1658 * t3577 - 0.50e2 / 0.27e2 * t811 * t1111 + 0.25e2 / 0.54e2 * t3582 - 0.6e1 * t1631 * t1115 * t312 + 0.2e1 * t630 * t3587 + 0.4e1 * t630 * t349 * t1063 - 0.25e2 / 0.108e3 * t3593 + 0.2e1 * t630 * t1124 * t312 - t246 * t3598 - t246 * t3606;
5265   t3609 = t299 * t3608;
5266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5267     v3sigmatau2[8] = -0.3e1 / 0.8e1 * t274 * t3609;
5268 
5269   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5270     v3lapl3[0] = 0.0e0;
5271 
5272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5273     v3lapl3[1] = 0.0e0;
5274 
5275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5276     v3lapl3[2] = 0.0e0;
5277 
5278   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5279     v3lapl3[3] = 0.0e0;
5280 
5281   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5282     v3lapl2tau[0] = 0.0e0;
5283 
5284   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5285     v3lapl2tau[1] = 0.0e0;
5286 
5287   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5288     v3lapl2tau[2] = 0.0e0;
5289 
5290   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5291     v3lapl2tau[3] = 0.0e0;
5292 
5293   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5294     v3lapl2tau[4] = 0.0e0;
5295 
5296   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5297     v3lapl2tau[5] = 0.0e0;
5298 
5299   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5300     v3lapltau2[0] = 0.0e0;
5301 
5302   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5303     v3lapltau2[1] = 0.0e0;
5304 
5305   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5306     v3lapltau2[2] = 0.0e0;
5307 
5308   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5309     v3lapltau2[3] = 0.0e0;
5310 
5311   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5312     v3lapltau2[4] = 0.0e0;
5313 
5314   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5315     v3lapltau2[5] = 0.0e0;
5316 
5317   t3612 = 0.1e1 / t918;
5318   t3613 = t3612 * t66;
5319   t3617 = t1071 * t332;
5320   t3618 = t690 * t3617;
5321   t3621 = t412 * t3612;
5322   t3622 = t1294 * t3621;
5323   t3625 = t39 * t1084;
5324   t3626 = t421 * t3625;
5325   t3629 = t1080 * t3501;
5326   t3632 = t39 * t1093;
5327   t3633 = t421 * t3632;
5328   t3636 = t1084 * t332;
5329   t3637 = t73 * t3636;
5330   t3645 = t62 * t3612;
5331   t3648 = 0.500e3 / 0.81e2 * t3612 * t55 + 0.2500000e7 / 0.19683e5 * t1252 * t3645;
5332   t3649 = t73 * t3648;
5333   t3651 = -0.1000000e7 / 0.19683e5 * t1289 * t3613 * t73 - 0.10000e5 / 0.243e3 * t1208 * t3618 + 0.10000e5 / 0.243e3 * t409 * t3622 - 0.100e3 / 0.9e1 * t1202 * t3626 + 0.50e2 / 0.9e1 * t1299 * t3629 + 0.50e2 / 0.9e1 * t420 * t3633 - 0.6e1 * t1268 * t3637 + 0.6e1 * t444 * t333 * t1093 - t174 * t3649;
5334   t3652 = t275 * t3651;
5335   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5336     v3tau3[0] = -0.3e1 / 0.8e1 * t274 * t3652;
5337 
5338   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5339     v3tau3[1] = 0.0e0;
5340 
5341   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5342     v3tau3[2] = 0.0e0;
5343 
5344   t3655 = 0.1e1 / t959;
5345   t3656 = t3655 * t117;
5346   t3660 = t1101 * t348;
5347   t3661 = t690 * t3660;
5348   t3664 = t412 * t3655;
5349   t3665 = t1653 * t3664;
5350   t3668 = t97 * t1114;
5351   t3669 = t421 * t3668;
5352   t3672 = t1110 * t3569;
5353   t3675 = t97 * t1123;
5354   t3676 = t421 * t3675;
5355   t3679 = t1114 * t348;
5356   t3680 = t124 * t3679;
5357   t3688 = t62 * t3655;
5358   t3691 = 0.500e3 / 0.81e2 * t3655 * t55 + 0.2500000e7 / 0.19683e5 * t1616 * t3688;
5359   t3692 = t124 * t3691;
5360   t3694 = -0.1000000e7 / 0.19683e5 * t1645 * t3656 * t124 - 0.10000e5 / 0.243e3 * t1686 * t3661 + 0.10000e5 / 0.243e3 * t598 * t3665 - 0.100e3 / 0.9e1 * t1680 * t3669 + 0.50e2 / 0.9e1 * t1658 * t3672 + 0.50e2 / 0.9e1 * t607 * t3676 - 0.6e1 * t1631 * t3680 + 0.6e1 * t630 * t349 * t1123 - t246 * t3692;
5361   t3695 = t299 * t3694;
5362   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5363     v3tau3[3] = -0.3e1 / 0.8e1 * t274 * t3695;
5364 
5365 #ifndef XC_DONT_COMPILE_LXC
5366 
5367   if(order < 4) return;
5368 
5369 
5370   t3700 = t437 * t437;
5371   t3703 = t167 * t1249;
5372   t3709 = 0.1e1 / t27 / t678;
5373   t3712 = 0.6160e4 / 0.81e2 * tau[0] * t1228 - 0.2618e4 / 0.81e2 * sigma[0] * t3709;
5374   t3715 = params->b * t43;
5375   t3716 = t413 * t413;
5376   t3749 = t52 / t1266 / t65;
5377   t3750 = t445 * t445;
5378   t3754 = t464 * t464;
5379   t3761 = t1289 * t1240;
5380   t3762 = t173 * t73;
5381   t3763 = t3762 * t183;
5382   t3766 = t153 * t3709;
5383   t3768 = 0.26180e5 / 0.19683e5 * t152 * t3766;
5384   t3779 = -t174 * t73 * (0.1000e4 / 0.27e2 * t1812 * t437 + 0.500e3 / 0.27e2 * t452 * t3700 + 0.2000e4 / 0.81e2 * t452 * t3703 + 0.250e3 / 0.81e2 * t175 * t3712 + 0.2500000e7 / 0.6561e4 * t3715 * t62 * t3716 + 0.5000000e7 / 0.6561e4 * t1252 * t458 * t437 + 0.625000e6 / 0.6561e4 * t457 * t62 * t3700 + 0.2500000e7 / 0.19683e5 * t457 * t180 * t1249 + 0.125000e6 / 0.19683e5 * t179 * t62 * t3712) + 0.12e2 * t444 * t475 * t445 - 0.4e1 * t174 * t1328 * t183 - 0.6e1 * t174 * t475 * t464 - 0.4e1 * t174 * t192 * t1262 + 0.24e2 * t3749 * t73 * t3750 + 0.6e1 * t444 * t73 * t3754 - 0.2000000e7 / 0.6561e4 * t1954 * t1955 * t437 + 0.4000000e7 / 0.19683e5 * t3761 * t3763 + t3768 - 0.100e3 / 0.9e1 * t1307 * t430 - 0.50e2 / 0.9e1 * t161 * t3700 * t44 * t47 + 0.10000e5 / 0.243e3 * t409 * t3716 * t19 * t412;
5385   t3782 = t395 / t26 / t2504;
5386   t3784 = 0.195800e6 / 0.4782969e7 * t393 * t3782;
5387   t3785 = t1201 * t73;
5388   t3786 = t47 * t445;
5389   t3794 = t418 * t192;
5390   t3797 = t408 * t475;
5391   t3816 = t148 / t1279 / t33 * t55;
5392   t3817 = t394 * t394;
5393   t3822 = t3817 / t27 / t1221 / t678 * t24;
5394   t3824 = 0.160000e6 / 0.31381059609e11 * t3816 * t3822;
5395   t3827 = t47 * t464;
5396   t3831 = t160 * t1328;
5397   t3834 = -t3784 - 0.200e3 / 0.9e1 * t3785 * t429 * t3786 + 0.10000e5 / 0.243e3 * t409 * t410 * t412 * t3700 + 0.200e3 / 0.9e1 * t3794 * t1301 + 0.20000e5 / 0.243e3 * t3797 * t415 - 0.100e3 / 0.9e1 * t1307 * t439 - 0.200e3 / 0.9e1 * t426 * t1312 - 0.200e3 / 0.27e2 * t426 * t1316 - 0.200e3 / 0.27e2 * t161 * t701 * t1315 - 0.50e2 / 0.27e2 * t161 * t162 * t47 * t3712 - t3824 + 0.40000e5 / 0.243e3 * t1304 * t1296 + 0.100e3 / 0.9e1 * t1299 * t429 * t3827 - 0.200e3 / 0.27e2 * t3831 * t169;
5398   t3839 = t43 * t62;
5399   t3866 = t51 * t1267;
5400   t3870 = t1207 * t1923;
5401   t3881 = -0.24e2 * t1268 * t192 * t1269 - 0.2000000e7 / 0.6561e4 * t3839 * t3716 * t66 * t73 + 0.200e3 / 0.9e1 * t1933 * t1194 + 0.200e3 / 0.27e2 * t420 * t421 * t1249 * t183 + 0.100e3 / 0.9e1 * t420 * t421 * t437 * t464 - 0.400e3 / 0.9e1 * t1201 * t1273 * t169 + 0.200e3 / 0.9e1 * t418 * t1276 * t169 + 0.200e3 / 0.9e1 * t418 * t1237 * t169 + 0.200e3 / 0.27e2 * t418 * t1263 * t169 + 0.400e3 / 0.9e1 * t3866 * t1270 * t169 - 0.40000e5 / 0.243e3 * t3870 * t1210 - 0.20000e5 / 0.243e3 * t1208 * t690 * t413 * t464 + 0.20000e5 / 0.81e2 * t1891 * t690 * t413 * t437;
5402   t3893 = t50 * t443;
5403   t3894 = t3893 * t688;
5404   t3899 = t1207 * t419;
5405   t3907 = t1221 * t396;
5406   t3909 = t1283 / t3907;
5407   t3911 = 0.88000e5 / 0.43046721e8 * t1281 * t3909;
5408   t3923 = t464 * t42 * t2795;
5409   t3933 = t148 / t1319 / t68 * t55;
5410   t3944 = 0.40000e5 / 0.243e3 * t1924 * t1214 + 0.40000e5 / 0.729e3 * t689 * t690 * t3703 + 0.200e3 / 0.9e1 * t1218 * t1194 - 0.200e3 / 0.9e1 * t1202 * t421 * t437 * t445 + 0.40000e5 / 0.243e3 * t3894 * t690 * t413 * t445 - 0.40000e5 / 0.243e3 * t3899 * t690 * t1240 * t183 - 0.36e2 * t1268 * t446 * t464 + t3911 + 0.24e2 * t444 * t449 * t464 + 0.8e1 * t444 * t1263 * t183 - 0.4000000e7 / 0.19683e5 * t1289 * t1290 * t192 - 0.400e3 / 0.9e1 * t1201 * t184 * t3923 - 0.40000e5 / 0.243e3 * t1208 * t690 * t422 * t437 + t67 * (-0.160000e6 / 0.31381059609e11 * t3933 * t3822 + 0.88000e5 / 0.43046721e8 * t1321 * t3909 - 0.195800e6 / 0.4782969e7 * t470 * t3782 + 0.26180e5 / 0.19683e5 * t189 * t3766 + t3824 - t3911 + t3784 - t3768);
5411   t3951 = t8 * t144 * t1331;
5412   t3954 = t8 * t1357 * t194;
5413   t3957 = t8 * t383 * t477;
5414   t3962 = 0.10e2 / 0.27e2 * t8 * t81 * t1432 * t126;
5415   t3966 = 0.10e2 / 0.27e2 * t8 * t16 * t1432 * t75;
5416   t3968 = t8 * t366 * t1344;
5417   t3970 = t376 * t376;
5418   t3976 = t8 * t520 * t138;
5419   t3978 = t79 * t79;
5420   t3980 = 0.1e1 / t481 / t3978;
5421   t3981 = t3980 * t17;
5422   t3982 = t484 * t484;
5423   t3987 = t1167 * t143;
5424   t3989 = t8 * t3987 * t1170;
5425   t3991 = t482 * t382;
5426   t3993 = t8 * t3991 * t485;
5427   t3995 = t493 * t493;
5428   t4001 = t8 * t1183 * t494;
5429   t4003 = t14 * t14;
5430   t4005 = 0.1e1 / t358 / t4003;
5431   t4006 = t4005 * t17;
5432   t4007 = t361 * t361;
5433   t4012 = t1147 * t143;
5434   t4014 = t8 * t4012 * t1150;
5435   t4016 = t359 * t382;
5436   t4018 = t8 * t4016 * t362;
5437   t4020 = t1133 * t10;
5438   t4022 = t9 / t4020;
5439   t4024 = 0.12e2 * t1134 - 0.12e2 * t4022;
5440   t4030 = t8 * t537 * t200;
5441   t4032 = -0.3e1 / 0.8e1 * t8 * t18 * (t3779 + t3834 + t3881 + t3944) - t3951 / 0.2e1 - 0.5e1 / 0.9e1 * t3954 + t3957 / 0.2e1 + t3962 + t3966 - 0.2e1 * t3968 - t8 * t360 * t75 * t3970 / 0.2e1 - 0.20e2 / 0.27e2 * t3976 - 0.5e1 / 0.27e2 * t8 * t3981 * t126 * t3982 + 0.4e1 / 0.27e2 * t3989 + 0.2e1 / 0.9e1 * t3993 - t8 * t483 * t126 * t3995 / 0.2e1 + 0.2e1 / 0.3e1 * t4001 - 0.5e1 / 0.27e2 * t8 * t4006 * t75 * t4007 + 0.4e1 / 0.27e2 * t4014 + 0.2e1 / 0.9e1 * t4018 - t8 * t198 * t126 * t4024 / 0.2e1 - 0.20e2 / 0.27e2 * t4030;
5442   t4038 = t8 * t1154 * t1335;
5443   t4041 = t8 * t1162 * t370;
5444   t4044 = t8 * t1162 * t377;
5445   t4051 = t8 * t489 * t1138;
5446   t4057 = t8 * t366 * t1348;
5447   t4060 = t8 * t366 * t1353;
5448   t4087 = t528 * t1411 * t1178;
5449   t4098 = t505 * t1396 * t1158;
5450   t4100 = 0.4e1 / 0.9e1 * t8 * t1148 * t194 * t1149 - 0.2e1 / 0.3e1 * t4038 + 0.4e1 / 0.3e1 * t4041 + 0.2e1 / 0.3e1 * t4044 - 0.2e1 * t8 * t132 * t1331 * t137 - 0.2e1 / 0.3e1 * t4051 - t8 * t360 * t477 * t361 - 0.2e1 * t4057 - 0.2e1 / 0.3e1 * t4060 - 0.3e1 * t8 * t132 * t477 * t376 - 0.2e1 * t8 * t132 * t194 * t1352 + t8 * t132 * t75 * t4024 / 0.2e1 - 0.2e1 * t505 * t1382 * t1158 - 0.2e1 / 0.3e1 * t505 * t506 * t137 * t1352 + 0.2e1 / 0.3e1 * t1406 * t529 * t484 * t493 - 0.2e1 / 0.3e1 * t4087 - 0.2e1 / 0.3e1 * t528 * t529 * t1137 * t199 + 0.2e1 / 0.3e1 * t1391 * t506 * t361 * t376 - 0.2e1 / 0.3e1 * t4098;
5451   t4105 = 0.5e1 / 0.9e1 * t1144;
5452   t4113 = t10 * (t4032 + t4100) - 0.2e1 * t1131 - 0.2e1 * t1140 - t4105 + 0.4e1 / 0.9e1 * t1152 - 0.2e1 / 0.3e1 * t1156 - 0.2e1 * t1160 + 0.4e1 / 0.3e1 * t1164 + 0.4e1 / 0.9e1 * t1172 - 0.2e1 / 0.3e1 * t1176 - 0.2e1 * t1180;
5453   t4123 = 0.5e1 / 0.9e1 * t1359;
5454   t4124 = 0.4e1 / 0.3e1 * t1185 + t1188 - 0.3e1 / 0.2e1 * t1191 - 0.3e1 / 0.2e1 * t1333 - 0.2e1 * t1337 - 0.4e1 * t1340 - 0.2e1 * t1342 - 0.6e1 * t1346 - 0.6e1 * t1350 - 0.2e1 * t1355 - t4123;
5455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5456     v4rho4[0] = t4113 + t4124;
5457 
5458   t4129 = t8 * t1433 * t126;
5459   t4132 = t8 * t1457 * t75;
5460   t4135 = t8 * t1142 * t266;
5461   t4138 = t8 * t520 * t212;
5462   t4141 = 0.1e1 / t142 / t1133;
5463   t4144 = t8 * t15 * t4141 * t521;
5464   t4149 = t359 * t519;
5465   t4154 = t8 * t1457 * t1461;
5466   t4164 = t482 * t519;
5467   t4168 = -0.3e1 / 0.2e1 * t8 * t520 * t194 - 0.5e1 / 0.2e1 * t4129 + 0.5e1 / 0.2e1 * t4132 - 0.5e1 / 0.36e2 * t4135 - 0.5e1 / 0.27e2 * t4138 - 0.25e2 / 0.6e1 * t4144 - t3951 / 0.8e1 - 0.5e1 / 0.12e2 * t3954 + t3957 / 0.4e1 + t3962 + t3966 - t8 * t4149 * t138 / 0.2e1 + 0.7e1 / 0.2e1 * t4154 - 0.3e1 / 0.2e1 * t8 * t520 * t477 * t9 - t8 * t132 * t1331 * t211 / 0.2e1 + t8 * t4164 * t200 / 0.2e1;
5468   t4174 = t8 * t1162 * t514;
5469   t4175 = t4174 / 0.3e1;
5470   t4177 = t8 * t366 * t1427;
5471   t4180 = t8 * t489 * t1437;
5472   t4183 = t8 * t1183 * t543;
5473   t4184 = t4183 / 0.3e1;
5474   t4186 = t8 * t537 * t217;
5475   t4193 = t8 * t1174 * t1444;
5476   t4197 = t8 * t80 * t4141 * t538;
5477   t4206 = -t8 * t198 * t266 * t1137 / 0.2e1 + t4175 - t4177 / 0.2e1 - t4180 / 0.2e1 + t4184 - 0.5e1 / 0.27e2 * t4186 + t8 * t1168 * t266 * t1169 / 0.9e1 - t4193 / 0.6e1 + 0.25e2 / 0.6e1 * t4197 - t3968 / 0.2e1 - 0.5e1 / 0.9e1 * t3976 + t3989 / 0.27e2 + t3993 / 0.9e1 + t4001 / 0.3e1 + t4014 / 0.27e2 + t4018 / 0.9e1;
5478   t4220 = t505 * t143 * t194 * t507;
5479   t4222 = t519 * t194;
5480   t4226 = t505 * t1396 * t1386;
5481   t4233 = t5 * t7 * t4005;
5482   t4239 = t1391 * t1396 * t1392;
5483   t4248 = -0.5e1 / 0.9e1 * t4030 - t4038 / 0.6e1 + 0.2e1 / 0.3e1 * t4041 + t4044 / 0.3e1 - t4051 / 0.6e1 - t4057 / 0.2e1 - t4060 / 0.6e1 + t1391 * t1382 * t1392 / 0.3e1 - t4220 / 0.3e1 - t505 * t4222 * t1401 - t4226 / 0.6e1 - t505 * t1400 * t9 * t376 / 0.2e1 - 0.5e1 / 0.27e2 * t4233 * t506 * t211 * t1149 + t4239 / 0.9e1 + t1391 * t1400 * t9 * t361 / 0.3e1 - t505 * t1382 * t1386 / 0.2e1;
5484   t4255 = t505 * t382 * t75 * t507;
5485   t4256 = t4255 / 0.9e1;
5486   t4257 = t1432 * t75;
5487   t4259 = t505 * t4257 * t1401;
5488   t4266 = t528 * t1411 * t1373;
5489   t4268 = t1432 * t126;
5490   t4270 = t528 * t4268 * t1378;
5491   t4288 = t5 * t7 * t3980;
5492   t4294 = t1406 * t1411 * t1407;
5493   t4298 = t528 * t382 * t126 * t530;
5494   t4299 = t4298 / 0.9e1;
5495   t4310 = -t505 * t506 * t211 * t1352 / 0.6e1 + t4256 + 0.7e1 / 0.6e1 * t4259 - t1406 * t1377 * t9 * t484 / 0.3e1 - t4266 / 0.6e1 - 0.7e1 / 0.6e1 * t4270 - t505 * t17 * t477 * t507 / 0.2e1 - t528 * t1544 * t1178 / 0.2e1 - t528 * t529 * t216 * t1137 / 0.6e1 + t528 * t1377 * t9 * t493 / 0.2e1 - 0.5e1 / 0.27e2 * t4288 * t529 * t216 * t1169 + t4294 / 0.9e1 + t4299 - t4087 / 0.6e1 - t4098 / 0.6e1 + t1391 * t506 * t1386 * t137 / 0.3e1 + t1406 * t529 * t530 * t493 / 0.3e1;
5496   t4317 = t1398 / 0.3e1;
5497   t4319 = t1413 / 0.3e1;
5498   t4320 = t10 * (t4168 + t4206 + t4248 + t4310) - t1375 / 0.2e1 + t1380 - t1384 - t1388 / 0.2e1 + t1394 / 0.3e1 - t4317 - t1403 + t1409 / 0.3e1 - t4319 - t1161;
5499   t4327 = -t1181 - t1334 - t4105 + 0.3e1 / 0.4e1 * t1188 - 0.3e1 / 0.4e1 * t1191 - t4123 + t1736 - 0.3e1 / 0.2e1 * t1421 + 0.3e1 / 0.2e1 * t1424 - 0.3e1 / 0.2e1 * t1429 - 0.7e1 / 0.2e1 * t1435;
5500   t4334 = -0.3e1 / 0.2e1 * t1439 + t1739 - t1446 / 0.2e1 - t1449 - t1452 + t1570 + 0.7e1 / 0.2e1 * t1459 - 0.3e1 * t1463 - 0.2e1 * t1340 - t1342 - t1347;
5501   t4337 = -t1351 - t1356 - t1338 + t1173 - t1176 / 0.3e1 + t1185 - t1131 - t1141 + t1153 - t1156 / 0.3e1 + t1164;
5502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5503     v4rho4[1] = t4320 + t4327 + t4334 + t4337;
5504 
5505   t4351 = -0.2e1 / 0.3e1 * t1483 - t1375 / 0.3e1 + 0.2e1 / 0.3e1 * t1380 - 0.2e1 / 0.3e1 * t1384 - t1388 / 0.3e1 + 0.2e1 / 0.9e1 * t1394 - 0.4e1 / 0.9e1 * t1398 - 0.2e1 / 0.3e1 * t1403 + 0.2e1 / 0.9e1 * t1409 - 0.4e1 / 0.9e1 * t1413 - t4105 + t1188 / 0.2e1 - t1191 / 0.4e1;
5506   t4360 = -0.2e1 / 0.3e1 * t1487 - t1490 / 0.3e1 - t1493 / 0.9e1 - t1496 / 0.3e1 - t1499 / 0.9e1 - t1503 - t1509 + 0.2e1 * t1513 - t1517 - t1521 - t1525 / 0.3e1 - t4123 + 0.2e1 / 0.9e1 * t1530;
5507   t4371 = -t1534 / 0.3e1 + 0.2e1 / 0.9e1 * t1538 + 0.2e1 / 0.3e1 * t1542 - 0.2e1 / 0.3e1 * t1546 - t1550 / 0.3e1 - t1553 / 0.4e1 + t1418 / 0.2e1 - t1421 + t1424 - t1429 - 0.5e1 / 0.3e1 * t1435 - t1439 + 0.2e1 / 0.3e1 * t1442;
5508   t4386 = t8 * t498 * t663;
5509   t4405 = 0.1e1 / t142 / t4020;
5510   t4407 = t9 * t9;
5511   t4422 = t8 * t489 * t1519;
5512   t4428 = t8 * t1154 * t1523;
5513   t4431 = t8 * t1433 * t1511;
5514   t4434 = t8 * t489 * t1515;
5515   t4441 = t8 * t1183 * t570;
5516   t4444 = t8 * t1183 * t574;
5517   t4447 = t8 * t4016 * t554;
5518   t4449 = t4386 / 0.12e2 + t8 * t537 * t266 + t4129 / 0.3e1 - t4132 / 0.3e1 - 0.5e1 / 0.18e2 * t4135 - t8 * t198 * t663 * t493 / 0.2e1 - t8 * t132 * t477 * t559 / 0.2e1 - t8 * t132 * t194 * t1506 - t8 * t359 * t4405 * t75 * t4407 / 0.3e1 - t8 * t482 * t4405 * t126 * t4407 / 0.3e1 - t8 * t360 * t477 * t553 / 0.6e1 - t4422 / 0.3e1 - t8 * t4149 * t212 / 0.3e1 - t4428 / 0.9e1 - 0.7e1 / 0.3e1 * t4431 - t4434 / 0.3e1 - t8 * t483 * t663 * t484 / 0.6e1 + 0.2e1 / 0.9e1 * t4441 + t4444 / 0.9e1 + t4447 / 0.27e2;
5519   t4451 = t8 * t1162 * t560;
5520   t4454 = t8 * t3991 * t565;
5521   t4460 = t8 * t366 * t1501;
5522   t4463 = t8 * t366 * t1507;
5523   t4478 = t4451 / 0.9e1 + t4454 / 0.27e2 + t8 * t4164 * t217 / 0.3e1 - t4460 / 0.3e1 - t4463 / 0.3e1 - 0.10e2 / 0.27e2 * t4138 - 0.41e2 / 0.9e1 * t4144 - 0.5e1 / 0.18e2 * t3954 + t3957 / 0.12e2 + t3962 + t3966 - 0.2e1 / 0.3e1 * t4154 + 0.4e1 / 0.9e1 * t4174 - t4177 / 0.3e1 - t4180 / 0.3e1 + 0.4e1 / 0.9e1 * t4183 - 0.10e2 / 0.27e2 * t4186 - t4193 / 0.9e1 + 0.41e2 / 0.9e1 * t4197 - 0.10e2 / 0.27e2 * t3976;
5524   t4497 = t528 * t143 * t266 * t530;
5525   t4504 = t528 * t1411 * t1548;
5526   t4511 = t505 * t1396 * t1532;
5527   t4518 = t1406 * t1411 * t1536;
5528   t4521 = t505 * t4257 * t1481;
5529   t4528 = t1391 * t1396 * t1528;
5530   t4534 = t3993 / 0.27e2 + t4001 / 0.9e1 + t4018 / 0.27e2 - 0.10e2 / 0.27e2 * t4030 + 0.2e1 / 0.9e1 * t4041 + t4044 / 0.9e1 - 0.2e1 / 0.3e1 * t505 * t4222 * t1481 + 0.2e1 / 0.9e1 * t1391 * t1382 * t1528 + 0.2e1 / 0.9e1 * t1406 * t1544 * t1407 - 0.2e1 / 0.9e1 * t4497 + t1406 * t529 * t573 * t484 / 0.9e1 - t4504 / 0.9e1 + t1391 * t506 * t559 * t361 / 0.9e1 - t4511 / 0.9e1 - 0.5e1 / 0.27e2 * t4288 * t529 * t564 * t484 + 0.2e1 / 0.27e2 * t4518 + 0.7e1 / 0.9e1 * t4521 - 0.5e1 / 0.27e2 * t4233 * t506 * t553 * t361 + 0.2e1 / 0.27e2 * t4528 + t1406 * t529 * t564 * t493 / 0.9e1;
5531   t4536 = t528 * t4268 * t1540;
5532   t4545 = t519 * t266;
5533   t4585 = -0.7e1 / 0.9e1 * t4536 - t505 * t1382 * t1532 / 0.3e1 - t505 * t506 * t1506 * t137 / 0.3e1 + 0.2e1 / 0.3e1 * t528 * t4545 * t1378 - t528 * t529 * t1514 * t199 / 0.3e1 - t528 * t1544 * t1373 / 0.3e1 - t528 * t529 * t573 * t493 / 0.6e1 + t1391 * t506 * t553 * t376 / 0.9e1 - t505 * t506 * t559 * t376 / 0.6e1 - 0.2e1 / 0.9e1 * t4220 - t4226 / 0.9e1 + 0.2e1 / 0.27e2 * t4239 + 0.4e1 / 0.27e2 * t4255 - 0.2e1 / 0.9e1 * t4259 - t4266 / 0.9e1 + 0.2e1 / 0.9e1 * t4270 + 0.2e1 / 0.27e2 * t4294 + 0.4e1 / 0.27e2 * t4298 - 0.4e1 / 0.9e1 * t1406 * t1377 * t530 * t9 + 0.4e1 / 0.9e1 * t1391 * t1400 * t1481 * t137;
5534   t4589 = -t1446 / 0.3e1 - 0.4e1 / 0.3e1 * t1449 - 0.4e1 / 0.3e1 * t1452 + 0.2e1 / 0.3e1 * t1455 + 0.5e1 / 0.3e1 * t1459 - 0.2e1 * t1463 - 0.2e1 / 0.3e1 * t1340 - t1342 / 0.3e1 - t1176 / 0.9e1 + 0.2e1 / 0.3e1 * t1185 - t1131 / 0.3e1 - t1156 / 0.9e1 + 0.2e1 / 0.3e1 * t1164 + t10 * (t4449 + t4478 + t4534 + t4585);
5535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5536     v4rho4[2] = t4351 + t4360 + t4371 + t4589;
5537 
5538   t4606 = 0.6e1 * t1134 + 0.12e2 * t4022;
5539   t4626 = t8 * t366 * t1715;
5540   t4629 = t8 * t489 * t1723;
5541   t4632 = t8 * t489 * t1727;
5542   t4635 = t8 * t489 * t1732;
5543   t4638 = t8 * t4012 * t1745;
5544   t4641 = t8 * t3987 * t1754;
5545   t4644 = t8 * t1174 * t1719;
5546   t4646 = t4386 / 0.4e1 + 0.3e1 / 0.2e1 * t8 * t537 * t663 * t9 - 0.3e1 / 0.2e1 * t8 * t198 * t266 * t1514 - t8 * t132 * t194 * t1714 / 0.2e1 - t8 * t132 * t75 * t4606 / 0.2e1 - t8 * t198 * t1709 * t199 / 0.2e1 + t8 * t198 * t126 * t4606 / 0.2e1 + t8 * t1148 * t194 * t1744 / 0.9e1 - 0.5e1 / 0.12e2 * t4135 - t4626 / 0.6e1 - t4629 / 0.2e1 - t4632 / 0.2e1 - t4635 / 0.6e1 + t4638 / 0.27e2 + t4641 / 0.27e2 - t4644 / 0.6e1;
5547   t4660 = -t4422 / 0.2e1 - t4428 / 0.6e1 + t4431 - t4434 / 0.2e1 + 0.2e1 / 0.3e1 * t4441 + t4444 / 0.3e1 + t4447 / 0.9e1 + t4451 / 0.3e1 + t4454 / 0.9e1 - t4460 / 0.2e1 - t4463 / 0.2e1 - 0.5e1 / 0.9e1 * t4138 + t4144 / 0.3e1 - 0.5e1 / 0.36e2 * t3954 + t3962 + t3966 + t4175;
5548   t4671 = t505 * t1396 * t1749;
5549   t4678 = t528 * t1411 * t1758;
5550   t4709 = t4184 - 0.5e1 / 0.9e1 * t4186 - t4197 / 0.3e1 - 0.5e1 / 0.27e2 * t3976 - 0.5e1 / 0.27e2 * t4030 + t1391 * t1400 * t553 * t9 / 0.3e1 - t4671 / 0.6e1 - t505 * t1400 * t9 * t559 / 0.2e1 - t4678 / 0.6e1 - 0.5e1 / 0.27e2 * t4233 * t506 * t1744 * t137 - t505 * t506 * t1714 * t137 / 0.6e1 - t1406 * t1377 * t564 * t9 / 0.3e1 - t528 * t529 * t216 * t1514 / 0.2e1 + t528 * t1377 * t9 * t573 / 0.2e1 + t1406 * t1544 * t1536 / 0.3e1 + t528 * t4545 * t1540 - t528 * t17 * t663 * t530 / 0.2e1;
5551   t4744 = t8 * t204 * t1709;
5552   t4746 = -t528 * t1544 * t1548 / 0.2e1 - t528 * t529 * t1731 * t199 / 0.6e1 - t505 * t1382 * t1749 / 0.2e1 - t505 * t506 * t211 * t1506 / 0.2e1 - 0.5e1 / 0.27e2 * t4288 * t529 * t1753 * t199 - t4497 / 0.3e1 - t4504 / 0.6e1 - t4511 / 0.6e1 + t4518 / 0.9e1 - t4521 / 0.3e1 + t4528 / 0.9e1 + t4536 / 0.3e1 + t4256 + t4299 + t1391 * t506 * t1749 * t137 / 0.3e1 + t1406 * t529 * t1758 * t199 / 0.3e1 - t4744 / 0.8e1;
5553   t4750 = -t1483 - t4317 - t4319 - t4105 + t1189 + t10 * (t4646 + t4660 + t4709 + t4746) + t1748 + t1757 - t1726 - t1730 - t1735;
5554   t4758 = -t1718 - t1722 - 0.2e1 * t1487 - t1490 - t1493 / 0.3e1 - t1496 - t1499 / 0.3e1 - 0.3e1 / 0.2e1 * t1503 - 0.3e1 / 0.2e1 * t1509 + 0.3e1 * t1513 - 0.3e1 / 0.2e1 * t1517;
5555   t4766 = -0.3e1 / 0.2e1 * t1521 - t1525 / 0.2e1 - t4123 + t1530 / 0.3e1 - t1534 / 0.2e1 + t1538 / 0.3e1 + t1542 - t1546 - t1550 / 0.2e1 - t1752 - t1761;
5556   t4769 = -t1712 - 0.3e1 / 0.4e1 * t1553 + 0.3e1 / 0.4e1 * t1418 + t1435 + t1442 - t1449 - t1452 + t1455 - t1459 + t1186 + t1165;
5557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5558     v4rho4[3] = t4750 + t4758 + t4766 + t4769;
5559 
5560   t4781 = -0.12e2 * t1134 - 0.12e2 * t4022;
5561   t4798 = t559 * t559;
5562   t4803 = t564 * t564;
5563   t4808 = t573 * t573;
5564   t4813 = t553 * t553;
5565   t4829 = t4386 / 0.2e1 - 0.2e1 * t8 * t198 * t1709 * t216 - 0.2e1 * t8 * t198 * t266 * t1731 - t8 * t198 * t126 * t4781 / 0.2e1 + t8 * t132 * t75 * t4781 / 0.2e1 - t8 * t483 * t663 * t564 - 0.3e1 * t8 * t198 * t663 * t573 - t8 * t360 * t75 * t4798 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t3981 * t126 * t4803 - t8 * t483 * t126 * t4808 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t4006 * t75 * t4813 + 0.4e1 / 0.9e1 * t8 * t1168 * t266 * t1753 - 0.5e1 / 0.9e1 * t4135 - 0.2e1 / 0.3e1 * t4626 - 0.2e1 * t4629 - 0.2e1 * t4632 - 0.2e1 / 0.3e1 * t4635 + 0.4e1 / 0.27e2 * t4638 + 0.4e1 / 0.27e2 * t4641;
5566   t4859 = t597 * t661;
5567   t4862 = t232 * t1601;
5568   t4867 = t605 * t264;
5569   t4872 = t1679 * t124;
5570   t4873 = t47 * t631;
5571   t4879 = t47 * t650;
5572   t4891 = 0.1e1 / t85 / t760;
5573   t4894 = 0.6160e4 / 0.81e2 * tau[1] * t1588 - 0.2618e4 / 0.81e2 * sigma[2] * t4891;
5574   t4902 = t148 / t1592 / t91 * t55;
5575   t4903 = t583 * t583;
5576   t4908 = t4903 / t85 / t1576 / t760 * t24;
5577   t4910 = 0.160000e6 / 0.31381059609e11 * t4902 * t4908;
5578   t4911 = t623 * t623;
5579   t4916 = 0.20000e5 / 0.243e3 * t4859 * t602 - 0.200e3 / 0.27e2 * t4862 * t241 - 0.100e3 / 0.9e1 * t1667 * t625 + 0.200e3 / 0.9e1 * t4867 * t1660 - 0.200e3 / 0.9e1 * t612 * t1672 - 0.200e3 / 0.9e1 * t4872 * t615 * t4873 + 0.40000e5 / 0.243e3 * t1663 * t1655 + 0.100e3 / 0.9e1 * t1658 * t615 * t4879 - 0.200e3 / 0.27e2 * t612 * t1676 - 0.200e3 / 0.27e2 * t233 * t782 * t1675 - 0.50e2 / 0.27e2 * t233 * t234 * t47 * t4894 - t4910 + 0.10000e5 / 0.243e3 * t598 * t599 * t412 * t4911;
5580   t4917 = t1576 * t585;
5581   t4919 = t1575 / t4917;
5582   t4921 = 0.88000e5 / 0.43046721e8 * t1594 * t4919;
5583   t4922 = t101 * t62;
5584   t4923 = t600 * t600;
5585   t4940 = t1685 * t2197;
5586   t4945 = t1685 * t606;
5587   t4958 = t105 * t629;
5588   t4959 = t4958 * t770;
5589   t4969 = t605 * t661 * t100;
5590   t4972 = t4921 - 0.2000000e7 / 0.6561e4 * t4922 * t4923 * t117 * t124 - 0.36e2 * t1631 * t632 * t650 - 0.4000000e7 / 0.19683e5 * t1645 * t1646 * t264 + 0.24e2 * t630 * t635 * t650 + 0.8e1 * t630 * t1627 * t255 - 0.40000e5 / 0.243e3 * t4940 * t1688 + 0.40000e5 / 0.243e3 * t2198 * t1691 - 0.40000e5 / 0.243e3 * t4945 * t690 * t1603 * t255 + 0.100e3 / 0.9e1 * t607 * t421 * t623 * t650 - 0.200e3 / 0.9e1 * t1680 * t421 * t623 * t631 + 0.40000e5 / 0.243e3 * t4959 * t690 * t600 * t631 - 0.20000e5 / 0.243e3 * t1686 * t690 * t600 * t650 + 0.200e3 / 0.9e1 * t4969 * t609;
5591   t4978 = t124 * t600;
5592   t4988 = t1613 * t239;
5593   t5001 = t106 * t1630;
5594   t5010 = t1645 * t1603;
5595   t5011 = t245 * t124;
5596   t5012 = t5011 * t255;
5597   t5017 = t650 * t100 * t2913;
5598   t5020 = 0.200e3 / 0.9e1 * t1695 * t1699 + 0.200e3 / 0.9e1 * t2190 * t1699 + 0.20000e5 / 0.81e2 * t597 * t4978 * t690 * t623 * t100 + 0.200e3 / 0.27e2 * t607 * t421 * t1613 * t255 + 0.40000e5 / 0.729e3 * t771 * t690 * t4988 - 0.400e3 / 0.9e1 * t1679 * t1636 * t241 + 0.200e3 / 0.9e1 * t605 * t1642 * t241 + 0.200e3 / 0.27e2 * t605 * t1627 * t241 + 0.400e3 / 0.9e1 * t5001 * t1633 * t241 - 0.100e3 / 0.9e1 * t1667 * t616 - 0.2000000e7 / 0.6561e4 * t2080 * t2081 * t623 + 0.4000000e7 / 0.19683e5 * t5010 * t5012 - 0.400e3 / 0.9e1 * t1679 * t256 * t5017;
5599   t5045 = params->b * t101;
5600   t5066 = t107 / t1629 / t116;
5601   t5067 = t631 * t631;
5602   t5071 = t650 * t650;
5603   t5088 = t584 / t84 / t2675;
5604   t5090 = 0.195800e6 / 0.4782969e7 * t582 * t5088;
5605   t5091 = t225 * t4891;
5606   t5093 = 0.26180e5 / 0.19683e5 * t224 * t5091;
5607   t5097 = t148 / t1571 / t119 * t55;
5608   t5108 = -0.40000e5 / 0.243e3 * t1686 * t690 * t608 * t623 + 0.12e2 * t630 * t661 * t631 - 0.4e1 * t246 * t1601 * t255 - 0.6e1 * t246 * t661 * t650 - 0.4e1 * t246 * t264 * t1626 - t246 * t124 * (0.1000e4 / 0.27e2 * t2123 * t623 + 0.500e3 / 0.27e2 * t638 * t4911 + 0.2000e4 / 0.81e2 * t638 * t4988 + 0.250e3 / 0.81e2 * t247 * t4894 + 0.2500000e7 / 0.6561e4 * t5045 * t62 * t4923 + 0.5000000e7 / 0.6561e4 * t1616 * t644 * t623 + 0.625000e6 / 0.6561e4 * t643 * t62 * t4911 + 0.2500000e7 / 0.19683e5 * t643 * t252 * t1613 + 0.125000e6 / 0.19683e5 * t251 * t62 * t4894) + 0.24e2 * t5066 * t124 * t5067 + 0.6e1 * t630 * t124 * t5071 - 0.24e2 * t1631 * t264 * t1632 + 0.10000e5 / 0.243e3 * t598 * t4923 * t19 * t412 - 0.50e2 / 0.9e1 * t233 * t4911 * t44 * t47 - t5090 + t5093 + t118 * (-0.160000e6 / 0.31381059609e11 * t5097 * t4908 + 0.88000e5 / 0.43046721e8 * t1573 * t4919 - 0.195800e6 / 0.4782969e7 * t656 * t5088 + 0.26180e5 / 0.19683e5 * t261 * t5091 + t4910 - t4921 + t5090 - t5093);
5609   t5115 = -0.2e1 / 0.3e1 * t4644 + 0.4e1 / 0.3e1 * t4441 + 0.2e1 / 0.3e1 * t4444 + 0.2e1 / 0.9e1 * t4447 + 0.2e1 / 0.3e1 * t4451 + 0.2e1 / 0.9e1 * t4454 - 0.20e2 / 0.27e2 * t4138 + t3962 + t3966 - 0.20e2 / 0.27e2 * t4186 + 0.2e1 / 0.3e1 * t1391 * t506 * t553 * t559 + 0.2e1 / 0.3e1 * t1406 * t529 * t564 * t573 - 0.2e1 * t528 * t1544 * t1758 - 0.2e1 / 0.3e1 * t528 * t529 * t1731 * t216 - 0.2e1 / 0.3e1 * t505 * t506 * t1714 * t211 - 0.2e1 / 0.3e1 * t4671 - 0.2e1 / 0.3e1 * t4678 - 0.3e1 / 0.8e1 * t8 * t82 * (t4916 + t4972 + t5020 + t5108) - t4744 / 0.2e1;
5610   t5125 = t10 * (t4829 + t5115) - t4105 + 0.4e1 / 0.3e1 * t1455 - 0.3e1 / 0.2e1 * t1711 - t4123 - 0.2e1 * t1717 - 0.2e1 * t1721 - 0.6e1 * t1725 - 0.6e1 * t1729 - 0.2e1 * t1734 + t1418;
5611   t5137 = -0.3e1 / 0.2e1 * t1553 + 0.4e1 / 0.3e1 * t1442 - 0.2e1 / 0.3e1 * t1493 - 0.2e1 * t1496 - 0.2e1 / 0.3e1 * t1499 - 0.4e1 * t1487 - 0.2e1 * t1490 + 0.4e1 / 0.9e1 * t1747 - 0.2e1 * t1751 + 0.4e1 / 0.9e1 * t1756 - 0.2e1 * t1760;
5612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5613     v4rho4[4] = t5125 + t5137;
5614 
5615   t5145 = t670 * t1780;
5616   t5148 = t1992 * t296 / 0.9e1;
5617   t5149 = t1773 * t675;
5618   t5151 = t670 * t1784;
5619   t5153 = t670 * t1787;
5620   t5171 = t1773 * t742;
5621   t5173 = t670 * t1962;
5622   t5181 = t3762 * t288;
5623   t5188 = t3839 * t1240;
5624   t5194 = t66 * t192;
5625   t5215 = t404 * t167;
5626   t5218 = t156 * t437;
5627   t5221 = t29 * t1249;
5628   t5232 = t1252 * t62;
5629   t5248 = -0.125e3 / 0.54e2 * t2532 * t1818 + 0.500e3 / 0.81e2 * t1812 * t156 - 0.5500e4 / 0.243e3 * t452 * t5215 + 0.500e3 / 0.81e2 * t452 * t5218 - 0.125e3 / 0.162e3 * t452 * t5221 + 0.38500e5 / 0.2187e4 * t175 * t1228 - 0.312500e6 / 0.6561e4 * t3715 * t285 * t1240 + 0.2500000e7 / 0.19683e5 * t1252 * t724 * t413 - 0.312500e6 / 0.6561e4 * t5232 * t691 * t437 - 0.6875000e7 / 0.59049e5 * t457 * t1832 * t167 + 0.625000e6 / 0.19683e5 * t457 * t724 * t437 - 0.78125e5 / 0.19683e5 * t457 * t285 * t1249 + 0.19250000e8 / 0.531441e6 * t179 * t62 * t1228;
5630   t5251 = -0.6e1 * t1268 * t293 * t1269 + 0.6e1 * t444 * t739 * t445 + 0.1000000e7 / 0.19683e5 * t3761 * t5181 - 0.18e2 * t2830 * t288 * t464 * t183 + 0.250000e6 / 0.6561e4 * t5188 * t1956 - 0.1000000e7 / 0.19683e5 * t1954 * t1955 * t156 + 0.125000e6 / 0.6561e4 * t1954 * t5194 * t29 - 0.3e1 * t174 * t739 * t464 - t174 * t293 * t1262 - t174 * t1328 * t288 - 0.3e1 * t174 * t475 * t727 - 0.3e1 * t174 * t192 * t1835 - t174 * t73 * t5248;
5631   t5255 = t73 * t437;
5632   t5256 = t418 * t5255;
5633   t5260 = t418 * t739 * t42;
5634   t5280 = t1207 * t2590;
5635   t5286 = t418 * t475 * t42;
5636   t5290 = t408 * t475 * t43;
5637   t5293 = -0.3e1 * t174 * t1950 * t183 - 0.25e2 / 0.36e2 * t5256 * t696 + 0.100e3 / 0.9e1 * t5260 * t423 + 0.50e2 / 0.9e1 * t1908 * t1194 + 0.50e2 / 0.9e1 * t418 * t1807 * t169 + 0.100e3 / 0.9e1 * t418 * t1809 * t169 + 0.50e2 / 0.9e1 * t418 * t1836 * t169 + 0.50e2 / 0.9e1 * t418 * t1805 * t169 - 0.100e3 / 0.9e1 * t1201 * t1799 * t169 - 0.10000e5 / 0.243e3 * t5280 * t1210 + 0.10000e5 / 0.243e3 * t2591 * t1214 - 0.25e2 / 0.36e2 * t5286 * t696 - 0.1250e4 / 0.243e3 * t5290 * t692;
5638   t5296 = t418 * t192 * t167;
5639   t5306 = t3866 * t419;
5640   t5338 = -0.25e2 / 0.18e2 * t5296 * t696 + 0.10000e5 / 0.243e3 * t1891 * t690 * t156 * t413 - 0.110000e6 / 0.2187e4 * t689 * t690 * t5215 - 0.25e2 / 0.18e2 * t5306 * t421 * t29 * t1269 - 0.100e3 / 0.27e2 * t1202 * t421 * t156 * t445 - 0.550e3 / 0.81e2 * t420 * t421 * t404 * t183 - 0.100e3 / 0.9e1 * t1790 * t1301 - 0.1250e4 / 0.729e3 * t689 * t690 * t5221 - 0.25e2 / 0.36e2 * t1218 * t1937 - 0.25e2 / 0.36e2 * t1933 * t1937 - 0.25e2 / 0.108e3 * t420 * t421 * t29 * t1262 - 0.10000e5 / 0.243e3 * t1207 * t715 * t415 - 0.10000e5 / 0.243e3 * t1207 * t728 * t415;
5641   t5346 = t1201 * t1217;
5642   t5349 = t1201 * t1932;
5643   t5372 = t29 * t42;
5644   t5376 = -0.1250e4 / 0.243e3 * t1924 * t1927 + 0.20000e5 / 0.729e3 * t1924 * t1896 + 0.10000e5 / 0.729e3 * t689 * t690 * t5218 + 0.25e2 / 0.18e2 * t5346 * t1900 + 0.25e2 / 0.18e2 * t5349 * t1900 + 0.100e3 / 0.27e2 * t1218 * t1904 + 0.100e3 / 0.27e2 * t1933 * t1904 + 0.50e2 / 0.27e2 * t420 * t421 * t156 * t464 + 0.50e2 / 0.9e1 * t709 * t1312 - 0.10000e5 / 0.243e3 * t1913 * t1296 + 0.50e2 / 0.9e1 * t1917 * t439 + 0.50e2 / 0.9e1 * t1920 * t439 + 0.50e2 / 0.27e2 * t709 * t1316 - 0.1250e4 / 0.81e2 * t408 * t192 * t413 * t690 * t5372;
5645   t5383 = 0.1e1 / t27 / t1221 / t918 * t1282 * t24;
5646   t5387 = t55 * t1285 * t394;
5647   t5391 = t47 * t1223 * sigma[0];
5648   t5394 = t24 * t1228;
5649   t5398 = 0.20000e5 / 0.10460353203e11 * t3816 * t5383;
5650   t5400 = 0.9500e4 / 0.14348907e8 * t1281 * t5387;
5651   t5402 = 0.17050e5 / 0.1594323e7 * t393 * t5391;
5652   t5404 = 0.1540e4 / 0.6561e4 * t151 * t5394;
5653   t5418 = t162 * t438 * t183;
5654   t5423 = t410 * t414 * t183;
5655   t5443 = t162 * t168 * t445;
5656   t5446 = t67 * (0.20000e5 / 0.10460353203e11 * t3933 * t5383 - 0.9500e4 / 0.14348907e8 * t1321 * t5387 + 0.17050e5 / 0.1594323e7 * t470 * t5391 - 0.1540e4 / 0.6561e4 * t188 * t5394 - t5398 + t5400 - t5402 + t5404) - 0.50e2 / 0.9e1 * t1882 * t430 + t5402 - 0.200e3 / 0.9e1 * t1201 * t715 * t1792 - 0.200e3 / 0.9e1 * t1201 * t728 * t1792 - 0.100e3 / 0.9e1 * t1790 * t3923 - 0.100e3 / 0.9e1 * t1790 * t5418 + 0.20000e5 / 0.243e3 * t3893 * t289 * t5423 + 0.2500e4 / 0.243e3 * t3870 * t1796 + 0.1250e4 / 0.243e3 * t1208 * t690 * t1818 * t183 + 0.1250e4 / 0.243e3 * t1208 * t690 * t691 * t464 - 0.1250e4 / 0.81e2 * t408 * t5255 * t690 * t5372 * t167 + 0.100e3 / 0.3e1 * t3866 * t289 * t5443;
5657   t5461 = t410 * t412 * t437 * t167;
5658   t5489 = -0.2500e4 / 0.243e3 * t3894 * t690 * t691 * t445 + 0.1250e4 / 0.81e2 * t3899 * t690 * t1892 * t183 - 0.20000e5 / 0.729e3 * t1208 * t690 * t1815 * t183 - 0.10000e5 / 0.243e3 * t1913 * t5461 + 0.25e2 / 0.18e2 * t1202 * t421 * t695 * t464 + 0.24e2 * t3749 * t289 * t1269 - t5404 - 0.18e2 * t1268 * t715 * t445 - 0.18e2 * t1268 * t728 * t445 - 0.1000000e7 / 0.19683e5 * t1289 * t1290 * t293 - t5400 + 0.6e1 * t444 * t1807 * t183 + 0.12e2 * t444 * t1809 * t183 + 0.6e1 * t444 * t1836 * t183;
5659   t5503 = t418 * t293;
5660   t5513 = t408 * t739;
5661   t5524 = 0.6e1 * t444 * t1805 * t183 + 0.6e1 * t444 * t715 * t464 + 0.6e1 * t444 * t728 * t464 + 0.2e1 * t444 * t289 * t1262 + 0.50e2 / 0.9e1 * t5503 * t1301 - 0.50e2 / 0.9e1 * t730 * t1312 - 0.50e2 / 0.27e2 * t730 * t1316 + t5398 - 0.125000e6 / 0.6561e4 * t1954 * t3762 * t695 + 0.10000e5 / 0.243e3 * t5513 * t415 + 0.50e2 / 0.9e1 * t3794 * t1888 + 0.50e2 / 0.9e1 * t1299 * t727 * t413 * t421 + 0.550e3 / 0.81e2 * t426 * t1861;
5662   t5534 = t1249 * t44;
5663   t5538 = t160 * t1950;
5664   t5543 = t1240 * t19;
5665   t5563 = 0.550e3 / 0.81e2 * t161 * t701 * t1860 + 0.25e2 / 0.108e3 * t3831 * t280 + 0.25e2 / 0.36e2 * t1307 * t702 + 0.25e2 / 0.36e2 * t426 * t1877 + 0.25e2 / 0.108e3 * t161 * t5534 * t279 - 0.50e2 / 0.9e1 * t5538 * t169 - 0.50e2 / 0.9e1 * t1882 * t439 - 0.1250e4 / 0.243e3 * t409 * t5543 * t2789 + 0.10000e5 / 0.243e3 * t1869 * t1296 - 0.50e2 / 0.27e2 * t1307 * t706 + 0.125000e6 / 0.6561e4 * t2563 * t1955 * t1818 - 0.7700e4 / 0.729e3 * t161 * t162 * t47 * t1228 - 0.100e3 / 0.27e2 * t426 * t1866 - 0.50e2 / 0.27e2 * t161 * t1876 * t705;
5666   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5667     v4rho3sigma[0] = t274 * t1390 * t295 * t1149 / 0.9e1 - t1982 * t1983 * t1158 / 0.2e1 - 0.2e1 / 0.3e1 * t5145 + t5148 - 0.2e1 / 0.3e1 * t5149 - 0.4e1 * t5151 - 0.2e1 * t5153 - t274 * t504 * t741 * t361 / 0.2e1 - 0.3e1 / 0.2e1 * t274 * t673 * t1961 * t137 - 0.3e1 / 0.2e1 * t274 * t673 * t741 * t376 - t274 * t673 * t295 * t1352 / 0.2e1 - t5171 / 0.2e1 - 0.3e1 / 0.2e1 * t5173 - 0.3e1 / 0.8e1 * t274 * t275 * (t5251 + t5293 + t5338 + t5376 + t5446 + t5489 + t5524 + t5563);
5668 
5669   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5670     v4rho3sigma[1] = 0.0e0;
5671 
5672   t5571 = t1992 * t320 / 0.9e1;
5673   t5572 = t1773 * t748;
5674   t5574 = t670 * t1970;
5675   t5576 = t670 * t1974;
5676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5677     v4rho3sigma[2] = t5571 - 0.2e1 / 0.3e1 * t5572 - 0.2e1 / 0.3e1 * t5574 - 0.2e1 * t5576 + t274 * t1405 * t319 * t1169 / 0.9e1 - t1982 * t2000 * t1178 / 0.2e1 - t274 * t746 * t319 * t1137 / 0.2e1;
5678 
5679   t5590 = 0.4e1 / 0.3e1 * t670 * t1988;
5680   t5604 = t1773 * t752;
5681   t5606 = t669 * t1981;
5682   t5608 = 0.4e1 / 0.9e1 * t5606 * t1984;
5683   t5610 = t519 * t2 * t4;
5684   t5611 = t5610 * t1994;
5685   t5618 = t1991 * t1981;
5686   t5622 = t1147 * t295;
5687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5688     v4rho3sigma[3] = -t5590 - t274 * t673 * t1961 * t211 / 0.2e1 - t1992 * t673 * t295 / 0.2e1 - t1982 * t1983 * t1386 / 0.6e1 - t1992 * t673 * t741 * t9 - 0.2e1 / 0.9e1 * t5604 - t5608 + t5611 / 0.6e1 - t1982 * t359 * t741 * t507 / 0.3e1 - 0.2e1 / 0.9e1 * t5145 - t5618 * t1983 * t1401 / 0.3e1 + t1982 * t5622 * t1392 / 0.9e1 + t5148 - 0.4e1 / 0.9e1 * t5149 - 0.4e1 / 0.3e1 * t5151 - 0.2e1 / 0.3e1 * t5153 - t5171 / 0.3e1 - t5173 / 0.2e1;
5689 
5690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5691     v4rho3sigma[4] = 0.0e0;
5692 
5693   t5634 = t1773 * t757;
5694   t5637 = 0.4e1 / 0.9e1 * t5606 * t2001;
5695   t5638 = t5610 * t2005;
5696   t5640 = t1167 * t319;
5697   t5653 = t1773 * t823;
5698   t5656 = 0.4e1 / 0.3e1 * t670 * t2011;
5699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5700     v4rho3sigma[5] = t5571 - 0.4e1 / 0.9e1 * t5572 - 0.2e1 / 0.9e1 * t5574 - 0.2e1 / 0.3e1 * t5576 - 0.2e1 / 0.9e1 * t5634 - t5637 - t5638 / 0.6e1 + t1982 * t5640 * t1407 / 0.9e1 + t5618 * t2000 * t1378 / 0.3e1 - t1982 * t2000 * t1373 / 0.6e1 + t1992 * t746 * t319 / 0.2e1 - t5653 / 0.6e1 - t5656 - t274 * t527 * t822 * t484 / 0.6e1 - t274 * t746 * t822 * t493 / 0.2e1;
5701 
5702   t5669 = t670 * t2016;
5703   t5681 = t670 * t2020;
5704   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5705     v4rho3sigma[6] = t5148 - 0.2e1 / 0.9e1 * t5149 - t5171 / 0.6e1 - 0.4e1 / 0.9e1 * t5604 - t5608 - t5590 - 0.4e1 / 0.3e1 * t5611 - 0.2e1 / 0.9e1 * t5669 + t1982 * t5622 * t1528 / 0.9e1 - t274 * t504 * t741 * t553 / 0.6e1 - t5618 * t1983 * t1481 / 0.3e1 - 0.2e1 / 0.3e1 * t5681 - t1982 * t1983 * t1532 / 0.6e1 - t274 * t673 * t741 * t559 / 0.2e1 - t274 * t673 * t295 * t1506 / 0.2e1;
5706 
5707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5708     v4rho3sigma[7] = 0.0e0;
5709 
5710   t5698 = t670 * t2025;
5711   t5706 = t670 * t2029;
5712   t5715 = t670 * t2032;
5713   t5724 = t670 * t2207;
5714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5715     v4rho3sigma[8] = t5571 - 0.2e1 / 0.9e1 * t5572 - 0.4e1 / 0.9e1 * t5634 - t5637 + 0.4e1 / 0.3e1 * t5638 - t5653 / 0.3e1 - t5656 - 0.2e1 / 0.9e1 * t5698 + t1982 * t5640 * t1536 / 0.9e1 + t5618 * t2000 * t1540 / 0.3e1 - 0.4e1 / 0.3e1 * t5706 - t1982 * t482 * t822 * t530 / 0.3e1 + t1992 * t746 * t822 * t9 - 0.2e1 / 0.3e1 * t5715 - t1982 * t2000 * t1548 / 0.6e1 - t274 * t746 * t319 * t1514 / 0.2e1 - t5724 / 0.2e1 - t274 * t746 * t2206 * t199 / 0.2e1;
5716 
5717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5718     v4rho3sigma[9] = t5148 - 0.2e1 / 0.3e1 * t5604 - 0.2e1 / 0.3e1 * t5669 - 0.2e1 * t5681 + t274 * t1390 * t295 * t1744 / 0.9e1 - t1982 * t1983 * t1749 / 0.2e1 - t274 * t673 * t295 * t1714 / 0.2e1;
5719 
5720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5721     v4rho3sigma[10] = 0.0e0;
5722 
5723   t5793 = t593 * t239;
5724   t5796 = t228 * t623;
5725   t5799 = t87 * t1613;
5726   t5810 = t1616 * t62;
5727   t5826 = -0.125e3 / 0.54e2 * t2653 * t2129 + 0.500e3 / 0.81e2 * t2123 * t228 - 0.5500e4 / 0.243e3 * t638 * t5793 + 0.500e3 / 0.81e2 * t638 * t5796 - 0.125e3 / 0.162e3 * t638 * t5799 + 0.38500e5 / 0.2187e4 * t247 * t1588 - 0.312500e6 / 0.6561e4 * t5045 * t309 * t1603 + 0.2500000e7 / 0.19683e5 * t1616 * t805 * t600 - 0.312500e6 / 0.6561e4 * t5810 * t772 * t623 - 0.6875000e7 / 0.59049e5 * t643 * t2143 * t239 + 0.625000e6 / 0.19683e5 * t643 * t805 * t623 - 0.78125e5 / 0.19683e5 * t643 * t309 * t1613 + 0.19250000e8 / 0.531441e6 * t251 * t62 * t1588;
5728   t5839 = 0.1e1 / t85 / t1576 / t959 * t1574 * t24;
5729   t5843 = t55 * t1578 * t583;
5730   t5847 = t47 * t1583 * sigma[2];
5731   t5850 = t24 * t1588;
5732   t5854 = 0.20000e5 / 0.10460353203e11 * t4902 * t5839;
5733   t5856 = 0.9500e4 / 0.14348907e8 * t1594 * t5843;
5734   t5858 = 0.17050e5 / 0.1594323e7 * t582 * t5847;
5735   t5860 = 0.1540e4 / 0.6561e4 * t223 * t5850;
5736   t5872 = -0.6e1 * t1631 * t317 * t1632 - 0.3e1 * t246 * t820 * t650 - t246 * t317 * t1626 - t246 * t1601 * t312 - 0.3e1 * t246 * t661 * t808 - 0.3e1 * t246 * t264 * t2146 - t246 * t124 * t5826 - 0.3e1 * t246 * t2075 * t255 + 0.6e1 * t630 * t820 * t631 + t118 * (0.20000e5 / 0.10460353203e11 * t5097 * t5839 - 0.9500e4 / 0.14348907e8 * t1573 * t5843 + 0.17050e5 / 0.1594323e7 * t656 * t5847 - 0.1540e4 / 0.6561e4 * t260 * t5850 - t5854 + t5856 - t5858 + t5860) + 0.24e2 * t5066 * t313 * t1632 - 0.18e2 * t1631 * t796 * t631 - 0.18e2 * t1631 * t809 * t631;
5737   t5883 = t597 * t661 * t101;
5738   t5887 = t605 * t264 * t239;
5739   t5892 = t87 * t100;
5740   t5896 = t124 * t623;
5741   t5897 = t605 * t5896;
5742   t5910 = t605 * t820 * t100;
5743   t5917 = 0.2e1 * t630 * t313 * t1626 + 0.6e1 * t630 * t814 * t650 - 0.1000000e7 / 0.19683e5 * t1645 * t1646 * t317 - 0.1250e4 / 0.243e3 * t5883 * t773 - 0.25e2 / 0.18e2 * t5887 * t777 - 0.1250e4 / 0.81e2 * t597 * t264 * t600 * t690 * t5892 - 0.25e2 / 0.36e2 * t5897 * t777 + 0.50e2 / 0.9e1 * t605 * t2118 * t241 + 0.100e3 / 0.9e1 * t605 * t2120 * t241 + 0.50e2 / 0.9e1 * t605 * t2147 * t241 + 0.100e3 / 0.9e1 * t5910 * t609 + 0.50e2 / 0.9e1 * t2156 * t1699 + 0.50e2 / 0.9e1 * t2156 * t1703;
5744   t5919 = t1685 * t2740;
5745   t5930 = t1679 * t2155;
5746   t5953 = -0.10000e5 / 0.243e3 * t5919 * t1688 + 0.10000e5 / 0.243e3 * t2741 * t1691 - 0.100e3 / 0.9e1 * t2035 * t1660 + 0.10000e5 / 0.243e3 * t2159 * t690 * t228 * t600 - 0.100e3 / 0.9e1 * t5930 * t1682 - 0.1250e4 / 0.729e3 * t771 * t690 * t5799 - 0.10000e5 / 0.243e3 * t2184 * t1655 + 0.50e2 / 0.27e2 * t790 * t1676 - 0.25e2 / 0.36e2 * t1695 * t2194 - 0.25e2 / 0.36e2 * t2190 * t2194 - 0.25e2 / 0.108e3 * t607 * t421 * t87 * t1626 + 0.20000e5 / 0.729e3 * t2198 * t2164 + 0.10000e5 / 0.729e3 * t771 * t690 * t5796;
5747   t5954 = t1679 * t1694;
5748   t5957 = t1679 * t2189;
5749   t5985 = t5001 * t606;
5750   t5994 = 0.25e2 / 0.18e2 * t5954 * t2169 + 0.25e2 / 0.18e2 * t5957 * t2169 + 0.100e3 / 0.27e2 * t1695 * t2173 + 0.100e3 / 0.27e2 * t2190 * t2173 + 0.50e2 / 0.27e2 * t607 * t421 * t228 * t650 + 0.50e2 / 0.9e1 * t2176 * t625 - 0.10000e5 / 0.243e3 * t1685 * t796 * t602 + 0.50e2 / 0.9e1 * t2179 * t625 - 0.10000e5 / 0.243e3 * t1685 * t809 * t602 + 0.50e2 / 0.9e1 * t790 * t1672 - 0.25e2 / 0.36e2 * t4969 * t777 - 0.110000e6 / 0.2187e4 * t771 * t690 * t5793 - 0.25e2 / 0.18e2 * t5985 * t421 * t87 * t1632 - 0.100e3 / 0.27e2 * t1680 * t421 * t228 * t631;
5751   t6005 = t599 * t601 * t255;
5752   t6028 = t234 * t240 * t631;
5753   t6043 = -0.550e3 / 0.81e2 * t607 * t421 * t593 * t255 - 0.1250e4 / 0.243e3 * t2198 * t2201 + 0.20000e5 / 0.243e3 * t4958 * t313 * t6005 + 0.2500e4 / 0.243e3 * t4940 * t2041 + 0.1250e4 / 0.243e3 * t1686 * t690 * t2129 * t255 + 0.1250e4 / 0.243e3 * t1686 * t690 * t772 * t650 - 0.200e3 / 0.9e1 * t1679 * t796 * t2037 - 0.200e3 / 0.9e1 * t1679 * t809 * t2037 - 0.100e3 / 0.9e1 * t2035 * t5017 + 0.100e3 / 0.3e1 * t5001 * t313 * t6028 - 0.2500e4 / 0.243e3 * t4959 * t690 * t772 * t631 + 0.1250e4 / 0.81e2 * t4945 * t690 * t2160 * t255 - 0.20000e5 / 0.729e3 * t1686 * t690 * t2126 * t255;
5754   t6044 = t1603 * t19;
5755   t6048 = t605 * t317;
5756   t6079 = -0.1250e4 / 0.243e3 * t598 * t6044 * t2907 + 0.50e2 / 0.9e1 * t6048 * t1660 - 0.50e2 / 0.27e2 * t1667 * t787 - 0.100e3 / 0.27e2 * t612 * t2099 - 0.50e2 / 0.27e2 * t233 * t2085 * t786 + 0.6e1 * t630 * t2118 * t255 + 0.12e2 * t630 * t2120 * t255 + 0.6e1 * t630 * t796 * t650 + 0.6e1 * t630 * t2147 * t255 + 0.6e1 * t630 * t809 * t650 - t5856 - t5860 - 0.7700e4 / 0.729e3 * t233 * t234 * t47 * t1588 + 0.50e2 / 0.9e1 * t4867 * t2094;
5757   t6087 = t1613 * t44;
5758   t6102 = t232 * t2075;
5759   t6107 = t597 * t820;
5760   t6116 = 0.50e2 / 0.9e1 * t1658 * t808 * t600 * t421 + 0.25e2 / 0.36e2 * t612 * t2086 + 0.25e2 / 0.108e3 * t233 * t6087 * t303 - 0.125000e6 / 0.6561e4 * t2080 * t5011 * t776 + 0.125000e6 / 0.6561e4 * t2711 * t2081 * t2129 + 0.550e3 / 0.81e2 * t612 * t2090 + 0.550e3 / 0.81e2 * t233 * t782 * t2089 - 0.50e2 / 0.9e1 * t6102 * t241 - 0.50e2 / 0.9e1 * t2102 * t625 + 0.10000e5 / 0.243e3 * t6107 * t602 - 0.50e2 / 0.9e1 * t811 * t1672 + 0.10000e5 / 0.243e3 * t2107 * t1655 - 0.50e2 / 0.27e2 * t811 * t1676;
5761   t6127 = t234 * t624 * t255;
5762   t6132 = t599 * t412 * t623 * t239;
5763   t6139 = t4922 * t1603;
5764   t6145 = t117 * t264;
5765   t6149 = t5011 * t312;
5766   t6158 = t5854 + 0.25e2 / 0.108e3 * t4862 * t304 + 0.25e2 / 0.36e2 * t1667 * t783 - 0.1250e4 / 0.81e2 * t597 * t5896 * t690 * t5892 * t239 - 0.100e3 / 0.9e1 * t2035 * t6127 - 0.10000e5 / 0.243e3 * t2184 * t6132 + 0.25e2 / 0.18e2 * t1680 * t421 * t776 * t650 + 0.250000e6 / 0.6561e4 * t6139 * t2082 - 0.1000000e7 / 0.19683e5 * t2080 * t2081 * t228 + 0.125000e6 / 0.6561e4 * t2080 * t6145 * t87 + 0.1000000e7 / 0.19683e5 * t5010 * t6149 - 0.18e2 * t2951 * t312 * t650 * t255 - 0.50e2 / 0.9e1 * t2102 * t616 + t5858;
5767   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5768     v4rho3sigma[11] = -0.3e1 / 0.2e1 * t274 * t746 * t822 * t573 - t274 * t746 * t319 * t1731 / 0.2e1 - t274 * t527 * t822 * t564 / 0.2e1 - 0.3e1 / 0.2e1 * t274 * t746 * t2206 * t216 - 0.3e1 / 0.2e1 * t5724 - t5653 / 0.2e1 + t5571 + t274 * t1405 * t319 * t1753 / 0.9e1 - t1982 * t2000 * t1758 / 0.2e1 - 0.4e1 * t5706 - 0.2e1 * t5715 - 0.2e1 / 0.3e1 * t5698 - 0.2e1 / 0.3e1 * t5634 - 0.3e1 / 0.8e1 * t274 * t299 * (t5872 + t5917 + t5953 + t5994 + t6043 + t6079 + t6116 + t6158);
5769 
5770   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5771     v4rho3lapl[0] = 0.0e0;
5772 
5773   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5774     v4rho3lapl[1] = 0.0e0;
5775 
5776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5777     v4rho3lapl[2] = 0.0e0;
5778 
5779   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5780     v4rho3lapl[3] = 0.0e0;
5781 
5782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5783     v4rho3lapl[4] = 0.0e0;
5784 
5785   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5786     v4rho3lapl[5] = 0.0e0;
5787 
5788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5789     v4rho3lapl[6] = 0.0e0;
5790 
5791   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5792     v4rho3lapl[7] = 0.0e0;
5793 
5794   t6170 = t1992 * t336 / 0.9e1;
5795   t6171 = t1773 * t829;
5796   t6173 = t670 * t2220;
5797   t6175 = t670 * t2223;
5798   t6189 = t670 * t2216;
5799   t6198 = t1773 * t865;
5800   t6200 = t670 * t2322;
5801   t6207 = t39 * t1249;
5802   t6215 = t832 * t437;
5803   t6224 = 0.500e3 / 0.27e2 * t2532 * t2267 - 0.2500e4 / 0.81e2 * t1813 + 0.20000e5 / 0.243e3 * t1816 - 0.2500e4 / 0.81e2 * t1819 + 0.500e3 / 0.81e2 * t452 * t6207 - 0.110000e6 / 0.2187e4 * t1821 + 0.2500000e7 / 0.6561e4 * t3715 * t329 * t1240 - 0.12500000e8 / 0.19683e5 * t1824 + 0.2500000e7 / 0.6561e4 * t5232 * t6215 + 0.25000000e8 / 0.59049e5 * t1827 - 0.3125000e7 / 0.19683e5 * t1830 + 0.625000e6 / 0.19683e5 * t457 * t329 * t1249 - 0.55000000e8 / 0.531441e6 * t1833;
5804   t6267 = t418 * t2283;
5805   t6270 = t418 * t2261;
5806   t6275 = t1207 * t852;
5807   t6278 = t418 * t2280;
5808   t6281 = -t174 * t73 * t6224 - t174 * t1328 * t332 - 0.3e1 * t174 * t475 * t861 - 0.3e1 * t174 * t192 * t2279 + 0.100000e6 / 0.729e3 * t1797 - 0.18e2 * t1268 * t862 * t445 + 0.24e2 * t3749 * t333 * t1269 - 0.18e2 * t1268 * t852 * t445 + 0.6e1 * t444 * t2280 * t183 + 0.6e1 * t444 * t862 * t464 + 0.2e1 * t444 * t333 * t1262 + 0.6e1 * t444 * t2283 * t183 + 0.12e2 * t444 * t2261 * t183 + 0.6e1 * t444 * t852 * t464 + 0.50e2 / 0.27e2 * t420 * t421 * t39 * t1262 + 0.50e2 / 0.9e1 * t6267 * t169 + 0.100e3 / 0.9e1 * t6270 * t169 + 0.50e2 / 0.9e1 * t2301 * t439 - 0.10000e5 / 0.243e3 * t6275 * t415 + 0.50e2 / 0.9e1 * t6278 * t169;
5809   t6284 = t1207 * t862;
5810   t6316 = t408 * t1217;
5811   t6327 = t3866 * t333;
5812   t6330 = 0.50e2 / 0.9e1 * t2304 * t439 - 0.10000e5 / 0.243e3 * t6284 * t415 - 0.100e3 / 0.9e1 * t2228 * t1301 + 0.50e2 / 0.9e1 * t846 * t1312 - 0.10000e5 / 0.243e3 * t2309 * t1296 + 0.50e2 / 0.27e2 * t846 * t1316 + 0.10000e5 / 0.243e3 * t5290 * t833 + 0.10000e5 / 0.243e3 * t1924 * t2290 + 0.10000e5 / 0.729e3 * t689 * t690 * t6207 + 0.50e2 / 0.9e1 * t5286 * t837 + 0.100e3 / 0.9e1 * t5296 * t837 + 0.50e2 / 0.9e1 * t1218 * t2298 + 0.50e2 / 0.9e1 * t5256 * t837 + 0.50e2 / 0.9e1 * t1933 * t2298 + 0.100e3 / 0.9e1 * t5306 * t421 * t39 * t1269 + 0.10000e5 / 0.81e2 * t6316 * t2313 - 0.100e3 / 0.9e1 * t5346 * t2317 - 0.100e3 / 0.9e1 * t5349 * t2317 + 0.20000e5 / 0.243e3 * t3894 * t690 * t832 * t445 + 0.100e3 / 0.3e1 * t6327 * t5443;
5813   t6332 = t1201 * t852;
5814   t6335 = t1201 * t862;
5815   t6342 = t3893 * t333;
5816   t6355 = t1207 * t73 * t413;
5817   t6384 = t412 * t39;
5818   t6392 = -0.200e3 / 0.9e1 * t6332 * t1792 - 0.200e3 / 0.9e1 * t6335 * t1792 - 0.100e3 / 0.9e1 * t2228 * t5418 - 0.10000e5 / 0.243e3 * t2309 * t5461 + 0.20000e5 / 0.243e3 * t6342 * t5423 - 0.20000e5 / 0.243e3 * t3870 * t2232 - 0.10000e5 / 0.243e3 * t1208 * t690 * t2267 * t183 + 0.10000e5 / 0.81e2 * t1891 * t690 * t6215 - 0.10000e5 / 0.81e2 * t6355 * t690 * t836 * t42 - 0.100e3 / 0.9e1 * t2228 * t3923 - 0.100e3 / 0.9e1 * t1202 * t421 * t2297 * t183 - 0.10000e5 / 0.243e3 * t1208 * t690 * t2297 * t167 + 0.50e2 / 0.9e1 * t3794 * t2258 - 0.50e2 / 0.27e2 * t3831 * t324 - 0.50e2 / 0.9e1 * t1307 * t842 - 0.50e2 / 0.9e1 * t426 * t2254 - 0.50e2 / 0.27e2 * t161 * t5534 * t323 + 0.1000000e7 / 0.6561e4 * t1954 * t3762 * t836 + 0.10000e5 / 0.243e3 * t409 * t5543 * t6384 + 0.50e2 / 0.9e1 * t1299 * t861 * t413 * t421;
5819   t6421 = t3762 * t332;
5820   t6425 = 0.2000e4 / 0.81e2 * t1905 - 0.100000e6 / 0.729e3 * t1925 - 0.50000e5 / 0.729e3 * t1928 - 0.500e3 / 0.27e2 * t1930 - 0.500e3 / 0.27e2 * t1934 - 0.250e3 / 0.27e2 * t1938 - 0.18e2 * t2830 * t332 * t464 * t183 - 0.2000000e7 / 0.6561e4 * t5188 * t2247 - 0.1000000e7 / 0.6561e4 * t1954 * t5194 * t39 + 0.1000000e7 / 0.19683e5 * t3761 * t6421 + 0.5000000e7 / 0.19683e5 * t1957;
5821   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5822     v4rho3tau[0] = -t274 * t673 * t335 * t1352 / 0.2e1 + t6170 - 0.2e1 / 0.3e1 * t6171 - 0.4e1 * t6173 - 0.2e1 * t6175 - t274 * t504 * t864 * t361 / 0.2e1 - 0.3e1 / 0.2e1 * t274 * t673 * t2321 * t137 - 0.3e1 / 0.2e1 * t274 * t673 * t864 * t376 - 0.2e1 / 0.3e1 * t6189 + t274 * t1390 * t335 * t1149 / 0.9e1 - t1982 * t2341 * t1158 / 0.2e1 - t6198 / 0.2e1 - 0.3e1 / 0.2e1 * t6200 - 0.3e1 / 0.8e1 * t274 * t275 * (t6281 + t6330 + t6392 - 0.1000000e7 / 0.6561e4 * t2563 * t1955 * t2267 + 0.22000e5 / 0.729e3 * t1862 - 0.2000e4 / 0.81e2 * t1864 - 0.2000e4 / 0.81e2 * t1867 + 0.250e3 / 0.27e2 * t1872 + 0.500e3 / 0.27e2 * t1874 + 0.250e3 / 0.27e2 * t1878 - 0.50000e5 / 0.243e3 * t1894 + 0.400000e6 / 0.2187e4 * t1897 + 0.500e3 / 0.27e2 * t1901 + t6425);
5823 
5824   t6433 = t1992 * t352 / 0.9e1;
5825   t6434 = t1773 * t870;
5826   t6436 = t670 * t2330;
5827   t6438 = t670 * t2334;
5828   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5829     v4rho3tau[1] = t6433 - 0.2e1 / 0.3e1 * t6434 - 0.2e1 / 0.3e1 * t6436 - 0.2e1 * t6438 + t274 * t1405 * t351 * t1169 / 0.9e1 - t1982 * t2356 * t1178 / 0.2e1 - t274 * t746 * t351 * t1137 / 0.2e1;
5830 
5831   t6451 = t1147 * t335;
5832   t6459 = 0.4e1 / 0.3e1 * t670 * t2346;
5833   t6470 = t1773 * t874;
5834   t6473 = 0.4e1 / 0.9e1 * t5606 * t2342;
5835   t6474 = t5610 * t2350;
5836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5837     v4rho3tau[2] = t1982 * t6451 * t1392 / 0.9e1 - t5618 * t2341 * t1401 / 0.3e1 - t6459 - t274 * t673 * t2321 * t211 / 0.2e1 - t1992 * t673 * t335 / 0.2e1 + t6170 - 0.4e1 / 0.9e1 * t6171 - 0.4e1 / 0.3e1 * t6173 - 0.2e1 / 0.3e1 * t6175 - 0.2e1 / 0.9e1 * t6470 - t6473 + t6474 / 0.6e1 - t1982 * t359 * t864 * t507 / 0.3e1 - t1982 * t2341 * t1386 / 0.6e1 - t1992 * t673 * t864 * t9 - 0.2e1 / 0.9e1 * t6189 - t6198 / 0.3e1 - t6200 / 0.2e1;
5838 
5839   t6492 = t1773 * t879;
5840   t6495 = 0.4e1 / 0.9e1 * t5606 * t2357;
5841   t6496 = t5610 * t2361;
5842   t6498 = t1167 * t351;
5843   t6511 = t1773 * t915;
5844   t6514 = 0.4e1 / 0.3e1 * t670 * t2367;
5845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5846     v4rho3tau[3] = t6433 - 0.4e1 / 0.9e1 * t6434 - 0.2e1 / 0.9e1 * t6436 - 0.2e1 / 0.3e1 * t6438 - 0.2e1 / 0.9e1 * t6492 - t6495 - t6496 / 0.6e1 + t1982 * t6498 * t1407 / 0.9e1 + t5618 * t2356 * t1378 / 0.3e1 - t1982 * t2356 * t1373 / 0.6e1 + t1992 * t746 * t351 / 0.2e1 - t6511 / 0.6e1 - t6514 - t274 * t527 * t914 * t484 / 0.6e1 - t274 * t746 * t914 * t493 / 0.2e1;
5847 
5848   t6527 = t670 * t2372;
5849   t6539 = t670 * t2376;
5850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5851     v4rho3tau[4] = t6170 - 0.2e1 / 0.9e1 * t6171 - t6198 / 0.6e1 - 0.4e1 / 0.9e1 * t6470 - t6473 - t6459 - 0.4e1 / 0.3e1 * t6474 - 0.2e1 / 0.9e1 * t6527 + t1982 * t6451 * t1528 / 0.9e1 - t274 * t504 * t864 * t553 / 0.6e1 - t5618 * t2341 * t1481 / 0.3e1 - 0.2e1 / 0.3e1 * t6539 - t1982 * t2341 * t1532 / 0.6e1 - t274 * t673 * t864 * t559 / 0.2e1 - t274 * t673 * t335 * t1506 / 0.2e1;
5852 
5853   t6556 = t670 * t2381;
5854   t6564 = t670 * t2385;
5855   t6573 = t670 * t2388;
5856   t6582 = t670 * t2487;
5857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5858     v4rho3tau[5] = t6433 - 0.2e1 / 0.9e1 * t6434 - 0.4e1 / 0.9e1 * t6492 - t6495 + 0.4e1 / 0.3e1 * t6496 - t6511 / 0.3e1 - t6514 - 0.2e1 / 0.9e1 * t6556 + t1982 * t6498 * t1536 / 0.9e1 + t5618 * t2356 * t1540 / 0.3e1 - 0.4e1 / 0.3e1 * t6564 - t1982 * t482 * t914 * t530 / 0.3e1 + t1992 * t746 * t914 * t9 - 0.2e1 / 0.3e1 * t6573 - t1982 * t2356 * t1548 / 0.6e1 - t274 * t746 * t351 * t1514 / 0.2e1 - t6582 / 0.2e1 - t274 * t746 * t2486 * t199 / 0.2e1;
5859 
5860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5861     v4rho3tau[6] = t6170 - 0.2e1 / 0.3e1 * t6470 - 0.2e1 / 0.3e1 * t6527 - 0.2e1 * t6539 + t274 * t1390 * t335 * t1744 / 0.9e1 - t1982 * t2341 * t1749 / 0.2e1 - t274 * t673 * t335 * t1714 / 0.2e1;
5862 
5863   t6637 = t97 * t1613;
5864   t6645 = t882 * t623;
5865   t6654 = 0.500e3 / 0.27e2 * t2653 * t2408 - 0.2500e4 / 0.81e2 * t2124 + 0.20000e5 / 0.243e3 * t2127 - 0.2500e4 / 0.81e2 * t2130 + 0.500e3 / 0.81e2 * t638 * t6637 - 0.110000e6 / 0.2187e4 * t2132 + 0.2500000e7 / 0.6561e4 * t5045 * t345 * t1603 - 0.12500000e8 / 0.19683e5 * t2135 + 0.2500000e7 / 0.6561e4 * t5810 * t6645 + 0.25000000e8 / 0.59049e5 * t2138 - 0.3125000e7 / 0.19683e5 * t2141 + 0.625000e6 / 0.19683e5 * t643 * t345 * t1613 - 0.55000000e8 / 0.531441e6 * t2144;
5866   t6665 = t605 * t2421;
5867   t6670 = t1685 * t902;
5868   t6677 = t597 * t1694;
5869   t6698 = t1685 * t912;
5870   t6703 = 0.100000e6 / 0.729e3 * t2042 - t246 * t124 * t6654 - t246 * t1601 * t348 - 0.3e1 * t246 * t661 * t911 - 0.3e1 * t246 * t264 * t2420 + 0.50e2 / 0.9e1 * t6665 * t241 + 0.50e2 / 0.9e1 * t2441 * t625 - 0.10000e5 / 0.243e3 * t6670 * t602 + 0.100e3 / 0.9e1 * t5985 * t421 * t97 * t1632 + 0.10000e5 / 0.81e2 * t6677 * t2466 - 0.100e3 / 0.9e1 * t5954 * t2470 - 0.100e3 / 0.9e1 * t5957 * t2470 + 0.100e3 / 0.9e1 * t5887 * t887 + 0.50e2 / 0.9e1 * t1695 * t2462 + 0.50e2 / 0.9e1 * t5897 * t887 + 0.50e2 / 0.9e1 * t2190 * t2462 + 0.50e2 / 0.27e2 * t607 * t421 * t97 * t1626 + 0.50e2 / 0.9e1 * t2444 * t625 - 0.10000e5 / 0.243e3 * t6698 * t602 - 0.100e3 / 0.9e1 * t2397 * t1660;
5871   t6717 = t605 * t2400;
5872   t6720 = t605 * t2402;
5873   t6742 = t412 * t97;
5874   t6756 = 0.50e2 / 0.9e1 * t896 * t1672 - 0.10000e5 / 0.243e3 * t2449 * t1655 + 0.50e2 / 0.27e2 * t896 * t1676 + 0.10000e5 / 0.243e3 * t5883 * t883 + 0.10000e5 / 0.243e3 * t2198 * t2454 + 0.10000e5 / 0.729e3 * t771 * t690 * t6637 + 0.50e2 / 0.9e1 * t6717 * t241 + 0.100e3 / 0.9e1 * t6720 * t241 + 0.50e2 / 0.9e1 * t4969 * t887 - 0.50e2 / 0.27e2 * t4862 * t340 - 0.50e2 / 0.9e1 * t1667 * t892 - 0.50e2 / 0.9e1 * t612 * t2430 - 0.50e2 / 0.27e2 * t233 * t6087 * t339 + 0.1000000e7 / 0.6561e4 * t2080 * t5011 * t886 - 0.1000000e7 / 0.6561e4 * t2711 * t2081 * t2408 + 0.50e2 / 0.9e1 * t4867 * t2434 + 0.10000e5 / 0.243e3 * t598 * t6044 * t6742 + 0.50e2 / 0.9e1 * t1658 * t911 * t600 * t421 - 0.18e2 * t1631 * t912 * t631 + 0.24e2 * t5066 * t349 * t1632;
5875   t6776 = t1679 * t902;
5876   t6779 = t1679 * t912;
5877   t6786 = t4958 * t349;
5878   t6789 = t5001 * t349;
5879   t6796 = t1685 * t4978;
5880   t6820 = -0.18e2 * t1631 * t902 * t631 - 0.10000e5 / 0.243e3 * t1686 * t690 * t2461 * t239 - 0.100e3 / 0.9e1 * t2397 * t5017 - 0.20000e5 / 0.243e3 * t4940 * t2394 - 0.10000e5 / 0.243e3 * t1686 * t690 * t2408 * t255 + 0.10000e5 / 0.81e2 * t2159 * t690 * t6645 - 0.200e3 / 0.9e1 * t6776 * t2037 - 0.200e3 / 0.9e1 * t6779 * t2037 - 0.100e3 / 0.9e1 * t2397 * t6127 - 0.10000e5 / 0.243e3 * t2449 * t6132 + 0.20000e5 / 0.243e3 * t6786 * t6005 + 0.100e3 / 0.3e1 * t6789 * t6028 + 0.20000e5 / 0.243e3 * t4959 * t690 * t882 * t631 - 0.10000e5 / 0.81e2 * t6796 * t690 * t886 * t100 - 0.100e3 / 0.9e1 * t1680 * t421 * t2461 * t255 + 0.12e2 * t630 * t2402 * t255 + 0.6e1 * t630 * t2421 * t255 + 0.6e1 * t630 * t902 * t650 + 0.6e1 * t630 * t912 * t650 + 0.2e1 * t630 * t349 * t1626;
5881   t6824 = t5011 * t348;
5882   t6853 = 0.250e3 / 0.27e2 * t2110 + 0.500e3 / 0.27e2 * t2114 - 0.50000e5 / 0.243e3 * t2162 + 0.400000e6 / 0.2187e4 * t2165 + 0.500e3 / 0.27e2 * t2170 + 0.2000e4 / 0.81e2 * t2174 - 0.500e3 / 0.27e2 * t2187 - 0.500e3 / 0.27e2 * t2191 - 0.250e3 / 0.27e2 * t2195 - 0.100000e6 / 0.729e3 * t2199 - 0.50000e5 / 0.729e3 * t2202;
5883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5884     v4rho3tau[7] = t274 * t1405 * t351 * t1753 / 0.9e1 - t1982 * t2356 * t1758 / 0.2e1 - 0.2e1 / 0.3e1 * t6556 - 0.4e1 * t6564 - 0.2e1 * t6573 - t274 * t527 * t914 * t564 / 0.2e1 - 0.3e1 / 0.2e1 * t274 * t746 * t2486 * t216 - 0.3e1 / 0.2e1 * t274 * t746 * t914 * t573 - t274 * t746 * t351 * t1731 / 0.2e1 - 0.3e1 / 0.2e1 * t6582 - t6511 / 0.2e1 + t6433 - 0.2e1 / 0.3e1 * t6492 - 0.3e1 / 0.8e1 * t274 * t299 * (t6703 + t6756 + t6820 + 0.6e1 * t630 * t2400 * t255 + 0.1000000e7 / 0.19683e5 * t5010 * t6824 - 0.1000000e7 / 0.6561e4 * t2080 * t6145 * t97 - 0.18e2 * t2951 * t348 * t650 * t255 - 0.2000000e7 / 0.6561e4 * t6139 * t2423 + 0.5000000e7 / 0.19683e5 * t2083 + 0.250e3 / 0.27e2 * t2087 + 0.22000e5 / 0.729e3 * t2091 - 0.2000e4 / 0.81e2 * t2097 - 0.2000e4 / 0.81e2 * t2100 + t6853);
5885 
5886   t6861 = t1773 * t956 / 0.6e1;
5887   t6862 = t670 * t2493;
5888   t6864 = t670 * t2623;
5889   t6906 = t421 * t399;
5890   t6908 = 0.950e3 / 0.531441e6 * t392 * t6906;
5891   t6912 = t1853 * sigma[0];
5892   t6914 = 0.5375e4 / 0.28697814e8 * t1281 * t6912;
5893   t6918 = -0.12e2 * t1268 * t183 * t2521 - 0.6e1 * t1268 * t445 * t949 - 0.6e1 * t1268 * t464 * t937 + 0.8e1 * t183 * t2524 * t444 + 0.8e1 * t183 * t2527 * t444 + 0.4e1 * t183 * t2530 * t444 + 0.4e1 * t183 * t2544 * t444 + 0.4e1 * t1835 * t289 * t444 + 0.24e2 * t3749 * t445 * t937 + 0.4e1 * t444 * t464 * t940 + 0.2e1 * t444 * t464 * t949 + 0.8e1 * t444 * t715 * t727 - t6908 + t6914;
5894   t6926 = t1201 * t1907;
5895   t6945 = t408 * t1907;
5896   t6964 = -0.12e2 * t1268 * t940 * t445 + 0.200e3 / 0.81e2 * t420 * t421 * t156 * t727 + 0.25e2 / 0.27e2 * t6926 * t1900 + 0.5000e4 / 0.2187e4 * t1208 * t690 * t680 * t183 - 0.5000e4 / 0.729e3 * t1891 * t690 * t680 * t167 - 0.25e2 / 0.54e2 * t5286 * t929 - 0.1100e4 / 0.243e3 * t420 * t421 * t404 * t288 + 0.200e3 / 0.81e2 * t1908 * t1904 - 0.2500e4 / 0.243e3 * t6945 * t1893 + 0.625e3 / 0.1458e4 * t3894 * t690 * t920 * t445 + 0.200e3 / 0.81e2 * t1218 * t2612 + 0.200e3 / 0.81e2 * t1933 * t2612 + 0.625e3 / 0.972e3 * t1891 * t690 * t920 * t437 - 0.25e2 / 0.27e2 * t5296 * t929 - 0.25e2 / 0.27e2 * t1218 * t2585;
5897   t6977 = t418 * t293 * t167;
5898   t6985 = t408 * t739 * t43;
5899   t7004 = -0.25e2 / 0.54e2 * t5256 * t929 - 0.25e2 / 0.27e2 * t1933 * t2585 - 0.25e2 / 0.54e2 * t420 * t421 * t29 * t1835 - 0.25e2 / 0.27e2 * t5260 * t696 - 0.25e2 / 0.27e2 * t6977 * t696 - 0.25e2 / 0.54e2 * t1908 * t1937 + 0.40000e5 / 0.2187e4 * t2591 * t1896 - 0.5000e4 / 0.729e3 * t6985 * t692 - 0.2500e4 / 0.729e3 * t2591 * t1927 - 0.100e3 / 0.27e2 * t2594 * t439 + 0.20000e5 / 0.729e3 * t3893 * t937 * t415 - 0.200e3 / 0.27e2 * t1201 * t2521 * t169 + 0.200e3 / 0.27e2 * t418 * t2524 * t169 + 0.200e3 / 0.27e2 * t418 * t2527 * t169;
5900   t7034 = t408 * t953;
5901   t7044 = 0.100e3 / 0.27e2 * t418 * t2530 * t169 + 0.100e3 / 0.27e2 * t418 * t2544 * t169 + 0.100e3 / 0.27e2 * t418 * t2519 * t169 + 0.100e3 / 0.27e2 * t2597 * t439 - 0.20000e5 / 0.729e3 * t1207 * t940 * t415 + 0.50e2 / 0.27e2 * t2600 * t439 - 0.10000e5 / 0.729e3 * t1207 * t949 * t415 - 0.625e3 / 0.1458e4 * t3870 * t2604 - 0.625e3 / 0.2916e4 * t1208 * t690 * t920 * t464 + 0.625e3 / 0.486e3 * t6316 * t2608 - 0.50e2 / 0.27e2 * t2558 * t439 + 0.10000e5 / 0.729e3 * t7034 * t415 - 0.250000e6 / 0.19683e5 * t1954 * t3762 * t928 - 0.5000e4 / 0.2187e4 * t1304 * t2571 - 0.200e3 / 0.81e2 * t1882 * t706;
5902   t7065 = t160 * t2517;
5903   t7075 = 0.1e1 / t27 / t3907 * t394 * t24;
5904   t7077 = 0.2500e4 / 0.3486784401e10 * t3816 * t7075;
5905   t7081 = t680 * t44;
5906   t7087 = -0.200e3 / 0.81e2 * t730 * t1866 + 0.31250e5 / 0.19683e5 * t2563 * t3762 * t2603 + 0.625e3 / 0.2916e4 * t3797 * t925 + 0.25e2 / 0.54e2 * t5538 * t280 + 0.25e2 / 0.27e2 * t1882 * t702 + 0.25e2 / 0.54e2 * t730 * t1877 + 0.25e2 / 0.432e3 * t3794 * t2555 + 0.25e2 / 0.864e3 * t1299 * t2554 * t3827 - 0.100e3 / 0.27e2 * t7065 * t169 + 0.47500e5 / 0.6561e4 * t409 * t410 * t412 * t399 - t7077 - 0.25e2 / 0.432e3 * t3785 * t2554 * t3786 - 0.25e2 / 0.81e2 * t1299 * t7081 * t1300 + 0.100e3 / 0.27e2 * t5503 * t1888;
5907   t7092 = t413 * t19;
5908   t7111 = t1289 * t437;
5909   t7119 = t66 * t293;
5910   t7123 = t3839 * t413;
5911   t7126 = t288 * t183;
5912   t7134 = 0.50e2 / 0.27e2 * t1299 * t948 * t413 * t421 + 0.625e3 / 0.972e3 * t409 * t7092 * t924 + 0.1100e4 / 0.243e3 * t730 * t1861 - 0.100e3 / 0.27e2 * t3785 * t936 * t413 * t421 - 0.475e3 / 0.486e3 * t161 * t6906 - 0.50e2 / 0.27e2 * t2558 * t430 - 0.31250e5 / 0.19683e5 * t2563 * t5194 * t920 + 0.25e2 / 0.81e2 * t426 * t2510 - 0.15625e5 / 0.19683e5 * t7111 * t2564 - 0.25e2 / 0.864e3 * t1307 * t921 + 0.500000e6 / 0.59049e5 * t2563 * t1955 * t680 + 0.250000e6 / 0.19683e5 * t1954 * t7119 * t29 - 0.31250e5 / 0.6561e4 * t7123 * t2564 - 0.24e2 * t2830 * t7126 * t727 + 0.50e2 / 0.27e2 * t1202 * t421 * t2584 * t183;
5913   t7166 = t162 * t168 * t727;
5914   t7183 = 0.5000e4 / 0.729e3 * t1208 * t690 * t2584 * t167 - 0.25e2 / 0.9e1 * t5306 * t421 * t928 * t445 - 0.400e3 / 0.81e2 * t1202 * t421 * t2611 * t183 + 0.25e2 / 0.27e2 * t1202 * t421 * t928 * t464 - 0.40000e5 / 0.2187e4 * t1208 * t690 * t2611 * t167 + 0.2500e4 / 0.729e3 * t1208 * t690 * t928 * t437 + 0.5000e4 / 0.729e3 * t5280 * t1796 + 0.200e3 / 0.9e1 * t3866 * t937 * t1792 - 0.400e3 / 0.27e2 * t1790 * t7166 - 0.400e3 / 0.27e2 * t1201 * t940 * t1792 - 0.200e3 / 0.27e2 * t1201 * t949 * t1792 - 0.625e3 / 0.486e3 * t3899 * t690 * t2603 * t167 + 0.50e2 / 0.27e2 * t5346 * t2497 + 0.5000e4 / 0.729e3 * t3870 * t2501;
5915   t7203 = t437 * t55;
5916   t7237 = t727 * t727;
5917   t7242 = t3893 * t688 * t19;
5918   t7243 = t7126 * t167;
5919   t7255 = 0.50e2 / 0.27e2 * t5349 * t2497 + 0.2500e4 / 0.243e3 * t6355 * t690 * t928 * t42 - 0.2e1 * t174 * t2517 * t183 - t174 * t953 * t464 - 0.2e1 * t174 * t293 * t1835 - t174 * t475 * t948 - 0.2e1 * t174 * t192 * t2543 - t174 * t73 * (0.125e3 / 0.1296e4 * t7203 * t920 - 0.250e3 / 0.243e3 * t2532 * t680 + 0.2375e4 / 0.729e3 * t452 * t399 + 0.78125e5 / 0.13122e5 * t3715 * t945 * t413 - 0.1250000e7 / 0.59049e5 * t1252 * t2540 * t167 + 0.78125e5 / 0.39366e5 * t1252 * t945 * t437 + 0.2968750e7 / 0.177147e6 * t457 * t62 * t399) + 0.2e1 * t444 * t475 * t936 - 0.2e1 * t174 * t1950 * t288 - 0.4e1 * t174 * t739 * t727 + 0.2e1 * t444 * t953 * t445 + 0.4e1 * t444 * t73 * t7237 - 0.10000e5 / 0.729e3 * t7242 * t2789 * t7243 + t67 * (-0.2500e4 / 0.3486784401e10 * t3933 * t7075 + 0.5375e4 / 0.28697814e8 * t1321 * t6912 - 0.950e3 / 0.531441e6 * t469 * t6906 + t7077 - t6914 + t6908);
5920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5921     v4rho2sigma2[0] = -t6861 - 0.4e1 / 0.3e1 * t6862 - t6864 - t274 * t504 * t955 * t361 / 0.6e1 - t274 * t673 * t2622 * t137 - t274 * t673 * t955 * t376 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t6918 + t6964 + t7004 + t7044 + t7087 + t7134 + t7183 + t7255);
5922 
5923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5924     v4rho2sigma2[1] = 0.0e0;
5925 
5926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5927     v4rho2sigma2[2] = 0.0e0;
5928 
5929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5930     v4rho2sigma2[3] = 0.0e0;
5931 
5932   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5933     v4rho2sigma2[4] = 0.0e0;
5934 
5935   t7263 = t1773 * t997 / 0.6e1;
5936   t7264 = t670 * t2628;
5937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5938     v4rho2sigma2[5] = -t7263 - 0.4e1 / 0.3e1 * t7264 - t274 * t527 * t996 * t484 / 0.6e1 - t274 * t746 * t996 * t493 / 0.2e1;
5939 
5940   t7276 = t670 * t2632;
5941   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5942     v4rho2sigma2[6] = -t6861 - 0.2e1 / 0.3e1 * t6862 - t6864 / 0.2e1 - 0.2e1 / 0.3e1 * t7276 - t1982 * t359 * t955 * t507 / 0.6e1 - t274 * t673 * t2622 * t211 / 0.2e1 - t1992 * t673 * t955 * t9 / 0.2e1;
5943 
5944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5945     v4rho2sigma2[7] = 0.0e0;
5946 
5947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5948     v4rho2sigma2[8] = 0.0e0;
5949 
5950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5951     v4rho2sigma2[9] = 0.0e0;
5952 
5953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5954     v4rho2sigma2[10] = 0.0e0;
5955 
5956   t7291 = t670 * t2637;
5957   t7301 = t670 * t2767;
5958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5959     v4rho2sigma2[11] = -t7263 - 0.2e1 / 0.3e1 * t7264 - 0.2e1 / 0.3e1 * t7291 - t1982 * t482 * t996 * t530 / 0.6e1 + t1992 * t746 * t996 * t9 / 0.2e1 - t7301 / 0.2e1 - t274 * t746 * t2766 * t199 / 0.2e1;
5960 
5961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5962     v4rho2sigma2[12] = -t6861 - 0.4e1 / 0.3e1 * t7276 - t274 * t504 * t955 * t553 / 0.6e1 - t274 * t673 * t955 * t559 / 0.2e1;
5963 
5964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5965     v4rho2sigma2[13] = 0.0e0;
5966 
5967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5968     v4rho2sigma2[14] = 0.0e0;
5969 
5970   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5971     v4rho2sigma2[15] = 0.0e0;
5972 
5973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5974     v4rho2sigma2[16] = 0.0e0;
5975 
5976   t7345 = t623 * t55;
5977   t7372 = t808 * t808;
5978   t7388 = 0.2e1 * t630 * t661 * t977 - 0.2e1 * t246 * t2075 * t312 - 0.4e1 * t246 * t820 * t808 - 0.2e1 * t246 * t317 * t2146 - t246 * t661 * t989 - 0.2e1 * t246 * t264 * t2664 - t246 * t124 * (0.125e3 / 0.1296e4 * t7345 * t961 - 0.250e3 / 0.243e3 * t2653 * t762 + 0.2375e4 / 0.729e3 * t638 * t588 + 0.78125e5 / 0.13122e5 * t5045 * t986 * t600 - 0.1250000e7 / 0.59049e5 * t1616 * t2661 * t239 + 0.78125e5 / 0.39366e5 * t1616 * t986 * t623 + 0.2968750e7 / 0.177147e6 * t643 * t62 * t588) - t246 * t994 * t650 - 0.2e1 * t246 * t2688 * t255 + 0.4e1 * t630 * t124 * t7372 + 0.2e1 * t630 * t994 * t631 - 0.20000e5 / 0.729e3 * t1685 * t981 * t602 - 0.200e3 / 0.27e2 * t1679 * t2642 * t241 + 0.200e3 / 0.27e2 * t605 * t2645 * t241;
5979   t7428 = 0.200e3 / 0.27e2 * t605 * t2648 * t241 + 0.100e3 / 0.27e2 * t605 * t2651 * t241 + 0.100e3 / 0.27e2 * t605 * t2665 * t241 + 0.100e3 / 0.27e2 * t605 * t2640 * t241 - 0.25e2 / 0.54e2 * t4969 * t970 - 0.25e2 / 0.27e2 * t5887 * t970 - 0.25e2 / 0.27e2 * t1695 * t2735 - 0.25e2 / 0.54e2 * t5897 * t970 - 0.25e2 / 0.27e2 * t2190 * t2735 + 0.50e2 / 0.27e2 * t2750 * t625 - 0.10000e5 / 0.729e3 * t1685 * t990 * t602 - 0.625e3 / 0.1458e4 * t4940 * t2754 - 0.625e3 / 0.2916e4 * t1686 * t690 * t961 * t650 + 0.625e3 / 0.486e3 * t6677 * t2758 + 0.625e3 / 0.972e3 * t2159 * t690 * t961 * t623;
5980   t7437 = t605 * t317 * t239;
5981   t7445 = t597 * t820 * t101;
5982   t7471 = -0.25e2 / 0.54e2 * t607 * t421 * t87 * t2146 - 0.25e2 / 0.27e2 * t5910 * t777 - 0.25e2 / 0.27e2 * t7437 * t777 - 0.25e2 / 0.54e2 * t2156 * t2194 + 0.40000e5 / 0.2187e4 * t2741 * t2164 - 0.5000e4 / 0.729e3 * t7445 * t773 - 0.2500e4 / 0.729e3 * t2741 * t2201 - 0.100e3 / 0.27e2 * t2744 * t625 + 0.20000e5 / 0.729e3 * t4958 * t978 * t602 + 0.100e3 / 0.27e2 * t2747 * t625 + 0.5000e4 / 0.2187e4 * t1686 * t690 * t762 * t255 - 0.5000e4 / 0.729e3 * t2159 * t690 * t762 * t239 + 0.200e3 / 0.81e2 * t607 * t421 * t228 * t808 + 0.25e2 / 0.27e2 * t5930 * t2169;
5983   t7474 = t597 * t2155;
5984   t7504 = t762 * t44;
5985   t7508 = t600 * t19;
5986   t7518 = 0.200e3 / 0.81e2 * t2156 * t2173 - 0.2500e4 / 0.243e3 * t7474 * t2161 + 0.200e3 / 0.81e2 * t1695 * t2762 + 0.200e3 / 0.81e2 * t2190 * t2762 + 0.1100e4 / 0.243e3 * t811 * t2090 - 0.100e3 / 0.27e2 * t4872 * t977 * t600 * t421 + 0.100e3 / 0.27e2 * t6048 * t2094 + 0.50e2 / 0.27e2 * t1658 * t989 * t600 * t421 - 0.1100e4 / 0.243e3 * t607 * t421 * t593 * t312 + 0.625e3 / 0.1458e4 * t4959 * t690 * t961 * t631 - 0.25e2 / 0.432e3 * t4872 * t2702 * t4873 - 0.25e2 / 0.81e2 * t1658 * t7504 * t1659 + 0.625e3 / 0.972e3 * t598 * t7508 * t965 + 0.47500e5 / 0.6561e4 * t598 * t599 * t412 * t588 + 0.25e2 / 0.27e2 * t2102 * t783;
5987   t7531 = 0.1e1 / t85 / t4917 * t583 * t24;
5988   t7533 = 0.2500e4 / 0.3486784401e10 * t4902 * t7531;
5989   t7536 = t597 * t994;
5990   t7542 = t232 * t2688;
5991   t7558 = 0.25e2 / 0.54e2 * t811 * t2086 + 0.25e2 / 0.432e3 * t4867 * t2703 + 0.25e2 / 0.864e3 * t1658 * t2702 * t4879 - t7533 - 0.50e2 / 0.27e2 * t2706 * t625 + 0.10000e5 / 0.729e3 * t7536 * t602 - 0.250000e6 / 0.19683e5 * t2080 * t5011 * t969 - 0.100e3 / 0.27e2 * t7542 * t241 - 0.200e3 / 0.81e2 * t2102 * t787 - 0.200e3 / 0.81e2 * t811 * t2099 + 0.31250e5 / 0.19683e5 * t2711 * t5011 * t2753 - 0.5000e4 / 0.2187e4 * t1663 * t2693 + 0.625e3 / 0.2916e4 * t4859 * t966 + 0.25e2 / 0.54e2 * t6102 * t304;
5992   t7571 = t2052 * sigma[2];
5993   t7573 = 0.5375e4 / 0.28697814e8 * t1594 * t7571;
5994   t7574 = t421 * t588;
5995   t7576 = 0.950e3 / 0.531441e6 * t581 * t7574;
5996   t7605 = -0.12e2 * t1631 * t2642 * t255 - 0.6e1 * t1631 * t990 * t631 + 0.24e2 * t5066 * t978 * t631 - 0.12e2 * t1631 * t981 * t631 + t7573 - t7576 + 0.50e2 / 0.27e2 * t5954 * t2668 + 0.5000e4 / 0.729e3 * t4940 * t2672 + 0.50e2 / 0.27e2 * t5957 * t2668 + 0.2500e4 / 0.243e3 * t6796 * t690 * t969 * t100 - 0.400e3 / 0.27e2 * t1679 * t981 * t2037 - 0.200e3 / 0.27e2 * t1679 * t990 * t2037 - 0.625e3 / 0.486e3 * t4945 * t690 * t2753 * t239 + 0.50e2 / 0.27e2 * t1680 * t421 * t2734 * t255 + 0.5000e4 / 0.729e3 * t1686 * t690 * t2734 * t239;
5997   t7613 = t234 * t240 * t808;
5998   t7654 = 0.5000e4 / 0.729e3 * t5919 * t2041 + 0.200e3 / 0.9e1 * t5001 * t978 * t2037 - 0.400e3 / 0.27e2 * t2035 * t7613 - 0.25e2 / 0.9e1 * t5985 * t421 * t969 * t631 - 0.400e3 / 0.81e2 * t1680 * t421 * t2761 * t255 + 0.25e2 / 0.27e2 * t1680 * t421 * t969 * t650 - 0.40000e5 / 0.2187e4 * t1686 * t690 * t2761 * t239 + 0.2500e4 / 0.729e3 * t1686 * t690 * t969 * t623 + 0.4e1 * t630 * t981 * t650 + 0.2e1 * t630 * t990 * t650 - 0.6e1 * t1631 * t978 * t650 + 0.4e1 * t630 * t313 * t2146 + 0.8e1 * t630 * t2645 * t255 + 0.8e1 * t630 * t2648 * t255;
5999   t7673 = t4958 * t770 * t19;
6000   t7674 = t312 * t255;
6001   t7675 = t7674 * t239;
6002   t7684 = t1645 * t623;
6003   t7689 = t117 * t317;
6004   t7693 = t4922 * t600;
6005   t7706 = 0.4e1 * t630 * t2651 * t255 + 0.4e1 * t630 * t2665 * t255 + 0.8e1 * t630 * t796 * t808 + t118 * (-0.2500e4 / 0.3486784401e10 * t5097 * t7531 + 0.5375e4 / 0.28697814e8 * t1573 * t7571 - 0.950e3 / 0.531441e6 * t655 * t7574 + t7533 - t7573 + t7576) - 0.10000e5 / 0.729e3 * t7673 * t2907 * t7675 - 0.31250e5 / 0.19683e5 * t2711 * t6145 * t961 + 0.25e2 / 0.81e2 * t612 * t2681 - 0.15625e5 / 0.19683e5 * t7684 * t2712 - 0.25e2 / 0.864e3 * t1667 * t962 + 0.250000e6 / 0.19683e5 * t2080 * t7689 * t87 - 0.31250e5 / 0.6561e4 * t7693 * t2712 + 0.500000e6 / 0.59049e5 * t2711 * t2081 * t762 - 0.24e2 * t2951 * t7674 * t808 - 0.475e3 / 0.486e3 * t233 * t7574 - 0.50e2 / 0.27e2 * t2706 * t616;
6006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6007     v4rho2sigma2[17] = -t7263 - 0.4e1 / 0.3e1 * t7291 - t7301 - t274 * t527 * t996 * t564 / 0.6e1 - t274 * t746 * t2766 * t216 - t274 * t746 * t996 * t573 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t7388 + t7428 + t7471 + t7518 + t7558 + t7605 + t7654 + t7706);
6008 
6009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6010     v4rho2sigmalapl[0] = 0.0e0;
6011 
6012   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6013     v4rho2sigmalapl[1] = 0.0e0;
6014 
6015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6016     v4rho2sigmalapl[2] = 0.0e0;
6017 
6018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6019     v4rho2sigmalapl[3] = 0.0e0;
6020 
6021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6022     v4rho2sigmalapl[4] = 0.0e0;
6023 
6024   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6025     v4rho2sigmalapl[5] = 0.0e0;
6026 
6027   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6028     v4rho2sigmalapl[6] = 0.0e0;
6029 
6030   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6031     v4rho2sigmalapl[7] = 0.0e0;
6032 
6033   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6034     v4rho2sigmalapl[8] = 0.0e0;
6035 
6036   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6037     v4rho2sigmalapl[9] = 0.0e0;
6038 
6039   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6040     v4rho2sigmalapl[10] = 0.0e0;
6041 
6042   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6043     v4rho2sigmalapl[11] = 0.0e0;
6044 
6045   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6046     v4rho2sigmalapl[12] = 0.0e0;
6047 
6048   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6049     v4rho2sigmalapl[13] = 0.0e0;
6050 
6051   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6052     v4rho2sigmalapl[14] = 0.0e0;
6053 
6054   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6055     v4rho2sigmalapl[15] = 0.0e0;
6056 
6057   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6058     v4rho2sigmalapl[16] = 0.0e0;
6059 
6060   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6061     v4rho2sigmalapl[17] = 0.0e0;
6062 
6063   t7714 = t1773 * t1032 / 0.6e1;
6064   t7715 = t670 * t2773;
6065   t7717 = t670 * t2889;
6066   t7747 = t418 * t2799;
6067   t7750 = t418 * t2801;
6068   t7753 = t418 * t2803;
6069   t7756 = t418 * t2813;
6070   t7765 = 0.1000e4 / 0.81e2 * t2498 + 0.100000e6 / 0.2187e4 * t2502 - 0.25e2 / 0.108e3 * t6278 * t280 - 0.25e2 / 0.54e2 * t2304 * t702 - 0.2500e4 / 0.729e3 * t3894 * t690 * t1001 * t445 + 0.100e3 / 0.81e2 * t2301 * t706 + 0.100e3 / 0.81e2 * t2304 * t706 + 0.100e3 / 0.81e2 * t846 * t1866 + 0.10000e5 / 0.243e3 * t6945 * t2313 + 0.100e3 / 0.27e2 * t7747 * t169 + 0.100e3 / 0.27e2 * t7750 * t169 + 0.100e3 / 0.27e2 * t7753 * t169 + 0.100e3 / 0.27e2 * t7756 * t169 + 0.20000e5 / 0.729e3 * t6985 * t833 + 0.10000e5 / 0.729e3 * t2591 * t2290 - 0.25e2 / 0.108e3 * t6267 * t280;
6071   t7784 = t1207 * t1021;
6072   t7789 = t1207 * t1029;
6073   t7806 = -0.25e2 / 0.54e2 * t6270 * t280 - 0.25e2 / 0.54e2 * t2301 * t702 + 0.50e2 / 0.27e2 * t420 * t421 * t39 * t1835 + 0.100e3 / 0.27e2 * t5260 * t837 + 0.100e3 / 0.27e2 * t6977 * t837 + 0.50e2 / 0.27e2 * t1908 * t2298 - 0.25e2 / 0.108e3 * t846 * t1877 + 0.50e2 / 0.27e2 * t2861 * t439 - 0.10000e5 / 0.729e3 * t7784 * t415 + 0.50e2 / 0.27e2 * t2864 * t439 - 0.10000e5 / 0.729e3 * t7789 * t415 + 0.2500e4 / 0.729e3 * t3870 * t2868 + 0.1250e4 / 0.729e3 * t1208 * t690 * t1001 * t464 - 0.2500e4 / 0.243e3 * t6316 * t2872 - 0.1250e4 / 0.243e3 * t1891 * t690 * t1001 * t437 + 0.50e2 / 0.27e2 * t5286 * t1007;
6074   t7845 = 0.100e3 / 0.27e2 * t5296 * t1007 + 0.100e3 / 0.27e2 * t1218 * t2880 + 0.50e2 / 0.27e2 * t5256 * t1007 + 0.100e3 / 0.27e2 * t1933 * t2880 - 0.550e3 / 0.243e3 * t846 * t1861 - 0.100e3 / 0.27e2 * t2228 * t1888 - 0.100e3 / 0.27e2 * t6926 * t2317 - 0.250000e6 / 0.19683e5 * t2563 * t3762 * t2867 - 0.1250e4 / 0.729e3 * t3797 * t1003 - 0.50e2 / 0.27e2 * t5538 * t324 - 0.100e3 / 0.27e2 * t1882 * t842 - 0.50e2 / 0.27e2 * t730 * t2254 - 0.25e2 / 0.54e2 * t3794 * t2822 - 0.25e2 / 0.108e3 * t1299 * t1012 * t3827 + 0.1000000e7 / 0.19683e5 * t1954 * t3762 * t1006 - 0.125000e6 / 0.19683e5 * t1954 * t3762 * t332 * t29;
6075   t7885 = t1201 * t1021;
6076   t7888 = t1201 * t1029;
6077   t7891 = -0.1250e4 / 0.243e3 * t409 * t7092 * t1002 + 0.25e2 / 0.54e2 * t3785 * t1012 * t3786 + 0.50e2 / 0.27e2 * t5503 * t2258 + 0.50e2 / 0.27e2 * t1299 * t1028 * t413 * t421 - 0.200e3 / 0.27e2 * t5349 * t2778 - 0.10000e5 / 0.243e3 * t6355 * t690 * t1006 * t42 + 0.25e2 / 0.27e2 * t6332 * t2786 + 0.2500e4 / 0.729e3 * t6275 * t2791 + 0.25e2 / 0.27e2 * t6335 * t2786 + 0.2500e4 / 0.729e3 * t6284 * t2791 + 0.25e2 / 0.27e2 * t2228 * t701 * t2785 + 0.1250e4 / 0.243e3 * t2309 * t7092 * t2789 * t42 - 0.200e3 / 0.27e2 * t6332 * t2796 - 0.200e3 / 0.27e2 * t6335 * t2796 - 0.200e3 / 0.27e2 * t2228 * t7166 - 0.200e3 / 0.27e2 * t7885 * t1792 - 0.200e3 / 0.27e2 * t7888 * t1792;
6078   t7954 = -0.20000e5 / 0.729e3 * t5280 * t2232 - 0.25e2 / 0.18e2 * t6327 * t162 * t279 * t445 - 0.200e3 / 0.81e2 * t2228 * t162 * t705 * t183 + 0.100e3 / 0.9e1 * t5306 * t421 * t1006 * t445 - 0.10000e5 / 0.729e3 * t1208 * t690 * t1006 * t437 + 0.25e2 / 0.54e2 * t2228 * t162 * t279 * t464 - 0.20000e5 / 0.2187e4 * t2309 * t410 * t412 * t156 * t167 + 0.1250e4 / 0.729e3 * t2309 * t410 * t2789 * t437 - 0.100e3 / 0.27e2 * t2228 * t2794 * t421 * t437 + 0.20000e5 / 0.729e3 * t6342 * t288 * t43 * t690 * t413 - 0.200e3 / 0.27e2 * t1202 * t421 * t2879 * t183 - 0.20000e5 / 0.729e3 * t1208 * t690 * t2879 * t167 - 0.100e3 / 0.27e2 * t1202 * t421 * t1006 * t464 + 0.2500e4 / 0.243e3 * t3899 * t690 * t2867 * t167 - 0.200e3 / 0.27e2 * t5346 * t2778 - 0.20000e5 / 0.729e3 * t3870 * t2782;
6079   t7989 = -0.2000e4 / 0.243e3 * t2546 + 0.32500e5 / 0.2187e4 * t2548 + 0.500e3 / 0.81e2 * t2550 + 0.500e3 / 0.81e2 * t2552 + 0.325e3 / 0.162e3 * t2556 + 0.1300e4 / 0.243e3 * t2561 - 0.3250000e7 / 0.59049e5 * t2565 - 0.325e3 / 0.162e3 * t2567 - 0.1000000e7 / 0.19683e5 * t1954 * t7119 * t39 + 0.250000e6 / 0.6561e4 * t7123 * t2825 + 0.250000e6 / 0.19683e5 * t2563 * t5194 * t1001 + 0.125000e6 / 0.19683e5 * t7111 * t2825 + 0.25e2 / 0.108e3 * t1307 * t1013 - 0.6e1 * t2830 * t2831 * t464 - 0.12e2 * t1268 * t192 * t2832 - 0.12e2 * t2830 * t861 * t288 * t183 - 0.12e2 * t2830 * t332 * t727 * t183;
6080   t7991 = t3749 * t73;
6081   t8047 = 0.24e2 * t7991 * t2831 * t445 - 0.260000e6 / 0.6561e4 * t2572 - t174 * t73 * (-0.125e3 / 0.162e3 * t7203 * t1001 + 0.1625e4 / 0.243e3 * t2533 - 0.13000e5 / 0.729e3 * t2535 - 0.312500e6 / 0.6561e4 * t3715 * t1025 * t413 + 0.8125000e7 / 0.59049e5 * t2538 - 0.312500e6 / 0.19683e5 * t1252 * t1025 * t437 - 0.16250000e8 / 0.177147e6 * t2541) - 0.2e1 * t174 * t739 * t861 - t174 * t293 * t2279 - t174 * t475 * t1028 - 0.2e1 * t174 * t192 * t2812 - t174 * t1950 * t332 - 0.6e1 * t1268 * t1021 * t445 - 0.6e1 * t1268 * t1029 * t445 + 0.4e1 * t444 * t2803 * t183 + 0.4e1 * t444 * t2813 * t183 + 0.2e1 * t444 * t1029 * t464 + 0.2e1 * t444 * t333 * t1835 + 0.4e1 * t444 * t2799 * t183 + 0.4e1 * t444 * t2801 * t183;
6082   t8052 = t3893 * t333 * t43;
6083   t8084 = 0.2e1 * t444 * t1021 * t464 - 0.5000e4 / 0.729e3 * t8052 * t1796 + 0.200e3 / 0.9e1 * t3866 * t1018 * t1792 + 0.40000e5 / 0.729e3 * t7242 * t6384 * t7243 - 0.500e3 / 0.81e2 * t2580 - 0.500e3 / 0.81e2 * t2582 - 0.500e3 / 0.81e2 * t2586 - 0.500e3 / 0.81e2 * t2588 - 0.100000e6 / 0.2187e4 * t2592 - 0.32500e5 / 0.2187e4 * t2605 + 0.32500e5 / 0.729e3 * t2609 + 0.2000e4 / 0.243e3 * t2613 + 0.2e1 * t444 * t2283 * t288 + 0.4e1 * t444 * t2261 * t288 + 0.4e1 * t444 * t852 * t727 + 0.2e1 * t444 * t2280 * t288 + 0.4e1 * t444 * t862 * t727;
6084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6085     v4rho2sigmatau[0] = -t7714 - 0.4e1 / 0.3e1 * t7715 - t7717 - t274 * t504 * t1031 * t361 / 0.6e1 - t274 * t673 * t2888 * t137 - t274 * t673 * t1031 * t376 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t7765 + t7806 + t7845 + t7891 + t7954 + t7989 + t8047 + t8084);
6086 
6087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6088     v4rho2sigmatau[1] = 0.0e0;
6089 
6090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6091     v4rho2sigmatau[2] = 0.0e0;
6092 
6093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6094     v4rho2sigmatau[3] = 0.0e0;
6095 
6096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6097     v4rho2sigmatau[4] = 0.0e0;
6098 
6099   t8092 = t1773 * t1067 / 0.6e1;
6100   t8093 = t670 * t2894;
6101   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6102     v4rho2sigmatau[5] = -t8092 - 0.4e1 / 0.3e1 * t8093 - t274 * t527 * t1066 * t484 / 0.6e1 - t274 * t746 * t1066 * t493 / 0.2e1;
6103 
6104   t8105 = t670 * t2898;
6105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6106     v4rho2sigmatau[6] = -t7714 - 0.2e1 / 0.3e1 * t7715 - t7717 / 0.2e1 - 0.2e1 / 0.3e1 * t8105 - t1982 * t359 * t1031 * t507 / 0.6e1 - t274 * t673 * t2888 * t211 / 0.2e1 - t1992 * t673 * t1031 * t9 / 0.2e1;
6107 
6108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6109     v4rho2sigmatau[7] = 0.0e0;
6110 
6111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6112     v4rho2sigmatau[8] = 0.0e0;
6113 
6114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6115     v4rho2sigmatau[9] = 0.0e0;
6116 
6117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6118     v4rho2sigmatau[10] = 0.0e0;
6119 
6120   t8120 = t670 * t2903;
6121   t8130 = t670 * t3019;
6122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6123     v4rho2sigmatau[11] = -t8092 - 0.2e1 / 0.3e1 * t8093 - 0.2e1 / 0.3e1 * t8120 - t1982 * t482 * t1066 * t530 / 0.6e1 + t1992 * t746 * t1066 * t9 / 0.2e1 - t8130 / 0.2e1 - t274 * t746 * t3018 * t199 / 0.2e1;
6124 
6125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6126     v4rho2sigmatau[12] = -t7714 - 0.4e1 / 0.3e1 * t8105 - t274 * t504 * t1031 * t553 / 0.6e1 - t274 * t673 * t1031 * t559 / 0.2e1;
6127 
6128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6129     v4rho2sigmatau[13] = 0.0e0;
6130 
6131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6132     v4rho2sigmatau[14] = 0.0e0;
6133 
6134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6135     v4rho2sigmatau[15] = 0.0e0;
6136 
6137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6138     v4rho2sigmatau[16] = 0.0e0;
6139 
6140   t8208 = -t246 * t2075 * t348 - 0.2e1 * t246 * t820 * t911 - t246 * t317 * t2420 - t246 * t661 * t1063 - 0.2e1 * t246 * t264 * t2942 - t246 * t124 * (-0.125e3 / 0.162e3 * t7345 * t1036 + 0.1625e4 / 0.243e3 * t2654 - 0.13000e5 / 0.729e3 * t2656 - 0.312500e6 / 0.6561e4 * t5045 * t1060 * t600 + 0.8125000e7 / 0.59049e5 * t2659 - 0.312500e6 / 0.19683e5 * t1616 * t1060 * t623 - 0.16250000e8 / 0.177147e6 * t2662) + 0.1000e4 / 0.81e2 * t2669 + 0.100000e6 / 0.2187e4 * t2673 - 0.12e2 * t2951 * t348 * t808 * t255 + 0.250000e6 / 0.6561e4 * t7693 * t2946 - 0.1000000e7 / 0.19683e5 * t2080 * t7689 * t97 + 0.250000e6 / 0.19683e5 * t2711 * t6145 * t1036 + 0.125000e6 / 0.19683e5 * t7684 * t2946 + 0.25e2 / 0.108e3 * t1667 * t1048 - 0.6e1 * t2951 * t2952 * t650 - 0.12e2 * t1631 * t264 * t2953;
6141   t8209 = t5066 * t124;
6142   t8239 = t1685 * t1056;
6143   t8244 = t1685 * t1064;
6144   t8253 = 0.24e2 * t8209 * t2952 * t631 - 0.12e2 * t2951 * t911 * t312 * t255 - 0.6e1 * t1631 * t1056 * t631 - 0.6e1 * t1631 * t1064 * t631 - 0.2500e4 / 0.729e3 * t4959 * t690 * t1036 * t631 - 0.550e3 / 0.243e3 * t896 * t2090 - 0.100e3 / 0.27e2 * t2397 * t2094 - 0.25e2 / 0.108e3 * t6665 * t304 - 0.25e2 / 0.54e2 * t2444 * t783 - 0.25e2 / 0.108e3 * t896 * t2086 + 0.50e2 / 0.27e2 * t2991 * t625 - 0.10000e5 / 0.729e3 * t8239 * t602 + 0.50e2 / 0.27e2 * t2994 * t625 - 0.10000e5 / 0.729e3 * t8244 * t602 + 0.2500e4 / 0.729e3 * t4940 * t2998 + 0.1250e4 / 0.729e3 * t1686 * t690 * t1036 * t650;
6145   t8257 = t605 * t2929;
6146   t8260 = t605 * t2931;
6147   t8263 = t605 * t2933;
6148   t8266 = t605 * t2943;
6149   t8293 = -0.2500e4 / 0.243e3 * t6677 * t3002 + 0.100e3 / 0.27e2 * t8257 * t241 + 0.100e3 / 0.27e2 * t8260 * t241 + 0.100e3 / 0.27e2 * t8263 * t241 + 0.100e3 / 0.27e2 * t8266 * t241 + 0.100e3 / 0.81e2 * t2441 * t787 + 0.100e3 / 0.81e2 * t2444 * t787 + 0.100e3 / 0.81e2 * t896 * t2099 - 0.25e2 / 0.108e3 * t6717 * t304 - 0.100e3 / 0.27e2 * t5930 * t2470 + 0.10000e5 / 0.243e3 * t7474 * t2466 - 0.1250e4 / 0.243e3 * t2159 * t690 * t1036 * t623 + 0.50e2 / 0.27e2 * t4969 * t1042 + 0.100e3 / 0.27e2 * t5887 * t1042 + 0.100e3 / 0.27e2 * t1695 * t3010 + 0.50e2 / 0.27e2 * t5897 * t1042;
6150   t8338 = 0.100e3 / 0.27e2 * t2190 * t3010 + 0.50e2 / 0.27e2 * t607 * t421 * t97 * t2146 + 0.100e3 / 0.27e2 * t5910 * t887 + 0.100e3 / 0.27e2 * t7437 * t887 + 0.50e2 / 0.27e2 * t2156 * t2462 + 0.20000e5 / 0.729e3 * t7445 * t883 + 0.10000e5 / 0.729e3 * t2741 * t2454 - 0.25e2 / 0.54e2 * t6720 * t304 - 0.25e2 / 0.54e2 * t2441 * t783 + 0.2e1 * t630 * t1064 * t650 + 0.4e1 * t630 * t912 * t808 + 0.2e1 * t630 * t349 * t2146 + 0.2e1 * t630 * t1056 * t650 + 0.2e1 * t630 * t2400 * t312 + 0.4e1 * t630 * t2402 * t312 + 0.4e1 * t630 * t902 * t808 + 0.2e1 * t630 * t2421 * t312;
6151   t8380 = t1679 * t1056;
6152   t8383 = t1679 * t1064;
6153   t8393 = -0.200e3 / 0.27e2 * t1680 * t421 * t3009 * t255 - 0.100e3 / 0.27e2 * t1680 * t421 * t1041 * t650 - 0.20000e5 / 0.729e3 * t4940 * t2922 - 0.20000e5 / 0.729e3 * t1686 * t690 * t3009 * t239 - 0.10000e5 / 0.729e3 * t1686 * t690 * t1041 * t623 - 0.200e3 / 0.81e2 * t2397 * t234 * t786 * t255 - 0.20000e5 / 0.729e3 * t5919 * t2394 + 0.2500e4 / 0.243e3 * t4945 * t690 * t2997 * t239 + 0.25e2 / 0.27e2 * t6776 * t2926 + 0.25e2 / 0.27e2 * t6779 * t2926 + 0.25e2 / 0.27e2 * t2397 * t782 * t2925 + 0.25e2 / 0.54e2 * t2397 * t234 * t303 * t650 - 0.200e3 / 0.27e2 * t8380 * t2037 - 0.200e3 / 0.27e2 * t8383 * t2037 - 0.20000e5 / 0.2187e4 * t2449 * t599 * t412 * t228 * t239 + 0.2500e4 / 0.729e3 * t6670 * t2909;
6154   t8447 = 0.2500e4 / 0.729e3 * t6698 * t2909 + 0.1250e4 / 0.729e3 * t2449 * t599 * t2907 * t623 - 0.200e3 / 0.27e2 * t6776 * t2914 - 0.200e3 / 0.27e2 * t6779 * t2914 - 0.200e3 / 0.27e2 * t2397 * t7613 - 0.100e3 / 0.27e2 * t2397 * t2912 * t421 * t623 + 0.20000e5 / 0.729e3 * t6786 * t312 * t101 * t690 * t600 - 0.200e3 / 0.27e2 * t5954 * t2918 - 0.200e3 / 0.27e2 * t5957 * t2918 + 0.100e3 / 0.9e1 * t5985 * t421 * t1041 * t631 - 0.10000e5 / 0.243e3 * t4945 * t690 * t1041 * t600 - 0.25e2 / 0.18e2 * t6789 * t234 * t303 * t631 + 0.1250e4 / 0.243e3 * t2449 * t1653 * t2907 * t600 + 0.4e1 * t630 * t2929 * t255 + 0.4e1 * t630 * t2931 * t255 + 0.4e1 * t630 * t2933 * t255 + 0.4e1 * t630 * t2943 * t255;
6155   t8456 = t4958 * t349 * t101;
6156   t8476 = -0.2000e4 / 0.243e3 * t2690 - 0.260000e6 / 0.6561e4 * t2694 + 0.32500e5 / 0.2187e4 * t2696 + 0.500e3 / 0.81e2 * t2698 + 0.500e3 / 0.81e2 * t2700 + 0.325e3 / 0.162e3 * t2704 - 0.5000e4 / 0.729e3 * t8456 * t2041 + 0.200e3 / 0.9e1 * t5001 * t1053 * t2037 + 0.40000e5 / 0.729e3 * t7673 * t6742 * t7675 + 0.1300e4 / 0.243e3 * t2709 - 0.3250000e7 / 0.59049e5 * t2713 - 0.325e3 / 0.162e3 * t2716 - 0.1250e4 / 0.729e3 * t4859 * t1038 - 0.50e2 / 0.27e2 * t6102 * t340 - 0.100e3 / 0.27e2 * t2102 * t892 - 0.50e2 / 0.27e2 * t811 * t2430;
6157   t8512 = -0.25e2 / 0.54e2 * t4867 * t2962 - 0.25e2 / 0.108e3 * t1658 * t1047 * t4879 - 0.125000e6 / 0.19683e5 * t2080 * t5011 * t348 * t87 + 0.1000000e7 / 0.19683e5 * t2080 * t5011 * t1041 - 0.250000e6 / 0.19683e5 * t2711 * t5011 * t2997 + 0.50e2 / 0.27e2 * t1658 * t1063 * t600 * t421 - 0.1250e4 / 0.243e3 * t598 * t7508 * t1037 + 0.25e2 / 0.54e2 * t4872 * t1047 * t4873 + 0.50e2 / 0.27e2 * t6048 * t2434 - 0.500e3 / 0.81e2 * t2730 - 0.500e3 / 0.81e2 * t2732 - 0.500e3 / 0.81e2 * t2736 - 0.500e3 / 0.81e2 * t2738 - 0.100000e6 / 0.2187e4 * t2742 - 0.32500e5 / 0.2187e4 * t2755 + 0.32500e5 / 0.729e3 * t2759 + 0.2000e4 / 0.243e3 * t2763;
6158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6159     v4rho2sigmatau[17] = -t8092 - 0.4e1 / 0.3e1 * t8120 - t8130 - t274 * t527 * t1066 * t564 / 0.6e1 - t274 * t746 * t3018 * t216 - t274 * t746 * t1066 * t573 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t8208 + t8253 + t8293 + t8338 + t8393 + t8447 + t8476 + t8512);
6160 
6161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6162     v4rho2lapl2[0] = 0.0e0;
6163 
6164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6165     v4rho2lapl2[1] = 0.0e0;
6166 
6167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6168     v4rho2lapl2[2] = 0.0e0;
6169 
6170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6171     v4rho2lapl2[3] = 0.0e0;
6172 
6173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6174     v4rho2lapl2[4] = 0.0e0;
6175 
6176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6177     v4rho2lapl2[5] = 0.0e0;
6178 
6179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6180     v4rho2lapl2[6] = 0.0e0;
6181 
6182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6183     v4rho2lapl2[7] = 0.0e0;
6184 
6185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6186     v4rho2lapl2[8] = 0.0e0;
6187 
6188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6189     v4rho2lapltau[0] = 0.0e0;
6190 
6191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6192     v4rho2lapltau[1] = 0.0e0;
6193 
6194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6195     v4rho2lapltau[2] = 0.0e0;
6196 
6197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6198     v4rho2lapltau[3] = 0.0e0;
6199 
6200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6201     v4rho2lapltau[4] = 0.0e0;
6202 
6203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6204     v4rho2lapltau[5] = 0.0e0;
6205 
6206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6207     v4rho2lapltau[6] = 0.0e0;
6208 
6209   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6210     v4rho2lapltau[7] = 0.0e0;
6211 
6212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6213     v4rho2lapltau[8] = 0.0e0;
6214 
6215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6216     v4rho2lapltau[9] = 0.0e0;
6217 
6218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6219     v4rho2lapltau[10] = 0.0e0;
6220 
6221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6222     v4rho2lapltau[11] = 0.0e0;
6223 
6224   t8520 = t1773 * t1097 / 0.6e1;
6225   t8521 = t670 * t3025;
6226   t8523 = t670 * t3098;
6227   t8548 = t1201 * t3072;
6228   t8553 = t3893 * t1085;
6229   t8556 = t418 * t3084;
6230   t8559 = t418 * t3094;
6231   t8564 = t1207 * t1094;
6232   t8579 = 0.2000e4 / 0.81e2 * t2787 + 0.200000e6 / 0.2187e4 * t2792 - 0.2000000e7 / 0.6561e4 * t7123 * t3028 - 0.6500e4 / 0.243e3 * t934 + 0.100e3 / 0.27e2 * t5256 * t1077 + 0.200e3 / 0.27e2 * t1933 * t3056 + 0.100e3 / 0.27e2 * t420 * t421 * t39 * t2279 - 0.200e3 / 0.27e2 * t8548 * t169 - 0.100e3 / 0.27e2 * t3066 * t439 + 0.20000e5 / 0.729e3 * t8553 * t415 + 0.100e3 / 0.27e2 * t8556 * t169 + 0.100e3 / 0.27e2 * t8559 * t169 + 0.50e2 / 0.27e2 * t3078 * t439 - 0.10000e5 / 0.729e3 * t8564 * t415 - 0.20000e5 / 0.729e3 * t3870 * t3032 - 0.10000e5 / 0.729e3 * t1208 * t690 * t1071 * t464 + 0.20000e5 / 0.243e3 * t6316 * t3038 + 0.10000e5 / 0.243e3 * t1891 * t690 * t1071 * t437;
6233   t8624 = t1201 * t1094;
6234   t8627 = t3866 * t1085;
6235   t8636 = 0.100e3 / 0.27e2 * t5286 * t1077 + 0.200e3 / 0.27e2 * t5296 * t1077 + 0.200e3 / 0.27e2 * t1218 * t3056 + 0.20000e5 / 0.729e3 * t3894 * t690 * t1071 * t445 - 0.20000e5 / 0.243e3 * t3899 * t690 * t3031 * t167 - 0.40000e5 / 0.729e3 * t3870 * t3043 - 0.40000e5 / 0.729e3 * t1208 * t690 * t3055 * t167 - 0.20000e5 / 0.729e3 * t1208 * t690 * t1076 * t437 - 0.400e3 / 0.27e2 * t5346 * t3047 - 0.400e3 / 0.27e2 * t5349 * t3047 - 0.400e3 / 0.27e2 * t1202 * t421 * t3055 * t183 - 0.200e3 / 0.27e2 * t1202 * t421 * t1076 * t464 - 0.20000e5 / 0.243e3 * t3899 * t690 * t1076 * t413 + 0.200e3 / 0.9e1 * t5306 * t421 * t1076 * t445 - 0.200e3 / 0.27e2 * t8624 * t1792 + 0.200e3 / 0.9e1 * t8627 * t1792 - 0.400e3 / 0.27e2 * t2228 * t162 * t168 * t861 - 0.200000e6 / 0.2187e4 * t2816 - 0.1000e4 / 0.81e2 * t2823;
6236   t8651 = t332 * t183;
6237   t8662 = t861 * t861;
6238   t8699 = 0.80000e5 / 0.729e3 * t7242 * t6384 * t332 * t167 * t183 + 0.20000000e8 / 0.59049e5 * t2826 + 0.1000e4 / 0.81e2 * t2828 + 0.24e2 * t3749 * t1085 * t445 - 0.6e1 * t1268 * t1094 * t445 - 0.24e2 * t2830 * t8651 * t861 - 0.1000000e7 / 0.19683e5 * t7111 * t3028 - 0.2000000e7 / 0.19683e5 * t2563 * t5194 * t1071 - 0.50e2 / 0.27e2 * t1307 * t1081 + 0.4e1 * t444 * t73 * t8662 + 0.2e1 * t444 * t475 * t1084 - t174 * t475 * t1093 - 0.2e1 * t174 * t192 * t3093 - t174 * t73 * (0.500e3 / 0.81e2 * t7203 * t1071 - 0.10000e5 / 0.243e3 * t2805 + 0.65000e5 / 0.729e3 * t943 + 0.2500000e7 / 0.6561e4 * t3715 * t1090 * t413 - 0.50000000e8 / 0.59049e5 * t2809 + 0.2500000e7 / 0.19683e5 * t1252 * t1090 * t437 + 0.81250000e8 / 0.177147e6 * t946) + 0.10000e5 / 0.729e3 * t3797 * t1073 + 0.2000000e7 / 0.19683e5 * t1954 * t3762 * t1076 + 0.100e3 / 0.27e2 * t3794 * t3060 + 0.50e2 / 0.27e2 * t1299 * t1080 * t3827;
6239   t8745 = 0.50e2 / 0.27e2 * t1299 * t1093 * t413 * t421 + 0.10000e5 / 0.243e3 * t409 * t7092 * t1072 + 0.2000000e7 / 0.19683e5 * t2563 * t3762 * t3031 - 0.100e3 / 0.27e2 * t3785 * t1080 * t3786 - 0.100e3 / 0.27e2 * t3785 * t1084 * t413 * t421 + 0.1300000e7 / 0.6561e4 * t926 - 0.1000e4 / 0.81e2 * t2855 - 0.1000e4 / 0.81e2 * t2857 - 0.1000e4 / 0.81e2 * t2859 + 0.200000e6 / 0.2187e4 * t2869 - 0.200000e6 / 0.729e3 * t2873 + 0.4000e4 / 0.243e3 * t2885 - 0.12e2 * t1268 * t3072 * t183 - 0.6e1 * t1268 * t1085 * t464 + 0.8e1 * t444 * t852 * t861 + 0.4e1 * t444 * t333 * t2279 + 0.4e1 * t444 * t3084 * t183 + 0.4e1 * t444 * t3094 * t183 + 0.2e1 * t444 * t1094 * t464;
6240   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6241     v4rho2tau2[0] = -t8520 - 0.4e1 / 0.3e1 * t8521 - t8523 - t274 * t504 * t1096 * t361 / 0.6e1 - t274 * t673 * t3097 * t137 - t274 * t673 * t1096 * t376 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t8579 + t8636 + t8699 + t8745);
6242 
6243   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6244     v4rho2tau2[1] = 0.0e0;
6245 
6246   t8752 = t1773 * t1127 / 0.6e1;
6247   t8753 = t670 * t3103;
6248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6249     v4rho2tau2[2] = -t8752 - 0.4e1 / 0.3e1 * t8753 - t274 * t527 * t1126 * t484 / 0.6e1 - t274 * t746 * t1126 * t493 / 0.2e1;
6250 
6251   t8765 = t670 * t3107;
6252   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6253     v4rho2tau2[3] = -t8520 - 0.2e1 / 0.3e1 * t8521 - t8523 / 0.2e1 - 0.2e1 / 0.3e1 * t8765 - t1982 * t359 * t1096 * t507 / 0.6e1 - t274 * t673 * t3097 * t211 / 0.2e1 - t1992 * t673 * t1096 * t9 / 0.2e1;
6254 
6255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6256     v4rho2tau2[4] = 0.0e0;
6257 
6258   t8780 = t670 * t3112;
6259   t8790 = t670 * t3185;
6260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6261     v4rho2tau2[5] = -t8752 - 0.2e1 / 0.3e1 * t8753 - 0.2e1 / 0.3e1 * t8780 - t1982 * t482 * t1126 * t530 / 0.6e1 + t1992 * t746 * t1126 * t9 / 0.2e1 - t8790 / 0.2e1 - t274 * t746 * t3184 * t199 / 0.2e1;
6262 
6263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6264     v4rho2tau2[6] = -t8520 - 0.4e1 / 0.3e1 * t8765 - t274 * t504 * t1096 * t553 / 0.6e1 - t274 * t673 * t1096 * t559 / 0.2e1;
6265 
6266   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6267     v4rho2tau2[7] = 0.0e0;
6268 
6269   t8819 = t4958 * t1115;
6270   t8822 = t605 * t3171;
6271   t8825 = t605 * t3181;
6272   t8830 = t1685 * t1124;
6273   t8851 = t1679 * t3159;
6274   t8866 = -0.100e3 / 0.27e2 * t3153 * t625 + 0.20000e5 / 0.729e3 * t8819 * t602 + 0.100e3 / 0.27e2 * t8822 * t241 + 0.100e3 / 0.27e2 * t8825 * t241 + 0.50e2 / 0.27e2 * t3165 * t625 - 0.10000e5 / 0.729e3 * t8830 * t602 + 0.10000e5 / 0.243e3 * t2159 * t690 * t1101 * t623 + 0.100e3 / 0.27e2 * t4969 * t1107 + 0.200e3 / 0.27e2 * t5887 * t1107 + 0.200e3 / 0.27e2 * t1695 * t3143 + 0.100e3 / 0.27e2 * t5897 * t1107 + 0.200e3 / 0.27e2 * t2190 * t3143 + 0.100e3 / 0.27e2 * t607 * t421 * t97 * t2420 - 0.200e3 / 0.27e2 * t8851 * t241 - 0.20000e5 / 0.729e3 * t4940 * t3119 - 0.10000e5 / 0.729e3 * t1686 * t690 * t1101 * t650 + 0.20000e5 / 0.243e3 * t6677 * t3125 + 0.20000e5 / 0.729e3 * t4959 * t690 * t1101 * t631;
6275   t8902 = t5001 * t1115;
6276   t8909 = t1679 * t1124;
6277   t8914 = t911 * t911;
6278   t8936 = 0.200000e6 / 0.2187e4 * t2910 + 0.2000e4 / 0.81e2 * t2927 - 0.6500e4 / 0.243e3 * t975 - 0.20000e5 / 0.243e3 * t4945 * t690 * t1106 * t600 + 0.200e3 / 0.9e1 * t5985 * t421 * t1106 * t631 - 0.400e3 / 0.27e2 * t5957 * t3134 - 0.400e3 / 0.27e2 * t1680 * t421 * t3142 * t255 - 0.200e3 / 0.27e2 * t1680 * t421 * t1106 * t650 - 0.20000e5 / 0.243e3 * t4945 * t690 * t3118 * t239 - 0.40000e5 / 0.729e3 * t4940 * t3130 - 0.40000e5 / 0.729e3 * t1686 * t690 * t3142 * t239 - 0.20000e5 / 0.729e3 * t1686 * t690 * t1106 * t623 + 0.200e3 / 0.9e1 * t8902 * t2037 - 0.400e3 / 0.27e2 * t2397 * t234 * t240 * t911 - 0.200e3 / 0.27e2 * t8909 * t2037 - 0.400e3 / 0.27e2 * t5954 * t3134 + 0.4e1 * t630 * t124 * t8914 - t246 * t124 * (0.500e3 / 0.81e2 * t7345 * t1101 - 0.10000e5 / 0.243e3 * t2935 + 0.65000e5 / 0.729e3 * t984 + 0.2500000e7 / 0.6561e4 * t5045 * t1120 * t600 - 0.50000000e8 / 0.59049e5 * t2939 + 0.2500000e7 / 0.19683e5 * t1616 * t1120 * t623 + 0.81250000e8 / 0.177147e6 * t987) + 0.2e1 * t630 * t661 * t1114;
6279   t8987 = -t246 * t661 * t1123 - 0.2e1 * t246 * t264 * t3180 + 0.20000000e8 / 0.59049e5 * t2947 + 0.1000e4 / 0.81e2 * t2949 - 0.200000e6 / 0.2187e4 * t2956 - 0.1000e4 / 0.81e2 * t2963 - 0.6e1 * t1631 * t1124 * t631 + 0.24e2 * t5066 * t1115 * t631 + 0.80000e5 / 0.729e3 * t7673 * t6742 * t348 * t239 * t255 + 0.2e1 * t630 * t1124 * t650 - 0.12e2 * t1631 * t3159 * t255 - 0.6e1 * t1631 * t1115 * t650 + 0.8e1 * t630 * t902 * t911 + 0.4e1 * t630 * t349 * t2420 + 0.4e1 * t630 * t3171 * t255 + 0.4e1 * t630 * t3181 * t255 - 0.100e3 / 0.27e2 * t4872 * t1114 * t600 * t421 + 0.50e2 / 0.27e2 * t1658 * t1123 * t600 * t421;
6280   t9014 = t348 * t255;
6281   t9027 = 0.10000e5 / 0.243e3 * t598 * t7508 * t1102 - 0.100e3 / 0.27e2 * t4872 * t1110 * t4873 + 0.2000000e7 / 0.19683e5 * t2711 * t5011 * t3118 + 0.10000e5 / 0.729e3 * t4859 * t1103 + 0.2000000e7 / 0.19683e5 * t2080 * t5011 * t1106 + 0.100e3 / 0.27e2 * t4867 * t3147 + 0.50e2 / 0.27e2 * t1658 * t1110 * t4879 - 0.1000000e7 / 0.19683e5 * t7684 * t3115 - 0.2000000e7 / 0.19683e5 * t2711 * t6145 * t1101 - 0.50e2 / 0.27e2 * t1667 * t1111 - 0.24e2 * t2951 * t9014 * t911 - 0.2000000e7 / 0.6561e4 * t7693 * t3115 + 0.1300000e7 / 0.6561e4 * t967 + 0.4000e4 / 0.243e3 * t2983 - 0.1000e4 / 0.81e2 * t2985 - 0.1000e4 / 0.81e2 * t2987 - 0.1000e4 / 0.81e2 * t2989 + 0.200000e6 / 0.2187e4 * t2999 - 0.200000e6 / 0.729e3 * t3003;
6282   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6283     v4rho2tau2[8] = -t8752 - 0.4e1 / 0.3e1 * t8780 - t8790 - t274 * t527 * t1126 * t564 / 0.6e1 - t274 * t746 * t3184 * t216 - t274 * t746 * t1126 * t573 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t8866 + t8936 + t8987 + t9027);
6284 
6285   t9033 = t670 * t3252;
6286   t9042 = 0.1e1 / t27 / t1284 * t19 * t153;
6287   t9048 = 0.625e3 / 0.2324522934e10 * t3816 * t9042;
6288   t9050 = 0.125e3 / 0.3188646e7 * t1281 * t2506;
6289   t9054 = t418 * t953 * t42;
6290   t9071 = t73 * t920;
6291   t9073 = t421 * t7126;
6292   t9112 = t67 * (0.625e3 / 0.2324522934e10 * t3933 * t9042 - 0.125e3 / 0.3188646e7 * t1321 * t2506 - t9048 + t9050) - 0.25e2 / 0.36e2 * t9054 * t696 + 0.50e2 / 0.27e2 * t420 * t421 * t156 * t948 - 0.100e3 / 0.27e2 * t1202 * t421 * t156 * t936 + 0.2500e4 / 0.729e3 * t1208 * t690 * t680 * t288 + 0.100e3 / 0.27e2 * t1908 * t2612 - 0.25e2 / 0.144e3 * t1201 * t9071 * t9073 - t9050 - 0.3e1 * t174 * t953 * t727 - 0.3e1 * t174 * t739 * t948 - 0.3e1 * t174 * t293 * t2543 - t174 * t192 * t3232 - t174 * t73 * (0.125e3 / 0.1296e4 * t2506 - 0.78125e5 / 0.104976e6 * t3715 * t3229 * t167 + 0.78125e5 / 0.39366e5 * t1252 * t62 * t2505) - 0.6e1 * t1268 * t192 * t3193 - t174 * t3204 * t183 + 0.6e1 * t444 * t739 * t936 - 0.3e1 * t174 * t2517 * t288 + 0.25e2 / 0.9e1 * t6926 * t2497 + 0.2500e4 / 0.243e3 * t5280 * t2501;
6293   t9113 = t948 * t42;
6294   t9114 = t9113 * t2795;
6295   t9183 = -0.100e3 / 0.9e1 * t1790 * t9114 - 0.625e3 / 0.324e3 * t1207 * t9071 * t690 * t2794 * t167 + 0.25e2 / 0.18e2 * t1202 * t421 * t3245 * t183 + 0.1250e4 / 0.243e3 * t1208 * t690 * t3245 * t167 - 0.25e2 / 0.6e1 * t5306 * t421 * t3235 * t183 + 0.25e2 / 0.9e1 * t1202 * t421 * t928 * t727 - 0.2500e4 / 0.243e3 * t3894 * t690 * t3235 * t167 + 0.625e3 / 0.486e3 * t3894 * t690 * t3239 * t183 - 0.15625e5 / 0.19683e5 * t1289 * t2505 * t66 * t73 - 0.18e2 * t1268 * t937 * t727 + 0.6e1 * t444 * t715 * t948 + 0.6e1 * t444 * t728 * t948 + 0.6e1 * t444 * t289 * t2543 + 0.12e2 * t444 * t940 * t727 + 0.6e1 * t444 * t3222 * t183 + 0.6e1 * t444 * t3225 * t183 + 0.2e1 * t444 * t3233 * t183 + 0.15625e5 / 0.157464e6 * t1289 * t3189 * t192 + 0.24e2 * t3749 * t3194 * t183 - 0.18e2 * t1268 * t3219 * t183;
6296   t9193 = t167 * t19;
6297   t9199 = t47 * t727;
6298   t9217 = t160 * t3204;
6299   t9223 = t408 * t953 * t43;
6300   t9226 = t1201 * t3219;
6301   t9232 = t418 * t3225;
6302   t9235 = t418 * t3233;
6303   t9238 = -0.2500e4 / 0.729e3 * t1869 * t2571 + 0.625e3 / 0.972e3 * t409 * t1294 * t412 * t2505 - 0.625e3 / 0.7776e4 * t1304 * t3209 - 0.625e3 / 0.7776e4 * t409 * t9193 * t3208 + 0.25e2 / 0.288e3 * t3794 * t3213 + 0.25e2 / 0.288e3 * t1299 * t2554 * t9199 + 0.25e2 / 0.36e2 * t7065 * t280 + 0.25e2 / 0.36e2 * t2558 * t702 + 0.15625e5 / 0.6561e4 * t2563 * t3762 * t3239 + 0.25e2 / 0.288e3 * t5503 * t2555 - 0.25e2 / 0.54e2 * t1299 * t7081 * t3212 - 0.50e2 / 0.27e2 * t2558 * t706 + t9048 - 0.50e2 / 0.27e2 * t9217 * t169 + 0.625e3 / 0.972e3 * t5513 * t925 - 0.1250e4 / 0.243e3 * t9223 * t692 - 0.100e3 / 0.9e1 * t9226 * t169 + 0.50e2 / 0.9e1 * t418 * t3222 * t169 + 0.50e2 / 0.9e1 * t9232 * t169 + 0.50e2 / 0.27e2 * t9235 * t169;
6304   t9263 = t3866 * t3194;
6305   t9277 = t1955 * t167;
6306   t9280 = t1289 * t3188;
6307   t9292 = 0.25e2 / 0.18e2 * t5346 * t3236 + 0.25e2 / 0.18e2 * t5349 * t3236 - 0.625e3 / 0.972e3 * t3870 * t3240 - 0.625e3 / 0.972e3 * t1208 * t690 * t920 * t727 - 0.25e2 / 0.18e2 * t5260 * t929 - 0.25e2 / 0.18e2 * t6977 * t929 - 0.25e2 / 0.18e2 * t1908 * t2585 - 0.25e2 / 0.36e2 * t1218 * t3246 - 0.25e2 / 0.36e2 * t1933 * t3246 - 0.25e2 / 0.36e2 * t420 * t421 * t29 * t2543 + 0.100e3 / 0.9e1 * t9263 * t169 - 0.625e3 / 0.972e3 * t5280 * t2604 + 0.625e3 / 0.324e3 * t6945 * t2608 + 0.625e3 / 0.7776e4 * t3899 * t690 * t3188 * t183 - 0.25e2 / 0.288e3 * t1882 * t921 + 0.15625e5 / 0.26244e5 * t3839 * t3188 * t9277 - 0.15625e5 / 0.157464e6 * t9280 * t3763 - 0.18e2 * t2830 * t288 * t948 * t183 - 0.15625e5 / 0.6561e4 * t2563 * t7119 * t920 + 0.25e2 / 0.54e2 * t730 * t2510;
6308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6309     v4rhosigma3[0] = -t9033 / 0.2e1 - t274 * t673 * t3251 * t137 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t9112 + t9183 + t9238 + t9292);
6310 
6311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6312     v4rhosigma3[1] = 0.0e0;
6313 
6314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6315     v4rhosigma3[2] = 0.0e0;
6316 
6317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6318     v4rhosigma3[3] = 0.0e0;
6319 
6320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6321     v4rhosigma3[4] = 0.0e0;
6322 
6323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6324     v4rhosigma3[5] = 0.0e0;
6325 
6326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6327     v4rhosigma3[6] = 0.0e0;
6328 
6329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6330     v4rhosigma3[7] = 0.0e0;
6331 
6332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6333     v4rhosigma3[8] = 0.0e0;
6334 
6335   t9298 = t670 * t3319;
6336   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6337     v4rhosigma3[9] = -t274 * t746 * t3318 * t199 / 0.2e1 - t9298 / 0.2e1;
6338 
6339   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6340     v4rhosigma3[10] = -t274 * t673 * t3251 * t211 / 0.2e1 - t9033 / 0.2e1;
6341 
6342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6343     v4rhosigma3[11] = 0.0e0;
6344 
6345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6346     v4rhosigma3[12] = 0.0e0;
6347 
6348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6349     v4rhosigma3[13] = 0.0e0;
6350 
6351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6352     v4rhosigma3[14] = 0.0e0;
6353 
6354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6355     v4rhosigma3[15] = 0.0e0;
6356 
6357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6358     v4rhosigma3[16] = 0.0e0;
6359 
6360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6361     v4rhosigma3[17] = 0.0e0;
6362 
6363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6364     v4rhosigma3[18] = 0.0e0;
6365 
6366   t9373 = -0.15625e5 / 0.19683e5 * t1645 * t2676 * t117 * t124 + 0.12e2 * t630 * t981 * t808 + 0.6e1 * t630 * t3289 * t255 + 0.6e1 * t630 * t3292 * t255 + 0.2e1 * t630 * t3300 * t255 - 0.18e2 * t1631 * t978 * t808 + 0.6e1 * t630 * t796 * t989 + 0.6e1 * t630 * t809 * t989 + 0.6e1 * t630 * t313 * t2664 - 0.18e2 * t1631 * t3286 * t255 + 0.15625e5 / 0.157464e6 * t1645 * t3256 * t264 + 0.24e2 * t5066 * t3261 * t255 + 0.625e3 / 0.486e3 * t4959 * t690 * t3312 * t255 - 0.25e2 / 0.6e1 * t5985 * t421 * t3302 * t255 + 0.25e2 / 0.9e1 * t1680 * t421 * t969 * t808 - 0.2500e4 / 0.243e3 * t4959 * t690 * t3302 * t239 + 0.25e2 / 0.9e1 * t5930 * t2668 + 0.2500e4 / 0.243e3 * t5919 * t2672 + 0.25e2 / 0.18e2 * t1680 * t421 * t3308 * t255;
6367   t9378 = t989 * t100;
6368   t9379 = t9378 * t2913;
6369   t9382 = t124 * t961;
6370   t9391 = 0.1e1 / t85 / t1577 * t19 * t225;
6371   t9397 = 0.625e3 / 0.2324522934e10 * t4902 * t9391;
6372   t9399 = 0.125e3 / 0.3188646e7 * t1594 * t2677;
6373   t9405 = t2081 * t239;
6374   t9408 = t1645 * t3255;
6375   t9425 = t232 * t3271;
6376   t9432 = t239 * t19;
6377   t9438 = t47 * t808;
6378   t9446 = 0.1250e4 / 0.243e3 * t1686 * t690 * t3308 * t239 - 0.100e3 / 0.9e1 * t2035 * t9379 - 0.625e3 / 0.324e3 * t1685 * t9382 * t690 * t2912 * t239 + t118 * (0.625e3 / 0.2324522934e10 * t5097 * t9391 - 0.125e3 / 0.3188646e7 * t1573 * t2677 - t9397 + t9399) - 0.25e2 / 0.288e3 * t2102 * t962 + 0.15625e5 / 0.26244e5 * t4922 * t3255 * t9405 - 0.15625e5 / 0.157464e6 * t9408 * t5012 - 0.18e2 * t2951 * t312 * t989 * t255 - 0.15625e5 / 0.6561e4 * t2711 * t7689 * t961 + 0.25e2 / 0.54e2 * t811 * t2681 + 0.15625e5 / 0.6561e4 * t2711 * t5011 * t3312 + 0.25e2 / 0.288e3 * t6048 * t2703 - 0.50e2 / 0.27e2 * t9425 * t241 + 0.625e3 / 0.972e3 * t6107 * t966 - 0.625e3 / 0.7776e4 * t1663 * t3276 - 0.625e3 / 0.7776e4 * t598 * t9432 * t3275 + 0.25e2 / 0.288e3 * t4867 * t3280 + 0.25e2 / 0.288e3 * t1658 * t2702 * t9438 + 0.25e2 / 0.36e2 * t7542 * t304 + 0.25e2 / 0.36e2 * t2706 * t783;
6379   t9460 = t421 * t7674;
6380   t9464 = t605 * t994 * t100;
6381   t9468 = t597 * t994 * t101;
6382   t9471 = t1679 * t3286;
6383   t9477 = t605 * t3292;
6384   t9480 = t605 * t3300;
6385   t9501 = -0.25e2 / 0.54e2 * t1658 * t7504 * t3279 - 0.50e2 / 0.27e2 * t2706 * t787 - 0.2500e4 / 0.729e3 * t2107 * t2693 + 0.625e3 / 0.972e3 * t598 * t1653 * t412 * t2676 + t9397 - 0.25e2 / 0.144e3 * t1679 * t9382 * t9460 - 0.25e2 / 0.36e2 * t9464 * t777 - 0.1250e4 / 0.243e3 * t9468 * t773 - 0.100e3 / 0.9e1 * t9471 * t241 + 0.50e2 / 0.9e1 * t605 * t3289 * t241 + 0.50e2 / 0.9e1 * t9477 * t241 + 0.50e2 / 0.27e2 * t9480 * t241 + 0.25e2 / 0.18e2 * t5954 * t3303 + 0.25e2 / 0.18e2 * t5957 * t3303 - 0.25e2 / 0.18e2 * t5910 * t970 - 0.25e2 / 0.18e2 * t7437 * t970 - 0.25e2 / 0.18e2 * t2156 * t2735 - 0.25e2 / 0.36e2 * t1695 * t3309 - 0.25e2 / 0.36e2 * t2190 * t3309 - 0.25e2 / 0.36e2 * t607 * t421 * t87 * t2664;
6386   t9508 = t5001 * t3261;
6387   t9565 = -0.625e3 / 0.972e3 * t4940 * t3313 - 0.625e3 / 0.972e3 * t1686 * t690 * t961 * t808 + 0.100e3 / 0.9e1 * t9508 * t241 - 0.625e3 / 0.972e3 * t5919 * t2754 + 0.625e3 / 0.324e3 * t7474 * t2758 + 0.625e3 / 0.7776e4 * t4945 * t690 * t3255 * t255 + 0.2500e4 / 0.729e3 * t1686 * t690 * t762 * t312 - 0.100e3 / 0.27e2 * t1680 * t421 * t228 * t977 + 0.100e3 / 0.27e2 * t2156 * t2762 + 0.50e2 / 0.27e2 * t607 * t421 * t228 * t989 - t9399 - 0.3e1 * t246 * t2688 * t312 - 0.3e1 * t246 * t994 * t808 - 0.3e1 * t246 * t820 * t989 - 0.3e1 * t246 * t317 * t2664 - t246 * t264 * t3299 - t246 * t124 * (0.125e3 / 0.1296e4 * t2677 - 0.78125e5 / 0.104976e6 * t5045 * t3296 * t239 + 0.78125e5 / 0.39366e5 * t1616 * t62 * t2676) - 0.6e1 * t1631 * t264 * t3260 - t246 * t3271 * t255 + 0.6e1 * t630 * t820 * t977;
6388   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6389     v4rhosigma3[19] = -t9298 / 0.2e1 - t274 * t746 * t3318 * t216 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t9373 + t9446 + t9501 + t9565);
6390 
6391   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6392     v4rhosigma2lapl[0] = 0.0e0;
6393 
6394   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6395     v4rhosigma2lapl[1] = 0.0e0;
6396 
6397   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6398     v4rhosigma2lapl[2] = 0.0e0;
6399 
6400   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6401     v4rhosigma2lapl[3] = 0.0e0;
6402 
6403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6404     v4rhosigma2lapl[4] = 0.0e0;
6405 
6406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6407     v4rhosigma2lapl[5] = 0.0e0;
6408 
6409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6410     v4rhosigma2lapl[6] = 0.0e0;
6411 
6412   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6413     v4rhosigma2lapl[7] = 0.0e0;
6414 
6415   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6416     v4rhosigma2lapl[8] = 0.0e0;
6417 
6418   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6419     v4rhosigma2lapl[9] = 0.0e0;
6420 
6421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6422     v4rhosigma2lapl[10] = 0.0e0;
6423 
6424   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6425     v4rhosigma2lapl[11] = 0.0e0;
6426 
6427   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6428     v4rhosigma2lapl[12] = 0.0e0;
6429 
6430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6431     v4rhosigma2lapl[13] = 0.0e0;
6432 
6433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6434     v4rhosigma2lapl[14] = 0.0e0;
6435 
6436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6437     v4rhosigma2lapl[15] = 0.0e0;
6438 
6439   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6440     v4rhosigma2lapl[16] = 0.0e0;
6441 
6442   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6443     v4rhosigma2lapl[17] = 0.0e0;
6444 
6445   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6446     v4rhosigma2lapl[18] = 0.0e0;
6447 
6448   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6449     v4rhosigma2lapl[19] = 0.0e0;
6450 
6451   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6452     v4rhosigma2lapl[20] = 0.0e0;
6453 
6454   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6455     v4rhosigma2lapl[21] = 0.0e0;
6456 
6457   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6458     v4rhosigma2lapl[22] = 0.0e0;
6459 
6460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6461     v4rhosigma2lapl[23] = 0.0e0;
6462 
6463   t9571 = t670 * t3396;
6464   t9623 = 0.2500e4 / 0.729e3 * t7789 * t2791 + 0.625e3 / 0.1458e4 * t6342 * t410 * t924 * t183 - 0.625e3 / 0.972e3 * t2309 * t1294 * t924 * t167 - 0.5000e4 / 0.729e3 * t3894 * t690 * t3328 * t183 + 0.2500e4 / 0.243e3 * t3899 * t690 * t3328 * t167 - 0.200e3 / 0.81e2 * t2228 * t162 * t705 * t288 + 0.25e2 / 0.27e2 * t2228 * t162 * t279 * t727 + 0.100e3 / 0.9e1 * t5306 * t421 * t3390 * t183 - 0.200e3 / 0.27e2 * t1202 * t421 * t1006 * t727 + 0.20000e5 / 0.729e3 * t3894 * t690 * t3390 * t167 - 0.200e3 / 0.27e2 * t6926 * t2778 - 0.20000e5 / 0.729e3 * t5280 * t2782 - 0.100e3 / 0.27e2 * t1202 * t421 * t3334 * t183;
6465   t9628 = t936 * t42;
6466   t9658 = -0.10000e5 / 0.729e3 * t1208 * t690 * t3334 * t167 + 0.100e3 / 0.9e1 * t6327 * t9628 * t2795 - 0.200e3 / 0.27e2 * t7885 * t2796 - 0.200e3 / 0.27e2 * t7888 * t2796 - 0.100e3 / 0.27e2 * t2228 * t9114 + 0.25e2 / 0.27e2 * t7885 * t2786 + 0.2500e4 / 0.729e3 * t7784 * t2791 + 0.25e2 / 0.27e2 * t7888 * t2786 + 0.25e2 / 0.27e2 * t6332 * t3387 + 0.25e2 / 0.27e2 * t6335 * t3387 + 0.25e2 / 0.27e2 * t2228 * t701 * t3386 - 0.25e2 / 0.9e1 * t3866 * t333 * t42 * t2497 - 0.5000e4 / 0.729e3 * t8052 * t2501 - 0.325e3 / 0.162e3 * t3249;
6467   t9680 = t1289 * t3343;
6468   t9694 = 0.32500e5 / 0.2187e4 * t3206 - 0.4375e4 / 0.972e3 * t3210 + 0.325e3 / 0.162e3 * t3214 + 0.250e3 / 0.81e2 * t3216 + 0.109375e6 / 0.19683e5 * t3191 + 0.250000e6 / 0.19683e5 * t2563 * t7119 * t1001 + 0.24e2 * t7991 * t332 * t936 * t183 - 0.12e2 * t2830 * t2831 * t727 + 0.25e2 / 0.54e2 * t1882 * t1013 - 0.31250e5 / 0.6561e4 * t3839 * t3343 * t9277 + 0.15625e5 / 0.19683e5 * t9680 * t3763 - 0.12e2 * t1268 * t293 * t2832 - 0.12e2 * t2830 * t1028 * t288 * t183 - 0.6e1 * t2830 * t332 * t948 * t183;
6469   t9732 = 0.625e3 / 0.972e3 * t1304 * t3378 + 0.625e3 / 0.972e3 * t409 * t9193 * t3377 - 0.25e2 / 0.54e2 * t3794 * t3381 - 0.25e2 / 0.54e2 * t1299 * t1012 * t9199 - 0.25e2 / 0.162e3 * t1299 * t332 * t680 * t421 - 0.50e2 / 0.27e2 * t7065 * t324 - 0.50e2 / 0.27e2 * t2558 * t842 + 0.15625e5 / 0.19683e5 * t2563 * t3762 * t3371 - 0.250000e6 / 0.19683e5 * t2563 * t3762 * t3328 - 0.25e2 / 0.54e2 * t5503 * t2822 + 0.25e2 / 0.864e3 * t3794 * t3372 + 0.25e2 / 0.864e3 * t1299 * t861 * t920 * t421 - 0.2500e4 / 0.729e3 * t5513 * t1003 - 0.2e1 * t174 * t293 * t2812;
6470   t9769 = t1201 * t73 * t1001;
6471   t9776 = -t174 * t192 * t3349 - t174 * t73 * (-0.875e3 / 0.1296e4 * t3200 + 0.78125e5 / 0.13122e5 * t3715 * t3346 * t167 - 0.546875e6 / 0.39366e5 * t3230) - t174 * t2517 * t332 - t174 * t953 * t861 - 0.2e1 * t174 * t739 * t1028 + 0.4e1 * t444 * t1029 * t727 + 0.2e1 * t444 * t852 * t948 + 0.2e1 * t444 * t862 * t948 + 0.2e1 * t444 * t333 * t2543 - 0.625e3 / 0.972e3 * t3899 * t690 * t3343 * t183 + 0.25e2 / 0.27e2 * t9769 * t9073 + 0.50e2 / 0.27e2 * t9054 * t837 + 0.10000e5 / 0.729e3 * t9223 * t833;
6472   t9809 = -0.100e3 / 0.27e2 * t5346 * t3391 - 0.100e3 / 0.27e2 * t5349 * t3391 - 0.25e2 / 0.54e2 * t7756 * t280 - 0.25e2 / 0.54e2 * t2864 * t702 - 0.625e3 / 0.2916e4 * t6275 * t925 - 0.625e3 / 0.2916e4 * t6284 * t925 + 0.2500e4 / 0.729e3 * t3870 * t3329 + 0.2500e4 / 0.729e3 * t1208 * t690 * t1001 * t727 + 0.100e3 / 0.27e2 * t5260 * t1007 + 0.100e3 / 0.27e2 * t6977 * t1007 + 0.100e3 / 0.27e2 * t1908 * t2880 + 0.50e2 / 0.27e2 * t1218 * t3335 + 0.50e2 / 0.27e2 * t1933 * t3335 + 0.50e2 / 0.27e2 * t420 * t421 * t39 * t2543;
6473   t9811 = t418 * t3338;
6474   t9814 = t418 * t3340;
6475   t9817 = t418 * t3350;
6476   t9845 = 0.50e2 / 0.27e2 * t9811 * t169 + 0.100e3 / 0.27e2 * t9814 * t169 + 0.50e2 / 0.27e2 * t9817 * t169 - 0.2500e4 / 0.243e3 * t408 * t293 * t1001 * t690 * t42 * t167 - 0.25e2 / 0.432e3 * t2228 * t2555 + 0.2500e4 / 0.729e3 * t5280 * t2868 - 0.25e2 / 0.54e2 * t7747 * t280 - 0.25e2 / 0.54e2 * t7750 * t280 - 0.25e2 / 0.54e2 * t2861 * t702 - 0.25e2 / 0.54e2 * t7753 * t280 + 0.100e3 / 0.81e2 * t2861 * t706 + 0.100e3 / 0.81e2 * t2864 * t706 + 0.2500e4 / 0.2187e4 * t2309 * t2571 + 0.500e3 / 0.81e2 * t3237;
6477   t9882 = -0.32500e5 / 0.2187e4 * t3241 - 0.500e3 / 0.81e2 * t3243 - 0.250e3 / 0.81e2 * t3247 + 0.2e1 * t444 * t3338 * t183 + 0.4e1 * t444 * t3340 * t183 + 0.2e1 * t444 * t3350 * t183 - 0.6e1 * t1268 * t852 * t936 - 0.6e1 * t1268 * t862 * t936 - 0.15625e5 / 0.19683e5 * t1289 * t3358 * t192 + 0.4e1 * t444 * t2799 * t288 + 0.4e1 * t444 * t2801 * t288 + 0.4e1 * t444 * t1021 * t727 + 0.4e1 * t444 * t2803 * t288 + 0.4e1 * t444 * t2813 * t288;
6478   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6479     v4rhosigma2tau[0] = -t9571 / 0.2e1 - t274 * t673 * t3395 * t137 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t9623 + t9658 + t9694 + t9732 + t9776 + t9809 + t9845 + t9882);
6480 
6481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6482     v4rhosigma2tau[1] = 0.0e0;
6483 
6484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6485     v4rhosigma2tau[2] = 0.0e0;
6486 
6487   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6488     v4rhosigma2tau[3] = 0.0e0;
6489 
6490   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6491     v4rhosigma2tau[4] = 0.0e0;
6492 
6493   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6494     v4rhosigma2tau[5] = 0.0e0;
6495 
6496   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6497     v4rhosigma2tau[6] = 0.0e0;
6498 
6499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6500     v4rhosigma2tau[7] = 0.0e0;
6501 
6502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6503     v4rhosigma2tau[8] = 0.0e0;
6504 
6505   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6506     v4rhosigma2tau[9] = 0.0e0;
6507 
6508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6509     v4rhosigma2tau[10] = 0.0e0;
6510 
6511   t9889 = t670 * t3473;
6512   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6513     v4rhosigma2tau[11] = -t274 * t746 * t3472 * t199 / 0.2e1 - t9889 / 0.2e1;
6514 
6515   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6516     v4rhosigma2tau[12] = -t274 * t673 * t3395 * t211 / 0.2e1 - t9571 / 0.2e1;
6517 
6518   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6519     v4rhosigma2tau[13] = 0.0e0;
6520 
6521   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6522     v4rhosigma2tau[14] = 0.0e0;
6523 
6524   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6525     v4rhosigma2tau[15] = 0.0e0;
6526 
6527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6528     v4rhosigma2tau[16] = 0.0e0;
6529 
6530   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6531     v4rhosigma2tau[17] = 0.0e0;
6532 
6533   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6534     v4rhosigma2tau[18] = 0.0e0;
6535 
6536   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6537     v4rhosigma2tau[19] = 0.0e0;
6538 
6539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6540     v4rhosigma2tau[20] = 0.0e0;
6541 
6542   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6543     v4rhosigma2tau[21] = 0.0e0;
6544 
6545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6546     v4rhosigma2tau[22] = 0.0e0;
6547 
6548   t9912 = t977 * t100;
6549   t9938 = 0.109375e6 / 0.19683e5 * t3258 - 0.100e3 / 0.27e2 * t1680 * t421 * t3411 * t255 - 0.10000e5 / 0.729e3 * t1686 * t690 * t3411 * t239 + 0.100e3 / 0.9e1 * t6789 * t9912 * t2913 - 0.200e3 / 0.27e2 * t8380 * t2914 + 0.25e2 / 0.27e2 * t8380 * t2926 + 0.2500e4 / 0.729e3 * t8239 * t2909 + 0.25e2 / 0.27e2 * t8383 * t2926 + 0.2500e4 / 0.729e3 * t8244 * t2909 + 0.625e3 / 0.1458e4 * t6786 * t599 * t965 * t255 - 0.625e3 / 0.972e3 * t2449 * t1653 * t965 * t239 - 0.200e3 / 0.27e2 * t8383 * t2914 - 0.100e3 / 0.27e2 * t2397 * t9379;
6550   t9988 = 0.100e3 / 0.9e1 * t5985 * t421 * t3463 * t255 - 0.200e3 / 0.27e2 * t1680 * t421 * t1041 * t808 + 0.20000e5 / 0.729e3 * t4959 * t690 * t3463 * t239 + 0.25e2 / 0.27e2 * t6776 * t3468 + 0.25e2 / 0.27e2 * t6779 * t3468 + 0.25e2 / 0.27e2 * t2397 * t782 * t3467 + 0.25e2 / 0.27e2 * t2397 * t234 * t303 * t808 - 0.5000e4 / 0.729e3 * t4959 * t690 * t3405 * t255 + 0.2500e4 / 0.243e3 * t4945 * t690 * t3405 * t239 - 0.200e3 / 0.27e2 * t5930 * t2918 - 0.20000e5 / 0.729e3 * t5919 * t2922 - 0.200e3 / 0.81e2 * t2397 * t234 * t786 * t312 - t246 * t124 * (-0.875e3 / 0.1296e4 * t3267 + 0.78125e5 / 0.13122e5 * t5045 * t3423 * t239 - 0.546875e6 / 0.39366e5 * t3297) - t246 * t2688 * t348;
6551   t10030 = -t246 * t994 * t911 - 0.2e1 * t246 * t820 * t1063 - 0.2e1 * t246 * t317 * t2942 - t246 * t264 * t3426 - 0.25e2 / 0.9e1 * t5001 * t349 * t100 * t2668 - 0.5000e4 / 0.729e3 * t8456 * t2672 - 0.325e3 / 0.162e3 * t3316 + 0.25e2 / 0.54e2 * t2102 * t1048 + 0.24e2 * t8209 * t348 * t977 * t255 - 0.12e2 * t2951 * t2952 * t808 - 0.12e2 * t1631 * t317 * t2953 - 0.12e2 * t2951 * t1063 * t312 * t255 - 0.6e1 * t2951 * t348 * t989 * t255 - 0.31250e5 / 0.6561e4 * t4922 * t3420 * t9405;
6552   t10031 = t1645 * t3420;
6553   t10065 = 0.15625e5 / 0.19683e5 * t10031 * t5012 + 0.250000e6 / 0.19683e5 * t2711 * t7689 * t1036 + 0.32500e5 / 0.2187e4 * t3273 - 0.4375e4 / 0.972e3 * t3277 + 0.325e3 / 0.162e3 * t3281 + 0.250e3 / 0.81e2 * t3283 + 0.2e1 * t630 * t349 * t2664 - 0.15625e5 / 0.19683e5 * t1645 * t3444 * t264 + 0.4e1 * t630 * t1056 * t808 + 0.4e1 * t630 * t2933 * t312 + 0.4e1 * t630 * t2943 * t312 + 0.4e1 * t630 * t1064 * t808 + 0.2e1 * t630 * t902 * t989 + 0.2e1 * t630 * t912 * t989;
6554   t10103 = 0.2e1 * t630 * t3427 * t255 - 0.6e1 * t1631 * t902 * t977 - 0.6e1 * t1631 * t912 * t977 + 0.4e1 * t630 * t2929 * t312 + 0.4e1 * t630 * t2931 * t312 + 0.2e1 * t630 * t3415 * t255 + 0.4e1 * t630 * t3417 * t255 - 0.2500e4 / 0.729e3 * t6107 * t1038 + 0.625e3 / 0.972e3 * t1663 * t3455 + 0.625e3 / 0.972e3 * t598 * t9432 * t3454 - 0.25e2 / 0.54e2 * t4867 * t3458 - 0.25e2 / 0.54e2 * t1658 * t1047 * t9438 - 0.50e2 / 0.27e2 * t7542 * t340;
6555   t10129 = t1679 * t124 * t1036;
6556   t10136 = -0.50e2 / 0.27e2 * t2706 * t892 - 0.25e2 / 0.162e3 * t1658 * t348 * t762 * t421 + 0.15625e5 / 0.19683e5 * t2711 * t5011 * t3448 - 0.250000e6 / 0.19683e5 * t2711 * t5011 * t3405 - 0.25e2 / 0.54e2 * t6048 * t2962 + 0.25e2 / 0.864e3 * t4867 * t3449 + 0.25e2 / 0.864e3 * t1658 * t911 * t961 * t421 + 0.500e3 / 0.81e2 * t3304 - 0.500e3 / 0.81e2 * t3306 - 0.250e3 / 0.81e2 * t3310 - 0.32500e5 / 0.2187e4 * t3314 + 0.25e2 / 0.27e2 * t10129 * t9460 + 0.50e2 / 0.27e2 * t9464 * t887 + 0.10000e5 / 0.729e3 * t9468 * t883;
6557   t10162 = t605 * t3415;
6558   t10165 = t605 * t3417;
6559   t10168 = t605 * t3427;
6560   t10177 = -0.100e3 / 0.27e2 * t5954 * t3464 - 0.100e3 / 0.27e2 * t5957 * t3464 + 0.2500e4 / 0.729e3 * t4940 * t3406 + 0.2500e4 / 0.729e3 * t1686 * t690 * t1036 * t808 + 0.100e3 / 0.27e2 * t5910 * t1042 + 0.100e3 / 0.27e2 * t7437 * t1042 + 0.100e3 / 0.27e2 * t2156 * t3010 + 0.50e2 / 0.27e2 * t1695 * t3412 + 0.50e2 / 0.27e2 * t2190 * t3412 + 0.50e2 / 0.27e2 * t607 * t421 * t97 * t2664 + 0.50e2 / 0.27e2 * t10162 * t241 + 0.100e3 / 0.27e2 * t10165 * t241 + 0.50e2 / 0.27e2 * t10168 * t241 - 0.2500e4 / 0.243e3 * t597 * t317 * t1036 * t690 * t100 * t239;
6561   t10208 = -0.25e2 / 0.432e3 * t2397 * t2703 + 0.2500e4 / 0.729e3 * t5919 * t2998 - 0.625e3 / 0.972e3 * t4945 * t690 * t3420 * t255 - 0.25e2 / 0.54e2 * t8257 * t304 - 0.25e2 / 0.54e2 * t8260 * t304 - 0.25e2 / 0.54e2 * t2991 * t783 - 0.25e2 / 0.54e2 * t8263 * t304 - 0.25e2 / 0.54e2 * t8266 * t304 - 0.25e2 / 0.54e2 * t2994 * t783 - 0.625e3 / 0.2916e4 * t6670 * t966 - 0.625e3 / 0.2916e4 * t6698 * t966 + 0.2500e4 / 0.2187e4 * t2449 * t2693 + 0.100e3 / 0.81e2 * t2991 * t787 + 0.100e3 / 0.81e2 * t2994 * t787;
6562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6563     v4rhosigma2tau[23] = -t9889 / 0.2e1 - t274 * t746 * t3472 * t216 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t9938 + t9988 + t10030 + t10065 + t10103 + t10136 + t10177 + t10208);
6564 
6565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6566     v4rhosigmalapl2[0] = 0.0e0;
6567 
6568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6569     v4rhosigmalapl2[1] = 0.0e0;
6570 
6571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6572     v4rhosigmalapl2[2] = 0.0e0;
6573 
6574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6575     v4rhosigmalapl2[3] = 0.0e0;
6576 
6577   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6578     v4rhosigmalapl2[4] = 0.0e0;
6579 
6580   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6581     v4rhosigmalapl2[5] = 0.0e0;
6582 
6583   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6584     v4rhosigmalapl2[6] = 0.0e0;
6585 
6586   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6587     v4rhosigmalapl2[7] = 0.0e0;
6588 
6589   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6590     v4rhosigmalapl2[8] = 0.0e0;
6591 
6592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6593     v4rhosigmalapl2[9] = 0.0e0;
6594 
6595   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6596     v4rhosigmalapl2[10] = 0.0e0;
6597 
6598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6599     v4rhosigmalapl2[11] = 0.0e0;
6600 
6601   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6602     v4rhosigmalapl2[12] = 0.0e0;
6603 
6604   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6605     v4rhosigmalapl2[13] = 0.0e0;
6606 
6607   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6608     v4rhosigmalapl2[14] = 0.0e0;
6609 
6610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6611     v4rhosigmalapl2[15] = 0.0e0;
6612 
6613   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6614     v4rhosigmalapl2[16] = 0.0e0;
6615 
6616   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6617     v4rhosigmalapl2[17] = 0.0e0;
6618 
6619   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6620     v4rhosigmalapltau[0] = 0.0e0;
6621 
6622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6623     v4rhosigmalapltau[1] = 0.0e0;
6624 
6625   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6626     v4rhosigmalapltau[2] = 0.0e0;
6627 
6628   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6629     v4rhosigmalapltau[3] = 0.0e0;
6630 
6631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6632     v4rhosigmalapltau[4] = 0.0e0;
6633 
6634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6635     v4rhosigmalapltau[5] = 0.0e0;
6636 
6637   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6638     v4rhosigmalapltau[6] = 0.0e0;
6639 
6640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6641     v4rhosigmalapltau[7] = 0.0e0;
6642 
6643   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6644     v4rhosigmalapltau[8] = 0.0e0;
6645 
6646   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6647     v4rhosigmalapltau[9] = 0.0e0;
6648 
6649   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6650     v4rhosigmalapltau[10] = 0.0e0;
6651 
6652   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6653     v4rhosigmalapltau[11] = 0.0e0;
6654 
6655   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6656     v4rhosigmalapltau[12] = 0.0e0;
6657 
6658   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6659     v4rhosigmalapltau[13] = 0.0e0;
6660 
6661   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6662     v4rhosigmalapltau[14] = 0.0e0;
6663 
6664   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6665     v4rhosigmalapltau[15] = 0.0e0;
6666 
6667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6668     v4rhosigmalapltau[16] = 0.0e0;
6669 
6670   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6671     v4rhosigmalapltau[17] = 0.0e0;
6672 
6673   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6674     v4rhosigmalapltau[18] = 0.0e0;
6675 
6676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6677     v4rhosigmalapltau[19] = 0.0e0;
6678 
6679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6680     v4rhosigmalapltau[20] = 0.0e0;
6681 
6682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6683     v4rhosigmalapltau[21] = 0.0e0;
6684 
6685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6686     v4rhosigmalapltau[22] = 0.0e0;
6687 
6688   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6689     v4rhosigmalapltau[23] = 0.0e0;
6690 
6691   t10215 = t670 * t3541;
6692   t10256 = -t174 * t739 * t1093 - t174 * t293 * t3093 - t174 * t192 * t3537 - t174 * t73 * (0.125e3 / 0.27e2 * t3344 - 0.312500e6 / 0.6561e4 * t3715 * t3534 * t167 + 0.625000e6 / 0.6561e4 * t3347) + 0.2e1 * t444 * t739 * t1084 - 0.200e3 / 0.27e2 * t1202 * t421 * t3055 * t288 - 0.200e3 / 0.27e2 * t1202 * t421 * t1076 * t727 - 0.200e3 / 0.27e2 * t2228 * t1028 * t42 * t2795 + 0.25e2 / 0.54e2 * t8624 * t2786 + 0.1250e4 / 0.729e3 * t8564 * t2791 - 0.100e3 / 0.27e2 * t8624 * t2796;
6693   t10295 = -0.200e3 / 0.27e2 * t6926 * t3047 - 0.20000e5 / 0.729e3 * t5280 * t3043 - 0.200e3 / 0.27e2 * t1202 * t421 * t3505 * t183 - 0.20000e5 / 0.729e3 * t1208 * t690 * t3505 * t167 - 0.25e2 / 0.18e2 * t8627 * t2786 + 0.25e2 / 0.27e2 * t2228 * t162 * t279 * t861 - 0.2500e4 / 0.729e3 * t8553 * t2791 + 0.100e3 / 0.9e1 * t8627 * t2796 + 0.20000e5 / 0.729e3 * t3894 * t690 * t3481 * t183 - 0.10000e5 / 0.243e3 * t3899 * t690 * t3481 * t167 - 0.5000e4 / 0.729e3 * t3894 * t690 * t3491 * t183 + 0.2500e4 / 0.243e3 * t3899 * t690 * t3491 * t167;
6694   t10331 = -0.200e3 / 0.27e2 * t5346 * t3496 - 0.200e3 / 0.27e2 * t5349 * t3496 + 0.2e1 * t444 * t1094 * t727 + 0.2e1 * t444 * t3530 * t183 - 0.6e1 * t1268 * t3519 * t183 + 0.4e1 * t444 * t1021 * t861 + 0.4e1 * t444 * t852 * t1028 + 0.4e1 * t444 * t862 * t1028 + 0.4e1 * t444 * t333 * t2812 + 0.2e1 * t444 * t3084 * t288 + 0.2e1 * t444 * t3094 * t288 + 0.2e1 * t444 * t3538 * t183;
6695   t10364 = t1289 * t3476;
6696   t10372 = 0.125000e6 / 0.19683e5 * t1289 * t3477 * t192 - 0.6e1 * t1268 * t3072 * t288 - 0.6e1 * t1268 * t1085 * t727 + 0.200e3 / 0.9e1 * t3866 * t419 * t44 * t323 * t2832 + 0.40000e5 / 0.729e3 * t7242 * t6384 * t2831 * t167 - 0.12e2 * t2830 * t2831 * t861 - 0.12e2 * t2830 * t332 * t1028 * t183 - 0.6e1 * t2830 * t1093 * t288 * t183 + 0.250000e6 / 0.6561e4 * t3839 * t3476 * t9277 - 0.125000e6 / 0.19683e5 * t10364 * t3763 - 0.1000000e7 / 0.19683e5 * t2563 * t7119 * t1071 - 0.50e2 / 0.27e2 * t1882 * t1081;
6697   t10396 = 0.24e2 * t7991 * t1084 * t288 * t183 + 0.500e3 / 0.81e2 * t3355 + 0.325e3 / 0.162e3 * t3373 - 0.100000e6 / 0.2187e4 * t3375 + 0.2500e4 / 0.81e2 * t3379 - 0.500e3 / 0.81e2 * t3382 + 0.50e2 / 0.27e2 * t5503 * t3060 + 0.1000000e7 / 0.19683e5 * t2563 * t3762 * t3481 + 0.10000e5 / 0.729e3 * t5513 * t1073 - 0.1250e4 / 0.243e3 * t1304 * t3488 - 0.1250e4 / 0.243e3 * t409 * t9193 * t3487;
6698   t10402 = t47 * t861;
6699   t10422 = -0.250000e6 / 0.19683e5 * t2563 * t3762 * t3491 - 0.25e2 / 0.54e2 * t3794 * t3502 - 0.25e2 / 0.54e2 * t1299 * t1012 * t10402 + 0.50e2 / 0.27e2 * t3794 * t3509 + 0.50e2 / 0.27e2 * t1299 * t1080 * t9199 + 0.1000e4 / 0.81e2 * t3388 - 0.500e3 / 0.81e2 * t3322 - 0.500e3 / 0.81e2 * t3324 - 0.32500e5 / 0.2187e4 * t3326 + 0.100000e6 / 0.2187e4 * t3330 + 0.10000e5 / 0.243e3 * t6945 * t3038 + 0.1250e4 / 0.243e3 * t3899 * t690 * t3476 * t183;
6700   t10433 = t1201 * t73 * t1071;
6701   t10440 = t1201 * t3519;
6702   t10455 = 0.100e3 / 0.27e2 * t1218 * t3506 + 0.100e3 / 0.27e2 * t1933 * t3506 + 0.100e3 / 0.27e2 * t420 * t421 * t39 * t2812 - 0.100e3 / 0.27e2 * t10433 * t9073 + 0.25e2 / 0.54e2 * t8548 * t280 + 0.25e2 / 0.54e2 * t3066 * t702 - 0.100e3 / 0.27e2 * t10440 * t169 - 0.25e2 / 0.108e3 * t8556 * t280 - 0.10000e5 / 0.729e3 * t3870 * t3482 - 0.10000e5 / 0.729e3 * t1208 * t690 * t1071 * t727 - 0.10000e5 / 0.729e3 * t5280 * t3032 + 0.2500e4 / 0.729e3 * t3870 * t3492;
6703   t10466 = t421 * t8651;
6704   t10469 = t418 * t3538;
6705   t10472 = t418 * t3530;
6706   t10484 = 0.2500e4 / 0.729e3 * t1208 * t690 * t1001 * t861 + 0.100e3 / 0.27e2 * t5260 * t1077 + 0.100e3 / 0.27e2 * t6977 * t1077 + 0.100e3 / 0.27e2 * t1908 * t3056 + 0.25e2 / 0.27e2 * t9769 * t10466 + 0.50e2 / 0.27e2 * t10469 * t169 + 0.50e2 / 0.27e2 * t10472 * t169 - 0.25e2 / 0.108e3 * t8559 * t280 - 0.25e2 / 0.108e3 * t3078 * t702 + 0.50e2 / 0.81e2 * t3078 * t706 - 0.100e3 / 0.81e2 * t3066 * t706 - 0.250000e6 / 0.6561e4 * t3360;
6707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6708     v4rhosigmatau2[0] = -t10215 / 0.2e1 - t274 * t673 * t3540 * t137 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (t10256 + t10295 + t10331 + t10372 + t10396 + t10422 + t10455 + t10484);
6709 
6710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6711     v4rhosigmatau2[1] = 0.0e0;
6712 
6713   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6714     v4rhosigmatau2[2] = 0.0e0;
6715 
6716   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6717     v4rhosigmatau2[3] = 0.0e0;
6718 
6719   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6720     v4rhosigmatau2[4] = 0.0e0;
6721 
6722   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6723     v4rhosigmatau2[5] = 0.0e0;
6724 
6725   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6726     v4rhosigmatau2[6] = 0.0e0;
6727 
6728   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6729     v4rhosigmatau2[7] = 0.0e0;
6730 
6731   t10491 = t670 * t3609;
6732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6733     v4rhosigmatau2[8] = -t274 * t746 * t3608 * t199 / 0.2e1 - t10491 / 0.2e1;
6734 
6735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6736     v4rhosigmatau2[9] = -t274 * t673 * t3540 * t211 / 0.2e1 - t10215 / 0.2e1;
6737 
6738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6739     v4rhosigmatau2[10] = 0.0e0;
6740 
6741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6742     v4rhosigmatau2[11] = 0.0e0;
6743 
6744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6745     v4rhosigmatau2[12] = 0.0e0;
6746 
6747   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6748     v4rhosigmatau2[13] = 0.0e0;
6749 
6750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6751     v4rhosigmatau2[14] = 0.0e0;
6752 
6753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6754     v4rhosigmatau2[15] = 0.0e0;
6755 
6756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6757     v4rhosigmatau2[16] = 0.0e0;
6758 
6759   t10537 = -0.20000e5 / 0.729e3 * t1686 * t690 * t3573 * t239 + 0.20000e5 / 0.729e3 * t4959 * t690 * t3549 * t255 - 0.10000e5 / 0.243e3 * t4945 * t690 * t3549 * t239 - 0.25e2 / 0.18e2 * t8902 * t2926 + 0.25e2 / 0.27e2 * t2397 * t234 * t303 * t911 - 0.2500e4 / 0.729e3 * t8819 * t2909 + 0.100e3 / 0.9e1 * t8902 * t2914 - 0.200e3 / 0.27e2 * t2397 * t1063 * t100 * t2913 + 0.25e2 / 0.54e2 * t8909 * t2926 + 0.1250e4 / 0.729e3 * t8830 * t2909 - 0.100e3 / 0.27e2 * t8909 * t2914;
6760   t10569 = t1645 * t3544;
6761   t10575 = -0.5000e4 / 0.729e3 * t4959 * t690 * t3559 * t255 + 0.2500e4 / 0.243e3 * t4945 * t690 * t3559 * t239 - 0.200e3 / 0.27e2 * t5954 * t3564 - 0.200e3 / 0.27e2 * t5957 * t3564 - 0.200e3 / 0.27e2 * t1680 * t421 * t3142 * t312 - 0.200e3 / 0.27e2 * t1680 * t421 * t1106 * t808 - 0.200e3 / 0.27e2 * t5930 * t3134 - 0.20000e5 / 0.729e3 * t5919 * t3130 - 0.200e3 / 0.27e2 * t1680 * t421 * t3573 * t255 + 0.250000e6 / 0.6561e4 * t4922 * t3544 * t9405 - 0.125000e6 / 0.19683e5 * t10569 * t5012 - 0.1000000e7 / 0.19683e5 * t2711 * t7689 * t1101;
6762   t10608 = -0.50e2 / 0.27e2 * t2102 * t1111 + 0.24e2 * t8209 * t1114 * t312 * t255 - 0.12e2 * t2951 * t2952 * t911 - 0.12e2 * t2951 * t348 * t1063 * t255 - 0.6e1 * t2951 * t1123 * t312 * t255 + 0.200e3 / 0.9e1 * t5001 * t606 * t44 * t339 * t2953 + 0.40000e5 / 0.729e3 * t7673 * t6742 * t2952 * t239 + 0.500e3 / 0.81e2 * t3429 + 0.325e3 / 0.162e3 * t3450 - 0.100000e6 / 0.2187e4 * t3452 + 0.2500e4 / 0.81e2 * t3456 - 0.500e3 / 0.81e2 * t3459;
6763   t10614 = t47 * t911;
6764   t10639 = -0.250000e6 / 0.19683e5 * t2711 * t5011 * t3559 - 0.25e2 / 0.54e2 * t4867 * t3570 - 0.25e2 / 0.54e2 * t1658 * t1047 * t10614 + 0.50e2 / 0.27e2 * t4867 * t3577 + 0.50e2 / 0.27e2 * t1658 * t1110 * t9438 + 0.50e2 / 0.27e2 * t6048 * t3147 + 0.1000000e7 / 0.19683e5 * t2711 * t5011 * t3549 + 0.10000e5 / 0.729e3 * t6107 * t1103 - 0.1250e4 / 0.243e3 * t1663 * t3556 - 0.1250e4 / 0.243e3 * t598 * t9432 * t3555 - 0.25e2 / 0.108e3 * t8822 * t304 - 0.10000e5 / 0.729e3 * t4940 * t3550;
6765   t10666 = t421 * t9014;
6766   t10671 = -0.10000e5 / 0.729e3 * t1686 * t690 * t1101 * t808 - 0.10000e5 / 0.729e3 * t5919 * t3119 + 0.10000e5 / 0.243e3 * t7474 * t3125 + 0.1250e4 / 0.243e3 * t4945 * t690 * t3544 * t255 + 0.2500e4 / 0.729e3 * t4940 * t3560 + 0.2500e4 / 0.729e3 * t1686 * t690 * t1036 * t911 + 0.100e3 / 0.27e2 * t5910 * t1107 + 0.100e3 / 0.27e2 * t7437 * t1107 + 0.100e3 / 0.27e2 * t2156 * t3143 + 0.25e2 / 0.27e2 * t10129 * t10666 + 0.100e3 / 0.27e2 * t1695 * t3574;
6767   t10679 = t1679 * t124 * t1101;
6768   t10686 = t1679 * t3587;
6769   t10693 = t605 * t3598;
6770   t10696 = t605 * t3606;
6771   t10703 = 0.100e3 / 0.27e2 * t2190 * t3574 + 0.100e3 / 0.27e2 * t607 * t421 * t97 * t2942 - 0.100e3 / 0.27e2 * t10679 * t9460 + 0.25e2 / 0.54e2 * t8851 * t304 + 0.25e2 / 0.54e2 * t3153 * t783 - 0.100e3 / 0.27e2 * t10686 * t241 - 0.25e2 / 0.108e3 * t8825 * t304 - 0.25e2 / 0.108e3 * t3165 * t783 + 0.50e2 / 0.27e2 * t10693 * t241 + 0.50e2 / 0.27e2 * t10696 * t241 - 0.100e3 / 0.81e2 * t3153 * t787 + 0.50e2 / 0.81e2 * t3165 * t787;
6772   t10731 = 0.2e1 * t630 * t820 * t1114 - t246 * t820 * t1123 - t246 * t317 * t3180 - t246 * t264 * t3605 - t246 * t124 * (0.125e3 / 0.27e2 * t3421 - 0.312500e6 / 0.6561e4 * t5045 * t3602 * t239 + 0.625000e6 / 0.6561e4 * t3424) + 0.1000e4 / 0.81e2 * t3469 - 0.500e3 / 0.81e2 * t3399 - 0.500e3 / 0.81e2 * t3401 - 0.32500e5 / 0.2187e4 * t3403 + 0.100000e6 / 0.2187e4 * t3407 + 0.125000e6 / 0.19683e5 * t1645 * t3545 * t264 - 0.250000e6 / 0.6561e4 * t3446;
6773   t10768 = 0.4e1 * t1056 * t630 * t911 + 0.4e1 * t1063 * t630 * t902 + 0.4e1 * t1063 * t630 * t912 - 0.6e1 * t1115 * t1631 * t808 + 0.2e1 * t1124 * t630 * t808 - 0.6e1 * t1631 * t255 * t3587 - 0.6e1 * t1631 * t312 * t3159 + 0.2e1 * t255 * t3598 * t630 + 0.2e1 * t255 * t3606 * t630 + 0.4e1 * t2942 * t349 * t630 + 0.2e1 * t312 * t3171 * t630 + 0.2e1 * t312 * t3181 * t630;
6774   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6775     v4rhosigmatau2[17] = -t10491 / 0.2e1 - t274 * t746 * t3608 * t216 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (t10537 + t10575 + t10608 + t10639 + t10671 + t10703 + t10731 + t10768);
6776 
6777   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6778     v4rholapl3[0] = 0.0e0;
6779 
6780   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6781     v4rholapl3[1] = 0.0e0;
6782 
6783   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6784     v4rholapl3[2] = 0.0e0;
6785 
6786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6787     v4rholapl3[3] = 0.0e0;
6788 
6789   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6790     v4rholapl3[4] = 0.0e0;
6791 
6792   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6793     v4rholapl3[5] = 0.0e0;
6794 
6795   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6796     v4rholapl3[6] = 0.0e0;
6797 
6798   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6799     v4rholapl3[7] = 0.0e0;
6800 
6801   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6802     v4rholapl2tau[0] = 0.0e0;
6803 
6804   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6805     v4rholapl2tau[1] = 0.0e0;
6806 
6807   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6808     v4rholapl2tau[2] = 0.0e0;
6809 
6810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6811     v4rholapl2tau[3] = 0.0e0;
6812 
6813   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6814     v4rholapl2tau[4] = 0.0e0;
6815 
6816   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6817     v4rholapl2tau[5] = 0.0e0;
6818 
6819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6820     v4rholapl2tau[6] = 0.0e0;
6821 
6822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6823     v4rholapl2tau[7] = 0.0e0;
6824 
6825   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6826     v4rholapl2tau[8] = 0.0e0;
6827 
6828   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6829     v4rholapl2tau[9] = 0.0e0;
6830 
6831   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6832     v4rholapl2tau[10] = 0.0e0;
6833 
6834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6835     v4rholapl2tau[11] = 0.0e0;
6836 
6837   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6838     v4rholapltau2[0] = 0.0e0;
6839 
6840   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6841     v4rholapltau2[1] = 0.0e0;
6842 
6843   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6844     v4rholapltau2[2] = 0.0e0;
6845 
6846   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6847     v4rholapltau2[3] = 0.0e0;
6848 
6849   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6850     v4rholapltau2[4] = 0.0e0;
6851 
6852   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6853     v4rholapltau2[5] = 0.0e0;
6854 
6855   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6856     v4rholapltau2[6] = 0.0e0;
6857 
6858   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6859     v4rholapltau2[7] = 0.0e0;
6860 
6861   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6862     v4rholapltau2[8] = 0.0e0;
6863 
6864   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6865     v4rholapltau2[9] = 0.0e0;
6866 
6867   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6868     v4rholapltau2[10] = 0.0e0;
6869 
6870   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6871     v4rholapltau2[11] = 0.0e0;
6872 
6873   t10775 = t670 * t3652;
6874   t10789 = t1093 * t42;
6875   t10816 = t1289 * t3612;
6876   t10820 = t332 * t1093;
6877   t10841 = t418 * t3649;
6878   t10846 = -0.18e2 * t2830 * t10820 * t183 + 0.10000e5 / 0.243e3 * t409 * t9193 * t3621 + 0.50e2 / 0.9e1 * t3794 * t3629 + 0.50e2 / 0.9e1 * t1299 * t1080 * t10402 + 0.1000000e7 / 0.6561e4 * t2563 * t3762 * t3617 + 0.10000e5 / 0.243e3 * t1304 * t3622 - 0.50000e5 / 0.243e3 * t3489 - 0.500e3 / 0.27e2 * t3503 - 0.100e3 / 0.9e1 * t10433 * t10466 + 0.50e2 / 0.27e2 * t10841 * t169 - 0.10000e5 / 0.243e3 * t3870 * t3618;
6879   t10868 = t3866 * t3637;
6880   t10880 = -0.10000e5 / 0.243e3 * t1208 * t690 * t1071 * t861 - 0.10000e5 / 0.243e3 * t3899 * t690 * t3612 * t183 - 0.100e3 / 0.9e1 * t5346 * t3626 - 0.100e3 / 0.9e1 * t5349 * t3626 + 0.50e2 / 0.9e1 * t1218 * t3633 + 0.50e2 / 0.9e1 * t1933 * t3633 + 0.50e2 / 0.9e1 * t420 * t421 * t39 * t3093 + 0.100e3 / 0.9e1 * t10868 * t169 + 0.24e2 * t3749 * t3637 * t183 - 0.18e2 * t1268 * t1085 * t861 + 0.6e1 * t444 * t852 * t1093;
6881   t10910 = 0.6e1 * t444 * t862 * t1093 + 0.6e1 * t444 * t333 * t3093 + 0.2e1 * t444 * t3649 * t183 - t174 * t73 * (-0.2500e4 / 0.81e2 * t3532 + 0.2500000e7 / 0.6561e4 * t3715 * t3645 * t167 - 0.12500000e8 / 0.19683e5 * t3535) - 0.6e1 * t1268 * t192 * t3636 - t174 * t192 * t3648 - 0.1000000e7 / 0.19683e5 * t1289 * t3613 * t192 + 0.100000e6 / 0.729e3 * t3493 + 0.500e3 / 0.27e2 * t3514 - 0.250e3 / 0.27e2 * t3525 + 0.5000000e7 / 0.19683e5 * t3479;
6882   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6883     v4rhotau3[0] = -t10775 / 0.2e1 - t274 * t673 * t3651 * t137 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t275 * (-0.100e3 / 0.9e1 * t1202 * t421 * t3632 * t183 - 0.10000e5 / 0.243e3 * t1208 * t690 * t3632 * t167 - 0.100e3 / 0.9e1 * t2228 * t10789 * t2795 + 0.20000e5 / 0.243e3 * t3894 * t690 * t3617 * t183 - 0.10000e5 / 0.81e2 * t3899 * t690 * t3617 * t167 + 0.100e3 / 0.3e1 * t5306 * t421 * t3625 * t183 - 0.200e3 / 0.9e1 * t1202 * t421 * t1076 * t861 + 0.20000e5 / 0.243e3 * t3894 * t690 * t3625 * t167 - 0.2000000e7 / 0.6561e4 * t3839 * t3612 * t9277 + 0.1000000e7 / 0.19683e5 * t10816 * t3763 + t10846 + t10880 + t10910);
6884 
6885   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6886     v4rhotau3[1] = 0.0e0;
6887 
6888   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6889     v4rhotau3[2] = 0.0e0;
6890 
6891   t10916 = t670 * t3695;
6892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6893     v4rhotau3[3] = -t274 * t746 * t3694 * t199 / 0.2e1 - t10916 / 0.2e1;
6894 
6895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6896     v4rhotau3[4] = -t274 * t673 * t3651 * t211 / 0.2e1 - t10775 / 0.2e1;
6897 
6898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6899     v4rhotau3[5] = 0.0e0;
6900 
6901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6902     v4rhotau3[6] = 0.0e0;
6903 
6904   t10946 = t1123 * t100;
6905   t10965 = t1645 * t3655;
6906   t10969 = t348 * t1123;
6907   t11001 = -0.18e2 * t2951 * t10969 * t255 + 0.1000000e7 / 0.6561e4 * t2711 * t5011 * t3660 + 0.10000e5 / 0.243e3 * t1663 * t3665 + 0.10000e5 / 0.243e3 * t598 * t9432 * t3664 + 0.50e2 / 0.9e1 * t4867 * t3672 + 0.50e2 / 0.9e1 * t1658 * t1110 * t10614 - 0.50000e5 / 0.243e3 * t3557 - 0.500e3 / 0.27e2 * t3571 - 0.6e1 * t1631 * t264 * t3679 - t246 * t264 * t3691 - t246 * t124 * (-0.2500e4 / 0.81e2 * t3600 + 0.2500000e7 / 0.6561e4 * t5045 * t3688 * t239 - 0.12500000e8 / 0.19683e5 * t3603);
6908   t11032 = -0.18e2 * t1631 * t1115 * t911 + 0.6e1 * t630 * t902 * t1123 + 0.6e1 * t630 * t912 * t1123 + 0.6e1 * t630 * t349 * t3180 + 0.2e1 * t630 * t3692 * t255 - 0.1000000e7 / 0.19683e5 * t1645 * t3656 * t264 + 0.24e2 * t5066 * t3680 * t255 - 0.100e3 / 0.9e1 * t5954 * t3669 - 0.100e3 / 0.9e1 * t5957 * t3669 - 0.100e3 / 0.9e1 * t10679 * t10666 + 0.50e2 / 0.9e1 * t1695 * t3676;
6909   t11039 = t5001 * t3680;
6910   t11042 = t605 * t3692;
6911   t11059 = 0.50e2 / 0.9e1 * t2190 * t3676 + 0.50e2 / 0.9e1 * t607 * t421 * t97 * t3180 + 0.100e3 / 0.9e1 * t11039 * t241 + 0.50e2 / 0.27e2 * t11042 * t241 - 0.10000e5 / 0.243e3 * t4940 * t3661 - 0.10000e5 / 0.243e3 * t1686 * t690 * t1101 * t911 - 0.10000e5 / 0.243e3 * t4945 * t690 * t3655 * t255 + 0.500e3 / 0.27e2 * t3582 - 0.250e3 / 0.27e2 * t3593 + 0.100000e6 / 0.729e3 * t3561 + 0.5000000e7 / 0.19683e5 * t3547;
6912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6913     v4rhotau3[7] = -t10916 / 0.2e1 - t274 * t746 * t3694 * t216 / 0.2e1 - 0.3e1 / 0.8e1 * t274 * t299 * (-0.200e3 / 0.9e1 * t1680 * t421 * t1106 * t911 + 0.20000e5 / 0.243e3 * t4959 * t690 * t3668 * t239 - 0.100e3 / 0.9e1 * t1680 * t421 * t3675 * t255 - 0.10000e5 / 0.243e3 * t1686 * t690 * t3675 * t239 - 0.100e3 / 0.9e1 * t2397 * t10946 * t2913 + 0.20000e5 / 0.243e3 * t4959 * t690 * t3660 * t255 - 0.10000e5 / 0.81e2 * t4945 * t690 * t3660 * t239 + 0.100e3 / 0.3e1 * t5985 * t421 * t3668 * t255 - 0.2000000e7 / 0.6561e4 * t4922 * t3655 * t9405 + 0.1000000e7 / 0.19683e5 * t10965 * t5012 + t11001 + t11032 + t11059);
6914 
6915   t11065 = t421 * t29;
6916   t11066 = t9113 * t11065;
6917   t11072 = 0.1e1 / t27 / t1851;
6918   t11073 = t11072 * t19;
6919   t11074 = t11073 * t23;
6920   t11075 = t3816 * t11074;
6921   t11082 = t47 * t936;
6922   t11094 = t47 * t948;
6923   t11098 = t174 * t73;
6924   t11107 = t948 * t948;
6925   t11120 = 0.50e2 / 0.9e1 * t1790 * t11066 - 0.25e2 / 0.144e3 * t2558 * t921 - 0.625e3 / 0.6198727824e10 * t11075 - 0.15625e5 / 0.39366e5 * t9280 * t5181 + 0.625e3 / 0.62208e5 * t409 * t11073 * t412 - 0.25e2 / 0.72e2 * t3785 * t2554 * t11082 + 0.25e2 / 0.27e2 * t9217 * t280 + 0.625e3 / 0.486e3 * t7034 * t925 - 0.625e3 / 0.1944e4 * t1869 * t3209 + 0.25e2 / 0.72e2 * t5503 * t3213 + 0.25e2 / 0.144e3 * t1299 * t2554 * t11094 - 0.78125e5 / 0.839808e6 * t11098 * t3715 * t62 * t11072 + t67 * (-0.625e3 / 0.6198727824e10 * t3933 * t11074 + 0.625e3 / 0.6198727824e10 * t11075) + 0.6e1 * t444 * t73 * t11107 - 0.24e2 * t1268 * t293 * t3193 - 0.4e1 * t174 * t3204 * t288 + 0.12e2 * t444 * t953 * t936;
6926   t11127 = t936 * t936;
6927   t11171 = -0.6e1 * t174 * t953 * t948 - 0.4e1 * t174 * t293 * t3232 + 0.24e2 * t3749 * t73 * t11127 - 0.15625e5 / 0.209952e6 * t3839 * t11072 * t66 * t73 - 0.36e2 * t1268 * t937 * t948 + 0.24e2 * t444 * t940 * t948 + 0.8e1 * t444 * t289 * t3232 + 0.15625e5 / 0.39366e5 * t1289 * t3189 * t293 - 0.625e3 / 0.486e3 * t1208 * t690 * t920 * t948 + 0.625e3 / 0.1944e4 * t3899 * t690 * t3188 * t288 - 0.25e2 / 0.9e1 * t9054 * t929 + 0.50e2 / 0.9e1 * t9226 * t280 - 0.25e2 / 0.9e1 * t9232 * t280 - 0.25e2 / 0.27e2 * t9235 * t280 + 0.625e3 / 0.243e3 * t3894 * t690 * t920 * t936 - 0.50e2 / 0.9e1 * t9263 * t280 - 0.625e3 / 0.243e3 * t5280 * t3240;
6928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6929     v4sigma4[0] = -0.3e1 / 0.8e1 * t274 * t275 * (t11120 + t11171);
6930 
6931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6932     v4sigma4[1] = 0.0e0;
6933 
6934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6935     v4sigma4[2] = 0.0e0;
6936 
6937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6938     v4sigma4[3] = 0.0e0;
6939 
6940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6941     v4sigma4[4] = 0.0e0;
6942 
6943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6944     v4sigma4[5] = 0.0e0;
6945 
6946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6947     v4sigma4[6] = 0.0e0;
6948 
6949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6950     v4sigma4[7] = 0.0e0;
6951 
6952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6953     v4sigma4[8] = 0.0e0;
6954 
6955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6956     v4sigma4[9] = 0.0e0;
6957 
6958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6959     v4sigma4[10] = 0.0e0;
6960 
6961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6962     v4sigma4[11] = 0.0e0;
6963 
6964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6965     v4sigma4[12] = 0.0e0;
6966 
6967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6968     v4sigma4[13] = 0.0e0;
6969 
6970   t11176 = t421 * t87;
6971   t11177 = t9378 * t11176;
6972   t11181 = 0.1e1 / t85 / t2050;
6973   t11182 = t11181 * t19;
6974   t11190 = t11182 * t23;
6975   t11191 = t4902 * t11190;
6976   t11199 = t47 * t989;
6977   t11203 = t246 * t124;
6978   t11214 = t47 * t977;
6979   t11218 = t977 * t977;
6980   t11222 = t989 * t989;
6981   t11232 = 0.50e2 / 0.9e1 * t2035 * t11177 + 0.625e3 / 0.62208e5 * t598 * t11182 * t412 - 0.25e2 / 0.144e3 * t2706 * t962 - 0.15625e5 / 0.39366e5 * t9408 * t6149 - 0.625e3 / 0.6198727824e10 * t11191 + t118 * (-0.625e3 / 0.6198727824e10 * t5097 * t11190 + 0.625e3 / 0.6198727824e10 * t11191) + 0.25e2 / 0.72e2 * t6048 * t3280 + 0.25e2 / 0.144e3 * t1658 * t2702 * t11199 - 0.78125e5 / 0.839808e6 * t11203 * t5045 * t62 * t11181 + 0.25e2 / 0.27e2 * t9425 * t304 + 0.625e3 / 0.486e3 * t7536 * t966 - 0.625e3 / 0.1944e4 * t2107 * t3276 - 0.25e2 / 0.72e2 * t4872 * t2702 * t11214 + 0.24e2 * t5066 * t124 * t11218 + 0.6e1 * t630 * t124 * t11222 - 0.6e1 * t246 * t994 * t989 - 0.4e1 * t246 * t317 * t3299;
6982   t11282 = -0.24e2 * t1631 * t317 * t3260 - 0.4e1 * t246 * t3271 * t312 + 0.12e2 * t630 * t994 * t977 + 0.15625e5 / 0.39366e5 * t1645 * t3256 * t317 - 0.15625e5 / 0.209952e6 * t4922 * t11181 * t117 * t124 - 0.36e2 * t1631 * t978 * t989 + 0.24e2 * t630 * t981 * t989 + 0.8e1 * t630 * t313 * t3299 - 0.625e3 / 0.486e3 * t1686 * t690 * t961 * t989 - 0.25e2 / 0.9e1 * t9464 * t970 + 0.50e2 / 0.9e1 * t9471 * t304 - 0.25e2 / 0.9e1 * t9477 * t304 - 0.25e2 / 0.27e2 * t9480 * t304 + 0.625e3 / 0.243e3 * t4959 * t690 * t961 * t977 - 0.50e2 / 0.9e1 * t9508 * t304 - 0.625e3 / 0.243e3 * t5919 * t3313 + 0.625e3 / 0.1944e4 * t4945 * t690 * t3255 * t312;
6983   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6984     v4sigma4[14] = -0.3e1 / 0.8e1 * t274 * t299 * (t11232 + t11282);
6985 
6986   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6987     v4sigma3lapl[0] = 0.0e0;
6988 
6989   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6990     v4sigma3lapl[1] = 0.0e0;
6991 
6992   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6993     v4sigma3lapl[2] = 0.0e0;
6994 
6995   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6996     v4sigma3lapl[3] = 0.0e0;
6997 
6998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6999     v4sigma3lapl[4] = 0.0e0;
7000 
7001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7002     v4sigma3lapl[5] = 0.0e0;
7003 
7004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7005     v4sigma3lapl[6] = 0.0e0;
7006 
7007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7008     v4sigma3lapl[7] = 0.0e0;
7009 
7010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7011     v4sigma3lapl[8] = 0.0e0;
7012 
7013   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7014     v4sigma3lapl[9] = 0.0e0;
7015 
7016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7017     v4sigma3lapl[10] = 0.0e0;
7018 
7019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7020     v4sigma3lapl[11] = 0.0e0;
7021 
7022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7023     v4sigma3lapl[12] = 0.0e0;
7024 
7025   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7026     v4sigma3lapl[13] = 0.0e0;
7027 
7028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7029     v4sigma3lapl[14] = 0.0e0;
7030 
7031   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7032     v4sigma3lapl[15] = 0.0e0;
7033 
7034   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7035     v4sigma3lapl[16] = 0.0e0;
7036 
7037   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7038     v4sigma3lapl[17] = 0.0e0;
7039 
7040   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7041     v4sigma3lapl[18] = 0.0e0;
7042 
7043   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7044     v4sigma3lapl[19] = 0.0e0;
7045 
7046   t11295 = 0.1e1 / t27 / t2504;
7047   t11322 = 0.15625e5 / 0.6561e4 * t9680 * t5181 - 0.18e2 * t2830 * t2831 * t948 + 0.25e2 / 0.36e2 * t2558 * t1013 - 0.625e3 / 0.7776e4 * t409 * t11295 * t19 * t412 - 0.15625e5 / 0.157464e6 * t9280 * t6421 + 0.25e2 / 0.9e1 * t7885 * t3387 - 0.100e3 / 0.9e1 * t1202 * t421 * t3334 * t288 - 0.25e2 / 0.6e1 * t6327 * t9628 * t11065 + 0.25e2 / 0.18e2 * t2228 * t11066 + 0.25e2 / 0.9e1 * t7888 * t3387 + 0.625e3 / 0.486e3 * t6342 * t410 * t924 * t288 - 0.3e1 * t174 * t953 * t1028;
7048   t11358 = -0.3e1 * t174 * t293 * t3349 - t174 * t3204 * t332 + 0.24e2 * t3749 * t333 * t3193 - 0.50e2 / 0.27e2 * t9217 * t324 + 0.25e2 / 0.288e3 * t5503 * t3372 + 0.25e2 / 0.288e3 * t1299 * t1028 * t920 * t421 - 0.25e2 / 0.18e2 * t5503 * t3381 - 0.25e2 / 0.36e2 * t1299 * t1012 * t11094 + 0.78125e5 / 0.104976e6 * t11098 * t3715 * t62 * t11295 + 0.625e3 / 0.324e3 * t1869 * t3378 - 0.1250e4 / 0.243e3 * t7034 * t1003 + 0.25e2 / 0.18e2 * t3785 * t1012 * t11082 - 0.15625e5 / 0.6561e4 * t1289 * t3358 * t293;
7049   t11396 = 0.15625e5 / 0.26244e5 * t3839 * t11295 * t66 * t73 + 0.6e1 * t444 * t1021 * t948 + 0.6e1 * t444 * t1029 * t948 + 0.2e1 * t444 * t333 * t3232 + 0.6e1 * t444 * t3338 * t288 + 0.12e2 * t444 * t3340 * t288 + 0.6e1 * t444 * t3350 * t288 - 0.18e2 * t1268 * t1021 * t936 - 0.18e2 * t1268 * t1029 * t936 + 0.625e3 / 0.7776e4 * t2309 * t3209 + 0.2500e4 / 0.243e3 * t5280 * t3329 + 0.1250e4 / 0.243e3 * t1208 * t690 * t1001 * t948;
7050   t11431 = -0.625e3 / 0.324e3 * t3899 * t690 * t3343 * t288 + 0.50e2 / 0.9e1 * t9054 * t1007 + 0.50e2 / 0.9e1 * t1908 * t3335 + 0.50e2 / 0.27e2 * t420 * t421 * t39 * t3232 - 0.25e2 / 0.36e2 * t9811 * t280 - 0.25e2 / 0.18e2 * t9814 * t280 - 0.625e3 / 0.972e3 * t7784 * t925 + 0.100e3 / 0.9e1 * t5306 * t421 * t39 * t3193 - 0.2500e4 / 0.243e3 * t3894 * t690 * t1001 * t936 - 0.100e3 / 0.9e1 * t6926 * t3391 - 0.25e2 / 0.144e3 * t2228 * t3213 - 0.25e2 / 0.36e2 * t9817 * t280 - 0.625e3 / 0.972e3 * t7789 * t925;
7051   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7052     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t274 * t275 * (t11322 + t11358 + t11396 + t11431);
7053 
7054   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7055     v4sigma3tau[1] = 0.0e0;
7056 
7057   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7058     v4sigma3tau[2] = 0.0e0;
7059 
7060   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7061     v4sigma3tau[3] = 0.0e0;
7062 
7063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7064     v4sigma3tau[4] = 0.0e0;
7065 
7066   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7067     v4sigma3tau[5] = 0.0e0;
7068 
7069   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7070     v4sigma3tau[6] = 0.0e0;
7071 
7072   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7073     v4sigma3tau[7] = 0.0e0;
7074 
7075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7076     v4sigma3tau[8] = 0.0e0;
7077 
7078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7079     v4sigma3tau[9] = 0.0e0;
7080 
7081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7082     v4sigma3tau[10] = 0.0e0;
7083 
7084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7085     v4sigma3tau[11] = 0.0e0;
7086 
7087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7088     v4sigma3tau[12] = 0.0e0;
7089 
7090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7091     v4sigma3tau[13] = 0.0e0;
7092 
7093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7094     v4sigma3tau[14] = 0.0e0;
7095 
7096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7097     v4sigma3tau[15] = 0.0e0;
7098 
7099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7100     v4sigma3tau[16] = 0.0e0;
7101 
7102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7103     v4sigma3tau[17] = 0.0e0;
7104 
7105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7106     v4sigma3tau[18] = 0.0e0;
7107 
7108   t11447 = 0.1e1 / t85 / t2675;
7109   t11471 = -0.15625e5 / 0.157464e6 * t9408 * t6824 + 0.15625e5 / 0.6561e4 * t10031 * t6149 + 0.25e2 / 0.36e2 * t2706 * t1048 - 0.18e2 * t2951 * t2952 * t989 - 0.625e3 / 0.7776e4 * t598 * t11447 * t19 * t412 - 0.100e3 / 0.9e1 * t1680 * t421 * t3411 * t312 - 0.25e2 / 0.6e1 * t6789 * t9912 * t11176 + 0.25e2 / 0.18e2 * t2397 * t11177 + 0.25e2 / 0.9e1 * t8383 * t3468 + 0.625e3 / 0.486e3 * t6786 * t599 * t965 * t312 + 0.25e2 / 0.9e1 * t8380 * t3468 - t246 * t3271 * t348;
7110   t11512 = -0.3e1 * t246 * t994 * t1063 - 0.3e1 * t246 * t317 * t3426 + 0.24e2 * t5066 * t349 * t3260 + 0.6e1 * t630 * t1056 * t989 + 0.6e1 * t630 * t3415 * t312 + 0.12e2 * t630 * t3417 * t312 + 0.6e1 * t630 * t3427 * t312 - 0.18e2 * t1631 * t1056 * t977 - 0.18e2 * t1631 * t1064 * t977 + 0.6e1 * t630 * t1064 * t989 + 0.2e1 * t630 * t349 * t3299 - 0.15625e5 / 0.6561e4 * t1645 * t3444 * t317 + 0.15625e5 / 0.26244e5 * t4922 * t11447 * t117 * t124;
7111   t11548 = -0.1250e4 / 0.243e3 * t7536 * t1038 - 0.50e2 / 0.27e2 * t9425 * t340 + 0.25e2 / 0.288e3 * t6048 * t3449 + 0.25e2 / 0.288e3 * t1658 * t1063 * t961 * t421 - 0.25e2 / 0.18e2 * t6048 * t3458 - 0.25e2 / 0.36e2 * t1658 * t1047 * t11199 + 0.78125e5 / 0.104976e6 * t11203 * t5045 * t62 * t11447 + 0.625e3 / 0.324e3 * t2107 * t3455 + 0.25e2 / 0.18e2 * t4872 * t1047 * t11214 + 0.2500e4 / 0.243e3 * t5919 * t3406 + 0.1250e4 / 0.243e3 * t1686 * t690 * t1036 * t989 - 0.625e3 / 0.324e3 * t4945 * t690 * t3420 * t312;
7112   t11581 = 0.50e2 / 0.9e1 * t9464 * t1042 + 0.50e2 / 0.9e1 * t2156 * t3412 + 0.50e2 / 0.27e2 * t607 * t421 * t97 * t3299 - 0.25e2 / 0.144e3 * t2397 * t3280 - 0.25e2 / 0.36e2 * t10162 * t304 - 0.25e2 / 0.18e2 * t10165 * t304 - 0.625e3 / 0.972e3 * t8239 * t966 - 0.25e2 / 0.36e2 * t10168 * t304 - 0.625e3 / 0.972e3 * t8244 * t966 + 0.625e3 / 0.7776e4 * t2449 * t3276 + 0.100e3 / 0.9e1 * t5985 * t421 * t97 * t3260 - 0.2500e4 / 0.243e3 * t4959 * t690 * t1036 * t977 - 0.100e3 / 0.9e1 * t5930 * t3464;
7113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7114     v4sigma3tau[19] = -0.3e1 / 0.8e1 * t274 * t299 * (t11471 + t11512 + t11548 + t11581);
7115 
7116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7117     v4sigma2lapl2[0] = 0.0e0;
7118 
7119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7120     v4sigma2lapl2[1] = 0.0e0;
7121 
7122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7123     v4sigma2lapl2[2] = 0.0e0;
7124 
7125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7126     v4sigma2lapl2[3] = 0.0e0;
7127 
7128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7129     v4sigma2lapl2[4] = 0.0e0;
7130 
7131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7132     v4sigma2lapl2[5] = 0.0e0;
7133 
7134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7135     v4sigma2lapl2[6] = 0.0e0;
7136 
7137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7138     v4sigma2lapl2[7] = 0.0e0;
7139 
7140   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7141     v4sigma2lapl2[8] = 0.0e0;
7142 
7143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7144     v4sigma2lapl2[9] = 0.0e0;
7145 
7146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7147     v4sigma2lapl2[10] = 0.0e0;
7148 
7149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7150     v4sigma2lapl2[11] = 0.0e0;
7151 
7152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7153     v4sigma2lapl2[12] = 0.0e0;
7154 
7155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7156     v4sigma2lapl2[13] = 0.0e0;
7157 
7158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7159     v4sigma2lapl2[14] = 0.0e0;
7160 
7161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7162     v4sigma2lapl2[15] = 0.0e0;
7163 
7164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7165     v4sigma2lapl2[16] = 0.0e0;
7166 
7167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7168     v4sigma2lapl2[17] = 0.0e0;
7169 
7170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7171     v4sigma2lapltau[0] = 0.0e0;
7172 
7173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7174     v4sigma2lapltau[1] = 0.0e0;
7175 
7176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7177     v4sigma2lapltau[2] = 0.0e0;
7178 
7179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7180     v4sigma2lapltau[3] = 0.0e0;
7181 
7182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7183     v4sigma2lapltau[4] = 0.0e0;
7184 
7185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7186     v4sigma2lapltau[5] = 0.0e0;
7187 
7188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7189     v4sigma2lapltau[6] = 0.0e0;
7190 
7191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7192     v4sigma2lapltau[7] = 0.0e0;
7193 
7194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7195     v4sigma2lapltau[8] = 0.0e0;
7196 
7197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7198     v4sigma2lapltau[9] = 0.0e0;
7199 
7200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7201     v4sigma2lapltau[10] = 0.0e0;
7202 
7203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7204     v4sigma2lapltau[11] = 0.0e0;
7205 
7206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7207     v4sigma2lapltau[12] = 0.0e0;
7208 
7209   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7210     v4sigma2lapltau[13] = 0.0e0;
7211 
7212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7213     v4sigma2lapltau[14] = 0.0e0;
7214 
7215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7216     v4sigma2lapltau[15] = 0.0e0;
7217 
7218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7219     v4sigma2lapltau[16] = 0.0e0;
7220 
7221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7222     v4sigma2lapltau[17] = 0.0e0;
7223 
7224   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7225     v4sigma2lapltau[18] = 0.0e0;
7226 
7227   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7228     v4sigma2lapltau[19] = 0.0e0;
7229 
7230   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7231     v4sigma2lapltau[20] = 0.0e0;
7232 
7233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7234     v4sigma2lapltau[21] = 0.0e0;
7235 
7236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7237     v4sigma2lapltau[22] = 0.0e0;
7238 
7239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7240     v4sigma2lapltau[23] = 0.0e0;
7241 
7242   t11595 = 0.1e1 / t27 / t1221;
7243   t11628 = -0.50e2 / 0.27e2 * t2558 * t1081 - 0.24e2 * t2830 * t2831 * t1028 - 0.250000e6 / 0.19683e5 * t10364 * t5181 + 0.625e3 / 0.972e3 * t409 * t11595 * t19 * t412 + 0.31250e5 / 0.19683e5 * t9680 * t6421 + 0.25e2 / 0.27e2 * t8624 * t3387 - 0.10000e5 / 0.729e3 * t3894 * t690 * t3491 * t288 - 0.400e3 / 0.27e2 * t6926 * t3496 - 0.400e3 / 0.27e2 * t1202 * t421 * t3505 * t288 - 0.200e3 / 0.27e2 * t1202 * t421 * t1076 * t948 + 0.200e3 / 0.9e1 * t5306 * t421 * t1076 * t936 - 0.25e2 / 0.9e1 * t8627 * t3387 + 0.50e2 / 0.27e2 * t2228 * t162 * t279 * t1028;
7244   t11637 = t1028 * t1028;
7245   t11672 = 0.2e1 * t444 * t953 * t1084 - t174 * t953 * t1093 - 0.2e1 * t174 * t293 * t3537 + 0.4e1 * t444 * t73 * t11637 + 0.24e2 * t3749 * t1085 * t936 - 0.6e1 * t1268 * t1094 * t936 + 0.4e1 * t444 * t3530 * t288 + 0.4e1 * t444 * t3538 * t288 + 0.2e1 * t444 * t1094 * t948 + 0.250000e6 / 0.19683e5 * t1289 * t3477 * t293 - 0.31250e5 / 0.6561e4 * t3839 * t11595 * t66 * t73 - 0.12e2 * t1268 * t3519 * t288 - 0.6e1 * t1268 * t1085 * t948 + 0.8e1 * t444 * t1021 * t1028;
7246   t11686 = t47 * t1028;
7247   t11713 = 0.4e1 * t444 * t333 * t3349 + 0.10000e5 / 0.729e3 * t7034 * t1073 - 0.2500e4 / 0.243e3 * t1869 * t3488 - 0.100e3 / 0.27e2 * t3785 * t1080 * t11082 - 0.25e2 / 0.27e2 * t5503 * t3502 - 0.25e2 / 0.27e2 * t1299 * t1012 * t11686 + 0.100e3 / 0.27e2 * t5503 * t3509 + 0.50e2 / 0.27e2 * t1299 * t1080 * t11094 - 0.25e2 / 0.432e3 * t3785 * t1084 * t920 * t421 + 0.25e2 / 0.864e3 * t1299 * t1093 * t920 * t421 - 0.78125e5 / 0.13122e5 * t11098 * t3715 * t62 * t11595 + 0.100e3 / 0.27e2 * t420 * t421 * t39 * t3349 + 0.25e2 / 0.27e2 * t10440 * t280;
7248   t11732 = t421 * t2831;
7249   t11753 = 0.625e3 / 0.1458e4 * t8553 * t925 - 0.25e2 / 0.54e2 * t10472 * t280 - 0.25e2 / 0.54e2 * t10469 * t280 - 0.625e3 / 0.2916e4 * t8564 * t925 + 0.5000e4 / 0.729e3 * t5280 * t3492 + 0.5000e4 / 0.729e3 * t1208 * t690 * t1001 * t1028 - 0.625e3 / 0.486e3 * t3899 * t690 * t3343 * t332 + 0.50e2 / 0.27e2 * t9769 * t11732 + 0.100e3 / 0.27e2 * t9054 * t1077 + 0.200e3 / 0.27e2 * t1908 * t3506 - 0.20000e5 / 0.729e3 * t5280 * t3482 - 0.10000e5 / 0.729e3 * t1208 * t690 * t1071 * t948 + 0.2500e4 / 0.243e3 * t3899 * t690 * t3476 * t288 + 0.20000e5 / 0.729e3 * t3894 * t690 * t1071 * t936;
7250   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7251     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t274 * t275 * (t11628 + t11672 + t11713 + t11753);
7252 
7253   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7254     v4sigma2tau2[1] = 0.0e0;
7255 
7256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7257     v4sigma2tau2[2] = 0.0e0;
7258 
7259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7260     v4sigma2tau2[3] = 0.0e0;
7261 
7262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7263     v4sigma2tau2[4] = 0.0e0;
7264 
7265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7266     v4sigma2tau2[5] = 0.0e0;
7267 
7268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7269     v4sigma2tau2[6] = 0.0e0;
7270 
7271   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7272     v4sigma2tau2[7] = 0.0e0;
7273 
7274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7275     v4sigma2tau2[8] = 0.0e0;
7276 
7277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7278     v4sigma2tau2[9] = 0.0e0;
7279 
7280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7281     v4sigma2tau2[10] = 0.0e0;
7282 
7283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7284     v4sigma2tau2[11] = 0.0e0;
7285 
7286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7287     v4sigma2tau2[12] = 0.0e0;
7288 
7289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7290     v4sigma2tau2[13] = 0.0e0;
7291 
7292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7293     v4sigma2tau2[14] = 0.0e0;
7294 
7295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7296     v4sigma2tau2[15] = 0.0e0;
7297 
7298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7299     v4sigma2tau2[16] = 0.0e0;
7300 
7301   t11762 = t1063 * t1063;
7302   t11788 = 0.1e1 / t85 / t1576;
7303   t11800 = -0.2e1 * t246 * t317 * t3605 + 0.4e1 * t630 * t124 * t11762 + 0.2e1 * t630 * t994 * t1114 - t246 * t994 * t1123 + 0.50e2 / 0.27e2 * t2397 * t234 * t303 * t1063 - 0.10000e5 / 0.729e3 * t4959 * t690 * t3559 * t312 - 0.400e3 / 0.27e2 * t5930 * t3564 - 0.400e3 / 0.27e2 * t1680 * t421 * t3573 * t312 - 0.250000e6 / 0.19683e5 * t10569 * t6149 + 0.625e3 / 0.972e3 * t598 * t11788 * t19 * t412 + 0.31250e5 / 0.19683e5 * t10031 * t6824 - 0.50e2 / 0.27e2 * t2706 * t1111 - 0.24e2 * t2951 * t2952 * t1063;
7304   t11844 = 0.200e3 / 0.9e1 * t5985 * t421 * t1106 * t977 + 0.25e2 / 0.27e2 * t8909 * t3468 - 0.200e3 / 0.27e2 * t1680 * t421 * t1106 * t989 - 0.25e2 / 0.9e1 * t8902 * t3468 + 0.8e1 * t630 * t1056 * t1063 + 0.4e1 * t630 * t349 * t3426 + 0.4e1 * t630 * t3598 * t312 + 0.4e1 * t630 * t3606 * t312 - 0.6e1 * t1631 * t1124 * t977 + 0.2e1 * t630 * t1124 * t989 + 0.250000e6 / 0.19683e5 * t1645 * t3545 * t317 - 0.31250e5 / 0.6561e4 * t4922 * t11788 * t117 * t124 - 0.12e2 * t1631 * t3587 * t312 - 0.6e1 * t1631 * t1115 * t989;
7305   t11854 = t47 * t1063;
7306   t11883 = 0.24e2 * t5066 * t1115 * t977 - 0.100e3 / 0.27e2 * t4872 * t1110 * t11214 - 0.25e2 / 0.27e2 * t6048 * t3570 - 0.25e2 / 0.27e2 * t1658 * t1047 * t11854 + 0.100e3 / 0.27e2 * t6048 * t3577 + 0.50e2 / 0.27e2 * t1658 * t1110 * t11199 - 0.25e2 / 0.432e3 * t4872 * t1114 * t961 * t421 + 0.25e2 / 0.864e3 * t1658 * t1123 * t961 * t421 - 0.78125e5 / 0.13122e5 * t11203 * t5045 * t62 * t11788 + 0.10000e5 / 0.729e3 * t7536 * t1103 - 0.2500e4 / 0.243e3 * t2107 * t3556 - 0.625e3 / 0.2916e4 * t8830 * t966 - 0.20000e5 / 0.729e3 * t5919 * t3550;
7307   t11902 = t421 * t2952;
7308   t11925 = -0.10000e5 / 0.729e3 * t1686 * t690 * t1101 * t989 + 0.2500e4 / 0.243e3 * t4945 * t690 * t3544 * t312 + 0.5000e4 / 0.729e3 * t5919 * t3560 + 0.5000e4 / 0.729e3 * t1686 * t690 * t1036 * t1063 - 0.625e3 / 0.486e3 * t4945 * t690 * t3420 * t348 + 0.50e2 / 0.27e2 * t10129 * t11902 + 0.100e3 / 0.27e2 * t9464 * t1107 + 0.200e3 / 0.27e2 * t2156 * t3574 + 0.20000e5 / 0.729e3 * t4959 * t690 * t1101 * t977 + 0.100e3 / 0.27e2 * t607 * t421 * t97 * t3426 + 0.25e2 / 0.27e2 * t10686 * t304 + 0.625e3 / 0.1458e4 * t8819 * t966 - 0.25e2 / 0.54e2 * t10693 * t304 - 0.25e2 / 0.54e2 * t10696 * t304;
7309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7310     v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t274 * t299 * (t11800 + t11844 + t11883 + t11925);
7311 
7312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7313     v4sigmalapl3[0] = 0.0e0;
7314 
7315   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7316     v4sigmalapl3[1] = 0.0e0;
7317 
7318   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7319     v4sigmalapl3[2] = 0.0e0;
7320 
7321   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7322     v4sigmalapl3[3] = 0.0e0;
7323 
7324   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7325     v4sigmalapl3[4] = 0.0e0;
7326 
7327   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7328     v4sigmalapl3[5] = 0.0e0;
7329 
7330   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7331     v4sigmalapl3[6] = 0.0e0;
7332 
7333   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7334     v4sigmalapl3[7] = 0.0e0;
7335 
7336   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7337     v4sigmalapl3[8] = 0.0e0;
7338 
7339   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7340     v4sigmalapl3[9] = 0.0e0;
7341 
7342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7343     v4sigmalapl3[10] = 0.0e0;
7344 
7345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7346     v4sigmalapl3[11] = 0.0e0;
7347 
7348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7349     v4sigmalapl2tau[0] = 0.0e0;
7350 
7351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7352     v4sigmalapl2tau[1] = 0.0e0;
7353 
7354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7355     v4sigmalapl2tau[2] = 0.0e0;
7356 
7357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7358     v4sigmalapl2tau[3] = 0.0e0;
7359 
7360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7361     v4sigmalapl2tau[4] = 0.0e0;
7362 
7363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7364     v4sigmalapl2tau[5] = 0.0e0;
7365 
7366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7367     v4sigmalapl2tau[6] = 0.0e0;
7368 
7369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7370     v4sigmalapl2tau[7] = 0.0e0;
7371 
7372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7373     v4sigmalapl2tau[8] = 0.0e0;
7374 
7375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7376     v4sigmalapl2tau[9] = 0.0e0;
7377 
7378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7379     v4sigmalapl2tau[10] = 0.0e0;
7380 
7381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7382     v4sigmalapl2tau[11] = 0.0e0;
7383 
7384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7385     v4sigmalapl2tau[12] = 0.0e0;
7386 
7387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7388     v4sigmalapl2tau[13] = 0.0e0;
7389 
7390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7391     v4sigmalapl2tau[14] = 0.0e0;
7392 
7393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7394     v4sigmalapl2tau[15] = 0.0e0;
7395 
7396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7397     v4sigmalapl2tau[16] = 0.0e0;
7398 
7399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7400     v4sigmalapl2tau[17] = 0.0e0;
7401 
7402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7403     v4sigmalapltau2[0] = 0.0e0;
7404 
7405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7406     v4sigmalapltau2[1] = 0.0e0;
7407 
7408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7409     v4sigmalapltau2[2] = 0.0e0;
7410 
7411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7412     v4sigmalapltau2[3] = 0.0e0;
7413 
7414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7415     v4sigmalapltau2[4] = 0.0e0;
7416 
7417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7418     v4sigmalapltau2[5] = 0.0e0;
7419 
7420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7421     v4sigmalapltau2[6] = 0.0e0;
7422 
7423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7424     v4sigmalapltau2[7] = 0.0e0;
7425 
7426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7427     v4sigmalapltau2[8] = 0.0e0;
7428 
7429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7430     v4sigmalapltau2[9] = 0.0e0;
7431 
7432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7433     v4sigmalapltau2[10] = 0.0e0;
7434 
7435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7436     v4sigmalapltau2[11] = 0.0e0;
7437 
7438   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7439     v4sigmalapltau2[12] = 0.0e0;
7440 
7441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7442     v4sigmalapltau2[13] = 0.0e0;
7443 
7444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7445     v4sigmalapltau2[14] = 0.0e0;
7446 
7447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7448     v4sigmalapltau2[15] = 0.0e0;
7449 
7450   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7451     v4sigmalapltau2[16] = 0.0e0;
7452 
7453   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7454     v4sigmalapltau2[17] = 0.0e0;
7455 
7456   t11968 = 0.1e1 / t27 / t397;
7457   t11984 = t47 * t1084;
7458   t11990 = -0.6e1 * t1268 * t293 * t3636 - t174 * t293 * t3648 + 0.25e2 / 0.18e2 * t2228 * t10789 * t11065 + 0.20000e5 / 0.243e3 * t3894 * t690 * t3617 * t288 + 0.100e3 / 0.3e1 * t5306 * t421 * t3625 * t288 - 0.200e3 / 0.9e1 * t1202 * t421 * t1076 * t1028 - 0.100e3 / 0.9e1 * t1202 * t421 * t3632 * t288 + 0.6e1 * t444 * t1029 * t1093 + 0.6e1 * t444 * t333 * t3537 + 0.2e1 * t444 * t3649 * t288 - 0.1000000e7 / 0.19683e5 * t1289 * t3613 * t293 + 0.250000e6 / 0.6561e4 * t3839 * t11968 * t66 * t73 + 0.24e2 * t3749 * t3637 * t288 - 0.18e2 * t1268 * t1085 * t1028 + 0.6e1 * t444 * t1021 * t1093 + 0.10000e5 / 0.243e3 * t1869 * t3622 + 0.25e2 / 0.18e2 * t3785 * t1012 * t11984 + 0.50e2 / 0.9e1 * t5503 * t3629;
7459   t11994 = t47 * t1093;
7460   t12049 = 0.50e2 / 0.9e1 * t1299 * t1080 * t11686 - 0.25e2 / 0.36e2 * t1299 * t1012 * t11994 + 0.312500e6 / 0.6561e4 * t11098 * t3715 * t62 * t11968 + 0.50e2 / 0.9e1 * t1908 * t3633 + 0.50e2 / 0.9e1 * t420 * t421 * t39 * t3537 + 0.1250e4 / 0.243e3 * t1208 * t690 * t1001 * t1093 - 0.25e2 / 0.18e2 * t10868 * t280 - 0.25e2 / 0.108e3 * t10841 * t280 - 0.10000e5 / 0.243e3 * t5280 * t3618 - 0.10000e5 / 0.243e3 * t1208 * t690 * t1071 * t1028 + 0.1250e4 / 0.81e2 * t3899 * t690 * t3476 * t332 - 0.10000e5 / 0.243e3 * t3899 * t690 * t3612 * t288 - 0.100e3 / 0.9e1 * t6926 * t3626 - 0.2500e4 / 0.243e3 * t3894 * t690 * t1001 * t1084 - 0.100e3 / 0.9e1 * t10433 * t11732 + 0.1000000e7 / 0.19683e5 * t10816 * t5181 - 0.125000e6 / 0.6561e4 * t10364 * t6421 - 0.1250e4 / 0.243e3 * t409 * t11968 * t19 * t412 - 0.18e2 * t2830 * t10820 * t288;
7461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7462     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t274 * t275 * (t11990 + t12049);
7463 
7464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7465     v4sigmatau3[1] = 0.0e0;
7466 
7467   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7468     v4sigmatau3[2] = 0.0e0;
7469 
7470   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7471     v4sigmatau3[3] = 0.0e0;
7472 
7473   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7474     v4sigmatau3[4] = 0.0e0;
7475 
7476   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7477     v4sigmatau3[5] = 0.0e0;
7478 
7479   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7480     v4sigmatau3[6] = 0.0e0;
7481 
7482   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7483     v4sigmatau3[7] = 0.0e0;
7484 
7485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7486     v4sigmatau3[8] = 0.0e0;
7487 
7488   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7489     v4sigmatau3[9] = 0.0e0;
7490 
7491   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7492     v4sigmatau3[10] = 0.0e0;
7493 
7494   t12091 = 0.1e1 / t85 / t586;
7495   t12107 = t47 * t1114;
7496   t12113 = 0.25e2 / 0.18e2 * t2397 * t10946 * t11176 + 0.20000e5 / 0.243e3 * t4959 * t690 * t3660 * t312 + 0.100e3 / 0.3e1 * t5985 * t421 * t3668 * t312 - 0.200e3 / 0.9e1 * t1680 * t421 * t1106 * t1063 - 0.100e3 / 0.9e1 * t1680 * t421 * t3675 * t312 - 0.6e1 * t1631 * t317 * t3679 - t246 * t317 * t3691 + 0.6e1 * t630 * t1064 * t1123 + 0.6e1 * t630 * t349 * t3605 + 0.2e1 * t630 * t3692 * t312 - 0.1000000e7 / 0.19683e5 * t1645 * t3656 * t317 + 0.250000e6 / 0.6561e4 * t4922 * t12091 * t117 * t124 + 0.24e2 * t5066 * t3680 * t312 - 0.18e2 * t1631 * t1115 * t1063 + 0.6e1 * t630 * t1056 * t1123 + 0.10000e5 / 0.243e3 * t2107 * t3665 + 0.25e2 / 0.18e2 * t4872 * t1047 * t12107 + 0.50e2 / 0.9e1 * t6048 * t3672;
7497   t12117 = t47 * t1123;
7498   t12172 = 0.50e2 / 0.9e1 * t1658 * t1110 * t11854 - 0.25e2 / 0.36e2 * t1658 * t1047 * t12117 + 0.312500e6 / 0.6561e4 * t11203 * t5045 * t62 * t12091 - 0.25e2 / 0.108e3 * t11042 * t304 - 0.10000e5 / 0.243e3 * t5919 * t3661 - 0.10000e5 / 0.243e3 * t1686 * t690 * t1101 * t1063 + 0.1250e4 / 0.81e2 * t4945 * t690 * t3544 * t348 - 0.10000e5 / 0.243e3 * t4945 * t690 * t3655 * t312 - 0.100e3 / 0.9e1 * t5930 * t3669 - 0.2500e4 / 0.243e3 * t4959 * t690 * t1036 * t1114 - 0.100e3 / 0.9e1 * t10679 * t11902 + 0.50e2 / 0.9e1 * t2156 * t3676 + 0.50e2 / 0.9e1 * t607 * t421 * t97 * t3605 + 0.1250e4 / 0.243e3 * t1686 * t690 * t1036 * t1123 - 0.25e2 / 0.18e2 * t11039 * t304 + 0.1000000e7 / 0.19683e5 * t10965 * t6149 - 0.125000e6 / 0.6561e4 * t10569 * t6824 - 0.1250e4 / 0.243e3 * t598 * t12091 * t19 * t412 - 0.18e2 * t2951 * t10969 * t312;
7499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7500     v4sigmatau3[11] = -0.3e1 / 0.8e1 * t274 * t299 * (t12113 + t12172);
7501 
7502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7503     v4lapl4[0] = 0.0e0;
7504 
7505   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7506     v4lapl4[1] = 0.0e0;
7507 
7508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7509     v4lapl4[2] = 0.0e0;
7510 
7511   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7512     v4lapl4[3] = 0.0e0;
7513 
7514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7515     v4lapl4[4] = 0.0e0;
7516 
7517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7518     v4lapl3tau[0] = 0.0e0;
7519 
7520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7521     v4lapl3tau[1] = 0.0e0;
7522 
7523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7524     v4lapl3tau[2] = 0.0e0;
7525 
7526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7527     v4lapl3tau[3] = 0.0e0;
7528 
7529   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7530     v4lapl3tau[4] = 0.0e0;
7531 
7532   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7533     v4lapl3tau[5] = 0.0e0;
7534 
7535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7536     v4lapl3tau[6] = 0.0e0;
7537 
7538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7539     v4lapl3tau[7] = 0.0e0;
7540 
7541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7542     v4lapl2tau2[0] = 0.0e0;
7543 
7544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7545     v4lapl2tau2[1] = 0.0e0;
7546 
7547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7548     v4lapl2tau2[2] = 0.0e0;
7549 
7550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7551     v4lapl2tau2[3] = 0.0e0;
7552 
7553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7554     v4lapl2tau2[4] = 0.0e0;
7555 
7556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7557     v4lapl2tau2[5] = 0.0e0;
7558 
7559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7560     v4lapl2tau2[6] = 0.0e0;
7561 
7562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7563     v4lapl2tau2[7] = 0.0e0;
7564 
7565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7566     v4lapl2tau2[8] = 0.0e0;
7567 
7568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7569     v4lapltau3[0] = 0.0e0;
7570 
7571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7572     v4lapltau3[1] = 0.0e0;
7573 
7574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7575     v4lapltau3[2] = 0.0e0;
7576 
7577   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7578     v4lapltau3[3] = 0.0e0;
7579 
7580   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7581     v4lapltau3[4] = 0.0e0;
7582 
7583   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7584     v4lapltau3[5] = 0.0e0;
7585 
7586   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7587     v4lapltau3[6] = 0.0e0;
7588 
7589   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7590     v4lapltau3[7] = 0.0e0;
7591 
7592   t12177 = t1084 * t1084;
7593   t12184 = t1093 * t1093;
7594   t12235 = 0.24e2 * t3749 * t73 * t12177 - 0.36e2 * t1268 * t1085 * t1093 + 0.6e1 * t444 * t73 * t12184 + 0.8e1 * t444 * t333 * t3648 + 0.40000e5 / 0.243e3 * t3894 * t690 * t1071 * t1084 - 0.40000e5 / 0.243e3 * t3899 * t690 * t3612 * t332 + 0.400e3 / 0.9e1 * t5306 * t421 * t39 * t3636 - 0.400e3 / 0.9e1 * t1202 * t421 * t1076 * t1093 + 0.10000e5 / 0.243e3 * t409 * t3709 * t19 * t412 + 0.100e3 / 0.9e1 * t1299 * t1080 * t11994 - 0.2500000e7 / 0.6561e4 * t11098 * t3715 * t62 * t3709 - 0.2000000e7 / 0.6561e4 * t3839 * t3709 * t66 * t73 + 0.4000000e7 / 0.19683e5 * t10816 * t6421 - 0.20000e5 / 0.243e3 * t1208 * t690 * t1071 * t1093 - 0.200e3 / 0.9e1 * t3785 * t1080 * t11984 + 0.200e3 / 0.27e2 * t420 * t421 * t39 * t3648;
7595   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7596     v4tau4[0] = -0.3e1 / 0.8e1 * t274 * t275 * t12235;
7597 
7598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7599     v4tau4[1] = 0.0e0;
7600 
7601   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7602     v4tau4[2] = 0.0e0;
7603 
7604   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7605     v4tau4[3] = 0.0e0;
7606 
7607   t12250 = t1114 * t1114;
7608   t12257 = t1123 * t1123;
7609   t12297 = 0.200e3 / 0.27e2 * t607 * t421 * t97 * t3691 - 0.20000e5 / 0.243e3 * t1686 * t690 * t1101 * t1123 - 0.200e3 / 0.9e1 * t4872 * t1110 * t12107 + 0.24e2 * t5066 * t124 * t12250 - 0.36e2 * t1631 * t1115 * t1123 + 0.6e1 * t630 * t124 * t12257 + 0.8e1 * t630 * t349 * t3691 + 0.400e3 / 0.9e1 * t5985 * t421 * t97 * t3679 - 0.400e3 / 0.9e1 * t1680 * t421 * t1106 * t1123 + 0.40000e5 / 0.243e3 * t4959 * t690 * t1101 * t1114 - 0.40000e5 / 0.243e3 * t4945 * t690 * t3655 * t348 + 0.10000e5 / 0.243e3 * t598 * t4891 * t19 * t412 + 0.100e3 / 0.9e1 * t1658 * t1110 * t12117 - 0.2500000e7 / 0.6561e4 * t11203 * t5045 * t62 * t4891 - 0.2000000e7 / 0.6561e4 * t4922 * t4891 * t117 * t124 + 0.4000000e7 / 0.19683e5 * t10965 * t6824;
7610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7611     v4tau4[4] = -0.3e1 / 0.8e1 * t274 * t299 * t12297;
7612 
7613 #ifndef XC_DONT_COMPILE_MXC
7614 
7615   if(order < 5) return;
7616 
7617 
7618 #endif
7619 
7620 #endif
7621 
7622 #endif
7623 
7624 #endif
7625 
7626 #endif
7627 
7628 
7629 }
7630 
7631