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