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/gga_exc/gga_c_pw91.mpl
11   Type of functional: gga_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,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t1, t2, t3, t4, t5, t6, t7, t10;
24   double t12, t13, t16, t18, t19, t20, t21, t24;
25   double t26, t29, t30, t31, t32, t33, t34, t35;
26   double t36, t37, t38, t39, t41, t43, t45, t47;
27   double t50, t54, t55, t56, t57, t58, t59, t60;
28   double t62, t63, t64, t65, t66, t67, t70, t71;
29   double t73, t74, t75, t76, t79, t80, t81, t83;
30   double t86, t87, t91, t92, t94, t95, t98, t101;
31   double t102, t104, t105, t106, t108, t109, t112, t114;
32   double t118, t119, t120, t122;
33 
34 #ifndef XC_DONT_COMPILE_VXC
35   double t124, t125, t127, t129, t130, t131, t133, t134;
36   double t135, t138, t140, t141, t147, t149, t150, t151;
37   double t152, t154, t156, t161, t162, t163, t164, t165;
38   double t166, t172, t173, t176, t178, t179, t182, t184;
39   double t185, t186, t189, t193, t194, t195, t196, t198;
40   double t199, t202, t205, t206, t210, t211, t213, t218;
41   double t222, t223, t225, t229, t231, t232, t233, t236;
42   double t238, t239, t240, t241, t243, t244, t247, t248;
43   double t249, t250, t251, t254, t255, t256, t262, t265;
44   double t269, t272, t275, t279, t282, t286, t288, t290;
45   double t292, t294;
46 
47 #ifndef XC_DONT_COMPILE_FXC
48   double t301, t303, t305, t306, t308, t310, t311, t312;
49   double t313, t314, t315, t319, t320, t321, t324, t327;
50   double t329, t330, t336, t338, t339, t340, t342, t343;
51   double t344, t345, t346, t347, t348, t351, t356, t357;
52   double t358, t359, t360, t362, t365, t366, t373, t375;
53   double t376, t385, t386, t387, t390, t393, t397, t401;
54   double t403, t406, t410, t415, t416, t417, t421, t423;
55   double t424, t426, t430, t435, t439, t442, t443, t446;
56   double t447, t448, t450, t454, t463, t467, t469, t471;
57   double t472, t473, t475, t479, t481, t485, t486, t487;
58   double t492, t494, t495, t496, t497, t499, t501, t502;
59   double t503, t505, t506, t508, t509, t511, t512, t516;
60   double t517, t518, t519, t520, t521, t523, t525, t526;
61   double t527, t529, t533, t534, t539, t543, t550, t551;
62   double t552, t555, t556, t562, t567, t571, t573, t575;
63   double t577, t581, t585, t588, t589, t592, t593, t596;
64   double t600, t602, t603, t607, t608, t610, t616, t620;
65   double t621, t622, t625, t628, t629, t632, t636, t638;
66   double t641, t643, t645;
67 
68 #ifndef XC_DONT_COMPILE_KXC
69   double t647, t649, t651, t655, t657, t660, t661, t662;
70   double t663, t665, t667, t668, t669, t671, t673, t675;
71   double t676, t678, t680, t681, t683, t685, t686, t687;
72   double t688, t689, t691, t694, t695, t696, t698, t699;
73   double t702, t704, t706, t708, t711, t716, t717, t718;
74   double t719, t722, t727, t729, t730, t731, t732, t734;
75   double t735, t736, t738, t740, t742, t744, t746, t748;
76   double t749, t750, t753, t756, t757, t758, t759, t764;
77   double t765, t768, t771, t775, t776, t784, t785, t786;
78   double t789, t790, t792, t793, t794, t800, t801, t802;
79   double t803, t804, t806, t809, t812, t813, t814, t815;
80   double t816, t820, t823, t824, t835, t839, t843, t847;
81   double t848, t854, t855, t856, t867, t871, t872, t875;
82   double t878, t881, t883, t884, t888, t892, t895, t899;
83   double t903, t910, t911, t912, t913, t917, t918, t929;
84   double t934, t938, t939, t941, t946, t948, t949, t951;
85   double t955, t959, t962, t963, t964, t968, t973, t977;
86   double t981, t984, t985, t989, t994, t999, t1000, t1004;
87   double t1006, t1008, t1010, t1012, t1014, t1017, t1021, t1023;
88   double t1047, t1050, t1051, t1060, t1064, t1068, t1078, t1084;
89   double t1085, t1088, t1089, t1092, t1095, t1096, t1100, t1110;
90   double t1114, t1123, t1127, t1129, t1131, t1133, t1135, t1137;
91   double t1140, t1144, t1148, t1151, t1152, t1156, t1159, t1160;
92   double t1163, t1165, t1166, t1169, t1172, t1177, t1179, t1180;
93   double t1182, t1184, t1186, t1189, t1193, t1196, t1198, t1204;
94   double t1213, t1214, t1217, t1220, t1221, t1224, t1225, t1226;
95   double t1227, t1230, t1231, t1232, t1237, t1239, t1241, t1243;
96   double t1246, t1248, t1250, t1254, t1256, t1262, t1263, t1266;
97   double t1269, t1271, t1273, t1274, t1279, t1285, t1286, t1289;
98   double t1293, t1294, t1297, t1300, t1303, t1304, t1307, t1308;
99   double t1310, t1313, t1315, t1317;
100 
101 #ifndef XC_DONT_COMPILE_LXC
102   double t1330, t1331, t1349, t1354, t1362, t1386, t1390, t1391;
103   double t1393, t1398, t1400, t1404, t1410, t1414, t1417, t1418;
104   double t1420, t1424, t1430, t1434, t1441, t1450, t1461, t1466;
105   double t1468, t1469, t1471, t1472, t1479, t1494, t1497, t1500;
106   double t1502, t1514, t1516, t1523, t1549, t1590, t1591, t1594;
107   double t1600, t1604, t1609, t1613, t1620, t1630, t1631, t1632;
108   double t1640, t1675, t1712, t1718, t1733, t1748, t1780, t1791;
109   double t1797, t1818, t1827, t1831, t1836, t1840, t1864, t1870;
110   double t1880, t1916, t1921, t1922, t1923, t1927, t1957, t1962;
111   double t1976, t2012, t2033, t2073, t2102, t2107, t2132, t2157;
112   double t2180, t2184, t2232, t2240, t2302, t2306, t2316, t2333;
113   double t2342, t2353, t2384, t2404, t2409, t2439, t2447, t2451;
114   double t2517, t2521, t2562, t2572, t2573, t2576, t2579, t2591;
115   double t2615, t2619;
116 #endif
117 
118 #endif
119 
120 #endif
121 
122 #endif
123 
124 #endif
125 
126 
127 
128   t1 = M_CBRT3;
129   t2 = 0.1e1 / M_PI;
130   t3 = POW_1_3(t2);
131   t4 = t1 * t3;
132   t5 = M_CBRT4;
133   t6 = t5 * t5;
134   t7 = POW_1_3(rho[0]);
135   t10 = t4 * t6 / t7;
136   t12 = 0.1e1 + 0.53425000000000000000e-1 * t10;
137   t13 = sqrt(t10);
138   t16 = POW_3_2(t10);
139   t18 = t1 * t1;
140   t19 = t3 * t3;
141   t20 = t18 * t19;
142   t21 = t7 * t7;
143   t24 = t20 * t5 / t21;
144   t26 = 0.37978500000000000000e1 * t13 + 0.89690000000000000000e0 * t10 + 0.20477500000000000000e0 * t16 + 0.12323500000000000000e0 * t24;
145   t29 = 0.1e1 + 0.16081824322151104822e2 / t26;
146   t30 = log(t29);
147   t31 = t12 * t30;
148   t32 = 0.62182e-1 * t31;
149   t33 = M_PI * M_PI;
150   t34 = POW_1_3(t33);
151   t35 = t34 * t34;
152   t36 = t18 * t35;
153   t37 = 0.1e1 / t34;
154   t38 = t18 * t37;
155   t39 = rho[0] * rho[0];
156   t41 = 0.1e1 / t7 / t39;
157   t43 = M_CBRT2;
158   t45 = 0.1e1 / t3;
159   t47 = t18 * t45 * t5;
160   t50 = 0.1e1 / t35;
161   t54 = exp(0.80198987894528064400e1 * t31 * t1 * t50);
162   t55 = t54 - 0.1e1;
163   t56 = 0.1e1 / t55;
164   t57 = t37 * t56;
165   t58 = sigma[0] * sigma[0];
166   t59 = t57 * t58;
167   t60 = t39 * t39;
168   t62 = 0.1e1 / t21 / t60;
169   t63 = t43 * t43;
170   t64 = t62 * t63;
171   t65 = 0.1e1 / t19;
172   t66 = t65 * t6;
173   t67 = t64 * t66;
174   t70 = sigma[0] * t41 * t43 * t47 / 0.96e2 + 0.27166129655589868296e-2 * t59 * t67;
175   t71 = t1 * t37;
176   t73 = t71 * t56 * sigma[0];
177   t74 = t41 * t43;
178   t75 = t45 * t5;
179   t76 = t74 * t75;
180   t79 = t18 * t50;
181   t80 = t55 * t55;
182   t81 = 0.1e1 / t80;
183   t83 = t79 * t81 * t58;
184   t86 = 0.1e1 + 0.86931614897887578546e-1 * t73 * t76 + 0.75571056687546295931e-2 * t83 * t67;
185   t87 = 0.1e1 / t86;
186   t91 = 0.1e1 + 0.27818116767324025134e1 * t38 * t70 * t87;
187   t92 = log(t91);
188   t94 = 0.25844881434903430496e-2 * t36 * t92;
189   t95 = t2 * t34;
190   t98 = 0.2568e1 + 0.58165000000000000000e1 * t10 + 0.18472500000000000000e-2 * t24;
191   t101 = 0.1000e4 + 0.21807500000000000000e4 * t10 + 0.11800000000000000000e3 * t24;
192   t102 = 0.1e1 / t101;
193   t104 = t98 * t102 - 0.18535714285714285714e-2;
194   t105 = t104 * sigma[0];
195   t106 = t95 * t105;
196   t108 = POW_1_3(0.9e1);
197   t109 = t108 * t108;
198   t112 = 0.1e1 / t21 / t39;
199   t114 = sigma[0] * t43;
200   t118 = exp(-0.25e2 / 0.18e2 * t2 * t5 * t109 * t3 * t112 * t114);
201   t119 = t75 * t118;
202   t120 = t74 * t119;
203   t122 = t106 * t120 / 0.2e1;
204   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
205     zk[0] = -t32 + t94 + t122;
206 
207 #ifndef XC_DONT_COMPILE_VXC
208 
209   if(order < 1) return;
210 
211 
212   t124 = 0.1e1 / t7 / rho[0];
213   t125 = t6 * t124;
214   t127 = t4 * t125 * t30;
215   t129 = t26 * t26;
216   t130 = 0.1e1 / t129;
217   t131 = t12 * t130;
218   t133 = 0.1e1 / t13 * t1;
219   t134 = t3 * t6;
220   t135 = t134 * t124;
221   t138 = t4 * t125;
222   t140 = sqrt(t10);
223   t141 = t140 * t1;
224   t147 = t20 * t5 / t21 / rho[0];
225   t149 = -0.63297500000000000000e0 * t133 * t135 - 0.29896666666666666667e0 * t138 - 0.10238750000000000000e0 * t141 * t135 - 0.82156666666666666667e-1 * t147;
226   t150 = 0.1e1 / t29;
227   t151 = t149 * t150;
228   t152 = t131 * t151;
229   t154 = t39 * rho[0];
230   t156 = 0.1e1 / t7 / t154;
231   t161 = t37 * t81;
232   t162 = t58 * t62;
233   t163 = t161 * t162;
234   t164 = t63 * t65;
235   t165 = t18 * t3;
236   t166 = t165 * t6;
237   t172 = t150 * t1;
238   t173 = t172 * t50;
239   t176 = -0.14282103094217206135e0 * t166 * t124 * t30 * t50 - 0.12897460341341234506e3 * t131 * t149 * t173;
240   t178 = t6 * t176 * t54;
241   t179 = t164 * t178;
242   t182 = t60 * rho[0];
243   t184 = 0.1e1 / t21 / t182;
244   t185 = t184 * t63;
245   t186 = t185 * t66;
246   t189 = -0.7e1 / 0.288e3 * sigma[0] * t156 * t43 * t47 - 0.27166129655589868296e-2 * t163 * t179 - 0.12677527172608605205e-1 * t59 * t186;
247   t193 = t86 * t86;
248   t194 = 0.1e1 / t193;
249   t195 = t70 * t194;
250   t196 = t81 * sigma[0];
251   t198 = t71 * t196 * t41;
252   t199 = t43 * t45;
253   t202 = t199 * t5 * t176 * t54;
254   t205 = t156 * t43;
255   t206 = t205 * t75;
256   t210 = 0.1e1 / t80 / t55;
257   t211 = t210 * t58;
258   t213 = t79 * t211 * t62;
259   t218 = -0.86931614897887578546e-1 * t198 * t202 - 0.20284043476173768327e0 * t73 * t206 - 0.15114211337509259186e-1 * t213 * t179 - 0.35266493120854938101e-1 * t83 * t186;
260   t222 = 0.27818116767324025134e1 * t38 * t189 * t87 - 0.27818116767324025134e1 * t38 * t195 * t218;
261   t223 = 0.1e1 / t91;
262   t225 = t36 * t222 * t223;
263   t229 = -0.19388333333333333333e1 * t138 - 0.12315000000000000000e-2 * t147;
264   t231 = t101 * t101;
265   t232 = 0.1e1 / t231;
266   t233 = t98 * t232;
267   t236 = -0.72691666666666666667e3 * t138 - 0.78666666666666666667e2 * t147;
268   t238 = t229 * t102 - t233 * t236;
269   t239 = t238 * sigma[0];
270   t240 = t95 * t239;
271   t241 = t240 * t120;
272   t243 = t205 * t119;
273   t244 = t106 * t243;
274   t247 = 0.1e1 / t33 * t34;
275   t248 = t104 * t58;
276   t249 = t247 * t248;
277   t250 = t60 * t39;
278   t251 = 0.1e1 / t250;
279   t254 = t6 * t109 * t118;
280   t255 = t251 * t63 * t254;
281   t256 = t249 * t255;
282   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
283     vrho[0] = -t32 + t94 + t122 + rho[0] * (0.11073577833333333333e-2 * t127 + 0.10000000000000000000e1 * t152 + 0.25844881434903430496e-2 * t225 + t241 / 0.2e1 - 0.7e1 / 0.6e1 * t244 + 0.50e2 / 0.27e2 * t256);
284 
285   t262 = t57 * sigma[0];
286   t265 = t74 * t47 / 0.96e2 + 0.54332259311179736592e-2 * t262 * t67;
287   t269 = t71 * t56;
288   t272 = t79 * t196;
289   t275 = 0.86931614897887578546e-1 * t269 * t76 + 0.15114211337509259186e-1 * t272 * t67;
290   t279 = 0.27818116767324025134e1 * t38 * t265 * t87 - 0.27818116767324025134e1 * t38 * t195 * t275;
291   t282 = 0.25844881434903430496e-2 * t36 * t279 * t223;
292   t286 = t199 * t5 * t118;
293   t288 = t95 * t104 * t41 * t286 / 0.2e1;
294   t290 = 0.1e1 / t182;
295   t292 = t290 * t63 * t254;
296   t294 = 0.25e2 / 0.36e2 * t247 * t105 * t292;
297   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
298     vsigma[0] = rho[0] * (t282 + t288 - t294);
299 
300 #ifndef XC_DONT_COMPILE_FXC
301 
302   if(order < 2) return;
303 
304 
305   t301 = t6 * t41;
306   t303 = t4 * t301 * t30;
307   t305 = t4 * t6;
308   t306 = t124 * t130;
309   t308 = t305 * t306 * t151;
310   t310 = t129 * t26;
311   t311 = 0.1e1 / t310;
312   t312 = t12 * t311;
313   t313 = t149 * t149;
314   t314 = t313 * t150;
315   t315 = t312 * t314;
316   t319 = 0.1e1 / t13 / t10 * t18;
317   t320 = t19 * t5;
318   t321 = t320 * t112;
319   t324 = t134 * t41;
320   t327 = t4 * t301;
321   t329 = 0.1e1/sqrt(t10);
322   t330 = t329 * t18;
323   t336 = t20 * t5 * t112;
324   t338 = -0.42198333333333333333e0 * t319 * t321 + 0.84396666666666666666e0 * t133 * t324 + 0.39862222222222222223e0 * t327 + 0.68258333333333333333e-1 * t330 * t321 + 0.13651666666666666667e0 * t141 * t324 + 0.13692777777777777778e0 * t336;
325   t339 = t338 * t150;
326   t340 = t131 * t339;
327   t342 = t129 * t129;
328   t343 = 0.1e1 / t342;
329   t344 = t12 * t343;
330   t345 = t29 * t29;
331   t346 = 0.1e1 / t345;
332   t347 = t313 * t346;
333   t348 = t344 * t347;
334   t351 = 0.1e1 / t7 / t60;
335   t356 = t37 * t210;
336   t357 = t356 * t162;
337   t358 = t176 * t176;
338   t359 = t6 * t358;
339   t360 = t54 * t54;
340   t362 = t164 * t359 * t360;
341   t365 = t58 * t184;
342   t366 = t161 * t365;
343   t373 = t165 * t125;
344   t375 = t150 * t50;
345   t376 = t130 * t149 * t375;
346   t385 = t344 * t313;
347   t386 = t346 * t1;
348   t387 = t386 * t50;
349   t390 = 0.19042804125622941513e0 * t166 * t41 * t30 * t50 + 0.45936454582410363564e1 * t373 * t376 + 0.25794920682682469012e3 * t312 * t313 * t173 - 0.12897460341341234506e3 * t131 * t338 * t173 - 0.20741469141136075563e4 * t385 * t387;
350   t393 = t164 * t6 * t390 * t54;
351   t397 = t164 * t359 * t54;
352   t401 = 0.1e1 / t21 / t250;
353   t403 = t401 * t63 * t66;
354   t406 = 0.35e2 / 0.432e3 * sigma[0] * t351 * t43 * t47 + 0.54332259311179736592e-2 * t357 * t362 + 0.25355054345217210410e-1 * t366 * t179 - 0.27166129655589868296e-2 * t163 * t393 - 0.27166129655589868296e-2 * t163 * t397 + 0.71839320644782096162e-1 * t59 * t403;
355   t410 = t189 * t194;
356   t415 = 0.1e1 / t193 / t86;
357   t416 = t70 * t415;
358   t417 = t218 * t218;
359   t421 = t210 * sigma[0];
360   t423 = t71 * t421 * t41;
361   t424 = t5 * t358;
362   t426 = t199 * t424 * t360;
363   t430 = t71 * t196 * t156;
364   t435 = t199 * t5 * t390 * t54;
365   t439 = t199 * t424 * t54;
366   t442 = t351 * t43;
367   t443 = t442 * t75;
368   t446 = t80 * t80;
369   t447 = 0.1e1 / t446;
370   t448 = t447 * t58;
371   t450 = t79 * t448 * t62;
372   t454 = t79 * t211 * t184;
373   t463 = 0.17386322979577515709e0 * t423 * t426 + 0.40568086952347536654e0 * t430 * t202 - 0.86931614897887578546e-1 * t198 * t435 - 0.86931614897887578546e-1 * t198 * t439 + 0.67613478253912561090e0 * t73 * t443 + 0.45342634012527777558e-1 * t450 * t362 + 0.14106597248341975240e0 * t454 * t179 - 0.15114211337509259186e-1 * t213 * t393 - 0.15114211337509259186e-1 * t213 * t397 + 0.19984346101817798257e0 * t83 * t403;
374   t467 = 0.27818116767324025134e1 * t38 * t406 * t87 - 0.55636233534648050268e1 * t38 * t410 * t218 + 0.55636233534648050268e1 * t38 * t416 * t417 - 0.27818116767324025134e1 * t38 * t195 * t463;
375   t469 = t36 * t467 * t223;
376   t471 = t222 * t222;
377   t472 = t91 * t91;
378   t473 = 0.1e1 / t472;
379   t475 = t36 * t471 * t473;
380   t479 = 0.25851111111111111111e1 * t327 + 0.20525000000000000000e-2 * t336;
381   t481 = t229 * t232;
382   t485 = 0.1e1 / t231 / t101;
383   t486 = t98 * t485;
384   t487 = t236 * t236;
385   t492 = 0.96922222222222222222e3 * t327 + 0.13111111111111111111e3 * t336;
386   t494 = t479 * t102 - t233 * t492 - 0.2e1 * t481 * t236 + 0.2e1 * t486 * t487;
387   t495 = t494 * sigma[0];
388   t496 = t95 * t495;
389   t497 = t496 * t120;
390   t499 = t240 * t243;
391   t501 = t238 * t58;
392   t502 = t247 * t501;
393   t503 = t502 * t255;
394   t505 = t442 * t119;
395   t506 = t106 * t505;
396   t508 = t60 * t154;
397   t509 = 0.1e1 / t508;
398   t511 = t509 * t63 * t254;
399   t512 = t249 * t511;
400   t516 = 0.1e1 / t33 / M_PI * t34;
401   t517 = t58 * sigma[0];
402   t518 = t104 * t517;
403   t519 = t516 * t518;
404   t520 = t60 * t60;
405   t521 = t520 * rho[0];
406   t523 = 0.1e1 / t21 / t521;
407   t525 = t3 * t118;
408   t526 = t523 * t108 * t525;
409   t527 = t519 * t526;
410   t529 = -0.14764770444444444444e-2 * t303 - 0.35616666666666666667e-1 * t308 - 0.20000000000000000000e1 * t315 + 0.10000000000000000000e1 * t340 + 0.16081824322151104822e2 * t348 + 0.25844881434903430496e-2 * t469 - 0.25844881434903430496e-2 * t475 + t497 / 0.2e1 - 0.7e1 / 0.3e1 * t499 + 0.100e3 / 0.27e2 * t503 + 0.35e2 / 0.9e1 * t506 - 0.1250e4 / 0.81e2 * t512 + 0.40000e5 / 0.81e2 * t527;
411   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
412     v2rho2[0] = 0.22147155666666666666e-2 * t127 + 0.20000000000000000000e1 * t152 + 0.51689762869806860992e-2 * t225 + t241 - 0.7e1 / 0.3e1 * t244 + 0.100e3 / 0.27e2 * t256 + rho[0] * t529;
413 
414   t533 = sigma[0] * t62;
415   t534 = t161 * t533;
416   t539 = -0.7e1 / 0.288e3 * t205 * t47 - 0.54332259311179736592e-2 * t534 * t179 - 0.25355054345217210410e-1 * t262 * t186;
417   t543 = t265 * t194;
418   t550 = t38 * t70;
419   t551 = t415 * t275;
420   t552 = t551 * t218;
421   t555 = t81 * t41;
422   t556 = t71 * t555;
423   t562 = t79 * t421 * t62;
424   t567 = -0.86931614897887578546e-1 * t556 * t202 - 0.20284043476173768327e0 * t269 * t206 - 0.30228422675018518372e-1 * t562 * t179 - 0.70532986241709876201e-1 * t272 * t186;
425   t571 = 0.27818116767324025134e1 * t38 * t539 * t87 - 0.27818116767324025134e1 * t38 * t543 * t218 - 0.27818116767324025134e1 * t38 * t410 * t275 + 0.55636233534648050268e1 * t550 * t552 - 0.27818116767324025134e1 * t38 * t195 * t567;
426   t573 = t36 * t571 * t223;
427   t575 = t279 * t473;
428   t577 = t36 * t575 * t222;
429   t581 = t95 * t238 * t41 * t286;
430   t585 = t95 * t104 * t156 * t286;
431   t588 = t247 * t104 * t251;
432   t589 = t63 * t6;
433   t592 = t589 * t109 * sigma[0] * t118;
434   t593 = t588 * t592;
435   t596 = t247 * t239 * t292;
436   t600 = 0.1e1 / t21 / t520;
437   t602 = t600 * t108 * t525;
438   t603 = t516 * t248 * t602;
439   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
440     v2rhosigma[0] = t282 + t288 - t294 + rho[0] * (0.25844881434903430496e-2 * t573 - 0.25844881434903430496e-2 * t577 + t581 / 0.2e1 - 0.7e1 / 0.6e1 * t585 + 0.575e3 / 0.108e3 * t593 - 0.25e2 / 0.36e2 * t596 - 0.5000e4 / 0.27e2 * t603);
441 
442   t607 = t56 * t62;
443   t608 = t79 * t607;
444   t610 = t164 * t6 * t87;
445   t616 = t275 * t275;
446   t620 = t1 * t70;
447   t621 = t194 * t81;
448   t622 = t620 * t621;
449   t625 = 0.15114211337509259186e-1 * t608 * t610 - 0.55636233534648050268e1 * t38 * t543 * t275 + 0.55636233534648050268e1 * t38 * t416 * t616 - 0.12780113936069355903e-1 * t622 * t67;
450   t628 = 0.25844881434903430496e-2 * t36 * t625 * t223;
451   t629 = t279 * t279;
452   t632 = 0.25844881434903430496e-2 * t36 * t629 * t473;
453   t636 = t589 * t109 * t118;
454   t638 = 0.25e2 / 0.18e2 * t247 * t104 * t290 * t636;
455   t641 = 0.1e1 / t21 / t508;
456   t643 = t641 * t108 * t525;
457   t645 = 0.625e3 / 0.9e1 * t516 * t105 * t643;
458   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
459     v2sigma2[0] = rho[0] * (t628 - t632 - t638 + t645);
460 
461 #ifndef XC_DONT_COMPILE_KXC
462 
463   if(order < 3) return;
464 
465 
466   t647 = t471 * t222;
467   t649 = 0.1e1 / t472 / t91;
468   t651 = t36 * t647 * t649;
469   t655 = t36 * t467 * t473 * t222;
470   t657 = t240 * t505;
471   t660 = 0.1e1 / t7 / t182;
472   t661 = t660 * t43;
473   t662 = t661 * t119;
474   t663 = t106 * t662;
475   t665 = t496 * t243;
476   t667 = t238 * t517;
477   t668 = t516 * t667;
478   t669 = t668 * t526;
479   t671 = t520 * t39;
480   t673 = 0.1e1 / t21 / t671;
481   t675 = t673 * t108 * t525;
482   t676 = t519 * t675;
483   t678 = 0.1e1 / t520;
484   t680 = t678 * t63 * t254;
485   t681 = t249 * t680;
486   t683 = t33 * t33;
487   t685 = 0.1e1 / t683 * t34;
488   t686 = t58 * t58;
489   t687 = t104 * t686;
490   t688 = t685 * t687;
491   t689 = t520 * t182;
492   t691 = 0.1e1 / t7 / t689;
493   t694 = t5 * t43 * t118;
494   t695 = t691 * t19 * t694;
495   t696 = t688 * t695;
496   t698 = t6 * t156;
497   t699 = t4 * t698;
498   t702 = 0.1e1 / t21 / t154;
499   t704 = t20 * t5 * t702;
500   t706 = -0.60319259259259259259e1 * t699 - 0.54733333333333333333e-2 * t704;
501   t708 = t479 * t232;
502   t711 = t229 * t485;
503   t716 = t231 * t231;
504   t717 = 0.1e1 / t716;
505   t718 = t98 * t717;
506   t719 = t487 * t236;
507   t722 = t236 * t492;
508   t727 = -0.22615185185185185185e4 * t699 - 0.34962962962962962963e3 * t704;
509   t729 = t706 * t102 - t233 * t727 - 0.3e1 * t708 * t236 - 0.3e1 * t481 * t492 + 0.6e1 * t486 * t722 + 0.6e1 * t711 * t487 - 0.6e1 * t718 * t719;
510   t730 = t729 * sigma[0];
511   t731 = t95 * t730;
512   t732 = t731 * t120;
513   t734 = t494 * t58;
514   t735 = t247 * t734;
515   t736 = t735 * t255;
516   t738 = t502 * t511;
517   t740 = 0.51689762869806860992e-2 * t651 - 0.77534644304710291488e-2 * t655 + 0.35e2 / 0.3e1 * t657 - 0.455e3 / 0.27e2 * t663 - 0.7e1 / 0.2e1 * t665 + 0.40000e5 / 0.27e2 * t669 - 0.80000e5 / 0.9e1 * t676 + 0.29750e5 / 0.243e3 * t681 + 0.4000000e7 / 0.243e3 * t696 + t732 / 0.2e1 + 0.50e2 / 0.9e1 * t736 - 0.1250e4 / 0.27e2 * t738;
518   t742 = t4 * t698 * t30;
519   t744 = t338 * t346;
520   t746 = t344 * t744 * t149;
521   t748 = t313 * t149;
522   t749 = t748 * t150;
523   t750 = t344 * t749;
524   t753 = t312 * t151 * t338;
525   t756 = 0.1e1 / t342 / t26;
526   t757 = t12 * t756;
527   t758 = t748 * t346;
528   t759 = t757 * t758;
529   t764 = 0.1e1 / t13 / t24 * t2 / 0.4e1;
530   t765 = 0.1e1 / t60;
531   t768 = t320 * t702;
532   t771 = t134 * t156;
533   t775 = 0.1e1/POW_3_2(t10);
534   t776 = t775 * t2;
535   t784 = -0.25319000000000000000e1 * t764 * t765 + 0.16879333333333333333e1 * t319 * t768 - 0.19692555555555555555e1 * t133 * t771 - 0.93011851851851851854e0 * t699 + 0.13651666666666666667e0 * t776 * t765 - 0.27303333333333333333e0 * t330 * t768 - 0.31853888888888888890e0 * t141 * t771 - 0.36514074074074074075e0 * t704;
536   t785 = t784 * t150;
537   t786 = t131 * t785;
538   t789 = 0.1e1 / t342 / t129;
539   t790 = t12 * t789;
540   t792 = 0.1e1 / t345 / t29;
541   t793 = t748 * t792;
542   t794 = t790 * t793;
543   t800 = t37 * t447;
544   t801 = t800 * t162;
545   t802 = t358 * t176;
546   t803 = t6 * t802;
547   t804 = t360 * t54;
548   t806 = t164 * t803 * t804;
549   t809 = t356 * t365;
550   t812 = t162 * t63;
551   t813 = t356 * t812;
552   t814 = t176 * t360;
553   t815 = t814 * t390;
554   t816 = t66 * t815;
555   t820 = t164 * t803 * t360;
556   t823 = t58 * t401;
557   t824 = t161 * t823;
558   t835 = t165 * t301;
559   t839 = t311 * t313 * t375;
560   t843 = t130 * t338 * t375;
561   t847 = t346 * t50;
562   t848 = t343 * t313 * t847;
563   t854 = t312 * t149;
564   t855 = t50 * t338;
565   t856 = t172 * t855;
566   t867 = t386 * t50 * t149;
567   t871 = t792 * t1;
568   t872 = t871 * t50;
569   t875 = -0.44433209626453530197e0 * t166 * t156 * t30 * t50 - 0.91872909164820727127e1 * t835 * t376 - 0.13780936374723109069e2 * t373 * t839 + 0.68904681873615545346e1 * t373 * t843 + 0.11081129888651948369e3 * t373 * t848 - 0.77384762048047407036e3 * t344 * t748 * t173 + 0.77384762048047407036e3 * t854 * t856 + 0.12444881484681645338e5 * t757 * t748 * t387 - 0.12897460341341234506e3 * t131 * t784 * t173 - 0.62224407423408226689e4 * t344 * t338 * t867 - 0.66712132582213745341e5 * t790 * t748 * t872;
570   t878 = t164 * t6 * t875 * t54;
571   t881 = t161 * t812;
572   t883 = t390 * t176 * t54;
573   t884 = t66 * t883;
574   t888 = t164 * t803 * t54;
575   t892 = t641 * t63 * t66;
576   t895 = -0.455e3 / 0.1296e4 * sigma[0] * t660 * t43 * t47 - 0.16299677793353920978e-1 * t801 * t806 - 0.76065163035651631230e-1 * t809 * t362 + 0.16299677793353920977e-1 * t813 * t816 + 0.16299677793353920977e-1 * t357 * t820 - 0.21551796193434628848e0 * t824 * t179 + 0.38032581517825815615e-1 * t366 * t393 + 0.38032581517825815615e-1 * t366 * t397 - 0.27166129655589868296e-2 * t163 * t878 - 0.81498388966769604888e-2 * t881 * t884 - 0.27166129655589868296e-2 * t163 * t888 - 0.47892880429854730775e0 * t59 * t892;
577   t899 = t406 * t194;
578   t903 = t189 * t415;
579   t910 = t193 * t193;
580   t911 = 0.1e1 / t910;
581   t912 = t70 * t911;
582   t913 = t417 * t218;
583   t917 = t415 * t218;
584   t918 = t917 * t463;
585   t929 = t199 * t5 * t875 * t54;
586   t934 = t661 * t75;
587   t938 = 0.1e1 / t446 / t55;
588   t939 = t938 * t58;
589   t941 = t79 * t939 * t62;
590   t946 = t447 * sigma[0];
591   t948 = t71 * t946 * t41;
592   t949 = t5 * t802;
593   t951 = t199 * t949 * t804;
594   t955 = t199 * t949 * t360;
595   t959 = t71 * t421 * t156;
596   t962 = -0.15114211337509259186e-1 * t213 * t878 + 0.21159895872512962860e0 * t454 * t393 + 0.60852130428521304981e0 * t430 * t435 - 0.86931614897887578546e-1 * t198 * t929 - 0.13322897401211865505e1 * t83 * t892 - 0.29299173910028776472e1 * t73 * t934 - 0.18137053605011111023e0 * t941 * t806 + 0.13602790203758333267e0 * t450 * t820 - 0.52158968938732547127e0 * t948 * t951 + 0.52158968938732547127e0 * t423 * t955 - 0.12170426085704260996e1 * t959 * t426;
597   t963 = t199 * t5;
598   t964 = t963 * t815;
599   t968 = t71 * t196 * t351;
600   t973 = t963 * t883;
601   t977 = t199 * t949 * t54;
602   t981 = t79 * t448 * t184;
603   t984 = t164 * t6;
604   t985 = t984 * t815;
605   t989 = t79 * t211 * t401;
606   t994 = t984 * t883;
607   t999 = 0.52158968938732547127e0 * t423 * t964 - 0.20284043476173768327e1 * t968 * t202 + 0.60852130428521304981e0 * t430 * t439 - 0.26079484469366273564e0 * t198 * t973 - 0.86931614897887578546e-1 * t198 * t977 - 0.63479687617538888580e0 * t981 * t362 + 0.13602790203758333267e0 * t450 * t985 - 0.11990607661090678954e1 * t989 * t179 + 0.21159895872512962860e0 * t454 * t397 - 0.45342634012527777558e-1 * t213 * t994 - 0.15114211337509259186e-1 * t213 * t888;
608   t1000 = t962 + t999;
609   t1004 = 0.27818116767324025134e1 * t38 * t895 * t87 - 0.83454350301972075402e1 * t38 * t899 * t218 + 0.16690870060394415081e2 * t38 * t903 * t417 - 0.83454350301972075402e1 * t38 * t410 * t463 - 0.16690870060394415080e2 * t38 * t912 * t913 + 0.16690870060394415081e2 * t550 * t918 - 0.27818116767324025134e1 * t38 * t195 * t1000;
610   t1006 = t36 * t1004 * t223;
611   t1008 = t124 * t343;
612   t1010 = t305 * t1008 * t347;
613   t1012 = t41 * t130;
614   t1014 = t305 * t1012 * t151;
615   t1017 = t305 * t306 * t339;
616   t1021 = t305 * t124 * t311 * t314;
617   t1023 = 0.34451131037037037036e-2 * t742 + 0.48245472966453314466e2 * t746 + 0.60000000000000000000e1 * t750 - 0.60000000000000000000e1 * t753 - 0.96490945932906628932e2 * t759 + 0.10000000000000000000e1 * t786 + 0.51725014705706168417e3 * t794 + 0.25844881434903430496e-2 * t1006 - 0.85917146441092277512e0 * t1010 + 0.71233333333333333334e-1 * t1014 - 0.53425000000000000000e-1 * t1017 + 0.10685000000000000000e0 * t1021;
618   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
619     v3rho3[0] = rho[0] * (t740 + t1023) - 0.10685000000000000000e0 * t308 + 0.40000e5 / 0.27e2 * t527 - 0.77534644304710291488e-2 * t475 - 0.44294311333333333332e-2 * t303 + 0.3e1 / 0.2e1 * t497 + 0.100e3 / 0.9e1 * t503 - 0.1250e4 / 0.27e2 * t512 + 0.30000000000000000000e1 * t340 + 0.48245472966453314466e2 * t348 + 0.77534644304710291488e-2 * t469 - 0.7e1 * t499 + 0.35e2 / 0.3e1 * t506 - 0.60000000000000000000e1 * t315;
620 
621   t1047 = t356 * t533;
622   t1050 = sigma[0] * t184;
623   t1051 = t161 * t1050;
624   t1060 = 0.35e2 / 0.432e3 * t442 * t47 + 0.10866451862235947318e-1 * t1047 * t362 + 0.50710108690434420820e-1 * t1051 * t179 - 0.54332259311179736592e-2 * t534 * t393 - 0.54332259311179736592e-2 * t534 * t397 + 0.14367864128956419232e0 * t262 * t403;
625   t1064 = t539 * t194;
626   t1068 = t265 * t415;
627   t1078 = t38 * t189;
628   t1084 = t911 * t275;
629   t1085 = t1084 * t417;
630   t1088 = t415 * t567;
631   t1089 = t1088 * t218;
632   t1092 = t551 * t463;
633   t1095 = t210 * t41;
634   t1096 = t71 * t1095;
635   t1100 = t71 * t81 * t156;
636   t1110 = t79 * t946 * t62;
637   t1114 = t79 * t421 * t184;
638   t1123 = 0.17386322979577515709e0 * t1096 * t426 + 0.40568086952347536654e0 * t1100 * t202 - 0.86931614897887578546e-1 * t556 * t435 - 0.86931614897887578546e-1 * t556 * t439 + 0.67613478253912561090e0 * t269 * t443 + 0.90685268025055555116e-1 * t1110 * t362 + 0.28213194496683950480e0 * t1114 * t179 - 0.30228422675018518372e-1 * t562 * t393 - 0.30228422675018518372e-1 * t562 * t397 + 0.39968692203635596514e0 * t272 * t403;
639   t1127 = 0.27818116767324025134e1 * t38 * t1060 * t87 - 0.55636233534648050268e1 * t38 * t1064 * t218 + 0.55636233534648050268e1 * t38 * t1068 * t417 - 0.27818116767324025134e1 * t38 * t543 * t463 - 0.27818116767324025134e1 * t38 * t899 * t275 + 0.11127246706929610054e2 * t1078 * t552 - 0.55636233534648050268e1 * t38 * t410 * t567 - 0.16690870060394415080e2 * t550 * t1085 + 0.11127246706929610054e2 * t550 * t1089 + 0.55636233534648050268e1 * t550 * t1092 - 0.27818116767324025134e1 * t38 * t195 * t1123;
640   t1129 = t36 * t1127 * t223;
641   t1131 = t571 * t473;
642   t1133 = t36 * t1131 * t222;
643   t1135 = t279 * t649;
644   t1137 = t36 * t1135 * t471;
645   t1140 = t36 * t575 * t467;
646   t1144 = t95 * t494 * t41 * t286;
647   t1148 = t95 * t238 * t156 * t286;
648   t1151 = t247 * t238 * t251;
649   t1152 = t1151 * t592;
650   t1156 = t95 * t104 * t351 * t286;
651   t1159 = t247 * t104 * t509;
652   t1160 = t1159 * t592;
653   t1163 = t516 * t104 * t523;
654   t1165 = t108 * t58 * t525;
655   t1166 = t1163 * t1165;
656   t1169 = t247 * t495 * t292;
657   t1172 = t516 * t501 * t602;
658   t1177 = 0.1e1 / t7 / t520 / t60;
659   t1179 = t1177 * t19 * t694;
660   t1180 = t685 * t518 * t1179;
661   t1182 = 0.25844881434903430496e-2 * t1129 - 0.51689762869806860992e-2 * t1133 + 0.51689762869806860992e-2 * t1137 - 0.25844881434903430496e-2 * t1140 + t1144 / 0.2e1 - 0.7e1 / 0.3e1 * t1148 + 0.575e3 / 0.54e2 * t1152 + 0.35e2 / 0.9e1 * t1156 - 0.5875e4 / 0.162e3 * t1160 + 0.245000e6 / 0.81e2 * t1166 - 0.25e2 / 0.36e2 * t1169 - 0.10000e5 / 0.27e2 * t1172 - 0.500000e6 / 0.81e2 * t1180;
662   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
663     v3rho2sigma[0] = 0.51689762869806860992e-2 * t573 - 0.51689762869806860992e-2 * t577 + t581 - 0.7e1 / 0.3e1 * t585 + 0.575e3 / 0.54e2 * t593 - 0.25e2 / 0.18e2 * t596 - 0.10000e5 / 0.27e2 * t603 + rho[0] * t1182;
664 
665   t1184 = t81 * t62;
666   t1186 = t79 * t1184 * t63;
667   t1189 = t66 * t87 * t176 * t54;
668   t1193 = t79 * t56 * t184;
669   t1196 = t6 * t194;
670   t1198 = t164 * t1196 * t218;
671   t1204 = t38 * t265;
672   t1213 = t911 * t616;
673   t1214 = t1213 * t218;
674   t1217 = t551 * t567;
675   t1220 = t1 * t189;
676   t1221 = t1220 * t621;
677   t1224 = t415 * t81;
678   t1225 = t620 * t1224;
679   t1226 = t66 * t218;
680   t1227 = t64 * t1226;
681   t1230 = t194 * t210;
682   t1231 = t1230 * t62;
683   t1232 = t620 * t1231;
684   t1237 = -0.15114211337509259186e-1 * t1186 * t1189 - 0.70532986241709876201e-1 * t1193 * t610 - 0.15114211337509259186e-1 * t608 * t1198 - 0.55636233534648050268e1 * t38 * t1064 * t275 + 0.11127246706929610054e2 * t1204 * t552 - 0.55636233534648050268e1 * t38 * t543 * t567 + 0.55636233534648050268e1 * t38 * t903 * t616 - 0.16690870060394415080e2 * t550 * t1214 + 0.11127246706929610054e2 * t550 * t1217 - 0.12780113936069355903e-1 * t1221 * t67 + 0.25560227872138711806e-1 * t1225 * t1227 + 0.25560227872138711806e-1 * t1232 * t179 + 0.59640531701656994214e-1 * t622 * t186;
685   t1239 = t36 * t1237 * t223;
686   t1241 = t625 * t473;
687   t1243 = t36 * t1241 * t222;
688   t1246 = t36 * t575 * t571;
689   t1248 = t629 * t649;
690   t1250 = t36 * t1248 * t222;
691   t1254 = t247 * t238 * t290 * t636;
692   t1256 = t588 * t636;
693   t1262 = t108 * t3 * sigma[0] * t118;
694   t1263 = t516 * t104 * t600 * t1262;
695   t1266 = t516 * t239 * t643;
696   t1269 = t520 * t154;
697   t1271 = 0.1e1 / t7 / t1269;
698   t1273 = t1271 * t19 * t694;
699   t1274 = t685 * t248 * t1273;
700   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
701     v3rhosigma2[0] = t628 - t632 - t638 + t645 + rho[0] * (0.25844881434903430496e-2 * t1239 - 0.25844881434903430496e-2 * t1243 - 0.51689762869806860992e-2 * t1246 + 0.51689762869806860992e-2 * t1250 - 0.25e2 / 0.18e2 * t1254 + 0.125e3 / 0.18e2 * t1256 - 0.8125e4 / 0.9e1 * t1263 + 0.625e3 / 0.9e1 * t1266 + 0.62500e5 / 0.27e2 * t1274);
702 
703   t1279 = t164 * t1196 * t275;
704   t1285 = t1 * t265;
705   t1286 = t1285 * t621;
706   t1289 = t616 * t275;
707   t1293 = t620 * t551;
708   t1294 = t1184 * t984;
709   t1297 = -0.45342634012527777559e-1 * t608 * t1279 + 0.16690870060394415081e2 * t38 * t1068 * t616 - 0.38340341808208067710e-1 * t1286 * t67 - 0.16690870060394415080e2 * t38 * t912 * t1289 + 0.76680683616416135420e-1 * t1293 * t1294;
710   t1300 = 0.25844881434903430496e-2 * t36 * t1297 * t223;
711   t1303 = 0.77534644304710291488e-2 * t36 * t1241 * t279;
712   t1304 = t629 * t279;
713   t1307 = 0.51689762869806860992e-2 * t36 * t1304 * t649;
714   t1308 = t516 * t104;
715   t1310 = 0.625e3 / 0.3e1 * t1308 * t643;
716   t1313 = 0.1e1 / t7 / t671;
717   t1315 = t1313 * t19 * t694;
718   t1317 = 0.15625e5 / 0.18e2 * t685 * t105 * t1315;
719   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
720     v3sigma3[0] = rho[0] * (t1300 - t1303 + t1307 + t1310 - t1317);
721 
722 #ifndef XC_DONT_COMPILE_LXC
723 
724   if(order < 4) return;
725 
726 
727   t1330 = 0.1e1 / t7 / t250;
728   t1331 = t1330 * t43;
729   t1349 = t343 * t338;
730   t1354 = t311 * t149;
731   t1362 = t6 * t351;
732   t1386 = t390 * t358 * t54;
733   t1390 = t358 * t358;
734   t1391 = t6 * t1390;
735   t1393 = t164 * t1391 * t360;
736   t1398 = t360 * t360;
737   t1400 = t164 * t1391 * t1398;
738   t1404 = t164 * t1391 * t804;
739   t1410 = t600 * t63 * t66;
740   t1414 = t164 * t1391 * t54;
741   t1417 = t390 * t390;
742   t1418 = t6 * t1417;
743   t1420 = t164 * t1418 * t54;
744   t1424 = t875 * t176 * t54;
745   t1430 = t365 * t63;
746   t1434 = 0.455e3 / 0.243e3 * sigma[0] * t1330 * t43 * t47 - 0.16299677793353920978e-1 * t881 * t66 * t1386 + 0.38032581517825815613e-1 * t357 * t1393 + 0.65198711173415683912e-1 * t37 * t938 * t162 * t1400 - 0.97798066760123525865e-1 * t801 * t1404 - 0.30426065214260652492e0 * t809 * t820 + 0.36717874996221960261e1 * t59 * t1410 - 0.27166129655589868296e-2 * t163 * t1414 - 0.81498388966769604888e-2 * t163 * t1420 - 0.10866451862235947318e-1 * t881 * t66 * t1424 + 0.50710108690434420820e-1 * t366 * t888 + 0.15213032607130326245e0 * t161 * t1430 * t884;
747   t1441 = t814 * t875;
748   t1450 = t358 * t804 * t390;
749   t1461 = t164 * t1418 * t360;
750   t1466 = t342 * t342;
751   t1468 = t12 / t1466;
752   t1469 = t313 * t313;
753   t1471 = t345 * t345;
754   t1472 = 0.1e1 / t1471;
755   t1479 = t12 / t342 / t310;
756   t1494 = t320 * t62;
757   t1497 = t134 * t351;
758   t1500 = t4 * t1362;
759   t1502 = pow(t10, -0.25e1);
760   t1514 = t20 * t5 * t62;
761   t1516 = -0.43956597222222222223e-1 / t13 * rho[0] * t660 * t305 + 0.20255200000000000000e2 * t764 * t290 - 0.75019259259259259258e1 * t319 * t1494 + 0.65641851851851851850e1 * t133 * t1497 + 0.31003950617283950618e1 * t1500 + 0.68258333333333333335e-1 * t1502 * t2 * t660 * t305 - 0.10921333333333333333e1 * t776 * t290 + 0.12134814814814814815e1 * t330 * t1494 + 0.10617962962962962963e1 * t141 * t1497 + 0.13388493827160493828e1 * t1514;
762   t1523 = t338 * t338;
763   t1549 = -0.32185583890296425980e7 * t1468 * t1469 * t1472 * t1 * t50 + 0.80054559098656494410e6 * t1479 * t1469 * t872 - 0.12897460341341234506e3 * t131 * t1516 * t173 - 0.74669288908089872028e5 * t790 * t1469 * t387 - 0.62224407423408226689e4 * t344 * t1523 * t387 - 0.40027279549328247204e6 * t790 * t338 * t871 * t50 * t313 - 0.82965876564544302252e4 * t344 * t784 * t867 + 0.77384762048047407036e3 * t312 * t1523 * t173 + 0.10317968273072987605e4 * t854 * t172 * t50 * t784 + 0.74669288908089872028e5 * t757 * t313 * t386 * t855 + 0.30953904819218962814e4 * t757 * t1469 * t173;
764   t1590 = -0.46430857228828444222e4 * t385 * t856 + 0.14811069875484510066e1 * t166 * t351 * t30 * t50 + 0.91872909164820727128e1 * t373 * t130 * t784 * t375 + 0.47521275776063591263e4 * t373 * t789 * t748 * t792 * t50 + 0.28582682851277559551e2 * t165 * t698 * t376 - 0.18374581832964145426e2 * t835 * t843 - 0.29549679703071862318e3 * t835 * t848 - 0.88649039109215586953e3 * t373 * t756 * t748 * t847 + 0.36749163665928290850e2 * t835 * t839 + 0.55123745498892436276e2 * t373 * t343 * t748 * t375 - 0.55123745498892436276e2 * t373 * t1354 * t375 * t338 + 0.44324519554607793476e3 * t373 * t1349 * t847 * t149;
765   t1591 = t1549 + t1590;
766   t1594 = t164 * t6 * t1591 * t54;
767   t1600 = t358 * t360 * t390;
768   t1604 = 0.19157152171941892310e1 * t161 * t58 * t641 * t179 - 0.43103592386869257697e0 * t824 * t397 + 0.21732903724471894636e-1 * t813 * t66 * t1441 + 0.30426065214260652492e0 * t800 * t365 * t806 - 0.97798066760123525865e-1 * t800 * t812 * t66 * t1450 + 0.86207184773738515393e0 * t356 * t823 * t362 - 0.30426065214260652492e0 * t356 * t1430 * t816 + 0.16299677793353920977e-1 * t357 * t1461 + 0.50710108690434420820e-1 * t366 * t878 - 0.27166129655589868296e-2 * t163 * t1594 - 0.43103592386869257697e0 * t824 * t393 + 0.97798066760123525863e-1 * t813 * t66 * t1600;
769   t1609 = t895 * t194;
770   t1613 = t406 * t415;
771   t1620 = t189 * t911;
772   t1630 = 0.1e1 / t910 / t86;
773   t1631 = t70 * t1630;
774   t1632 = t417 * t417;
775   t1640 = t463 * t463;
776   t1675 = 0.10214221340929096887e2 * t83 * t1410 + 0.15626226085348680785e2 * t73 * t1331 * t75 + 0.18137053605011111023e0 * t450 * t984 * t1441 - 0.25391875047015555432e1 * t981 * t985 - 0.48681704342817043984e1 * t959 * t964 + 0.81616741222549999602e0 * t450 * t984 * t1600 - 0.31295381363239528276e1 * t948 * t963 * t1450 - 0.34772645959155031419e0 * t198 * t963 * t1424 - 0.10882232163006666614e1 * t941 * t984 * t1450 + 0.84639583490051851440e0 * t454 * t994 + 0.24340852171408521992e1 * t430 * t973;
777   t1712 = -0.60456845350037036744e-1 * t213 * t984 * t1424 - 0.90685268025055555116e-1 * t213 * t984 * t1386 - 0.52158968938732547128e0 * t198 * t963 * t1386 + 0.69545291918310062836e0 * t423 * t963 * t1441 + 0.31295381363239528276e1 * t423 * t963 * t1600 + 0.10658317920969492404e2 * t79 * t211 * t641 * t179 + 0.11719669564011510589e2 * t71 * t196 * t660 * t202 - 0.86931614897887578546e-1 * t198 * t199 * t5 * t1591 * t54 + 0.81136173904695073308e0 * t430 * t929 - 0.15114211337509259186e-1 * t213 * t1594 - 0.45342634012527777558e-1 * t213 * t1420 - 0.15114211337509259186e-1 * t213 * t1414;
778   t1718 = t5 * t1390;
779   t1733 = t5 * t1417;
780   t1748 = -0.23981215322181357908e1 * t989 * t397 + 0.28213194496683950480e0 * t454 * t888 - 0.86931614897887578546e-1 * t198 * t199 * t1718 * t54 + 0.71943645966544073724e1 * t79 * t448 * t401 * t362 + 0.13602790203758333267e0 * t450 * t1461 - 0.40568086952347536654e1 * t968 * t439 + 0.81136173904695073308e0 * t430 * t977 - 0.26079484469366273564e0 * t198 * t199 * t1733 * t54 - 0.48681704342817043984e1 * t959 * t955 + 0.81136173904695073307e1 * t71 * t421 * t351 * t426 + 0.52158968938732547127e0 * t423 * t199 * t1733 * t360;
781   t1780 = t938 * sigma[0];
782   t1791 = -0.25391875047015555432e1 * t981 * t820 + 0.48681704342817043984e1 * t71 * t946 * t156 * t951 + 0.33855833396020740576e1 * t79 * t939 * t184 * t806 - 0.23981215322181357908e1 * t989 * t393 - 0.40568086952347536654e1 * t968 * t435 + 0.28213194496683950480e0 * t454 * t878 + 0.12170426085704260996e1 * t423 * t199 * t1718 * t360 + 0.90685268025055555115e0 * t79 / t446 / t80 * t58 * t62 * t1400 - 0.10882232163006666614e1 * t941 * t1404 + 0.31739843808769444290e0 * t450 * t1393 + 0.20863587575493018851e1 * t71 * t1780 * t41 * t199 * t1718 * t1398 - 0.31295381363239528276e1 * t948 * t199 * t1718 * t804;
783   t1797 = 0.27818116767324025134e1 * t38 * (t1434 + t1604) * t87 - 0.11127246706929610054e2 * t38 * t1609 * t218 + 0.33381740120788830161e2 * t38 * t1613 * t417 - 0.16690870060394415080e2 * t38 * t899 * t463 - 0.66763480241577660323e2 * t38 * t1620 * t913 + 0.66763480241577660323e2 * t1078 * t918 - 0.11127246706929610054e2 * t38 * t410 * t1000 + 0.66763480241577660320e2 * t38 * t1631 * t1632 - 0.10014522036236649048e3 * t550 * t911 * t417 * t463 + 0.16690870060394415081e2 * t38 * t416 * t1640 + 0.22254493413859220108e2 * t550 * t917 * t1000 - 0.27818116767324025134e1 * t38 * t195 * (t1675 + t1712 + t1748 + t1791);
784   t1818 = t520 * t250;
785   t1827 = 0.1e1 / t683 / t33 * t34;
786   t1831 = t520 * t520;
787   t1836 = t63 * t109 * t118;
788   t1840 = 0.14246666666666666667e0 * t305 * t1012 * t339 + 0.22911239050957940670e1 * t305 * t41 * t343 * t347 - 0.28493333333333333334e0 * t305 * t41 * t311 * t314 + 0.25844881434903430496e-2 * t36 * t1797 * t223 + 0.57894567559743977359e3 * t790 * t1469 * t346 + 0.36000000000000000000e2 * t344 * t314 * t338 + 0.64327297288604419288e2 * t344 * t784 * t346 * t149 - 0.80000000000000000000e1 * t312 * t151 * t784 + 0.31035008823423701050e4 * t790 * t338 * t792 * t313 - 0.376000000e9 / 0.729e3 * t688 / t7 / t1818 * t19 * t694 + 0.400000000e9 / 0.6561e4 * t1827 * t104 * t686 * sigma[0] / t1831 / rho[0] * t6 * t1836;
789   t1864 = t487 * t487;
790   t1870 = t492 * t492;
791   t1880 = (0.20106419753086419753e2 * t1500 + 0.20068888888888888889e-1 * t1514) * t102 - 0.4e1 * t706 * t232 * t236 + 0.12e2 * t479 * t485 * t487 - 0.6e1 * t708 * t492 - 0.24e2 * t229 * t717 * t719 + 0.24e2 * t711 * t722 - 0.4e1 * t481 * t727 + 0.24e2 * t98 / t716 / t101 * t1864 - 0.36e2 * t718 * t487 * t492 + 0.6e1 * t486 * t1870 + 0.8e1 * t486 * t236 * t727 - t233 * (0.75383950617283950617e4 * t1500 + 0.12819753086419753086e4 * t1514);
792   t1916 = t95 * t1880 * sigma[0] * t120 / 0.2e1 + 0.200e3 / 0.27e2 * t247 * t729 * t58 * t255 - 0.759500e6 / 0.729e3 * t249 / t521 * t63 * t254 - 0.14e2 / 0.3e1 * t731 * t243 - 0.2500e4 / 0.27e2 * t735 * t511 + 0.16000000e8 / 0.243e3 * t685 * t238 * t686 * t695 + 0.70e2 / 0.3e1 * t496 * t505 + 0.119000e6 / 0.243e3 * t502 * t680 - 0.71233333333333333333e-1 * t305 * t306 * t785 - 0.36845452142031360636e2 * t305 * t124 * t789 * t793 - 0.42740000000000000000e0 * t305 * t1008 * t749;
793   t1921 = t471 * t471;
794   t1922 = t472 * t472;
795   t1923 = 0.1e1 / t1922;
796   t1927 = t467 * t467;
797   t1957 = -0.22161481481481481481e0 * t305 * t156 * t130 * t151 - 0.15506928860942058298e-1 * t36 * t1921 * t1923 - 0.77534644304710291488e-2 * t36 * t1927 * t473 + 0.68733717152873822009e1 * t305 * t124 * t756 * t758 + 0.10000000000000000000e1 * t131 * t1516 * t150 + 0.24954977986735470917e5 * t1468 * t1469 * t1472 + 0.48245472966453314466e2 * t344 * t1523 * t346 - 0.62070017646847402100e4 * t1479 * t1469 * t792 - 0.24000000000000000000e2 * t757 * t1469 * t150 - 0.60000000000000000000e1 * t312 * t1523 * t150 + 0.31013857721884116596e-1 * t36 * t471 * t649 * t467;
798   t1962 = 0.24000000000000000000e2 * t750 - 0.38596378373162651572e3 * t759 + 0.40000000000000000000e1 * t786 - 0.320000e6 / 0.9e1 * t676 + 0.160000e6 / 0.27e2 * t669 + 0.10337952573961372198e-1 * t1006 + 0.20690005882282467367e4 * t794 - 0.24000000000000000000e2 * t753 + 0.13780452414814814815e-1 * t742 + 0.19298189186581325786e3 * t746 + rho[0] * (0.7280e4 / 0.81e2 * t106 * t1331 * t119 - 0.1820e4 / 0.27e2 * t240 * t662 - 0.320000e6 / 0.9e1 * t668 * t675 + 0.92920000e8 / 0.729e3 * t519 / t21 / t1269 * t108 * t525 + 0.80000e5 / 0.27e2 * t516 * t494 * t517 * t526 - 0.34366858576436911004e1 * t138 * t1349 * t346 * t149 + 0.42740000000000000000e0 * t138 * t1354 * t339 - 0.10337952573961372198e-1 * t36 * t1004 * t473 * t222 - 0.11483710345679012345e-1 * t4 * t1362 * t30 - 0.57894567559743977359e3 * t757 * t744 * t313 + t1840 + t1916 + t1957) - 0.31013857721884116596e-1 * t655;
799   t1976 = 0.20675905147922744397e-1 * t651 - 0.34366858576436911004e1 * t1010 + 0.28493333333333333333e0 * t1014 - 0.21370000000000000000e0 * t1017 + 0.42740000000000000000e0 * t1021 + 0.140e3 / 0.3e1 * t657 - 0.1820e4 / 0.27e2 * t663 - 0.14e2 * t665 + 0.119000e6 / 0.243e3 * t681 + 0.16000000e8 / 0.243e3 * t696 + 0.2e1 * t732 + 0.200e3 / 0.9e1 * t736 - 0.5000e4 / 0.27e2 * t738;
800   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
801     v4rho4[0] = t1962 + t1976;
802 
803   t2012 = t36 * t279;
804   t2033 = t265 * t911;
805   t2073 = -0.36274107210022222046e0 * t79 * t1780 * t62 * t806 + 0.27205580407516666535e0 * t1110 * t820 - 0.29299173910028776472e1 * t269 * t934 - 0.30228422675018518372e-1 * t562 * t878 - 0.26079484469366273564e0 * t71 * t555 * t43 * t75 * t883 - 0.86931614897887578546e-1 * t556 * t977 + 0.42319791745025925720e0 * t1114 * t393 + 0.60852130428521304981e0 * t1100 * t439 - 0.12170426085704260996e1 * t71 * t210 * t156 * t426 + 0.52158968938732547127e0 * t71 * t1095 * t43 * t75 * t815 - 0.20284043476173768327e1 * t71 * t81 * t351 * t202;
806   t2102 = -0.26645794802423731009e1 * t272 * t892 + 0.60852130428521304981e0 * t1100 * t435 - 0.86931614897887578546e-1 * t556 * t929 - 0.52158968938732547127e0 * t71 * t447 * t41 * t951 + 0.52158968938732547127e0 * t1096 * t955 - 0.12695937523507777716e1 * t79 * t946 * t184 * t362 + 0.27205580407516666535e0 * t1110 * t985 - 0.23981215322181357908e1 * t79 * t421 * t401 * t179 + 0.42319791745025925720e0 * t1114 * t397 - 0.90685268025055555116e-1 * t562 * t994 - 0.30228422675018518372e-1 * t562 * t888;
807   t2107 = t539 * t415;
808   t2132 = t1060 * t194;
809   t2157 = t533 * t63;
810   t2180 = -0.455e3 / 0.1296e4 * t661 * t47 - 0.32599355586707841954e-1 * t800 * t533 * t806 - 0.15213032607130326246e0 * t356 * t1050 * t362 + 0.32599355586707841954e-1 * t356 * t2157 * t816 + 0.32599355586707841954e-1 * t1047 * t820 - 0.43103592386869257697e0 * t161 * sigma[0] * t401 * t179 + 0.76065163035651631230e-1 * t1051 * t393 + 0.76065163035651631230e-1 * t1051 * t397 - 0.54332259311179736592e-2 * t534 * t878 - 0.16299677793353920977e-1 * t161 * t2157 * t884 - 0.54332259311179736592e-2 * t534 * t888 - 0.95785760859709461547e0 * t262 * t892;
811   t2184 = 0.16690870060394415081e2 * t550 * t1088 * t463 + 0.16690870060394415081e2 * t550 * t415 * t1123 * t218 - 0.50072610181183245242e2 * t550 * t911 * t567 * t417 - 0.83454350301972075402e1 * t38 * t1064 * t463 - 0.83454350301972075402e1 * t38 * t2132 * t218 + 0.16690870060394415081e2 * t1078 * t1092 + 0.33381740120788830162e2 * t1078 * t1089 + 0.16690870060394415081e2 * t38 * t406 * t552 - 0.83454350301972075402e1 * t38 * t410 * t1123 - 0.83454350301972075402e1 * t38 * t899 * t567 + 0.27818116767324025134e1 * t38 * t2180 * t87;
812   t2232 = t571 * t649;
813   t2240 = 0.575e3 / 0.36e2 * t247 * t494 * t251 * t592 + 0.35e2 / 0.3e1 * t95 * t238 * t351 * t286 - 0.5875e4 / 0.54e2 * t247 * t238 * t509 * t592 - 0.455e3 / 0.27e2 * t95 * t104 * t660 * t286 + 0.130375e6 / 0.486e3 * t247 * t104 * t678 * t592 + 0.43000000e8 / 0.243e3 * t685 * t104 * t691 * t517 * t19 * t694 - 0.25e2 / 0.36e2 * t247 * t730 * t292 - 0.500000e6 / 0.27e2 * t685 * t667 * t1179 - 0.50000000e8 / 0.2187e4 * t1827 * t687 / t1831 * t6 * t1836 + 0.15506928860942058297e-1 * t36 * t2232 * t471 - 0.15506928860942058298e-1 * t36 * t279 * t1923 * t647;
814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
815     v4rho3sigma[0] = -0.77534644304710291488e-2 * t1140 - 0.15506928860942058297e-1 * t1133 + 0.3e1 / 0.2e1 * t1144 + 0.245000e6 / 0.27e2 * t1166 - 0.10000e5 / 0.9e1 * t1172 + 0.15506928860942058297e-1 * t1137 - 0.500000e6 / 0.27e2 * t1180 + 0.575e3 / 0.18e2 * t1152 + 0.35e2 / 0.3e1 * t1156 - 0.5875e4 / 0.54e2 * t1160 - 0.25e2 / 0.12e2 * t1169 - 0.7e1 * t1148 + 0.77534644304710291488e-2 * t1129 + rho[0] * (-0.77534644304710291488e-2 * t36 * t1127 * t473 * t222 + 0.245000e6 / 0.27e2 * t516 * t238 * t523 * t1165 - 0.9455000e7 / 0.243e3 * t516 * t104 * t673 * t1165 - 0.5000e4 / 0.9e1 * t516 * t734 * t602 + t95 * t729 * t41 * t286 / 0.2e1 - 0.77534644304710291488e-2 * t36 * t1131 * t467 + 0.15506928860942058297e-1 * t2012 * t649 * t222 * t467 - 0.25844881434903430496e-2 * t36 * t575 * t1004 + 0.25844881434903430496e-2 * t36 * (0.66763480241577660320e2 * t550 * t1630 * t275 * t913 - 0.50072610181183245240e2 * t550 * t1084 * t218 * t463 - 0.27818116767324025134e1 * t38 * t1609 * t275 - 0.50072610181183245242e2 * t1078 * t1085 - 0.16690870060394415080e2 * t38 * t2033 * t913 + 0.16690870060394415081e2 * t1204 * t918 - 0.27818116767324025134e1 * t38 * t195 * (t2073 + t2102) + 0.16690870060394415081e2 * t38 * t2107 * t417 - 0.27818116767324025134e1 * t38 * t543 * t1000 + 0.55636233534648050268e1 * t550 * t551 * t1000 + t2184) * t223 - 0.7e1 / 0.2e1 * t95 * t494 * t156 * t286 + t2240);
816 
817   t2302 = t218 * t176 * t54;
818   t2306 = t66 * t194;
819   t2316 = t87 * t358;
820   t2333 = t81 * t184;
821   t2342 = -0.55636233534648050268e1 * t38 * t543 * t1123 - 0.11127246706929610054e2 * t38 * t1064 * t567 - 0.33796301297605630055e0 * t622 * t403 + 0.11928106340331398843e0 * t1221 * t186 + 0.51120455744277423612e-1 * t1220 * t1231 * t179 - 0.15114211337509259186e-1 * t1186 * t66 * t87 * t390 * t54 + 0.25560227872138711806e-1 * t1232 * t393 + 0.55636233534648050268e1 * t38 * t1613 * t616 - 0.66763480241577660322e2 * t550 * t1084 * t218 * t567 - 0.10224091148855484722e0 * t620 * t415 * t210 * t62 * t984 * t2302 + 0.30228422675018518372e-1 * t1186 * t2306 * t2302 - 0.23856212680662797686e0 * t620 * t1230 * t184 * t179 + 0.25560227872138711806e-1 * t1232 * t397 - 0.15114211337509259186e-1 * t1186 * t66 * t2316 * t54 - 0.76680683616416135418e-1 * t620 * t194 * t447 * t62 * t362 + 0.30228422675018518372e-1 * t79 * t210 * t62 * t63 * t66 * t2316 * t360 + 0.14106597248341975240e0 * t79 * t2333 * t63 * t1189 + 0.39968692203635596514e0 * t79 * t56 * t401 * t610;
822   t2353 = t6 * t415;
823   t2384 = t567 * t567;
824   t2404 = -0.12780113936069355903e-1 * t1 * t406 * t621 * t67 - 0.76680683616416135418e-1 * t620 * t911 * t81 * t64 * t66 * t417 + 0.30228422675018518372e-1 * t608 * t164 * t2353 * t417 + 0.25560227872138711806e-1 * t1225 * t64 * t66 * t463 + 0.22254493413859220108e2 * t1078 * t1217 - 0.33381740120788830160e2 * t1078 * t1214 - 0.16690870060394415080e2 * t550 * t1213 * t463 + 0.11127246706929610054e2 * t550 * t551 * t1123 - 0.23856212680662797686e0 * t1225 * t185 * t1226 + 0.51120455744277423612e-1 * t1220 * t1224 * t1227 - 0.15114211337509259186e-1 * t608 * t164 * t1196 * t463 + 0.14106597248341975240e0 * t1193 * t1198 + 0.11127246706929610054e2 * t38 * t416 * t2384 + 0.66763480241577660320e2 * t550 * t1630 * t616 * t417 - 0.33381740120788830162e2 * t1204 * t1085 + 0.22254493413859220108e2 * t38 * t539 * t552 + 0.11127246706929610054e2 * t1204 * t1092 + 0.22254493413859220108e2 * t1204 * t1089 - 0.55636233534648050268e1 * t38 * t2132 * t275;
825   t2409 = t571 * t571;
826   t2439 = t625 * t649;
827   t2447 = t1237 * t473;
828   t2451 = 0.20675905147922744396e-1 * t2012 * t2232 * t222 - 0.25e2 / 0.18e2 * t247 * t494 * t290 * t636 - 0.16250e5 / 0.9e1 * t516 * t238 * t600 * t1262 + 0.261250e6 / 0.27e2 * t1163 * t1262 + 0.625e3 / 0.9e1 * t516 * t495 * t643 - 0.51689762869806860992e-2 * t36 * t575 * t1127 + 0.25844881434903430496e-2 * t36 * (t2342 + t2404) * t223 - 0.51689762869806860992e-2 * t36 * t2409 * t473 - 0.25844881434903430496e-2 * t36 * t1241 * t467 + 0.51689762869806860992e-2 * t36 * t1248 * t467 - 0.4562500e7 / 0.81e2 * t685 * t104 * t1177 * t19 * t58 * t694 + 0.125000e6 / 0.27e2 * t685 * t501 * t1273 + 0.6250000e7 / 0.729e3 * t1827 * t518 / t520 / t508 * t6 * t1836 + 0.125e3 / 0.9e1 * t1151 * t636 - 0.125e3 / 0.3e1 * t1159 * t636 + 0.51689762869806860992e-2 * t36 * t2439 * t471 - 0.15506928860942058298e-1 * t36 * t629 * t1923 * t471 - 0.51689762869806860992e-2 * t36 * t2447 * t222;
829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
830     v4rho2sigma2[0] = 0.51689762869806860992e-2 * t1239 - 0.51689762869806860992e-2 * t1243 - 0.10337952573961372198e-1 * t1246 + 0.10337952573961372198e-1 * t1250 - 0.25e2 / 0.9e1 * t1254 + 0.125e3 / 0.9e1 * t1256 - 0.16250e5 / 0.9e1 * t1263 + 0.1250e4 / 0.9e1 * t1266 + 0.125000e6 / 0.27e2 * t1274 + rho[0] * t2451;
831 
832   t2517 = 0.45342634012527777559e-1 * t1186 * t2306 * t275 * t176 * t54 + 0.21159895872512962861e0 * t1193 * t1279 + 0.90685268025055555118e-1 * t79 * t607 * t63 * t66 * t552 - 0.45342634012527777559e-1 * t608 * t164 * t1196 * t567 + 0.16690870060394415081e2 * t38 * t2107 * t616 - 0.50072610181183245243e2 * t1204 * t1214 + 0.33381740120788830162e2 * t1204 * t1217 - 0.38340341808208067710e-1 * t1 * t539 * t621 * t67 + 0.76680683616416135420e-1 * t1285 * t1224 * t1227 + 0.76680683616416135420e-1 * t1285 * t1231 * t179 + 0.17892159510497098265e0 * t1286 * t186 - 0.16690870060394415080e2 * t38 * t1620 * t1289 + 0.66763480241577660320e2 * t550 * t1630 * t1289 * t218 - 0.50072610181183245240e2 * t550 * t1213 * t567 + 0.76680683616416135420e-1 * t1220 * t551 * t1294 - 0.23004205084924840626e0 * t620 * t1084 * t81 * t1227 + 0.76680683616416135420e-1 * t620 * t1088 * t1294 - 0.15336136723283227084e0 * t620 * t551 * t210 * t64 * t65 * t178 - 0.35784319020994196529e0 * t1293 * t2333 * t984;
833   t2521 = t1297 * t473;
834   t2562 = 0.25844881434903430496e-2 * t36 * t2517 * t223 - 0.25844881434903430496e-2 * t36 * t2521 * t222 - 0.77534644304710291488e-2 * t36 * t2447 * t279 + 0.15506928860942058298e-1 * t36 * t625 * t1135 * t222 - 0.77534644304710291488e-2 * t36 * t1241 * t571 + 0.15506928860942058298e-1 * t36 * t1248 * t571 - 0.15506928860942058298e-1 * t36 * t1304 * t1923 * t222 + 0.625e3 / 0.3e1 * t516 * t238 * t643 - 0.14375e5 / 0.9e1 * t1308 * t602 + 0.859375e6 / 0.54e2 * t685 * t104 * t1271 * t320 * t114 * t118 - 0.15625e5 / 0.18e2 * t685 * t239 * t1315 - 0.781250e6 / 0.243e3 * t1827 * t248 / t1818 * t6 * t1836;
835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
836     v4rhosigma3[0] = rho[0] * t2562 + t1300 - t1303 + t1307 + t1310 - t1317;
837 
838   t2572 = 0.1e1 / t7 / t521;
839   t2573 = t210 * t2572;
840   t2576 = 0.1e1 / t3 / t2;
841   t2579 = t43 * t2576 * t5 * t194;
842   t2591 = t616 * t616;
843   t2615 = t625 * t625;
844   t2619 = t629 * t629;
845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
846     v4sigma4[0] = rho[0] * (0.25844881434903430496e-2 * t36 * (0.18137053605011111024e0 * t608 * t164 * t2353 * t616 - 0.16447635673552326924e-1 * t1 / t34 / t33 * t2573 * t2579 - 0.66763480241577660323e2 * t38 * t2033 * t1289 + 0.30672273446566454169e0 * t1285 * t551 * t1294 - 0.16664939145622612203e-2 * t71 * t2573 * t2579 + 0.66763480241577660320e2 * t38 * t1631 * t2591 - 0.46008410169849681251e0 * t620 * t1213 * t1294 + 0.27815233384396734139e-1 * t416 * t50 * t447 * t2572 * t43 * t2576 * t5) * t223 - 0.10337952573961372198e-1 * t36 * t2521 * t279 + 0.31013857721884116596e-1 * t36 * t2439 * t629 - 0.77534644304710291488e-2 * t36 * t2615 * t473 - 0.15506928860942058298e-1 * t36 * t2619 * t1923 - 0.31250e5 / 0.9e1 * t685 * t104 * t1313 * t320 * t43 * t118 + 0.390625e6 / 0.324e3 * t1827 * t105 / t689 * t6 * t1836);
847 
848 #ifndef XC_DONT_COMPILE_MXC
849 
850   if(order < 5) return;
851 
852 
853 #endif
854 
855 #endif
856 
857 #endif
858 
859 #endif
860 
861 #endif
862 
863 
864 }
865 
866 
867 static inline void
func_ferr(const xc_func_type * p,int order,const double * rho,const double * sigma,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))868 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
869 {
870 
871 #ifndef XC_DONT_COMPILE_EXC
872   double t1, t2, t3, t4, t5, t6, t7, t10;
873   double t12, t13, t16, t18, t19, t20, t21, t24;
874   double t26, t29, t30, t31, t32, t33, t34, t35;
875   double t36, t37, t38, t39, t41, t42, t43, t45;
876   double t48, t52, t53, t54, t55, t56, t57, t58;
877   double t60, t61, t62, t63, t66, t67, t68, t69;
878   double t73, t74, t75, t76, t77, t78, t82, t83;
879   double t87, t88, t90, t91, t94, t97, t98, t100;
880   double t101, t102, t103, t105, t106, t109, t111, t112;
881   double t113, t117, t118, t119, t121;
882 
883 #ifndef XC_DONT_COMPILE_VXC
884   double t123, t124, t126, t128, t129, t130, t132, t133;
885   double t134, t137, t139, t140, t146, t148, t149, t150;
886   double t151, t153, t155, t156, t159, t160, t161, t162;
887   double t168, t169, t172, t173, t174, t177, t179, t180;
888   double t181, t184, t188, t189, t190, t191, t192, t194;
889   double t202, t203, t204, t206, t207, t210, t214, t218;
890   double t219, t221, t225, t227, t228, t229, t232, t234;
891   double t235, t236, t237, t239, t240, t241, t244, t245;
892   double t246, t247, t248, t251, t252, t253, t260, t263;
893   double t270, t274, t278, t281, t282, t284, t286, t288;
894   double t290;
895 
896 #ifndef XC_DONT_COMPILE_FXC
897   double t297, t299, t301, t302, t304, t306, t307, t308;
898   double t309, t310, t311, t315, t316, t317, t320, t323;
899   double t325, t326, t332, t334, t335, t336, t338, t339;
900   double t340, t341, t342, t343, t344, t347, t348, t351;
901   double t352, t353, t354, t355, t356, t359, t366, t368;
902   double t369, t378, t379, t380, t383, t384, t385, t388;
903   double t389, t393, t394, t395, t398, t402, t407, t408;
904   double t409, t413, t414, t415, t416, t424, t428, t435;
905   double t436, t437, t438, t439, t440, t441, t444, t448;
906   double t449, t452, t453, t456, t460, t464, t466, t468;
907   double t469, t470, t472, t476, t478, t482, t483, t484;
908   double t489, t491, t492, t493, t494, t496, t498, t499;
909   double t500, t502, t503, t504, t506, t507, t509, t510;
910   double t514, t515, t516, t517, t518, t519, t521, t524;
911   double t525, t526, t528, t533, t538, t542, t549, t550;
912   double t551, t555, t556, t562, t565, t569, t573, t575;
913   double t577, t579, t581, t582, t584, t587, t588, t590;
914   double t591, t594, t598, t600, t601, t605, t606, t613;
915   double t617, t618, t619, t620, t623, t626, t627, t630;
916   double t634, t636, t639, t641, t643;
917 
918 #ifndef XC_DONT_COMPILE_KXC
919   double t645, t647, t649, t653, t655, t657, t658, t660;
920   double t662, t664, t665, t667, t669, t670, t671, t673;
921   double t675, t677, t678, t679, t682, t683, t684, t685;
922   double t687, t689, t690, t691, t692, t693, t695, t697;
923   double t698, t700, t701, t704, t706, t708, t710, t713;
924   double t718, t719, t720, t721, t724, t729, t731, t732;
925   double t733, t734, t736, t738, t740, t742, t745, t747;
926   double t748, t749, t751, t753, t756, t758, t760, t763;
927   double t764, t765, t766, t771, t772, t775, t778, t782;
928   double t783, t791, t792, t793, t796, t797, t799, t800;
929   double t801, t803, t806, t807, t808, t809, t810, t811;
930   double t814, t817, t818, t819, t822, t823, t826, t837;
931   double t841, t845, t849, t850, t856, t857, t858, t869;
932   double t873, t874, t877, t878, t879, t883, t884, t887;
933   double t888, t891, t892, t895, t899, t903, t910, t911;
934   double t912, t913, t917, t918, t921, t925, t926, t929;
935   double t936, t937, t938, t939, t943, t948, t949, t950;
936   double t951, t952, t953, t956, t957, t961, t964, t965;
937   double t968, t971, t972, t976, t980, t983, t987, t988;
938   double t992, t993, t1009, t1013, t1014, t1018, t1020, t1024;
939   double t1026, t1051, t1054, t1063, t1067, t1071, t1081, t1087;
940   double t1088, t1091, t1092, t1095, t1099, t1100, t1104, t1107;
941   double t1110, t1116, t1125, t1129, t1133, t1135, t1137, t1139;
942   double t1141, t1143, t1146, t1148, t1149, t1151, t1154, t1155;
943   double t1157, t1160, t1161, t1164, t1165, t1168, t1169, t1172;
944   double t1175, t1180, t1182, t1183, t1185, t1187, t1190, t1197;
945   double t1199, t1205, t1214, t1215, t1218, t1221, t1222, t1225;
946   double t1226, t1227, t1228, t1231, t1232, t1235, t1236, t1239;
947   double t1241, t1243, t1245, t1248, t1250, t1252, t1256, t1258;
948   double t1261, t1264, t1265, t1268, t1271, t1273, t1275, t1276;
949   double t1281, t1287, t1288, t1291, t1295, t1298, t1301, t1304;
950   double t1305, t1308, t1312, t1314, t1319, t1321;
951 
952 #ifndef XC_DONT_COMPILE_LXC
953   double t1335, t1344, t1351, t1355, t1357, t1358, t1359, t1360;
954   double t1378, t1400, t1403, t1406, t1408, t1420, t1422, t1430;
955   double t1431, t1434, t1439, t1445, t1446, t1454, t1455, t1465;
956   double t1478, t1483, t1502, t1543, t1544, t1560, t1572, t1573;
957   double t1580, t1581, t1590, t1601, t1602, t1605, t1610, t1614;
958   double t1621, t1631, t1632, t1633, t1641, t1655, t1664, t1666;
959   double t1696, t1718, t1739, t1753, t1782, t1820, t1826, t1839;
960   double t1843, t1862, t1916, t1922, t1932, t1941, t1942, t1953;
961   double t1954, t1955, t1988, t1996, t2016, t2075, t2127, t2158;
962   double t2171, t2191, t2204, t2241, t2245, t2250, t2282, t2301;
963   double t2306, t2307, t2332, t2344, t2364, t2396, t2424, t2431;
964   double t2455, t2459, t2521, t2525, t2567, t2578, t2580, t2583;
965   double t2595, t2618, t2622;
966 #endif
967 
968 #endif
969 
970 #endif
971 
972 #endif
973 
974 #endif
975 
976 
977 
978   t1 = M_CBRT3;
979   t2 = 0.1e1 / M_PI;
980   t3 = POW_1_3(t2);
981   t4 = t1 * t3;
982   t5 = M_CBRT4;
983   t6 = t5 * t5;
984   t7 = POW_1_3(rho[0]);
985   t10 = t4 * t6 / t7;
986   t12 = 0.1e1 + 0.51370000000000000000e-1 * t10;
987   t13 = sqrt(t10);
988   t16 = POW_3_2(t10);
989   t18 = t1 * t1;
990   t19 = t3 * t3;
991   t20 = t18 * t19;
992   t21 = t7 * t7;
993   t24 = t20 * t5 / t21;
994   t26 = 0.70594500000000000000e1 * t13 + 0.15494250000000000000e1 * t10 + 0.42077500000000000000e0 * t16 + 0.15629250000000000000e0 * t24;
995   t29 = 0.1e1 + 0.32164683177870697974e2 / t26;
996   t30 = log(t29);
997   t31 = t12 * t30;
998   t32 = 0.31090e-1 * t31;
999   t33 = M_PI * M_PI;
1000   t34 = POW_1_3(t33);
1001   t35 = t34 * t34;
1002   t36 = t18 * t35;
1003   t37 = 0.1e1 / t34;
1004   t38 = t18 * t37;
1005   t39 = rho[0] * rho[0];
1006   t41 = 0.1e1 / t7 / t39;
1007   t42 = sigma[0] * t41;
1008   t43 = 0.1e1 / t3;
1009   t45 = t18 * t43 * t5;
1010   t48 = 0.1e1 / t35;
1011   t52 = exp(0.80196408402459796154e1 * t31 * t1 * t48);
1012   t53 = t52 - 0.1e1;
1013   t54 = 0.1e1 / t53;
1014   t55 = t37 * t54;
1015   t56 = sigma[0] * sigma[0];
1016   t57 = t55 * t56;
1017   t58 = t39 * t39;
1018   t60 = 0.1e1 / t21 / t58;
1019   t61 = 0.1e1 / t19;
1020   t62 = t60 * t61;
1021   t63 = t62 * t6;
1022   t66 = t42 * t45 / 0.48e2 + 0.10866451862235947318e-1 * t57 * t63;
1023   t67 = t1 * t37;
1024   t68 = t67 * t54;
1025   t69 = t43 * t5;
1026   t73 = t18 * t48;
1027   t74 = t53 * t53;
1028   t75 = 0.1e1 / t74;
1029   t76 = t73 * t75;
1030   t77 = t56 * t60;
1031   t78 = t61 * t6;
1032   t82 = 0.1e1 + 0.17386322979577515709e0 * t68 * t42 * t69 + 0.30228422675018518373e-1 * t76 * t77 * t78;
1033   t83 = 0.1e1 / t82;
1034   t87 = 0.1e1 + 0.27818116767324025134e1 * t38 * t66 * t83;
1035   t88 = log(t87);
1036   t90 = 0.12922440717451715248e-2 * t36 * t88;
1037   t91 = t2 * t34;
1038   t94 = 0.2568e1 + 0.58165000000000000000e1 * t10 + 0.18472500000000000000e-2 * t24;
1039   t97 = 0.1000e4 + 0.21807500000000000000e4 * t10 + 0.11800000000000000000e3 * t24;
1040   t98 = 0.1e1 / t97;
1041   t100 = t94 * t98 - 0.18535714285714285714e-2;
1042   t101 = t100 * sigma[0];
1043   t102 = t91 * t101;
1044   t103 = t41 * t43;
1045   t105 = POW_1_3(0.9e1);
1046   t106 = t105 * t105;
1047   t109 = 0.1e1 / t21 / t39;
1048   t111 = M_CBRT2;
1049   t112 = t111 * t111;
1050   t113 = t112 * sigma[0];
1051   t117 = exp(-0.25e2 / 0.36e2 * t2 * t5 * t106 * t3 * t109 * t113);
1052   t118 = t5 * t117;
1053   t119 = t103 * t118;
1054   t121 = t102 * t119 / 0.2e1;
1055   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1056     zk[0] = -t32 + t90 + t121;
1057 
1058 #ifndef XC_DONT_COMPILE_VXC
1059 
1060   if(order < 1) return;
1061 
1062 
1063   t123 = 0.1e1 / t7 / rho[0];
1064   t124 = t6 * t123;
1065   t126 = t4 * t124 * t30;
1066   t128 = t26 * t26;
1067   t129 = 0.1e1 / t128;
1068   t130 = t12 * t129;
1069   t132 = 0.1e1 / t13 * t1;
1070   t133 = t3 * t6;
1071   t134 = t133 * t123;
1072   t137 = t4 * t124;
1073   t139 = sqrt(t10);
1074   t140 = t139 * t1;
1075   t146 = t20 * t5 / t21 / rho[0];
1076   t148 = -0.11765750000000000000e1 * t132 * t134 - 0.51647500000000000000e0 * t137 - 0.21038750000000000000e0 * t140 * t134 - 0.10419500000000000000e0 * t146;
1077   t149 = 0.1e1 / t29;
1078   t150 = t148 * t149;
1079   t151 = t130 * t150;
1080   t153 = t39 * rho[0];
1081   t155 = 0.1e1 / t7 / t153;
1082   t156 = sigma[0] * t155;
1083   t159 = t37 * t75;
1084   t160 = t159 * t77;
1085   t161 = t18 * t3;
1086   t162 = t161 * t6;
1087   t168 = t149 * t1;
1088   t169 = t168 * t48;
1089   t172 = -0.13732298332114532428e0 * t162 * t123 * t30 * t48 - 0.25794920682682469011e3 * t130 * t148 * t169;
1090   t173 = t172 * t52;
1091   t174 = t78 * t173;
1092   t177 = t58 * rho[0];
1093   t179 = 0.1e1 / t21 / t177;
1094   t180 = t179 * t61;
1095   t181 = t180 * t6;
1096   t184 = -0.7e1 / 0.144e3 * t156 * t45 - 0.10866451862235947318e-1 * t160 * t174 - 0.50710108690434420817e-1 * t57 * t181;
1097   t188 = t82 * t82;
1098   t189 = 0.1e1 / t188;
1099   t190 = t66 * t189;
1100   t191 = t75 * sigma[0];
1101   t192 = t67 * t191;
1102   t194 = t5 * t172 * t52;
1103   t202 = 0.1e1 / t74 / t53;
1104   t203 = t202 * t56;
1105   t204 = t73 * t203;
1106   t206 = t6 * t172 * t52;
1107   t207 = t62 * t206;
1108   t210 = t56 * t179;
1109   t214 = -0.17386322979577515709e0 * t192 * t103 * t194 - 0.40568086952347536654e0 * t68 * t156 * t69 - 0.60456845350037036746e-1 * t204 * t207 - 0.14106597248341975241e0 * t76 * t210 * t78;
1110   t218 = 0.27818116767324025134e1 * t38 * t184 * t83 - 0.27818116767324025134e1 * t38 * t190 * t214;
1111   t219 = 0.1e1 / t87;
1112   t221 = t36 * t218 * t219;
1113   t225 = -0.19388333333333333333e1 * t137 - 0.12315000000000000000e-2 * t146;
1114   t227 = t97 * t97;
1115   t228 = 0.1e1 / t227;
1116   t229 = t94 * t228;
1117   t232 = -0.72691666666666666667e3 * t137 - 0.78666666666666666667e2 * t146;
1118   t234 = t225 * t98 - t229 * t232;
1119   t235 = t234 * sigma[0];
1120   t236 = t91 * t235;
1121   t237 = t236 * t119;
1122   t239 = t155 * t43;
1123   t240 = t239 * t118;
1124   t241 = t102 * t240;
1125   t244 = 0.1e1 / t33 * t34;
1126   t245 = t100 * t56;
1127   t246 = t244 * t245;
1128   t247 = t58 * t39;
1129   t248 = 0.1e1 / t247;
1130   t251 = t106 * t112 * t117;
1131   t252 = t248 * t6 * t251;
1132   t253 = t246 * t252;
1133   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1134     vrho[0] = -t32 + t90 + t121 + rho[0] * (0.53236443333333333332e-3 * t126 + 0.10000000000000000000e1 * t151 + 0.12922440717451715248e-2 * t221 + t237 / 0.2e1 - 0.7e1 / 0.6e1 * t241 + 0.25e2 / 0.27e2 * t253);
1135 
1136   t260 = t55 * sigma[0];
1137   t263 = t41 * t18 * t69 / 0.48e2 + 0.21732903724471894636e-1 * t260 * t63;
1138   t270 = sigma[0] * t60;
1139   t274 = 0.17386322979577515709e0 * t68 * t103 * t5 + 0.60456845350037036746e-1 * t76 * t270 * t78;
1140   t278 = 0.27818116767324025134e1 * t38 * t263 * t83 - 0.27818116767324025134e1 * t38 * t190 * t274;
1141   t281 = 0.12922440717451715248e-2 * t36 * t278 * t219;
1142   t282 = t91 * t100;
1143   t284 = t282 * t119 / 0.2e1;
1144   t286 = 0.1e1 / t177;
1145   t288 = t286 * t6 * t251;
1146   t290 = 0.25e2 / 0.72e2 * t244 * t101 * t288;
1147   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1148     vsigma[0] = rho[0] * (t281 + t284 - t290);
1149 
1150 #ifndef XC_DONT_COMPILE_FXC
1151 
1152   if(order < 2) return;
1153 
1154 
1155   t297 = t6 * t41;
1156   t299 = t4 * t297 * t30;
1157   t301 = t4 * t6;
1158   t302 = t123 * t129;
1159   t304 = t301 * t302 * t150;
1160   t306 = t128 * t26;
1161   t307 = 0.1e1 / t306;
1162   t308 = t12 * t307;
1163   t309 = t148 * t148;
1164   t310 = t309 * t149;
1165   t311 = t308 * t310;
1166   t315 = 0.1e1 / t13 / t10 * t18;
1167   t316 = t19 * t5;
1168   t317 = t316 * t109;
1169   t320 = t133 * t41;
1170   t323 = t4 * t297;
1171   t325 = 0.1e1/sqrt(t10);
1172   t326 = t325 * t18;
1173   t332 = t20 * t5 * t109;
1174   t334 = -0.78438333333333333333e0 * t315 * t317 + 0.15687666666666666667e1 * t132 * t320 + 0.68863333333333333333e0 * t323 + 0.14025833333333333333e0 * t326 * t317 + 0.28051666666666666667e0 * t140 * t320 + 0.17365833333333333333e0 * t332;
1175   t335 = t334 * t149;
1176   t336 = t130 * t335;
1177   t338 = t128 * t128;
1178   t339 = 0.1e1 / t338;
1179   t340 = t12 * t339;
1180   t341 = t29 * t29;
1181   t342 = 0.1e1 / t341;
1182   t343 = t309 * t342;
1183   t344 = t340 * t343;
1184   t347 = 0.1e1 / t7 / t58;
1185   t348 = sigma[0] * t347;
1186   t351 = t37 * t202;
1187   t352 = t351 * t77;
1188   t353 = t172 * t172;
1189   t354 = t52 * t52;
1190   t355 = t353 * t354;
1191   t356 = t78 * t355;
1192   t359 = t159 * t210;
1193   t366 = t161 * t124;
1194   t368 = t149 * t48;
1195   t369 = t129 * t148 * t368;
1196   t378 = t340 * t309;
1197   t379 = t342 * t1;
1198   t380 = t379 * t48;
1199   t383 = 0.18309731109486043237e0 * t162 * t41 * t30 * t48 + 0.88339005031293228872e1 * t366 * t369 + 0.51589841365364938022e3 * t308 * t309 * t169 - 0.25794920682682469011e3 * t130 * t334 * t169 - 0.82968545135678575141e4 * t378 * t380;
1200   t384 = t383 * t52;
1201   t385 = t78 * t384;
1202   t388 = t353 * t52;
1203   t389 = t78 * t388;
1204   t393 = 0.1e1 / t21 / t247;
1205   t394 = t393 * t61;
1206   t395 = t394 * t6;
1207   t398 = 0.35e2 / 0.216e3 * t348 * t45 + 0.21732903724471894636e-1 * t352 * t356 + 0.10142021738086884163e0 * t359 * t174 - 0.10866451862235947318e-1 * t160 * t385 - 0.10866451862235947318e-1 * t160 * t389 + 0.28735728257912838463e0 * t57 * t395;
1208   t402 = t184 * t189;
1209   t407 = 0.1e1 / t188 / t82;
1210   t408 = t66 * t407;
1211   t409 = t214 * t214;
1212   t413 = t202 * sigma[0];
1213   t414 = t67 * t413;
1214   t415 = t5 * t353;
1215   t416 = t415 * t354;
1216   t424 = t5 * t383 * t52;
1217   t428 = t415 * t52;
1218   t435 = t74 * t74;
1219   t436 = 0.1e1 / t435;
1220   t437 = t436 * t56;
1221   t438 = t73 * t437;
1222   t439 = t6 * t353;
1223   t440 = t439 * t354;
1224   t441 = t62 * t440;
1225   t444 = t180 * t206;
1226   t448 = t6 * t383 * t52;
1227   t449 = t62 * t448;
1228   t452 = t439 * t52;
1229   t453 = t62 * t452;
1230   t456 = t56 * t393;
1231   t460 = 0.34772645959155031418e0 * t414 * t103 * t416 + 0.81136173904695073308e0 * t192 * t239 * t194 - 0.17386322979577515709e0 * t192 * t103 * t424 - 0.17386322979577515709e0 * t192 * t103 * t428 + 0.13522695650782512218e1 * t68 * t348 * t69 + 0.18137053605011111024e0 * t438 * t441 + 0.56426388993367900963e0 * t204 * t444 - 0.60456845350037036746e-1 * t204 * t449 - 0.60456845350037036746e-1 * t204 * t453 + 0.79937384407271193032e0 * t76 * t456 * t78;
1232   t464 = 0.27818116767324025134e1 * t38 * t398 * t83 - 0.55636233534648050268e1 * t38 * t402 * t214 + 0.55636233534648050268e1 * t38 * t408 * t409 - 0.27818116767324025134e1 * t38 * t190 * t460;
1233   t466 = t36 * t464 * t219;
1234   t468 = t218 * t218;
1235   t469 = t87 * t87;
1236   t470 = 0.1e1 / t469;
1237   t472 = t36 * t468 * t470;
1238   t476 = 0.25851111111111111111e1 * t323 + 0.20525000000000000000e-2 * t332;
1239   t478 = t225 * t228;
1240   t482 = 0.1e1 / t227 / t97;
1241   t483 = t94 * t482;
1242   t484 = t232 * t232;
1243   t489 = 0.96922222222222222222e3 * t323 + 0.13111111111111111111e3 * t332;
1244   t491 = -t229 * t489 - 0.2e1 * t478 * t232 + t476 * t98 + 0.2e1 * t483 * t484;
1245   t492 = t491 * sigma[0];
1246   t493 = t91 * t492;
1247   t494 = t493 * t119;
1248   t496 = t236 * t240;
1249   t498 = t234 * t56;
1250   t499 = t244 * t498;
1251   t500 = t499 * t252;
1252   t502 = t347 * t43;
1253   t503 = t502 * t118;
1254   t504 = t102 * t503;
1255   t506 = t58 * t153;
1256   t507 = 0.1e1 / t506;
1257   t509 = t507 * t6 * t251;
1258   t510 = t246 * t509;
1259   t514 = 0.1e1 / t33 / M_PI * t34;
1260   t515 = t56 * sigma[0];
1261   t516 = t100 * t515;
1262   t517 = t514 * t516;
1263   t518 = t58 * t58;
1264   t519 = t518 * rho[0];
1265   t521 = 0.1e1 / t21 / t519;
1266   t524 = t111 * t3 * t117;
1267   t525 = t521 * t105 * t524;
1268   t526 = t517 * t525;
1269   t528 = -0.70981924444444444442e-3 * t299 - 0.34246666666666666666e-1 * t304 - 0.20000000000000000000e1 * t311 + 0.10000000000000000000e1 * t336 + 0.32164683177870697974e2 * t344 + 0.12922440717451715248e-2 * t466 - 0.12922440717451715248e-2 * t472 + t494 / 0.2e1 - 0.7e1 / 0.3e1 * t496 + 0.50e2 / 0.27e2 * t500 + 0.35e2 / 0.9e1 * t504 - 0.625e3 / 0.81e2 * t510 + 0.10000e5 / 0.81e2 * t526;
1270   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1271     v2rho2[0] = 0.10647288666666666666e-2 * t126 + 0.20000000000000000000e1 * t151 + 0.25844881434903430496e-2 * t221 + t237 - 0.7e1 / 0.3e1 * t241 + 0.50e2 / 0.27e2 * t253 + rho[0] * t528;
1272 
1273   t533 = t159 * t270;
1274   t538 = -0.7e1 / 0.144e3 * t155 * t18 * t69 - 0.21732903724471894636e-1 * t533 * t174 - 0.10142021738086884163e0 * t260 * t181;
1275   t542 = t263 * t189;
1276   t549 = t38 * t66;
1277   t550 = t407 * t274;
1278   t551 = t550 * t214;
1279   t555 = t67 * t75 * t41;
1280   t556 = t69 * t173;
1281   t562 = t73 * t413;
1282   t565 = sigma[0] * t179;
1283   t569 = -0.17386322979577515709e0 * t555 * t556 - 0.40568086952347536654e0 * t68 * t239 * t5 - 0.12091369070007407349e0 * t562 * t207 - 0.28213194496683950481e0 * t76 * t565 * t78;
1284   t573 = 0.27818116767324025134e1 * t38 * t538 * t83 - 0.27818116767324025134e1 * t38 * t542 * t214 - 0.27818116767324025134e1 * t38 * t402 * t274 + 0.55636233534648050268e1 * t549 * t551 - 0.27818116767324025134e1 * t38 * t190 * t569;
1285   t575 = t36 * t573 * t219;
1286   t577 = t278 * t470;
1287   t579 = t36 * t577 * t218;
1288   t581 = t91 * t234;
1289   t582 = t581 * t119;
1290   t584 = t282 * t240;
1291   t587 = t244 * t100 * t248;
1292   t588 = t6 * t106;
1293   t590 = t588 * t113 * t117;
1294   t591 = t587 * t590;
1295   t594 = t244 * t235 * t288;
1296   t598 = 0.1e1 / t21 / t518;
1297   t600 = t598 * t105 * t524;
1298   t601 = t514 * t245 * t600;
1299   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1300     v2rhosigma[0] = t281 + t284 - t290 + rho[0] * (0.12922440717451715248e-2 * t575 - 0.12922440717451715248e-2 * t579 + t582 / 0.2e1 - 0.7e1 / 0.6e1 * t584 + 0.575e3 / 0.216e3 * t591 - 0.25e2 / 0.72e2 * t594 - 0.1250e4 / 0.27e2 * t601);
1301 
1302   t605 = t73 * t54;
1303   t606 = t6 * t83;
1304   t613 = t274 * t274;
1305   t617 = t1 * t66;
1306   t618 = t617 * t189;
1307   t619 = t75 * t60;
1308   t620 = t619 * t78;
1309   t623 = 0.60456845350037036744e-1 * t605 * t62 * t606 - 0.55636233534648050268e1 * t38 * t542 * t274 + 0.55636233534648050268e1 * t38 * t408 * t613 - 0.51120455744277423615e-1 * t618 * t620;
1310   t626 = 0.12922440717451715248e-2 * t36 * t623 * t219;
1311   t627 = t278 * t278;
1312   t630 = 0.12922440717451715248e-2 * t36 * t627 * t470;
1313   t634 = t588 * t112 * t117;
1314   t636 = 0.25e2 / 0.36e2 * t244 * t100 * t286 * t634;
1315   t639 = 0.1e1 / t21 / t506;
1316   t641 = t639 * t105 * t524;
1317   t643 = 0.625e3 / 0.36e2 * t514 * t101 * t641;
1318   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1319     v2sigma2[0] = rho[0] * (t626 - t630 - t636 + t643);
1320 
1321 #ifndef XC_DONT_COMPILE_KXC
1322 
1323   if(order < 3) return;
1324 
1325 
1326   t645 = t468 * t218;
1327   t647 = 0.1e1 / t469 / t87;
1328   t649 = t36 * t645 * t647;
1329   t653 = t36 * t464 * t470 * t218;
1330   t655 = 0.1e1 / t518;
1331   t657 = t655 * t6 * t251;
1332   t658 = t246 * t657;
1333   t660 = t518 * t39;
1334   t662 = 0.1e1 / t21 / t660;
1335   t664 = t662 * t105 * t524;
1336   t665 = t517 * t664;
1337   t667 = t493 * t240;
1338   t669 = t491 * t56;
1339   t670 = t244 * t669;
1340   t671 = t670 * t252;
1341   t673 = t236 * t503;
1342   t675 = t499 * t509;
1343   t677 = t234 * t515;
1344   t678 = t514 * t677;
1345   t679 = t678 * t525;
1346   t682 = 0.1e1 / t7 / t177;
1347   t683 = t682 * t43;
1348   t684 = t683 * t118;
1349   t685 = t102 * t684;
1350   t687 = t33 * t33;
1351   t689 = 0.1e1 / t687 * t34;
1352   t690 = t56 * t56;
1353   t691 = t100 * t690;
1354   t692 = t689 * t691;
1355   t693 = t518 * t177;
1356   t695 = 0.1e1 / t7 / t693;
1357   t697 = t695 * t19 * t118;
1358   t698 = t692 * t697;
1359   t700 = t6 * t155;
1360   t701 = t4 * t700;
1361   t704 = 0.1e1 / t21 / t153;
1362   t706 = t20 * t5 * t704;
1363   t708 = -0.60319259259259259259e1 * t701 - 0.54733333333333333333e-2 * t706;
1364   t710 = t476 * t228;
1365   t713 = t225 * t482;
1366   t718 = t227 * t227;
1367   t719 = 0.1e1 / t718;
1368   t720 = t94 * t719;
1369   t721 = t484 * t232;
1370   t724 = t232 * t489;
1371   t729 = -0.22615185185185185185e4 * t701 - 0.34962962962962962963e3 * t706;
1372   t731 = -t229 * t729 - 0.3e1 * t710 * t232 - 0.3e1 * t478 * t489 + 0.6e1 * t483 * t724 + 0.6e1 * t713 * t484 + t708 * t98 - 0.6e1 * t720 * t721;
1373   t732 = t731 * sigma[0];
1374   t733 = t91 * t732;
1375   t734 = t733 * t119;
1376   t736 = 0.25844881434903430496e-2 * t649 - 0.38767322152355145744e-2 * t653 + 0.14875e5 / 0.243e3 * t658 - 0.20000e5 / 0.9e1 * t665 - 0.7e1 / 0.2e1 * t667 + 0.25e2 / 0.9e1 * t671 + 0.35e2 / 0.3e1 * t673 - 0.625e3 / 0.27e2 * t675 + 0.10000e5 / 0.27e2 * t679 - 0.455e3 / 0.27e2 * t685 + 0.1000000e7 / 0.243e3 * t698 + t734 / 0.2e1;
1377   t738 = t4 * t700 * t30;
1378   t740 = t334 * t342;
1379   t742 = t340 * t740 * t148;
1380   t745 = t308 * t150 * t334;
1381   t747 = t309 * t148;
1382   t748 = t747 * t149;
1383   t749 = t340 * t748;
1384   t751 = t41 * t129;
1385   t753 = t301 * t751 * t150;
1386   t756 = t301 * t302 * t335;
1387   t758 = t123 * t339;
1388   t760 = t301 * t758 * t343;
1389   t763 = 0.1e1 / t338 / t26;
1390   t764 = t12 * t763;
1391   t765 = t747 * t342;
1392   t766 = t764 * t765;
1393   t771 = 0.1e1 / t13 / t24 * t2 / 0.4e1;
1394   t772 = 0.1e1 / t58;
1395   t775 = t316 * t704;
1396   t778 = t133 * t155;
1397   t782 = 0.1e1/POW_3_2(t10);
1398   t783 = t782 * t2;
1399   t791 = -0.47063000000000000000e1 * t771 * t772 + 0.31375333333333333334e1 * t315 * t775 - 0.36604555555555555556e1 * t132 * t778 - 0.16068111111111111111e1 * t701 + 0.28051666666666666666e0 * t783 * t772 - 0.56103333333333333332e0 * t326 * t775 - 0.65453888888888888890e0 * t140 * t778 - 0.46308888888888888888e0 * t706;
1400   t792 = t791 * t149;
1401   t793 = t130 * t792;
1402   t796 = 0.1e1 / t338 / t128;
1403   t797 = t12 * t796;
1404   t799 = 0.1e1 / t341 / t29;
1405   t800 = t747 * t799;
1406   t801 = t797 * t800;
1407   t803 = sigma[0] * t682;
1408   t806 = t37 * t436;
1409   t807 = t806 * t77;
1410   t808 = t353 * t172;
1411   t809 = t354 * t52;
1412   t810 = t808 * t809;
1413   t811 = t78 * t810;
1414   t814 = t351 * t210;
1415   t817 = t172 * t354;
1416   t818 = t817 * t383;
1417   t819 = t78 * t818;
1418   t822 = t808 * t354;
1419   t823 = t78 * t822;
1420   t826 = t159 * t456;
1421   t837 = t161 * t297;
1422   t841 = t307 * t309 * t368;
1423   t845 = t129 * t334 * t368;
1424   t849 = t342 * t48;
1425   t850 = t339 * t309 * t849;
1426   t856 = t308 * t148;
1427   t857 = t48 * t334;
1428   t858 = t168 * t857;
1429   t869 = t379 * t48 * t148;
1430   t873 = t799 * t1;
1431   t874 = t873 * t48;
1432   t877 = -0.42722705922134100886e0 * t162 * t155 * t30 * t48 - 0.17667801006258645774e2 * t837 * t369 - 0.26501701509387968661e2 * t366 * t841 + 0.13250850754693984331e2 * t366 * t845 + 0.42620941636198084050e3 * t366 * t850 - 0.15476952409609481407e4 * t340 * t747 * t169 + 0.15476952409609481406e4 * t856 * t858 + 0.49781127081407145084e5 * t764 * t747 * t380 - 0.25794920682682469011e3 * t130 * t791 * t169 - 0.24890563540703572542e5 * t340 * t334 * t869 - 0.53373139360359327849e6 * t797 * t747 * t874;
1433   t878 = t877 * t52;
1434   t879 = t78 * t878;
1435   t883 = t383 * t172 * t52;
1436   t884 = t78 * t883;
1437   t887 = t808 * t52;
1438   t888 = t78 * t887;
1439   t891 = t639 * t61;
1440   t892 = t891 * t6;
1441   t895 = -0.455e3 / 0.648e3 * t803 * t45 - 0.65198711173415683908e-1 * t807 * t811 - 0.30426065214260652489e0 * t814 * t356 + 0.65198711173415683908e-1 * t352 * t819 + 0.65198711173415683908e-1 * t352 * t823 - 0.86207184773738515387e0 * t826 * t174 + 0.15213032607130326245e0 * t359 * t385 + 0.15213032607130326245e0 * t359 * t389 - 0.10866451862235947318e-1 * t160 * t879 - 0.32599355586707841954e-1 * t160 * t884 - 0.10866451862235947318e-1 * t160 * t888 - 0.19157152171941892309e1 * t57 * t892;
1442   t899 = t398 * t189;
1443   t903 = t184 * t407;
1444   t910 = t188 * t188;
1445   t911 = 0.1e1 / t910;
1446   t912 = t66 * t911;
1447   t913 = t409 * t214;
1448   t917 = t407 * t214;
1449   t918 = t917 * t460;
1450   t921 = t180 * t448;
1451   t925 = t6 * t877 * t52;
1452   t926 = t62 * t925;
1453   t929 = t56 * t639;
1454   t936 = t436 * sigma[0];
1455   t937 = t67 * t936;
1456   t938 = t5 * t808;
1457   t939 = t938 * t809;
1458   t943 = t938 * t354;
1459   t948 = 0.1e1 / t435 / t53;
1460   t949 = t948 * t56;
1461   t950 = t73 * t949;
1462   t951 = t6 * t808;
1463   t952 = t951 * t809;
1464   t953 = t62 * t952;
1465   t956 = t951 * t354;
1466   t957 = t62 * t956;
1467   t961 = t73 * t203 * t60;
1468   t964 = t951 * t52;
1469   t965 = t62 * t964;
1470   t968 = t180 * t452;
1471   t971 = 0.84639583490051851444e0 * t204 * t921 - 0.60456845350037036746e-1 * t204 * t926 - 0.53291589604847462021e1 * t76 * t929 * t78 - 0.58598347820057552945e1 * t68 * t803 * t69 - 0.10431793787746509425e1 * t937 * t103 * t939 + 0.10431793787746509425e1 * t414 * t103 * t943 - 0.72548214420044444096e0 * t950 * t953 + 0.54411160815033333072e0 * t438 * t957 - 0.18137053605011111024e0 * t961 * t884 - 0.60456845350037036746e-1 * t204 * t965 + 0.84639583490051851444e0 * t204 * t968;
1472   t972 = t938 * t52;
1473   t976 = t180 * t440;
1474   t980 = t73 * t437 * t60;
1475   t983 = t394 * t206;
1476   t987 = t67 * t191 * t41;
1477   t988 = t69 * t883;
1478   t992 = t67 * t413 * t41;
1479   t993 = t69 * t818;
1480   t1009 = t5 * t877 * t52;
1481   t1013 = -0.17386322979577515709e0 * t192 * t103 * t972 - 0.25391875047015555434e1 * t438 * t976 + 0.54411160815033333072e0 * t980 * t819 - 0.47962430644362715818e1 * t204 * t983 - 0.52158968938732547127e0 * t987 * t988 + 0.10431793787746509425e1 * t992 * t993 - 0.40568086952347536654e1 * t192 * t502 * t194 + 0.12170426085704260996e1 * t192 * t239 * t428 - 0.24340852171408521993e1 * t414 * t239 * t416 + 0.12170426085704260996e1 * t192 * t239 * t424 - 0.17386322979577515709e0 * t192 * t103 * t1009;
1482   t1014 = t971 + t1013;
1483   t1018 = 0.27818116767324025134e1 * t38 * t895 * t83 - 0.83454350301972075402e1 * t38 * t899 * t214 + 0.16690870060394415081e2 * t38 * t903 * t409 - 0.83454350301972075402e1 * t38 * t402 * t460 - 0.16690870060394415080e2 * t38 * t912 * t913 + 0.16690870060394415081e2 * t549 * t918 - 0.27818116767324025134e1 * t38 * t190 * t1014;
1484   t1020 = t36 * t1018 * t219;
1485   t1024 = t301 * t123 * t307 * t310;
1486   t1026 = 0.16562449037037037036e-2 * t738 + 0.96494049533612093922e2 * t742 - 0.60000000000000000000e1 * t745 + 0.60000000000000000000e1 * t749 + 0.68493333333333333332e-1 * t753 - 0.51369999999999999999e-1 * t756 - 0.16522997748472177549e1 * t760 - 0.19298809906722418785e3 * t766 + 0.10000000000000000000e1 * t793 + 0.20691336878655965246e4 * t801 + 0.12922440717451715248e-2 * t1020 + 0.10274000000000000000e0 * t1024;
1487   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1488     v3rho3[0] = rho[0] * (t736 + t1026) + 0.3e1 / 0.2e1 * t494 - 0.38767322152355145744e-2 * t472 - 0.21294577333333333332e-2 * t299 - 0.10274000000000000000e0 * t304 - 0.7e1 * t496 + 0.50e2 / 0.9e1 * t500 + 0.35e2 / 0.3e1 * t504 - 0.625e3 / 0.27e2 * t510 + 0.10000e5 / 0.27e2 * t526 + 0.30000000000000000000e1 * t336 + 0.96494049533612093922e2 * t344 + 0.38767322152355145744e-2 * t466 - 0.60000000000000000000e1 * t311;
1489 
1490   t1051 = t351 * t270;
1491   t1054 = t159 * t565;
1492   t1063 = 0.35e2 / 0.216e3 * t347 * t18 * t69 + 0.43465807448943789272e-1 * t1051 * t356 + 0.20284043476173768326e0 * t1054 * t174 - 0.21732903724471894636e-1 * t533 * t385 - 0.21732903724471894636e-1 * t533 * t389 + 0.57471456515825676924e0 * t260 * t395;
1493   t1067 = t538 * t189;
1494   t1071 = t263 * t407;
1495   t1081 = t38 * t184;
1496   t1087 = t911 * t274;
1497   t1088 = t1087 * t409;
1498   t1091 = t407 * t569;
1499   t1092 = t1091 * t214;
1500   t1095 = t550 * t460;
1501   t1099 = t67 * t202 * t41;
1502   t1100 = t69 * t355;
1503   t1104 = t67 * t75 * t155;
1504   t1107 = t69 * t384;
1505   t1110 = t69 * t388;
1506   t1116 = t73 * t936;
1507   t1125 = sigma[0] * t393;
1508   t1129 = 0.34772645959155031418e0 * t1099 * t1100 + 0.81136173904695073308e0 * t1104 * t556 - 0.17386322979577515709e0 * t555 * t1107 - 0.17386322979577515709e0 * t555 * t1110 + 0.13522695650782512218e1 * t68 * t502 * t5 + 0.36274107210022222047e0 * t1116 * t441 + 0.11285277798673580192e1 * t562 * t444 - 0.12091369070007407349e0 * t562 * t449 - 0.12091369070007407349e0 * t562 * t453 + 0.15987476881454238606e1 * t76 * t1125 * t78;
1509   t1133 = 0.27818116767324025134e1 * t38 * t1063 * t83 - 0.55636233534648050268e1 * t38 * t1067 * t214 + 0.55636233534648050268e1 * t38 * t1071 * t409 - 0.27818116767324025134e1 * t38 * t542 * t460 - 0.27818116767324025134e1 * t38 * t899 * t274 + 0.11127246706929610054e2 * t1081 * t551 - 0.55636233534648050268e1 * t38 * t402 * t569 - 0.16690870060394415080e2 * t549 * t1088 + 0.11127246706929610054e2 * t549 * t1092 + 0.55636233534648050268e1 * t549 * t1095 - 0.27818116767324025134e1 * t38 * t190 * t1129;
1510   t1135 = t36 * t1133 * t219;
1511   t1137 = t573 * t470;
1512   t1139 = t36 * t1137 * t218;
1513   t1141 = t278 * t647;
1514   t1143 = t36 * t1141 * t468;
1515   t1146 = t36 * t577 * t464;
1516   t1148 = t91 * t491;
1517   t1149 = t1148 * t119;
1518   t1151 = t581 * t240;
1519   t1154 = t244 * t234 * t248;
1520   t1155 = t1154 * t590;
1521   t1157 = t282 * t503;
1522   t1160 = t244 * t100 * t507;
1523   t1161 = t1160 * t590;
1524   t1164 = t514 * t100 * t521;
1525   t1165 = t105 * t111;
1526   t1168 = t1165 * t56 * t3 * t117;
1527   t1169 = t1164 * t1168;
1528   t1172 = t244 * t492 * t288;
1529   t1175 = t514 * t498 * t600;
1530   t1180 = 0.1e1 / t7 / t518 / t58;
1531   t1182 = t1180 * t19 * t118;
1532   t1183 = t689 * t516 * t1182;
1533   t1185 = 0.12922440717451715248e-2 * t1135 - 0.25844881434903430496e-2 * t1139 + 0.25844881434903430496e-2 * t1143 - 0.12922440717451715248e-2 * t1146 + t1149 / 0.2e1 - 0.7e1 / 0.3e1 * t1151 + 0.575e3 / 0.108e3 * t1155 + 0.35e2 / 0.9e1 * t1157 - 0.5875e4 / 0.324e3 * t1161 + 0.61250e5 / 0.81e2 * t1169 - 0.25e2 / 0.72e2 * t1172 - 0.2500e4 / 0.27e2 * t1175 - 0.125000e6 / 0.81e2 * t1183;
1534   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1535     v3rho2sigma[0] = 0.25844881434903430496e-2 * t575 - 0.25844881434903430496e-2 * t579 + t582 - 0.7e1 / 0.3e1 * t584 + 0.575e3 / 0.108e3 * t591 - 0.25e2 / 0.36e2 * t594 - 0.2500e4 / 0.27e2 * t601 + rho[0] * t1185;
1536 
1537   t1187 = t73 * t619;
1538   t1190 = t78 * t83 * t172 * t52;
1539   t1197 = t73 * t54 * t60;
1540   t1199 = t78 * t189 * t214;
1541   t1205 = t38 * t263;
1542   t1214 = t911 * t613;
1543   t1215 = t1214 * t214;
1544   t1218 = t550 * t569;
1545   t1221 = t1 * t184;
1546   t1222 = t1221 * t189;
1547   t1225 = t407 * t75;
1548   t1226 = t617 * t1225;
1549   t1227 = t6 * t214;
1550   t1228 = t62 * t1227;
1551   t1231 = t189 * t202;
1552   t1232 = t617 * t1231;
1553   t1235 = t75 * t179;
1554   t1236 = t1235 * t78;
1555   t1239 = -0.60456845350037036744e-1 * t1187 * t1190 - 0.28213194496683950481e0 * t605 * t180 * t606 - 0.60456845350037036744e-1 * t1197 * t1199 - 0.55636233534648050268e1 * t38 * t1067 * t274 + 0.11127246706929610054e2 * t1205 * t551 - 0.55636233534648050268e1 * t38 * t542 * t569 + 0.55636233534648050268e1 * t38 * t903 * t613 - 0.16690870060394415080e2 * t549 * t1215 + 0.11127246706929610054e2 * t549 * t1218 - 0.51120455744277423615e-1 * t1222 * t620 + 0.10224091148855484723e0 * t1226 * t1228 + 0.10224091148855484723e0 * t1232 * t207 + 0.23856212680662797687e0 * t618 * t1236;
1556   t1241 = t36 * t1239 * t219;
1557   t1243 = t623 * t470;
1558   t1245 = t36 * t1243 * t218;
1559   t1248 = t36 * t577 * t573;
1560   t1250 = t627 * t647;
1561   t1252 = t36 * t1250 * t218;
1562   t1256 = t244 * t234 * t286 * t634;
1563   t1258 = t587 * t634;
1564   t1261 = t514 * t100 * t598;
1565   t1264 = t1165 * t3 * sigma[0] * t117;
1566   t1265 = t1261 * t1264;
1567   t1268 = t514 * t235 * t641;
1568   t1271 = t518 * t153;
1569   t1273 = 0.1e1 / t7 / t1271;
1570   t1275 = t1273 * t19 * t118;
1571   t1276 = t689 * t245 * t1275;
1572   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1573     v3rhosigma2[0] = t626 - t630 - t636 + t643 + rho[0] * (0.12922440717451715248e-2 * t1241 - 0.12922440717451715248e-2 * t1245 - 0.25844881434903430496e-2 * t1248 + 0.25844881434903430496e-2 * t1252 - 0.25e2 / 0.36e2 * t1256 + 0.125e3 / 0.36e2 * t1258 - 0.8125e4 / 0.36e2 * t1265 + 0.625e3 / 0.36e2 * t1268 + 0.15625e5 / 0.27e2 * t1276);
1574 
1575   t1281 = t78 * t189 * t274;
1576   t1287 = t1 * t263;
1577   t1288 = t1287 * t189;
1578   t1291 = t613 * t274;
1579   t1295 = t617 * t550;
1580   t1298 = -0.18137053605011111023e0 * t1197 * t1281 + 0.16690870060394415081e2 * t38 * t1071 * t613 - 0.15336136723283227084e0 * t1288 * t620 - 0.16690870060394415080e2 * t38 * t912 * t1291 + 0.30672273446566454169e0 * t1295 * t620;
1581   t1301 = 0.12922440717451715248e-2 * t36 * t1298 * t219;
1582   t1304 = 0.38767322152355145744e-2 * t36 * t1243 * t278;
1583   t1305 = t627 * t278;
1584   t1308 = 0.25844881434903430496e-2 * t36 * t1305 * t647;
1585   t1312 = t1165 * t3 * t117;
1586   t1314 = 0.625e3 / 0.12e2 * t514 * t100 * t639 * t1312;
1587   t1319 = 0.1e1 / t7 / t660 * t19 * t118;
1588   t1321 = 0.15625e5 / 0.72e2 * t689 * t101 * t1319;
1589   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1590     v3sigma3[0] = rho[0] * (t1301 - t1304 + t1308 + t1314 - t1321);
1591 
1592 #ifndef XC_DONT_COMPILE_LXC
1593 
1594   if(order < 4) return;
1595 
1596 
1597   t1335 = 0.100e3 / 0.9e1 * t671 - 0.2500e4 / 0.27e2 * t675 + 0.40000e5 / 0.27e2 * t679 + 0.59500e5 / 0.243e3 * t658 - 0.80000e5 / 0.9e1 * t665 + 0.51689762869806860992e-2 * t1020 + 0.82765347514623860983e4 * t801 - 0.77195239626889675138e3 * t766 + 0.40000000000000000000e1 * t793 + 0.24000000000000000000e2 * t749 - 0.14e2 * t667 + 0.140e3 / 0.3e1 * t673;
1598   t1344 = t334 * t334;
1599   t1351 = t464 * t464;
1600   t1355 = t338 * t338;
1601   t1357 = t12 / t1355;
1602   t1358 = t309 * t309;
1603   t1359 = t341 * t341;
1604   t1360 = 0.1e1 / t1359;
1605   t1378 = t6 * t347;
1606   t1400 = t316 * t60;
1607   t1403 = t133 * t347;
1608   t1406 = t4 * t1378;
1609   t1408 = pow(t10, -0.25e1);
1610   t1420 = t20 * t5 * t60;
1611   t1422 = -0.81706597222222222223e-1 / t13 * rho[0] * t682 * t301 + 0.37650400000000000000e2 * t771 * t286 - 0.13944592592592592593e2 * t315 * t1400 + 0.12201518518518518519e2 * t132 * t1403 + 0.53560370370370370370e1 * t1406 + 0.14025833333333333333e0 * t1408 * t2 * t682 * t301 - 0.22441333333333333332e1 * t783 * t286 + 0.24934814814814814815e1 * t326 * t1400 + 0.21817962962962962963e1 * t140 * t1403 + 0.16979925925925925926e1 * t1420;
1612   t1430 = t383 * t353 * t52;
1613   t1431 = t78 * t1430;
1614   t1434 = t383 * t383;
1615   t1439 = t353 * t353;
1616   t1445 = t877 * t172 * t52;
1617   t1446 = t78 * t1445;
1618   t1454 = 0.1e1 / t7 / t247;
1619   t1455 = sigma[0] * t1454;
1620   t1465 = t12 / t338 / t306;
1621   t1478 = t307 * t148;
1622   t1483 = t339 * t334;
1623   t1502 = -0.51501903532028942923e8 * t1357 * t1358 * t1360 * t1 * t48 + 0.64047767232431193418e7 * t1465 * t1358 * t874 - 0.25794920682682469011e3 * t130 * t1422 * t169 + 0.70671204025034583096e2 * t837 * t841 + 0.10600680603755187464e3 * t366 * t339 * t747 * t368 - 0.10600680603755187464e3 * t366 * t1478 * t368 * t334 + 0.17048376654479233620e4 * t366 * t1483 * t849 * t148 - 0.29868676248844287051e6 * t797 * t1358 * t380 - 0.33187418054271430056e5 * t340 * t791 * t869 - 0.24890563540703572542e5 * t340 * t1344 * t380 - 0.32023883616215596710e7 * t797 * t334 * t873 * t48 * t309;
1624   t1543 = 0.29868676248844287050e6 * t764 * t309 * t379 * t857 + 0.15476952409609481406e4 * t308 * t1344 * t169 + 0.20635936546145975208e4 * t856 * t168 * t48 * t791 + 0.61907809638437925628e4 * t764 * t1358 * t169 - 0.92861714457656888439e4 * t378 * t858 + 0.14240901974044700295e1 * t162 * t347 * t30 * t48 + 0.54966492019471342408e2 * t161 * t700 * t369 - 0.35335602012517291549e2 * t837 * t845 - 0.11365584436319489080e4 * t837 * t850 - 0.34096753308958467240e4 * t366 * t763 * t747 * t849 + 0.17667801006258645775e2 * t366 * t129 * t791 * t368 + 0.36557042252555448954e5 * t366 * t796 * t747 * t799 * t48;
1625   t1544 = t1502 + t1543;
1626   t1560 = -0.65198711173415683908e-1 * t160 * t1431 - 0.32599355586707841954e-1 * t160 * t78 * t1434 * t52 - 0.10866451862235947318e-1 * t160 * t78 * t1439 * t52 - 0.43465807448943789272e-1 * t160 * t1446 + 0.14687149998488784104e2 * t57 * t598 * t61 * t6 + 0.910e3 / 0.243e3 * t1455 * t45 - 0.10866451862235947318e-1 * t160 * t78 * t1544 * t52 + 0.20284043476173768327e0 * t359 * t879 - 0.17241436954747703078e1 * t826 * t385 + 0.60852130428521304980e0 * t359 * t884 + 0.20284043476173768327e0 * t359 * t888 + 0.76628608687767569234e1 * t159 * t929 * t174;
1627   t1572 = t817 * t877;
1628   t1573 = t78 * t1572;
1629   t1580 = t353 * t809 * t383;
1630   t1581 = t78 * t1580;
1631   t1590 = t354 * t354;
1632   t1601 = t355 * t383;
1633   t1602 = t78 * t1601;
1634   t1605 = -0.17241436954747703078e1 * t826 * t389 + 0.34482873909495406154e1 * t351 * t456 * t356 - 0.12170426085704260996e1 * t814 * t819 + 0.65198711173415683908e-1 * t352 * t78 * t1434 * t354 + 0.86931614897887578544e-1 * t352 * t1573 + 0.12170426085704260996e1 * t806 * t210 * t811 - 0.39119226704049410344e0 * t807 * t1581 + 0.15213032607130326246e0 * t352 * t78 * t1439 * t354 + 0.26079484469366273563e0 * t37 * t948 * t77 * t78 * t1439 * t1590 - 0.39119226704049410344e0 * t807 * t78 * t1439 * t809 - 0.12170426085704260996e1 * t814 * t823 + 0.39119226704049410345e0 * t352 * t1602;
1635   t1610 = t895 * t189;
1636   t1614 = t398 * t407;
1637   t1621 = t184 * t911;
1638   t1631 = 0.1e1 / t910 / t82;
1639   t1632 = t66 * t1631;
1640   t1633 = t409 * t409;
1641   t1641 = t460 * t460;
1642   t1655 = t6 * t1439;
1643   t1664 = t948 * sigma[0];
1644   t1666 = t5 * t1439;
1645   t1696 = 0.31252452170697361571e2 * t68 * t1455 * t69 + 0.40856885363716387549e2 * t76 * t56 * t598 * t78 - 0.43528928652026666458e1 * t950 * t62 * t1655 * t809 + 0.12695937523507777716e1 * t438 * t62 * t1655 * t354 + 0.41727175150986037700e1 * t67 * t1664 * t103 * t1666 * t1590 - 0.62590762726479056550e1 * t937 * t103 * t1666 * t809 + 0.24340852171408521992e1 * t414 * t103 * t1666 * t354 + 0.36274107210022222048e1 * t73 / t435 / t74 * t56 * t62 * t1655 * t1590 - 0.95924861288725431636e1 * t204 * t394 * t448 + 0.42633271683877969616e2 * t204 * t891 * t206 + 0.23439339128023021178e2 * t192 * t683 * t194;
1646   t1718 = t6 * t1434;
1647   t1739 = 0.11285277798673580192e1 * t204 * t180 * t925 - 0.60456845350037036746e-1 * t204 * t62 * t6 * t1544 * t52 + 0.16227234780939014662e2 * t414 * t502 * t416 + 0.16227234780939014661e1 * t192 * t239 * t972 - 0.17386322979577515709e0 * t192 * t103 * t1666 * t52 + 0.28777458386617629491e2 * t438 * t394 * t440 - 0.18137053605011111024e0 * t204 * t62 * t1718 * t52 + 0.11285277798673580192e1 * t204 * t180 * t964 - 0.60456845350037036746e-1 * t204 * t62 * t1655 * t52 - 0.95924861288725431636e1 * t204 * t394 * t452 + 0.13542333358408296232e2 * t950 * t180 * t952 - 0.10156750018806222174e2 * t438 * t180 * t956;
1648   t1753 = t5 * t1434;
1649   t1782 = 0.97363408685634087971e1 * t937 * t239 * t939 - 0.97363408685634087970e1 * t414 * t239 * t943 + 0.16227234780939014661e1 * t192 * t239 * t1009 - 0.81136173904695073307e1 * t192 * t502 * t428 - 0.52158968938732547127e0 * t192 * t103 * t1753 * t52 + 0.10431793787746509425e1 * t414 * t103 * t1753 * t354 + 0.54411160815033333072e0 * t438 * t62 * t1718 * t354 - 0.17386322979577515709e0 * t192 * t103 * t5 * t1544 * t52 - 0.81136173904695073307e1 * t192 * t502 * t424 - 0.97363408685634087970e1 * t67 * t413 * t155 * t993 + 0.48681704342817043984e1 * t67 * t191 * t155 * t988;
1650   t1820 = -0.36274107210022222048e0 * t961 * t1431 - 0.10156750018806222174e2 * t73 * t437 * t179 * t819 + 0.72548214420044444096e0 * t980 * t1573 - 0.10431793787746509425e1 * t987 * t69 * t1430 + 0.32646696489019999843e1 * t980 * t1602 + 0.62590762726479056550e1 * t992 * t69 * t1601 - 0.43528928652026666458e1 * t73 * t949 * t60 * t1581 - 0.24182738140014814699e0 * t961 * t1446 - 0.62590762726479056550e1 * t67 * t936 * t41 * t69 * t1580 + 0.33855833396020740578e1 * t73 * t203 * t179 * t884 + 0.13909058383662012567e1 * t992 * t69 * t1572 - 0.69545291918310062836e0 * t987 * t69 * t1445;
1651   t1826 = 0.27818116767324025134e1 * t38 * (t1560 + t1605) * t83 - 0.11127246706929610054e2 * t38 * t1610 * t214 + 0.33381740120788830161e2 * t38 * t1614 * t409 - 0.16690870060394415080e2 * t38 * t899 * t460 - 0.66763480241577660323e2 * t38 * t1621 * t913 + 0.66763480241577660323e2 * t1081 * t918 - 0.11127246706929610054e2 * t38 * t402 * t1014 + 0.66763480241577660320e2 * t38 * t1632 * t1633 - 0.10014522036236649048e3 * t549 * t911 * t409 * t460 + 0.16690870060394415081e2 * t38 * t408 * t1641 + 0.22254493413859220108e2 * t549 * t917 * t1014 - 0.27818116767324025134e1 * t38 * t190 * (t1696 + t1739 + t1782 + t1820);
1652   t1839 = 0.1e1 / t687 / t33 * t34;
1653   t1843 = t518 * t518;
1654   t1862 = -0.24000000000000000000e2 * t764 * t1358 * t149 + 0.10000000000000000000e1 * t130 * t1422 * t149 + 0.11579285944033451271e4 * t797 * t1358 * t342 + 0.12922440717451715248e-2 * t36 * t1826 * t219 - 0.24829604254387158296e5 * t1465 * t1358 * t799 + 0.15506928860942058298e-1 * t36 * t468 * t647 * t464 + 0.50000000e8 / 0.6561e4 * t1839 * t100 * t690 * sigma[0] / t1843 / rho[0] * t6 * t251 - 0.1250e4 / 0.27e2 * t670 * t509 + 0.100e3 / 0.27e2 * t244 * t731 * t56 * t252 + 0.20000e5 / 0.27e2 * t514 * t491 * t515 * t525 + 0.59500e5 / 0.243e3 * t499 * t657;
1655   t1916 = t484 * t484;
1656   t1922 = t489 * t489;
1657   t1932 = (0.20106419753086419753e2 * t1406 + 0.20068888888888888889e-1 * t1420) * t98 - 0.4e1 * t708 * t228 * t232 + 0.12e2 * t476 * t482 * t484 - 0.6e1 * t710 * t489 - 0.24e2 * t225 * t719 * t721 + 0.24e2 * t713 * t724 - 0.4e1 * t478 * t729 + 0.24e2 * t94 / t718 / t97 * t1916 - 0.36e2 * t720 * t484 * t489 + 0.6e1 * t483 * t1922 + 0.8e1 * t483 * t232 * t729 - t229 * (0.75383950617283950617e4 * t1406 + 0.12819753086419753086e4 * t1420);
1658   t1941 = 0.23230000e8 / 0.729e3 * t517 / t21 / t1271 * t105 * t524 - 0.80000e5 / 0.9e1 * t678 * t664 - 0.379750e6 / 0.729e3 * t246 / t519 * t6 * t251 + 0.7280e4 / 0.81e2 * t102 * t1454 * t43 * t118 + 0.70e2 / 0.3e1 * t493 * t503 - 0.1820e4 / 0.27e2 * t236 * t684 + 0.41096000000000000000e0 * t137 * t1478 * t335 - 0.14e2 / 0.3e1 * t733 * t240 + 0.4000000e7 / 0.243e3 * t689 * t234 * t690 * t697 + t91 * t1932 * sigma[0] * t119 / 0.2e1 - 0.66091990993888710196e1 * t137 * t1483 * t342 * t148;
1659   t1942 = t518 * t247;
1660   t1953 = t468 * t468;
1661   t1954 = t469 * t469;
1662   t1955 = 0.1e1 / t1954;
1663   t1988 = -0.94000000e8 / 0.729e3 * t692 / t7 / t1942 * t19 * t118 - 0.51689762869806860992e-2 * t36 * t1018 * t470 * t218 - 0.77534644304710291488e-2 * t36 * t1953 * t1955 - 0.27397333333333333333e0 * t301 * t41 * t307 * t310 + 0.13218398198777742039e2 * t301 * t123 * t763 * t765 + 0.44061327329259140130e1 * t301 * t41 * t339 * t343 - 0.68493333333333333332e-1 * t301 * t302 * t792 - 0.14172186339420759129e3 * t301 * t123 * t796 * t800 - 0.41096000000000000000e0 * t301 * t758 * t748 + 0.13698666666666666666e0 * t301 * t751 * t335 - 0.21309037037037037036e0 * t301 * t155 * t129 * t150;
1664   t1996 = -0.1820e4 / 0.27e2 * t685 + 0.4000000e7 / 0.243e3 * t698 + 0.2e1 * t734 + 0.41096000000000000000e0 * t1024 + 0.38597619813444837568e3 * t742 - 0.24000000000000000000e2 * t745 + 0.66249796148148148144e-2 * t738 + 0.10337952573961372198e-1 * t649 + rho[0] * (-0.60000000000000000000e1 * t308 * t1344 * t149 + 0.96494049533612093922e2 * t340 * t1344 * t342 - 0.38767322152355145744e-2 * t36 * t1351 * t470 + 0.19965908856856833625e6 * t1357 * t1358 * t1360 + 0.12865873271148279190e3 * t340 * t791 * t342 * t148 - 0.80000000000000000000e1 * t308 * t150 * t791 + 0.12414802127193579148e5 * t797 * t334 * t799 * t309 + 0.36000000000000000000e2 * t340 * t310 * t334 - 0.55208163456790123453e-2 * t4 * t1378 * t30 - 0.11579285944033451271e4 * t764 * t740 * t309 + t1862 + t1941 + t1988) - 0.15506928860942058297e-1 * t653 + 0.27397333333333333333e0 * t753 - 0.20548000000000000000e0 * t756 - 0.66091990993888710196e1 * t760;
1665   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1666     v4rho4[0] = t1335 + t1996;
1667 
1668   t2016 = t573 * t647;
1669   t2075 = t36 * t278;
1670   t2127 = -0.14509642884008888819e1 * t73 * t1664 * t953 + 0.10882232163006666614e1 * t1116 * t957 - 0.36274107210022222047e0 * t73 * t413 * t60 * t884 - 0.12091369070007407349e0 * t562 * t965 - 0.95924861288725431633e1 * t562 * t983 + 0.16927916698010370288e1 * t562 * t968 - 0.50783750094031110865e1 * t1116 * t976 + 0.10882232163006666614e1 * t73 * t936 * t60 * t819 - 0.10431793787746509425e1 * t67 * t436 * t41 * t69 * t810 + 0.10431793787746509425e1 * t1099 * t69 * t822 - 0.58598347820057552945e1 * t68 * t683 * t5;
1671   t2158 = -0.10658317920969492404e2 * t76 * sigma[0] * t639 * t78 + 0.12170426085704260996e1 * t1104 * t1107 - 0.17386322979577515709e0 * t555 * t69 * t878 - 0.12091369070007407349e0 * t562 * t926 - 0.52158968938732547127e0 * t555 * t988 - 0.17386322979577515709e0 * t555 * t69 * t887 + 0.16927916698010370288e1 * t562 * t921 - 0.40568086952347536654e1 * t67 * t75 * t347 * t556 + 0.12170426085704260996e1 * t1104 * t1110 - 0.24340852171408521993e1 * t67 * t202 * t155 * t1100 + 0.10431793787746509425e1 * t1099 * t993;
1672   t2171 = t263 * t911;
1673   t2191 = t538 * t407;
1674   t2204 = t1063 * t189;
1675   t2241 = -0.455e3 / 0.648e3 * t682 * t18 * t69 - 0.13039742234683136782e0 * t806 * t270 * t811 - 0.60852130428521304979e0 * t351 * t565 * t356 + 0.13039742234683136782e0 * t1051 * t819 + 0.13039742234683136782e0 * t1051 * t823 - 0.17241436954747703077e1 * t159 * t1125 * t174 + 0.30426065214260652489e0 * t1054 * t385 + 0.30426065214260652489e0 * t1054 * t389 - 0.21732903724471894636e-1 * t533 * t879 - 0.65198711173415683908e-1 * t533 * t884 - 0.21732903724471894636e-1 * t533 * t888 - 0.38314304343883784616e1 * t260 * t892;
1676   t2245 = 0.16690870060394415081e2 * t549 * t407 * t1129 * t214 - 0.50072610181183245242e2 * t549 * t911 * t569 * t409 + 0.16690870060394415081e2 * t1081 * t1095 + 0.16690870060394415081e2 * t38 * t2191 * t409 - 0.83454350301972075402e1 * t38 * t1067 * t460 - 0.83454350301972075402e1 * t38 * t402 * t1129 - 0.83454350301972075402e1 * t38 * t899 * t569 - 0.83454350301972075402e1 * t38 * t2204 * t214 + 0.33381740120788830162e2 * t1081 * t1092 + 0.16690870060394415081e2 * t38 * t398 * t551 + 0.27818116767324025134e1 * t38 * t2241 * t83;
1677   t2250 = -0.38767322152355145744e-2 * t36 * t1133 * t470 * t218 + 0.130375e6 / 0.972e3 * t244 * t100 * t655 * t590 - 0.2363750e7 / 0.243e3 * t514 * t100 * t662 * t1168 - 0.25e2 / 0.72e2 * t244 * t732 * t288 - 0.1250e4 / 0.9e1 * t514 * t669 * t600 + 0.575e3 / 0.72e2 * t244 * t491 * t248 * t590 - 0.5875e4 / 0.108e3 * t244 * t234 * t507 * t590 + 0.61250e5 / 0.27e2 * t514 * t234 * t521 * t1168 + 0.77534644304710291488e-2 * t2075 * t647 * t218 * t464 - 0.77534644304710291488e-2 * t36 * t278 * t1955 * t645 + 0.12922440717451715248e-2 * t36 * (-0.50072610181183245240e2 * t549 * t1087 * t214 * t460 + 0.66763480241577660320e2 * t549 * t1631 * t274 * t913 - 0.27818116767324025134e1 * t38 * t1610 * t274 - 0.27818116767324025134e1 * t38 * t190 * (t2127 + t2158) + 0.55636233534648050268e1 * t549 * t550 * t1014 + 0.16690870060394415081e2 * t549 * t1091 * t460 - 0.50072610181183245242e2 * t1081 * t1088 - 0.16690870060394415080e2 * t38 * t2171 * t913 + 0.16690870060394415081e2 * t1205 * t918 - 0.27818116767324025134e1 * t38 * t542 * t1014 + t2245) * t219;
1678   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1679     v4rho3sigma[0] = 0.77534644304710291488e-2 * t1143 + 0.3e1 / 0.2e1 * t1149 - 0.38767322152355145744e-2 * t1146 - 0.77534644304710291488e-2 * t1139 + 0.35e2 / 0.3e1 * t1157 - 0.125000e6 / 0.27e2 * t1183 - 0.7e1 * t1151 + 0.38767322152355145744e-2 * t1135 + 0.575e3 / 0.36e2 * t1155 - 0.5875e4 / 0.108e3 * t1161 + 0.61250e5 / 0.27e2 * t1169 - 0.25e2 / 0.24e2 * t1172 - 0.2500e4 / 0.9e1 * t1175 + rho[0] * (t91 * t731 * t119 / 0.2e1 - 0.38767322152355145744e-2 * t36 * t1137 * t464 + 0.77534644304710291488e-2 * t36 * t2016 * t468 - 0.7e1 / 0.2e1 * t1148 * t240 + 0.35e2 / 0.3e1 * t581 * t503 - 0.455e3 / 0.27e2 * t282 * t684 + 0.10750000e8 / 0.243e3 * t689 * t100 * t695 * t515 * t19 * t118 - 0.125000e6 / 0.27e2 * t689 * t677 * t1182 - 0.12922440717451715248e-2 * t36 * t577 * t1018 - 0.6250000e7 / 0.2187e4 * t1839 * t691 / t1843 * t6 * t251 + t2250);
1680 
1681   t2282 = t83 * t353;
1682   t2301 = t214 * t172 * t52;
1683   t2306 = t73 * t619 * t61;
1684   t2307 = t6 * t189;
1685   t2332 = 0.10224091148855484723e0 * t1232 * t449 + 0.20448182297710969446e0 * t1221 * t1231 * t207 - 0.60456845350037036744e-1 * t1187 * t78 * t83 * t383 * t52 - 0.95424850722651190748e0 * t1232 * t444 + 0.10224091148855484723e0 * t1232 * t453 + 0.56426388993367900962e0 * t73 * t1235 * t1190 - 0.60456845350037036744e-1 * t1187 * t78 * t2282 * t52 - 0.30672273446566454169e0 * t617 * t189 * t436 * t441 + 0.12091369070007407349e0 * t73 * t202 * t60 * t78 * t2282 * t354 - 0.40896364595421938892e0 * t617 * t407 * t202 * t60 * t78 * t2301 + 0.12091369070007407349e0 * t2306 * t2307 * t2301 - 0.13518520519042252023e1 * t618 * t75 * t393 * t78 - 0.55636233534648050268e1 * t38 * t2204 * t274 - 0.11127246706929610054e2 * t38 * t1067 * t569 + 0.15987476881454238606e1 * t605 * t394 * t606 - 0.55636233534648050268e1 * t38 * t542 * t1129 + 0.55636233534648050268e1 * t38 * t1614 * t613 + 0.47712425361325595374e0 * t1222 * t1236;
1686   t2344 = t569 * t569;
1687   t2364 = t73 * t54 * t179;
1688   t2396 = 0.22254493413859220108e2 * t1205 * t1092 + 0.22254493413859220108e2 * t38 * t538 * t551 + 0.11127246706929610054e2 * t1205 * t1095 - 0.33381740120788830160e2 * t1081 * t1215 + 0.22254493413859220108e2 * t1081 * t1218 + 0.11127246706929610054e2 * t38 * t408 * t2344 - 0.66763480241577660322e2 * t549 * t1087 * t214 * t569 + 0.10224091148855484723e0 * t1226 * t62 * t6 * t460 + 0.20448182297710969446e0 * t1221 * t1225 * t1228 - 0.60456845350037036744e-1 * t1197 * t78 * t189 * t460 + 0.56426388993367900962e0 * t2364 * t1199 - 0.30672273446566454169e0 * t617 * t911 * t75 * t62 * t6 * t409 - 0.95424850722651190748e0 * t1226 * t180 * t1227 + 0.12091369070007407349e0 * t1197 * t78 * t407 * t409 + 0.11127246706929610054e2 * t549 * t550 * t1129 - 0.16690870060394415080e2 * t549 * t1214 * t460 + 0.66763480241577660320e2 * t549 * t1631 * t613 * t409 - 0.33381740120788830162e2 * t1205 * t1088 - 0.51120455744277423615e-1 * t1 * t398 * t189 * t620;
1689   t2424 = t573 * t573;
1690   t2431 = t623 * t647;
1691   t2455 = t1239 * t470;
1692   t2459 = 0.10337952573961372198e-1 * t2075 * t2016 * t218 + 0.12922440717451715248e-2 * t36 * (t2332 + t2396) * t219 + 0.130625e6 / 0.54e2 * t1164 * t1264 + 0.625e3 / 0.36e2 * t514 * t492 * t641 + 0.781250e6 / 0.729e3 * t1839 * t516 / t518 / t506 * t6 * t251 + 0.125e3 / 0.18e2 * t1154 * t634 - 0.8125e4 / 0.18e2 * t514 * t234 * t598 * t1264 - 0.125e3 / 0.6e1 * t1160 * t634 - 0.25844881434903430496e-2 * t36 * t577 * t1133 - 0.25844881434903430496e-2 * t36 * t2424 * t470 - 0.12922440717451715248e-2 * t36 * t1243 * t464 + 0.25844881434903430496e-2 * t36 * t2431 * t468 + 0.25844881434903430496e-2 * t36 * t1250 * t464 - 0.77534644304710291488e-2 * t36 * t627 * t1955 * t468 - 0.1140625e7 / 0.81e2 * t689 * t100 * t1180 * t19 * t56 * t118 + 0.31250e5 / 0.27e2 * t689 * t498 * t1275 - 0.25e2 / 0.36e2 * t244 * t491 * t286 * t634 - 0.25844881434903430496e-2 * t36 * t2455 * t218;
1693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1694     v4rho2sigma2[0] = 0.25844881434903430496e-2 * t1241 - 0.25844881434903430496e-2 * t1245 - 0.51689762869806860992e-2 * t1248 + 0.51689762869806860992e-2 * t1252 - 0.25e2 / 0.18e2 * t1256 + 0.125e3 / 0.18e2 * t1258 - 0.8125e4 / 0.18e2 * t1265 + 0.625e3 / 0.18e2 * t1268 + 0.31250e5 / 0.27e2 * t1276 + rho[0] * t2459;
1695 
1696   t2521 = 0.18137053605011111023e0 * t2306 * t2307 * t274 * t172 * t52 + 0.84639583490051851441e0 * t2364 * t1281 + 0.36274107210022222046e0 * t1197 * t78 * t551 - 0.18137053605011111023e0 * t1197 * t78 * t189 * t569 + 0.16690870060394415081e2 * t38 * t2191 * t613 - 0.50072610181183245243e2 * t1205 * t1215 + 0.33381740120788830162e2 * t1205 * t1218 - 0.15336136723283227084e0 * t1 * t538 * t189 * t620 + 0.30672273446566454168e0 * t1287 * t1225 * t1228 + 0.30672273446566454168e0 * t1287 * t1231 * t207 + 0.71568638041988393059e0 * t1288 * t1236 - 0.16690870060394415080e2 * t38 * t1621 * t1291 + 0.66763480241577660320e2 * t549 * t1631 * t1291 * t214 - 0.50072610181183245240e2 * t549 * t1214 * t569 + 0.30672273446566454169e0 * t1221 * t550 * t620 - 0.92016820339699362507e0 * t617 * t1087 * t619 * t78 * t214 + 0.30672273446566454169e0 * t617 * t1091 * t620 - 0.61344546893132908338e0 * t617 * t550 * t202 * t207 - 0.14313727608397678612e1 * t1295 * t1236;
1697   t2525 = t1298 * t470;
1698   t2567 = 0.12922440717451715248e-2 * t36 * t2521 * t219 - 0.12922440717451715248e-2 * t36 * t2525 * t218 - 0.38767322152355145744e-2 * t36 * t2455 * t278 + 0.77534644304710291488e-2 * t36 * t623 * t1141 * t218 - 0.38767322152355145744e-2 * t36 * t1243 * t573 + 0.77534644304710291488e-2 * t36 * t1250 * t573 - 0.77534644304710291488e-2 * t36 * t1305 * t1955 * t218 + 0.625e3 / 0.12e2 * t514 * t234 * t639 * t1312 - 0.14375e5 / 0.36e2 * t1261 * t1312 + 0.859375e6 / 0.216e3 * t689 * t100 * t1273 * t316 * sigma[0] * t117 - 0.15625e5 / 0.72e2 * t689 * t235 * t1319 - 0.390625e6 / 0.972e3 * t1839 * t245 / t1942 * t6 * t251;
1699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1700     v4rhosigma3[0] = rho[0] * t2567 + t1301 - t1304 + t1308 + t1314 - t1321;
1701 
1702   t2578 = 0.1e1 / t7 / t519;
1703   t2580 = 0.1e1 / t3 / t2;
1704   t2583 = t2578 * t2580 * t5 * t189;
1705   t2595 = t613 * t613;
1706   t2618 = t623 * t623;
1707   t2622 = t627 * t627;
1708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1709     v4sigma4[0] = rho[0] * (0.12922440717451715248e-2 * t36 * (0.72548214420044444093e0 * t1197 * t78 * t407 * t613 - 0.13158108538841861539e0 * t1 / t34 / t33 * t202 * t2583 - 0.66763480241577660323e2 * t38 * t2171 * t1291 + 0.12268909378626581668e1 * t1287 * t550 * t620 - 0.13331951316498089762e-1 * t67 * t202 * t2583 + 0.66763480241577660320e2 * t38 * t1632 * t2595 - 0.18403364067939872501e1 * t617 * t1214 * t620 + 0.22252186707517387313e0 * t408 * t48 * t436 * t2578 * t2580 * t5) * t219 - 0.51689762869806860992e-2 * t36 * t2525 * t278 + 0.15506928860942058298e-1 * t36 * t2431 * t627 - 0.38767322152355145744e-2 * t36 * t2618 * t470 - 0.77534644304710291488e-2 * t36 * t2622 * t1955 - 0.15625e5 / 0.18e2 * t689 * t100 * t1319 + 0.390625e6 / 0.2592e4 * t1839 * t101 / t693 * t6 * t251);
1710 
1711 #ifndef XC_DONT_COMPILE_MXC
1712 
1713   if(order < 5) return;
1714 
1715 
1716 #endif
1717 
1718 #endif
1719 
1720 #endif
1721 
1722 #endif
1723 
1724 #endif
1725 
1726 
1727 }
1728 
1729 
1730 static inline void
func_pol(const xc_func_type * p,int order,const double * rho,const double * sigma,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))1731 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
1732 {
1733 
1734 #ifndef XC_DONT_COMPILE_EXC
1735   double t1, t2, t3, t4, t5, t6, t7, t8;
1736   double t11, t13, t14, t17, t19, t20, t21, t22;
1737   double t25, t27, t30, t31, t33, t34, t35, t36;
1738   double t37, t38, t39, t40, t41, t42, t43, t44;
1739   double t45, t46, t47, t48, t49, t50, t53, t54;
1740   double t56, t61, t64, t65, t69, t74, t77, t78;
1741   double t79, t81, t82, t83, t85, t86, t87, t88;
1742   double t89, t90, t91, t93, t94, t95, t96, t97;
1743   double t99, t101, t102, t103, t104, t106, t107, t108;
1744   double t111, t112, t114, t115, t118, t119, t120, t121;
1745   double t122, t124, t125, t126, t127, t128, t129, t130;
1746   double t131, t132, t133, t136, t137, t138, t139, t140;
1747   double t141, t142, t146, t147, t148, t149, t150, t151;
1748   double t152, t153, t154, t157, t158, t162, t163, t166;
1749   double t167, t170, t173, t174, t176, t177, t178, t179;
1750   double t181, t182, t184, t186, t188, t192, t193, t194;
1751   double t196;
1752 
1753 #ifndef XC_DONT_COMPILE_VXC
1754   double t198, t199, t201, t202, t203, t204, t205, t207;
1755   double t208, t209, t210, t212, t214, t215, t216, t221;
1756   double t223, t224, t225, t226, t227, t228, t229, t230;
1757   double t231, t232, t233, t234, t235, t236, t237, t238;
1758   double t239, t241, t245, t246, t247, t251, t252, t253;
1759   double t258, t259, t260, t266, t267, t268, t273, t274;
1760   double t275, t278, t279, t280, t281, t282, t283, t285;
1761   double t286, t287, t288, t290, t291, t292, t293, t294;
1762   double t296, t299, t301, t302, t303, t305, t306, t307;
1763   double t309, t310, t311, t312, t313, t314, t317, t318;
1764   double t319, t320, t324, t325, t328, t330, t331, t335;
1765   double t336, t337, t339, t340, t341, t342, t343, t344;
1766   double t347, t351, t352, t353, t354, t356, t357, t358;
1767   double t360, t361, t364, t367, t369, t371, t375, t376;
1768   double t378, t379, t380, t383, t384, t386, t388, t391;
1769   double t395, t397, t399, t400, t403, t405, t406, t407;
1770   double t410, t412, t413, t414, t415, t416, t417, t418;
1771   double t419, t420, t421, t422, t423, t424, t425, t426;
1772   double t428, t432, t433, t434, t438, t440, t441, t442;
1773   double t443, t444, t446, t448, t452, t453, t454, t455;
1774   double t456, t460, t462, t463, t464, t465, t468, t472;
1775   double t475, t477, t478, t481, t482, t485, t490, t491;
1776   double t494, t495, t498, t503, t507, t510, t511, t512;
1777   double t514, t515, t516, t517, t521, t523, t524, t525;
1778   double t526, t527, t530, t531, t533, t534, t535, t537;
1779   double t541, t542, t543, t544, t546, t547, t549, t553;
1780   double t557, t558, t559, t560, t562, t563, t564, t565;
1781   double t566, t568, t569, t570, t571, t575, t581, t585;
1782   double t586, t589, t590;
1783 
1784 #ifndef XC_DONT_COMPILE_FXC
1785   double t592, t593, t595, t596, t597, t598, t599, t601;
1786   double t602, t603, t604, t605, t606, t607, t608, t609;
1787   double t612, t613, t615, t618, t619, t622, t626, t627;
1788   double t628, t629, t630, t631, t632, t633, t634, t635;
1789   double t636, t637, t638, t639, t640, t641, t642, t645;
1790   double t646, t647, t648, t650, t651, t653, t654, t656;
1791   double t657, t658, t660, t663, t665, t666, t667, t668;
1792   double t669, t670, t671, t672, t673, t674, t675, t676;
1793   double t677, t678, t680, t681, t682, t683, t684, t685;
1794   double t686, t689, t691, t695, t696, t697, t702, t704;
1795   double t705, t707, t708, t709, t710, t712, t713, t714;
1796   double t719, t724, t725, t727, t728, t729, t730, t731;
1797   double t733, t734, t735, t736, t738, t739, t740, t741;
1798   double t742, t743, t744, t745, t746, t747, t748, t749;
1799   double t750, t751, t752, t753, t754, t755, t756, t757;
1800   double t758, t759, t760, t761, t762, t766, t767, t769;
1801   double t775, t779, t781, t782, t783, t784, t785, t786;
1802   double t788, t789, t790, t791, t793, t794, t795, t796;
1803   double t798, t799, t800, t802, t803, t804, t805, t809;
1804   double t812, t813, t814, t815, t816, t817, t818, t821;
1805   double t822, t823, t825, t826, t827, t828, t829, t838;
1806   double t840, t841, t842, t843, t844, t845, t846, t847;
1807   double t848, t849, t850, t851, t852, t853, t854, t858;
1808   double t862, t863, t864, t865, t866, t875, t876, t879;
1809   double t880, t881, t882, t883, t884, t890, t894, t895;
1810   double t896, t897, t900, t903, t904, t907, t908, t909;
1811   double t911, t912, t913, t914, t915, t916, t920, t923;
1812   double t924, t927, t930, t932, t933, t936, t937, t941;
1813   double t942, t943, t945, t946, t948, t949, t950, t952;
1814   double t956, t959, t963, t968, t969, t970, t974, t976;
1815   double t977, t978, t979, t983, t984, t986, t987, t989;
1816   double t990, t994, t995, t998, t999, t1004, t1006, t1007;
1817   double t1010, t1014, t1017, t1018, t1019, t1021, t1022, t1026;
1818   double t1027, t1029, t1030, t1033, t1036, t1040, t1042, t1044;
1819   double t1045, t1051, t1055, t1058, t1059, t1060, t1062, t1063;
1820   double t1065, t1066, t1068, t1069, t1070, t1073, t1074, t1075;
1821   double t1077, t1079, t1082, t1083, t1084, t1085, t1087, t1088;
1822   double t1089, t1090, t1091, t1092, t1093, t1094, t1096, t1098;
1823   double t1100, t1101, t1103, t1106, t1109, t1112, t1115, t1116;
1824   double t1118, t1119, t1121, t1122, t1123, t1124, t1125, t1126;
1825   double t1127, t1128, t1129, t1130, t1131, t1133, t1134, t1135;
1826   double t1136, t1137, t1139, t1141, t1142, t1144, t1146, t1147;
1827   double t1150, t1154, t1156, t1157, t1160, t1161, t1164, t1165;
1828   double t1166, t1169, t1171, t1172, t1173, t1176, t1177, t1178;
1829   double t1179, t1182, t1185, t1188, t1192, t1193, t1194, t1195;
1830   double t1196, t1197, t1198, t1199, t1200, t1201, t1202, t1206;
1831   double t1211, t1212, t1213, t1216, t1219, t1221, t1222, t1225;
1832   double t1226, t1227, t1232, t1233, t1234, t1237, t1239, t1240;
1833   double t1241, t1242, t1243, t1246, t1247, t1250, t1254, t1261;
1834   double t1262, t1263, t1266, t1267, t1268, t1271, t1273, t1277;
1835   double t1278, t1281, t1286, t1289, t1291, t1292, t1296, t1299;
1836   double t1300, t1301, t1304, t1308, t1317, t1319, t1320, t1325;
1837   double t1326, t1330, t1333, t1337, t1339, t1343, t1347, t1349;
1838   double t1350, t1351, t1353, t1355, t1357, t1359, t1360, t1363;
1839   double t1366, t1368, t1373, t1374, t1375, t1379, t1382, t1385;
1840   double t1388, t1390, t1391, t1392, t1393, t1394, t1395, t1396;
1841   double t1397, t1399, t1400, t1401, t1403, t1408, t1412, t1414;
1842   double t1415, t1416, t1417, t1418, t1419, t1421, t1422, t1423;
1843   double t1424, t1426, t1427, t1430, t1431, t1434, t1435, t1436;
1844   double t1437, t1441, t1442, t1454, t1455, t1456, t1457, t1458;
1845   double t1459, t1460, t1461, t1462, t1463, t1464, t1470, t1473;
1846   double t1476, t1478, t1479, t1482, t1483, t1487, t1488, t1491;
1847   double t1492, t1495, t1502, t1506, t1507, t1508, t1512, t1516;
1848   double t1517, t1520, t1521, t1526, t1530, t1533, t1539, t1542;
1849   double t1550, t1554, t1557, t1558, t1560, t1561, t1562, t1563;
1850   double t1566, t1567, t1568, t1569, t1576, t1578, t1579, t1581;
1851   double t1582, t1583, t1584, t1586, t1587, t1588, t1590, t1591;
1852   double t1592, t1593, t1594, t1596, t1600, t1607, t1608, t1613;
1853   double t1614, t1615, t1617, t1618, t1619, t1620, t1621, t1624;
1854   double t1625, t1627, t1628, t1630, t1631, t1633, t1637, t1640;
1855   double t1641, t1642, t1644, t1645, t1646, t1647, t1648, t1649;
1856   double t1650, t1651, t1652, t1653, t1655, t1656, t1657, t1658;
1857   double t1659, t1661, t1662, t1663, t1664, t1666, t1667, t1668;
1858   double t1669, t1670, t1671, t1672, t1673, t1674, t1675, t1676;
1859   double t1678, t1679, t1680, t1681, t1682, t1684, t1686, t1687;
1860   double t1688, t1691, t1693, t1697, t1704, t1705, t1709, t1712;
1861   double t1714, t1718, t1721, t1722, t1723, t1725, t1726, t1727;
1862   double t1728, t1729, t1730, t1731, t1732, t1734, t1735, t1736;
1863   double t1737, t1739, t1741, t1743, t1753, t1756, t1757, t1759;
1864   double t1761, t1763, t1765, t1769, t1772, t1773, t1775, t1776;
1865   double t1777, t1778, t1779, t1780, t1781, t1782, t1783, t1784;
1866   double t1785, t1786, t1788, t1789, t1790, t1791, t1792, t1794;
1867   double t1795, t1796, t1800, t1810, t1817, t1821, t1824, t1825;
1868   double t1827, t1828, t1829, t1830, t1831, t1833, t1835, t1836;
1869   double t1837, t1842, t1846, t1847, t1848, t1849, t1851, t1855;
1870   double t1856, t1860, t1861, t1862, t1863, t1866, t1867, t1868;
1871   double t1869, t1871, t1872, t1874, t1875, t1876, t1877, t1886;
1872   double t1890, t1894, t1897, t1898, t1899, t1905, t1910, t1914;
1873   double t1915, t1919, t1920, t1921;
1874 
1875 #ifndef XC_DONT_COMPILE_KXC
1876   double t1923, t1925, t1926, t1931, t1932, t1933, t1935, t1936;
1877   double t1937, t1942, t1943, t1944, t1945, t1946, t1947, t1954;
1878   double t1956, t1957, t1958, t1960, t1963, t1965, t1966, t1967;
1879   double t1969, t1970, t1971, t1973, t1974, t1976, t1977, t1978;
1880   double t1979, t1980, t1981, t1982, t1983, t1984, t1985, t1986;
1881   double t1987, t1988, t1989, t1990, t1991, t1992, t1994, t1995;
1882   double t1998, t1999, t2000, t2001, t2002, t2003, t2004, t2006;
1883   double t2007, t2010, t2013, t2015, t2018, t2020, t2021, t2024;
1884   double t2027, t2030, t2032, t2033, t2034, t2035, t2036, t2037;
1885   double t2038, t2039, t2040, t2041, t2042, t2043, t2045, t2048;
1886   double t2050, t2051, t2052, t2055, t2056, t2059, t2060, t2061;
1887   double t2064, t2065, t2066, t2069, t2070, t2071, t2074, t2076;
1888   double t2077, t2078, t2081, t2082, t2083, t2087, t2090, t2091;
1889   double t2094, t2095, t2097, t2098, t2099, t2101, t2102, t2104;
1890   double t2107, t2108, t2109, t2110, t2111, t2112, t2113, t2114;
1891   double t2117, t2118, t2121, t2122, t2123, t2124, t2125, t2126;
1892   double t2127, t2128, t2129, t2130, t2131, t2132, t2133, t2134;
1893   double t2135, t2136, t2137, t2138, t2139, t2140, t2141, t2142;
1894   double t2143, t2147, t2148, t2150, t2151, t2153, t2154, t2156;
1895   double t2157, t2159, t2160, t2161, t2163, t2165, t2168, t2170;
1896   double t2172, t2173, t2174, t2175, t2177, t2178, t2179, t2180;
1897   double t2181, t2182, t2183, t2184, t2185, t2188, t2189, t2193;
1898   double t2194, t2196, t2197, t2201, t2202, t2203, t2206, t2209;
1899   double t2212, t2213, t2216, t2221, t2222, t2223, t2224, t2225;
1900   double t2226, t2235, t2236, t2237, t2238, t2240, t2241, t2243;
1901   double t2244, t2245, t2246, t2247, t2249, t2250, t2252, t2253;
1902   double t2261, t2262, t2263, t2267, t2274, t2278, t2280, t2281;
1903   double t2283, t2284, t2285, t2287, t2288, t2289, t2296, t2306;
1904   double t2307, t2308, t2312, t2313, t2314, t2323, t2324, t2328;
1905   double t2329, t2331, t2332, t2336, t2337, t2338, t2341, t2342;
1906   double t2343, t2344, t2345, t2347, t2348, t2350, t2353, t2359;
1907   double t2362, t2368, t2369, t2370, t2371, t2372, t2373, t2375;
1908   double t2376, t2377, t2378, t2379, t2380, t2381, t2382, t2383;
1909   double t2384, t2385, t2386, t2387, t2389, t2390, t2391, t2392;
1910   double t2393, t2394, t2395, t2396, t2398, t2399, t2400, t2402;
1911   double t2403, t2404, t2405, t2406, t2407, t2408, t2409, t2411;
1912   double t2412, t2413, t2414, t2416, t2420, t2423, t2428, t2429;
1913   double t2432, t2433, t2436, t2439, t2441, t2442, t2445, t2447;
1914   double t2448, t2451, t2453, t2454, t2456, t2457, t2458, t2460;
1915   double t2461, t2462, t2465, t2467, t2470, t2471, t2474, t2475;
1916   double t2476, t2479, t2480, t2482, t2484, t2485, t2489, t2493;
1917   double t2500, t2501, t2502, t2503, t2507, t2508, t2519, t2520;
1918   double t2522, t2523, t2524, t2527, t2534, t2539, t2542, t2545;
1919   double t2549, t2551, t2552, t2555, t2558, t2559, t2561, t2564;
1920   double t2567, t2570, t2571, t2573, t2575, t2578, t2582, t2583;
1921   double t2585, t2590, t2591, t2594, t2595, t2597, t2599, t2603;
1922   double t2604, t2607, t2608, t2610, t2612, t2613, t2616, t2618;
1923   double t2619, t2620, t2621, t2624, t2625, t2628, t2629, t2632;
1924   double t2635, t2638, t2639, t2642, t2645, t2646, t2648, t2649;
1925   double t2652, t2655, t2658, t2661, t2662, t2664, t2668, t2671;
1926   double t2672, t2673, t2675, t2676, t2677, t2680, t2682, t2685;
1927   double t2690, t2691, t2692, t2693, t2696, t2701, t2703, t2704;
1928   double t2706, t2707, t2708, t2709, t2710, t2711, t2712, t2713;
1929   double t2715, t2716, t2717, t2719, t2720, t2721, t2722, t2723;
1930   double t2724, t2725, t2727, t2728, t2729, t2730, t2732, t2734;
1931   double t2736, t2737, t2738, t2739, t2740, t2742, t2743, t2744;
1932   double t2745, t2747, t2748, t2750, t2754, t2755, t2756, t2757;
1933   double t2758, t2763, t2764, t2766, t2770, t2773, t2778, t2782;
1934   double t2784, t2785, t2786, t2787, t2788, t2789, t2790, t2791;
1935   double t2792, t2793, t2795, t2796, t2798, t2800, t2802, t2803;
1936   double t2804, t2806, t2808, t2809, t2810, t2811, t2814, t2816;
1937   double t2817, t2818, t2823, t2824, t2827, t2829, t2830, t2831;
1938   double t2834, t2835, t2836, t2837, t2839, t2840, t2841, t2842;
1939   double t2845, t2846, t2855, t2858, t2859, t2868, t2869, t2871;
1940   double t2872, t2874, t2875, t2877, t2879, t2881, t2883, t2885;
1941   double t2888, t2889, t2890, t2892, t2895, t2904, t2907, t2917;
1942   double t2918, t2919, t2920, t2921, t2922, t2923, t2924, t2925;
1943   double t2927, t2928, t2929, t2931, t2932, t2933, t2937, t2938;
1944   double t2939, t2941, t2942, t2944, t2946, t2948, t2949, t2950;
1945   double t2951, t2952, t2953, t2954, t2955, t2956, t2957, t2959;
1946   double t2961, t2962, t2963, t2964, t2965, t2968, t2970, t2972;
1947   double t2974, t2975, t2976, t2978, t2979, t2980, t2982, t2983;
1948   double t2984, t2986, t2987, t2990, t2992, t2993, t2994, t2995;
1949   double t2996, t2998, t3000, t3003, t3004, t3005, t3006, t3008;
1950   double t3015, t3017, t3019, t3022, t3024, t3025, t3026, t3027;
1951   double t3028, t3029, t3030, t3031, t3032, t3033, t3034, t3035;
1952   double t3036, t3037, t3038, t3040, t3041, t3042, t3043, t3048;
1953   double t3050, t3053, t3056, t3057, t3064, t3068, t3070, t3071;
1954   double t3072, t3074, t3075, t3078, t3080, t3082, t3085, t3087;
1955   double t3088, t3090, t3091, t3092, t3093, t3094, t3096, t3098;
1956   double t3099, t3100, t3101, t3102, t3103, t3104, t3107, t3108;
1957   double t3109, t3110, t3121, t3124, t3125, t3127, t3128, t3132;
1958   double t3133, t3134, t3137, t3138, t3141, t3143, t3144, t3146;
1959   double t3147, t3148, t3151, t3152, t3155, t3156, t3158, t3159;
1960   double t3160, t3161, t3162, t3163, t3164, t3165, t3166, t3167;
1961   double t3169, t3173, t3176, t3183, t3188, t3189, t3192, t3193;
1962   double t3196, t3199, t3202, t3204, t3205, t3209, t3210, t3211;
1963   double t3212, t3213, t3216, t3217, t3218, t3219, t3222, t3224;
1964   double t3225, t3228, t3229, t3230, t3233, t3234, t3235, t3238;
1965   double t3239, t3240, t3243, t3244, t3248, t3250, t3251, t3252;
1966   double t3253, t3256, t3257, t3258, t3261, t3262, t3265, t3266;
1967   double t3267, t3270, t3271, t3272, t3275, t3276, t3277, t3280;
1968   double t3281, t3282, t3283, t3286, t3288, t3289, t3293, t3294;
1969   double t3295, t3298, t3301, t3302, t3303, t3306, t3307, t3308;
1970   double t3311, t3315, t3317, t3321, t3325, t3335, t3341, t3342;
1971   double t3345, t3346, t3349, t3360, t3363, t3373, t3376, t3379;
1972   double t3380, t3381, t3384, t3387, t3390, t3396, t3399, t3402;
1973   double t3404, t3405, t3409, t3410, t3413, t3415, t3419, t3420;
1974   double t3423, t3427, t3428, t3432, t3433, t3436, t3440, t3441;
1975   double t3444, t3445, t3448, t3450, t3451, t3454, t3456, t3459;
1976   double t3462, t3463, t3464, t3467, t3468, t3469, t3472, t3475;
1977   double t3478, t3479, t3482, t3485, t3488, t3491, t3494, t3497;
1978   double t3500, t3504, t3506, t3507, t3510, t3511, t3514, t3515;
1979   double t3534, t3536, t3539, t3541, t3543, t3547, t3550, t3552;
1980   double t3553, t3554, t3556, t3558, t3563, t3565, t3567, t3569;
1981   double t3571, t3572, t3573, t3579, t3581, t3585, t3586, t3587;
1982   double t3588, t3589, t3590, t3592, t3594, t3596, t3598, t3603;
1983   double t3608, t3611, t3616, t3619, t3623, t3624, t3625, t3627;
1984   double t3629, t3631, t3633, t3635, t3641, t3643, t3648, t3653;
1985   double t3658, t3663, t3668, t3673, t3674, t3678, t3680, t3681;
1986   double t3682, t3684, t3685, t3686, t3687, t3688, t3689, t3690;
1987   double t3692, t3693, t3697, t3699, t3700, t3702, t3703, t3705;
1988   double t3708, t3712, t3713, t3714, t3716, t3718, t3719, t3721;
1989   double t3722, t3723, t3724, t3725, t3726, t3728, t3729, t3730;
1990   double t3733, t3734, t3735, t3737, t3740, t3742, t3749, t3751;
1991   double t3752, t3754, t3755, t3756, t3757, t3758, t3759, t3761;
1992   double t3763, t3765, t3766, t3769, t3770, t3771, t3774, t3776;
1993   double t3778, t3780, t3781, t3784, t3785, t3786, t3789, t3790;
1994   double t3791, t3794, t3795, t3797, t3798, t3799, t3800, t3801;
1995   double t3802, t3803, t3804, t3805, t3806, t3807, t3808, t3810;
1996   double t3814, t3819, t3826, t3827, t3830, t3835, t3836, t3839;
1997   double t3842, t3844, t3845, t3848, t3850, t3853, t3855, t3857;
1998   double t3858, t3859, t3862, t3863, t3864, t3867, t3868, t3869;
1999   double t3874, t3876, t3878, t3879, t3880, t3883, t3884, t3887;
2000   double t3888, t3889, t3892, t3894, t3895, t3896, t3899, t3900;
2001   double t3901, t3904, t3905, t3908, t3909, t3912, t3913, t3914;
2002   double t3917, t3918, t3919, t3922, t3923, t3926, t3927, t3932;
2003   double t3933, t3934, t3939, t3940, t3941, t3944, t3948, t3951;
2004   double t3952, t3955, t3956, t3959, t3960, t3964, t3966, t3970;
2005   double t3977, t3986, t3987, t3990, t3996, t3997, t4003, t4007;
2006   double t4009, t4011, t4013, t4034, t4035, t4038, t4039, t4040;
2007   double t4043, t4046, t4052, t4055, t4058, t4061, t4064, t4067;
2008   double t4070, t4074, t4075, t4078, t4080, t4082, t4084, t4086;
2009   double t4088, t4090, t4094, t4095, t4098, t4101, t4104, t4107;
2010   double t4110, t4113, t4116, t4119, t4122, t4125, t4128, t4133;
2011   double t4137, t4139, t4144, t4147, t4150, t4153, t4161, t4163;
2012   double t4167, t4170, t4173, t4175, t4177, t4179, t4180, t4182;
2013   double t4184, t4186, t4188, t4191, t4194, t4195, t4196, t4198;
2014   double t4199, t4200, t4201, t4202, t4203, t4204, t4205, t4207;
2015   double t4208, t4209, t4211, t4217, t4232, t4237, t4238, t4239;
2016   double t4246, t4252, t4255, t4260, t4263, t4264, t4268, t4270;
2017   double t4271, t4272, t4273, t4274, t4275, t4276, t4277, t4282;
2018   double t4283, t4284, t4285, t4286, t4287, t4289, t4290, t4292;
2019   double t4293, t4295, t4296, t4297, t4299, t4302, t4303, t4304;
2020   double t4305, t4306, t4307, t4322, t4323, t4324, t4325, t4326;
2021   double t4330, t4331, t4332, t4333, t4334, t4337, t4338, t4340;
2022   double t4341, t4343, t4344, t4345, t4348, t4349, t4357, t4358;
2023   double t4361, t4362, t4366, t4369, t4370, t4373, t4374, t4377;
2024   double t4378, t4379, t4382, t4383, t4386, t4387, t4388, t4394;
2025   double t4397, t4398, t4403, t4404, t4407, t4408, t4410, t4411;
2026   double t4412, t4413, t4414, t4415, t4416, t4417, t4418, t4419;
2027   double t4420, t4422, t4432, t4435, t4438, t4441, t4443, t4444;
2028   double t4447, t4448, t4449, t4450, t4453, t4454, t4457, t4458;
2029   double t4463, t4464, t4477, t4481, t4493, t4496, t4499, t4502;
2030   double t4505, t4506, t4519, t4522, t4525, t4528, t4531, t4534;
2031   double t4537, t4538, t4541, t4544, t4555, t4556, t4557, t4558;
2032   double t4561, t4562, t4565, t4566, t4569, t4575, t4581, t4587;
2033   double t4589, t4593, t4596, t4597, t4599, t4600, t4601, t4602;
2034   double t4603, t4604, t4606, t4607, t4608, t4609, t4613, t4614;
2035   double t4615, t4616, t4617, t4619, t4620, t4621, t4622, t4623;
2036   double t4625, t4626, t4627, t4635, t4639, t4641, t4642, t4644;
2037   double t4645, t4647, t4648, t4649, t4650, t4651, t4652, t4654;
2038   double t4655, t4656, t4658, t4659, t4661, t4662, t4664, t4665;
2039   double t4666, t4668, t4669, t4671, t4672, t4673, t4675, t4676;
2040   double t4677, t4678, t4679, t4680, t4681, t4682, t4683, t4684;
2041   double t4685, t4686, t4687, t4688, t4689, t4690, t4691, t4692;
2042   double t4693, t4694, t4695, t4696, t4697, t4698, t4699, t4700;
2043   double t4701, t4702, t4703, t4704, t4705, t4706, t4707, t4709;
2044   double t4710, t4711, t4712, t4713, t4714, t4715, t4717, t4719;
2045   double t4720, t4722, t4723, t4724, t4726, t4728, t4730, t4732;
2046   double t4733, t4734, t4735, t4736, t4738, t4740, t4742, t4746;
2047   double t4750, t4765, t4766, t4769, t4770, t4773, t4778, t4779;
2048   double t4780, t4784, t4785, t4786, t4787, t4789, t4790, t4792;
2049   double t4793, t4796, t4797, t4798, t4799, t4800, t4801, t4803;
2050   double t4806, t4807, t4810, t4811, t4812, t4813, t4814, t4816;
2051   double t4818, t4820, t4821, t4823, t4824, t4826, t4828, t4830;
2052   double t4834, t4837, t4838, t4839, t4840, t4841, t4842, t4843;
2053   double t4844, t4846, t4847, t4848, t4849, t4850, t4851, t4852;
2054   double t4854, t4855, t4856, t4857, t4858, t4859, t4860, t4861;
2055   double t4862, t4863, t4864, t4866, t4867, t4868, t4870, t4871;
2056   double t4872, t4873, t4874, t4875, t4876, t4877, t4878, t4879;
2057   double t4880, t4886, t4888, t4890, t4892, t4894, t4896, t4897;
2058   double t4898, t4899, t4900, t4901, t4902, t4904, t4905, t4906;
2059   double t4907, t4908, t4909, t4910, t4911, t4913, t4914, t4915;
2060   double t4916, t4917, t4918, t4919, t4920, t4921, t4922, t4923;
2061   double t4924, t4925, t4934, t4938, t4942, t4946, t4961, t4962;
2062   double t4965, t4966, t4969, t4977, t4986, t4990, t4994, t4997;
2063   double t4998, t5000, t5001, t5003, t5004, t5006, t5007, t5009;
2064   double t5010, t5011, t5012, t5015, t5016, t5017, t5020, t5021;
2065   double t5023, t5026, t5028, t5030, t5033, t5036, t5038, t5039;
2066   double t5040, t5041, t5042, t5043, t5047, t5049, t5051, t5053;
2067   double t5055, t5056, t5058, t5060, t5065, t5067, t5069, t5071;
2068   double t5073, t5076, t5077, t5079, t5080, t5084, t5085, t5086;
2069   double t5088, t5089, t5090, t5091, t5092, t5094, t5096, t5098;
2070   double t5099, t5100, t5101, t5103, t5106, t5107, t5108, t5110;
2071   double t5112, t5115, t5118, t5120, t5121, t5122, t5123, t5125;
2072   double t5127, t5129, t5131, t5133, t5135, t5139, t5141, t5143;
2073   double t5144, t5146, t5148, t5152, t5159, t5175, t5176, t5179;
2074   double t5182, t5188, t5189, t5192, t5194, t5196, t5198, t5199;
2075   double t5201, t5205, t5207, t5210, t5211, t5212, t5214, t5216;
2076   double t5217, t5218, t5220, t5222, t5224, t5226, t5230, t5232;
2077   double t5234, t5236, t5238, t5239, t5243, t5246, t5248, t5249;
2078   double t5251, t5252, t5255, t5259, t5260, t5261, t5263, t5265;
2079   double t5266, t5268, t5271, t5274, t5276, t5290, t5294, t5301;
2080   double t5317, t5320, t5323, t5329, t5330, t5334, t5342, t5353;
2081   double t5354, t5358, t5361, t5363, t5365, t5367, t5369, t5370;
2082   double t5371, t5373, t5376, t5378, t5379, t5380, t5381, t5382;
2083   double t5384, t5386, t5387, t5389, t5392, t5394, t5402, t5403;
2084   double t5404, t5405, t5406, t5407, t5408, t5409, t5411, t5413;
2085   double t5416, t5418, t5420, t5423, t5425, t5427, t5448, t5451;
2086   double t5454, t5457, t5458, t5460, t5462, t5463, t5465, t5466;
2087   double t5469, t5471, t5473, t5476, t5478, t5480, t5483, t5485;
2088   double t5487, t5491, t5494, t5495, t5496, t5497, t5498, t5499;
2089   double t5501, t5502, t5503, t5504, t5505, t5506, t5507, t5508;
2090   double t5509, t5510, t5512, t5513, t5514, t5515, t5517, t5518;
2091   double t5519, t5520, t5521, t5522, t5523, t5525, t5526, t5527;
2092   double t5528, t5529, t5530, t5532, t5533, t5534, t5535, t5536;
2093   double t5538, t5539, t5541, t5542, t5543, t5553, t5554, t5555;
2094   double t5556, t5557, t5558, t5560, t5561, t5563, t5564, t5565;
2095   double t5566, t5568, t5569, t5571, t5572, t5573, t5574, t5575;
2096   double t5576, t5577, t5589, t5610, t5613, t5616, t5635, t5639;
2097   double t5642, t5643, t5644, t5646, t5647, t5649, t5650, t5651;
2098   double t5652, t5653, t5654, t5655, t5658, t5660, t5661, t5663;
2099   double t5664, t5667, t5668, t5670, t5672, t5673, t5675, t5676;
2100   double t5678, t5679, t5681, t5683, t5684, t5697, t5698, t5701;
2101   double t5704, t5705, t5706, t5708, t5709, t5710, t5711, t5712;
2102   double t5713, t5715, t5716, t5717, t5718, t5720, t5721, t5722;
2103   double t5723, t5724, t5726, t5729, t5730, t5731, t5733, t5734;
2104   double t5735, t5737, t5738, t5740, t5741, t5742, t5744, t5745;
2105   double t5746, t5747, t5748, t5750, t5751, t5752, t5753, t5754;
2106   double t5755, t5757, t5758, t5759, t5760, t5761, t5762, t5763;
2107   double t5764, t5765, t5767, t5768, t5769, t5770, t5771, t5772;
2108   double t5773, t5774, t5776, t5778, t5779, t5780, t5782, t5784;
2109   double t5785, t5786, t5787, t5788, t5790, t5792, t5793, t5795;
2110   double t5816, t5817, t5820, t5823, t5829, t5831, t5834, t5835;
2111   double t5836, t5838, t5839, t5840, t5842, t5843, t5845, t5846;
2112   double t5847, t5849, t5850, t5852, t5853, t5854, t5855, t5856;
2113   double t5857, t5858, t5859, t5860, t5861, t5862, t5864, t5866;
2114   double t5867, t5869, t5883, t5884, t5887, t5893, t5895, t5898;
2115   double t5899, t5900, t5902, t5903, t5904, t5906, t5907, t5909;
2116   double t5910, t5911, t5913, t5914, t5915, t5916, t5917, t5918;
2117   double t5919, t5920, t5921, t5922, t5923, t5926, t5927, t5930;
2118   double t5931, t5934, t5935, t5938, t5939, t5952, t5955, t5958;
2119   double t5959, t5960, t5962, t5963, t5964, t5966, t5968, t5970;
2120   double t5973, t5974, t5976, t5977, t5979, t5980, t5982, t5983;
2121   double t5985, t5986, t5987, t5988, t5989, t5990, t5991, t5992;
2122   double t5993, t5994, t5995, t5996, t5998, t5999, t6000, t6001;
2123   double t6002, t6005, t6006, t6028, t6029, t6032, t6035, t6042;
2124   double t6045, t6046, t6048, t6049, t6050, t6052, t6053, t6055;
2125   double t6056, t6057, t6059, t6060, t6062, t6063, t6064, t6065;
2126   double t6066, t6067, t6068, t6071, t6072, t6087, t6090, t6097;
2127   double t6100, t6101, t6103, t6104, t6106, t6107, t6109, t6110;
2128   double t6112, t6113, t6114, t6115, t6116, t6117, t6118, t6121;
2129   double t6122, t6127, t6128, t6129, t6131, t6135, t6136, t6137;
2130   double t6139, t6143, t6146, t6147, t6151, t6152, t6153, t6154;
2131   double t6155, t6157, t6158, t6160, t6164, t6166, t6167, t6168;
2132   double t6169, t6171, t6174, t6175, t6176, t6177, t6178, t6180;
2133   double t6181, t6182, t6184, t6185, t6186, t6188, t6189, t6190;
2134   double t6191, t6192, t6194, t6198, t6201, t6204, t6207, t6208;
2135   double t6209, t6218, t6224, t6228, t6231, t6234, t6237, t6238;
2136   double t6239, t6246, t6251, t6255, t6258, t6259, t6263, t6264;
2137   double t6265, t6268, t6272;
2138 
2139 #ifndef XC_DONT_COMPILE_LXC
2140   double t6278, t6279, t6280, t6281, t6286, t6289, t6290, t6292;
2141   double t6295, t6297, t6299, t6302, t6304, t6306, t6308, t6309;
2142   double t6313, t6316, t6318, t6319, t6323, t6324, t6327, t6330;
2143   double t6334, t6336, t6344, t6346, t6348, t6350, t6352, t6355;
2144   double t6357, t6364, t6365, t6367, t6371, t6374, t6377, t6380;
2145   double t6382, t6392, t6393, t6399, t6404, t6406, t6411, t6412;
2146   double t6418, t6423, t6426, t6438, t6439, t6440, t6441, t6442;
2147   double t6443, t6444, t6453, t6458, t6459, t6460, t6461, t6463;
2148   double t6464, t6465, t6466, t6467, t6468, t6469, t6470, t6471;
2149   double t6472, t6473, t6474, t6475, t6476, t6481, t6484, t6485;
2150   double t6487, t6488, t6489, t6490, t6491, t6492, t6496, t6510;
2151   double t6514, t6517, t6521, t6528, t6530, t6532, t6533, t6535;
2152   double t6536, t6538, t6539, t6541, t6544, t6546, t6548, t6550;
2153   double t6553, t6562, t6567, t6569, t6582, t6590, t6596, t6601;
2154   double t6605, t6614, t6618, t6621, t6632, t6635, t6638, t6644;
2155   double t6658, t6659, t6665, t6677, t6698, t6702, t6717, t6722;
2156   double t6737, t6740, t6748, t6756, t6776, t6777, t6779, t6780;
2157   double t6794, t6801, t6805, t6806, t6807, t6808, t6815, t6817;
2158   double t6818, t6821, t6822, t6829, t6834, t6835, t6838, t6839;
2159   double t6843, t6845, t6847, t6849, t6851, t6856, t6858, t6859;
2160   double t6860, t6861, t6862, t6863, t6864, t6865, t6866, t6867;
2161   double t6870, t6874, t6878, t6879, t6881, t6882, t6886, t6887;
2162   double t6888, t6889, t6890, t6894, t6902, t6903, t6904, t6905;
2163   double t6906, t6910, t6912, t6925, t6938, t6940, t6941, t6945;
2164   double t6948, t6950, t6951, t6953, t6956, t6957, t6981, t6987;
2165   double t6997, t7002, t7003, t7005, t7010, t7011, t7012, t7013;
2166   double t7014, t7015, t7019, t7020, t7022, t7024, t7026, t7028;
2167   double t7037, t7043, t7044, t7047, t7050, t7053, t7054, t7055;
2168   double t7058, t7061, t7065, t7067, t7068, t7069, t7070, t7071;
2169   double t7072, t7075, t7076, t7077, t7081, t7082, t7088, t7089;
2170   double t7090, t7093, t7094, t7096, t7097, t7106, t7107, t7108;
2171   double t7110, t7111, t7115, t7119, t7124, t7127, t7132, t7133;
2172   double t7135, t7136, t7139, t7140, t7142, t7144, t7145, t7146;
2173   double t7147, t7148, t7150, t7151, t7152, t7153, t7156, t7157;
2174   double t7160, t7163, t7164, t7171, t7174, t7179, t7186, t7187;
2175   double t7204, t7206, t7211, t7212, t7213, t7214, t7215, t7219;
2176   double t7223, t7224, t7226, t7230, t7232, t7234, t7236, t7239;
2177   double t7242, t7250, t7251, t7254, t7256, t7258, t7259, t7262;
2178   double t7264, t7266, t7267, t7270, t7271, t7275, t7276, t7280;
2179   double t7281, t7285, t7286, t7289, t7290, t7291, t7294, t7296;
2180   double t7297, t7300, t7302, t7304, t7305, t7308, t7311, t7312;
2181   double t7315, t7316, t7319, t7320, t7323, t7324, t7327, t7329;
2182   double t7331, t7332, t7335, t7336, t7340, t7341, t7344, t7346;
2183   double t7348, t7350, t7355, t7356, t7360, t7364, t7366, t7368;
2184   double t7369, t7370, t7372, t7376, t7379, t7381, t7382, t7383;
2185   double t7388, t7389, t7391, t7392, t7396, t7397, t7399, t7401;
2186   double t7403, t7411, t7415, t7419, t7421, t7422, t7424, t7425;
2187   double t7434, t7435, t7441, t7442, t7444, t7449, t7450, t7456;
2188   double t7460, t7467, t7477, t7478, t7479, t7487, t7494, t7496;
2189   double t7508, t7509, t7511, t7513, t7515, t7517, t7521, t7526;
2190   double t7532, t7534, t7538, t7554, t7555, t7557, t7562, t7573;
2191   double t7575, t7577, t7579, t7589, t7591, t7595, t7597, t7598;
2192   double t7599, t7612, t7620, t7631, t7633, t7643, t7646, t7650;
2193   double t7654, t7655, t7658, t7659, t7664, t7666, t7672, t7673;
2194   double t7681, t7683, t7688, t7690, t7692, t7693, t7702, t7703;
2195   double t7708, t7709, t7711, t7715, t7722, t7723, t7730, t7734;
2196   double t7745, t7775, t7776, t7778, t7780, t7782, t7785, t7786;
2197   double t7788, t7791, t7792, t7794, t7800, t7807, t7808, t7813;
2198   double t7816, t7817, t7824, t7843, t7844, t7849, t7854, t7859;
2199   double t7866, t7873, t7878, t7879, t7880, t7882, t7885, t7887;
2200   double t7888, t7889, t7890, t7891, t7893, t7898, t7904, t7905;
2201   double t7908, t7911, t7923, t7924, t7925, t7929, t7930, t7932;
2202   double t7933, t7934, t7940, t7943, t7944, t7945, t7946, t7949;
2203   double t7950, t7951, t7952, t7953, t7954, t7955, t7967, t7968;
2204   double t7969, t7971, t7976, t7978, t7979, t7980, t7981, t7983;
2205   double t7984, t7987, t7998, t8003, t8004, t8005, t8009, t8014;
2206   double t8015, t8019, t8021, t8022, t8023, t8024, t8026, t8037;
2207   double t8038, t8041, t8042, t8044, t8045, t8048, t8051, t8054;
2208   double t8074, t8078, t8080, t8086, t8090, t8094, t8098, t8104;
2209   double t8107, t8110, t8121, t8127, t8129, t8137, t8139, t8141;
2210   double t8143, t8144, t8145, t8146, t8148, t8150, t8152, t8154;
2211   double t8155, t8156, t8163, t8166, t8167, t8169, t8170, t8171;
2212   double t8172, t8173, t8174, t8175, t8176, t8177, t8178, t8182;
2213   double t8183, t8186, t8188, t8200, t8203, t8208, t8212, t8214;
2214   double t8222, t8223, t8226, t8227, t8229, t8231, t8233, t8237;
2215   double t8239, t8241, t8242, t8243, t8250, t8251, t8253, t8254;
2216   double t8255, t8256, t8259, t8260, t8261, t8262, t8263, t8265;
2217   double t8266, t8267, t8268, t8277, t8284, t8285, t8286, t8287;
2218   double t8288, t8289, t8290, t8291, t8292, t8296, t8300, t8301;
2219   double t8302, t8303, t8304, t8305, t8306, t8307, t8308, t8320;
2220   double t8328, t8329, t8332, t8333, t8335, t8336, t8337, t8338;
2221   double t8339, t8347, t8348, t8349, t8350, t8351, t8352, t8353;
2222   double t8355, t8360, t8361, t8362, t8363, t8364, t8365, t8366;
2223   double t8394, t8409, t8414, t8415, t8417, t8421, t8423, t8424;
2224   double t8429, t8430, t8438, t8446, t8466, t8479, t8482, t8483;
2225   double t8485, t8486, t8489, t8490, t8491, t8492, t8493, t8494;
2226   double t8495, t8496, t8497, t8498, t8499, t8500, t8501, t8502;
2227   double t8503, t8504, t8506, t8507, t8508, t8509, t8510, t8511;
2228   double t8512, t8514, t8516, t8517, t8518, t8519, t8520, t8521;
2229   double t8522, t8523, t8524, t8525, t8526, t8527, t8528, t8529;
2230   double t8530, t8531, t8532, t8533, t8534, t8535, t8536, t8537;
2231   double t8538, t8539, t8557, t8560, t8565, t8566, t8568, t8572;
2232   double t8573, t8582, t8583, t8584, t8587, t8589, t8590, t8591;
2233   double t8594, t8595, t8598, t8599, t8603, t8604, t8607, t8608;
2234   double t8618, t8632, t8633, t8638, t8639, t8640, t8645, t8650;
2235   double t8651, t8656, t8658, t8660, t8663, t8667, t8671, t8675;
2236   double t8680, t8681, t8682, t8684, t8686, t8692, t8694, t8696;
2237   double t8709, t8710, t8712, t8716, t8720, t8724, t8725, t8726;
2238   double t8728, t8730, t8732, t8734, t8736, t8737, t8738, t8740;
2239   double t8742, t8744, t8749, t8753, t8759, t8763, t8764, t8767;
2240   double t8768, t8771, t8772, t8776, t8777, t8780, t8782, t8785;
2241   double t8786, t8787, t8791, t8792, t8798, t8799, t8803, t8804;
2242   double t8807, t8808, t8811, t8812, t8813, t8816, t8818, t8819;
2243   double t8823, t8824, t8827, t8829, t8831, t8832, t8835, t8837;
2244   double t8838, t8841, t8843, t8844, t8847, t8848, t8852, t8853;
2245   double t8856, t8858, t8860, t8861, t8867, t8870, t8874, t8875;
2246   double t8876, t8878, t8879, t8885, t8887, t8890, t8891, t8895;
2247   double t8896, t8899, t8900, t8903, t8904, t8907, t8910, t8912;
2248   double t8916, t8918, t8927, t8937, t8938, t8958, t8973, t8984;
2249   double t8988, t8995, t9009, t9015, t9016, t9020, t9022, t9027;
2250   double t9029, t9033, t9037, t9041, t9042, t9049, t9054, t9058;
2251   double t9060, t9070, t9075, t9079, t9083, t9095, t9097, t9099;
2252   double t9100, t9103, t9110, t9111, t9112, t9131, t9133, t9135;
2253   double t9140, t9143, t9144, t9145, t9150, t9160, t9167, t9180;
2254   double t9187, t9191, t9196, t9200, t9201, t9205, t9206, t9210;
2255   double t9214, t9220, t9222, t9223, t9224, t9226, t9232, t9234;
2256   double t9236, t9240, t9241, t9247, t9256, t9257, t9258, t9269;
2257   double t9273, t9275, t9279, t9280, t9281, t9289, t9293, t9307;
2258   double t9309, t9310, t9314, t9316, t9318, t9322, t9329, t9333;
2259   double t9334, t9341, t9346, t9350, t9354, t9356, t9367, t9371;
2260   double t9373, t9377, t9378, t9382, t9391, t9396, t9400, t9407;
2261   double t9415, t9417, t9418, t9420, t9425, t9430, t9433, t9443;
2262   double t9449, t9450, t9459, t9460, t9464, t9466, t9470, t9474;
2263   double t9475, t9476, t9478, t9480, t9482, t9488, t9503, t9520;
2264   double t9538, t9545, t9548, t9549, t9550, t9552, t9553, t9554;
2265   double t9558, t9574, t9580, t9584, t9589, t9597, t9599, t9605;
2266   double t9607, t9611, t9613, t9614, t9615, t9616, t9617, t9621;
2267   double t9624, t9625, t9626, t9630, t9633, t9637, t9644, t9649;
2268   double t9651, t9657, t9658, t9659, t9675, t9688, t9704, t9711;
2269   double t9713, t9721, t9734, t9739, t9743, t9747, t9754, t9755;
2270   double t9757, t9758, t9760, t9763, t9764, t9765, t9780, t9793;
2271   double t9812, t9829, t9848, t9862, t9878, t9889, t9890, t9891;
2272   double t9892, t9893, t9895, t9897, t9898, t9899, t9900, t9904;
2273   double t9905, t9906, t9910, t9929, t9930, t9931, t9952, t9953;
2274   double t9954, t9956, t9958, t9965, t9989, t10009, t10016, t10017;
2275   double t10018, t10019, t10020, t10021, t10022, t10034, t10038, t10039;
2276   double t10044, t10049, t10050, t10052, t10053, t10054, t10057, t10058;
2277   double t10064, t10066, t10079, t10080, t10083, t10084, t10087, t10095;
2278   double t10096, t10098, t10099, t10109, t10115, t10119, t10120, t10121;
2279   double t10122, t10123, t10126, t10127, t10130, t10131, t10132, t10133;
2280   double t10134, t10139, t10140, t10141, t10148, t10151, t10155, t10157;
2281   double t10166, t10168, t10169, t10170, t10174, t10175, t10176, t10177;
2282   double t10184, t10185, t10186, t10187, t10232, t10233, t10235, t10236;
2283   double t10237, t10238, t10239, t10240, t10241, t10246, t10249, t10252;
2284   double t10253, t10256, t10260, t10261, t10262, t10263, t10268, t10275;
2285   double t10277, t10290, t10291, t10292, t10293, t10294, t10295, t10297;
2286   double t10299, t10302, t10304, t10305, t10307, t10309, t10310, t10311;
2287   double t10312, t10316, t10317, t10327, t10329, t10331, t10333, t10334;
2288   double t10338, t10339, t10340, t10341, t10346, t10348, t10350, t10351;
2289   double t10352, t10353, t10381, t10385, t10394, t10406, t10416, t10420;
2290   double t10422, t10424, t10425, t10428, t10430, t10433, t10434, t10437;
2291   double t10439, t10440, t10441, t10444, t10446, t10447, t10448, t10451;
2292   double t10452, t10456, t10457, t10471, t10475, t10479, t10483, t10485;
2293   double t10490, t10512, t10517, t10518, t10521, t10523, t10524, t10525;
2294   double t10528, t10529, t10533, t10534, t10538, t10539, t10542, t10545;
2295   double t10547, t10557, t10563, t10566, t10568, t10572, t10574, t10580;
2296   double t10582, t10584, t10587, t10588, t10591, t10593, t10594, t10597;
2297   double t10598, t10601, t10602, t10605, t10606, t10607, t10610, t10611;
2298   double t10615, t10616, t10619, t10622, t10623, t10627, t10628, t10632;
2299   double t10633, t10637, t10638, t10641, t10642, t10645, t10646, t10649;
2300   double t10651, t10654, t10655, t10658, t10659, t10662, t10663, t10666;
2301   double t10667, t10671, t10672, t10679, t10690, t10715, t10718, t10721;
2302   double t10723, t10725, t10726, t10730, t10734, t10738, t10742, t10744;
2303   double t10748, t10752, t10753, t10757, t10759, t10760, t10763, t10764;
2304   double t10767, t10771, t10773, t10775, t10785, t10786, t10787, t10794;
2305   double t10801, t10811, t10816, t10820, t10822, t10827, t10829, t10831;
2306   double t10834, t10835, t10845, t10846, t10848, t10849, t10852, t10853;
2307   double t10855, t10856, t10857, t10858, t10859, t10860, t10861, t10862;
2308   double t10863, t10864, t10865, t10866, t10867, t10868, t10869, t10870;
2309   double t10871, t10872, t10873, t10902, t10916, t10919, t10922, t10938;
2310   double t10939, t10941, t10945, t10951, t10955, t10959, t10961, t10963;
2311   double t10981, t10991, t11004, t11012, t11014, t11016, t11021, t11029;
2312   double t11031, t11036, t11046, t11048, t11050, t11052, t11059, t11067;
2313   double t11071, t11075, t11079, t11083, t11085, t11089, t11093, t11095;
2314   double t11100, t11102, t11104, t11117, t11126, t11127, t11152, t11162;
2315   double t11166, t11170, t11173, t11186, t11192, t11194, t11208, t11213;
2316   double t11219, t11223, t11227, t11228, t11234, t11257, t11265, t11267;
2317   double t11269, t11270, t11274, t11278, t11282, t11297, t11306, t11313;
2318   double t11320, t11331, t11336, t11339, t11341, t11345, t11349, t11365;
2319   double t11369, t11371, t11373, t11378, t11386, t11397, t11408, t11414;
2320   double t11420, t11426, t11454, t11460, t11462, t11464, t11466, t11488;
2321   double t11490, t11493, t11495, t11499, t11509, t11511, t11519, t11523;
2322   double t11539, t11544, t11555, t11557, t11559, t11561, t11575, t11577;
2323   double t11584, t11586, t11592, t11594, t11596, t11619, t11621, t11637;
2324   double t11655, t11672, t11687, t11702, t11714, t11716, t11724, t11725;
2325   double t11727, t11739, t11742, t11752, t11754, t11756, t11769, t11772;
2326   double t11781, t11786, t11787, t11795, t11800, t11804, t11818, t11835;
2327   double t11848, t11854, t11861, t11869, t11878, t11884, t11889, t11890;
2328   double t11893, t11894, t11898, t11902, t11910, t11912, t11924, t11934;
2329   double t11939, t11948, t11951, t11961, t11969, t11972, t11980, t11983;
2330   double t11984, t11986, t11988, t11994, t11995, t12003, t12004, t12005;
2331   double t12009, t12010, t12011, t12017, t12022, t12027, t12029, t12031;
2332   double t12032, t12033, t12037, t12041, t12049, t12053, t12057, t12091;
2333   double t12097, t12098, t12100, t12101, t12102, t12103, t12104, t12105;
2334   double t12109, t12111, t12113, t12117, t12128, t12133, t12137, t12138;
2335   double t12142, t12150, t12152, t12153, t12156, t12161, t12181, t12182;
2336   double t12183, t12184, t12188, t12203, t12205, t12220, t12232, t12242;
2337   double t12251, t12257, t12258, t12259, t12260, t12261, t12262, t12268;
2338   double t12271, t12273, t12274, t12284, t12285, t12286, t12289, t12290;
2339   double t12296, t12300, t12304, t12308, t12324, t12328, t12329, t12333;
2340   double t12334, t12337, t12338, t12339, t12342, t12343, t12344, t12347;
2341   double t12348, t12349, t12352, t12353, t12356, t12357, t12360, t12361;
2342   double t12365, t12367, t12368, t12369, t12372, t12373, t12376, t12377;
2343   double t12380, t12381, t12385, t12386, t12389, t12390, t12393, t12395;
2344   double t12397, t12399, t12401, t12405, t12409, t12413, t12417, t12438;
2345   double t12447, t12448, t12450, t12451, t12454, t12455, t12457, t12458;
2346   double t12459, t12460, t12461, t12462, t12463, t12464, t12465, t12466;
2347   double t12467, t12468, t12469, t12470, t12477, t12529, t12530, t12532;
2348   double t12539, t12544, t12549, t12552, t12556, t12560, t12564, t12569;
2349   double t12571, t12573, t12575, t12577, t12605, t12613, t12632, t12633;
2350   double t12636, t12637, t12640, t12641, t12644, t12645, t12646, t12649;
2351   double t12650, t12654, t12655, t12658, t12659, t12663, t12664, t12668;
2352   double t12669, t12673, t12676, t12681, t12682, t12690, t12692, t12701;
2353   double t12719, t12721, t12723, t12726, t12727, t12730, t12731, t12734;
2354   double t12735, t12738, t12739, t12740, t12743, t12748, t12755, t12762;
2355   double t12796, t12820, t12825, t12832, t12834, t12836, t12842, t12863;
2356   double t12872, t12874, t12877, t12892, t12899, t12903, t12907, t12911;
2357   double t12915, t12925, t12929, t12932, t12938, t12942, t12943, t12950;
2358   double t12952, t12954, t12956, t12960, t12986, t12993, t13019, t13042;
2359   double t13070, t13072, t13074, t13076, t13077, t13079, t13081, t13083;
2360   double t13085, t13103, t13109, t13111, t13113, t13119, t13121, t13125;
2361   double t13131, t13134, t13138, t13142, t13157, t13161, t13165, t13169;
2362   double t13173, t13176, t13180, t13213, t13217, t13218, t13228, t13232;
2363   double t13248, t13250, t13258, t13280, t13302, t13310, t13319, t13328;
2364   double t13334, t13345, t13356, t13372, t13379, t13390, t13404, t13413;
2365   double t13415, t13417, t13418, t13426, t13431, t13437, t13440, t13445;
2366   double t13450, t13454, t13456, t13459, t13467, t13479, t13483, t13484;
2367   double t13496, t13524, t13535, t13540, t13556, t13557, t13561, t13562;
2368   double t13565, t13566, t13569, t13570, t13573, t13574, t13577, t13578;
2369   double t13581, t13582, t13585, t13586, t13587, t13590, t13591, t13600;
2370   double t13601, t13604, t13605, t13613, t13614, t13615, t13619, t13623;
2371   double t13624, t13628, t13629, t13632, t13633, t13636, t13641, t13645;
2372   double t13646, t13647, t13651, t13655, t13659, t13660, t13662, t13663;
2373   double t13664, t13665, t13666, t13667, t13668, t13669, t13670, t13671;
2374   double t13672, t13673, t13676, t13677, t13678, t13679, t13680, t13681;
2375   double t13682, t13683, t13684, t13685, t13686, t13688, t13689, t13690;
2376   double t13691, t13692, t13693, t13694, t13696, t13697, t13698, t13699;
2377   double t13700, t13701, t13720, t13736, t13738, t13744, t13748, t13751;
2378   double t13759, t13763, t13767, t13772, t13773, t13776, t13777, t13780;
2379   double t13781, t13794, t13797, t13806, t13829, t13836, t13868, t13900;
2380   double t13933, t13938, t13957, t13972, t13996, t14027, t14050, t14054;
2381   double t14058, t14059, t14066, t14087, t14094, t14107, t14115, t14121;
2382   double t14126, t14130, t14140, t14148, t14160, t14169, t14188, t14199;
2383   double t14213, t14223, t14230, t14239, t14241, t14242, t14244, t14248;
2384   double t14249, t14251, t14252, t14255, t14256, t14258, t14261, t14263;
2385   double t14264, t14265, t14267, t14269, t14270, t14271, t14273, t14274;
2386   double t14278, t14280, t14283, t14291, t14292, t14295, t14307, t14312;
2387   double t14316, t14319, t14321, t14329, t14330, t14337, t14340, t14341;
2388   double t14344, t14345, t14348, t14349, t14354, t14355, t14356, t14357;
2389   double t14358, t14360, t14362, t14366, t14367, t14369, t14371, t14375;
2390   double t14376, t14377, t14381, t14385, t14389, t14391, t14396, t14398;
2391   double t14400, t14403, t14406, t14408, t14410, t14412, t14415, t14416;
2392   double t14419, t14420, t14422, t14423, t14431, t14435, t14458, t14459;
2393   double t14461, t14462, t14463, t14465, t14467, t14468, t14470, t14472;
2394   double t14474, t14475, t14478, t14479, t14481, t14483, t14485, t14487;
2395   double t14489, t14491, t14492, t14494, t14495, t14496, t14498, t14500;
2396   double t14502, t14505, t14507, t14509, t14511, t14512, t14514, t14516;
2397   double t14518, t14520, t14522, t14524, t14526, t14528, t14541, t14545;
2398   double t14552, t14554, t14556, t14558, t14560, t14562, t14564, t14566;
2399   double t14568, t14571, t14572, t14574, t14576, t14579, t14581, t14584;
2400   double t14586, t14589, t14590, t14593, t14594, t14596, t14598, t14600;
2401   double t14602, t14604, t14606, t14608, t14610, t14612, t14614, t14615;
2402   double t14616, t14618, t14621, t14623, t14627, t14628, t14631, t14632;
2403   double t14634, t14636, t14638, t14640, t14641, t14645, t14646, t14648;
2404   double t14651, t14653, t14657, t14658, t14660, t14662, t14664, t14666;
2405   double t14667, t14669, t14671, t14673, t14679, t14685, t14691, t14692;
2406   double t14694, t14697, t14709, t14712, t14717, t14720, t14723, t14725;
2407   double t14735, t14737, t14739, t14740, t14741, t14743, t14750, t14751;
2408   double t14760, t14762, t14765, t14769, t14779, t14782, t14784, t14785;
2409   double t14794, t14795, t14814, t14815, t14823, t14827, t14847, t14854;
2410   double t14883, t14890, t14897, t14904, t14910, t14922, t14923, t14937;
2411   double t14953, t14958, t14973, t14986, t14989, t14999, t15001, t15012;
2412   double t15024, t15035, t15037, t15045, t15047, t15050, t15052, t15053;
2413   double t15065, t15067, t15068, t15069, t15070, t15071, t15072, t15073;
2414   double t15074, t15075, t15076, t15078, t15087, t15089, t15090, t15093;
2415   double t15097, t15099, t15100, t15104, t15108, t15113, t15120, t15121;
2416   double t15123, t15124, t15127, t15128, t15129, t15132, t15135, t15138;
2417   double t15139, t15143, t15147, t15151, t15152, t15154, t15156, t15169;
2418   double t15171, t15173, t15174, t15175, t15177, t15178, t15186, t15187;
2419   double t15191, t15193, t15194, t15197, t15199, t15200, t15202, t15203;
2420   double t15204, t15205, t15206, t15207, t15208, t15209, t15211, t15213;
2421   double t15214, t15217, t15219, t15224, t15231, t15232, t15234, t15235;
2422   double t15236, t15237, t15241, t15244, t15248, t15249, t15250, t15251;
2423   double t15252, t15253, t15257, t15262, t15267, t15270, t15271, t15275;
2424   double t15280, t15285, t15289, t15292, t15304, t15306, t15311, t15314;
2425   double t15317, t15319, t15329, t15332, t15333, t15344, t15346, t15347;
2426   double t15348, t15350, t15351, t15357, t15375, t15376, t15377, t15379;
2427   double t15381, t15383, t15384, t15386, t15388, t15390, t15392, t15394;
2428   double t15395, t15396, t15399, t15400, t15401, t15404, t15406, t15407;
2429   double t15409, t15411, t15414, t15416, t15418, t15419, t15420, t15422;
2430   double t15424, t15426, t15428, t15429, t15430, t15432, t15434, t15435;
2431   double t15436, t15437, t15438, t15440, t15442, t15444, t15446, t15448;
2432   double t15450, t15452, t15454, t15455, t15456, t15459, t15460, t15462;
2433   double t15463, t15464, t15466, t15467, t15472, t15484, t15488, t15496;
2434   double t15510, t15518, t15546, t15551, t15553, t15556, t15558, t15559;
2435   double t15561, t15563, t15565, t15567, t15569, t15571, t15573, t15575;
2436   double t15576, t15577, t15579, t15581, t15583, t15584, t15585, t15586;
2437   double t15587, t15589, t15592, t15595, t15597, t15600, t15602, t15604;
2438   double t15606, t15608, t15609, t15610, t15611, t15613, t15617, t15618;
2439   double t15619, t15621, t15623, t15624, t15625, t15627, t15629, t15633;
2440   double t15636, t15638, t15641, t15643, t15645, t15647, t15649, t15651;
2441   double t15653, t15654, t15655, t15658, t15659, t15664, t15665, t15667;
2442   double t15669, t15670, t15671, t15673, t15675, t15677, t15679, t15681;
2443   double t15683, t15685, t15687, t15689, t15692, t15694, t15696, t15698;
2444   double t15699, t15700, t15701, t15702, t15704, t15706, t15707, t15708;
2445   double t15720, t15724, t15730, t15733, t15735, t15737, t15738, t15745;
2446   double t15749, t15751, t15752, t15754, t15755, t15758, t15759, t15760;
2447   double t15765, t15766, t15767, t15768, t15769, t15771, t15772, t15773;
2448   double t15774, t15778, t15781, t15791, t15793, t15794, t15797, t15800;
2449   double t15807, t15809, t15810, t15818, t15825, t15827, t15829, t15830;
2450   double t15831, t15832, t15833, t15836, t15841, t15842, t15846, t15848;
2451   double t15852, t15861, t15872, t15873, t15877, t15881, t15891, t15908;
2452   double t15910, t15915, t15922, t15923, t15958, t15979, t15986, t15990;
2453   double t15996, t15998, t16002, t16004, t16008, t16013, t16017, t16019;
2454   double t16021, t16025, t16033, t16039, t16046, t16063, t16070, t16075;
2455   double t16080, t16083, t16091, t16092, t16095, t16100, t16112, t16121;
2456   double t16124, t16137, t16138, t16141, t16142, t16151, t16171, t16175;
2457   double t16186, t16187, t16194, t16195, t16196, t16203, t16204, t16205;
2458   double t16209, t16212, t16217, t16218, t16219, t16220, t16221, t16222;
2459   double t16223, t16226, t16228, t16230, t16233, t16234, t16235, t16236;
2460   double t16237, t16238, t16239, t16240, t16241, t16242, t16243, t16245;
2461   double t16247, t16248, t16250, t16251, t16253, t16262, t16265, t16269;
2462   double t16274, t16275, t16279, t16281, t16283, t16288, t16290, t16294;
2463   double t16301, t16305, t16309, t16311, t16313, t16317, t16321, t16326;
2464   double t16341, t16352, t16354, t16356, t16358, t16360, t16362, t16364;
2465   double t16366, t16369, t16371, t16372, t16374, t16376, t16378, t16380;
2466   double t16382, t16384, t16386, t16388, t16391, t16394, t16397, t16399;
2467   double t16401, t16403, t16405, t16407, t16410, t16412, t16414, t16418;
2468   double t16419, t16421, t16423, t16425, t16427, t16429, t16432, t16449;
2469   double t16458, t16470, t16486, t16490, t16493, t16495, t16497, t16499;
2470   double t16502, t16505, t16507, t16509, t16511, t16513, t16515, t16518;
2471   double t16520, t16523, t16525, t16528, t16530, t16532, t16534, t16536;
2472   double t16538, t16540, t16542, t16544, t16547, t16550, t16552, t16555;
2473   double t16557, t16559, t16561, t16563, t16569, t16571, t16573, t16575;
2474   double t16577, t16579, t16581, t16583, t16585, t16586, t16588, t16590;
2475   double t16592, t16594, t16596, t16598, t16600, t16602, t16604, t16606;
2476   double t16608, t16610, t16612, t16614, t16616, t16618, t16620, t16626;
2477   double t16654, t16661, t16664, t16666, t16673, t16675, t16676, t16681;
2478   double t16691, t16692, t16693, t16696, t16698, t16700, t16702, t16706;
2479   double t16708, t16711, t16715, t16720, t16722, t16726, t16734, t16736;
2480   double t16739, t16743, t16747, t16749, t16757, t16762, t16764, t16767;
2481   double t16771, t16772, t16783, t16792, t16795, t16797, t16799, t16802;
2482   double t16810, t16812, t16822, t16827, t16831, t16833, t16836, t16851;
2483   double t16857, t16866, t16894, t16920, t16929, t16947, t16981, t17017;
2484   double t17028, t17041, t17052, t17062, t17088, t17105, t17121, t17139;
2485   double t17166, t17179, t17188, t17197, t17209, t17213, t17220, t17235;
2486   double t17247, t17254, t17258, t17263, t17276, t17279, t17287, t17295;
2487   double t17298, t17304, t17307, t17309, t17311, t17316, t17320, t17324;
2488   double t17328, t17332, t17336, t17358, t17367, t17370, t17372, t17374;
2489   double t17376, t17378, t17380, t17382, t17384, t17386, t17388, t17390;
2490   double t17392, t17394, t17397, t17399, t17410, t17412, t17414, t17431;
2491   double t17433, t17436, t17438, t17440, t17442, t17444, t17446, t17448;
2492   double t17450, t17452, t17453, t17455, t17459, t17461, t17463, t17469;
2493   double t17474, t17477, t17479, t17483, t17486, t17488, t17489, t17491;
2494   double t17493, t17499, t17501, t17504, t17507, t17510, t17512, t17536;
2495   double t17547, t17551, t17553, t17558, t17562, t17579, t17595, t17601;
2496   double t17615, t17640, t17662, t17694, t17770, t17782, t17794, t17807;
2497   double t17829, t17845, t17856, t17871, t17879, t17882, t17887, t17891;
2498   double t17892, t17893, t17894, t17895, t17900, t17901, t17902, t17912;
2499   double t17920, t17921, t17924, t17925, t17926, t17927, t17932, t17933;
2500   double t17934, t17936, t17937, t17938, t17940, t17948, t17952, t17956;
2501   double t17957, t17958, t17959, t17963, t17965, t17979, t17980, t17984;
2502   double t17988, t17992, t17993, t17996, t17998, t18000, t18001, t18003;
2503   double t18006, t18010, t18014, t18016, t18018, t18019, t18020, t18022;
2504   double t18024, t18025, t18031, t18032, t18033, t18036, t18038, t18040;
2505   double t18042, t18043, t18044, t18046, t18047, t18049, t18051, t18055;
2506   double t18056, t18061, t18066, t18069, t18070, t18071, t18072, t18074;
2507   double t18075, t18077, t18078, t18079, t18082, t18084, t18089, t18090;
2508   double t18091, t18095, t18097, t18101, t18102, t18108, t18111, t18116;
2509   double t18117, t18123, t18124, t18126, t18129, t18131, t18141, t18149;
2510   double t18151, t18154, t18156, t18158, t18159, t18160, t18165, t18166;
2511   double t18167, t18169, t18174, t18175, t18176, t18178, t18179, t18180;
2512   double t18183, t18186, t18187, t18191, t18196, t18199, t18201, t18204;
2513   double t18205, t18206, t18207, t18209, t18211, t18216, t18226, t18233;
2514   double t18234, t18235, t18239, t18240, t18241, t18245, t18246, t18247;
2515   double t18286, t18288, t18311, t18323, t18332, t18333, t18341, t18361;
2516   double t18370, t18374, t18378, t18391, t18395, t18397, t18398, t18400;
2517   double t18402, t18405, t18427, t18438, t18439, t18440, t18441, t18445;
2518   double t18463, t18484, t18498, t18513, t18520, t18521, t18528, t18541;
2519   double t18551, t18552, t18553, t18561, t18565, t18569, t18576, t18606;
2520   double t18612, t18615, t18617, t18618, t18622, t18626, t18633, t18637;
2521   double t18644, t18647, t18649, t18658, t18661, t18663, t18667, t18669;
2522   double t18673, t18687, t18689, t18704, t18706, t18711, t18723, t18724;
2523   double t18728, t18731, t18734, t18736, t18740, t18742, t18745, t18753;
2524   double t18755, t18758, t18762, t18764, t18770, t18775, t18780, t18793;
2525   double t18796, t18801, t18808, t18813, t18818, t18819, t18821, t18823;
2526   double t18826, t18828, t18834, t18842, t18844, t18846, t18850, t18852;
2527   double t18854, t18857, t18860, t18863, t18866, t18870, t18873, t18878;
2528   double t18880, t18884, t18885, t18887, t18890, t18897, t18899, t18900;
2529   double t18903, t18905, t18907, t18910, t18914, t18916, t18917, t18919;
2530   double t18923, t18925, t18930, t18935, t18946, t18950, t18952, t18959;
2531   double t18963, t18964, t18968, t18987, t18991, t18992, t19001, t19005;
2532   double t19016, t19017, t19019, t19033, t19035, t19088, t19109, t19117;
2533   double t19126, t19136, t19158, t19181, t19197, t19199, t19220, t19232;
2534   double t19233, t19237, t19238, t19252, t19253, t19254, t19284, t19285;
2535   double t19290, t19298, t19299, t19328, t19358, t19378, t19379, t19403;
2536   double t19405, t19412, t19418, t19422, t19433, t19445, t19446, t19450;
2537   double t19458, t19463, t19470, t19472, t19476, t19486, t19488, t19495;
2538   double t19499, t19503, t19505, t19507, t19511, t19517, t19530, t19535;
2539   double t19540, t19544, t19547, t19549, t19552, t19555, t19558, t19562;
2540   double t19564, t19567, t19569, t19571, t19574, t19576, t19580, t19584;
2541   double t19588, t19596, t19613, t19616, t19620, t19625, t19627, t19628;
2542   double t19638, t19646, t19650, t19654, t19668, t19670, t19681, t19700;
2543   double t19724, t19756, t19780, t19802, t19816, t19849, t19869, t19899;
2544   double t19914, t19939, t19953, t19960, t19974, t19992, t20034, t20045;
2545   double t20052, t20054, t20055, t20056, t20059, t20062, t20066, t20077;
2546   double t20079, t20080, t20082, t20083, t20085, t20086, t20087, t20088;
2547   double t20089, t20094, t20102, t20105, t20106, t20107, t20111, t20115;
2548   double t20116, t20118, t20119, t20120, t20121, t20123, t20129, t20145;
2549   double t20152, t20156, t20157, t20158, t20159, t20162, t20163, t20164;
2550   double t20169, t20170, t20173, t20174, t20175, t20178, t20185, t20186;
2551   double t20190, t20192, t20194, t20198, t20200, t20201, t20202, t20203;
2552   double t20204, t20205, t20208, t20210, t20211, t20212, t20213, t20214;
2553   double t20217, t20221, t20222, t20223, t20224, t20225, t20226, t20229;
2554   double t20230, t20232, t20233, t20234, t20235, t20238, t20239, t20240;
2555   double t20241, t20242, t20243, t20247, t20249, t20253, t20254, t20257;
2556   double t20258, t20259, t20260, t20261, t20262, t20265, t20266, t20267;
2557   double t20268, t20270, t20271, t20272, t20273, t20275, t20276, t20278;
2558   double t20279, t20283, t20287, t20289, t20291, t20293, t20295, t20297;
2559   double t20299, t20300, t20307, t20313, t20316, t20319, t20322, t20326;
2560   double t20329, t20333, t20337, t20338, t20342, t20345, t20349, t20352;
2561   double t20353, t20354, t20355, t20356, t20357, t20358, t20359, t20360;
2562   double t20361, t20364, t20375, t20376, t20390, t20392, t20395, t20410;
2563   double t20416, t20426, t20433, t20463, t20477, t20479, t20481, t20483;
2564   double t20485, t20488, t20493, t20507, t20508, t20513, t20524, t20526;
2565   double t20532, t20550, t20557, t20561, t20563, t20565, t20567, t20569;
2566   double t20571, t20579, t20582, t20584, t20591, t20595, t20596, t20605;
2567   double t20609, t20612, t20616, t20627, t20629, t20631, t20633, t20634;
2568   double t20646, t20648, t20649, t20653, t20655, t20657, t20658, t20660;
2569   double t20690, t20692, t20696, t20701, t20703, t20721, t20724, t20730;
2570   double t20737, t20738, t20742, t20743, t20744, t20745, t20746, t20747;
2571   double t20749, t20750, t20751, t20754, t20755, t20757, t20759, t20762;
2572   double t20764, t20768, t20769, t20770, t20771, t20775, t20777, t20779;
2573   double t20780, t20781, t20783, t20786, t20787, t20789, t20791, t20792;
2574   double t20804, t20807, t20810, t20813, t20817, t20820, t20824, t20828;
2575   double t20829, t20833, t20836, t20840, t20843, t20844, t20845, t20846;
2576   double t20847, t20848, t20882, t20894, t20907, t20943, t20961, t20981;
2577   double t20997, t21033, t21039, t21044, t21054, t21055, t21060, t21061;
2578   double t21066, t21067, t21071, t21074, t21075, t21081, t21082, t21084;
2579   double t21086, t21092, t21093, t21100, t21113, t21118, t21124, t21139;
2580   double t21143, t21144, t21145, t21148, t21150, t21152, t21153, t21154;
2581   double t21158, t21159, t21160, t21163, t21164, t21165, t21168, t21169;
2582   double t21175, t21178, t21179, t21182, t21185, t21188, t21189, t21192;
2583   double t21193, t21194, t21198, t21200, t21204, t21205, t21208, t21210;
2584   double t21213, t21214, t21215, t21218, t21220, t21222, t21223, t21224;
2585   double t21231, t21234, t21237, t21238, t21242, t21246, t21252, t21255;
2586   double t21256, t21257, t21258, t21260, t21262, t21269, t21272, t21274;
2587   double t21276, t21277, t21284, t21287, t21290, t21294, t21296, t21300;
2588   double t21301, t21302, t21304, t21306, t21312, t21323, t21340, t21345;
2589   double t21361, t21377, t21385, t21391;
2590 #endif
2591 
2592 #endif
2593 
2594 #endif
2595 
2596 #endif
2597 
2598 #endif
2599 
2600 
2601 
2602   t1 = M_CBRT3;
2603   t2 = 0.1e1 / M_PI;
2604   t3 = POW_1_3(t2);
2605   t4 = t1 * t3;
2606   t5 = M_CBRT4;
2607   t6 = t5 * t5;
2608   t7 = rho[0] + rho[1];
2609   t8 = POW_1_3(t7);
2610   t11 = t4 * t6 / t8;
2611   t13 = 0.1e1 + 0.53425000000000000000e-1 * t11;
2612   t14 = sqrt(t11);
2613   t17 = POW_3_2(t11);
2614   t19 = t1 * t1;
2615   t20 = t3 * t3;
2616   t21 = t19 * t20;
2617   t22 = t8 * t8;
2618   t25 = t21 * t5 / t22;
2619   t27 = 0.37978500000000000000e1 * t14 + 0.89690000000000000000e0 * t11 + 0.20477500000000000000e0 * t17 + 0.12323500000000000000e0 * t25;
2620   t30 = 0.1e1 + 0.16081824322151104822e2 / t27;
2621   t31 = log(t30);
2622   t33 = 0.62182e-1 * t13 * t31;
2623   t34 = rho[0] - rho[1];
2624   t35 = t34 * t34;
2625   t36 = t35 * t35;
2626   t37 = t7 * t7;
2627   t38 = t37 * t37;
2628   t39 = 0.1e1 / t38;
2629   t40 = t36 * t39;
2630   t41 = 0.1e1 / t7;
2631   t42 = t34 * t41;
2632   t43 = 0.1e1 + t42;
2633   t44 = POW_1_3(t43);
2634   t45 = t44 * t43;
2635   t46 = 0.1e1 - t42;
2636   t47 = POW_1_3(t46);
2637   t48 = t47 * t46;
2638   t49 = t45 + t48 - 0.2e1;
2639   t50 = M_CBRT2;
2640   t53 = 0.1e1 / (0.2e1 * t50 - 0.2e1);
2641   t54 = t49 * t53;
2642   t56 = 0.1e1 + 0.51370000000000000000e-1 * t11;
2643   t61 = 0.70594500000000000000e1 * t14 + 0.15494250000000000000e1 * t11 + 0.42077500000000000000e0 * t17 + 0.15629250000000000000e0 * t25;
2644   t64 = 0.1e1 + 0.32164683177870697974e2 / t61;
2645   t65 = log(t64);
2646   t69 = 0.1e1 + 0.27812500000000000000e-1 * t11;
2647   t74 = 0.51785000000000000000e1 * t14 + 0.90577500000000000000e0 * t11 + 0.11003250000000000000e0 * t17 + 0.12417750000000000000e0 * t25;
2648   t77 = 0.1e1 + 0.29608574643216675549e2 / t74;
2649   t78 = log(t77);
2650   t79 = t69 * t78;
2651   t81 = -0.31090e-1 * t56 * t65 + t33 - 0.19751789702565206229e-1 * t79;
2652   t82 = t54 * t81;
2653   t83 = t40 * t82;
2654   t85 = 0.19751789702565206229e-1 * t54 * t79;
2655   t86 = M_PI * M_PI;
2656   t87 = POW_1_3(t86);
2657   t88 = t87 * t87;
2658   t89 = t19 * t88;
2659   t90 = t44 * t44;
2660   t91 = t47 * t47;
2661   t93 = t90 / 0.2e1 + t91 / 0.2e1;
2662   t94 = t93 * t93;
2663   t95 = t94 * t93;
2664   t96 = 0.1e1 / t87;
2665   t97 = t19 * t96;
2666   t99 = sigma[0] + 0.2e1 * sigma[1] + sigma[2];
2667   t101 = 0.1e1 / t8 / t37;
2668   t102 = t99 * t101;
2669   t103 = t102 * t50;
2670   t104 = 0.1e1 / t94;
2671   t106 = 0.1e1 / t3;
2672   t107 = t106 * t5;
2673   t108 = t104 * t19 * t107;
2674   t111 = -t33 + t83 + t85;
2675   t112 = 0.1e1 / t95;
2676   t114 = 0.1e1 / t88;
2677   t115 = t1 * t114;
2678   t118 = exp(-0.12897460341341234505e3 * t111 * t112 * t115);
2679   t119 = t118 - 0.1e1;
2680   t120 = 0.1e1 / t119;
2681   t121 = t96 * t120;
2682   t122 = t99 * t99;
2683   t124 = 0.1e1 / t22 / t38;
2684   t125 = t122 * t124;
2685   t126 = t121 * t125;
2686   t127 = t50 * t50;
2687   t128 = t94 * t94;
2688   t129 = 0.1e1 / t128;
2689   t130 = t127 * t129;
2690   t131 = 0.1e1 / t20;
2691   t132 = t131 * t6;
2692   t133 = t130 * t132;
2693   t136 = t103 * t108 / 0.96e2 + 0.27166129655589868296e-2 * t126 * t133;
2694   t137 = t1 * t96;
2695   t138 = t120 * t99;
2696   t139 = t137 * t138;
2697   t140 = t101 * t50;
2698   t141 = t104 * t106;
2699   t142 = t141 * t5;
2700   t146 = t19 * t114;
2701   t147 = t119 * t119;
2702   t148 = 0.1e1 / t147;
2703   t149 = t148 * t122;
2704   t150 = t146 * t149;
2705   t151 = t124 * t127;
2706   t152 = t129 * t131;
2707   t153 = t152 * t6;
2708   t154 = t151 * t153;
2709   t157 = 0.1e1 + 0.86931614897887578546e-1 * t139 * t140 * t142 + 0.75571056687546295931e-2 * t150 * t154;
2710   t158 = 0.1e1 / t157;
2711   t162 = 0.1e1 + 0.27818116767324025134e1 * t97 * t136 * t158;
2712   t163 = log(t162);
2713   t166 = 0.25844881434903430496e-2 * t89 * t95 * t163;
2714   t167 = t2 * t87;
2715   t170 = 0.2568e1 + 0.58165000000000000000e1 * t11 + 0.18472500000000000000e-2 * t25;
2716   t173 = 0.1000e4 + 0.21807500000000000000e4 * t11 + 0.11800000000000000000e3 * t25;
2717   t174 = 0.1e1 / t173;
2718   t176 = t170 * t174 - 0.18535714285714285714e-2;
2719   t177 = t176 * t93;
2720   t178 = t177 * t99;
2721   t179 = t167 * t178;
2722   t181 = POW_1_3(0.9e1);
2723   t182 = t181 * t181;
2724   t184 = t2 * t5 * t182 * t3;
2725   t186 = 0.1e1 / t22 / t37;
2726   t188 = t99 * t50;
2727   t192 = exp(-0.25e2 / 0.18e2 * t184 * t186 * t94 * t188);
2728   t193 = t107 * t192;
2729   t194 = t140 * t193;
2730   t196 = t179 * t194 / 0.2e1;
2731   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2732     zk[0] = -t33 + t83 + t85 + t166 + t196;
2733 
2734 #ifndef XC_DONT_COMPILE_VXC
2735 
2736   if(order < 1) return;
2737 
2738 
2739   t198 = 0.1e1 / t8 / t7;
2740   t199 = t6 * t198;
2741   t201 = t4 * t199 * t31;
2742   t202 = 0.11073577833333333333e-2 * t201;
2743   t203 = t27 * t27;
2744   t204 = 0.1e1 / t203;
2745   t205 = t13 * t204;
2746   t207 = 0.1e1 / t14 * t1;
2747   t208 = t3 * t6;
2748   t209 = t208 * t198;
2749   t210 = t207 * t209;
2750   t212 = t4 * t199;
2751   t214 = sqrt(t11);
2752   t215 = t214 * t1;
2753   t216 = t215 * t209;
2754   t221 = t21 * t5 / t22 / t7;
2755   t223 = -0.63297500000000000000e0 * t210 - 0.29896666666666666667e0 * t212 - 0.10238750000000000000e0 * t216 - 0.82156666666666666667e-1 * t221;
2756   t224 = 0.1e1 / t30;
2757   t225 = t223 * t224;
2758   t226 = t205 * t225;
2759   t227 = 0.10000000000000000000e1 * t226;
2760   t228 = t35 * t34;
2761   t229 = t228 * t39;
2762   t230 = t229 * t82;
2763   t231 = 0.4e1 * t230;
2764   t232 = t38 * t7;
2765   t233 = 0.1e1 / t232;
2766   t234 = t36 * t233;
2767   t235 = t234 * t82;
2768   t236 = 0.4e1 * t235;
2769   t237 = 0.1e1 / t37;
2770   t238 = t34 * t237;
2771   t239 = t41 - t238;
2772   t241 = -t239;
2773   t245 = (0.4e1 / 0.3e1 * t44 * t239 + 0.4e1 / 0.3e1 * t47 * t241) * t53;
2774   t246 = t245 * t81;
2775   t247 = t40 * t246;
2776   t251 = t61 * t61;
2777   t252 = 0.1e1 / t251;
2778   t253 = t56 * t252;
2779   t258 = -0.11765750000000000000e1 * t210 - 0.51647500000000000000e0 * t212 - 0.21038750000000000000e0 * t216 - 0.10419500000000000000e0 * t221;
2780   t259 = 0.1e1 / t64;
2781   t260 = t258 * t259;
2782   t266 = t74 * t74;
2783   t267 = 0.1e1 / t266;
2784   t268 = t69 * t267;
2785   t273 = -0.86308333333333333334e0 * t210 - 0.30192500000000000000e0 * t212 - 0.55016250000000000000e-1 * t216 - 0.82785000000000000000e-1 * t221;
2786   t274 = 0.1e1 / t77;
2787   t275 = t273 * t274;
2788   t278 = 0.53236443333333333332e-3 * t4 * t199 * t65 + 0.10000000000000000000e1 * t253 * t260 - t202 - t227 + 0.18311555036753159941e-3 * t4 * t199 * t78 + 0.58482233974552040708e0 * t268 * t275;
2789   t279 = t54 * t278;
2790   t280 = t40 * t279;
2791   t281 = t245 * t79;
2792   t282 = 0.19751789702565206229e-1 * t281;
2793   t283 = t54 * t1;
2794   t285 = t208 * t198 * t78;
2795   t286 = t283 * t285;
2796   t287 = 0.18311555036753159941e-3 * t286;
2797   t288 = t54 * t69;
2798   t290 = t267 * t273 * t274;
2799   t291 = t288 * t290;
2800   t292 = 0.58482233974552040708e0 * t291;
2801   t293 = t94 * t163;
2802   t294 = 0.1e1 / t44;
2803   t296 = 0.1e1 / t47;
2804   t299 = t294 * t239 / 0.3e1 + t296 * t241 / 0.3e1;
2805   t301 = t89 * t293 * t299;
2806   t302 = 0.77534644304710291488e-2 * t301;
2807   t303 = t37 * t7;
2808   t305 = 0.1e1 / t8 / t303;
2809   t306 = t99 * t305;
2810   t307 = t306 * t50;
2811   t309 = 0.7e1 / 0.288e3 * t307 * t108;
2812   t310 = t50 * t112;
2813   t311 = t102 * t310;
2814   t312 = t19 * t106;
2815   t313 = t5 * t299;
2816   t314 = t312 * t313;
2817   t317 = t96 * t148;
2818   t318 = t125 * t127;
2819   t319 = t317 * t318;
2820   t320 = t202 + t227 + t231 - t236 + t247 + t280 + t282 - t287 - t292;
2821   t324 = t111 * t129;
2822   t325 = t115 * t299;
2823   t328 = -0.12897460341341234505e3 * t320 * t112 * t115 + 0.38692381024023703515e3 * t324 * t325;
2824   t330 = t6 * t328 * t118;
2825   t331 = t152 * t330;
2826   t335 = 0.1e1 / t22 / t232;
2827   t336 = t122 * t335;
2828   t337 = t121 * t336;
2829   t339 = 0.12677527172608605205e-1 * t337 * t133;
2830   t340 = t128 * t93;
2831   t341 = 0.1e1 / t340;
2832   t342 = t127 * t341;
2833   t343 = t132 * t299;
2834   t344 = t342 * t343;
2835   t347 = -t309 - t311 * t314 / 0.48e2 - 0.27166129655589868296e-2 * t319 * t331 - t339 - 0.10866451862235947318e-1 * t126 * t344;
2836   t351 = t157 * t157;
2837   t352 = 0.1e1 / t351;
2838   t353 = t136 * t352;
2839   t354 = t148 * t99;
2840   t356 = t137 * t354 * t101;
2841   t357 = t50 * t104;
2842   t358 = t357 * t106;
2843   t360 = t5 * t328 * t118;
2844   t361 = t358 * t360;
2845   t364 = t305 * t50;
2846   t367 = 0.20284043476173768327e0 * t139 * t364 * t142;
2847   t369 = t137 * t138 * t101;
2848   t371 = t310 * t107 * t299;
2849   t375 = 0.1e1 / t147 / t119;
2850   t376 = t375 * t122;
2851   t378 = t146 * t376 * t124;
2852   t379 = t130 * t131;
2853   t380 = t379 * t330;
2854   t383 = t335 * t127;
2855   t384 = t383 * t153;
2856   t386 = 0.35266493120854938101e-1 * t150 * t384;
2857   t388 = t146 * t149 * t124;
2858   t391 = -0.86931614897887578546e-1 * t356 * t361 - t367 - 0.17386322979577515709e0 * t369 * t371 - 0.15114211337509259186e-1 * t378 * t380 - t386 - 0.30228422675018518372e-1 * t388 * t344;
2859   t395 = 0.27818116767324025134e1 * t97 * t347 * t158 - 0.27818116767324025134e1 * t97 * t353 * t391;
2860   t397 = 0.1e1 / t162;
2861   t399 = t89 * t95 * t395 * t397;
2862   t400 = 0.25844881434903430496e-2 * t399;
2863   t403 = -0.19388333333333333333e1 * t212 - 0.12315000000000000000e-2 * t221;
2864   t405 = t173 * t173;
2865   t406 = 0.1e1 / t405;
2866   t407 = t170 * t406;
2867   t410 = -0.72691666666666666667e3 * t212 - 0.78666666666666666667e2 * t221;
2868   t412 = t403 * t174 - t407 * t410;
2869   t413 = t412 * t93;
2870   t414 = t413 * t99;
2871   t415 = t167 * t414;
2872   t416 = t415 * t194;
2873   t417 = t416 / 0.2e1;
2874   t418 = t176 * t299;
2875   t419 = t418 * t99;
2876   t420 = t167 * t419;
2877   t421 = t420 * t194;
2878   t422 = t421 / 0.2e1;
2879   t423 = t364 * t193;
2880   t424 = t179 * t423;
2881   t425 = 0.7e1 / 0.6e1 * t424;
2882   t426 = t140 * t106;
2883   t428 = 0.1e1 / t22 / t303;
2884   t432 = 0.100e3 / 0.27e2 * t184 * t428 * t94 * t188;
2885   t433 = t186 * t93;
2886   t434 = t188 * t299;
2887   t438 = t432 - 0.25e2 / 0.9e1 * t184 * t433 * t434;
2888   t440 = t5 * t438 * t192;
2889   t441 = t426 * t440;
2890   t442 = t179 * t441;
2891   t443 = t442 / 0.2e1;
2892   t444 = t202 + t227 + t231 - t236 + t247 + t280 + t282 - t287 - t292 + t302 + t400 + t417 + t422 - t425 + t443;
2893   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2894     vrho[0] = t7 * t444 + t166 + t196 - t33 + t83 + t85;
2895 
2896   t446 = -t41 - t238;
2897   t448 = -t446;
2898   t452 = (0.4e1 / 0.3e1 * t44 * t446 + 0.4e1 / 0.3e1 * t47 * t448) * t53;
2899   t453 = t452 * t81;
2900   t454 = t40 * t453;
2901   t455 = t452 * t79;
2902   t456 = 0.19751789702565206229e-1 * t455;
2903   t460 = t294 * t446 / 0.3e1 + t296 * t448 / 0.3e1;
2904   t462 = t89 * t293 * t460;
2905   t463 = 0.77534644304710291488e-2 * t462;
2906   t464 = t5 * t460;
2907   t465 = t312 * t464;
2908   t468 = t202 + t227 - t231 - t236 + t454 + t280 + t456 - t287 - t292;
2909   t472 = t115 * t460;
2910   t475 = -0.12897460341341234505e3 * t468 * t112 * t115 + 0.38692381024023703515e3 * t324 * t472;
2911   t477 = t6 * t475 * t118;
2912   t478 = t152 * t477;
2913   t481 = t132 * t460;
2914   t482 = t342 * t481;
2915   t485 = -t309 - t311 * t465 / 0.48e2 - 0.27166129655589868296e-2 * t319 * t478 - t339 - 0.10866451862235947318e-1 * t126 * t482;
2916   t490 = t5 * t475 * t118;
2917   t491 = t358 * t490;
2918   t494 = t107 * t460;
2919   t495 = t310 * t494;
2920   t498 = t379 * t477;
2921   t503 = -0.86931614897887578546e-1 * t356 * t491 - t367 - 0.17386322979577515709e0 * t369 * t495 - 0.15114211337509259186e-1 * t378 * t498 - t386 - 0.30228422675018518372e-1 * t388 * t482;
2922   t507 = 0.27818116767324025134e1 * t97 * t485 * t158 - 0.27818116767324025134e1 * t97 * t353 * t503;
2923   t510 = t89 * t95 * t507 * t397;
2924   t511 = 0.25844881434903430496e-2 * t510;
2925   t512 = t176 * t460;
2926   t514 = t167 * t512 * t99;
2927   t515 = t514 * t194;
2928   t516 = t515 / 0.2e1;
2929   t517 = t188 * t460;
2930   t521 = t432 - 0.25e2 / 0.9e1 * t184 * t433 * t517;
2931   t523 = t5 * t521 * t192;
2932   t524 = t426 * t523;
2933   t525 = t179 * t524;
2934   t526 = t525 / 0.2e1;
2935   t527 = t202 + t227 - t231 - t236 + t454 + t280 + t456 - t287 - t292 + t463 + t511 + t417 + t516 - t425 + t526;
2936   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2937     vrho[1] = t7 * t527 + t166 + t196 - t33 + t83 + t85;
2938 
2939   t530 = t312 * t5;
2940   t531 = t140 * t104 * t530;
2941   t533 = t99 * t124;
2942   t534 = t121 * t533;
2943   t535 = t534 * t133;
2944   t537 = t531 / 0.96e2 + 0.54332259311179736592e-2 * t535;
2945   t541 = t120 * t101;
2946   t542 = t137 * t541;
2947   t543 = t357 * t107;
2948   t544 = t542 * t543;
2949   t546 = t146 * t354;
2950   t547 = t546 * t154;
2951   t549 = 0.86931614897887578546e-1 * t544 + 0.15114211337509259186e-1 * t547;
2952   t553 = 0.27818116767324025134e1 * t97 * t537 * t158 - 0.27818116767324025134e1 * t97 * t353 * t549;
2953   t557 = 0.25844881434903430496e-2 * t89 * t95 * t553 * t397;
2954   t558 = t167 * t177;
2955   t559 = t558 * t194;
2956   t560 = t559 / 0.2e1;
2957   t562 = 0.1e1 / t86 * t87;
2958   t563 = t176 * t95;
2959   t564 = t563 * t99;
2960   t565 = t562 * t564;
2961   t566 = t233 * t127;
2962   t568 = t6 * t182 * t192;
2963   t569 = t566 * t568;
2964   t570 = t565 * t569;
2965   t571 = 0.25e2 / 0.36e2 * t570;
2966   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2967     vsigma[0] = t7 * (t557 + t560 - t571);
2968 
2969   t575 = t531 / 0.48e2 + 0.10866451862235947318e-1 * t535;
2970   t581 = 0.17386322979577515709e0 * t544 + 0.30228422675018518372e-1 * t547;
2971   t585 = 0.27818116767324025134e1 * t97 * t575 * t158 - 0.27818116767324025134e1 * t97 * t353 * t581;
2972   t586 = t95 * t585;
2973   t589 = 0.25844881434903430496e-2 * t89 * t586 * t397;
2974   t590 = 0.25e2 / 0.18e2 * t570;
2975   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2976     vsigma[1] = t7 * (t589 + t559 - t590);
2977 
2978   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2979     vsigma[2] = vsigma[0];
2980 
2981 #ifndef XC_DONT_COMPILE_FXC
2982 
2983   if(order < 2) return;
2984 
2985 
2986   t592 = t4 * t6;
2987   t593 = t198 * t204;
2988   t595 = t592 * t593 * t225;
2989   t596 = 0.35616666666666666667e-1 * t595;
2990   t597 = t245 * t1;
2991   t598 = t597 * t285;
2992   t599 = 0.36623110073506319882e-3 * t598;
2993   t601 = t208 * t101 * t78;
2994   t602 = t283 * t601;
2995   t603 = 0.24415406715670879921e-3 * t602;
2996   t604 = t54 * t4;
2997   t605 = t199 * t290;
2998   t606 = t604 * t605;
2999   t607 = 0.10843580882781524214e-1 * t606;
3000   t608 = 0.1e1 / t90;
3001   t609 = t239 * t239;
3002   t612 = 0.1e1 / t303;
3003   t613 = t34 * t612;
3004   t615 = -0.2e1 * t237 + 0.2e1 * t613;
3005   t618 = 0.1e1 / t91;
3006   t619 = t241 * t241;
3007   t622 = -t615;
3008   t626 = (0.4e1 / 0.9e1 * t608 * t609 + 0.4e1 / 0.3e1 * t44 * t615 + 0.4e1 / 0.9e1 * t618 * t619 + 0.4e1 / 0.3e1 * t47 * t622) * t53;
3009   t627 = t626 * t79;
3010   t628 = 0.19751789702565206229e-1 * t627;
3011   t629 = t626 * t81;
3012   t630 = t40 * t629;
3013   t631 = t245 * t278;
3014   t632 = t40 * t631;
3015   t633 = 0.2e1 * t632;
3016   t634 = t234 * t246;
3017   t635 = 0.8e1 * t634;
3018   t636 = t203 * t27;
3019   t637 = 0.1e1 / t636;
3020   t638 = t13 * t637;
3021   t639 = t223 * t223;
3022   t640 = t639 * t224;
3023   t641 = t638 * t640;
3024   t642 = 0.20000000000000000000e1 * t641;
3025   t645 = 0.1e1 / t14 / t11 * t19;
3026   t646 = t20 * t5;
3027   t647 = t646 * t186;
3028   t648 = t645 * t647;
3029   t650 = t208 * t101;
3030   t651 = t207 * t650;
3031   t653 = t6 * t101;
3032   t654 = t4 * t653;
3033   t656 = 0.1e1/sqrt(t11);
3034   t657 = t656 * t19;
3035   t658 = t657 * t647;
3036   t660 = t215 * t650;
3037   t663 = t21 * t5 * t186;
3038   t665 = -0.42198333333333333333e0 * t648 + 0.84396666666666666666e0 * t651 + 0.39862222222222222223e0 * t654 + 0.68258333333333333333e-1 * t658 + 0.13651666666666666667e0 * t660 + 0.13692777777777777778e0 * t663;
3039   t666 = t665 * t224;
3040   t667 = t205 * t666;
3041   t668 = 0.10000000000000000000e1 * t667;
3042   t669 = t203 * t203;
3043   t670 = 0.1e1 / t669;
3044   t671 = t13 * t670;
3045   t672 = t30 * t30;
3046   t673 = 0.1e1 / t672;
3047   t674 = t639 * t673;
3048   t675 = t671 * t674;
3049   t676 = 0.16081824322151104822e2 * t675;
3050   t677 = t420 * t423;
3051   t678 = 0.7e1 / 0.3e1 * t677;
3052   t680 = 0.1e1 / t8 / t38;
3053   t681 = t680 * t50;
3054   t682 = t681 * t193;
3055   t683 = t179 * t682;
3056   t684 = 0.35e2 / 0.9e1 * t683;
3057   t685 = t415 * t423;
3058   t686 = 0.7e1 / 0.3e1 * t685;
3059   t689 = 0.25851111111111111111e1 * t654 + 0.20525000000000000000e-2 * t663;
3060   t691 = t403 * t406;
3061   t695 = 0.1e1 / t405 / t173;
3062   t696 = t170 * t695;
3063   t697 = t410 * t410;
3064   t702 = 0.96922222222222222222e3 * t654 + 0.13111111111111111111e3 * t663;
3065   t704 = t689 * t174 - t407 * t702 - 0.2e1 * t691 * t410 + 0.2e1 * t696 * t697;
3066   t705 = t704 * t93;
3067   t707 = t167 * t705 * t99;
3068   t708 = t707 * t194;
3069   t709 = t708 / 0.2e1;
3070   t710 = t412 * t299;
3071   t712 = t167 * t710 * t99;
3072   t713 = t712 * t194;
3073   t714 = 0.1e1 / t45;
3074   t719 = 0.1e1 / t48;
3075   t724 = -t714 * t609 / 0.9e1 + t294 * t615 / 0.3e1 - t719 * t619 / 0.9e1 + t296 * t622 / 0.3e1;
3076   t725 = t176 * t724;
3077   t727 = t167 * t725 * t99;
3078   t728 = t727 * t194;
3079   t729 = t728 / 0.2e1;
3080   t730 = t89 * t94;
3081   t731 = t395 * t397;
3082   t733 = t730 * t731 * t299;
3083   t734 = 0.15506928860942058298e-1 * t733;
3084   t735 = t93 * t163;
3085   t736 = t299 * t299;
3086   t738 = t89 * t735 * t736;
3087   t739 = 0.15506928860942058298e-1 * t738;
3088   t740 = -t596 - t599 + t603 + t607 + t628 + t630 + t633 - t635 - t642 + t668 + t676 - t678 + t684 - t686 + t709 + t713 + t729 + t734 + t739;
3089   t741 = t228 * t233;
3090   t742 = t741 * t82;
3091   t743 = 0.32e2 * t742;
3092   t744 = t229 * t279;
3093   t745 = 0.8e1 * t744;
3094   t746 = t38 * t37;
3095   t747 = 0.1e1 / t746;
3096   t748 = t36 * t747;
3097   t749 = t748 * t82;
3098   t750 = 0.20e2 * t749;
3099   t751 = t35 * t39;
3100   t752 = t751 * t82;
3101   t753 = 0.12e2 * t752;
3102   t754 = t234 * t279;
3103   t755 = 0.8e1 * t754;
3104   t756 = t229 * t246;
3105   t757 = 0.8e1 * t756;
3106   t758 = t420 * t441;
3107   t759 = t364 * t106;
3108   t760 = t759 * t440;
3109   t761 = t179 * t760;
3110   t762 = 0.7e1 / 0.3e1 * t761;
3111   t766 = 0.1100e4 / 0.81e2 * t184 * t124 * t94 * t188;
3112   t767 = t428 * t93;
3113   t769 = t184 * t767 * t434;
3114   t775 = t188 * t724;
3115   t779 = -t766 + 0.400e3 / 0.27e2 * t769 - 0.25e2 / 0.9e1 * t184 * t186 * t736 * t188 - 0.25e2 / 0.9e1 * t184 * t433 * t775;
3116   t781 = t5 * t779 * t192;
3117   t782 = t426 * t781;
3118   t783 = t179 * t782;
3119   t784 = t783 / 0.2e1;
3120   t785 = t415 * t441;
3121   t786 = t438 * t438;
3122   t788 = t5 * t786 * t192;
3123   t789 = t426 * t788;
3124   t790 = t179 * t789;
3125   t791 = t790 / 0.2e1;
3126   t793 = t4 * t653 * t31;
3127   t794 = 0.14764770444444444444e-2 * t793;
3128   t795 = t99 * t680;
3129   t796 = t795 * t50;
3130   t798 = 0.35e2 / 0.432e3 * t796 * t108;
3131   t799 = t306 * t310;
3132   t800 = t799 * t314;
3133   t802 = t50 * t129;
3134   t803 = t102 * t802;
3135   t804 = t5 * t736;
3136   t805 = t312 * t804;
3137   t809 = t312 * t5 * t724;
3138   t812 = t96 * t375;
3139   t813 = t812 * t318;
3140   t814 = t328 * t328;
3141   t815 = t6 * t814;
3142   t816 = t118 * t118;
3143   t817 = t815 * t816;
3144   t818 = t152 * t817;
3145   t821 = t336 * t127;
3146   t822 = t317 * t821;
3147   t823 = t822 * t331;
3148   t825 = t341 * t131;
3149   t826 = t825 * t6;
3150   t827 = t328 * t118;
3151   t828 = t827 * t299;
3152   t829 = t826 * t828;
3153   t838 = -0.57538888888888888889e0 * t648 + 0.11507777777777777778e1 * t651 + 0.40256666666666666667e0 * t654 + 0.36677500000000000000e-1 * t658 + 0.73355000000000000000e-1 * t660 + 0.13797500000000000000e0 * t663;
3154   t840 = t267 * t838 * t274;
3155   t841 = t288 * t840;
3156   t842 = 0.58482233974552040708e0 * t841;
3157   t843 = t266 * t266;
3158   t844 = 0.1e1 / t843;
3159   t845 = t273 * t273;
3160   t846 = t844 * t845;
3161   t847 = t77 * t77;
3162   t848 = 0.1e1 / t847;
3163   t849 = t846 * t848;
3164   t850 = t288 * t849;
3165   t851 = 0.17315755899375863299e2 * t850;
3166   t852 = t245 * t69;
3167   t853 = t852 * t290;
3168   t854 = 0.11696446794910408142e1 * t853;
3169   t858 = t198 * t252;
3170   t862 = t251 * t61;
3171   t863 = 0.1e1 / t862;
3172   t864 = t56 * t863;
3173   t865 = t258 * t258;
3174   t866 = t865 * t259;
3175   t875 = -0.78438333333333333333e0 * t648 + 0.15687666666666666667e1 * t651 + 0.68863333333333333333e0 * t654 + 0.14025833333333333333e0 * t658 + 0.28051666666666666667e0 * t660 + 0.17365833333333333333e0 * t663;
3176   t876 = t875 * t259;
3177   t879 = t251 * t251;
3178   t880 = 0.1e1 / t879;
3179   t881 = t56 * t880;
3180   t882 = t64 * t64;
3181   t883 = 0.1e1 / t882;
3182   t884 = t865 * t883;
3183   t890 = t198 * t267;
3184   t894 = t266 * t74;
3185   t895 = 0.1e1 / t894;
3186   t896 = t69 * t895;
3187   t897 = t845 * t274;
3188   t900 = t838 * t274;
3189   t903 = t69 * t844;
3190   t904 = t845 * t848;
3191   t907 = -0.70981924444444444442e-3 * t4 * t653 * t65 - 0.34246666666666666666e-1 * t592 * t858 * t260 - 0.20000000000000000000e1 * t864 * t866 + 0.10000000000000000000e1 * t253 * t876 + 0.32164683177870697974e2 * t881 * t884 + t794 + t596 + t642 - t668 - t676 - 0.24415406715670879921e-3 * t4 * t653 * t78 - 0.10843580882781524214e-1 * t592 * t890 * t275 - 0.11696446794910408142e1 * t896 * t897 + 0.58482233974552040708e0 * t268 * t900 + 0.17315755899375863299e2 * t903 * t904;
3192   t908 = t54 * t907;
3193   t909 = t40 * t908;
3194   t911 = t895 * t845 * t274;
3195   t912 = t288 * t911;
3196   t913 = 0.11696446794910408142e1 * t912;
3197   t914 = -t842 - t851 - t854 + t909 + t628 - t599 + t913 - t596 + t630 + t633 - t635;
3198   t915 = -t755 + t757 + t745 - t642 + t750 + t753 - t743 - t794 + t603 + t607 + t668 + t676;
3199   t916 = t914 + t915;
3200   t920 = t320 * t129;
3201   t923 = t111 * t341;
3202   t924 = t115 * t736;
3203   t927 = t115 * t724;
3204   t930 = -0.12897460341341234505e3 * t916 * t112 * t115 + 0.77384762048047407030e3 * t920 * t325 - 0.15476952409609481406e4 * t923 * t924 + 0.38692381024023703515e3 * t324 * t927;
3205   t932 = t6 * t930 * t118;
3206   t933 = t152 * t932;
3207   t936 = t815 * t118;
3208   t937 = t152 * t936;
3209   t941 = 0.1e1 / t22 / t746;
3210   t942 = t122 * t941;
3211   t943 = t121 * t942;
3212   t945 = 0.71839320644782096162e-1 * t943 * t133;
3213   t946 = t337 * t344;
3214   t948 = t128 * t94;
3215   t949 = 0.1e1 / t948;
3216   t950 = t127 * t949;
3217   t952 = t950 * t132 * t736;
3218   t956 = t342 * t132 * t724;
3219   t959 = t798 + 0.7e1 / 0.72e2 * t800 + t803 * t805 / 0.16e2 - t311 * t809 / 0.48e2 + 0.54332259311179736592e-2 * t813 * t818 + 0.25355054345217210410e-1 * t823 + 0.21732903724471894636e-1 * t319 * t829 - 0.27166129655589868296e-2 * t319 * t933 - 0.27166129655589868296e-2 * t319 * t937 + t945 + 0.10142021738086884164e0 * t946 + 0.54332259311179736590e-1 * t126 * t952 - 0.10866451862235947318e-1 * t126 * t956;
3220   t963 = t347 * t352;
3221   t968 = 0.1e1 / t351 / t157;
3222   t969 = t136 * t968;
3223   t970 = t391 * t391;
3224   t974 = t375 * t99;
3225   t976 = t137 * t974 * t101;
3226   t977 = t5 * t814;
3227   t978 = t977 * t816;
3228   t979 = t358 * t978;
3229   t983 = t137 * t354 * t305;
3230   t984 = t983 * t361;
3231   t986 = t137 * t148;
3232   t987 = t986 * t103;
3233   t989 = t112 * t106 * t5;
3234   t990 = t989 * t828;
3235   t994 = t5 * t930 * t118;
3236   t995 = t358 * t994;
3237   t998 = t977 * t118;
3238   t999 = t358 * t998;
3239   t1004 = 0.67613478253912561090e0 * t139 * t681 * t142;
3240   t1006 = t137 * t138 * t305;
3241   t1007 = t1006 * t371;
3242   t1010 = t802 * t107 * t736;
3243   t1014 = t310 * t107 * t724;
3244   t1017 = t147 * t147;
3245   t1018 = 0.1e1 / t1017;
3246   t1019 = t1018 * t122;
3247   t1021 = t146 * t1019 * t124;
3248   t1022 = t379 * t817;
3249   t1026 = t146 * t376 * t335;
3250   t1027 = t1026 * t380;
3251   t1029 = t146 * t375;
3252   t1030 = t1029 * t318;
3253   t1033 = t379 * t932;
3254   t1036 = t379 * t936;
3255   t1040 = t941 * t127 * t153;
3256   t1042 = 0.19984346101817798257e0 * t150 * t1040;
3257   t1044 = t146 * t149 * t335;
3258   t1045 = t1044 * t344;
3259   t1051 = 0.17386322979577515709e0 * t976 * t979 + 0.40568086952347536654e0 * t984 + 0.34772645959155031418e0 * t987 * t990 - 0.86931614897887578546e-1 * t356 * t995 - 0.86931614897887578546e-1 * t356 * t999 + t1004 + 0.81136173904695073308e0 * t1007 + 0.52158968938732547127e0 * t369 * t1010 - 0.17386322979577515709e0 * t369 * t1014 + 0.45342634012527777558e-1 * t1021 * t1022 + 0.14106597248341975240e0 * t1027 + 0.12091369070007407349e0 * t1030 * t829 - 0.15114211337509259186e-1 * t378 * t1033 - 0.15114211337509259186e-1 * t378 * t1036 + t1042 + 0.28213194496683950480e0 * t1045 + 0.15114211337509259186e0 * t388 * t952 - 0.30228422675018518372e-1 * t388 * t956;
3260   t1055 = 0.27818116767324025134e1 * t97 * t959 * t158 - 0.55636233534648050268e1 * t97 * t963 * t391 + 0.55636233534648050268e1 * t97 * t969 * t970 - 0.27818116767324025134e1 * t97 * t353 * t1051;
3261   t1058 = t89 * t95 * t1055 * t397;
3262   t1059 = 0.25844881434903430496e-2 * t1058;
3263   t1060 = t395 * t395;
3264   t1062 = t162 * t162;
3265   t1063 = 0.1e1 / t1062;
3266   t1065 = t89 * t95 * t1060 * t1063;
3267   t1066 = 0.25844881434903430496e-2 * t1065;
3268   t1068 = t89 * t293 * t724;
3269   t1069 = 0.77534644304710291488e-2 * t1068;
3270   t1070 = -t743 + t745 + t750 + t753 - t755 + t757 + t758 - t762 + t784 + t785 + t791 - t794 + t1059 + t913 - t842 - t851 - t854 + t909 - t1066 + t1069;
3271   t1073 = 0.36623110073506319882e-3 * t286;
3272   t1074 = 0.7e1 / 0.3e1 * t424;
3273   t1075 = 0.20000000000000000000e1 * t226;
3274   t1077 = 0.22147155666666666666e-2 * t201;
3275   t1079 = 0.2e1 * t280;
3276   t1082 = 0.8e1 * t230;
3277   t1083 = 0.8e1 * t235;
3278   t1084 = 0.11696446794910408142e1 * t291;
3279   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3280     v2rho2[0] = t7 * (t740 + t1070) - t1073 - t1074 + t442 + t1075 + 0.39503579405130412458e-1 * t281 + t1077 + 0.2e1 * t247 + t1079 + 0.15506928860942058298e-1 * t301 + 0.51689762869806860992e-2 * t399 + t1082 - t1083 - t1084 + t416 + t421;
3281 
3282   t1085 = t514 * t423;
3283   t1087 = t452 * t1;
3284   t1088 = t1087 * t285;
3285   t1089 = 0.18311555036753159941e-3 * t1088;
3286   t1090 = t452 * t69;
3287   t1091 = t1090 * t290;
3288   t1092 = 0.58482233974552040708e0 * t1091;
3289   t1093 = t89 * t95;
3290   t1094 = t507 * t1063;
3291   t1096 = t1093 * t1094 * t395;
3292   t1098 = t412 * t460;
3293   t1100 = t167 * t1098 * t99;
3294   t1101 = t1100 * t194;
3295   t1103 = t714 * t446;
3296   t1106 = t294 * t34;
3297   t1109 = t719 * t448;
3298   t1112 = t296 * t34;
3299   t1115 = -t1103 * t239 / 0.9e1 + 0.2e1 / 0.3e1 * t1106 * t612 - t1109 * t241 / 0.9e1 - 0.2e1 / 0.3e1 * t1112 * t612;
3300   t1116 = t176 * t1115;
3301   t1118 = t167 * t1116 * t99;
3302   t1119 = t1118 * t194;
3303   t1121 = 0.18311555036753159941e-3 * t598;
3304   t1122 = t167 * t176;
3305   t1123 = t93 * t99;
3306   t1124 = t1123 * t101;
3307   t1125 = t1122 * t1124;
3308   t1126 = t50 * t106;
3309   t1127 = t1126 * t5;
3310   t1128 = t521 * t438;
3311   t1129 = t1128 * t192;
3312   t1130 = t1127 * t1129;
3313   t1131 = t1125 * t1130;
3314   t1133 = t234 * t453;
3315   t1134 = 0.4e1 * t1133;
3316   t1135 = -0.7e1 / 0.6e1 * t1085 - t1089 - t1092 - 0.25844881434903430496e-2 * t1096 + t1101 / 0.2e1 + t1119 / 0.2e1 - t596 - t1121 + t603 + t607 + t1131 / 0.2e1 - t1134;
3317   t1136 = 0.4e1 * t634;
3318   t1137 = t507 * t397;
3319   t1139 = t730 * t1137 * t299;
3320   t1141 = t89 * t93;
3321   t1142 = t163 * t460;
3322   t1144 = t1141 * t1142 * t299;
3323   t1146 = t731 * t460;
3324   t1147 = t730 * t1146;
3325   t1150 = t632 - t1136 + 0.77534644304710291488e-2 * t1139 + 0.15506928860942058298e-1 * t1144 - t642 + t668 + t676 + 0.77534644304710291488e-2 * t1147 - 0.7e1 / 0.6e1 * t677 + t684 - t686 + t709;
3326   t1154 = t799 * t465;
3327   t1156 = t464 * t299;
3328   t1157 = t312 * t1156;
3329   t1160 = t5 * t1115;
3330   t1161 = t312 * t1160;
3331   t1164 = t475 * t816;
3332   t1165 = t1164 * t328;
3333   t1166 = t153 * t1165;
3334   t1169 = t822 * t478;
3335   t1171 = t475 * t118;
3336   t1172 = t1171 * t299;
3337   t1173 = t826 * t1172;
3338   t1176 = -t1089 - t1092 - t596 - t1121 + t603 + t607 - t1134 + t632 - t1136 - t642 + t668 + t676 + t750;
3339   t1177 = 0.4e1 * t756;
3340   t1178 = 0.58482233974552040708e0 * t853;
3341   t1179 = t608 * t446;
3342   t1182 = t44 * t34;
3343   t1185 = t618 * t448;
3344   t1188 = t47 * t34;
3345   t1192 = (0.4e1 / 0.9e1 * t1179 * t239 + 0.8e1 / 0.3e1 * t1182 * t612 + 0.4e1 / 0.9e1 * t1185 * t241 - 0.8e1 / 0.3e1 * t1188 * t612) * t53;
3346   t1193 = t1192 * t79;
3347   t1194 = 0.19751789702565206229e-1 * t1193;
3348   t1195 = t1192 * t81;
3349   t1196 = t40 * t1195;
3350   t1197 = t452 * t278;
3351   t1198 = t40 * t1197;
3352   t1199 = t229 * t453;
3353   t1200 = 0.4e1 * t1199;
3354   t1201 = -t753 - t755 - t1177 - t794 + t913 - t842 - t851 - t1178 + t1194 + t909 + t1196 + t1198 + t1200;
3355   t1202 = t1176 + t1201;
3356   t1206 = t468 * t129;
3357   t1211 = t923 * t1;
3358   t1212 = t114 * t460;
3359   t1213 = t1212 * t299;
3360   t1216 = t115 * t1115;
3361   t1219 = -0.12897460341341234505e3 * t1202 * t112 * t115 + 0.38692381024023703515e3 * t1206 * t325 + 0.38692381024023703515e3 * t920 * t472 - 0.15476952409609481406e4 * t1211 * t1213 + 0.38692381024023703515e3 * t324 * t1216;
3362   t1221 = t6 * t1219 * t118;
3363   t1222 = t152 * t1221;
3364   t1225 = t475 * t328;
3365   t1226 = t1225 * t118;
3366   t1227 = t153 * t1226;
3367   t1232 = t460 * t328;
3368   t1233 = t1232 * t118;
3369   t1234 = t826 * t1233;
3370   t1237 = t337 * t482;
3371   t1239 = t121 * t318;
3372   t1240 = t949 * t131;
3373   t1241 = t6 * t460;
3374   t1242 = t1241 * t299;
3375   t1243 = t1240 * t1242;
3376   t1246 = t132 * t1115;
3377   t1247 = t342 * t1246;
3378   t1250 = t798 + 0.7e1 / 0.144e3 * t800 + 0.7e1 / 0.144e3 * t1154 + t803 * t1157 / 0.16e2 - t311 * t1161 / 0.48e2 + 0.54332259311179736592e-2 * t813 * t1166 + 0.12677527172608605205e-1 * t1169 + 0.10866451862235947318e-1 * t319 * t1173 - 0.27166129655589868296e-2 * t319 * t1222 - 0.27166129655589868296e-2 * t319 * t1227 + 0.12677527172608605205e-1 * t823 + t945 + 0.50710108690434420820e-1 * t946 + 0.10866451862235947318e-1 * t319 * t1234 + 0.50710108690434420817e-1 * t1237 + 0.54332259311179736590e-1 * t1239 * t1243 - 0.10866451862235947318e-1 * t126 * t1247;
3379   t1254 = t485 * t352;
3380   t1261 = t97 * t136;
3381   t1262 = t968 * t503;
3382   t1263 = t1262 * t391;
3383   t1266 = t137 * t375;
3384   t1267 = t1266 * t103;
3385   t1268 = t142 * t1165;
3386   t1271 = t983 * t491;
3387   t1273 = t989 * t1172;
3388   t1277 = t5 * t1219 * t118;
3389   t1278 = t358 * t1277;
3390   t1281 = t142 * t1226;
3391   t1286 = t989 * t1233;
3392   t1289 = t1006 * t495;
3393   t1291 = t802 * t106;
3394   t1292 = t1291 * t1156;
3395   t1296 = t310 * t107 * t1115;
3396   t1299 = 0.17386322979577515709e0 * t1267 * t1268 + 0.20284043476173768327e0 * t1271 + 0.17386322979577515709e0 * t987 * t1273 - 0.86931614897887578546e-1 * t356 * t1278 - 0.86931614897887578546e-1 * t987 * t1281 + 0.20284043476173768327e0 * t984 + t1004 + 0.40568086952347536654e0 * t1007 + 0.17386322979577515709e0 * t987 * t1286 + 0.40568086952347536654e0 * t1289 + 0.52158968938732547127e0 * t369 * t1292 - 0.17386322979577515709e0 * t369 * t1296;
3397   t1300 = t146 * t1018;
3398   t1301 = t1300 * t318;
3399   t1304 = t1026 * t498;
3400   t1308 = t379 * t1221;
3401   t1317 = t1044 * t482;
3402   t1319 = t950 * t131;
3403   t1320 = t1319 * t1242;
3404   t1325 = 0.45342634012527777558e-1 * t1301 * t1166 + 0.70532986241709876201e-1 * t1304 + 0.60456845350037036744e-1 * t1030 * t1173 - 0.15114211337509259186e-1 * t378 * t1308 - 0.15114211337509259186e-1 * t1030 * t1227 + 0.70532986241709876202e-1 * t1027 + t1042 + 0.14106597248341975240e0 * t1045 + 0.60456845350037036744e-1 * t1030 * t1234 + 0.14106597248341975240e0 * t1317 + 0.15114211337509259186e0 * t388 * t1320 - 0.30228422675018518372e-1 * t388 * t1247;
3405   t1326 = t1299 + t1325;
3406   t1330 = 0.27818116767324025134e1 * t97 * t1250 * t158 - 0.27818116767324025134e1 * t97 * t1254 * t391 - 0.27818116767324025134e1 * t97 * t963 * t503 + 0.55636233534648050268e1 * t1261 * t1263 - 0.27818116767324025134e1 * t97 * t353 * t1326;
3407   t1333 = t89 * t95 * t1330 * t397;
3408   t1337 = t184 * t767 * t517;
3409   t1339 = t186 * t299;
3410   t1343 = t188 * t1115;
3411   t1347 = -t766 + 0.200e3 / 0.27e2 * t769 + 0.200e3 / 0.27e2 * t1337 - 0.25e2 / 0.9e1 * t184 * t1339 * t517 - 0.25e2 / 0.9e1 * t184 * t433 * t1343;
3412   t1349 = t5 * t1347 * t192;
3413   t1350 = t426 * t1349;
3414   t1351 = t179 * t1350;
3415   t1353 = t514 * t441;
3416   t1355 = t415 * t524;
3417   t1357 = t420 * t524;
3418   t1359 = t759 * t523;
3419   t1360 = t179 * t1359;
3420   t1363 = t713 / 0.2e1 + 0.25844881434903430496e-2 * t1333 + t1351 / 0.2e1 + t1353 / 0.2e1 + t1355 / 0.2e1 + t1357 / 0.2e1 - 0.7e1 / 0.6e1 * t1360 + t750 - t753 - t755 - t1177 - 0.7e1 / 0.6e1 * t761;
3421   t1366 = t89 * t293 * t1115;
3422   t1368 = t785 / 0.2e1 + 0.77534644304710291488e-2 * t1366 - t794 + t913 - t842 - t851 - t1178 + t1194 + t909 + t1196 + t1198 + t1200;
3423   t1373 = t1079 + t302 + t400 - t1083 - t1084 + t416 + t422 + t516 + t454 + t463 + t511;
3424   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3425     v2rho2[1] = t7 * (t1135 + t1150 + t1363 + t1368) - t1073 - t1074 + t526 + t443 + t1075 + t282 + t456 + t1077 + t247 + t1373;
3426 
3427   t1374 = 0.7e1 / 0.3e1 * t1085;
3428   t1375 = t446 * t446;
3429   t1379 = 0.2e1 * t237 + 0.2e1 * t613;
3430   t1382 = t448 * t448;
3431   t1385 = -t1379;
3432   t1388 = -t714 * t1375 / 0.9e1 + t294 * t1379 / 0.3e1 - t719 * t1382 / 0.9e1 + t296 * t1385 / 0.3e1;
3433   t1390 = t89 * t293 * t1388;
3434   t1391 = 0.77534644304710291488e-2 * t1390;
3435   t1392 = 0.36623110073506319882e-3 * t1088;
3436   t1393 = t1137 * t460;
3437   t1394 = t730 * t1393;
3438   t1395 = 0.15506928860942058298e-1 * t1394;
3439   t1396 = 0.11696446794910408142e1 * t1091;
3440   t1397 = t176 * t1388;
3441   t1399 = t167 * t1397 * t99;
3442   t1400 = t1399 * t194;
3443   t1401 = t1400 / 0.2e1;
3444   t1403 = t460 * t460;
3445   t1408 = t188 * t1388;
3446   t1412 = -t766 + 0.400e3 / 0.27e2 * t1337 - 0.25e2 / 0.9e1 * t184 * t186 * t1403 * t188 - 0.25e2 / 0.9e1 * t184 * t433 * t1408;
3447   t1414 = t5 * t1412 * t192;
3448   t1415 = t426 * t1414;
3449   t1416 = t179 * t1415;
3450   t1417 = t1416 / 0.2e1;
3451   t1418 = t514 * t524;
3452   t1419 = t521 * t521;
3453   t1421 = t5 * t1419 * t192;
3454   t1422 = t426 * t1421;
3455   t1423 = t179 * t1422;
3456   t1424 = t1423 / 0.2e1;
3457   t1426 = t5 * t1403;
3458   t1427 = t312 * t1426;
3459   t1430 = t5 * t1388;
3460   t1431 = t312 * t1430;
3461   t1434 = t475 * t475;
3462   t1435 = t6 * t1434;
3463   t1436 = t1435 * t816;
3464   t1437 = t152 * t1436;
3465   t1441 = t1171 * t460;
3466   t1442 = t826 * t1441;
3467   t1454 = (0.4e1 / 0.9e1 * t608 * t1375 + 0.4e1 / 0.3e1 * t44 * t1379 + 0.4e1 / 0.9e1 * t618 * t1382 + 0.4e1 / 0.3e1 * t47 * t1385) * t53;
3468   t1455 = t1454 * t81;
3469   t1456 = t40 * t1455;
3470   t1457 = t1454 * t79;
3471   t1458 = 0.19751789702565206229e-1 * t1457;
3472   t1459 = 0.2e1 * t1198;
3473   t1460 = 0.8e1 * t1199;
3474   t1461 = 0.8e1 * t1133;
3475   t1462 = t1456 + t1458 - t1396 + t1459 - t1460 - t1461 - t842 - t851 + t909 - t1392 + t913;
3476   t1463 = -t596 - t755 - t745 - t642 + t750 + t753 + t743 - t794 + t603 + t607 + t668 + t676;
3477   t1464 = t1462 + t1463;
3478   t1470 = t115 * t1403;
3479   t1473 = t115 * t1388;
3480   t1476 = -0.12897460341341234505e3 * t1464 * t112 * t115 + 0.77384762048047407030e3 * t1206 * t472 - 0.15476952409609481406e4 * t923 * t1470 + 0.38692381024023703515e3 * t324 * t1473;
3481   t1478 = t6 * t1476 * t118;
3482   t1479 = t152 * t1478;
3483   t1482 = t1435 * t118;
3484   t1483 = t152 * t1482;
3485   t1487 = t132 * t1403;
3486   t1488 = t950 * t1487;
3487   t1491 = t132 * t1388;
3488   t1492 = t342 * t1491;
3489   t1495 = t798 + 0.7e1 / 0.72e2 * t1154 + t803 * t1427 / 0.16e2 - t311 * t1431 / 0.48e2 + 0.54332259311179736592e-2 * t813 * t1437 + 0.25355054345217210410e-1 * t1169 + 0.21732903724471894636e-1 * t319 * t1442 - 0.27166129655589868296e-2 * t319 * t1479 - 0.27166129655589868296e-2 * t319 * t1483 + t945 + 0.10142021738086884164e0 * t1237 + 0.54332259311179736590e-1 * t126 * t1488 - 0.10866451862235947318e-1 * t126 * t1492;
3490   t1502 = t503 * t503;
3491   t1506 = t5 * t1434;
3492   t1507 = t1506 * t816;
3493   t1508 = t358 * t1507;
3494   t1512 = t989 * t1441;
3495   t1516 = t5 * t1476 * t118;
3496   t1517 = t358 * t1516;
3497   t1520 = t1506 * t118;
3498   t1521 = t358 * t1520;
3499   t1526 = t802 * t107 * t1403;
3500   t1530 = t310 * t107 * t1388;
3501   t1533 = t379 * t1436;
3502   t1539 = t379 * t1478;
3503   t1542 = t379 * t1482;
3504   t1550 = 0.17386322979577515709e0 * t976 * t1508 + 0.40568086952347536654e0 * t1271 + 0.34772645959155031418e0 * t987 * t1512 - 0.86931614897887578546e-1 * t356 * t1517 - 0.86931614897887578546e-1 * t356 * t1521 + t1004 + 0.81136173904695073308e0 * t1289 + 0.52158968938732547127e0 * t369 * t1526 - 0.17386322979577515709e0 * t369 * t1530 + 0.45342634012527777558e-1 * t1021 * t1533 + 0.14106597248341975240e0 * t1304 + 0.12091369070007407349e0 * t1030 * t1442 - 0.15114211337509259186e-1 * t378 * t1539 - 0.15114211337509259186e-1 * t378 * t1542 + t1042 + 0.28213194496683950480e0 * t1317 + 0.15114211337509259186e0 * t388 * t1488 - 0.30228422675018518372e-1 * t388 * t1492;
3505   t1554 = 0.27818116767324025134e1 * t97 * t1495 * t158 - 0.55636233534648050268e1 * t97 * t1254 * t503 + 0.55636233534648050268e1 * t97 * t969 * t1502 - 0.27818116767324025134e1 * t97 * t353 * t1550;
3506   t1557 = t89 * t95 * t1554 * t397;
3507   t1558 = 0.25844881434903430496e-2 * t1557;
3508   t1560 = t89 * t735 * t1403;
3509   t1561 = 0.15506928860942058298e-1 * t1560;
3510   t1562 = -t1374 + t1391 - t1392 + t1395 - t1396 + t1101 - t596 + t603 + t607 + t1401 + t1417 + t1418 + t1424 + t1558 + t1561 - t1461 - t642 + t668 + t676;
3511   t1563 = t507 * t507;
3512   t1566 = t89 * t95 * t1563 * t1063;
3513   t1567 = 0.25844881434903430496e-2 * t1566;
3514   t1568 = 0.7e1 / 0.3e1 * t1360;
3515   t1569 = t684 - t686 + t709 - t1567 + t1355 - t1568 + t1456 + t743 - t745 + t750 + t753 - t755 - t794 + t913 - t842 - t851 + t909 + t1459 - t1460 + t1458;
3516   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3517     v2rho2[2] = t7 * (t1562 + t1569) - t1073 - t1074 + t525 + t1075 + 0.39503579405130412458e-1 * t455 + t1077 + t1079 - t1082 - t1083 - t1084 + t416 + t515 + 0.2e1 * t454 + 0.15506928860942058298e-1 * t462 + 0.51689762869806860992e-2 * t510;
3518 
3519   t1576 = t553 * t397;
3520   t1578 = t730 * t1576 * t299;
3521   t1579 = 0.77534644304710291488e-2 * t1578;
3522   t1581 = t364 * t104 * t530;
3523   t1582 = 0.7e1 / 0.288e3 * t1581;
3524   t1583 = t140 * t112;
3525   t1584 = t1583 * t314;
3526   t1586 = t533 * t127;
3527   t1587 = t317 * t1586;
3528   t1588 = t1587 * t331;
3529   t1590 = t99 * t335;
3530   t1591 = t121 * t1590;
3531   t1592 = t1591 * t133;
3532   t1593 = 0.25355054345217210410e-1 * t1592;
3533   t1594 = t534 * t344;
3534   t1596 = -t1582 - t1584 / 0.48e2 - 0.54332259311179736592e-2 * t1588 - t1593 - 0.21732903724471894637e-1 * t1594;
3535   t1600 = t537 * t352;
3536   t1607 = t968 * t549;
3537   t1608 = t1607 * t391;
3538   t1613 = t137 * t148 * t101 * t50;
3539   t1614 = t141 * t360;
3540   t1615 = t1613 * t1614;
3541   t1617 = t120 * t305;
3542   t1618 = t137 * t1617;
3543   t1619 = t1618 * t543;
3544   t1620 = 0.20284043476173768327e0 * t1619;
3545   t1621 = t542 * t371;
3546   t1624 = t146 * t974 * t124;
3547   t1625 = t1624 * t380;
3548   t1627 = t546 * t384;
3549   t1628 = 0.70532986241709876201e-1 * t1627;
3550   t1630 = t146 * t354 * t124;
3551   t1631 = t1630 * t344;
3552   t1633 = -0.86931614897887578546e-1 * t1615 - t1620 - 0.17386322979577515709e0 * t1621 - 0.30228422675018518372e-1 * t1625 - t1628 - 0.60456845350037036744e-1 * t1631;
3553   t1637 = 0.27818116767324025134e1 * t97 * t1596 * t158 - 0.27818116767324025134e1 * t97 * t1600 * t391 - 0.27818116767324025134e1 * t97 * t963 * t549 + 0.55636233534648050268e1 * t1261 * t1608 - 0.27818116767324025134e1 * t97 * t353 * t1633;
3554   t1640 = t89 * t95 * t1637 * t397;
3555   t1641 = 0.25844881434903430496e-2 * t1640;
3556   t1642 = t553 * t1063;
3557   t1644 = t1093 * t1642 * t395;
3558   t1645 = 0.25844881434903430496e-2 * t1644;
3559   t1646 = t167 * t413;
3560   t1647 = t1646 * t194;
3561   t1648 = t1647 / 0.2e1;
3562   t1649 = t167 * t418;
3563   t1650 = t1649 * t194;
3564   t1651 = t1650 / 0.2e1;
3565   t1652 = t558 * t423;
3566   t1653 = 0.7e1 / 0.6e1 * t1652;
3567   t1655 = t167 * t177 * t101;
3568   t1656 = t1126 * t440;
3569   t1657 = t1655 * t1656;
3570   t1658 = t1657 / 0.2e1;
3571   t1659 = t412 * t95;
3572   t1661 = t562 * t1659 * t99;
3573   t1662 = t1661 * t569;
3574   t1663 = 0.25e2 / 0.36e2 * t1662;
3575   t1664 = t176 * t94;
3576   t1666 = t562 * t1664 * t99;
3577   t1667 = t566 * t6;
3578   t1668 = t182 * t192;
3579   t1669 = t1668 * t299;
3580   t1670 = t1667 * t1669;
3581   t1671 = t1666 * t1670;
3582   t1672 = 0.25e2 / 0.12e2 * t1671;
3583   t1673 = t747 * t127;
3584   t1674 = t1673 * t568;
3585   t1675 = t565 * t1674;
3586   t1676 = 0.125e3 / 0.36e2 * t1675;
3587   t1678 = t182 * t438 * t192;
3588   t1679 = t1667 * t1678;
3589   t1680 = t565 * t1679;
3590   t1681 = 0.25e2 / 0.36e2 * t1680;
3591   t1682 = t1579 + t1641 - t1645 + t1648 + t1651 - t1653 + t1658 - t1663 - t1672 + t1676 - t1681;
3592   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3593     v2rhosigma[0] = t1682 * t7 + t557 + t560 - t571;
3594 
3595   t1684 = t585 * t397;
3596   t1686 = t730 * t1684 * t299;
3597   t1687 = 0.77534644304710291488e-2 * t1686;
3598   t1688 = 0.7e1 / 0.144e3 * t1581;
3599   t1691 = 0.50710108690434420817e-1 * t1592;
3600   t1693 = -t1688 - t1584 / 0.24e2 - 0.10866451862235947318e-1 * t1588 - t1691 - 0.43465807448943789272e-1 * t1594;
3601   t1697 = t575 * t352;
3602   t1704 = t968 * t581;
3603   t1705 = t1704 * t391;
3604   t1709 = 0.40568086952347536654e0 * t1619;
3605   t1712 = 0.14106597248341975240e0 * t1627;
3606   t1714 = -0.17386322979577515709e0 * t1615 - t1709 - 0.34772645959155031418e0 * t1621 - 0.60456845350037036744e-1 * t1625 - t1712 - 0.12091369070007407349e0 * t1631;
3607   t1718 = 0.27818116767324025134e1 * t97 * t1693 * t158 - 0.27818116767324025134e1 * t97 * t1697 * t391 - 0.27818116767324025134e1 * t97 * t963 * t581 + 0.55636233534648050268e1 * t1261 * t1705 - 0.27818116767324025134e1 * t97 * t353 * t1714;
3608   t1721 = t89 * t95 * t1718 * t397;
3609   t1722 = 0.25844881434903430496e-2 * t1721;
3610   t1723 = t585 * t1063;
3611   t1725 = t1093 * t1723 * t395;
3612   t1726 = 0.25844881434903430496e-2 * t1725;
3613   t1727 = 0.7e1 / 0.3e1 * t1652;
3614   t1728 = 0.25e2 / 0.18e2 * t1662;
3615   t1729 = 0.25e2 / 0.6e1 * t1671;
3616   t1730 = 0.125e3 / 0.18e2 * t1675;
3617   t1731 = 0.25e2 / 0.18e2 * t1680;
3618   t1732 = t1687 + t1722 - t1726 + t1647 + t1650 - t1727 + t1657 - t1728 - t1729 + t1730 - t1731;
3619   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3620     v2rhosigma[1] = t1732 * t7 + t559 + t589 - t590;
3621 
3622   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3623     v2rhosigma[2] = v2rhosigma[0];
3624 
3625   t1734 = t1576 * t460;
3626   t1735 = t730 * t1734;
3627   t1736 = 0.77534644304710291488e-2 * t1735;
3628   t1737 = t1583 * t465;
3629   t1739 = t1587 * t478;
3630   t1741 = t534 * t482;
3631   t1743 = -t1582 - t1737 / 0.48e2 - 0.54332259311179736592e-2 * t1739 - t1593 - 0.21732903724471894637e-1 * t1741;
3632   t1753 = t1607 * t503;
3633   t1756 = t141 * t490;
3634   t1757 = t1613 * t1756;
3635   t1759 = t542 * t495;
3636   t1761 = t1624 * t498;
3637   t1763 = t1630 * t482;
3638   t1765 = -0.86931614897887578546e-1 * t1757 - t1620 - 0.17386322979577515709e0 * t1759 - 0.30228422675018518372e-1 * t1761 - t1628 - 0.60456845350037036744e-1 * t1763;
3639   t1769 = 0.27818116767324025134e1 * t97 * t1743 * t158 - 0.27818116767324025134e1 * t97 * t1600 * t503 - 0.27818116767324025134e1 * t97 * t1254 * t549 + 0.55636233534648050268e1 * t1261 * t1753 - 0.27818116767324025134e1 * t97 * t353 * t1765;
3640   t1772 = t89 * t95 * t1769 * t397;
3641   t1773 = 0.25844881434903430496e-2 * t1772;
3642   t1775 = t1093 * t1642 * t507;
3643   t1776 = 0.25844881434903430496e-2 * t1775;
3644   t1777 = t167 * t512;
3645   t1778 = t1777 * t194;
3646   t1779 = t1778 / 0.2e1;
3647   t1780 = t1126 * t523;
3648   t1781 = t1655 * t1780;
3649   t1782 = t1781 / 0.2e1;
3650   t1783 = t1668 * t460;
3651   t1784 = t1667 * t1783;
3652   t1785 = t1666 * t1784;
3653   t1786 = 0.25e2 / 0.12e2 * t1785;
3654   t1788 = t182 * t521 * t192;
3655   t1789 = t1667 * t1788;
3656   t1790 = t565 * t1789;
3657   t1791 = 0.25e2 / 0.36e2 * t1790;
3658   t1792 = t1736 + t1773 - t1776 + t1648 + t1779 - t1653 + t1782 - t1663 - t1786 + t1676 - t1791;
3659   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3660     v2rhosigma[3] = t1792 * t7 + t557 + t560 - t571;
3661 
3662   t1794 = t1684 * t460;
3663   t1795 = t730 * t1794;
3664   t1796 = 0.77534644304710291488e-2 * t1795;
3665   t1800 = -t1688 - t1737 / 0.24e2 - 0.10866451862235947318e-1 * t1739 - t1691 - 0.43465807448943789272e-1 * t1741;
3666   t1810 = t1704 * t503;
3667   t1817 = -0.17386322979577515709e0 * t1757 - t1709 - 0.34772645959155031418e0 * t1759 - 0.60456845350037036744e-1 * t1761 - t1712 - 0.12091369070007407349e0 * t1763;
3668   t1821 = 0.27818116767324025134e1 * t97 * t1800 * t158 - 0.27818116767324025134e1 * t97 * t1697 * t503 - 0.27818116767324025134e1 * t97 * t1254 * t581 + 0.55636233534648050268e1 * t1261 * t1810 - 0.27818116767324025134e1 * t97 * t353 * t1817;
3669   t1824 = t89 * t95 * t1821 * t397;
3670   t1825 = 0.25844881434903430496e-2 * t1824;
3671   t1827 = t1093 * t1723 * t507;
3672   t1828 = 0.25844881434903430496e-2 * t1827;
3673   t1829 = 0.25e2 / 0.6e1 * t1785;
3674   t1830 = 0.25e2 / 0.18e2 * t1790;
3675   t1831 = t1796 + t1825 - t1828 + t1647 + t1778 - t1727 + t1781 - t1728 - t1829 + t1730 - t1830;
3676   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3677     v2rhosigma[4] = t1831 * t7 + t559 + t589 - t590;
3678 
3679   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3680     v2rhosigma[5] = v2rhosigma[3];
3681 
3682   t1833 = t120 * t124;
3683   t1835 = t132 * t158;
3684   t1836 = t130 * t1835;
3685   t1837 = t146 * t1833 * t1836;
3686   t1842 = t549 * t549;
3687   t1846 = t1 * t136;
3688   t1847 = t352 * t148;
3689   t1848 = t1846 * t1847;
3690   t1849 = t1848 * t154;
3691   t1851 = 0.15114211337509259186e-1 * t1837 - 0.55636233534648050268e1 * t97 * t1600 * t549 + 0.55636233534648050268e1 * t97 * t969 * t1842 - 0.12780113936069355903e-1 * t1849;
3692   t1855 = 0.25844881434903430496e-2 * t89 * t95 * t1851 * t397;
3693   t1856 = t553 * t553;
3694   t1860 = 0.25844881434903430496e-2 * t89 * t95 * t1856 * t1063;
3695   t1861 = t562 * t563;
3696   t1862 = t1861 * t569;
3697   t1863 = 0.25e2 / 0.18e2 * t1862;
3698   t1866 = 0.1e1 / t86 / M_PI * t87;
3699   t1867 = t176 * t340;
3700   t1868 = t1866 * t1867;
3701   t1869 = t38 * t303;
3702   t1871 = 0.1e1 / t22 / t1869;
3703   t1872 = t99 * t1871;
3704   t1874 = t181 * t3 * t192;
3705   t1875 = t1872 * t1874;
3706   t1876 = t1868 * t1875;
3707   t1877 = 0.625e3 / 0.9e1 * t1876;
3708   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3709     v2sigma2[0] = t7 * (t1855 - t1860 - t1863 + t1877);
3710 
3711   t1886 = t1704 * t549;
3712   t1890 = 0.30228422675018518372e-1 * t1837 - 0.27818116767324025134e1 * t97 * t1697 * t549 - 0.27818116767324025134e1 * t97 * t1600 * t581 + 0.55636233534648050268e1 * t1261 * t1886 - 0.25560227872138711807e-1 * t1849;
3713   t1894 = 0.25844881434903430496e-2 * t89 * t95 * t1890 * t397;
3714   t1897 = 0.25844881434903430496e-2 * t1093 * t1723 * t553;
3715   t1898 = 0.25e2 / 0.9e1 * t1862;
3716   t1899 = 0.1250e4 / 0.9e1 * t1876;
3717   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3718     v2sigma2[1] = t7 * (t1894 - t1897 - t1898 + t1899);
3719 
3720   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3721     v2sigma2[2] = v2sigma2[0];
3722 
3723   t1905 = t581 * t581;
3724   t1910 = 0.60456845350037036744e-1 * t1837 - 0.55636233534648050268e1 * t97 * t1697 * t581 + 0.55636233534648050268e1 * t97 * t969 * t1905 - 0.51120455744277423612e-1 * t1849;
3725   t1914 = 0.25844881434903430496e-2 * t89 * t95 * t1910 * t397;
3726   t1915 = t585 * t585;
3727   t1919 = 0.25844881434903430496e-2 * t89 * t95 * t1915 * t1063;
3728   t1920 = 0.50e2 / 0.9e1 * t1862;
3729   t1921 = 0.2500e4 / 0.9e1 * t1876;
3730   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3731     v2sigma2[3] = t7 * (t1914 - t1919 - t1920 + t1921);
3732 
3733   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3734     v2sigma2[4] = v2sigma2[1];
3735 
3736   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
3737     v2sigma2[5] = v2sigma2[2];
3738 
3739 #ifndef XC_DONT_COMPILE_KXC
3740 
3741   if(order < 3) return;
3742 
3743 
3744   t1923 = 0.10685000000000000000e0 * t595;
3745   t1925 = 0.73246220147012639764e-3 * t602;
3746   t1926 = 0.32530742648344572643e-1 * t606;
3747   t1931 = 0.60000000000000000000e1 * t641;
3748   t1932 = 0.30000000000000000000e1 * t667;
3749   t1933 = 0.48245472966453314466e2 * t675;
3750   t1935 = 0.35e2 / 0.3e1 * t683;
3751   t1936 = 0.7e1 * t685;
3752   t1937 = 0.3e1 / 0.2e1 * t708;
3753   t1942 = 0.96e2 * t742;
3754   t1943 = -t1923 - 0.10986933022051895965e-2 * t598 + t1925 + t1926 + 0.59255369107695618687e-1 * t627 + 0.3e1 * t630 + 0.6e1 * t632 - 0.24e2 * t634 - t1931 + t1932 + t1933 - 0.7e1 * t677 + t1935 - t1936 + t1937 + 0.3e1 * t713 + 0.3e1 / 0.2e1 * t728 + 0.46520786582826174894e-1 * t733 + 0.46520786582826174894e-1 * t738 - t1942;
3755   t1944 = 0.24e2 * t744;
3756   t1945 = 0.60e2 * t749;
3757   t1946 = 0.36e2 * t752;
3758   t1947 = 0.24e2 * t754;
3759   t1954 = 0.44294311333333333332e-2 * t793;
3760   t1956 = 0.35089340384731224426e1 * t912;
3761   t1957 = 0.17544670192365612213e1 * t841;
3762   t1958 = 0.51947267698127589899e2 * t850;
3763   t1960 = 0.3e1 * t909;
3764   t1963 = t1060 * t1063;
3765   t1965 = t730 * t1963 * t299;
3766   t1966 = 0.23260393291413087447e-1 * t1965;
3767   t1967 = t1055 * t397;
3768   t1969 = t730 * t1967 * t299;
3769   t1970 = 0.23260393291413087447e-1 * t1969;
3770   t1971 = t163 * t724;
3771   t1973 = t1141 * t1971 * t299;
3772   t1974 = 0.46520786582826174894e-1 * t1973;
3773   t1976 = t1141 * t731 * t736;
3774   t1977 = 0.46520786582826174894e-1 * t1976;
3775   t1978 = t199 * t911;
3776   t1979 = t604 * t1978;
3777   t1980 = 0.32530742648344572643e-1 * t1979;
3778   t1981 = t653 * t290;
3779   t1982 = t604 * t1981;
3780   t1983 = 0.21687161765563048428e-1 * t1982;
3781   t1984 = t199 * t840;
3782   t1985 = t604 * t1984;
3783   t1986 = 0.16265371324172286321e-1 * t1985;
3784   t1987 = t199 * t849;
3785   t1988 = t604 * t1987;
3786   t1989 = 0.48159446095139119799e0 * t1988;
3787   t1990 = t245 * t4;
3788   t1991 = t1990 * t605;
3789   t1992 = 0.32530742648344572643e-1 * t1991;
3790   t1994 = t730 * t731 * t724;
3791   t1995 = 0.23260393291413087447e-1 * t1994;
3792   t1998 = t779 * t438 * t192;
3793   t1999 = t1127 * t1998;
3794   t2000 = t1125 * t1999;
3795   t2001 = 0.3e1 / 0.2e1 * t2000;
3796   t2002 = t741 * t279;
3797   t2003 = 0.96e2 * t2002;
3798   t2004 = t43 * t43;
3799   t2006 = 0.1e1 / t44 / t2004;
3800   t2007 = t609 * t239;
3801   t2010 = t714 * t239;
3802   t2013 = t34 * t39;
3803   t2015 = 0.6e1 * t612 - 0.6e1 * t2013;
3804   t2018 = t46 * t46;
3805   t2020 = 0.1e1 / t47 / t2018;
3806   t2021 = t619 * t241;
3807   t2024 = t719 * t241;
3808   t2027 = -t2015;
3809   t2030 = 0.4e1 / 0.27e2 * t2006 * t2007 - t2010 * t615 / 0.3e1 + t294 * t2015 / 0.3e1 + 0.4e1 / 0.27e2 * t2020 * t2021 - t2024 * t622 / 0.3e1 + t296 * t2027 / 0.3e1;
3810   t2032 = t89 * t293 * t2030;
3811   t2033 = 0.77534644304710291488e-2 * t2032;
3812   t2034 = t748 * t279;
3813   t2035 = 0.60e2 * t2034;
3814   t2036 = t741 * t246;
3815   t2037 = 0.96e2 * t2036;
3816   t2038 = t748 * t246;
3817   t2039 = 0.60e2 * t2038;
3818   t2040 = t128 * t95;
3819   t2041 = 0.1e1 / t2040;
3820   t2042 = t127 * t2041;
3821   t2043 = t736 * t299;
3822   t2045 = t2042 * t132 * t2043;
3823   t2048 = t337 * t952;
3824   t2050 = t930 * t118;
3825   t2051 = t2050 * t299;
3826   t2052 = t826 * t2051;
3827   t2055 = t827 * t724;
3828   t2056 = t826 * t2055;
3829   t2059 = t930 * t328;
3830   t2060 = t2059 * t118;
3831   t2061 = t153 * t2060;
3832   t2064 = t814 * t816;
3833   t2065 = t2064 * t299;
3834   t2066 = t826 * t2065;
3835   t2069 = t328 * t816;
3836   t2070 = t2069 * t930;
3837   t2071 = t153 * t2070;
3838   t2074 = t822 * t829;
3839   t2076 = t1240 * t6;
3840   t2077 = t827 * t736;
3841   t2078 = t2076 * t2077;
3842   t2081 = t814 * t118;
3843   t2082 = t2081 * t299;
3844   t2083 = t826 * t2082;
3845   t2087 = t342 * t132 * t2030;
3846   t2090 = t313 * t724;
3847   t2091 = t312 * t2090;
3848   t2094 = t122 * t1871;
3849   t2095 = t121 * t2094;
3850   t2097 = 0.47892880429854730775e0 * t2095 * t133;
3851   t2098 = t306 * t802;
3852   t2099 = t2098 * t805;
3853   t2101 = t50 * t341;
3854   t2102 = t102 * t2101;
3855   t2104 = t312 * t5 * t2043;
3856   t2107 = -0.32599355586707841954e0 * t126 * t2045 - 0.76065163035651631229e0 * t2048 + 0.32599355586707841954e-1 * t319 * t2052 + 0.32599355586707841954e-1 * t319 * t2056 - 0.81498388966769604888e-2 * t319 * t2061 - 0.65198711173415683909e-1 * t813 * t2066 + 0.16299677793353920977e-1 * t813 * t2071 - 0.30426065214260652491e0 * t2074 - 0.16299677793353920977e0 * t319 * t2078 + 0.32599355586707841954e-1 * t319 * t2083 - 0.10866451862235947318e-1 * t126 * t2087 + 0.3e1 / 0.16e2 * t803 * t2091 - t2097 - 0.7e1 / 0.16e2 * t2099 - t2102 * t2104 / 0.4e1;
3857   t2108 = t96 * t1018;
3858   t2109 = t2108 * t318;
3859   t2110 = t814 * t328;
3860   t2111 = t6 * t2110;
3861   t2112 = t816 * t118;
3862   t2113 = t2111 * t2112;
3863   t2114 = t152 * t2113;
3864   t2117 = t2111 * t816;
3865   t2118 = t152 * t2117;
3866   t2121 = t2013 * t82;
3867   t2122 = 0.24e2 * t2121;
3868   t2123 = t35 * t233;
3869   t2124 = t2123 * t82;
3870   t2125 = 0.144e3 * t2124;
3871   t2126 = t228 * t747;
3872   t2127 = t2126 * t82;
3873   t2128 = 0.240e3 * t2127;
3874   t2129 = -t1980 - t1983 + t1986 + t1989 + t1992 - t2003 + t2035 - t2037 + t2039 + t2122 - t2125 + t2128;
3875   t2130 = 0.1e1 / t1869;
3876   t2131 = t36 * t2130;
3877   t2132 = t2131 * t82;
3878   t2133 = 0.120e3 * t2132;
3879   t2134 = t229 * t908;
3880   t2135 = 0.12e2 * t2134;
3881   t2136 = t751 * t279;
3882   t2137 = 0.36e2 * t2136;
3883   t2138 = t751 * t246;
3884   t2139 = 0.36e2 * t2138;
3885   t2140 = t852 * t849;
3886   t2141 = 0.51947267698127589899e2 * t2140;
3887   t2142 = t852 * t840;
3888   t2143 = 0.17544670192365612213e1 * t2142;
3889   t2147 = 0.1e1 / t14 / t25 * t2 / 0.4e1;
3890   t2148 = t2147 * t39;
3891   t2150 = t646 * t428;
3892   t2151 = t645 * t2150;
3893   t2153 = t208 * t305;
3894   t2154 = t207 * t2153;
3895   t2156 = t6 * t305;
3896   t2157 = t4 * t2156;
3897   t2159 = 0.1e1/POW_3_2(t11);
3898   t2160 = t2159 * t2;
3899   t2161 = t2160 * t39;
3900   t2163 = t657 * t2150;
3901   t2165 = t215 * t2153;
3902   t2168 = t21 * t5 * t428;
3903   t2170 = -0.34523333333333333333e1 * t2148 + 0.23015555555555555556e1 * t2151 - 0.26851481481481481482e1 * t2154 - 0.93932222222222222223e0 * t2157 + 0.73355000000000000000e-1 * t2161 - 0.14671000000000000000e0 * t2163 - 0.17116166666666666667e0 * t2165 - 0.36793333333333333333e0 * t2168;
3904   t2172 = t267 * t2170 * t274;
3905   t2173 = t288 * t2172;
3906   t2174 = 0.58482233974552040708e0 * t2173;
3907   t2175 = t845 * t273;
3908   t2177 = t844 * t2175 * t274;
3909   t2178 = t288 * t2177;
3910   t2179 = 0.35089340384731224426e1 * t2178;
3911   t2180 = t852 * t911;
3912   t2181 = 0.35089340384731224426e1 * t2180;
3913   t2182 = t245 * t907;
3914   t2183 = t40 * t2182;
3915   t2184 = 0.3e1 * t2183;
3916   t2185 = t2175 * t274;
3917   t2188 = t865 * t258;
3918   t2189 = t2188 * t259;
3919   t2193 = 0.1e1 / t843 / t266;
3920   t2194 = t69 * t2193;
3921   t2196 = 0.1e1 / t847 / t77;
3922   t2197 = t2175 * t2196;
3923   t2201 = 0.1e1 / t843 / t74;
3924   t2202 = t69 * t2201;
3925   t2203 = t2175 * t848;
3926   t2206 = t2170 * t274;
3927   t2209 = t275 * t838;
3928   t2212 = t838 * t848;
3929   t2213 = t2212 * t273;
3930   t2216 = t875 * t883;
3931   t2221 = 0.1e1 / t669 / t27;
3932   t2222 = t13 * t2221;
3933   t2223 = t639 * t223;
3934   t2224 = t2223 * t673;
3935   t2225 = t2222 * t2224;
3936   t2226 = 0.96490945932906628932e2 * t2225;
3937   t2235 = -0.25319000000000000000e1 * t2148 + 0.16879333333333333333e1 * t2151 - 0.19692555555555555555e1 * t2154 - 0.93011851851851851854e0 * t2157 + 0.13651666666666666667e0 * t2161 - 0.27303333333333333333e0 * t2163 - 0.31853888888888888890e0 * t2165 - 0.36514074074074074075e0 * t2168;
3938   t2236 = t2235 * t224;
3939   t2237 = t205 * t2236;
3940   t2238 = 0.10000000000000000000e1 * t2237;
3941   t2240 = 0.1e1 / t669 / t203;
3942   t2241 = t13 * t2240;
3943   t2243 = 0.1e1 / t672 / t30;
3944   t2244 = t2223 * t2243;
3945   t2245 = t2241 * t2244;
3946   t2246 = 0.51725014705706168417e3 * t2245;
3947   t2247 = t665 * t673;
3948   t2249 = t671 * t2247 * t223;
3949   t2250 = 0.48245472966453314466e2 * t2249;
3950   t2252 = t638 * t225 * t665;
3951   t2253 = 0.60000000000000000000e1 * t2252;
3952   t2261 = t4 * t2156 * t31;
3953   t2262 = 0.34451131037037037036e-2 * t2261;
3954   t2263 = 0.35089340384731224426e1 * t903 * t2185 + 0.60000000000000000000e1 * t881 * t2189 + 0.10253897021007794930e4 * t2194 * t2197 - 0.10389453539625517980e3 * t2202 * t2203 + 0.58482233974552040708e0 * t268 * t2206 - 0.35089340384731224426e1 * t896 * t2209 + 0.51947267698127589897e2 * t903 * t2213 + 0.96494049533612093922e2 * t881 * t2216 * t258 + t2226 - t2238 - t2246 - t2250 + t2253 - 0.60000000000000000000e1 * t864 * t260 * t875 + 0.56969282336565386482e-3 * t4 * t2156 * t78 - t2262;
3955   t2267 = t101 * t267;
3956   t2274 = t198 * t844;
3957   t2278 = t101 * t204;
3958   t2280 = t592 * t2278 * t225;
3959   t2281 = 0.71233333333333333334e-1 * t2280;
3960   t2283 = t592 * t593 * t666;
3961   t2284 = 0.53425000000000000000e-1 * t2283;
3962   t2285 = t198 * t670;
3963   t2287 = t592 * t2285 * t674;
3964   t2288 = 0.85917146441092277512e0 * t2287;
3965   t2289 = t101 * t252;
3966   t2296 = t198 * t880;
3967   t2306 = t592 * t198 * t637 * t640;
3968   t2307 = 0.10685000000000000000e0 * t2306;
3969   t2308 = t198 * t895;
3970   t2312 = t2223 * t224;
3971   t2313 = t671 * t2312;
3972   t2314 = 0.60000000000000000000e1 * t2313;
3973   t2323 = -0.47063000000000000000e1 * t2148 + 0.31375333333333333334e1 * t2151 - 0.36604555555555555556e1 * t2154 - 0.16068111111111111111e1 * t2157 + 0.28051666666666666666e0 * t2161 - 0.56103333333333333332e0 * t2163 - 0.65453888888888888890e0 * t2165 - 0.46308888888888888888e0 * t2168;
3974   t2324 = t2323 * t259;
3975   t2328 = 0.1e1 / t879 / t251;
3976   t2329 = t56 * t2328;
3977   t2331 = 0.1e1 / t882 / t64;
3978   t2332 = t2188 * t2331;
3979   t2336 = 0.1e1 / t879 / t61;
3980   t2337 = t56 * t2336;
3981   t2338 = t2188 * t883;
3982   t2341 = 0.16562449037037037036e-2 * t4 * t2156 * t65 + 0.21687161765563048428e-1 * t592 * t2267 * t275 - 0.16265371324172286321e-1 * t592 * t890 * t900 - 0.48159446095139119799e0 * t592 * t2274 * t904 - t2281 + t2284 + t2288 + 0.68493333333333333332e-1 * t592 * t2289 * t260 - 0.51369999999999999999e-1 * t592 * t858 * t876 - 0.16522997748472177549e1 * t592 * t2296 * t884 + 0.10274000000000000000e0 * t592 * t198 * t863 * t866 - t2307 + 0.32530742648344572643e-1 * t592 * t2308 * t897 - t2314 + 0.10000000000000000000e1 * t253 * t2324 + 0.20691336878655965246e4 * t2329 * t2332 - 0.19298809906722418785e3 * t2337 * t2338;
3983   t2342 = t2263 + t2341;
3984   t2343 = t54 * t2342;
3985   t2344 = t40 * t2343;
3986   t2345 = -t2133 + t2135 + t2137 + t2139 - t2141 - t2143 - t2174 - t2179 + t2181 + t2184 + t2344 - t2226 + t2238;
3987   t2347 = t229 * t629;
3988   t2348 = 0.12e2 * t2347;
3989   t2350 = 0.1e1 / t90 / t43;
3990   t2353 = t608 * t239;
3991   t2359 = 0.1e1 / t91 / t46;
3992   t2362 = t618 * t241;
3993   t2368 = (-0.8e1 / 0.27e2 * t2350 * t2007 + 0.4e1 / 0.3e1 * t2353 * t615 + 0.4e1 / 0.3e1 * t44 * t2015 - 0.8e1 / 0.27e2 * t2359 * t2021 + 0.4e1 / 0.3e1 * t2362 * t622 + 0.4e1 / 0.3e1 * t47 * t2027) * t53;
3994   t2369 = t2368 * t81;
3995   t2370 = t40 * t2369;
3996   t2371 = t626 * t278;
3997   t2372 = t40 * t2371;
3998   t2373 = 0.3e1 * t2372;
3999   t2375 = t2193 * t2175 * t2196;
4000   t2376 = t288 * t2375;
4001   t2377 = 0.10253897021007794930e4 * t2376;
4002   t2378 = t626 * t69;
4003   t2379 = t2378 * t290;
4004   t2380 = 0.17544670192365612213e1 * t2379;
4005   t2381 = t229 * t631;
4006   t2382 = 0.24e2 * t2381;
4007   t2383 = t234 * t631;
4008   t2384 = 0.24e2 * t2383;
4009   t2385 = t234 * t629;
4010   t2386 = 0.12e2 * t2385;
4011   t2387 = t2246 + t2348 + t2370 + t2373 + t2250 - t2253 + t2262 - t2377 - t2380 + t2382 - t2384 - t2386;
4012   t2389 = t208 * t305 * t78;
4013   t2390 = t283 * t2389;
4014   t2391 = 0.56969282336565386482e-3 * t2390;
4015   t2392 = t597 * t601;
4016   t2393 = 0.73246220147012639764e-3 * t2392;
4017   t2394 = t626 * t1;
4018   t2395 = t2394 * t285;
4019   t2396 = 0.54934665110259479823e-3 * t2395;
4020   t2398 = t895 * t838 * t275;
4021   t2399 = t288 * t2398;
4022   t2400 = 0.35089340384731224426e1 * t2399;
4023   t2402 = t848 * t273;
4024   t2403 = t844 * t838 * t2402;
4025   t2404 = t288 * t2403;
4026   t2405 = 0.51947267698127589897e2 * t2404;
4027   t2406 = t234 * t908;
4028   t2407 = 0.12e2 * t2406;
4029   t2408 = t2368 * t79;
4030   t2409 = 0.19751789702565206229e-1 * t2408;
4031   t2411 = t2201 * t2175 * t848;
4032   t2412 = t288 * t2411;
4033   t2413 = 0.10389453539625517980e3 * t2412;
4034   t2414 = -t2391 + t2393 - t2396 + t2400 - t2405 - t2407 + t2409 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314;
4035   t2416 = t2129 + t2345 + t2387 + t2414;
4036   t2420 = t916 * t129;
4037   t2423 = t320 * t341;
4038   t2428 = t111 * t949;
4039   t2429 = t115 * t2043;
4040   t2432 = t114 * t299;
4041   t2433 = t2432 * t724;
4042   t2436 = t115 * t2030;
4043   t2439 = -0.12897460341341234505e3 * t2416 * t112 * t115 + 0.11607714307207111054e4 * t2420 * t325 - 0.46430857228828444218e4 * t2423 * t924 + 0.11607714307207111054e4 * t920 * t927 + 0.77384762048047407030e4 * t2428 * t2429 - 0.46430857228828444218e4 * t1211 * t2433 + 0.38692381024023703515e3 * t324 * t2436;
4044   t2441 = t6 * t2439 * t118;
4045   t2442 = t152 * t2441;
4046   t2445 = t822 * t933;
4047   t2447 = t2111 * t118;
4048   t2448 = t152 * t2447;
4049   t2451 = t822 * t937;
4050   t2453 = t812 * t821;
4051   t2454 = t2453 * t818;
4052   t2456 = t942 * t127;
4053   t2457 = t317 * t2456;
4054   t2458 = t2457 * t331;
4055   t2460 = t6 * t299;
4056   t2461 = t2460 * t724;
4057   t2462 = t1240 * t2461;
4058   t2465 = t943 * t344;
4059   t2467 = t337 * t956;
4060   t2470 = 0.1e1 / t8 / t232;
4061   t2471 = t99 * t2470;
4062   t2474 = 0.455e3 / 0.1296e4 * t2471 * t50 * t108;
4063   t2475 = t5 * t2030;
4064   t2476 = t312 * t2475;
4065   t2479 = t795 * t310;
4066   t2480 = t2479 * t314;
4067   t2482 = t799 * t809;
4068   t2484 = -0.16299677793353920978e-1 * t2109 * t2114 + 0.16299677793353920977e-1 * t813 * t2118 - 0.27166129655589868296e-2 * t319 * t2442 + 0.38032581517825815615e-1 * t2445 - 0.27166129655589868296e-2 * t319 * t2448 + 0.38032581517825815615e-1 * t2451 - 0.76065163035651631230e-1 * t2454 - 0.21551796193434628848e0 * t2458 + 0.16299677793353920977e0 * t1239 * t2462 - 0.86207184773738515394e0 * t2465 + 0.15213032607130326246e0 * t2467 - t2474 - t311 * t2476 / 0.48e2 - 0.35e2 / 0.72e2 * t2480 + 0.7e1 / 0.48e2 * t2482;
4069   t2485 = t2107 + t2484;
4070   t2489 = t959 * t352;
4071   t2493 = t347 * t968;
4072   t2500 = t351 * t351;
4073   t2501 = 0.1e1 / t2500;
4074   t2502 = t136 * t2501;
4075   t2503 = t970 * t391;
4076   t2507 = t968 * t391;
4077   t2508 = t2507 * t1051;
4078   t2519 = t1029 * t821;
4079   t2520 = t2519 * t829;
4080   t2522 = t129 * t106;
4081   t2523 = t2522 * t5;
4082   t2524 = t2523 * t2077;
4083   t2527 = t142 * t2060;
4084   t2534 = t989 * t2082;
4085   t2539 = 0.18137053605011111023e0 * t1030 * t2052 + 0.18137053605011111023e0 * t1030 * t2056 - 0.45342634012527777558e-1 * t1030 * t2061 + 0.13602790203758333267e0 * t1301 * t2071 - 0.16927916698010370288e1 * t2520 - 0.15647690681619764138e1 * t987 * t2524 - 0.26079484469366273564e0 * t987 * t2527 - 0.54411160815033333070e0 * t1301 * t2066 + 0.18137053605011111023e0 * t1030 * t2083 + 0.52158968938732547127e0 * t987 * t2534 - 0.90685268025055555117e0 * t1030 * t2078;
4086   t2542 = t1044 * t952;
4087   t2545 = t2101 * t107 * t2043;
4088   t2549 = t1871 * t127 * t153;
4089   t2551 = 0.13322897401211865505e1 * t150 * t2549;
4090   t2552 = t989 * t2065;
4091   t2555 = t142 * t2070;
4092   t2558 = t986 * t307;
4093   t2559 = t2558 * t990;
4094   t2561 = t989 * t2051;
4095   t2564 = t989 * t2055;
4096   t2567 = t1006 * t1010;
4097   t2570 = t137 * t138 * t680;
4098   t2571 = t2570 * t371;
4099   t2573 = t1006 * t1014;
4100   t2575 = -0.90685268025055555116e0 * t388 * t2045 - 0.21159895872512962860e1 * t2542 - 0.20863587575493018851e1 * t369 * t2545 - t2551 - 0.10431793787746509425e1 * t1267 * t2552 + 0.52158968938732547127e0 * t1267 * t2555 - 0.24340852171408521993e1 * t2559 + 0.52158968938732547127e0 * t987 * t2561 + 0.52158968938732547127e0 * t987 * t2564 - 0.36511278257112782988e1 * t2567 - 0.40568086952347536654e1 * t2571 + 0.12170426085704260996e1 * t2573;
4101   t2578 = t310 * t107 * t2030;
4102   t2582 = t146 * t149 * t941;
4103   t2583 = t2582 * t344;
4104   t2585 = t1044 * t956;
4105   t2590 = t146 * t1019 * t335;
4106   t2591 = t2590 * t1022;
4107   t2594 = t146 * t376 * t941;
4108   t2595 = t2594 * t380;
4109   t2597 = t1026 * t1036;
4110   t2599 = t379 * t2447;
4111   t2603 = t137 * t974 * t305;
4112   t2604 = t2603 * t979;
4113   t2607 = t137 * t354 * t680;
4114   t2608 = t2607 * t361;
4115   t2610 = t983 * t999;
4116   t2612 = -0.17386322979577515709e0 * t369 * t2578 - 0.23981215322181357908e1 * t2583 + 0.42319791745025925720e0 * t2585 - 0.30228422675018518372e-1 * t388 * t2087 - 0.63479687617538888580e0 * t2591 - 0.11990607661090678954e1 * t2595 + 0.21159895872512962860e0 * t2597 - 0.15114211337509259186e-1 * t378 * t2599 - 0.12170426085704260996e1 * t2604 - 0.20284043476173768327e1 * t2608 + 0.60852130428521304981e0 * t2610;
4117   t2613 = t379 * t2117;
4118   t2616 = t1018 * t99;
4119   t2618 = t137 * t2616 * t101;
4120   t2619 = t5 * t2110;
4121   t2620 = t2619 * t2112;
4122   t2621 = t358 * t2620;
4123   t2624 = t2619 * t816;
4124   t2625 = t358 * t2624;
4125   t2628 = t2619 * t118;
4126   t2629 = t358 * t2628;
4127   t2632 = t1291 * t2090;
4128   t2635 = t1026 * t1033;
4129   t2638 = t5 * t2439 * t118;
4130   t2639 = t358 * t2638;
4131   t2642 = t983 * t995;
4132   t2645 = 0.1e1 / t1017 / t119;
4133   t2646 = t2645 * t122;
4134   t2648 = t146 * t2646 * t124;
4135   t2649 = t379 * t2113;
4136   t2652 = t1319 * t2461;
4137   t2655 = t379 * t2441;
4138   t2658 = t2470 * t50;
4139   t2661 = 0.29299173910028776472e1 * t139 * t2658 * t142;
4140   t2662 = 0.13602790203758333267e0 * t1021 * t2613 - 0.52158968938732547127e0 * t2618 * t2621 + 0.52158968938732547127e0 * t976 * t2625 - 0.86931614897887578546e-1 * t356 * t2629 + 0.15647690681619764138e1 * t369 * t2632 + 0.21159895872512962860e0 * t2635 - 0.86931614897887578546e-1 * t356 * t2639 + 0.60852130428521304981e0 * t2642 - 0.18137053605011111023e0 * t2648 * t2649 + 0.45342634012527777558e0 * t388 * t2652 - 0.15114211337509259186e-1 * t378 * t2655 - t2661;
4141   t2664 = t2539 + t2575 + t2612 + t2662;
4142   t2668 = 0.27818116767324025134e1 * t97 * t2485 * t158 - 0.83454350301972075402e1 * t97 * t2489 * t391 + 0.16690870060394415081e2 * t97 * t2493 * t970 - 0.83454350301972075402e1 * t97 * t963 * t1051 - 0.16690870060394415080e2 * t97 * t2502 * t2503 + 0.16690870060394415081e2 * t1261 * t2508 - 0.27818116767324025134e1 * t97 * t353 * t2664;
4143   t2671 = t89 * t95 * t2668 * t397;
4144   t2672 = 0.25844881434903430496e-2 * t2671;
4145   t2673 = t176 * t2030;
4146   t2675 = t167 * t2673 * t99;
4147   t2676 = t2675 * t194;
4148   t2677 = t2676 / 0.2e1;
4149   t2680 = -0.60319259259259259259e1 * t2157 - 0.54733333333333333333e-2 * t2168;
4150   t2682 = t689 * t406;
4151   t2685 = t403 * t695;
4152   t2690 = t405 * t405;
4153   t2691 = 0.1e1 / t2690;
4154   t2692 = t170 * t2691;
4155   t2693 = t697 * t410;
4156   t2696 = t410 * t702;
4157   t2701 = -0.22615185185185185185e4 * t2157 - 0.34962962962962962963e3 * t2168;
4158   t2703 = t174 * t2680 - 0.3e1 * t2682 * t410 + 0.6e1 * t2685 * t697 - 0.6e1 * t2692 * t2693 + 0.6e1 * t2696 * t696 - t2701 * t407 - 0.3e1 * t691 * t702;
4159   t2704 = t2703 * t93;
4160   t2706 = t167 * t2704 * t99;
4161   t2707 = t2706 * t194;
4162   t2708 = t2707 / 0.2e1;
4163   t2709 = t707 * t423;
4164   t2710 = 0.7e1 / 0.2e1 * t2709;
4165   t2711 = t415 * t682;
4166   t2712 = 0.35e2 / 0.3e1 * t2711;
4167   t2713 = t2001 - t2003 + t2033 + t2035 - t2037 + t2039 + t2672 + t2677 + t2708 - t2710 + t2712;
4168   t2715 = t712 * t423;
4169   t2716 = 0.7e1 * t2715;
4170   t2717 = t727 * t423;
4171   t2719 = t2658 * t193;
4172   t2720 = t179 * t2719;
4173   t2721 = 0.455e3 / 0.27e2 * t2720;
4174   t2722 = t420 * t682;
4175   t2723 = 0.35e2 / 0.3e1 * t2722;
4176   t2724 = t420 * t782;
4177   t2725 = 0.3e1 / 0.2e1 * t2724;
4178   t2727 = t420 * t789;
4179   t2728 = 0.3e1 / 0.2e1 * t2727;
4180   t2729 = t759 * t788;
4181   t2730 = t179 * t2729;
4182   t2732 = t415 * t789;
4183   t2734 = t786 * t438;
4184   t2736 = t5 * t2734 * t192;
4185   t2737 = t426 * t2736;
4186   t2738 = t179 * t2737;
4187   t2739 = t2738 / 0.2e1;
4188   t2740 = t704 * t299;
4189   t2742 = t167 * t2740 * t99;
4190   t2743 = t2742 * t194;
4191   t2744 = 0.3e1 / 0.2e1 * t2743;
4192   t2745 = t412 * t724;
4193   t2747 = t167 * t2745 * t99;
4194   t2748 = t2747 * t194;
4195   t2750 = t2728 - 0.7e1 / 0.2e1 * t2730 + 0.3e1 / 0.2e1 * t2732 + t2739 + t2137 + t2139 + t2744 + 0.3e1 / 0.2e1 * t2748 - t2141 - t2143 - t2174;
4196   t2754 = t89 * t2043 * t163;
4197   t2755 = 0.15506928860942058298e-1 * t2754;
4198   t2756 = t707 * t441;
4199   t2757 = 0.3e1 / 0.2e1 * t2756;
4200   t2758 = t415 * t782;
4201   t2763 = 0.15400e5 / 0.243e3 * t184 * t335 * t94 * t188;
4202   t2764 = t124 * t93;
4203   t2766 = t184 * t2764 * t434;
4204   t2770 = t184 * t428 * t736 * t188;
4205   t2773 = t184 * t767 * t775;
4206   t2778 = t188 * t2030;
4207   t2782 = t2763 - 0.2200e4 / 0.27e2 * t2766 + 0.200e3 / 0.9e1 * t2770 + 0.200e3 / 0.9e1 * t2773 - 0.25e2 / 0.3e1 * t184 * t1339 * t775 - 0.25e2 / 0.9e1 * t184 * t433 * t2778;
4208   t2784 = t5 * t2782 * t192;
4209   t2785 = t426 * t2784;
4210   t2786 = t179 * t2785;
4211   t2787 = t2786 / 0.2e1;
4212   t2788 = t681 * t106;
4213   t2789 = t2788 * t440;
4214   t2790 = t179 * t2789;
4215   t2791 = 0.35e2 / 0.3e1 * t2790;
4216   t2792 = t415 * t760;
4217   t2793 = 0.7e1 * t2792;
4218   t2795 = t759 * t781;
4219   t2796 = t179 * t2795;
4220   t2798 = t420 * t760;
4221   t2800 = t712 * t441;
4222   t2802 = t727 * t441;
4223   t2803 = 0.3e1 / 0.2e1 * t2802;
4224   t2804 = -0.7e1 / 0.2e1 * t2796 - 0.7e1 * t2798 + 0.3e1 * t2800 + t2803 - t2226 + t2238 + t2246 + t2348 + t2370 + t2373 + t2250;
4225   t2806 = t395 * t1063;
4226   t2808 = t1093 * t2806 * t1055;
4227   t2809 = 0.77534644304710291488e-2 * t2808;
4228   t2810 = -t2253 + t2262 - t2377 - t2380 + t2382 - t2384 - t2386 - t2809 - t2391 + t2393 - t2396;
4229   t2811 = t1060 * t395;
4230   t2814 = 0.1e1 / t1062 / t162;
4231   t2816 = t89 * t95 * t2811 * t2814;
4232   t2817 = 0.51689762869806860992e-2 * t2816;
4233   t2818 = t2400 - t2405 - t2407 + t2409 + t2817 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314;
4234   t2823 = t1944 + t1945 + t1946 - t1947 + 0.24e2 * t756 + 0.3e1 * t758 - 0.7e1 * t761 + 0.3e1 / 0.2e1 * t783 + 0.3e1 * t785 + 0.3e1 / 0.2e1 * t790 - t1954 + 0.77534644304710291488e-2 * t1058 + t1956 - t1957 - t1958 - 0.35089340384731224426e1 * t853 + t1960 - 0.77534644304710291488e-2 * t1065 + 0.23260393291413087447e-1 * t1068 + t7 * (t1970 + t1974 + t1992 + t1977 + t1995 + t2750 - t2179 + t2181 + t2122 - t2721 + t2723 + t1986 + t1989 + t2713 + t2725 - t2125 + t2128 + t2755 + t2757 + 0.3e1 / 0.2e1 * t2758 - t2716 - 0.7e1 / 0.2e1 * t2717 - t2133 - t1980 - t1983 + t2344 - t1966 + t2184 + t2787 + t2791 - t2793 + t2135 + t2804 + t2810 + t2818);
4235   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4236     v3rho3[0] = t1943 + t2823;
4237 
4238   t2824 = 0.51689762869806860992e-2 * t1096;
4239   t2827 = -t1374 - t1392 - t1396 - t2824 + t1101 + t1119 - t1923 - 0.73246220147012639764e-3 * t598 + t1925 + t1926 + t1131 - t1461 + t628 + t630 + 0.4e1 * t632;
4240   t2829 = 0.15506928860942058298e-1 * t1139;
4241   t2830 = 0.31013857721884116596e-1 * t1144;
4242   t2831 = 0.15506928860942058298e-1 * t1147;
4243   t2834 = t299 * t99;
4244   t2835 = t2834 * t101;
4245   t2836 = t1122 * t2835;
4246   t2837 = t2836 * t1130;
4247   t2839 = t1347 * t438 * t192;
4248   t2840 = t1127 * t2839;
4249   t2841 = t1125 * t2840;
4250   t2842 = t2006 * t446;
4251   t2845 = t714 * t34;
4252   t2846 = t612 * t239;
4253   t2855 = t2020 * t448;
4254   t2858 = t719 * t34;
4255   t2859 = t612 * t241;
4256   t2868 = 0.4e1 / 0.27e2 * t2842 * t609 - 0.4e1 / 0.9e1 * t2845 * t2846 - t1103 * t615 / 0.9e1 + 0.2e1 / 0.3e1 * t294 * t612 - 0.2e1 * t1106 * t39 + 0.4e1 / 0.27e2 * t2855 * t619 + 0.4e1 / 0.9e1 * t2858 * t2859 - t1109 * t622 / 0.9e1 - 0.2e1 / 0.3e1 * t296 * t612 + 0.2e1 * t1112 * t39;
4257   t2869 = t176 * t2868;
4258   t2871 = t167 * t2869 * t99;
4259   t2872 = t2871 * t194;
4260   t2874 = 0.21687161765563048428e-1 * t1991;
4261   t2875 = t1330 * t397;
4262   t2877 = t730 * t2875 * t299;
4263   t2879 = t163 * t1115;
4264   t2881 = t1141 * t2879 * t299;
4265   t2883 = t507 * t2814;
4266   t2885 = t1093 * t2883 * t1060;
4267   t2888 = t521 * t786 * t192;
4268   t2889 = t1127 * t2888;
4269   t2890 = t1125 * t2889;
4270   t2892 = t2350 * t446;
4271   t2895 = t608 * t34;
4272   t2904 = t2359 * t448;
4273   t2907 = t618 * t34;
4274   t2917 = (-0.8e1 / 0.27e2 * t2892 * t609 + 0.16e2 / 0.9e1 * t2895 * t2846 + 0.4e1 / 0.9e1 * t1179 * t615 + 0.8e1 / 0.3e1 * t44 * t612 - 0.8e1 * t1182 * t39 - 0.8e1 / 0.27e2 * t2904 * t619 - 0.16e2 / 0.9e1 * t2907 * t2859 + 0.4e1 / 0.9e1 * t1185 * t622 - 0.8e1 / 0.3e1 * t47 * t612 + 0.8e1 * t1188 * t39) * t53;
4275   t2918 = t2917 * t79;
4276   t2919 = 0.19751789702565206229e-1 * t2918;
4277   t2920 = 0.32e2 * t2002;
4278   t2921 = t1123 * t305;
4279   t2922 = t1122 * t2921;
4280   t2923 = t2922 * t1130;
4281   t2924 = 0.7e1 / 0.3e1 * t2923;
4282   t2925 = t2837 + t2841 + t2872 / 0.2e1 - t1980 - t1983 + t1986 + t1989 + t2874 + 0.15506928860942058298e-1 * t2877 + 0.31013857721884116596e-1 * t2881 + 0.51689762869806860992e-2 * t2885 + t2890 / 0.2e1 + t2919 - t2920 - t2924;
4283   t2927 = t521 * t779 * t192;
4284   t2928 = t1127 * t2927;
4285   t2929 = t1125 * t2928;
4286   t2931 = t1118 * t423;
4287   t2932 = 0.7e1 / 0.3e1 * t2931;
4288   t2933 = 0.40e2 * t2038;
4289   t2937 = 0.48e2 * t2124;
4290   t2938 = 0.80e2 * t2127;
4291   t2939 = t704 * t460;
4292   t2941 = t167 * t2939 * t99;
4293   t2942 = t2941 * t194;
4294   t2944 = t2929 / 0.2e1 - t2932 + t2035 + t2933 + t2708 - t2710 + t2712 - 0.14e2 / 0.3e1 * t2715 - 0.7e1 / 0.6e1 * t2717 - t2721 + 0.70e2 / 0.9e1 * t2722 - t2122 + t2937 + t2938 - t2133 + t2942 / 0.2e1;
4295   t2946 = t412 * t1115;
4296   t2948 = t167 * t2946 * t99;
4297   t2949 = t2948 * t194;
4298   t2950 = t751 * t453;
4299   t2951 = 0.12e2 * t2950;
4300   t2952 = t741 * t453;
4301   t2953 = 0.32e2 * t2952;
4302   t2954 = t229 * t1197;
4303   t2955 = 0.8e1 * t2954;
4304   t2956 = 0.4e1 * t2134;
4305   t2957 = t514 * t789;
4306   t2959 = t415 * t1359;
4307   t2961 = t420 * t1359;
4308   t2962 = 0.7e1 / 0.3e1 * t2961;
4309   t2963 = t759 * t1349;
4310   t2964 = t179 * t2963;
4311   t2965 = 0.7e1 / 0.3e1 * t2964;
4312   t2968 = t514 * t682;
4313   t2970 = t1330 * t1063;
4314   t2972 = t1093 * t2970 * t395;
4315   t2974 = t1087 * t601;
4316   t2975 = 0.24415406715670879921e-3 * t2974;
4317   t2976 = t707 * t524;
4318   t2978 = t2949 + t2951 - t2953 + t2955 + t2956 + t2957 / 0.2e1 - 0.7e1 / 0.3e1 * t2959 - t2962 - t2965 - 0.7e1 / 0.6e1 * t2730 + t2732 / 0.2e1 + 0.35e2 / 0.9e1 * t2968 - 0.51689762869806860992e-2 * t2972 + t2975 + t2976 / 0.2e1;
4319   t2979 = t712 * t524;
4320   t2980 = t727 * t524;
4321   t2982 = t514 * t760;
4322   t2983 = 0.7e1 / 0.3e1 * t2982;
4323   t2984 = t514 * t782;
4324   t2986 = 0.12e2 * t2136;
4325   t2987 = 0.24e2 * t2138;
4326   t2990 = t730 * t1137 * t724;
4327   t2992 = 0.34631511798751726598e2 * t2140;
4328   t2993 = 0.11696446794910408142e1 * t2142;
4329   t2994 = 0.23392893589820816284e1 * t2180;
4330   t2995 = t452 * t907;
4331   t2996 = t40 * t2995;
4332   t2998 = t730 * t731 * t1115;
4333   t3000 = t2979 + t2980 / 0.2e1 - t2983 + t2984 / 0.2e1 - t2986 - t2987 + t2743 + t2748 / 0.2e1 + 0.77534644304710291488e-2 * t2990 - t2992 - t2993 - t2174 - t2179 + t2994 + t2996 + 0.15506928860942058298e-1 * t2998;
4334   t3003 = 0.2e1 * t2183;
4335   t3004 = t1090 * t911;
4336   t3005 = 0.11696446794910408142e1 * t3004;
4337   t3006 = t460 * t299;
4338   t3008 = t1141 * t731 * t3006;
4339   t3015 = t1100 * t423;
4340   t3017 = t3003 + t2344 + t3005 + 0.31013857721884116596e-1 * t3008 + t2756 + t2758 / 0.2e1 + 0.70e2 / 0.9e1 * t2790 - 0.14e2 / 0.3e1 * t2792 - 0.7e1 / 0.6e1 * t2796 - 0.7e1 / 0.3e1 * t2798 + t2800 - t2226 + t2238 + t2246 - 0.7e1 / 0.3e1 * t3015;
4341   t3019 = t89 * t293 * t2868;
4342   t3022 = t1141 * t1137 * t736;
4343   t3024 = 0.4e1 * t2347;
4344   t3025 = t2917 * t81;
4345   t3026 = t40 * t3025;
4346   t3027 = t1192 * t278;
4347   t3028 = t40 * t3027;
4348   t3029 = 0.2e1 * t3028;
4349   t3030 = t748 * t453;
4350   t3031 = 0.20e2 * t3030;
4351   t3032 = t452 * t4;
4352   t3033 = t3032 * t605;
4353   t3034 = 0.10843580882781524214e-1 * t3033;
4354   t3035 = 0.58482233974552040708e0 * t2379;
4355   t3036 = 0.16e2 * t2383;
4356   t3037 = 0.4e1 * t2385;
4357   t3038 = 0.77534644304710291488e-2 * t3019 + 0.15506928860942058298e-1 * t3022 - t3024 + t2372 + t2250 - t2253 + t2262 + t3026 + t3029 + t3031 + t3034 - t2377 - t3035 - t3036 - t3037 - t2391;
4358   t3040 = 0.48830813431341759842e-3 * t2392;
4359   t3041 = 0.18311555036753159941e-3 * t2395;
4360   t3042 = t415 * t1350;
4361   t3043 = t420 * t1350;
4362   t3048 = t184 * t2764 * t517;
4363   t3050 = t428 * t299;
4364   t3053 = 0.400e3 / 0.27e2 * t184 * t3050 * t517;
4365   t3056 = 0.400e3 / 0.27e2 * t184 * t767 * t1343;
4366   t3057 = t186 * t724;
4367   t3064 = t188 * t2868;
4368   t3068 = t2763 - 0.4400e4 / 0.81e2 * t2766 + 0.200e3 / 0.27e2 * t2770 + 0.200e3 / 0.27e2 * t2773 - 0.2200e4 / 0.81e2 * t3048 + t3053 + t3056 - 0.25e2 / 0.9e1 * t184 * t3057 * t517 - 0.50e2 / 0.9e1 * t184 * t1339 * t1343 - 0.25e2 / 0.9e1 * t184 * t433 * t3064;
4369   t3070 = t5 * t3068 * t192;
4370   t3071 = t426 * t3070;
4371   t3072 = t179 * t3071;
4372   t3074 = t2788 * t523;
4373   t3075 = t179 * t3074;
4374   t3078 = t730 * t1967 * t460;
4375   t3080 = t736 * t163;
4376   t3082 = t89 * t3080 * t460;
4377   t3085 = t1093 * t1094 * t1055;
4378   t3087 = t1142 * t724;
4379   t3088 = t1141 * t3087;
4380   t3090 = t167 * t412;
4381   t3091 = t3090 * t1124;
4382   t3092 = t3091 * t1130;
4383   t3093 = t1090 * t840;
4384   t3094 = 0.58482233974552040708e0 * t3093;
4385   t3096 = t730 * t1963 * t460;
4386   t3098 = t3040 - t3041 + t2400 - t2405 - t2407 + t3042 + t3043 + t3072 / 0.2e1 + 0.35e2 / 0.9e1 * t3075 + 0.77534644304710291488e-2 * t3078 + 0.15506928860942058298e-1 * t3082 - 0.25844881434903430496e-2 * t3085 + 0.15506928860942058298e-1 * t3088 + t3092 - t3094 - 0.77534644304710291488e-2 * t3096;
4387   t3099 = t234 * t1197;
4388   t3100 = 0.8e1 * t3099;
4389   t3101 = t229 * t1195;
4390   t3102 = 0.8e1 * t3101;
4391   t3103 = t234 * t1195;
4392   t3104 = 0.8e1 * t3103;
4393   t3107 = t317 * t122;
4394   t3108 = t151 * t949;
4395   t3109 = t3107 * t3108;
4396   t3110 = t481 * t828;
4397   t3121 = t342 * t132 * t2868;
4398   t3124 = -0.25355054345217210410e0 * t2048 - 0.10142021738086884164e0 * t2074 - 0.10866451862235947318e0 * t3109 * t3110 - t2097 - 0.7e1 / 0.48e2 * t2099 + 0.12677527172608605205e-1 * t2445 + 0.12677527172608605205e-1 * t2451 - 0.25355054345217210410e-1 * t2454 - 0.14367864128956419232e0 * t2458 - 0.57471456515825676930e0 * t2465 + 0.50710108690434420820e-1 * t2467 - 0.10866451862235947318e-1 * t126 * t3121;
4399   t3125 = t337 * t1247;
4400   t3127 = t464 * t736;
4401   t3128 = t312 * t3127;
4402   t3132 = 0.7e1 / 0.24e2 * t2098 * t1157;
4403   t3133 = t1160 * t299;
4404   t3134 = t312 * t3133;
4405   t3137 = t464 * t724;
4406   t3138 = t312 * t3137;
4407   t3141 = t943 * t482;
4408   t3143 = t121 * t821;
4409   t3144 = t3143 * t1243;
4410   t3146 = t6 * t1115;
4411   t3147 = t3146 * t299;
4412   t3148 = t1240 * t3147;
4413   t3151 = t1241 * t724;
4414   t3152 = t1240 * t3151;
4415   t3155 = -t1980 - t1983 + t1986 + t1989 + t2874 + t2919 - t2920 + t2035 + t2933 - t2122 + t2937 + t2938 - t2133 + t2951 - t2953 + t2955;
4416   t3156 = t2956 + t2975 - t2986 - t2987 - t2992 - t2993 - t2174 - t2179 + t2994 + t2996 + t3003 + t2344 + t3005 - t2226 + t2238 + t2246;
4417   t3158 = -t3024 + t2372 + t2250 - t2253 + t2262 + t3026 + t3029 + t3031 + t3034 - t2377 - t3035 - t3036 - t3037 - t2391 + t3040 - t3041;
4418   t3159 = t1192 * t1;
4419   t3160 = t3159 * t285;
4420   t3161 = 0.36623110073506319882e-3 * t3160;
4421   t3162 = t1090 * t849;
4422   t3163 = 0.17315755899375863299e2 * t3162;
4423   t3164 = t1192 * t69;
4424   t3165 = t3164 * t290;
4425   t3166 = 0.11696446794910408142e1 * t3165;
4426   t3167 = t2400 - t2405 - t2407 - t3094 - t3100 + t3102 - t3104 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314 - t3161 - t3163 - t3166;
4427   t3169 = t3155 + t3156 + t3158 + t3167;
4428   t3173 = t1202 * t129;
4429   t3176 = t468 * t341;
4430   t3183 = t2423 * t1;
4431   t3188 = t2428 * t1;
4432   t3189 = t1212 * t736;
4433   t3192 = t114 * t1115;
4434   t3193 = t3192 * t299;
4435   t3196 = t1212 * t724;
4436   t3199 = t115 * t2868;
4437   t3202 = -0.12897460341341234505e3 * t3169 * t112 * t115 + 0.77384762048047407030e3 * t3173 * t325 - 0.15476952409609481406e4 * t3176 * t924 + 0.38692381024023703515e3 * t1206 * t927 + 0.38692381024023703515e3 * t2420 * t472 - 0.30953904819218962812e4 * t3183 * t1213 + 0.77384762048047407030e3 * t920 * t1216 + 0.77384762048047407030e4 * t3188 * t3189 - 0.30953904819218962812e4 * t1211 * t3193 - 0.15476952409609481406e4 * t1211 * t3196 + 0.38692381024023703515e3 * t324 * t3199;
4438   t3204 = t6 * t3202 * t118;
4439   t3205 = t152 * t3204;
4440   t3209 = 0.25355054345217210410e-1 * t822 * t1222;
4441   t3210 = t151 * t341;
4442   t3211 = t3107 * t3210;
4443   t3212 = t132 * t475;
4444   t3213 = t3212 * t828;
4445   t3216 = t812 * t122;
4446   t3217 = t3216 * t3210;
4447   t3218 = t2069 * t299;
4448   t3219 = t3212 * t3218;
4449   t3222 = 0.10142021738086884163e0 * t3125 - t2102 * t3128 / 0.4e1 - t3132 + t803 * t3134 / 0.8e1 + t803 * t3138 / 0.16e2 - 0.28735728257912838463e0 * t3141 - 0.50710108690434420817e0 * t3144 + 0.10866451862235947318e0 * t1239 * t3148 + 0.54332259311179736590e-1 * t1239 * t3152 - 0.27166129655589868296e-2 * t319 * t3205 + t3209 + 0.21732903724471894636e-1 * t3211 * t3213 - 0.43465807448943789273e-1 * t3217 * t3219;
4450   t3224 = t1171 * t724;
4451   t3225 = t826 * t3224;
4452   t3228 = t1219 * t328;
4453   t3229 = t3228 * t118;
4454   t3230 = t153 * t3229;
4455   t3233 = t475 * t930;
4456   t3234 = t3233 * t118;
4457   t3235 = t153 * t3234;
4458   t3238 = t1219 * t816;
4459   t3239 = t3238 * t328;
4460   t3240 = t153 * t3239;
4461   t3243 = t1164 * t930;
4462   t3244 = t153 * t3243;
4463   t3248 = 0.10142021738086884164e0 * t822 * t1173;
4464   t3250 = 0.25355054345217210410e-1 * t822 * t1227;
4465   t3251 = t1219 * t118;
4466   t3252 = t3251 * t299;
4467   t3253 = t826 * t3252;
4468   t3256 = t475 * t2112;
4469   t3257 = t3256 * t814;
4470   t3258 = t153 * t3257;
4471   t3261 = t1164 * t814;
4472   t3262 = t153 * t3261;
4473   t3265 = t460 * t814;
4474   t3266 = t3265 * t816;
4475   t3267 = t826 * t3266;
4476   t3270 = t1115 * t328;
4477   t3271 = t3270 * t118;
4478   t3272 = t826 * t3271;
4479   t3275 = t460 * t930;
4480   t3276 = t3275 * t118;
4481   t3277 = t826 * t3276;
4482   t3280 = 0.10866451862235947318e-1 * t319 * t3225 - 0.54332259311179736592e-2 * t319 * t3230 - 0.27166129655589868296e-2 * t319 * t3235 + 0.10866451862235947318e-1 * t813 * t3240 + 0.54332259311179736592e-2 * t813 * t3244 - t3248 + t3250 + 0.21732903724471894636e-1 * t319 * t3253 - 0.16299677793353920978e-1 * t2109 * t3258 + 0.16299677793353920977e-1 * t813 * t3262 - 0.21732903724471894636e-1 * t813 * t3267 + 0.21732903724471894636e-1 * t319 * t3272 + 0.10866451862235947318e-1 * t319 * t3277;
4483   t3281 = t475 * t814;
4484   t3282 = t3281 * t118;
4485   t3283 = t153 * t3282;
4486   t3286 = t822 * t1234;
4487   t3288 = t1171 * t736;
4488   t3289 = t2076 * t3288;
4489   t3293 = 0.50710108690434420820e-1 * t2453 * t1166;
4490   t3294 = t3265 * t118;
4491   t3295 = t826 * t3294;
4492   t3298 = t2479 * t465;
4493   t3301 = 0.7e1 / 0.72e2 * t799 * t1161;
4494   t3302 = t5 * t2868;
4495   t3303 = t312 * t3302;
4496   t3306 = t2041 * t131;
4497   t3307 = t1241 * t736;
4498   t3308 = t3306 * t3307;
4499   t3311 = t2457 * t478;
4500   t3315 = -0.27166129655589868296e-2 * t319 * t3283 - 0.10142021738086884163e0 * t3286 - 0.54332259311179736590e-1 * t319 * t3289 - t3293 + 0.10866451862235947318e-1 * t319 * t3295 - 0.35e2 / 0.216e3 * t3298 + t3301 - t311 * t3303 / 0.48e2 - 0.32599355586707841954e0 * t1239 * t3308 - 0.71839320644782096162e-1 * t3311 - t2474 - 0.35e2 / 0.108e3 * t2480 + 0.7e1 / 0.144e3 * t2482;
4501   t3317 = t3124 + t3222 + t3280 + t3315;
4502   t3321 = t1250 * t352;
4503   t3325 = t485 * t968;
4504   t3335 = t97 * t347;
4505   t3341 = t2501 * t503;
4506   t3342 = t3341 * t970;
4507   t3345 = t968 * t1326;
4508   t3346 = t3345 * t391;
4509   t3349 = t1262 * t1051;
4510   t3360 = t2519 * t1173;
4511   t3363 = 0.14106597248341975240e0 * t2519 * t1227;
4512   t3373 = t2570 * t495;
4513   t3376 = 0.28213194496683950480e0 * t1044 * t1247;
4514   t3379 = t137 * t1018;
4515   t3380 = t3379 * t103;
4516   t3381 = t142 * t3257;
4517   t3384 = t142 * t3261;
4518   t3387 = t989 * t3266;
4519   t3390 = t2519 * t1234;
4520   t3396 = 0.12091369070007407349e0 * t1030 * t3272 + 0.60456845350037036744e-1 * t1030 * t3277 - 0.30228422675018518372e-1 * t1030 * t3230 - 0.15114211337509259186e-1 * t1030 * t3235 - 0.56426388993367900961e0 * t3360 + t3363 + 0.12091369070007407349e0 * t1030 * t3253 + 0.60456845350037036744e-1 * t1030 * t3225 + 0.90685268025055555116e-1 * t1301 * t3240 + 0.45342634012527777558e-1 * t1301 * t3244 - 0.56426388993367900961e0 * t2520 - 0.13522695650782512218e1 * t3373 + t3376 - 0.18137053605011111023e0 * t1301 * t3267 - 0.52158968938732547127e0 * t3380 * t3381 + 0.52158968938732547127e0 * t1267 * t3384 - 0.34772645959155031418e0 * t1267 * t3387 - 0.56426388993367900961e0 * t3390 + 0.60456845350037036744e-1 * t1030 * t3295 - 0.15114211337509259186e-1 * t1030 * t3283;
4521   t3399 = t989 * t3294;
4522   t3402 = t1300 * t821;
4523   t3404 = 0.42319791745025925720e0 * t3402 * t1166;
4524   t3405 = t142 * t3282;
4525   t3409 = 0.81136173904695073308e0 * t2558 * t1286;
4526   t3410 = t2523 * t3288;
4527   t3413 = t1266 * t307;
4528   t3415 = 0.81136173904695073308e0 * t3413 * t1268;
4529   t3419 = 0.40568086952347536654e0 * t983 * t1278;
4530   t3420 = t1319 * t3147;
4531   t3423 = t1319 * t3151;
4532   t3427 = 0.14106597248341975240e0 * t1026 * t1308;
4533   t3428 = t379 * t3204;
4534   t3432 = 0.24340852171408521992e1 * t1006 * t1292;
4535   t3433 = t1291 * t3133;
4536   t3436 = t1291 * t3137;
4537   t3440 = t5 * t3202 * t118;
4538   t3441 = t358 * t3440;
4539   t3444 = t2042 * t131;
4540   t3445 = t3444 * t3307;
4541   t3448 = -0.30228422675018518372e0 * t1030 * t3289 + 0.17386322979577515709e0 * t987 * t3399 - t3404 - 0.86931614897887578546e-1 * t987 * t3405 - t3409 - 0.52158968938732547127e0 * t987 * t3410 - t3415 - 0.70532986241709876200e0 * t2542 - t2551 - 0.81136173904695073308e0 * t2559 + t3419 + 0.30228422675018518372e0 * t388 * t3420 + 0.15114211337509259186e0 * t388 * t3423 + t3427 - 0.15114211337509259186e-1 * t378 * t3428 - t3432 + 0.10431793787746509425e1 * t369 * t3433 + 0.52158968938732547127e0 * t369 * t3436 - 0.86931614897887578546e-1 * t356 * t3441 - 0.90685268025055555116e0 * t388 * t3445;
4542   t3450 = t2101 * t106;
4543   t3451 = t3450 * t3127;
4544   t3454 = t2594 * t498;
4545   t3456 = t2607 * t491;
4546   t3459 = 0.14106597248341975240e1 * t1044 * t1320;
4547   t3462 = t328 * t299;
4548   t3463 = t1164 * t3462;
4549   t3464 = t826 * t3463;
4550   t3467 = t118 * t299;
4551   t3468 = t1225 * t3467;
4552   t3469 = t989 * t3468;
4553   t3472 = t989 * t3463;
4554   t3475 = t826 * t3468;
4555   t3478 = t1232 * t3467;
4556   t3479 = t2523 * t3478;
4557   t3482 = t2076 * t3478;
4558   t3485 = t989 * t3271;
4559   t3488 = t989 * t3276;
4560   t3491 = t142 * t3229;
4561   t3494 = t142 * t3234;
4562   t3497 = t142 * t3239;
4563   t3500 = t142 * t3243;
4564   t3504 = 0.81136173904695073308e0 * t2558 * t1273;
4565   t3506 = 0.40568086952347536654e0 * t2558 * t1281;
4566   t3507 = t989 * t3252;
4567   t3510 = -0.20863587575493018851e1 * t369 * t3451 - 0.39968692203635596514e0 * t3454 - 0.67613478253912561090e0 * t3456 - t3459 - 0.30228422675018518372e-1 * t388 * t3121 - 0.36274107210022222046e0 * t1301 * t3464 + 0.34772645959155031418e0 * t987 * t3469 - 0.69545291918310062836e0 * t1267 * t3472 + 0.12091369070007407349e0 * t1030 * t3475 - 0.10431793787746509425e1 * t987 * t3479 - 0.60456845350037036744e0 * t1030 * t3482 + 0.34772645959155031418e0 * t987 * t3485 + 0.17386322979577515709e0 * t987 * t3488 - 0.17386322979577515709e0 * t987 * t3491 - 0.86931614897887578546e-1 * t987 * t3494 + 0.34772645959155031418e0 * t1267 * t3497 + 0.17386322979577515709e0 * t1267 * t3500 - t3504 + t3506 + 0.34772645959155031418e0 * t987 * t3507;
4568   t3511 = t989 * t3224;
4569   t3514 = t146 * t2645;
4570   t3515 = t3514 * t318;
4571   t3534 = 0.81136173904695073308e0 * t1006 * t1296;
4572   t3536 = t310 * t107 * t2868;
4573   t3539 = t2582 * t482;
4574   t3541 = 0.17386322979577515709e0 * t987 * t3511 - 0.18137053605011111023e0 * t3515 * t3258 + 0.13602790203758333267e0 * t1301 * t3262 - 0.12170426085704260996e1 * t2567 - 0.27045391301565024436e1 * t2571 + 0.40568086952347536654e0 * t2573 - 0.15987476881454238606e1 * t2583 + 0.14106597248341975240e0 * t2585 - 0.21159895872512962861e0 * t2591 - 0.79937384407271193028e0 * t2595 + 0.70532986241709876202e-1 * t2597 - 0.40568086952347536654e0 * t2604 - 0.13522695650782512218e1 * t2608 + 0.20284043476173768327e0 * t2610 + 0.70532986241709876202e-1 * t2635 + 0.20284043476173768327e0 * t2642 - t2661 + t3534 - 0.17386322979577515709e0 * t369 * t3536 - 0.79937384407271193027e0 * t3539;
4575   t3543 = t3396 + t3448 + t3510 + t3541;
4576   t3547 = 0.27818116767324025134e1 * t97 * t3317 * t158 - 0.55636233534648050268e1 * t97 * t3321 * t391 + 0.55636233534648050268e1 * t97 * t3325 * t970 - 0.27818116767324025134e1 * t97 * t1254 * t1051 - 0.27818116767324025134e1 * t97 * t2489 * t503 + 0.11127246706929610054e2 * t3335 * t1263 - 0.55636233534648050268e1 * t97 * t963 * t1326 - 0.16690870060394415080e2 * t1261 * t3342 + 0.11127246706929610054e2 * t1261 * t3346 + 0.55636233534648050268e1 * t1261 * t3349 - 0.27818116767324025134e1 * t97 * t353 * t3543;
4577   t3550 = t89 * t95 * t3547 * t397;
4578   t3552 = t1100 * t441;
4579   t3553 = t1118 * t441;
4580   t3554 = t395 * t299;
4581   t3556 = t730 * t1094 * t3554;
4582   t3558 = -t3100 + t3102 - t3104 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314 + 0.25844881434903430496e-2 * t3550 + t3552 + t3553 - 0.15506928860942058298e-1 * t3556 - t3161 - t3163 - t3166;
4583   t3563 = -0.16e2 * t634 + t2829 + t2830 - t1931 + t1932 + t1933 + t2831 - 0.14e2 / 0.3e1 * t677 + t1935 - t1936 + t1937 + 0.2e1 * t713 + t729 + t734 + t7 * (t2925 + t2944 + t2978 + t3000 + t3017 + t3038 + t3098 + t3558);
4584   t3565 = 0.51689762869806860992e-2 * t1333;
4585   t3567 = t739 + t3565 + t1351 + t1353 + t1355 + t1357 - t1568 - t743 + t745 + t1945 - t753 - t1947 + t758 - 0.14e2 / 0.3e1 * t761 + t784;
4586   t3569 = 0.15506928860942058298e-1 * t1366;
4587   t3571 = 0.39503579405130412458e-1 * t1193;
4588   t3572 = 0.2e1 * t1196;
4589   t3573 = 0.2e1 * t785 + t791 + t3569 - t1954 + t1059 + t1956 - t1957 - t1958 - 0.23392893589820816284e1 * t853 + t3571 + t1960 - t1066 + t1069 + t3572 + t1459 + t1460;
4590   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4591     v3rho3[1] = t2827 + t3563 + t3567 + t3573;
4592 
4593   t3579 = -0.14e2 / 0.3e1 * t1085 + t1391 - 0.73246220147012639765e-3 * t1088 + t1395 - 0.23392893589820816284e1 * t1091 - t2824 + 0.2e1 * t1101 + t1119 - t1923 - t599 + t1925 + t1926 + t1131 + t1401 + t1417;
4594   t3581 = t1418 + t1424 + t1558 + t1561 - 0.16e2 * t1133 + t633 - t635 + t2829 + t2830 - t1931 + t1932 + t1933 + t2831 - t678 + t1935;
4595   t3585 = -t1936 + t1937 + t713 - t1567 + t3565 + t1351 + t1353 + 0.2e1 * t1355 + t1357 - 0.14e2 / 0.3e1 * t1360 + t1456 + t743 - t745 + t1945 - t753;
4596   t3586 = 0.10843580882781524214e-1 * t1991;
4597   t3587 = t1454 * t69;
4598   t3588 = t3587 * t290;
4599   t3589 = 0.58482233974552040708e0 * t3588;
4600   t3590 = t1563 * t2814;
4601   t3592 = t1093 * t3590 * t395;
4602   t3594 = t1554 * t1063;
4603   t3596 = t1093 * t3594 * t395;
4604   t3598 = t2350 * t1375;
4605   t3603 = t608 * t1379;
4606   t3608 = -0.2e1 * t612 - 0.6e1 * t2013;
4607   t3611 = t2359 * t1382;
4608   t3616 = t618 * t1385;
4609   t3619 = -t3608;
4610   t3623 = (-0.8e1 / 0.27e2 * t3598 * t239 + 0.16e2 / 0.9e1 * t1179 * t613 + 0.4e1 / 0.9e1 * t3603 * t239 + 0.4e1 / 0.3e1 * t44 * t3608 - 0.8e1 / 0.27e2 * t3611 * t241 - 0.16e2 / 0.9e1 * t1185 * t613 + 0.4e1 / 0.9e1 * t3616 * t241 + 0.4e1 / 0.3e1 * t47 * t3619) * t53;
4611   t3624 = t3623 * t81;
4612   t3625 = t40 * t3624;
4613   t3627 = t730 * t731 * t1388;
4614   t3629 = t415 * t1422;
4615   t3631 = t420 * t1422;
4616   t3633 = t415 * t1415;
4617   t3635 = t420 * t1415;
4618   t3641 = t184 * t428 * t1403 * t188;
4619   t3643 = t186 * t460;
4620   t3648 = t184 * t767 * t1408;
4621   t3653 = t2006 * t1375;
4622   t3658 = t714 * t1379;
4623   t3663 = t2020 * t1382;
4624   t3668 = t719 * t1385;
4625   t3673 = 0.4e1 / 0.27e2 * t3653 * t239 - 0.4e1 / 0.9e1 * t1103 * t613 - t3658 * t239 / 0.9e1 + t294 * t3608 / 0.3e1 + 0.4e1 / 0.27e2 * t3663 * t241 + 0.4e1 / 0.9e1 * t1109 * t613 - t3668 * t241 / 0.9e1 + t296 * t3619 / 0.3e1;
4626   t3674 = t188 * t3673;
4627   t3678 = t2763 - 0.2200e4 / 0.81e2 * t2766 - 0.4400e4 / 0.81e2 * t3048 + t3053 + t3056 + 0.200e3 / 0.27e2 * t3641 - 0.50e2 / 0.9e1 * t184 * t3643 * t1343 + 0.200e3 / 0.27e2 * t3648 - 0.25e2 / 0.9e1 * t184 * t1339 * t1408 - 0.25e2 / 0.9e1 * t184 * t433 * t3674;
4628   t3680 = t5 * t3678 * t192;
4629   t3681 = t426 * t3680;
4630   t3682 = t179 * t3681;
4631   t3684 = -t1980 - t1983 + t1986 + t1989 + t3586 - t3589 + 0.51689762869806860992e-2 * t3592 - 0.25844881434903430496e-2 * t3596 + t3625 + 0.77534644304710291488e-2 * t3627 + t3629 / 0.2e1 + t3631 / 0.2e1 + t3633 / 0.2e1 + t3635 / 0.2e1 + t3682 / 0.2e1;
4632   t3685 = t1100 * t524;
4633   t3686 = t1118 * t524;
4634   t3687 = t514 * t1350;
4635   t3688 = 0.32e2 * t2036;
4636   t3689 = 0.20e2 * t2038;
4637   t3690 = t176 * t3673;
4638   t3692 = t167 * t3690 * t99;
4639   t3693 = t3692 * t194;
4640   t3697 = t3685 + t3686 + t3687 + t2920 - t2924 - t2932 + t2035 + t3688 + t3689 + t3693 / 0.2e1 + t2708 - t2710 + t2712 - 0.7e1 / 0.3e1 * t2715 - t2721 + 0.35e2 / 0.9e1 * t2722;
4641   t3699 = t731 * t1403;
4642   t3700 = t1141 * t3699;
4643   t3702 = 0.24e2 * t2950;
4644   t3703 = t1554 * t397;
4645   t3705 = t730 * t3703 * t299;
4646   t3708 = t89 * t293 * t3673;
4647   t3712 = 0.15506928860942058298e-1 * t3700 + t2122 + t2937 - t2938 - t2133 + t2942 + t2949 - t3702 + 0.77534644304710291488e-2 * t3705 - t2956 + 0.77534644304710291488e-2 * t3708 - 0.14e2 / 0.3e1 * t2959 - t2962 - t2965 + 0.70e2 / 0.9e1 * t2968;
4648   t3713 = t759 * t1414;
4649   t3714 = t179 * t3713;
4650   t3716 = t514 * t1359;
4651   t3718 = t759 * t1421;
4652   t3719 = t179 * t3718;
4653   t3721 = t229 * t1455;
4654   t3722 = 0.4e1 * t3721;
4655   t3723 = t234 * t1455;
4656   t3724 = 0.4e1 * t3723;
4657   t3725 = 0.48830813431341759843e-3 * t2974;
4658   t3726 = 0.12e2 * t2138;
4659   t3728 = 0.17315755899375863299e2 * t2140;
4660   t3729 = 0.58482233974552040708e0 * t2142;
4661   t3730 = -0.7e1 / 0.6e1 * t3714 - 0.7e1 / 0.3e1 * t3716 - 0.7e1 / 0.6e1 * t3719 + t3722 - t3724 + t3725 + t2976 + t2979 - t2983 - t2986 + t3726 + t2743 / 0.2e1 - t3728 - t3729 - t2174 - t2179;
4662   t3733 = 0.11696446794910408142e1 * t2180;
4663   t3734 = 0.2e1 * t2996;
4664   t3735 = t460 * t395;
4665   t3737 = t730 * t1094 * t3735;
4666   t3740 = t1093 * t1094 * t1330;
4667   t3742 = 0.23392893589820816284e1 * t3004;
4668   t3749 = t89 * t299 * t163 * t1403;
4669   t3751 = t3733 + t3734 - 0.15506928860942058298e-1 * t3737 - 0.51689762869806860992e-2 * t3740 + t2183 + t2344 + t3742 + t2756 / 0.2e1 + 0.35e2 / 0.9e1 * t2790 - 0.7e1 / 0.3e1 * t2792 - t2226 + t2238 + t2246 - 0.14e2 / 0.3e1 * t3015 + 0.15506928860942058298e-1 * t3749;
4670   t3752 = t1399 * t441;
4671   t3754 = 0.40e2 * t3030;
4672   t3755 = 0.21687161765563048429e-1 * t3033;
4673   t3756 = 0.8e1 * t2381;
4674   t3757 = 0.8e1 * t2383;
4675   t3758 = 0.24415406715670879921e-3 * t2392;
4676   t3759 = t1399 * t423;
4677   t3761 = t2250 - t2253 + t2262 + t3752 / 0.2e1 + t3029 + t3754 + t3755 - t2377 - t3756 - t3757 - t2391 + t3758 + t2400 - t2405 - t2407 - 0.7e1 / 0.6e1 * t3759;
4678   t3763 = t412 * t1388;
4679   t3765 = t167 * t3763 * t99;
4680   t3766 = t3765 * t194;
4681   t3769 = t816 * t460;
4682   t3770 = t3769 * t328;
4683   t3771 = t3212 * t3770;
4684   t3774 = t822 * t1479;
4685   t3776 = t822 * t1483;
4686   t3778 = t2453 * t1437;
4687   t3780 = t1241 * t1115;
4688   t3781 = t1240 * t3780;
4689   t3784 = t6 * t1388;
4690   t3785 = t3784 * t299;
4691   t3786 = t1240 * t3785;
4692   t3789 = t6 * t1403;
4693   t3790 = t3789 * t299;
4694   t3791 = t3306 * t3790;
4695   t3794 = -t1980 - t1983 + t1986 + t1989 + t3586 - t3589 + t3625 + t2920 + t2035 + t3688 + t3689 + t2122 + t2937 - t2938 - t2133 - t3702;
4696   t3795 = -t2956 + t3722 - t3724 + t3725 - t2986 + t3726 - t3728 - t3729 - t2174 - t2179 + t3733 + t3734 + t2183 + t2344 + t3742 - t2226;
4697   t3797 = t2238 + t2246 + t2250 - t2253 + t2262 + t3029 + t3754 + t3755 - t2377 - t3756 - t3757 - t2391 + t3758 + t2400 - t2405 - t2407;
4698   t3798 = 0.11696446794910408142e1 * t3093;
4699   t3799 = 0.16e2 * t3099;
4700   t3800 = t1454 * t1;
4701   t3801 = t3800 * t285;
4702   t3802 = 0.18311555036753159941e-3 * t3801;
4703   t3803 = t3623 * t79;
4704   t3804 = 0.19751789702565206229e-1 * t3803;
4705   t3805 = t1454 * t278;
4706   t3806 = t40 * t3805;
4707   t3807 = 0.34631511798751726600e2 * t3162;
4708   t3808 = -t3798 - t3799 - t3102 - t3104 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314 - t3802 + t3804 - t3161 + t3806 - t3807 - t3166;
4709   t3810 = t3794 + t3795 + t3797 + t3808;
4710   t3814 = t1464 * t129;
4711   t3819 = t3176 * t1;
4712   t3826 = t114 * t1403;
4713   t3827 = t3826 * t299;
4714   t3830 = t1212 * t1115;
4715   t3835 = t114 * t1388;
4716   t3836 = t3835 * t299;
4717   t3839 = t115 * t3673;
4718   t3842 = -0.12897460341341234505e3 * t3810 * t112 * t115 + 0.38692381024023703515e3 * t3814 * t325 + 0.77384762048047407030e3 * t3173 * t472 - 0.30953904819218962812e4 * t3819 * t1213 + 0.77384762048047407030e3 * t1206 * t1216 - 0.15476952409609481406e4 * t2423 * t1470 + 0.77384762048047407030e4 * t3188 * t3827 - 0.30953904819218962812e4 * t1211 * t3830 + 0.38692381024023703515e3 * t920 * t1473 - 0.15476952409609481406e4 * t1211 * t3836 + 0.38692381024023703515e3 * t324 * t3839;
4719   t3844 = t6 * t3842 * t118;
4720   t3845 = t152 * t3844;
4721   t3848 = t2098 * t1427;
4722   t3850 = t799 * t1431;
4723   t3853 = -0.43465807448943789272e-1 * t3217 * t3771 + 0.12677527172608605205e-1 * t3774 + 0.12677527172608605205e-1 * t3776 - 0.25355054345217210410e-1 * t3778 + 0.10866451862235947318e0 * t1239 * t3781 + 0.54332259311179736590e-1 * t1239 * t3786 - 0.32599355586707841954e0 * t1239 * t3791 - 0.27166129655589868296e-2 * t319 * t3845 - 0.7e1 / 0.48e2 * t3848 + 0.7e1 / 0.144e3 * t3850 - t2097 - 0.71839320644782096162e-1 * t2458;
4724   t3855 = t822 * t1442;
4725   t3857 = t1476 * t816;
4726   t3858 = t3857 * t328;
4727   t3859 = t153 * t3858;
4728   t3862 = t1434 * t2112;
4729   t3863 = t3862 * t328;
4730   t3864 = t153 * t3863;
4731   t3867 = t1434 * t816;
4732   t3868 = t3867 * t328;
4733   t3869 = t153 * t3868;
4734   t3874 = t337 * t1492;
4735   t3876 = t337 * t1488;
4736   t3878 = t1434 * t118;
4737   t3879 = t3878 * t299;
4738   t3880 = t826 * t3879;
4739   t3883 = t1171 * t1219;
4740   t3884 = t153 * t3883;
4741   t3887 = t1434 * t328;
4742   t3888 = t3887 * t118;
4743   t3889 = t153 * t3888;
4744   t3892 = -0.28735728257912838465e0 * t2465 - 0.10142021738086884163e0 * t3855 + 0.54332259311179736592e-2 * t813 * t3859 - 0.16299677793353920978e-1 * t2109 * t3864 + 0.16299677793353920977e-1 * t813 * t3869 + 0.10142021738086884164e0 * t3125 - t3132 - 0.57471456515825676929e0 * t3141 + 0.50710108690434420817e-1 * t3874 - 0.25355054345217210409e0 * t3876 + 0.10866451862235947318e-1 * t319 * t3880 - 0.54332259311179736592e-2 * t319 * t3884 - 0.27166129655589868296e-2 * t319 * t3889;
4745   t3894 = t1403 * t328;
4746   t3895 = t3894 * t118;
4747   t3896 = t2076 * t3895;
4748   t3899 = t1388 * t328;
4749   t3900 = t3899 * t118;
4750   t3901 = t826 * t3900;
4751   t3904 = t3251 * t460;
4752   t3905 = t826 * t3904;
4753   t3908 = t1171 * t1115;
4754   t3909 = t826 * t3908;
4755   t3912 = t1476 * t118;
4756   t3913 = t3912 * t299;
4757   t3914 = t826 * t3913;
4758   t3917 = t1476 * t328;
4759   t3918 = t3917 * t118;
4760   t3919 = t153 * t3918;
4761   t3922 = t3867 * t299;
4762   t3923 = t826 * t3922;
4763   t3926 = t1164 * t1219;
4764   t3927 = t153 * t3926;
4765   t3932 = -0.54332259311179736590e-1 * t319 * t3896 + 0.10866451862235947318e-1 * t319 * t3901 + 0.21732903724471894636e-1 * t319 * t3905 + 0.21732903724471894636e-1 * t319 * t3909 + 0.10866451862235947318e-1 * t319 * t3914 - 0.27166129655589868296e-2 * t319 * t3919 - 0.21732903724471894637e-1 * t813 * t3923 + 0.10866451862235947318e-1 * t813 * t3927 - 0.50710108690434420820e0 * t3144 + t3209 - t3248 + t3250 - 0.10142021738086884164e0 * t3286;
4766   t3933 = t5 * t3673;
4767   t3934 = t312 * t3933;
4768   t3939 = t118 * t460;
4769   t3940 = t3939 * t299;
4770   t3941 = t3212 * t3940;
4771   t3944 = t3212 * t1233;
4772   t3948 = t342 * t132 * t3673;
4773   t3951 = t1426 * t299;
4774   t3952 = t312 * t3951;
4775   t3955 = t464 * t1115;
4776   t3956 = t312 * t3955;
4777   t3959 = t1430 * t299;
4778   t3960 = t312 * t3959;
4779   t3964 = -t3293 - t311 * t3934 / 0.48e2 - 0.35e2 / 0.108e3 * t3298 + t3301 - 0.14367864128956419232e0 * t3311 - 0.10866451862235947318e0 * t3109 * t3941 + 0.21732903724471894636e-1 * t3211 * t3944 - t2474 - 0.10866451862235947318e-1 * t126 * t3948 - t2102 * t3952 / 0.4e1 + t803 * t3956 / 0.8e1 + t803 * t3960 / 0.16e2 - 0.35e2 / 0.216e3 * t2480;
4780   t3966 = t3853 + t3892 + t3932 + t3964;
4781   t3970 = t1495 * t352;
4782   t3977 = t97 * t485;
4783   t3986 = t2501 * t1502;
4784   t3987 = t3986 * t391;
4785   t3990 = t1262 * t1326;
4786   t3996 = t968 * t1550;
4787   t3997 = t3996 * t391;
4788   t4003 = t310 * t107 * t3673;
4789   t4007 = t1044 * t1488;
4790   t4009 = t1044 * t1492;
4791   t4011 = t1006 * t1526;
4792   t4013 = t1006 * t1530;
4793   t4034 = t1171 * t3006;
4794   t4035 = t2076 * t4034;
4795   t4038 = -0.30228422675018518372e-1 * t388 * t3948 - 0.17386322979577515709e0 * t369 * t4003 - 0.56426388993367900960e0 * t3360 + t3363 - 0.70532986241709876201e0 * t4007 + 0.14106597248341975240e0 * t4009 - 0.12170426085704260996e1 * t4011 + 0.40568086952347536654e0 * t4013 + 0.12091369070007407349e0 * t1030 * t3905 + 0.12091369070007407349e0 * t1030 * t3909 + 0.60456845350037036744e-1 * t1030 * t3914 - 0.15114211337509259186e-1 * t1030 * t3919 + 0.60456845350037036744e-1 * t1030 * t3880 - 0.30228422675018518372e-1 * t1030 * t3884 - 0.15114211337509259186e-1 * t1030 * t3889 - 0.30228422675018518372e0 * t1030 * t3896 + 0.60456845350037036744e-1 * t1030 * t3901 - 0.27045391301565024436e1 * t3373 + t3376 - 0.60456845350037036745e0 * t1030 * t4035;
4796   t4039 = t1225 * t3939;
4797   t4040 = t826 * t4039;
4798   t4043 = t2523 * t4034;
4799   t4046 = t989 * t4039;
4800   t4052 = t3444 * t3790;
4801   t4055 = t1319 * t3780;
4802   t4058 = t1319 * t3785;
4803   t4061 = t3450 * t3951;
4804   t4064 = t1291 * t3955;
4805   t4067 = t1291 * t3959;
4806   t4070 = t379 * t3844;
4807   t4074 = t5 * t3842 * t118;
4808   t4075 = t358 * t4074;
4809   t4078 = t2603 * t1508;
4810   t4080 = t983 * t1517;
4811   t4082 = t983 * t1521;
4812   t4084 = 0.12091369070007407349e0 * t1030 * t4040 - 0.10431793787746509425e1 * t987 * t4043 + 0.34772645959155031418e0 * t987 * t4046 - 0.56426388993367900960e0 * t3390 - t3404 - t3409 - t3415 - t2551 + 0.13602790203758333267e0 * t1301 * t3869 - 0.90685268025055555116e0 * t388 * t4052 + 0.30228422675018518372e0 * t388 * t4055 + 0.15114211337509259186e0 * t388 * t4058 - 0.20863587575493018851e1 * t369 * t4061 + 0.10431793787746509425e1 * t369 * t4064 + 0.52158968938732547127e0 * t369 * t4067 - 0.15114211337509259186e-1 * t378 * t4070 - 0.86931614897887578546e-1 * t356 * t4075 - 0.40568086952347536654e0 * t4078 + 0.20284043476173768327e0 * t4080 + 0.20284043476173768327e0 * t4082;
4813   t4086 = t2590 * t1533;
4814   t4088 = t1026 * t1539;
4815   t4090 = t1026 * t1542;
4816   t4094 = t1164 * t1232;
4817   t4095 = t989 * t4094;
4818   t4098 = t826 * t4094;
4819   t4101 = t989 * t3904;
4820   t4104 = t989 * t3908;
4821   t4107 = t989 * t3913;
4822   t4110 = t142 * t3918;
4823   t4113 = t989 * t3879;
4824   t4116 = t142 * t3883;
4825   t4119 = t142 * t3888;
4826   t4122 = t2523 * t3895;
4827   t4125 = t989 * t3900;
4828   t4128 = -0.21159895872512962860e0 * t4086 + 0.70532986241709876201e-1 * t4088 + 0.70532986241709876201e-1 * t4090 + t3419 + t3427 - t3432 - 0.79937384407271193027e0 * t3454 - 0.13522695650782512218e1 * t3456 - t3459 - 0.69545291918310062836e0 * t1267 * t4095 - 0.36274107210022222047e0 * t1301 * t4098 + 0.34772645959155031418e0 * t987 * t4101 + 0.34772645959155031418e0 * t987 * t4104 + 0.17386322979577515709e0 * t987 * t4107 - 0.86931614897887578546e-1 * t987 * t4110 + 0.17386322979577515709e0 * t987 * t4113 - 0.17386322979577515709e0 * t987 * t4116 - 0.86931614897887578546e-1 * t987 * t4119 - 0.52158968938732547127e0 * t987 * t4122 + 0.17386322979577515709e0 * t987 * t4125;
4829   t4133 = t2519 * t1442;
4830   t4137 = t2558 * t1512;
4831   t4139 = t142 * t3858;
4832   t4144 = t142 * t3863;
4833   t4147 = t142 * t3868;
4834   t4150 = t989 * t3922;
4835   t4153 = t142 * t3926;
4836   t4161 = -0.18137053605011111023e0 * t1301 * t3923 + 0.90685268025055555116e-1 * t1301 * t3927 - t3504 + t3506 - 0.56426388993367900962e0 * t4133 + 0.45342634012527777558e-1 * t1301 * t3859 - 0.81136173904695073309e0 * t4137 + 0.17386322979577515709e0 * t1267 * t4139 - 0.18137053605011111023e0 * t3515 * t3864 - 0.52158968938732547127e0 * t3380 * t4144 + 0.52158968938732547127e0 * t1267 * t4147 - 0.34772645959155031418e0 * t1267 * t4150 + 0.34772645959155031418e0 * t1267 * t4153 - 0.13522695650782512218e1 * t2571 - 0.79937384407271193028e0 * t2583 - 0.39968692203635596514e0 * t2595 - 0.67613478253912561090e0 * t2608 - t2661 + t3534 - 0.15987476881454238605e1 * t3539;
4837   t4163 = t4038 + t4084 + t4128 + t4161;
4838   t4167 = 0.27818116767324025134e1 * t97 * t3966 * t158 - 0.27818116767324025134e1 * t97 * t3970 * t391 - 0.55636233534648050268e1 * t97 * t3321 * t503 + 0.11127246706929610054e2 * t3977 * t1263 - 0.55636233534648050268e1 * t97 * t1254 * t1326 + 0.55636233534648050268e1 * t97 * t2493 * t1502 - 0.16690870060394415080e2 * t1261 * t3987 + 0.11127246706929610054e2 * t1261 * t3990 - 0.27818116767324025134e1 * t97 * t963 * t1550 + 0.55636233534648050268e1 * t1261 * t3997 - 0.27818116767324025134e1 * t97 * t353 * t4163;
4839   t4170 = t89 * t95 * t4167 * t397;
4840   t4173 = t730 * t1137 * t1115;
4841   t4175 = t163 * t1388;
4842   t4177 = t1141 * t4175 * t299;
4843   t4179 = t1142 * t1115;
4844   t4180 = t1141 * t4179;
4845   t4182 = t1563 * t1063;
4846   t4184 = t730 * t4182 * t299;
4847   t4186 = t3766 / 0.2e1 + t3042 + 0.70e2 / 0.9e1 * t3075 + 0.25844881434903430496e-2 * t4170 + t3092 - t3798 + 0.15506928860942058298e-1 * t4173 + 0.15506928860942058298e-1 * t4177 + 0.31013857721884116596e-1 * t4180 - t3799 - t3102 - t3104 - 0.77534644304710291488e-2 * t4184 + t2281 - t2284 - t2288;
4848   t4188 = t1141 * t1137 * t3006;
4849   t4191 = t730 * t2875 * t460;
4850   t4194 = t1412 * t438 * t192;
4851   t4195 = t1127 * t4194;
4852   t4196 = t1125 * t4195;
4853   t4198 = t460 * t99;
4854   t4199 = t4198 * t101;
4855   t4200 = t1122 * t4199;
4856   t4201 = t4200 * t1130;
4857   t4202 = t521 * t192;
4858   t4203 = t4202 * t1347;
4859   t4204 = t1127 * t4203;
4860   t4205 = t1125 * t4204;
4861   t4207 = t1419 * t438 * t192;
4862   t4208 = t1127 * t4207;
4863   t4209 = t1125 * t4208;
4864   t4211 = t2307 + t2413 + t2314 + t3552 + 0.31013857721884116596e-1 * t4188 - t3802 + t3804 - t3161 + t3806 + 0.15506928860942058298e-1 * t4191 + t4196 / 0.2e1 + t4201 + t4205 + t4209 / 0.2e1 - t3807 - t3166;
4865   t4217 = -t1947 - t757 - t762 + t785 + t3569 - t1954 + t1956 - t1957 - t1958 - t854 + t3571 + t1960 + t7 * (t3684 + t3697 + t3712 + t3730 + t3751 + t3761 + t4186 + t4211) + t3572 + 0.4e1 * t1198 + t1458;
4866   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4867     v3rho3[2] = t3579 + t3581 + t3585 + t4217;
4868 
4869   t4232 = -0.7e1 * t1085 + 0.23260393291413087447e-1 * t1390 - 0.10986933022051895965e-2 * t1088 + 0.46520786582826174894e-1 * t1394 - 0.35089340384731224426e1 * t1091 + 0.3e1 * t1101 - t1923 + t1925 + t1926 + 0.3e1 / 0.2e1 * t1400 + 0.3e1 / 0.2e1 * t1416 + 0.3e1 * t1418 + 0.3e1 / 0.2e1 * t1423 + 0.77534644304710291488e-2 * t1557 + 0.46520786582826174894e-1 * t1560 - 0.24e2 * t1133 - t1931 + t1932 + t1933 + t1935;
4870   t4237 = 0.17544670192365612213e1 * t3588;
4871   t4238 = t514 * t1415;
4872   t4239 = 0.3e1 / 0.2e1 * t4238;
4873   t4246 = t1375 * t446;
4874   t4252 = -0.6e1 * t612 - 0.6e1 * t2013;
4875   t4255 = t1382 * t448;
4876   t4260 = -t4252;
4877   t4263 = 0.4e1 / 0.27e2 * t2006 * t4246 - t1103 * t1379 / 0.3e1 + t294 * t4252 / 0.3e1 + 0.4e1 / 0.27e2 * t2020 * t4255 - t1109 * t1385 / 0.3e1 + t296 * t4260 / 0.3e1;
4878   t4264 = t188 * t4263;
4879   t4268 = t2763 - 0.2200e4 / 0.27e2 * t3048 + 0.200e3 / 0.9e1 * t3641 + 0.200e3 / 0.9e1 * t3648 - 0.25e2 / 0.3e1 * t184 * t3643 * t1408 - 0.25e2 / 0.9e1 * t184 * t433 * t4264;
4880   t4270 = t5 * t4268 * t192;
4881   t4271 = t426 * t4270;
4882   t4272 = t179 * t4271;
4883   t4273 = t4272 / 0.2e1;
4884   t4274 = t1399 * t524;
4885   t4275 = 0.3e1 / 0.2e1 * t4274;
4886   t4276 = t514 * t1422;
4887   t4277 = 0.3e1 / 0.2e1 * t4276;
4888   t4282 = t1412 * t521;
4889   t4283 = t4282 * t192;
4890   t4284 = t1127 * t4283;
4891   t4285 = t1125 * t4284;
4892   t4286 = 0.3e1 / 0.2e1 * t4285;
4893   t4287 = t1403 * t460;
4894   t4289 = t89 * t4287 * t163;
4895   t4290 = 0.15506928860942058298e-1 * t4289;
4896   t4292 = t89 * t293 * t4263;
4897   t4293 = 0.77534644304710291488e-2 * t4292;
4898   t4295 = t730 * t3703 * t460;
4899   t4296 = 0.23260393291413087447e-1 * t4295;
4900   t4297 = 0.3e1 / 0.2e1 * t3633 + 0.3e1 * t3685 + t2003 + t4286 + t2035 + t4290 + t4293 + t4296 + t2708 - t2710 + t2712;
4901   t4299 = t1563 * t507;
4902   t4302 = t89 * t95 * t4299 * t2814;
4903   t4303 = 0.51689762869806860992e-2 * t4302;
4904   t4304 = 0.3e1 / 0.2e1 * t2942;
4905   t4305 = 0.36e2 * t2950;
4906   t4306 = 0.96e2 * t2952;
4907   t4307 = 0.24e2 * t2954;
4908   t4322 = (-0.8e1 / 0.27e2 * t2350 * t4246 + 0.4e1 / 0.3e1 * t1179 * t1379 + 0.4e1 / 0.3e1 * t44 * t4252 - 0.8e1 / 0.27e2 * t2359 * t4255 + 0.4e1 / 0.3e1 * t1185 * t1385 + 0.4e1 / 0.3e1 * t47 * t4260) * t53;
4909   t4323 = t4322 * t79;
4910   t4324 = 0.19751789702565206229e-1 * t4323;
4911   t4325 = 0.7e1 * t2959;
4912   t4326 = 0.35e2 / 0.3e1 * t2968;
4913   t4330 = 0.12e2 * t3721;
4914   t4331 = 0.12e2 * t3723;
4915   t4332 = 0.73246220147012639764e-3 * t2974;
4916   t4333 = 0.3e1 / 0.2e1 * t2976;
4917   t4334 = -t2135 + t4324 - t4325 + t4326 - 0.7e1 / 0.2e1 * t3714 - 0.7e1 * t3716 - 0.7e1 / 0.2e1 * t3719 - t4330 - t4331 + t4332 + t4333;
4918   t4337 = 0.3e1 * t2996;
4919   t4338 = 0.35089340384731224426e1 * t3004;
4920   t4340 = t730 * t4182 * t460;
4921   t4341 = 0.23260393291413087447e-1 * t4340;
4922   t4343 = 0.7e1 * t3015;
4923   t4344 = t3867 * t460;
4924   t4345 = t826 * t4344;
4925   t4348 = t1164 * t1476;
4926   t4349 = t153 * t4348;
4927   t4357 = t5 * t4263;
4928   t4358 = t312 * t4357;
4929   t4361 = t5 * t4287;
4930   t4362 = t312 * t4361;
4931   t4366 = t2042 * t132 * t4287;
4932   t4369 = t1171 * t1403;
4933   t4370 = t2076 * t4369;
4934   t4373 = t3878 * t460;
4935   t4374 = t826 * t4373;
4936   t4377 = t1476 * t475;
4937   t4378 = t4377 * t118;
4938   t4379 = t153 * t4378;
4939   t4382 = t3912 * t460;
4940   t4383 = t826 * t4382;
4941   t4386 = -0.65198711173415683909e-1 * t813 * t4345 + 0.16299677793353920977e-1 * t813 * t4349 + 0.38032581517825815615e-1 * t3774 + 0.38032581517825815615e-1 * t3776 - 0.76065163035651631230e-1 * t3778 - 0.7e1 / 0.16e2 * t3848 + 0.7e1 / 0.48e2 * t3850 - t311 * t4358 / 0.48e2 - t2102 * t4362 / 0.4e1 - t2097 - 0.32599355586707841954e0 * t126 * t4366 - 0.16299677793353920977e0 * t319 * t4370 + 0.32599355586707841954e-1 * t319 * t4374 - 0.81498388966769604888e-2 * t319 * t4379 + 0.32599355586707841954e-1 * t319 * t4383;
4942   t4387 = t1171 * t1388;
4943   t4388 = t826 * t4387;
4944   t4394 = t342 * t132 * t4263;
4945   t4397 = t464 * t1388;
4946   t4398 = t312 * t4397;
4947   t4403 = t1241 * t1388;
4948   t4404 = t1240 * t4403;
4949   t4407 = -t1980 - t1983 + t1986 + t1989 - t4237 + t2003 + t2035 - t2122 - t2125 - t2128 - t2133 + t4305;
4950   t4408 = t4306 - t4307 - t2135 + t4324 - t4330 - t4331 + t4332 + t2137 - t2174 - t2179 + t4337 + t2344 + t4338;
4951   t4410 = 0.60e2 * t3030;
4952   t4411 = 0.32530742648344572643e-1 * t3033;
4953   t4412 = -t2226 + t2238 + t2246 + t2250 - t2253 + t2262 + t4410 + t4411 - t2377 - t2391 + t2400 - t2405;
4954   t4413 = 0.17544670192365612213e1 * t3093;
4955   t4414 = 0.24e2 * t3099;
4956   t4415 = 0.54934665110259479823e-3 * t3801;
4957   t4416 = 0.3e1 * t3806;
4958   t4417 = t4322 * t81;
4959   t4418 = t40 * t4417;
4960   t4419 = 0.51947267698127589899e2 * t3162;
4961   t4420 = -t2407 - t4413 - t4414 + t2281 - t2284 - t2288 + t2307 + t2413 + t2314 - t4415 + t4416 + t4418 - t4419;
4962   t4422 = t4407 + t4408 + t4412 + t4420;
4963   t4432 = t115 * t4287;
4964   t4435 = t1212 * t1388;
4965   t4438 = t115 * t4263;
4966   t4441 = -0.12897460341341234505e3 * t4422 * t112 * t115 + 0.11607714307207111054e4 * t3814 * t472 - 0.46430857228828444218e4 * t3176 * t1470 + 0.11607714307207111054e4 * t1206 * t1473 + 0.77384762048047407030e4 * t2428 * t4432 - 0.46430857228828444218e4 * t1211 * t4435 + 0.38692381024023703515e3 * t324 * t4438;
4967   t4443 = t6 * t4441 * t118;
4968   t4444 = t152 * t4443;
4969   t4447 = t1434 * t475;
4970   t4448 = t6 * t4447;
4971   t4449 = t4448 * t118;
4972   t4450 = t152 * t4449;
4973   t4453 = t4448 * t2112;
4974   t4454 = t152 * t4453;
4975   t4457 = t4448 * t816;
4976   t4458 = t152 * t4457;
4977   t4463 = 0.32599355586707841954e-1 * t319 * t4388 - 0.30426065214260652491e0 * t3855 - 0.86207184773738515394e0 * t3141 - 0.10866451862235947318e-1 * t126 * t4394 + 0.3e1 / 0.16e2 * t803 * t4398 + 0.15213032607130326246e0 * t3874 - 0.76065163035651631229e0 * t3876 + 0.16299677793353920977e0 * t1239 * t4404 - 0.27166129655589868296e-2 * t319 * t4444 - 0.27166129655589868296e-2 * t319 * t4450 - 0.16299677793353920978e-1 * t2109 * t4454 + 0.16299677793353920977e-1 * t813 * t4458 - 0.35e2 / 0.72e2 * t3298 - 0.21551796193434628848e0 * t3311 - t2474;
4978   t4464 = t4386 + t4463;
4979   t4477 = t1502 * t503;
4980   t4481 = t1262 * t1550;
4981   t4493 = t989 * t4344;
4982   t4496 = t142 * t4348;
4983   t4499 = t989 * t4382;
4984   t4502 = t989 * t4387;
4985   t4505 = -0.21159895872512962860e1 * t4007 + 0.42319791745025925720e0 * t4009 - 0.36511278257112782988e1 * t4011 + 0.12170426085704260996e1 * t4013 - 0.40568086952347536654e1 * t3373 + 0.18137053605011111023e0 * t1030 * t4388 - 0.45342634012527777558e-1 * t1030 * t4379 - 0.10431793787746509425e1 * t1267 * t4493 + 0.52158968938732547127e0 * t1267 * t4496 + 0.52158968938732547127e0 * t987 * t4499 + 0.52158968938732547127e0 * t987 * t4502;
4986   t4506 = t142 * t4378;
4987   t4519 = t2523 * t4369;
4988   t4522 = t989 * t4373;
4989   t4525 = t1319 * t4403;
4990   t4528 = t379 * t4443;
4991   t4531 = t1291 * t4397;
4992   t4534 = -0.26079484469366273564e0 * t987 * t4506 - 0.54411160815033333070e0 * t1301 * t4345 + 0.13602790203758333267e0 * t1301 * t4349 + 0.18137053605011111023e0 * t1030 * t4383 - 0.90685268025055555117e0 * t1030 * t4370 + 0.18137053605011111023e0 * t1030 * t4374 - 0.15647690681619764138e1 * t987 * t4519 + 0.52158968938732547127e0 * t987 * t4522 - t2551 + 0.45342634012527777558e0 * t388 * t4525 - 0.15114211337509259186e-1 * t378 * t4528 + 0.15647690681619764138e1 * t369 * t4531;
4993   t4537 = t5 * t4441 * t118;
4994   t4538 = t358 * t4537;
4995   t4541 = t379 * t4453;
4996   t4544 = t379 * t4457;
4997   t4555 = -0.86931614897887578546e-1 * t356 * t4538 - 0.18137053605011111023e0 * t2648 * t4541 + 0.13602790203758333267e0 * t1021 * t4544 - 0.12170426085704260996e1 * t4078 + 0.60852130428521304981e0 * t4080 + 0.60852130428521304981e0 * t4082 - 0.63479687617538888580e0 * t4086 + 0.21159895872512962860e0 * t4088 + 0.21159895872512962860e0 * t4090 - 0.11990607661090678954e1 * t3454 - 0.20284043476173768327e1 * t3456;
4998   t4556 = t5 * t4447;
4999   t4557 = t4556 * t2112;
5000   t4558 = t358 * t4557;
5001   t4561 = t4556 * t816;
5002   t4562 = t358 * t4561;
5003   t4565 = t4556 * t118;
5004   t4566 = t358 * t4565;
5005   t4569 = t379 * t4449;
5006   t4575 = t310 * t107 * t4263;
5007   t4581 = t2101 * t107 * t4287;
5008   t4587 = -0.52158968938732547127e0 * t2618 * t4558 + 0.52158968938732547127e0 * t976 * t4562 - 0.86931614897887578546e-1 * t356 * t4566 - 0.15114211337509259186e-1 * t378 * t4569 - 0.30228422675018518372e-1 * t388 * t4394 - 0.17386322979577515709e0 * t369 * t4575 - 0.90685268025055555116e0 * t388 * t4366 - 0.20863587575493018851e1 * t369 * t4581 - 0.16927916698010370288e1 * t4133 - 0.24340852171408521993e1 * t4137 - t2661 - 0.23981215322181357908e1 * t3539;
5009   t4589 = t4505 + t4534 + t4555 + t4587;
5010   t4593 = 0.27818116767324025134e1 * t97 * t4464 * t158 - 0.83454350301972075402e1 * t97 * t3970 * t503 + 0.16690870060394415081e2 * t97 * t3325 * t1502 - 0.83454350301972075402e1 * t97 * t1254 * t1550 - 0.16690870060394415080e2 * t97 * t2502 * t4477 + 0.16690870060394415081e2 * t1261 * t4481 - 0.27818116767324025134e1 * t97 * t353 * t4589;
5011   t4596 = t89 * t95 * t4593 * t397;
5012   t4597 = 0.25844881434903430496e-2 * t4596;
5013   t4599 = t730 * t1137 * t1388;
5014   t4600 = 0.23260393291413087447e-1 * t4599;
5015   t4601 = t4175 * t460;
5016   t4602 = t1141 * t4601;
5017   t4603 = 0.46520786582826174894e-1 * t4602;
5018   t4604 = t176 * t4263;
5019   t4606 = t167 * t4604 * t99;
5020   t4607 = t4606 * t194;
5021   t4608 = t4607 / 0.2e1;
5022   t4609 = -t4343 + t4597 + t4600 + t4603 + t2250 - t2253 + t2262 + t4410 + t4411 - t2377 + t4608;
5023   t4613 = 0.35e2 / 0.3e1 * t3075;
5024   t4614 = t1137 * t1403;
5025   t4615 = t1141 * t4614;
5026   t4616 = 0.46520786582826174894e-1 * t4615;
5027   t4617 = t1419 * t521;
5028   t4619 = t5 * t4617 * t192;
5029   t4620 = t426 * t4619;
5030   t4621 = t179 * t4620;
5031   t4622 = t4621 / 0.2e1;
5032   t4623 = -t2391 + t2400 - t2405 - t2407 - 0.7e1 / 0.2e1 * t3759 + 0.3e1 / 0.2e1 * t3766 + t4613 - t4413 + t4616 - t4414 + t4622;
5033   t4625 = t1093 * t1094 * t1554;
5034   t4626 = 0.77534644304710291488e-2 * t4625;
5035   t4627 = t2281 - t2284 - t2288 + t2307 + t2413 + t2314 - t4415 - t4626 + t4416 + t4418 - t4419;
5036   t4635 = -t1936 + t1937 - 0.77534644304710291488e-2 * t1566 + 0.3e1 * t1355 - 0.7e1 * t1360 + 0.3e1 * t1456 + t7 * (-t4307 - t2179 + t2246 - t2122 - t2721 + t4623 + t4337 + t4338 + t4334 + t4303 + t4304 + t4305 + t4306 + 0.3e1 / 0.2e1 * t3629 + t1986 + t1989 - t2226 + t4297 - t2125 - t2128 - t4237 + t4239 + t4609 + t4273 + t4275 + t4277 - t2133 + t2238 + t4627 - t1980 - t1983 + t2344 - t4341 - t2174 + t2137) + t1942 - t1944 + t1945 + t1946 - t1947 - t1954 + t1956 - t1957 - t1958 + t1960 + 0.6e1 * t1198 - 0.24e2 * t1199 + 0.59255369107695618687e-1 * t1457;
5037   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5038     v3rho3[3] = t4232 + t4635;
5039 
5040   t4639 = t553 * t2814;
5041   t4641 = t1093 * t4639 * t1060;
5042   t4642 = 0.51689762869806860992e-2 * t4641;
5043   t4644 = t1093 * t1642 * t1055;
5044   t4645 = 0.25844881434903430496e-2 * t4644;
5045   t4647 = t730 * t1576 * t724;
5046   t4648 = 0.77534644304710291488e-2 * t4647;
5047   t4649 = t1126 * t781;
5048   t4650 = t1655 * t4649;
5049   t4651 = t4650 / 0.2e1;
5050   t4652 = t704 * t95;
5051   t4654 = t562 * t4652 * t99;
5052   t4655 = t4654 * t569;
5053   t4656 = 0.25e2 / 0.36e2 * t4655;
5054   t4658 = t167 * t413 * t101;
5055   t4659 = t4658 * t1656;
5056   t4661 = t167 * t418 * t101;
5057   t4662 = t4661 * t1656;
5058   t4664 = t167 * t177 * t305;
5059   t4665 = t4664 * t1656;
5060   t4666 = 0.7e1 / 0.3e1 * t4665;
5061   t4668 = t1141 * t1576 * t736;
5062   t4669 = 0.15506928860942058298e-1 * t4668;
5063   t4671 = t730 * t1642 * t3554;
5064   t4672 = 0.15506928860942058298e-1 * t4671;
5065   t4673 = t412 * t94;
5066   t4675 = t562 * t4673 * t99;
5067   t4676 = t4675 * t1670;
5068   t4677 = 0.25e2 / 0.6e1 * t4676;
5069   t4678 = t562 * t178;
5070   t4679 = t1668 * t736;
5071   t4680 = t1667 * t4679;
5072   t4681 = t4678 * t4680;
5073   t4682 = 0.25e2 / 0.6e1 * t4681;
5074   t4683 = t1673 * t6;
5075   t4684 = t4683 * t1669;
5076   t4685 = t1666 * t4684;
5077   t4686 = 0.125e3 / 0.6e1 * t4685;
5078   t4687 = t2130 * t127;
5079   t4688 = t4687 * t568;
5080   t4689 = t565 * t4688;
5081   t4690 = 0.125e3 / 0.6e1 * t4689;
5082   t4691 = t1126 * t788;
5083   t4692 = t1655 * t4691;
5084   t4693 = t4692 / 0.2e1;
5085   t4694 = t4642 - t4645 + t4648 + t4651 - t4656 + t4659 + t4662 - t4666 + t4669 - t4672 - t4677 - t4682 + t4686 - t4690 + t4693;
5086   t4695 = t1661 * t1674;
5087   t4696 = 0.125e3 / 0.18e2 * t4695;
5088   t4697 = t562 * t176;
5089   t4698 = t94 * t99;
5090   t4699 = t4698 * t233;
5091   t4700 = t4697 * t4699;
5092   t4701 = t127 * t6;
5093   t4702 = t4701 * t182;
5094   t4703 = t438 * t192;
5095   t4704 = t4703 * t299;
5096   t4705 = t4702 * t4704;
5097   t4706 = t4700 * t4705;
5098   t4707 = 0.25e2 / 0.6e1 * t4706;
5099   t4709 = t681 * t104 * t530;
5100   t4710 = 0.35e2 / 0.432e3 * t4709;
5101   t4711 = t364 * t112;
5102   t4712 = t4711 * t314;
5103   t4713 = 0.7e1 / 0.72e2 * t4712;
5104   t4714 = t140 * t129;
5105   t4715 = t4714 * t805;
5106   t4717 = t1583 * t809;
5107   t4719 = t812 * t1586;
5108   t4720 = t4719 * t818;
5109   t4722 = t1590 * t127;
5110   t4723 = t317 * t4722;
5111   t4724 = t4723 * t331;
5112   t4726 = t1587 * t829;
5113   t4728 = t1587 * t933;
5114   t4730 = t1587 * t937;
5115   t4732 = t99 * t941;
5116   t4733 = t121 * t4732;
5117   t4734 = t4733 * t133;
5118   t4735 = 0.14367864128956419232e0 * t4734;
5119   t4736 = t1591 * t344;
5120   t4738 = t534 * t952;
5121   t4740 = t534 * t956;
5122   t4742 = t4710 + t4713 + t4715 / 0.16e2 - t4717 / 0.48e2 + 0.10866451862235947318e-1 * t4720 + 0.50710108690434420820e-1 * t4724 + 0.43465807448943789274e-1 * t4726 - 0.54332259311179736592e-2 * t4728 - 0.54332259311179736592e-2 * t4730 + t4735 + 0.20284043476173768328e0 * t4736 + 0.10866451862235947318e0 * t4738 - 0.21732903724471894637e-1 * t4740;
5123   t4746 = t1596 * t352;
5124   t4750 = t537 * t968;
5125   t4765 = t2501 * t549;
5126   t4766 = t4765 * t970;
5127   t4769 = t968 * t1633;
5128   t4770 = t4769 * t391;
5129   t4773 = t1607 * t1051;
5130   t4778 = t137 * t375 * t101 * t50;
5131   t4779 = t141 * t978;
5132   t4780 = t4778 * t4779;
5133   t4784 = t137 * t148 * t305 * t50;
5134   t4785 = t4784 * t1614;
5135   t4786 = 0.40568086952347536654e0 * t4785;
5136   t4787 = t1613 * t990;
5137   t4789 = t141 * t994;
5138   t4790 = t1613 * t4789;
5139   t4792 = t141 * t998;
5140   t4793 = t1613 * t4792;
5141   t4796 = t137 * t120 * t680;
5142   t4797 = t4796 * t543;
5143   t4798 = 0.67613478253912561090e0 * t4797;
5144   t4799 = t1618 * t371;
5145   t4800 = 0.81136173904695073308e0 * t4799;
5146   t4801 = t542 * t1010;
5147   t4803 = t542 * t1014;
5148   t4806 = t146 * t2616 * t124;
5149   t4807 = t4806 * t1022;
5150   t4810 = t146 * t974 * t335;
5151   t4811 = t4810 * t380;
5152   t4812 = 0.28213194496683950480e0 * t4811;
5153   t4813 = t1029 * t1586;
5154   t4814 = t4813 * t829;
5155   t4816 = t1624 * t1033;
5156   t4818 = t1624 * t1036;
5157   t4820 = t546 * t1040;
5158   t4821 = 0.39968692203635596514e0 * t4820;
5159   t4823 = t146 * t354 * t335;
5160   t4824 = t4823 * t344;
5161   t4826 = t1630 * t952;
5162   t4828 = t1630 * t956;
5163   t4830 = 0.17386322979577515709e0 * t4780 + t4786 + 0.34772645959155031418e0 * t4787 - 0.86931614897887578546e-1 * t4790 - 0.86931614897887578546e-1 * t4793 + t4798 + t4800 + 0.52158968938732547127e0 * t4801 - 0.17386322979577515709e0 * t4803 + 0.90685268025055555116e-1 * t4807 + t4812 + 0.24182738140014814698e0 * t4814 - 0.30228422675018518372e-1 * t4816 - 0.30228422675018518372e-1 * t4818 + t4821 + 0.56426388993367900961e0 * t4824 + 0.30228422675018518372e0 * t4826 - 0.60456845350037036744e-1 * t4828;
5164   t4834 = 0.27818116767324025134e1 * t97 * t4742 * t158 - 0.55636233534648050268e1 * t97 * t4746 * t391 + 0.55636233534648050268e1 * t97 * t4750 * t970 - 0.27818116767324025134e1 * t97 * t1600 * t1051 - 0.27818116767324025134e1 * t97 * t2489 * t549 + 0.11127246706929610054e2 * t3335 * t1608 - 0.55636233534648050268e1 * t97 * t963 * t1633 - 0.16690870060394415080e2 * t1261 * t4766 + 0.11127246706929610054e2 * t1261 * t4770 + 0.55636233534648050268e1 * t1261 * t4773 - 0.27818116767324025134e1 * t97 * t353 * t4830;
5165   t4837 = t89 * t95 * t4834 * t397;
5166   t4838 = 0.25844881434903430496e-2 * t4837;
5167   t4839 = t1649 * t423;
5168   t4840 = 0.7e1 / 0.3e1 * t4839;
5169   t4841 = t558 * t682;
5170   t4842 = 0.35e2 / 0.9e1 * t4841;
5171   t4843 = t1646 * t423;
5172   t4844 = 0.7e1 / 0.3e1 * t4843;
5173   t4846 = t182 * t786 * t192;
5174   t4847 = t1667 * t4846;
5175   t4848 = t565 * t4847;
5176   t4849 = 0.25e2 / 0.36e2 * t4848;
5177   t4850 = t4683 * t1678;
5178   t4851 = t565 * t4850;
5179   t4852 = 0.125e3 / 0.18e2 * t4851;
5180   t4854 = t182 * t779 * t192;
5181   t4855 = t1667 * t4854;
5182   t4856 = t565 * t4855;
5183   t4857 = 0.25e2 / 0.36e2 * t4856;
5184   t4858 = t1661 * t1679;
5185   t4859 = 0.25e2 / 0.18e2 * t4858;
5186   t4860 = t1668 * t724;
5187   t4861 = t1667 * t4860;
5188   t4862 = t1666 * t4861;
5189   t4863 = 0.25e2 / 0.12e2 * t4862;
5190   t4864 = t1637 * t397;
5191   t4866 = t730 * t4864 * t299;
5192   t4867 = 0.15506928860942058298e-1 * t4866;
5193   t4868 = t1637 * t1063;
5194   t4870 = t1093 * t4868 * t395;
5195   t4871 = 0.51689762869806860992e-2 * t4870;
5196   t4872 = t167 * t725;
5197   t4873 = t4872 * t194;
5198   t4874 = t4873 / 0.2e1;
5199   t4875 = t167 * t705;
5200   t4876 = t4875 * t194;
5201   t4877 = t4876 / 0.2e1;
5202   t4878 = t167 * t710;
5203   t4879 = t4878 * t194;
5204   t4880 = t4696 - t4707 + t4838 - t4840 + t4842 - t4844 - t4849 + t4852 - t4857 - t4859 - t4863 + t4867 - t4871 + t4874 + t4877 + t4879;
5205   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5206     v3rho2sigma[0] = 0.15506928860942058298e-1 * t1578 + 0.51689762869806860992e-2 * t1640 - 0.51689762869806860992e-2 * t1644 + t1647 + t1650 - t1727 + t1657 - t1728 - t1729 + t1730 - t1731 + t7 * (t4694 + t4880);
5207 
5208   t4886 = 0.2e1 * t1647;
5209   t4888 = 0.14e2 / 0.3e1 * t1652;
5210   t4890 = 0.25e2 / 0.9e1 * t1662;
5211   t4892 = 0.125e3 / 0.9e1 * t1675;
5212   t4894 = t585 * t2814;
5213   t4896 = t1093 * t4894 * t1060;
5214   t4897 = 0.51689762869806860992e-2 * t4896;
5215   t4898 = 0.25e2 / 0.18e2 * t4655;
5216   t4899 = 0.2e1 * t4659;
5217   t4900 = 0.2e1 * t4662;
5218   t4901 = 0.14e2 / 0.3e1 * t4665;
5219   t4902 = t1718 * t1063;
5220   t4904 = t1093 * t4902 * t395;
5221   t4905 = 0.51689762869806860992e-2 * t4904;
5222   t4906 = 0.25e2 / 0.3e1 * t4676;
5223   t4907 = 0.25e2 / 0.3e1 * t4681;
5224   t4908 = 0.125e3 / 0.3e1 * t4685;
5225   t4909 = 0.125e3 / 0.3e1 * t4689;
5226   t4910 = 0.125e3 / 0.9e1 * t4695;
5227   t4911 = t1718 * t397;
5228   t4913 = t730 * t4911 * t299;
5229   t4914 = 0.15506928860942058298e-1 * t4913;
5230   t4915 = 0.25e2 / 0.3e1 * t4706;
5231   t4916 = t4897 + t4650 - t4898 + t4899 + t4900 - t4901 - t4905 - t4906 - t4907 + t4908 - t4909 + t4692 + t4910 + t4914 - t4915;
5232   t4917 = 0.14e2 / 0.3e1 * t4839;
5233   t4918 = 0.70e2 / 0.9e1 * t4841;
5234   t4919 = 0.14e2 / 0.3e1 * t4843;
5235   t4920 = 0.25e2 / 0.18e2 * t4848;
5236   t4921 = 0.125e3 / 0.9e1 * t4851;
5237   t4922 = 0.25e2 / 0.18e2 * t4856;
5238   t4923 = 0.25e2 / 0.9e1 * t4858;
5239   t4924 = 0.25e2 / 0.6e1 * t4862;
5240   t4925 = 0.35e2 / 0.216e3 * t4709;
5241   t4934 = 0.28735728257912838463e0 * t4734;
5242   t4938 = t4925 + 0.7e1 / 0.36e2 * t4712 + t4715 / 0.8e1 - t4717 / 0.24e2 + 0.21732903724471894636e-1 * t4720 + 0.10142021738086884163e0 * t4724 + 0.86931614897887578544e-1 * t4726 - 0.10866451862235947318e-1 * t4728 - 0.10866451862235947318e-1 * t4730 + t4934 + 0.40568086952347536654e0 * t4736 + 0.21732903724471894636e0 * t4738 - 0.43465807448943789272e-1 * t4740;
5243   t4942 = t1693 * t352;
5244   t4946 = t575 * t968;
5245   t4961 = t2501 * t581;
5246   t4962 = t4961 * t970;
5247   t4965 = t968 * t1714;
5248   t4966 = t4965 * t391;
5249   t4969 = t1704 * t1051;
5250   t4977 = 0.13522695650782512218e1 * t4797;
5251   t4986 = 0.79937384407271193027e0 * t4820;
5252   t4990 = 0.34772645959155031418e0 * t4780 + 0.81136173904695073308e0 * t4785 + 0.69545291918310062836e0 * t4787 - 0.17386322979577515709e0 * t4790 - 0.17386322979577515709e0 * t4793 + t4977 + 0.16227234780939014662e1 * t4799 + 0.10431793787746509425e1 * t4801 - 0.34772645959155031418e0 * t4803 + 0.18137053605011111023e0 * t4807 + 0.56426388993367900961e0 * t4811 + 0.48365476280029629396e0 * t4814 - 0.60456845350037036744e-1 * t4816 - 0.60456845350037036744e-1 * t4818 + t4986 + 0.11285277798673580192e1 * t4824 + 0.60456845350037036745e0 * t4826 - 0.12091369070007407349e0 * t4828;
5253   t4994 = 0.27818116767324025134e1 * t97 * t4938 * t158 - 0.55636233534648050268e1 * t97 * t4942 * t391 + 0.55636233534648050268e1 * t97 * t4946 * t970 - 0.27818116767324025134e1 * t97 * t1697 * t1051 - 0.27818116767324025134e1 * t97 * t2489 * t581 + 0.11127246706929610054e2 * t3335 * t1705 - 0.55636233534648050268e1 * t97 * t963 * t1714 - 0.16690870060394415080e2 * t1261 * t4962 + 0.11127246706929610054e2 * t1261 * t4966 + 0.55636233534648050268e1 * t1261 * t4969 - 0.27818116767324025134e1 * t97 * t353 * t4990;
5254   t4997 = t89 * t95 * t4994 * t397;
5255   t4998 = 0.25844881434903430496e-2 * t4997;
5256   t5000 = t1141 * t1684 * t736;
5257   t5001 = 0.15506928860942058298e-1 * t5000;
5258   t5003 = t730 * t1684 * t724;
5259   t5004 = 0.77534644304710291488e-2 * t5003;
5260   t5006 = t1093 * t1723 * t1055;
5261   t5007 = 0.25844881434903430496e-2 * t5006;
5262   t5009 = t730 * t1723 * t3554;
5263   t5010 = 0.15506928860942058298e-1 * t5009;
5264   t5011 = 0.2e1 * t4879;
5265   t5012 = -t4917 + t4918 - t4919 - t4920 + t4921 - t4922 - t4923 - t4924 + t4998 + t5001 + t5004 - t5007 - t5010 + t4873 + t4876 + t5011;
5266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5267     v3rho2sigma[1] = 0.15506928860942058298e-1 * t1686 + 0.51689762869806860992e-2 * t1721 - 0.51689762869806860992e-2 * t1725 + t4886 + 0.2e1 * t1650 - t4888 + 0.2e1 * t1657 - t4890 - 0.25e2 / 0.3e1 * t1671 + t4892 - 0.25e2 / 0.9e1 * t1680 + t7 * (t4916 + t5012);
5268 
5269   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5270     v3rho2sigma[2] = v3rho2sigma[0];
5271 
5272   t5015 = t4202 * t299;
5273   t5016 = t4702 * t5015;
5274   t5017 = t4700 * t5016;
5275   t5020 = t167 * t512 * t101;
5276   t5021 = t5020 * t1656;
5277   t5023 = t4664 * t1780;
5278   t5026 = t730 * t1576 * t1115;
5279   t5028 = t1769 * t1063;
5280   t5030 = t1093 * t5028 * t395;
5281   t5033 = t1141 * t1576 * t3006;
5282   t5036 = t730 * t1642 * t3735;
5283   t5038 = t1123 * t233;
5284   t5039 = t4697 * t5038;
5285   t5040 = t192 * t460;
5286   t5041 = t5040 * t299;
5287   t5042 = t4702 * t5041;
5288   t5043 = t5039 * t5042;
5289   t5047 = -0.25e2 / 0.12e2 * t5017 + t5021 / 0.2e1 - 0.7e1 / 0.6e1 * t5023 + 0.77534644304710291488e-2 * t5026 - 0.25844881434903430496e-2 * t5030 + 0.15506928860942058298e-1 * t5033 - 0.77534644304710291488e-2 * t5036 - 0.25e2 / 0.6e1 * t5043 - t4656 + t4659 / 0.2e1 - 0.7e1 / 0.6e1 * t4665;
5290   t5049 = t1093 * t1642 * t1330;
5291   t5051 = t4658 * t1780;
5292   t5053 = t4661 * t1780;
5293   t5055 = t1126 * t1349;
5294   t5056 = t1655 * t5055;
5295   t5058 = t507 * t299;
5296   t5060 = t730 * t1642 * t5058;
5297   t5065 = t1093 * t4868 * t507;
5298   t5067 = t1777 * t423;
5299   t5069 = -0.25844881434903430496e-2 * t5049 + t5051 / 0.2e1 + t5053 / 0.2e1 + t5056 / 0.2e1 - 0.77534644304710291488e-2 * t5060 - 0.25e2 / 0.12e2 * t4676 + 0.125e3 / 0.12e2 * t4685 - 0.25844881434903430496e-2 * t5065 - t4690 + t4696 - 0.7e1 / 0.6e1 * t5067;
5300   t5071 = t1769 * t397;
5301   t5073 = t730 * t5071 * t299;
5302   t5076 = t167 * t1098;
5303   t5077 = t5076 * t194;
5304   t5079 = t167 * t1116;
5305   t5080 = t5079 * t194;
5306   t5084 = t4703 * t460;
5307   t5085 = t4702 * t5084;
5308   t5086 = t4700 * t5085;
5309   t5088 = t95 * t99;
5310   t5089 = t5088 * t233;
5311   t5090 = t4697 * t5089;
5312   t5091 = t4702 * t1129;
5313   t5092 = t5090 * t5091;
5314   t5094 = t507 * t395;
5315   t5096 = t1093 * t4639 * t5094;
5316   t5098 = 0.77534644304710291488e-2 * t5073 - 0.7e1 / 0.6e1 * t4839 + t4842 + t5077 / 0.2e1 + t5080 / 0.2e1 - t4844 + 0.125e3 / 0.36e2 * t4851 - 0.25e2 / 0.36e2 * t4858 - 0.25e2 / 0.12e2 * t5086 - 0.25e2 / 0.36e2 * t5092 + 0.51689762869806860992e-2 * t5096;
5317   t5099 = t1668 * t1115;
5318   t5100 = t1667 * t5099;
5319   t5101 = t1666 * t5100;
5320   t5103 = t1661 * t1789;
5321   t5106 = t182 * t1347 * t192;
5322   t5107 = t1667 * t5106;
5323   t5108 = t565 * t5107;
5324   t5110 = t1655 * t1130;
5325   t5112 = t4675 * t1784;
5326   t5115 = t730 * t4864 * t460;
5327   t5118 = t4711 * t465;
5328   t5120 = t129 * t19;
5329   t5121 = t140 * t5120;
5330   t5122 = t107 * t3006;
5331   t5123 = t5121 * t5122;
5332   t5125 = t1583 * t1161;
5333   t5127 = t4719 * t1166;
5334   t5129 = t4723 * t478;
5335   t5131 = t1587 * t1173;
5336   t5133 = t1587 * t1222;
5337   t5135 = t1587 * t1227;
5338   t5139 = t1587 * t1234;
5339   t5141 = t1591 * t482;
5340   t5143 = t121 * t1586;
5341   t5144 = t5143 * t1243;
5342   t5146 = t534 * t1247;
5343   t5148 = t4710 + 0.7e1 / 0.144e3 * t4712 + 0.7e1 / 0.144e3 * t5118 + t5123 / 0.16e2 - t5125 / 0.48e2 + 0.10866451862235947318e-1 * t5127 + 0.25355054345217210410e-1 * t5129 + 0.21732903724471894637e-1 * t5131 - 0.54332259311179736592e-2 * t5133 - 0.54332259311179736592e-2 * t5135 + 0.25355054345217210410e-1 * t4724 + t4735 + 0.10142021738086884164e0 * t4736 + 0.21732903724471894637e-1 * t5139 + 0.10142021738086884164e0 * t5141 + 0.10866451862235947318e0 * t5144 - 0.21732903724471894637e-1 * t5146;
5344   t5152 = t1743 * t352;
5345   t5159 = t97 * t537;
5346   t5175 = t503 * t391;
5347   t5176 = t4765 * t5175;
5348   t5179 = t4769 * t503;
5349   t5182 = t1607 * t1326;
5350   t5188 = t968 * t1765;
5351   t5189 = t5188 * t391;
5352   t5192 = t4778 * t1268;
5353   t5194 = t4784 * t1756;
5354   t5196 = t1613 * t1273;
5355   t5198 = t141 * t1277;
5356   t5199 = t1613 * t5198;
5357   t5201 = t1613 * t1281;
5358   t5205 = t1613 * t1286;
5359   t5207 = t1618 * t495;
5360   t5210 = t137 * t541 * t50;
5361   t5211 = t2522 * t1156;
5362   t5212 = t5210 * t5211;
5363   t5214 = t542 * t1296;
5364   t5216 = 0.17386322979577515709e0 * t5192 + 0.20284043476173768327e0 * t5194 + 0.17386322979577515709e0 * t5196 - 0.86931614897887578546e-1 * t5199 - 0.86931614897887578546e-1 * t5201 + 0.20284043476173768327e0 * t4785 + t4798 + 0.40568086952347536654e0 * t4799 + 0.17386322979577515709e0 * t5205 + 0.40568086952347536654e0 * t5207 + 0.52158968938732547127e0 * t5212 - 0.17386322979577515709e0 * t5214;
5365   t5217 = t1300 * t1586;
5366   t5218 = t5217 * t1166;
5367   t5220 = t4810 * t498;
5368   t5222 = t4813 * t1173;
5369   t5224 = t1624 * t1308;
5370   t5226 = t4813 * t1227;
5371   t5230 = t4813 * t1234;
5372   t5232 = t4823 * t482;
5373   t5234 = t1630 * t1320;
5374   t5236 = t1630 * t1247;
5375   t5238 = 0.90685268025055555116e-1 * t5218 + 0.14106597248341975240e0 * t5220 + 0.12091369070007407349e0 * t5222 - 0.30228422675018518372e-1 * t5224 - 0.30228422675018518372e-1 * t5226 + 0.14106597248341975240e0 * t4811 + t4821 + 0.28213194496683950480e0 * t4824 + 0.12091369070007407349e0 * t5230 + 0.28213194496683950481e0 * t5232 + 0.30228422675018518372e0 * t5234 - 0.60456845350037036744e-1 * t5236;
5376   t5239 = t5216 + t5238;
5377   t5243 = 0.27818116767324025134e1 * t97 * t5148 * t158 - 0.27818116767324025134e1 * t97 * t5152 * t391 - 0.27818116767324025134e1 * t97 * t4746 * t503 + 0.55636233534648050268e1 * t5159 * t1263 - 0.27818116767324025134e1 * t97 * t1600 * t1326 - 0.27818116767324025134e1 * t97 * t3321 * t549 + 0.55636233534648050268e1 * t3977 * t1608 - 0.27818116767324025134e1 * t97 * t1254 * t1633 + 0.55636233534648050268e1 * t3335 * t1753 - 0.16690870060394415080e2 * t1261 * t5176 + 0.55636233534648050268e1 * t1261 * t5179 + 0.55636233534648050268e1 * t1261 * t5182 - 0.27818116767324025134e1 * t97 * t963 * t1765 + 0.55636233534648050268e1 * t1261 * t5189 - 0.27818116767324025134e1 * t97 * t353 * t5239;
5378   t5246 = t89 * t95 * t5243 * t397;
5379   t5248 = t4683 * t1788;
5380   t5249 = t565 * t5248;
5381   t5251 = t4683 * t1783;
5382   t5252 = t1666 * t5251;
5383   t5255 = -0.25e2 / 0.12e2 * t5101 - 0.25e2 / 0.36e2 * t5103 - 0.25e2 / 0.36e2 * t5108 + t5110 / 0.2e1 - 0.25e2 / 0.12e2 * t5112 + 0.77534644304710291488e-2 * t5115 + 0.25844881434903430496e-2 * t5246 + 0.125e3 / 0.36e2 * t5249 + 0.125e3 / 0.12e2 * t5252 + t4877 + t4879 / 0.2e1;
5384   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5385     v3rho2sigma[3] = t1579 + t1641 - t1645 + t1647 + t1651 - t1727 + t1658 - t1728 - t1672 + t1730 - t1681 + t1736 + t1773 - t1776 + t1779 + t1782 - t1786 - t1791 + t7 * (t5047 + t5069 + t5098 + t5255);
5386 
5387   t5259 = 0.25e2 / 0.6e1 * t5017;
5388   t5260 = 0.7e1 / 0.3e1 * t5023;
5389   t5261 = t1821 * t397;
5390   t5263 = t730 * t5261 * t299;
5391   t5265 = 0.25e2 / 0.3e1 * t5043;
5392   t5266 = -t5259 + t5021 - t5260 + 0.77534644304710291488e-2 * t5263 - t5265 - t4898 + t4659 - t4666 + t5051 + t5053 + t5056;
5393   t5268 = t1093 * t4902 * t507;
5394   t5271 = t730 * t1684 * t1115;
5395   t5274 = t1093 * t1723 * t1330;
5396   t5276 = 0.7e1 / 0.72e2 * t5118;
5397   t5290 = t4925 + t4713 + t5276 + t5123 / 0.8e1 - t5125 / 0.24e2 + 0.21732903724471894636e-1 * t5127 + 0.50710108690434420817e-1 * t5129 + 0.43465807448943789272e-1 * t5131 - 0.10866451862235947318e-1 * t5133 - 0.10866451862235947318e-1 * t5135 + 0.50710108690434420817e-1 * t4724 + t4934 + 0.20284043476173768327e0 * t4736 + 0.43465807448943789272e-1 * t5139 + 0.20284043476173768327e0 * t5141 + 0.21732903724471894636e0 * t5144 - 0.43465807448943789272e-1 * t5146;
5398   t5294 = t1800 * t352;
5399   t5301 = t97 * t575;
5400   t5317 = t4961 * t5175;
5401   t5320 = t4965 * t503;
5402   t5323 = t1704 * t1326;
5403   t5329 = t968 * t1817;
5404   t5330 = t5329 * t391;
5405   t5334 = 0.40568086952347536654e0 * t5194;
5406   t5342 = 0.34772645959155031418e0 * t5192 + t5334 + 0.34772645959155031418e0 * t5196 - 0.17386322979577515709e0 * t5199 - 0.17386322979577515709e0 * t5201 + t4786 + t4977 + t4800 + 0.34772645959155031418e0 * t5205 + 0.81136173904695073309e0 * t5207 + 0.10431793787746509425e1 * t5212 - 0.34772645959155031418e0 * t5214;
5407   t5353 = 0.18137053605011111023e0 * t5218 + 0.28213194496683950481e0 * t5220 + 0.24182738140014814698e0 * t5222 - 0.60456845350037036744e-1 * t5224 - 0.60456845350037036744e-1 * t5226 + t4812 + t4986 + 0.56426388993367900960e0 * t4824 + 0.24182738140014814698e0 * t5230 + 0.56426388993367900962e0 * t5232 + 0.60456845350037036745e0 * t5234 - 0.12091369070007407349e0 * t5236;
5408   t5354 = t5342 + t5353;
5409   t5358 = 0.27818116767324025134e1 * t97 * t5290 * t158 - 0.27818116767324025134e1 * t97 * t5294 * t391 - 0.27818116767324025134e1 * t97 * t4942 * t503 + 0.55636233534648050268e1 * t5301 * t1263 - 0.27818116767324025134e1 * t97 * t1697 * t1326 - 0.27818116767324025134e1 * t97 * t3321 * t581 + 0.55636233534648050268e1 * t3977 * t1705 - 0.27818116767324025134e1 * t97 * t1254 * t1714 + 0.55636233534648050268e1 * t3335 * t1810 - 0.16690870060394415080e2 * t1261 * t5317 + 0.55636233534648050268e1 * t1261 * t5320 + 0.55636233534648050268e1 * t1261 * t5323 - 0.27818116767324025134e1 * t97 * t963 * t1817 + 0.55636233534648050268e1 * t1261 * t5330 - 0.27818116767324025134e1 * t97 * t353 * t5354;
5410   t5361 = t89 * t95 * t5358 * t397;
5411   t5363 = 0.7e1 / 0.3e1 * t5067;
5412   t5365 = t730 * t4911 * t460;
5413   t5367 = -0.25844881434903430496e-2 * t5268 + 0.77534644304710291488e-2 * t5271 - 0.25844881434903430496e-2 * t5274 + 0.25844881434903430496e-2 * t5361 - t4677 + t4686 - t4909 + t4910 - t5363 + 0.77534644304710291488e-2 * t5365 - t4840;
5414   t5369 = 0.25e2 / 0.6e1 * t5086;
5415   t5370 = 0.25e2 / 0.18e2 * t5092;
5416   t5371 = t1821 * t1063;
5417   t5373 = t1093 * t5371 * t395;
5418   t5376 = t1093 * t4894 * t5094;
5419   t5378 = 0.25e2 / 0.6e1 * t5101;
5420   t5379 = t4918 + t5077 + t5080 - t4919 + t4852 - t4859 - t5369 - t5370 - 0.25844881434903430496e-2 * t5373 + 0.51689762869806860992e-2 * t5376 - t5378;
5421   t5380 = 0.25e2 / 0.18e2 * t5103;
5422   t5381 = 0.25e2 / 0.18e2 * t5108;
5423   t5382 = 0.25e2 / 0.6e1 * t5112;
5424   t5384 = t730 * t1723 * t5058;
5425   t5386 = 0.125e3 / 0.18e2 * t5249;
5426   t5387 = 0.125e3 / 0.6e1 * t5252;
5427   t5389 = t730 * t1723 * t3735;
5428   t5392 = t1141 * t1684 * t3006;
5429   t5394 = -t5380 - t5381 + t5110 - t5382 - 0.77534644304710291488e-2 * t5384 + t5386 + t5387 - 0.77534644304710291488e-2 * t5389 + 0.15506928860942058298e-1 * t5392 + t4876 + t4879;
5430   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5431     v3rho2sigma[4] = t1687 + t1722 - t1726 + t4886 + t1650 - t4888 + t1657 - t4890 - t1729 + t4892 - t1731 + t1796 + t1825 - t1828 + t1778 + t1781 - t1829 - t1830 + t7 * (t5266 + t5367 + t5379 + t5394);
5432 
5433   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5434     v3rho2sigma[5] = v3rho2sigma[3];
5435 
5436   t5402 = t182 * t1419 * t192;
5437   t5403 = t1667 * t5402;
5438   t5404 = t565 * t5403;
5439   t5405 = 0.25e2 / 0.36e2 * t5404;
5440   t5406 = t167 * t1397;
5441   t5407 = t5406 * t194;
5442   t5408 = t5407 / 0.2e1;
5443   t5409 = t4714 * t1427;
5444   t5411 = t1583 * t1431;
5445   t5413 = t4719 * t1437;
5446   t5416 = t1587 * t1442;
5447   t5418 = t1587 * t1479;
5448   t5420 = t1587 * t1483;
5449   t5423 = t534 * t1488;
5450   t5425 = t534 * t1492;
5451   t5427 = t4710 + t5276 + t5409 / 0.16e2 - t5411 / 0.48e2 + 0.10866451862235947318e-1 * t5413 + 0.50710108690434420820e-1 * t5129 + 0.43465807448943789274e-1 * t5416 - 0.54332259311179736592e-2 * t5418 - 0.54332259311179736592e-2 * t5420 + t4735 + 0.20284043476173768328e0 * t5141 + 0.10866451862235947318e0 * t5423 - 0.21732903724471894637e-1 * t5425;
5452   t5448 = t4765 * t1502;
5453   t5451 = t5188 * t503;
5454   t5454 = t1607 * t1550;
5455   t5457 = t141 * t1507;
5456   t5458 = t4778 * t5457;
5457   t5460 = t1613 * t1512;
5458   t5462 = t141 * t1516;
5459   t5463 = t1613 * t5462;
5460   t5465 = t141 * t1520;
5461   t5466 = t1613 * t5465;
5462   t5469 = t542 * t1526;
5463   t5471 = t542 * t1530;
5464   t5473 = t4806 * t1533;
5465   t5476 = t4813 * t1442;
5466   t5478 = t1624 * t1539;
5467   t5480 = t1624 * t1542;
5468   t5483 = t1630 * t1488;
5469   t5485 = t1630 * t1492;
5470   t5487 = 0.17386322979577515709e0 * t5458 + t5334 + 0.34772645959155031418e0 * t5460 - 0.86931614897887578546e-1 * t5463 - 0.86931614897887578546e-1 * t5466 + t4798 + 0.81136173904695073308e0 * t5207 + 0.52158968938732547127e0 * t5469 - 0.17386322979577515709e0 * t5471 + 0.90685268025055555116e-1 * t5473 + 0.28213194496683950480e0 * t5220 + 0.24182738140014814698e0 * t5476 - 0.30228422675018518372e-1 * t5478 - 0.30228422675018518372e-1 * t5480 + t4821 + 0.56426388993367900961e0 * t5232 + 0.30228422675018518372e0 * t5483 - 0.60456845350037036744e-1 * t5485;
5471   t5491 = 0.27818116767324025134e1 * t97 * t5427 * t158 - 0.55636233534648050268e1 * t97 * t5152 * t503 + 0.55636233534648050268e1 * t97 * t4750 * t1502 - 0.27818116767324025134e1 * t97 * t1600 * t1550 - 0.27818116767324025134e1 * t97 * t3970 * t549 + 0.11127246706929610054e2 * t3977 * t1753 - 0.55636233534648050268e1 * t97 * t1254 * t1765 - 0.16690870060394415080e2 * t1261 * t5448 + 0.11127246706929610054e2 * t1261 * t5451 + 0.55636233534648050268e1 * t1261 * t5454 - 0.27818116767324025134e1 * t97 * t353 * t5487;
5472   t5494 = t89 * t95 * t5491 * t397;
5473   t5495 = 0.25844881434903430496e-2 * t5494;
5474   t5496 = t1576 * t1403;
5475   t5497 = t1141 * t5496;
5476   t5498 = 0.15506928860942058298e-1 * t5497;
5477   t5499 = t460 * t507;
5478   t5501 = t730 * t1642 * t5499;
5479   t5502 = 0.15506928860942058298e-1 * t5501;
5480   t5503 = t4202 * t460;
5481   t5504 = t4702 * t5503;
5482   t5505 = t4700 * t5504;
5483   t5506 = 0.25e2 / 0.6e1 * t5505;
5484   t5507 = t1668 * t1388;
5485   t5508 = t1667 * t5507;
5486   t5509 = t1666 * t5508;
5487   t5510 = 0.25e2 / 0.12e2 * t5509;
5488   t5512 = t182 * t1412 * t192;
5489   t5513 = t1667 * t5512;
5490   t5514 = t565 * t5513;
5491   t5515 = 0.25e2 / 0.36e2 * t5514;
5492   t5517 = t1093 * t5028 * t507;
5493   t5518 = 0.51689762869806860992e-2 * t5517;
5494   t5519 = -t5405 - t5260 - t4656 + t5408 + t5051 + t5495 - t4690 + t4696 + t5498 - t5502 - t5363 - t5506 - t5510 - t5515 - t5518;
5495   t5520 = t1668 * t1403;
5496   t5521 = t1667 * t5520;
5497   t5522 = t4678 * t5521;
5498   t5523 = 0.25e2 / 0.6e1 * t5522;
5499   t5525 = t730 * t5071 * t460;
5500   t5526 = 0.15506928860942058298e-1 * t5525;
5501   t5527 = t5020 * t1780;
5502   t5528 = t1126 * t1414;
5503   t5529 = t1655 * t5528;
5504   t5530 = t5529 / 0.2e1;
5505   t5532 = t1093 * t1642 * t1554;
5506   t5533 = 0.25844881434903430496e-2 * t5532;
5507   t5534 = t1126 * t1421;
5508   t5535 = t1655 * t5534;
5509   t5536 = t5535 / 0.2e1;
5510   t5538 = t1093 * t4639 * t1563;
5511   t5539 = 0.51689762869806860992e-2 * t5538;
5512   t5541 = t730 * t1576 * t1388;
5513   t5542 = 0.77534644304710291488e-2 * t5541;
5514   t5543 = -t5523 + t4842 + t5077 - t4844 + t5526 + t5527 + t5530 - t5533 + t5536 - t5380 - t5382 + t5386 + t5387 + t5539 + t5542 + t4877;
5515   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5516     v3rho2sigma[6] = 0.15506928860942058298e-1 * t1735 + 0.51689762869806860992e-2 * t1772 - 0.51689762869806860992e-2 * t1775 + t1647 + t1778 - t1727 + t1781 - t1728 - t1829 + t1730 - t1830 + t7 * (t5519 + t5543);
5517 
5518   t5553 = 0.25e2 / 0.18e2 * t5404;
5519   t5554 = 0.14e2 / 0.3e1 * t5023;
5520   t5555 = t1684 * t1403;
5521   t5556 = t1141 * t5555;
5522   t5557 = 0.15506928860942058298e-1 * t5556;
5523   t5558 = 0.2e1 * t5051;
5524   t5560 = t1093 * t4894 * t1563;
5525   t5561 = 0.51689762869806860992e-2 * t5560;
5526   t5563 = t730 * t1723 * t5499;
5527   t5564 = 0.15506928860942058298e-1 * t5563;
5528   t5565 = 0.14e2 / 0.3e1 * t5067;
5529   t5566 = 0.25e2 / 0.3e1 * t5505;
5530   t5568 = t1093 * t5371 * t507;
5531   t5569 = 0.51689762869806860992e-2 * t5568;
5532   t5571 = t730 * t5261 * t460;
5533   t5572 = 0.15506928860942058298e-1 * t5571;
5534   t5573 = 0.25e2 / 0.6e1 * t5509;
5535   t5574 = -t5553 - t5554 + t5557 - t4898 + t5407 + t5558 + t5561 - t4909 + t4910 - t5564 - t5565 - t5566 - t5569 + t5572 - t5573;
5536   t5575 = 0.25e2 / 0.18e2 * t5514;
5537   t5576 = 0.25e2 / 0.3e1 * t5522;
5538   t5577 = 0.2e1 * t5077;
5539   t5589 = t4925 + 0.7e1 / 0.36e2 * t5118 + t5409 / 0.8e1 - t5411 / 0.24e2 + 0.21732903724471894636e-1 * t5413 + 0.10142021738086884163e0 * t5129 + 0.86931614897887578544e-1 * t5416 - 0.10866451862235947318e-1 * t5418 - 0.10866451862235947318e-1 * t5420 + t4934 + 0.40568086952347536654e0 * t5141 + 0.21732903724471894636e0 * t5423 - 0.43465807448943789272e-1 * t5425;
5540   t5610 = t4961 * t1502;
5541   t5613 = t5329 * t503;
5542   t5616 = t1704 * t1550;
5543   t5635 = 0.34772645959155031418e0 * t5458 + 0.81136173904695073308e0 * t5194 + 0.69545291918310062836e0 * t5460 - 0.17386322979577515709e0 * t5463 - 0.17386322979577515709e0 * t5466 + t4977 + 0.16227234780939014662e1 * t5207 + 0.10431793787746509425e1 * t5469 - 0.34772645959155031418e0 * t5471 + 0.18137053605011111023e0 * t5473 + 0.56426388993367900961e0 * t5220 + 0.48365476280029629396e0 * t5476 - 0.60456845350037036744e-1 * t5478 - 0.60456845350037036744e-1 * t5480 + t4986 + 0.11285277798673580192e1 * t5232 + 0.60456845350037036745e0 * t5483 - 0.12091369070007407349e0 * t5485;
5544   t5639 = 0.27818116767324025134e1 * t97 * t5589 * t158 - 0.55636233534648050268e1 * t97 * t5294 * t503 + 0.55636233534648050268e1 * t97 * t4946 * t1502 - 0.27818116767324025134e1 * t97 * t1697 * t1550 - 0.27818116767324025134e1 * t97 * t3970 * t581 + 0.11127246706929610054e2 * t3977 * t1810 - 0.55636233534648050268e1 * t97 * t1254 * t1817 - 0.16690870060394415080e2 * t1261 * t5610 + 0.11127246706929610054e2 * t1261 * t5613 + 0.55636233534648050268e1 * t1261 * t5616 - 0.27818116767324025134e1 * t97 * t353 * t5635;
5545   t5642 = t89 * t95 * t5639 * t397;
5546   t5643 = 0.25844881434903430496e-2 * t5642;
5547   t5644 = 0.2e1 * t5527;
5548   t5646 = t1093 * t1723 * t1554;
5549   t5647 = 0.25844881434903430496e-2 * t5646;
5550   t5649 = t730 * t1684 * t1388;
5551   t5650 = 0.77534644304710291488e-2 * t5649;
5552   t5651 = 0.25e2 / 0.9e1 * t5103;
5553   t5652 = 0.25e2 / 0.3e1 * t5112;
5554   t5653 = 0.125e3 / 0.9e1 * t5249;
5555   t5654 = 0.125e3 / 0.3e1 * t5252;
5556   t5655 = -t5575 - t5576 + t4918 + t5577 - t4919 + t5643 + t5644 + t5529 - t5647 + t5650 + t5535 - t5651 - t5652 + t5653 + t5654 + t4876;
5557   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5558     v3rho2sigma[7] = 0.15506928860942058298e-1 * t1795 + 0.51689762869806860992e-2 * t1824 - 0.51689762869806860992e-2 * t1827 + t4886 + 0.2e1 * t1778 - t4888 + 0.2e1 * t1781 - t4890 - 0.25e2 / 0.3e1 * t1785 + t4892 - 0.25e2 / 0.9e1 * t1790 + t7 * (t5574 + t5655);
5559 
5560   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5561     v3rho2sigma[8] = v3rho2sigma[6];
5562 
5563   t5658 = t1851 * t397;
5564   t5660 = t730 * t5658 * t299;
5565   t5661 = 0.77534644304710291488e-2 * t5660;
5566   t5663 = t148 * t124 * t127;
5567   t5664 = t146 * t5663;
5568   t5667 = t153 * t158 * t328 * t118;
5569   t5668 = t5664 * t5667;
5570   t5670 = t120 * t335;
5571   t5672 = t146 * t5670 * t1836;
5572   t5673 = 0.70532986241709876201e-1 * t5672;
5573   t5675 = t146 * t1833 * t127;
5574   t5676 = t6 * t158;
5575   t5678 = t825 * t5676 * t299;
5576   t5679 = t5675 * t5678;
5577   t5681 = t6 * t352;
5578   t5683 = t152 * t5681 * t391;
5579   t5684 = t5675 * t5683;
5580   t5697 = t2501 * t1842;
5581   t5698 = t5697 * t391;
5582   t5701 = t1607 * t1633;
5583   t5704 = t1 * t347;
5584   t5705 = t5704 * t1847;
5585   t5706 = t5705 * t154;
5586   t5708 = t968 * t148;
5587   t5709 = t5708 * t124;
5588   t5710 = t1846 * t5709;
5589   t5711 = t132 * t391;
5590   t5712 = t130 * t5711;
5591   t5713 = t5710 * t5712;
5592   t5715 = t352 * t375;
5593   t5716 = t5715 * t124;
5594   t5717 = t1846 * t5716;
5595   t5718 = t5717 * t380;
5596   t5720 = t1848 * t384;
5597   t5721 = 0.59640531701656994214e-1 * t5720;
5598   t5722 = t1847 * t124;
5599   t5723 = t1846 * t5722;
5600   t5724 = t5723 * t344;
5601   t5726 = -0.15114211337509259186e-1 * t5668 - t5673 - 0.60456845350037036744e-1 * t5679 - 0.15114211337509259186e-1 * t5684 - 0.55636233534648050268e1 * t97 * t4746 * t549 + 0.11127246706929610054e2 * t5159 * t1608 - 0.55636233534648050268e1 * t97 * t1600 * t1633 + 0.55636233534648050268e1 * t97 * t2493 * t1842 - 0.16690870060394415080e2 * t1261 * t5698 + 0.11127246706929610054e2 * t1261 * t5701 - 0.12780113936069355903e-1 * t5706 + 0.25560227872138711806e-1 * t5713 + 0.25560227872138711806e-1 * t5718 + t5721 + 0.51120455744277423612e-1 * t5724;
5602   t5729 = t89 * t95 * t5726 * t397;
5603   t5730 = 0.25844881434903430496e-2 * t5729;
5604   t5731 = t1851 * t1063;
5605   t5733 = t1093 * t5731 * t395;
5606   t5734 = 0.25844881434903430496e-2 * t5733;
5607   t5735 = t1856 * t1063;
5608   t5737 = t730 * t5735 * t299;
5609   t5738 = 0.77534644304710291488e-2 * t5737;
5610   t5740 = t1093 * t1642 * t1637;
5611   t5741 = 0.51689762869806860992e-2 * t5740;
5612   t5742 = t1856 * t2814;
5613   t5744 = t1093 * t5742 * t395;
5614   t5745 = 0.51689762869806860992e-2 * t5744;
5615   t5746 = t562 * t1659;
5616   t5747 = t5746 * t569;
5617   t5748 = 0.25e2 / 0.18e2 * t5747;
5618   t5750 = t562 * t1664 * t233;
5619   t5751 = t4701 * t1669;
5620   t5752 = t5750 * t5751;
5621   t5753 = 0.25e2 / 0.6e1 * t5752;
5622   t5754 = t1861 * t1674;
5623   t5755 = 0.125e3 / 0.18e2 * t5754;
5624   t5757 = t562 * t563 * t233;
5625   t5758 = t4701 * t1678;
5626   t5759 = t5757 * t5758;
5627   t5760 = 0.25e2 / 0.18e2 * t5759;
5628   t5761 = t412 * t340;
5629   t5762 = t1866 * t5761;
5630   t5763 = t5762 * t1875;
5631   t5764 = 0.625e3 / 0.9e1 * t5763;
5632   t5765 = t176 * t128;
5633   t5767 = t1866 * t5765 * t99;
5634   t5768 = t1871 * t181;
5635   t5769 = t3 * t192;
5636   t5770 = t5769 * t299;
5637   t5771 = t5768 * t5770;
5638   t5772 = t5767 * t5771;
5639   t5773 = 0.3125e4 / 0.9e1 * t5772;
5640   t5774 = t38 * t38;
5641   t5776 = 0.1e1 / t22 / t5774;
5642   t5778 = t99 * t5776 * t1874;
5643   t5779 = t1868 * t5778;
5644   t5780 = 0.14375e5 / 0.27e2 * t5779;
5645   t5782 = t1866 * t1867 * t99;
5646   t5784 = t3 * t438 * t192;
5647   t5785 = t5768 * t5784;
5648   t5786 = t5782 * t5785;
5649   t5787 = 0.625e3 / 0.9e1 * t5786;
5650   t5788 = t5661 + t5730 - t5734 - t5738 - t5741 + t5745 - t5748 - t5753 + t5755 - t5760 + t5764 + t5773 - t5780 + t5787;
5651   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5652     v3rhosigma2[0] = t5788 * t7 + t1855 - t1860 - t1863 + t1877;
5653 
5654   t5790 = t1890 * t397;
5655   t5792 = t730 * t5790 * t299;
5656   t5793 = 0.77534644304710291488e-2 * t5792;
5657   t5795 = 0.14106597248341975240e0 * t5672;
5658   t5816 = t549 * t391;
5659   t5817 = t4961 * t5816;
5660   t5820 = t4965 * t549;
5661   t5823 = t1704 * t1633;
5662   t5829 = 0.11928106340331398843e0 * t5720;
5663   t5831 = -0.30228422675018518372e-1 * t5668 - t5795 - 0.12091369070007407349e0 * t5679 - 0.30228422675018518372e-1 * t5684 - 0.27818116767324025134e1 * t97 * t4942 * t549 + 0.55636233534648050268e1 * t5301 * t1608 - 0.27818116767324025134e1 * t97 * t1697 * t1633 - 0.27818116767324025134e1 * t97 * t4746 * t581 + 0.55636233534648050268e1 * t5159 * t1705 - 0.27818116767324025134e1 * t97 * t1600 * t1714 + 0.55636233534648050268e1 * t3335 * t1886 - 0.16690870060394415080e2 * t1261 * t5817 + 0.55636233534648050268e1 * t1261 * t5820 + 0.55636233534648050268e1 * t1261 * t5823 - 0.25560227872138711807e-1 * t5706 + 0.51120455744277423614e-1 * t5713 + 0.51120455744277423614e-1 * t5718 + t5829 + 0.10224091148855484723e0 * t5724;
5664   t5834 = t89 * t95 * t5831 * t397;
5665   t5835 = 0.25844881434903430496e-2 * t5834;
5666   t5836 = t1890 * t1063;
5667   t5838 = t1093 * t5836 * t395;
5668   t5839 = 0.25844881434903430496e-2 * t5838;
5669   t5840 = t553 * t299;
5670   t5842 = t730 * t1723 * t5840;
5671   t5843 = 0.77534644304710291488e-2 * t5842;
5672   t5845 = t1093 * t4902 * t553;
5673   t5846 = 0.25844881434903430496e-2 * t5845;
5674   t5847 = t553 * t395;
5675   t5849 = t1093 * t4894 * t5847;
5676   t5850 = 0.51689762869806860992e-2 * t5849;
5677   t5852 = t1093 * t1723 * t1637;
5678   t5853 = 0.25844881434903430496e-2 * t5852;
5679   t5854 = 0.25e2 / 0.9e1 * t5747;
5680   t5855 = 0.25e2 / 0.3e1 * t5752;
5681   t5856 = 0.125e3 / 0.9e1 * t5754;
5682   t5857 = 0.25e2 / 0.9e1 * t5759;
5683   t5858 = 0.1250e4 / 0.9e1 * t5763;
5684   t5859 = 0.6250e4 / 0.9e1 * t5772;
5685   t5860 = 0.28750e5 / 0.27e2 * t5779;
5686   t5861 = 0.1250e4 / 0.9e1 * t5786;
5687   t5862 = t5793 + t5835 - t5839 - t5843 - t5846 + t5850 - t5853 - t5854 - t5855 + t5856 - t5857 + t5858 + t5859 - t5860 + t5861;
5688   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5689     v3rhosigma2[1] = t5862 * t7 + t1894 - t1897 - t1898 + t1899;
5690 
5691   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5692     v3rhosigma2[2] = v3rhosigma2[0];
5693 
5694   t5864 = t1910 * t397;
5695   t5866 = t730 * t5864 * t299;
5696   t5867 = 0.77534644304710291488e-2 * t5866;
5697   t5869 = 0.28213194496683950481e0 * t5672;
5698   t5883 = t2501 * t1905;
5699   t5884 = t5883 * t391;
5700   t5887 = t1704 * t1714;
5701   t5893 = 0.23856212680662797686e0 * t5720;
5702   t5895 = -0.60456845350037036744e-1 * t5668 - t5869 - 0.24182738140014814698e0 * t5679 - 0.60456845350037036744e-1 * t5684 - 0.55636233534648050268e1 * t97 * t4942 * t581 + 0.11127246706929610054e2 * t5301 * t1705 - 0.55636233534648050268e1 * t97 * t1697 * t1714 + 0.55636233534648050268e1 * t97 * t2493 * t1905 - 0.16690870060394415080e2 * t1261 * t5884 + 0.11127246706929610054e2 * t1261 * t5887 - 0.51120455744277423612e-1 * t5706 + 0.10224091148855484722e0 * t5713 + 0.10224091148855484722e0 * t5718 + t5893 + 0.20448182297710969445e0 * t5724;
5703   t5898 = t89 * t95 * t5895 * t397;
5704   t5899 = 0.25844881434903430496e-2 * t5898;
5705   t5900 = t1910 * t1063;
5706   t5902 = t1093 * t5900 * t395;
5707   t5903 = 0.25844881434903430496e-2 * t5902;
5708   t5904 = t1915 * t1063;
5709   t5906 = t730 * t5904 * t299;
5710   t5907 = 0.77534644304710291488e-2 * t5906;
5711   t5909 = t1093 * t1723 * t1718;
5712   t5910 = 0.51689762869806860992e-2 * t5909;
5713   t5911 = t1915 * t2814;
5714   t5913 = t1093 * t5911 * t395;
5715   t5914 = 0.51689762869806860992e-2 * t5913;
5716   t5915 = 0.50e2 / 0.9e1 * t5747;
5717   t5916 = 0.50e2 / 0.3e1 * t5752;
5718   t5917 = 0.250e3 / 0.9e1 * t5754;
5719   t5918 = 0.50e2 / 0.9e1 * t5759;
5720   t5919 = 0.2500e4 / 0.9e1 * t5763;
5721   t5920 = 0.12500e5 / 0.9e1 * t5772;
5722   t5921 = 0.57500e5 / 0.27e2 * t5779;
5723   t5922 = 0.2500e4 / 0.9e1 * t5786;
5724   t5923 = t5867 + t5899 - t5903 - t5907 - t5910 + t5914 - t5915 - t5916 + t5917 - t5918 + t5919 + t5920 - t5921 + t5922;
5725   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5726     v3rhosigma2[3] = t5923 * t7 + t1914 - t1919 - t1920 + t1921;
5727 
5728   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5729     v3rhosigma2[4] = v3rhosigma2[1];
5730 
5731   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5732     v3rhosigma2[5] = v3rhosigma2[2];
5733 
5734   t5926 = t730 * t5658 * t460;
5735   t5927 = 0.77534644304710291488e-2 * t5926;
5736   t5930 = t153 * t158 * t475 * t118;
5737   t5931 = t5664 * t5930;
5738   t5934 = t825 * t5676 * t460;
5739   t5935 = t5675 * t5934;
5740   t5938 = t152 * t5681 * t503;
5741   t5939 = t5675 * t5938;
5742   t5952 = t5697 * t503;
5743   t5955 = t1607 * t1765;
5744   t5958 = t1 * t485;
5745   t5959 = t5958 * t1847;
5746   t5960 = t5959 * t154;
5747   t5962 = t132 * t503;
5748   t5963 = t130 * t5962;
5749   t5964 = t5710 * t5963;
5750   t5966 = t5717 * t498;
5751   t5968 = t5723 * t482;
5752   t5970 = -0.15114211337509259186e-1 * t5931 - t5673 - 0.60456845350037036744e-1 * t5935 - 0.15114211337509259186e-1 * t5939 - 0.55636233534648050268e1 * t97 * t5152 * t549 + 0.11127246706929610054e2 * t5159 * t1753 - 0.55636233534648050268e1 * t97 * t1600 * t1765 + 0.55636233534648050268e1 * t97 * t3325 * t1842 - 0.16690870060394415080e2 * t1261 * t5952 + 0.11127246706929610054e2 * t1261 * t5955 - 0.12780113936069355903e-1 * t5960 + 0.25560227872138711806e-1 * t5964 + 0.25560227872138711806e-1 * t5966 + t5721 + 0.51120455744277423612e-1 * t5968;
5753   t5973 = t89 * t95 * t5970 * t397;
5754   t5974 = 0.25844881434903430496e-2 * t5973;
5755   t5976 = t1093 * t5731 * t507;
5756   t5977 = 0.25844881434903430496e-2 * t5976;
5757   t5979 = t730 * t5735 * t460;
5758   t5980 = 0.77534644304710291488e-2 * t5979;
5759   t5982 = t1093 * t1642 * t1769;
5760   t5983 = 0.51689762869806860992e-2 * t5982;
5761   t5985 = t1093 * t5742 * t507;
5762   t5986 = 0.51689762869806860992e-2 * t5985;
5763   t5987 = t4701 * t1783;
5764   t5988 = t5750 * t5987;
5765   t5989 = 0.25e2 / 0.6e1 * t5988;
5766   t5990 = t4701 * t1788;
5767   t5991 = t5757 * t5990;
5768   t5992 = 0.25e2 / 0.18e2 * t5991;
5769   t5993 = t5769 * t460;
5770   t5994 = t5768 * t5993;
5771   t5995 = t5767 * t5994;
5772   t5996 = 0.3125e4 / 0.9e1 * t5995;
5773   t5998 = t3 * t521 * t192;
5774   t5999 = t5768 * t5998;
5775   t6000 = t5782 * t5999;
5776   t6001 = 0.625e3 / 0.9e1 * t6000;
5777   t6002 = t5927 + t5974 - t5977 - t5980 - t5983 + t5986 - t5748 - t5989 + t5755 - t5992 + t5764 + t5996 - t5780 + t6001;
5778   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5779     v3rhosigma2[6] = t6002 * t7 + t1855 - t1860 - t1863 + t1877;
5780 
5781   t6005 = t730 * t5790 * t460;
5782   t6006 = 0.77534644304710291488e-2 * t6005;
5783   t6028 = t549 * t503;
5784   t6029 = t4961 * t6028;
5785   t6032 = t5329 * t549;
5786   t6035 = t1704 * t1765;
5787   t6042 = -0.30228422675018518372e-1 * t5931 - t5795 - 0.12091369070007407349e0 * t5935 - 0.30228422675018518372e-1 * t5939 - 0.27818116767324025134e1 * t97 * t5294 * t549 + 0.55636233534648050268e1 * t5301 * t1753 - 0.27818116767324025134e1 * t97 * t1697 * t1765 - 0.27818116767324025134e1 * t97 * t5152 * t581 + 0.55636233534648050268e1 * t5159 * t1810 - 0.27818116767324025134e1 * t97 * t1600 * t1817 + 0.55636233534648050268e1 * t3977 * t1886 - 0.16690870060394415080e2 * t1261 * t6029 + 0.55636233534648050268e1 * t1261 * t6032 + 0.55636233534648050268e1 * t1261 * t6035 - 0.25560227872138711807e-1 * t5960 + 0.51120455744277423614e-1 * t5964 + 0.51120455744277423614e-1 * t5966 + t5829 + 0.10224091148855484723e0 * t5968;
5788   t6045 = t89 * t95 * t6042 * t397;
5789   t6046 = 0.25844881434903430496e-2 * t6045;
5790   t6048 = t1093 * t5836 * t507;
5791   t6049 = 0.25844881434903430496e-2 * t6048;
5792   t6050 = t553 * t460;
5793   t6052 = t730 * t1723 * t6050;
5794   t6053 = 0.77534644304710291488e-2 * t6052;
5795   t6055 = t1093 * t5371 * t553;
5796   t6056 = 0.25844881434903430496e-2 * t6055;
5797   t6057 = t553 * t507;
5798   t6059 = t1093 * t4894 * t6057;
5799   t6060 = 0.51689762869806860992e-2 * t6059;
5800   t6062 = t1093 * t1723 * t1769;
5801   t6063 = 0.25844881434903430496e-2 * t6062;
5802   t6064 = 0.25e2 / 0.3e1 * t5988;
5803   t6065 = 0.25e2 / 0.9e1 * t5991;
5804   t6066 = 0.6250e4 / 0.9e1 * t5995;
5805   t6067 = 0.1250e4 / 0.9e1 * t6000;
5806   t6068 = t6006 + t6046 - t6049 - t6053 - t6056 + t6060 - t6063 - t5854 - t6064 + t5856 - t6065 + t5858 + t6066 - t5860 + t6067;
5807   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5808     v3rhosigma2[7] = t6068 * t7 + t1894 - t1897 - t1898 + t1899;
5809 
5810   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5811     v3rhosigma2[8] = v3rhosigma2[6];
5812 
5813   t6071 = t730 * t5864 * t460;
5814   t6072 = 0.77534644304710291488e-2 * t6071;
5815   t6087 = t5883 * t503;
5816   t6090 = t1704 * t1817;
5817   t6097 = -0.60456845350037036744e-1 * t5931 - t5869 - 0.24182738140014814698e0 * t5935 - 0.60456845350037036744e-1 * t5939 - 0.55636233534648050268e1 * t97 * t5294 * t581 + 0.11127246706929610054e2 * t5301 * t1810 - 0.55636233534648050268e1 * t97 * t1697 * t1817 + 0.55636233534648050268e1 * t97 * t3325 * t1905 - 0.16690870060394415080e2 * t1261 * t6087 + 0.11127246706929610054e2 * t1261 * t6090 - 0.51120455744277423612e-1 * t5960 + 0.10224091148855484722e0 * t5964 + 0.10224091148855484722e0 * t5966 + t5893 + 0.20448182297710969445e0 * t5968;
5818   t6100 = t89 * t95 * t6097 * t397;
5819   t6101 = 0.25844881434903430496e-2 * t6100;
5820   t6103 = t1093 * t5900 * t507;
5821   t6104 = 0.25844881434903430496e-2 * t6103;
5822   t6106 = t730 * t5904 * t460;
5823   t6107 = 0.77534644304710291488e-2 * t6106;
5824   t6109 = t1093 * t1723 * t1821;
5825   t6110 = 0.51689762869806860992e-2 * t6109;
5826   t6112 = t1093 * t5911 * t507;
5827   t6113 = 0.51689762869806860992e-2 * t6112;
5828   t6114 = 0.50e2 / 0.3e1 * t5988;
5829   t6115 = 0.50e2 / 0.9e1 * t5991;
5830   t6116 = 0.12500e5 / 0.9e1 * t5995;
5831   t6117 = 0.2500e4 / 0.9e1 * t6000;
5832   t6118 = t6072 + t6101 - t6104 - t6107 - t6110 + t6113 - t5915 - t6114 + t5917 - t6115 + t5919 + t6116 - t5921 + t6117;
5833   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5834     v3rhosigma2[9] = t6118 * t7 + t1914 - t1919 - t1920 + t1921;
5835 
5836   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5837     v3rhosigma2[10] = v3rhosigma2[7];
5838 
5839   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5840     v3rhosigma2[11] = v3rhosigma2[8];
5841 
5842   t6121 = t152 * t5681 * t549;
5843   t6122 = t5675 * t6121;
5844   t6127 = t1 * t537;
5845   t6128 = t6127 * t1847;
5846   t6129 = t6128 * t154;
5847   t6131 = t1842 * t549;
5848   t6135 = t1607 * t148;
5849   t6136 = t1846 * t6135;
5850   t6137 = t6136 * t154;
5851   t6139 = -0.45342634012527777559e-1 * t6122 + 0.16690870060394415081e2 * t97 * t4750 * t1842 - 0.38340341808208067710e-1 * t6129 - 0.16690870060394415080e2 * t97 * t2502 * t6131 + 0.76680683616416135420e-1 * t6137;
5852   t6143 = 0.25844881434903430496e-2 * t89 * t95 * t6139 * t397;
5853   t6146 = 0.77534644304710291488e-2 * t1093 * t5731 * t553;
5854   t6147 = t1856 * t553;
5855   t6151 = 0.51689762869806860992e-2 * t89 * t95 * t6147 * t2814;
5856   t6152 = t5768 * t5769;
5857   t6153 = t1868 * t6152;
5858   t6154 = 0.625e3 / 0.3e1 * t6153;
5859   t6155 = t86 * t86;
5860   t6157 = 0.1e1 / t6155 * t87;
5861   t6158 = t176 * t2040;
5862   t6160 = t6157 * t6158 * t99;
5863   t6164 = 0.1e1 / t8 / t5774 / t37 * t20;
5864   t6166 = t5 * t50 * t192;
5865   t6167 = t6164 * t6166;
5866   t6168 = t6160 * t6167;
5867   t6169 = 0.15625e5 / 0.18e2 * t6168;
5868   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5869     v3sigma3[0] = t7 * (t6143 - t6146 + t6151 + t6154 - t6169);
5870 
5871   t6171 = 0.60456845350037036744e-1 * t6122;
5872   t6174 = 0.55636233534648050268e1 * t97 * t4946 * t1842;
5873   t6175 = t1 * t575;
5874   t6176 = t6175 * t1847;
5875   t6177 = t6176 * t154;
5876   t6178 = 0.12780113936069355903e-1 * t6177;
5877   t6180 = t152 * t5681 * t581;
5878   t6181 = t5675 * t6180;
5879   t6182 = 0.15114211337509259186e-1 * t6181;
5880   t6184 = 0.11127246706929610054e2 * t5159 * t1886;
5881   t6185 = 0.51120455744277423614e-1 * t6129;
5882   t6186 = t4961 * t1842;
5883   t6188 = 0.16690870060394415080e2 * t1261 * t6186;
5884   t6189 = 0.10224091148855484723e0 * t6137;
5885   t6190 = t1704 * t148;
5886   t6191 = t1846 * t6190;
5887   t6192 = t6191 * t154;
5888   t6194 = -t6171 + t6174 - t6178 - t6182 + t6184 - t6185 - t6188 + t6189 + 0.25560227872138711807e-1 * t6192;
5889   t6198 = 0.25844881434903430496e-2 * t89 * t95 * t6194 * t397;
5890   t6201 = 0.51689762869806860992e-2 * t1093 * t5836 * t553;
5891   t6204 = 0.51689762869806860992e-2 * t1093 * t4894 * t1856;
5892   t6207 = 0.25844881434903430496e-2 * t1093 * t1723 * t1851;
5893   t6208 = 0.1250e4 / 0.3e1 * t6153;
5894   t6209 = 0.15625e5 / 0.9e1 * t6168;
5895   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5896     v3sigma3[1] = t7 * (t6198 - t6201 + t6204 - t6207 + t6208 - t6209);
5897 
5898   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5899     v3sigma3[2] = v3sigma3[0];
5900 
5901   t6218 = t5883 * t549;
5902   t6224 = -t6171 - 0.60456845350037036744e-1 * t6181 + 0.11127246706929610054e2 * t5301 * t1886 - 0.51120455744277423614e-1 * t6177 + 0.55636233534648050268e1 * t97 * t4750 * t1905 - 0.16690870060394415080e2 * t1261 * t6218 + 0.10224091148855484723e0 * t6192 - 0.51120455744277423612e-1 * t6129 + 0.10224091148855484722e0 * t6137;
5903   t6228 = 0.25844881434903430496e-2 * t89 * t95 * t6224 * t397;
5904   t6231 = 0.25844881434903430496e-2 * t1093 * t5900 * t553;
5905   t6234 = 0.51689762869806860992e-2 * t1093 * t1723 * t1890;
5906   t6237 = 0.51689762869806860992e-2 * t1093 * t5911 * t553;
5907   t6238 = 0.2500e4 / 0.3e1 * t6153;
5908   t6239 = 0.31250e5 / 0.9e1 * t6168;
5909   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5910     v3sigma3[3] = t7 * (t6228 - t6231 - t6234 + t6237 + t6238 - t6239);
5911 
5912   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5913     v3sigma3[4] = v3sigma3[1];
5914 
5915   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5916     v3sigma3[5] = v3sigma3[2];
5917 
5918   t6246 = t1905 * t581;
5919   t6251 = -0.18137053605011111023e0 * t6181 + 0.16690870060394415081e2 * t97 * t4946 * t1905 - 0.15336136723283227083e0 * t6177 - 0.16690870060394415080e2 * t97 * t2502 * t6246 + 0.30672273446566454167e0 * t6192;
5920   t6255 = 0.25844881434903430496e-2 * t89 * t95 * t6251 * t397;
5921   t6258 = 0.77534644304710291488e-2 * t1093 * t5900 * t585;
5922   t6259 = t1915 * t585;
5923   t6263 = 0.51689762869806860992e-2 * t89 * t95 * t6259 * t2814;
5924   t6264 = 0.5000e4 / 0.3e1 * t6153;
5925   t6265 = 0.62500e5 / 0.9e1 * t6168;
5926   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5927     v3sigma3[6] = t7 * (t6255 - t6258 + t6263 + t6264 - t6265);
5928 
5929   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5930     v3sigma3[7] = v3sigma3[3];
5931 
5932   t6268 = -t6182 - t6171 + t6184 - t6185 + t6174 - t6188 + t6189 - t6178 + 0.25560227872138711806e-1 * t6192;
5933   t6272 = 0.25844881434903430496e-2 * t89 * t95 * t6268 * t397;
5934   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5935     v3sigma3[8] = t7 * (t6272 - t6207 - t6201 + t6204 + t6208 - t6209);
5936 
5937   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5938     v3sigma3[9] = v3sigma3[5];
5939 
5940 #ifndef XC_DONT_COMPILE_LXC
5941 
5942   if(order < 4) return;
5943 
5944 
5945   t6278 = 0.13012297059337829057e0 * t1979;
5946   t6279 = 0.86748647062252193714e-1 * t1982;
5947   t6280 = 0.65061485296689145286e-1 * t1985;
5948   t6281 = 0.19263778438055647920e1 * t1988;
5949   t6286 = 0.384e3 * t2002;
5950   t6289 = 0.80000000000000000000e1 * t638 * t225 * t2235;
5951   t6290 = t420 * t2729;
5952   t6292 = t712 * t789;
5953   t6295 = t179 * t2788 * t788;
5954   t6297 = t415 * t2729;
5955   t6299 = t415 * t2795;
5956   t6302 = t179 * t759 * t2784;
5957   t6304 = t707 * t789;
5958   t6306 = t1060 * t1060;
5959   t6308 = t1062 * t1062;
5960   t6309 = 0.1e1 / t6308;
5961   t6313 = t639 * t639;
5962   t6316 = 0.24000000000000000000e2 * t2222 * t6313 * t224;
5963   t6318 = t2131 * t246;
5964   t6319 = 0.480e3 * t6318;
5965   t6323 = 0.24e2 * t39 * t49 * t53 * t81;
5966   t6324 = t665 * t665;
5967   t6327 = 0.60000000000000000000e1 * t638 * t6324 * t224;
5968   t6330 = 0.48245472966453314466e2 * t671 * t6324 * t673;
5969   t6334 = t415 * t2737;
5970   t6336 = t786 * t786;
5971   t6344 = t420 * t2795;
5972   t6346 = t2658 * t106;
5973   t6348 = t179 * t6346 * t440;
5974   t6350 = t420 * t2789;
5975   t6352 = -t6319 + t6323 - t6327 + t6330 + 0.31013857721884116596e-1 * t730 * t731 * t2030 + 0.2e1 * t6334 + t179 * t426 * t5 * t6336 * t192 / 0.2e1 + 0.3e1 * t727 * t782 - 0.14e2 * t6344 - 0.1820e4 / 0.27e2 * t6348 + 0.140e3 / 0.3e1 * t6350;
5976   t6355 = t179 * t2788 * t781;
5977   t6357 = t415 * t2785;
5978   t6364 = 0.261800e6 / 0.729e3 * t184 * t941 * t94 * t188;
5979   t6365 = t335 * t93;
5980   t6367 = t184 * t6365 * t434;
5981   t6371 = t184 * t124 * t736 * t188;
5982   t6374 = t184 * t2764 * t775;
5983   t6377 = t184 * t3050 * t775;
5984   t6380 = t184 * t767 * t2778;
5985   t6382 = t724 * t724;
5986   t6392 = 0.1e1 / t44 / t2004 / t43;
5987   t6393 = t609 * t609;
5988   t6399 = t615 * t615;
5989   t6404 = t34 * t233;
5990   t6406 = -0.24e2 * t39 + 0.24e2 * t6404;
5991   t6411 = 0.1e1 / t47 / t2018 / t46;
5992   t6412 = t619 * t619;
5993   t6418 = t622 * t622;
5994   t6423 = -t6406;
5995   t6426 = -0.28e2 / 0.81e2 * t6392 * t6393 + 0.8e1 / 0.9e1 * t2006 * t609 * t615 - t714 * t6399 / 0.3e1 - 0.4e1 / 0.9e1 * t2010 * t2015 + t294 * t6406 / 0.3e1 - 0.28e2 / 0.81e2 * t6411 * t6412 + 0.8e1 / 0.9e1 * t2020 * t619 * t622 - t719 * t6418 / 0.3e1 - 0.4e1 / 0.9e1 * t2024 * t2027 + t296 * t6423 / 0.3e1;
5996   t6438 = t40 * t245 * t2342;
5997   t6439 = 0.4e1 * t6438;
5998   t6440 = t748 * t631;
5999   t6441 = 0.240e3 * t6440;
6000   t6442 = t229 * t2343;
6001   t6443 = 0.16e2 * t6442;
6002   t6444 = t779 * t779;
6003   t6453 = t179 * t759 * t2736;
6004   t6458 = t2013 * t279;
6005   t6459 = 0.96e2 * t6458;
6006   t6460 = t2123 * t279;
6007   t6461 = 0.576e3 * t6460;
6008   t6463 = t35 * t747 * t82;
6009   t6464 = 0.1440e4 * t6463;
6010   t6465 = t6404 * t82;
6011   t6466 = 0.384e3 * t6465;
6012   t6467 = t2013 * t246;
6013   t6468 = 0.96e2 * t6467;
6014   t6469 = t2126 * t279;
6015   t6470 = 0.960e3 * t6469;
6016   t6471 = t2123 * t246;
6017   t6472 = 0.576e3 * t6471;
6018   t6473 = t229 * t2182;
6019   t6474 = 0.48e2 * t6473;
6020   t6475 = t2126 * t246;
6021   t6476 = 0.960e3 * t6475;
6022   t6481 = 0.3e1 * t727 * t789 + t6459 - t6461 + t6464 - t6466 + t6468 + t6470 - t6472 + t6474 + t6476 - 0.93041573165652349787e-1 * t730 * t1055 * t1063 * t3554;
6023   t6484 = t741 * t908;
6024   t6485 = 0.192e3 * t6484;
6025   t6487 = t228 * t2130 * t82;
6026   t6488 = 0.1920e4 * t6487;
6027   t6489 = t748 * t629;
6028   t6490 = 0.120e3 * t6489;
6029   t6491 = t741 * t629;
6030   t6492 = 0.192e3 * t6491;
6031   t6496 = t838 * t838;
6032   t6510 = 0.64327297288604419288e2 * t671 * t2235 * t673 * t223;
6033   t6514 = t669 * t669;
6034   t6517 = t672 * t672;
6035   t6521 = 0.24954977986735470917e5 * t13 / t6514 * t6313 / t6517;
6036   t6528 = 0.1e1 / t14 / t41 * t2470 * t592 / 0.48e2;
6037   t6530 = t2147 * t233;
6038   t6532 = t646 * t124;
6039   t6533 = t645 * t6532;
6040   t6535 = t208 * t680;
6041   t6536 = t207 * t6535;
6042   t6538 = t6 * t680;
6043   t6539 = t4 * t6538;
6044   t6541 = pow(t11, -0.25e1);
6045   t6544 = t6541 * t2 * t2470 * t592;
6046   t6546 = t2160 * t233;
6047   t6548 = t657 * t6532;
6048   t6550 = t215 * t6535;
6049   t6553 = t21 * t5 * t124;
6050   t6562 = t865 * t865;
6051   t6567 = 0.1e1 / t843 / t894;
6052   t6569 = t845 * t845;
6053   t6582 = -0.62336721237753107879e3 * t2202 * t2212 * t845 + t6289 + t6316 + t6327 - t6330 - 0.35089340384731224426e1 * t896 * t6496 * t274 + 0.36000000000000000000e2 * t881 * t866 * t875 + 0.12865873271148279190e3 * t881 * t2323 * t883 * t258 - t6510 - 0.46785787179641632568e1 * t896 * t275 * t2170 - t6521 + 0.10000000000000000000e1 * t253 * (-0.39219166666666666667e1 * t6528 + 0.37650400000000000000e2 * t6530 - 0.13944592592592592593e2 * t6533 + 0.12201518518518518519e2 * t6536 + 0.53560370370370370370e1 * t6539 + 0.14025833333333333333e0 * t6544 - 0.22441333333333333332e1 * t6546 + 0.24934814814814814815e1 * t6548 + 0.21817962962962962963e1 * t6550 + 0.16979925925925925926e1 * t6553) * t259 - 0.24829604254387158296e5 * t56 / t879 / t862 * t6562 * t2331 - 0.12304676425209353917e5 * t69 * t6567 * t6569 * t2196 - 0.24000000000000000000e2 * t2337 * t6562 * t259 + 0.51947267698127589897e2 * t903 * t6496 * t848 - 0.80000000000000000000e1 * t864 * t260 * t2323;
6054   t6590 = t875 * t875;
6055   t6596 = 0.57894567559743977359e3 * t2241 * t6313 * t673;
6056   t6601 = 0.34366858576436911004e1 * t212 * t670 * t665 * t673 * t223;
6057   t6605 = 0.42740000000000000000e0 * t212 * t637 * t223 * t666;
6058   t6614 = 0.11483710345679012345e-1 * t4 * t6538 * t31;
6059   t6618 = t879 * t879;
6060   t6621 = t882 * t882;
6061   t6632 = 0.31035008823423701050e4 * t2241 * t665 * t2243 * t639;
6062   t6635 = 0.36000000000000000000e2 * t671 * t640 * t665;
6063   t6638 = 0.57894567559743977359e3 * t2222 * t2247 * t639;
6064   t6644 = 0.62070017646847402100e4 * t13 / t669 / t636 * t6313 * t2243;
6065   t6658 = 0.10000000000000000000e1 * t205 * (-0.21099166666666666667e1 * t6528 + 0.20255200000000000000e2 * t6530 - 0.75019259259259259258e1 * t6533 + 0.65641851851851851850e1 * t6536 + 0.31003950617283950618e1 * t6539 + 0.68258333333333333335e-1 * t6544 - 0.10921333333333333333e1 * t6546 + 0.12134814814814814815e1 * t6548 + 0.10617962962962962963e1 * t6550 + 0.13388493827160493828e1 * t6553) * t224;
6066   t6659 = -0.11579285944033451271e4 * t2337 * t2216 * t865 + 0.12414802127193579148e5 * t2329 * t875 * t2331 * t865 + 0.96494049533612093922e2 * t881 * t6590 * t883 - t6596 + t6601 - t6605 - 0.55208163456790123453e-2 * t4 * t6538 * t65 - 0.18989760778855128827e-2 * t4 * t6538 * t78 + t6614 + 0.62336721237753107880e3 * t2194 * t6569 * t848 + 0.19965908856856833625e6 * t56 / t6618 * t6562 / t6621 - 0.60000000000000000000e1 * t864 * t6590 * t259 - t6632 - t6635 + t6638 + t6644 - t6658;
6067   t6665 = t838 * t2196;
6068   t6677 = 0.14246666666666666667e0 * t592 * t2278 * t666;
6069   t6698 = 0.71233333333333333333e-1 * t592 * t593 * t2236;
6070   t6702 = 0.36845452142031360636e2 * t592 * t198 * t2240 * t2244;
6071   t6717 = 0.22161481481481481481e0 * t592 * t305 * t204 * t225;
6072   t6722 = 0.69263023597503453196e2 * t903 * t2170 * t848 * t273 + 0.61523382126046769581e4 * t2194 * t6665 * t845 + 0.11579285944033451271e4 * t2329 * t6562 * t883 - 0.13012297059337829057e0 * t592 * t2274 * t2185 - t6677 - 0.68493333333333333332e-1 * t592 * t858 * t2324 - 0.14172186339420759129e3 * t592 * t198 * t2328 * t2332 + 0.13218398198777742039e2 * t592 * t198 * t2336 * t2338 + 0.43374323531126096856e-1 * t592 * t2267 * t900 + 0.12842518958703765280e1 * t592 * t101 * t844 * t904 + t6698 + t6702 - 0.27397333333333333333e0 * t592 * t101 * t863 * t866 - 0.41096000000000000000e0 * t592 * t2296 * t2189 - 0.67471169937307261776e-1 * t592 * t305 * t267 * t275 + t6717 - 0.21309037037037037036e0 * t592 * t305 * t252 * t260;
6073   t6737 = 0.68733717152873822009e1 * t592 * t198 * t2221 * t2224;
6074   t6740 = 0.42740000000000000000e0 * t592 * t2285 * t2312;
6075   t6748 = 0.28493333333333333334e0 * t592 * t101 * t637 * t640;
6076   t6756 = 0.22911239050957940670e1 * t592 * t101 * t670 * t674;
6077   t6776 = t843 * t843;
6078   t6777 = 0.1e1 / t6776;
6079   t6779 = t847 * t847;
6080   t6780 = 0.1e1 / t6779;
6081   t6794 = -0.28769444444444444444e1 * t6528 + 0.27618666666666666667e2 * t6530 - 0.10229135802469135803e2 * t6533 + 0.89504938271604938273e1 * t6536 + 0.31310740740740740741e1 * t6539 + 0.36677500000000000000e-1 * t6544 - 0.58684000000000000000e0 * t6546 + 0.65204444444444444445e0 * t6548 + 0.57053888888888888890e0 * t6550 + 0.13490888888888888889e1 * t6553;
6082   t6801 = -0.38024868119570572865e2 * t592 * t198 * t2193 * t2197 + 0.38527556876111295841e1 * t592 * t198 * t2201 * t2203 - 0.21687161765563048428e-1 * t592 * t890 * t2206 - t6737 + t6740 - 0.86748647062252193713e-1 * t592 * t101 * t895 * t897 + t6748 + 0.44061327329259140130e1 * t592 * t101 * t880 * t884 - t6756 + 0.13698666666666666666e0 * t592 * t2289 * t876 - 0.14035736153892489770e2 * t2202 * t6569 * t274 - 0.19263778438055647920e1 * t212 * t2403 + 0.13012297059337829057e0 * t212 * t2398 - 0.66091990993888710196e1 * t212 * t880 * t875 * t883 * t258 + 0.41096000000000000000e0 * t212 * t863 * t258 * t876 + 0.91080982599109921211e5 * t69 * t6777 * t6569 * t6780 + 0.58482233974552040708e0 * t268 * t6794 * t274 + 0.21053604230838734656e2 * t903 * t897 * t838;
6083   t6805 = t40 * t54 * (t6582 + t6659 + t6722 + t6801);
6084   t6806 = t2394 * t601;
6085   t6807 = 0.14649244029402527953e-2 * t6806;
6086   t6808 = t2668 * t397;
6087   t6815 = 0.61523382126046769581e4 * t288 * t2193 * t845 * t6665;
6088   t6817 = t40 * t2368 * t278;
6089   t6818 = 0.4e1 * t6817;
6090   t6821 = 0.480e3 * t2131 * t279;
6091   t6822 = t299 * t724;
6092   t6829 = 0.12304676425209353917e5 * t288 * t6567 * t6569 * t2196;
6093   t6834 = 0.16e2 * t234 * t2343;
6094   t6835 = 0.1e1 / t5774;
6095   t6838 = 0.840e3 * t36 * t6835 * t82;
6096   t6839 = t2747 * t441;
6097   t6843 = t2706 * t441;
6098   t6845 = t2742 * t441;
6099   t6847 = t707 * t760;
6100   t6849 = -t6821 + 0.18608314633130469957e0 * t1141 * t731 * t6822 + t6829 + 0.46520786582826174894e-1 * t730 * t1967 * t724 - t6834 + t6838 + 0.6e1 * t6839 + 0.2e1 * t2675 * t441 + 0.2e1 * t6843 + 0.6e1 * t6845 - 0.14e2 * t6847;
6101   t6851 = t415 * t2789;
6102   t6856 = 0.91080982599109921211e5 * t288 * t6777 * t6569 * t6780;
6103   t6858 = t2368 * t69 * t290;
6104   t6859 = 0.23392893589820816284e1 * t6858;
6105   t6860 = t2378 * t840;
6106   t6861 = 0.35089340384731224426e1 * t6860;
6107   t6862 = t852 * t2375;
6108   t6863 = 0.41015588084031179722e4 * t6862;
6109   t6864 = t2378 * t911;
6110   t6865 = 0.70178680769462448852e1 * t6864;
6111   t6866 = t852 * t2411;
6112   t6867 = 0.41557814158502071920e3 * t6866;
6113   t6870 = 0.21053604230838734656e2 * t288 * t846 * t900;
6114   t6874 = 0.46785787179641632568e1 * t288 * t895 * t2170 * t275;
6115   t6878 = 0.69263023597503453196e2 * t288 * t844 * t2170 * t2402;
6116   t6879 = 0.140e3 / 0.3e1 * t6851 - t6856 - t6859 - t6861 - t6863 + t6521 + t6865 + t6867 - t6870 + t6874 - t6878;
6117   t6881 = t2368 * t1 * t285;
6118   t6882 = 0.73246220147012639764e-3 * t6881;
6119   t6886 = 0.18989760778855128827e-2 * t283 * t208 * t680 * t78;
6120   t6887 = t852 * t2403;
6121   t6888 = 0.20778907079251035960e3 * t6887;
6122   t6889 = t852 * t2398;
6123   t6890 = 0.14035736153892489771e2 * t6889;
6124   t6894 = 0.35089340384731224426e1 * t288 * t895 * t6496 * t274;
6125   t6902 = 0.58482233974552040708e0 * t288 * t267 * t6794 * t274;
6126   t6903 = t852 * t2172;
6127   t6904 = 0.23392893589820816284e1 * t6903;
6128   t6905 = t2378 * t849;
6129   t6906 = 0.10389453539625517980e3 * t6905;
6130   t6910 = 0.51947267698127589897e2 * t288 * t844 * t6496 * t848;
6131   t6912 = 0.1e1 / t90 / t2004;
6132   t6925 = 0.1e1 / t91 / t2018;
6133   t6938 = (0.40e2 / 0.81e2 * t6912 * t6393 - 0.16e2 / 0.9e1 * t2350 * t609 * t615 + 0.4e1 / 0.3e1 * t608 * t6399 + 0.16e2 / 0.9e1 * t2353 * t2015 + 0.4e1 / 0.3e1 * t44 * t6406 + 0.40e2 / 0.81e2 * t6925 * t6412 - 0.16e2 / 0.9e1 * t2359 * t619 * t622 + 0.4e1 / 0.3e1 * t618 * t6418 + 0.16e2 / 0.9e1 * t2362 * t2027 + 0.4e1 / 0.3e1 * t47 * t6423) * t53;
6134   t6940 = 0.19751789702565206229e-1 * t6938 * t79;
6135   t6941 = -t6882 + t6886 - t6888 + t6890 + t6894 + 0.62027715443768233192e-1 * t1141 * t163 * t2030 * t299 - t6902 - t6904 - t6906 - t6910 + t6940;
6136   t6945 = t727 * t682;
6137   t6948 = 0.70e2 / 0.3e1 * t707 * t682;
6138   t6950 = 0.1820e4 / 0.27e2 * t415 * t2719;
6139   t6951 = t2747 * t423;
6140   t6953 = t2675 * t423;
6141   t6956 = 0.14e2 / 0.3e1 * t2706 * t423;
6142   t6957 = t2742 * t423;
6143   t6981 = t697 * t697;
6144   t6987 = t702 * t702;
6145   t6997 = (0.20106419753086419753e2 * t6539 + 0.20068888888888888889e-1 * t6553) * t174 - 0.4e1 * t2680 * t406 * t410 + 0.12e2 * t689 * t695 * t697 - 0.6e1 * t2682 * t702 - 0.24e2 * t403 * t2691 * t2693 + 0.24e2 * t2685 * t2696 - 0.4e1 * t691 * t2701 + 0.24e2 * t170 / t2690 / t173 * t6981 - 0.36e2 * t2692 * t697 * t702 + 0.6e1 * t696 * t6987 + 0.8e1 * t696 * t410 * t2701 - t407 * (0.75383950617283950617e4 * t6539 + 0.12819753086419753086e4 * t6553);
6146   t7002 = t167 * t6997 * t93 * t99 * t194 / 0.2e1;
6147   t7003 = t712 * t682;
6148   t7005 = t2811 * t2814;
6149   t7010 = t234 * t2369;
6150   t7011 = 0.16e2 * t7010;
6151   t7012 = t751 * t629;
6152   t7013 = 0.72e2 * t7012;
6153   t7014 = t229 * t2371;
6154   t7015 = 0.48e2 * t7014;
6155   t7019 = 0.62336721237753107880e3 * t288 * t2193 * t6569 * t848;
6156   t7020 = t707 * t782;
6157   t7022 = t712 * t782;
6158   t7024 = t712 * t760;
6159   t7026 = t727 * t760;
6160   t7028 = -t7011 + t7013 + t7015 + t6596 - t7019 - t6601 + t6605 + 0.3e1 * t7020 + 0.6e1 * t7022 - 0.28e2 * t7024 - 0.14e2 * t7026;
6161   t7037 = t1055 * t1055;
6162   t7043 = 0.1e1 / t8 / t746;
6163   t7044 = t7043 * t50;
6164   t7047 = 0.7280e4 / 0.81e2 * t179 * t7044 * t193;
6165   t7050 = 0.13012297059337829057e0 * t604 * t199 * t2177;
6166   t7053 = 0.67471169937307261776e-1 * t604 * t2156 * t290;
6167   t7054 = t1990 * t1981;
6168   t7055 = 0.86748647062252193714e-1 * t7054;
6169   t7058 = 0.43374323531126096856e-1 * t604 * t653 * t840;
6170   t7061 = 0.12842518958703765280e1 * t604 * t653 * t849;
6171   t7065 = 0.38024868119570572865e2 * t604 * t199 * t2375;
6172   t7067 = t626 * t4 * t605;
6173   t7068 = 0.65061485296689145287e-1 * t7067;
6174   t7069 = t1990 * t1987;
6175   t7070 = 0.19263778438055647920e1 * t7069;
6176   t7071 = t1990 * t1984;
6177   t7072 = 0.65061485296689145286e-1 * t7071;
6178   t7075 = 0.21687161765563048428e-1 * t604 * t199 * t2172;
6179   t7076 = t852 * t2177;
6180   t7077 = 0.14035736153892489771e2 * t7076;
6181   t7081 = t741 * t631;
6182   t7082 = 0.384e3 * t7081;
6183   t7088 = t234 * t2182;
6184   t7089 = 0.48e2 * t7088;
6185   t7090 = t7065 + t7068 + t7070 + t7072 + t7075 - t7077 - 0.46520786582826174894e-1 * t730 * t1963 * t724 + t6632 - t7082 + 0.3e1 * t1125 * t1127 * t779 * t786 * t192 - t7089;
6186   t7093 = t751 * t631;
6187   t7094 = 0.144e3 * t7093;
6188   t7096 = t40 * t6938 * t81;
6189   t7097 = t3091 * t1999;
6190   t7106 = 0.86748647062252193713e-1 * t604 * t653 * t911;
6191   t7107 = t751 * t908;
6192   t7108 = 0.72e2 * t7107;
6193   t7110 = t229 * t2369;
6194   t7111 = 0.16e2 * t7110;
6195   t7115 = 0.14035736153892489770e2 * t288 * t2201 * t6569 * t274;
6196   t7119 = t7111 + t6677 - t6698 - t6702 - t6717 + t6737 + t7115 + 0.93041573165652349788e-1 * t89 * t3080 * t724 - t6740 - t6748 + t6756;
6197   t7124 = 0.62336721237753107879e3 * t288 * t2201 * t838 * t904;
6198   t7127 = t2922 * t1999;
6199   t7132 = -t6289 - t6316 - t6319 + t6323 - t6327 + t6330 + t6439 + t6441 + t6443 + t6459 - t6461 + t6464;
6200   t7133 = -t6466 + t6468 + t6470 - t6472 + t6474 + t6476 - t6485 - t6488 + t6490 - t6492 + t6805 + t6807 + t6510;
6201   t7135 = -t6815 + t6818 - t6821 + t6829 - t6834 + t6838 - t6856 - t6859 - t6861 - t6863 + t6521 + t6865;
6202   t7136 = t6867 - t6870 + t6874 - t6878 - t6882 + t6886 - t6888 + t6890 + t6894 - t6902 - t6904 - t6906 - t6910;
6203   t7139 = t6940 - t7011 + t7013 + t7015 + t6596 - t7019 - t6601 + t6605 - t6614 + t7050 + t7053 - t7055;
6204   t7140 = -t7058 - t7061 + t7065 + t7068 + t7070 + t7072 + t7075 - t7077 + t6632 - t7082 - t7089 + t6635 + t7094;
6205   t7142 = -t6638 + t7096 - t6644 + t6658 + t7106 + t7108 + t7111 + t6677 - t6698 - t6702 - t6717 + t6737;
6206   t7144 = 0.120e3 * t748 * t908;
6207   t7145 = t597 * t2389;
6208   t7146 = 0.22787712934626154593e-2 * t7145;
6209   t7147 = t234 * t2371;
6210   t7148 = 0.48e2 * t7147;
6211   t7150 = t40 * t626 * t907;
6212   t7151 = 0.6e1 * t7150;
6213   t7152 = t1990 * t1978;
6214   t7153 = 0.13012297059337829057e0 * t7152;
6215   t7156 = 0.38527556876111295841e1 * t604 * t199 * t2411;
6216   t7157 = t54 * t592;
6217   t7160 = 0.13012297059337829057e0 * t7157 * t2308 * t2209;
6218   t7163 = 0.19263778438055647920e1 * t7157 * t2274 * t2213;
6219   t7164 = t7115 - t6740 - t6748 + t6756 + t7124 + t7144 - t7146 - t7148 + t7151 - t7153 - t7156 - t7160 + t7163;
6220   t7171 = t2416 * t129;
6221   t7174 = t916 * t341;
6222   t7179 = t320 * t949;
6223   t7186 = t111 * t2041;
6224   t7187 = t736 * t736;
6225   t7204 = -0.12897460341341234505e3 * (t7132 + t7133 + t7135 + t7136 + t7139 + t7140 + t7142 + t7164) * t112 * t115 + 0.15476952409609481406e4 * t7171 * t325 - 0.92861714457656888434e4 * t7174 * t924 + 0.23215428614414222108e4 * t2420 * t927 + 0.30953904819218962812e5 * t7179 * t2429 - 0.18572342891531377687e5 * t3183 * t2433 + 0.15476952409609481406e4 * t920 * t2436 - 0.46430857228828444218e5 * t7186 * t115 * t7187 + 0.46430857228828444218e5 * t3188 * t114 * t736 * t724 - 0.46430857228828444218e4 * t923 * t115 * t6382 - 0.61907809638437925624e4 * t1211 * t2432 * t2030 + 0.38692381024023703515e3 * t324 * t115 * t6426;
6226   t7206 = t6 * t7204 * t118;
6227   t7211 = t96 * t2645 * t318;
6228   t7212 = t814 * t814;
6229   t7213 = t6 * t7212;
6230   t7214 = t816 * t816;
6231   t7215 = t7213 * t7214;
6232   t7219 = t7213 * t2112;
6233   t7223 = t2108 * t821;
6234   t7224 = t7223 * t2114;
6235   t7226 = t7213 * t816;
6236   t7230 = t2453 * t2118;
6237   t7232 = t2095 * t344;
6238   t7234 = t943 * t956;
6239   t7236 = t337 * t2087;
6240   t7239 = t342 * t132 * t6426;
6241   t7242 = t132 * t930;
6242   t7250 = t2439 * t328 * t118;
6243   t7251 = t153 * t7250;
6244   t7254 = t822 * t2052;
6245   t7256 = t3306 * t6;
6246   t7258 = t2043 * t328 * t118;
6247   t7259 = t7256 * t7258;
6248   t7262 = t822 * t2078;
6249   t7264 = -0.27166129655589868296e-2 * t319 * t152 * t7206 + 0.65198711173415683912e-1 * t7211 * t152 * t7215 - 0.97798066760123525865e-1 * t2109 * t152 * t7219 + 0.30426065214260652492e0 * t7224 + 0.38032581517825815613e-1 * t813 * t152 * t7226 - 0.30426065214260652492e0 * t7230 + 0.76628608687767569239e1 * t7232 - 0.17241436954747703079e1 * t7234 + 0.20284043476173768328e0 * t7236 - 0.10866451862235947318e-1 * t126 * t7239 + 0.13039742234683136782e0 * t3211 * t7242 * t828 - 0.26079484469366273564e0 * t3217 * t7242 * t3218 - 0.10866451862235947318e-1 * t319 * t7251 - 0.60852130428521304982e0 * t7254 + 0.13039742234683136782e1 * t319 * t7259 + 0.30426065214260652492e1 * t7262;
6250   t7266 = t2439 * t118 * t299;
6251   t7267 = t826 * t7266;
6252   t7270 = t2064 * t724;
6253   t7271 = t826 * t7270;
6254   t7275 = t930 * t814 * t816;
6255   t7276 = t153 * t7275;
6256   t7280 = t2110 * t2112 * t299;
6257   t7281 = t826 * t7280;
6258   t7285 = t2110 * t816 * t299;
6259   t7286 = t826 * t7285;
6260   t7289 = t814 * t2112;
6261   t7290 = t7289 * t930;
6262   t7291 = t153 * t7290;
6263   t7294 = t2457 * t829;
6264   t7296 = t827 * t2030;
6265   t7297 = t826 * t7296;
6266   t7300 = t2453 * t2066;
6267   t7302 = t822 * t2083;
6268   t7304 = t2050 * t724;
6269   t7305 = t826 * t7304;
6270   t7308 = t822 * t2061;
6271   t7311 = t2110 * t118 * t299;
6272   t7312 = t826 * t7311;
6273   t7315 = t2081 * t930;
6274   t7316 = t153 * t7315;
6275   t7319 = t2081 * t736;
6276   t7320 = t2076 * t7319;
6277   t7323 = t2064 * t736;
6278   t7324 = t2076 * t7323;
6279   t7327 = t822 * t2056;
6280   t7329 = 0.43465807448943789272e-1 * t319 * t7267 - 0.13039742234683136782e0 * t813 * t7271 + 0.97798066760123525863e-1 * t813 * t7276 + 0.26079484469366273564e0 * t2109 * t7281 - 0.26079484469366273564e0 * t813 * t7286 - 0.97798066760123525865e-1 * t2109 * t7291 + 0.34482873909495406156e1 * t7294 + 0.43465807448943789272e-1 * t319 * t7297 + 0.12170426085704260996e1 * t7300 - 0.60852130428521304982e0 * t7302 + 0.65198711173415683908e-1 * t319 * t7305 + 0.15213032607130326245e0 * t7308 + 0.43465807448943789272e-1 * t319 * t7312 - 0.16299677793353920978e-1 * t319 * t7316 - 0.32599355586707841954e0 * t319 * t7320 + 0.65198711173415683908e0 * t813 * t7324 - 0.60852130428521304982e0 * t7327;
6281   t7331 = t2081 * t724;
6282   t7332 = t826 * t7331;
6283   t7335 = t2050 * t736;
6284   t7336 = t2076 * t7335;
6285   t7340 = t2439 * t816 * t328;
6286   t7341 = t153 * t7340;
6287   t7344 = t2453 * t2071;
6288   t7346 = t2457 * t933;
6289   t7348 = t3143 * t2462;
6290   t7350 = t822 * t2442;
6291   t7355 = 0.455e3 / 0.243e3 * t99 * t7043 * t50 * t108;
6292   t7356 = t2475 * t299;
6293   t7360 = t804 * t724;
6294   t7364 = t2098 * t2091;
6295   t7366 = t337 * t2045;
6296   t7368 = t128 * t128;
6297   t7369 = 0.1e1 / t7368;
6298   t7370 = t127 * t7369;
6299   t7372 = t7370 * t132 * t7187;
6300   t7376 = t950 * t132 * t6382;
6301   t7379 = t943 * t952;
6302   t7381 = t930 * t930;
6303   t7382 = t6 * t7381;
6304   t7383 = t7382 * t816;
6305   t7388 = t317 * t2094 * t127;
6306   t7389 = t7388 * t331;
6307   t7391 = 0.65198711173415683908e-1 * t319 * t7332 - 0.32599355586707841954e0 * t319 * t7336 + 0.21732903724471894636e-1 * t813 * t7341 - 0.30426065214260652492e0 * t7344 - 0.43103592386869257697e0 * t7346 - 0.30426065214260652492e1 * t7348 + 0.50710108690434420820e-1 * t7350 + t7355 + t803 * t312 * t7356 / 0.4e1 - 0.3e1 / 0.2e1 * t2102 * t312 * t7360 - 0.7e1 / 0.4e1 * t7364 + 0.60852130428521304982e1 * t7366 + 0.22819548910695489368e1 * t126 * t7372 + 0.16299677793353920977e0 * t126 * t7376 + 0.86207184773738515393e1 * t7379 + 0.16299677793353920977e-1 * t813 * t152 * t7383 + 0.19157152171941892310e1 * t7389;
6308   t7392 = t7382 * t118;
6309   t7396 = t812 * t2456;
6310   t7397 = t7396 * t818;
6311   t7399 = t2457 * t937;
6312   t7401 = t822 * t2448;
6313   t7403 = t7213 * t118;
6314   t7411 = t6 * t736 * t724;
6315   t7415 = t2460 * t2030;
6316   t7419 = t799 * t2476;
6317   t7421 = t306 * t2101;
6318   t7422 = t7421 * t2104;
6319   t7424 = t50 * t949;
6320   t7425 = t102 * t7424;
6321   t7434 = t795 * t802;
6322   t7435 = t7434 * t805;
6323   t7441 = t2471 * t310;
6324   t7442 = t7441 * t314;
6325   t7444 = t2479 * t809;
6326   t7449 = 0.36717874996221960261e1 * t121 * t122 * t5776 * t133;
6327   t7450 = -0.81498388966769604888e-2 * t319 * t152 * t7392 + 0.86207184773738515393e0 * t7397 - 0.43103592386869257697e0 * t7399 + 0.50710108690434420820e-1 * t7401 - 0.27166129655589868296e-2 * t319 * t152 * t7403 - 0.65198711173415683908e0 * t3109 * t343 * t2055 - 0.19559613352024705172e1 * t1239 * t3306 * t7411 + 0.21732903724471894636e0 * t1239 * t1240 * t7415 + 0.7e1 / 0.36e2 * t7419 + 0.7e1 / 0.3e1 * t7422 + 0.5e1 / 0.4e1 * t7425 * t312 * t5 * t7187 + 0.3e1 / 0.16e2 * t803 * t312 * t5 * t6382 + 0.35e2 / 0.12e2 * t7435 - t311 * t312 * t5 * t6426 / 0.48e2 + 0.455e3 / 0.162e3 * t7442 - 0.35e2 / 0.36e2 * t7444 + t7449;
6328   t7456 = t2485 * t352;
6329   t7460 = t959 * t968;
6330   t7467 = t347 * t2501;
6331   t7477 = 0.1e1 / t2500 / t157;
6332   t7478 = t136 * t7477;
6333   t7479 = t970 * t970;
6334   t7487 = t1051 * t1051;
6335   t7494 = t2582 * t952;
6336   t7496 = t1006 * t2545;
6337   t7508 = t146 * t149 * t1871;
6338   t7509 = t7508 * t344;
6339   t7511 = t2582 * t956;
6340   t7513 = t1044 * t2087;
6341   t7515 = t2519 * t2052;
6342   t7517 = t2519 * t2061;
6343   t7521 = t2558 * t2534;
6344   t7526 = 0.23981215322181357908e2 * t7494 + 0.19472681737126817594e2 * t7496 + 0.81616741222549999602e0 * t1301 * t7276 + 0.41727175150986037700e1 * t3380 * t989 * t7280 - 0.17386322979577515709e0 * t369 * t310 * t107 * t6426 + 0.21316635841938984807e2 * t7509 - 0.47962430644362715816e1 * t7511 + 0.56426388993367900960e0 * t7513 - 0.33855833396020740576e1 * t7515 + 0.84639583490051851440e0 * t7517 + 0.24182738140014814697e0 * t1030 * t7312 - 0.48681704342817043985e1 * t7521 - 0.31295381363239528276e1 * t987 * t2523 * t7319;
6345   t7532 = t2519 * t2083;
6346   t7534 = t3413 * t2555;
6347   t7538 = t3402 * t2071;
6348   t7554 = t986 * t796;
6349   t7555 = t7554 * t990;
6350   t7557 = t2558 * t2564;
6351   t7562 = 0.69545291918310062836e0 * t987 * t989 * t7311 - 0.18137053605011111023e1 * t1030 * t7320 - 0.33855833396020740576e1 * t7532 - 0.48681704342817043984e1 * t7534 + 0.18137053605011111023e0 * t1301 * t7341 - 0.25391875047015555432e1 * t7538 + 0.69545291918310062836e0 * t1267 * t142 * t7340 - 0.90685268025055555116e-1 * t1030 * t7316 - 0.31295381363239528276e1 * t3380 * t142 * t7290 + 0.31295381363239528276e1 * t1267 * t142 * t7275 - 0.31295381363239528276e1 * t987 * t2523 * t7335 + 0.16227234780939014662e2 * t7555 - 0.48681704342817043985e1 * t7557 + 0.62590762726479056551e1 * t1267 * t2523 * t7323;
6352   t7573 = t3402 * t2066;
6353   t7575 = t2570 * t1014;
6354   t7577 = t1006 * t2578;
6355   t7579 = t2570 * t1010;
6356   t7589 = t2558 * t2561;
6357   t7591 = t2558 * t2527;
6358   t7595 = t2519 * t2078;
6359   t7597 = 0.54411160815033333070e1 * t1301 * t7324 + 0.24182738140014814697e0 * t1030 * t7267 + 0.72548214420044444093e1 * t1030 * t7259 - 0.52158968938732547128e0 * t987 * t142 * t7315 + 0.10156750018806222173e2 * t7573 - 0.81136173904695073307e1 * t7575 + 0.16227234780939014661e1 * t7577 + 0.24340852171408521992e2 * t7579 + 0.10431793787746509426e2 * t369 * t7424 * t107 * t7187 + 0.15647690681619764138e1 * t369 * t802 * t107 * t6382 - 0.48681704342817043985e1 * t7589 + 0.24340852171408521992e1 * t7591 - 0.60456845350037036744e-1 * t1030 * t7251 + 0.16927916698010370288e2 * t7595;
6360   t7598 = t341 * t106;
6361   t7599 = t7598 * t5;
6362   t7612 = t3413 * t2552;
6363   t7620 = t5 * t7212;
6364   t7631 = t2645 * t99;
6365   t7633 = t137 * t7631 * t101;
6366   t7643 = 0.1e1 / t1017 / t147;
6367   t7646 = t146 * t7643 * t122 * t124;
6368   t7650 = 0.83454350301972075403e1 * t987 * t7599 * t7258 + 0.36274107210022222046e0 * t1030 * t7305 - 0.10882232163006666614e1 * t1301 * t7271 - 0.21764464326013333228e1 * t1301 * t7286 - 0.41727175150986037700e1 * t1267 * t989 * t7285 + 0.97363408685634087970e1 * t7612 + 0.10431793787746509425e1 * t987 * t989 * t7304 - 0.20863587575493018850e1 * t1267 * t989 * t7270 + 0.12170426085704260996e1 * t976 * t358 * t7620 * t816 - 0.10882232163006666614e1 * t2648 * t379 * t7219 + 0.31739843808769444290e0 * t1021 * t379 * t7226 + 0.20863587575493018851e1 * t7633 * t358 * t7620 * t7214 - 0.31295381363239528276e1 * t2618 * t358 * t7620 * t2112 + 0.90685268025055555115e0 * t7646 * t379 * t7215;
6369   t7654 = t146 * t376 * t1871;
6370   t7655 = t7654 * t380;
6371   t7658 = t137 * t354 * t2470;
6372   t7659 = t7658 * t361;
6373   t7664 = t2607 * t999;
6374   t7666 = t5 * t7381;
6375   t7672 = t137 * t974 * t680;
6376   t7673 = t7672 * t979;
6377   t7681 = t1026 * t2599;
6378   t7683 = t2594 * t1036;
6379   t7688 = t1044 * t2652;
6380   t7690 = t1026 * t2655;
6381   t7692 = 0.10658317920969492404e2 * t7655 + 0.11719669564011510589e2 * t7659 - 0.12518152545295811310e2 * t369 * t3450 * t7360 - 0.40568086952347536654e1 * t7664 + 0.52158968938732547127e0 * t976 * t358 * t7666 * t816 + 0.81136173904695073307e1 * t7673 - 0.45342634012527777558e-1 * t378 * t379 * t7392 - 0.15114211337509259186e-1 * t378 * t379 * t7403 + 0.28213194496683950480e0 * t7681 - 0.23981215322181357908e1 * t7683 + 0.13602790203758333267e0 * t1021 * t379 * t7383 - 0.84639583490051851440e1 * t7688 + 0.28213194496683950480e0 * t7690;
6382   t7693 = t1044 * t2045;
6383   t7702 = t137 * t138 * t2470;
6384   t7703 = t7702 * t371;
6385   t7708 = t1029 * t2456;
6386   t7709 = t7708 * t829;
6387   t7711 = t2519 * t2056;
6388   t7715 = t6822 * t827;
6389   t7722 = t299 * t930;
6390   t7723 = t2069 * t7722;
6391   t7730 = t827 * t7722;
6392   t7734 = 0.16927916698010370288e2 * t7693 + 0.63479687617538888581e1 * t388 * t7372 + 0.45342634012527777558e0 * t388 * t7376 - 0.30228422675018518372e-1 * t388 * t7239 + 0.23439339128023021177e2 * t7703 + 0.69545291918310062836e0 * t987 * t989 * t7296 + 0.19184972257745086326e2 * t7709 - 0.33855833396020740576e1 * t7711 + 0.24182738140014814697e0 * t1030 * t7297 - 0.62590762726479056552e1 * t987 * t2523 * t7715 - 0.36274107210022222046e1 * t1030 * t2076 * t7715 - 0.41727175150986037700e1 * t1267 * t989 * t7723 - 0.21764464326013333228e1 * t1301 * t826 * t7723 + 0.20863587575493018851e1 * t987 * t989 * t7730;
6393   t7745 = t2558 * t2524;
6394   t7775 = 0.72548214420044444092e0 * t1030 * t826 * t7730 + 0.69545291918310062836e0 * t987 * t989 * t7266 - 0.34772645959155031419e0 * t987 * t142 * t7250 + 0.14604511302845113196e2 * t7745 - 0.18137053605011111023e1 * t1030 * t7336 + 0.36274107210022222046e0 * t1030 * t7332 + 0.10431793787746509425e1 * t987 * t989 * t7331 + 0.29019285768017777637e1 * t3515 * t7281 - 0.10882232163006666614e1 * t3515 * t7291 + 0.20863587575493018851e1 * t369 * t1291 * t7356 - 0.86931614897887578546e-1 * t356 * t358 * t5 * t7204 * t118 - 0.54411160815033333070e1 * t388 * t3444 * t7411 + 0.60456845350037036744e0 * t388 * t1319 * t7415 - 0.15114211337509259186e-1 * t378 * t379 * t7206;
6395   t7776 = t1006 * t2632;
6396   t7778 = t2594 * t1033;
6397   t7780 = t983 * t2639;
6398   t7782 = t2607 * t995;
6399   t7785 = t146 * t2646 * t335;
6400   t7786 = t7785 * t2649;
6401   t7788 = t2590 * t2613;
6402   t7791 = t137 * t2616 * t305;
6403   t7792 = t7791 * t2621;
6404   t7794 = t2603 * t2625;
6405   t7800 = t983 * t2629;
6406   t7807 = t146 * t1019 * t941;
6407   t7808 = t7807 * t1022;
6408   t7813 = 0.10214221340929096887e2 * t150 * t5776 * t127 * t153;
6409   t7816 = 0.15626226085348680785e2 * t139 * t7044 * t142;
6410   t7817 = -0.14604511302845113195e2 * t7776 - 0.23981215322181357908e1 * t7778 + 0.81136173904695073308e0 * t7780 - 0.40568086952347536654e1 * t7782 + 0.33855833396020740576e1 * t7786 - 0.25391875047015555432e1 * t7788 + 0.48681704342817043984e1 * t7792 - 0.48681704342817043984e1 * t7794 - 0.26079484469366273564e0 * t356 * t358 * t7666 * t118 + 0.81136173904695073308e0 * t7800 - 0.86931614897887578546e-1 * t356 * t358 * t7620 * t118 + 0.71943645966544073724e1 * t7808 + t7813 + t7816;
6411   t7824 = 0.27818116767324025134e1 * t97 * (t7264 + t7329 + t7391 + t7450) * t158 - 0.11127246706929610054e2 * t97 * t7456 * t391 + 0.33381740120788830161e2 * t97 * t7460 * t970 - 0.16690870060394415080e2 * t97 * t2489 * t1051 - 0.66763480241577660323e2 * t97 * t7467 * t2503 + 0.66763480241577660323e2 * t3335 * t2508 - 0.11127246706929610054e2 * t97 * t963 * t2664 + 0.66763480241577660320e2 * t97 * t7478 * t7479 - 0.10014522036236649048e3 * t1261 * t2501 * t970 * t1051 + 0.16690870060394415081e2 * t97 * t969 * t7487 + 0.22254493413859220108e2 * t1261 * t2507 * t2664 - 0.27818116767324025134e1 * t97 * t353 * (t7526 + t7562 + t7597 + t7650 + t7692 + t7734 + t7775 + t7817);
6412   t7843 = t7124 + 0.6e1 * t2836 * t1999 - 0.14e2 * t7127 + 0.46520786582826174894e-1 * t89 * t735 * t6382 + 0.25844881434903430496e-2 * t89 * t95 * t7824 * t397 - 0.93041573165652349788e-1 * t1141 * t1963 * t736 + 0.93041573165652349788e-1 * t1141 * t1967 * t736 + 0.62027715443768233192e-1 * t89 * t2043 * t395 * t397 - 0.10337952573961372198e-1 * t1093 * t2668 * t1063 * t395 + t7144 - t7146;
6413   t7844 = t420 * t2719;
6414   t7849 = t167 * t2703 * t299 * t99 * t194;
6415   t7854 = t167 * t704 * t724 * t99 * t194;
6416   t7859 = t167 * t412 * t2030 * t99 * t194;
6417   t7866 = -t7148 + t7151 - t7153 - t7156 - t7160 + t7163 - 0.1820e4 / 0.27e2 * t7844 + 0.2e1 * t7849 + 0.3e1 * t7854 + 0.2e1 * t7859 + t167 * t176 * t6426 * t99 * t194 / 0.2e1;
6418   t7873 = 0.240e3 * t2034;
6419   t7878 = 0.2e1 * t2707;
6420   t7879 = 0.14e2 * t2709;
6421   t7880 = 0.6e1 * t2000 - t6286 + t7 * (t7866 + t7843 + t7119 + t7108 + t7106 + 0.6e1 * t7097 + t7094 + t7096 + t7090 - t7061 - t7058 + t7053 - t7055 + t7047 + t7050 + t7028 + 0.140e3 / 0.3e1 * t7003 + t7002 - 0.14e2 * t6957 - 0.14e2 / 0.3e1 * t6953 - t6956 + t6948 - t6950 - 0.14e2 * t6951 + 0.70e2 / 0.3e1 * t6945 + t6941 + t6879 + t6849 + t6818 - t6815 + t6805 + t6807 + t6658 - t6644 - t6638 + t6635 - t6614 + t6510 - t6488 + t6490 - t6492 - t6485 + t6481 - 0.14e2 / 0.3e1 * t6453 + t6441 + t6443 + t6439 + 0.70e2 / 0.3e1 * t6355 + 0.2e1 * t6357 + t6352 - t6316 + 0.3e1 * t6304 - 0.14e2 * t6299 - 0.14e2 / 0.3e1 * t6302 + 0.70e2 / 0.3e1 * t6295 - 0.14e2 * t6297 - t6289 - 0.14e2 * t6290 + 0.6e1 * t6292 + 0.2e1 * t420 * t2785 + 0.2e1 * t420 * t2737 + t179 * t426 * t5 * (-t6364 + 0.123200e6 / 0.243e3 * t6367 - 0.4400e4 / 0.27e2 * t6371 - 0.4400e4 / 0.27e2 * t6374 + 0.800e3 / 0.9e1 * t6377 + 0.800e3 / 0.27e2 * t6380 - 0.25e2 / 0.3e1 * t184 * t186 * t6382 * t188 - 0.100e3 / 0.9e1 * t184 * t1339 * t2778 - 0.25e2 / 0.9e1 * t184 * t433 * t188 * t6426) * t192 / 0.2e1 + 0.3e1 / 0.2e1 * t179 * t426 * t5 * t6444 * t192 + 0.2e1 * t1125 * t1127 * t2782 * t438 * t192 + 0.77534644304710291488e-2 * t89 * t293 * t6426 + 0.31013857721884116596e-1 * t730 * t6808 * t299 + 0.62027715443768233192e-1 * t730 * t7005 * t299 + 0.31013857721884116596e-1 * t1093 * t1060 * t2814 * t1055 - 0.77534644304710291488e-2 * t89 * t95 * t7037 * t1063 - 0.15506928860942058298e-1 * t89 * t95 * t6306 * t6309) + 0.31013857721884116596e-1 * t2032 + t7873 - 0.384e3 * t2036 + 0.240e3 * t2038 + 0.10337952573961372198e-1 * t2671 + 0.2e1 * t2676 + t7878 - t7879;
6422   t7882 = 0.140e3 / 0.3e1 * t2711;
6423   t7885 = 0.1820e4 / 0.27e2 * t2720;
6424   t7887 = 0.96e2 * t2121;
6425   t7888 = 0.576e3 * t2124;
6426   t7889 = 0.960e3 * t2127;
6427   t7890 = 0.480e3 * t2132;
6428   t7891 = 0.48e2 * t2134;
6429   t7893 = t7882 - 0.28e2 * t2715 - 0.14e2 * t2717 - t7885 + 0.140e3 / 0.3e1 * t2722 + t7887 - t7888 + t7889 - t7890 + t7891 + 0.6e1 * t2724;
6430   t7898 = 0.144e3 * t2136;
6431   t7904 = 0.23392893589820816284e1 * t2173;
6432   t7905 = 0.6e1 * t2727 - 0.14e2 * t2730 + 0.6e1 * t2732 + 0.2e1 * t2738 + t7898 + 0.144e3 * t2138 + 0.6e1 * t2743 + 0.6e1 * t2748 - 0.20778907079251035960e3 * t2140 - 0.70178680769462448852e1 * t2142 - t7904;
6433   t7908 = 0.14035736153892489771e2 * t2178;
6434   t7911 = 0.4e1 * t2344;
6435   t7923 = 0.38596378373162651572e3 * t2225;
6436   t7924 = 0.40000000000000000000e1 * t2237;
6437   t7925 = 0.20690005882282467367e4 * t2245;
6438   t7929 = 0.19298189186581325786e3 * t2249;
6439   t7930 = -0.14e2 * t2796 - 0.28e2 * t2798 + 0.12e2 * t2800 + 0.6e1 * t2802 - t7923 + t7924 + t7925 + 0.48e2 * t2347 + 0.4e1 * t2370 + 0.12e2 * t2372 + t7929;
6440   t7932 = 0.24000000000000000000e2 * t2252;
6441   t7933 = 0.13780452414814814815e-1 * t2261;
6442   t7934 = 0.41015588084031179722e4 * t2376;
6443   t7940 = 0.22787712934626154593e-2 * t2390;
6444   t7943 = -t7932 + t7933 - t7934 - 0.70178680769462448852e1 * t2379 + 0.96e2 * t2381 - 0.96e2 * t2383 - 0.48e2 * t2385 - 0.31013857721884116596e-1 * t2808 - t7940 + 0.29298488058805055905e-2 * t2392 - 0.21973866044103791930e-2 * t2395;
6445   t7944 = 0.14035736153892489770e2 * t2399;
6446   t7945 = 0.20778907079251035960e3 * t2404;
6447   t7946 = 0.48e2 * t2406;
6448   t7949 = 0.28493333333333333333e0 * t2280;
6449   t7950 = 0.21370000000000000000e0 * t2283;
6450   t7951 = 0.34366858576436911004e1 * t2287;
6451   t7952 = 0.42740000000000000000e0 * t2306;
6452   t7953 = 0.41557814158502071920e3 * t2412;
6453   t7954 = 0.24000000000000000000e2 * t2313;
6454   t7955 = t7944 - t7945 - t7946 + 0.79007158810260824916e-1 * t2408 + 0.20675905147922744397e-1 * t2816 + t7949 - t7950 - t7951 + t7952 + t7953 + t7954;
6455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6456     v4rho4[0] = t7955 + t7943 + t7930 + t7911 - t7908 + t7905 + t7893 + t7880 - t6279 + t6280 + t6281 - t6278 + 0.18608314633130469958e0 * t1973 + 0.13012297059337829058e0 * t1991 + 0.93041573165652349788e-1 * t1994 + 0.18608314633130469957e0 * t1976 + 0.14035736153892489771e2 * t2180 + 0.62027715443768233192e-1 * t2754 + 0.6e1 * t2756 + 0.6e1 * t2758 - 0.93041573165652349787e-1 * t1965 + 0.93041573165652349787e-1 * t1969 + 0.12e2 * t2183 + 0.2e1 * t2786 + 0.140e3 / 0.3e1 * t2790 - 0.28e2 * t2792;
6457 
6458   t7967 = 0.3e1 * t2837 + 0.3e1 * t2841 - t1966 + t1970 + t1974 + t1977 + 0.3e1 / 0.2e1 * t2872 - t6278 - t6279 + t6280 + t6281 + 0.97592227945033717930e-1 * t1991 + 0.46520786582826174894e-1 * t2877 + 0.93041573165652349788e-1 * t2881 + 0.15506928860942058297e-1 * t2885 + t1995 + 0.3e1 / 0.2e1 * t2890 + 0.59255369107695618687e-1 * t2918;
6459   t7968 = 0.192e3 * t2002;
6460   t7969 = 0.7e1 * t2923;
6461   t7971 = 0.7e1 * t2931;
6462   t7976 = t2001 - t7968 - t7969 + 0.3e1 / 0.2e1 * t2929 - t7971 + t2033 + t7873 - t2037 + 0.180e3 * t2038 + t2672 + t2677 + t7878 - t7879 + t7882 - 0.21e2 * t2715 - 0.7e1 * t2717 - t7885 + 0.35e2 * t2722;
6463   t7978 = 0.48e2 * t2121;
6464   t7979 = 0.480e3 * t2127;
6465   t7980 = 0.3e1 * t2949;
6466   t7981 = 0.24e2 * t2134;
6467   t7983 = 0.7e1 * t2961;
6468   t7984 = 0.7e1 * t2964;
6469   t7987 = -t7978 + t7979 - t7890 + t4304 + t7980 + t4305 - t4306 + t4307 + t7981 + 0.3e1 / 0.2e1 * t2957 - t4325 - t7983 - t7984 + t2725 + t2728 - 0.7e1 * t2730 + 0.3e1 * t2732 + t2739;
6470   t7998 = t2948 * t441;
6471   t8003 = t2917 * t69 * t290;
6472   t8004 = 0.17544670192365612213e1 * t8003;
6473   t8005 = 0.360e3 * t6318;
6474   t8009 = t167 * t2703 * t460 * t99 * t194;
6475   t8014 = t167 * t704 * t1115 * t99 * t194;
6476   t8015 = 0.3e1 / 0.2e1 * t8014;
6477   t8019 = t167 * t412 * t2868 * t99 * t194;
6478   t8021 = -t6289 - 0.77534644304710291488e-2 * t1093 * t2970 * t1055 - 0.7e1 / 0.2e1 * t6290 + 0.3e1 / 0.2e1 * t6292 + 0.35e2 / 0.3e1 * t6295 - 0.7e1 * t6297 - 0.7e1 * t6299 - 0.7e1 / 0.6e1 * t6302 + 0.3e1 / 0.2e1 * t6304 + 0.3e1 * t7998 + 0.3e1 / 0.2e1 * t1118 * t782 - t6316 - t8004 - t8005 + t8009 / 0.2e1 + t8015 + 0.3e1 / 0.2e1 * t8019;
6479   t8022 = t2948 * t423;
6480   t8023 = 0.7e1 * t8022;
6481   t8024 = t2871 * t423;
6482   t8026 = t2941 * t423;
6483   t8037 = 0.3e1 * t6438;
6484   t8038 = 0.180e3 * t6440;
6485   t8041 = t184 * t124 * t299 * t517;
6486   t8042 = 0.2200e4 / 0.27e2 * t8041;
6487   t8044 = t184 * t2764 * t1343;
6488   t8045 = 0.2200e4 / 0.27e2 * t8044;
6489   t8048 = t184 * t428 * t724 * t517;
6490   t8051 = t184 * t3050 * t1343;
6491   t8054 = t184 * t767 * t3064;
6492   t8074 = t612 * t622;
6493   t8078 = 0.8e1 * t1112 * t233;
6494   t8080 = t612 * t609;
6495   t8086 = t612 * t615;
6496   t8090 = 0.8e1 * t1106 * t233;
6497   t8094 = t241 * t622;
6498   t8098 = t612 * t619;
6499   t8104 = t239 * t615;
6500   t8107 = t39 * t239;
6501   t8110 = t39 * t241;
6502   t8121 = 0.2e1 / 0.3e1 * t719 * t612 * t241 + 0.2e1 / 0.3e1 * t2858 * t8074 - t8078 + 0.8e1 / 0.9e1 * t2006 * t34 * t8080 - 0.2e1 / 0.3e1 * t714 * t612 * t239 - 0.2e1 / 0.3e1 * t2845 * t8086 + t8090 - 0.28e2 / 0.81e2 * t6411 * t448 * t2021 + 0.4e1 / 0.9e1 * t2855 * t8094 - 0.8e1 / 0.9e1 * t2020 * t34 * t8098 - 0.28e2 / 0.81e2 * t6392 * t446 * t2007 + 0.4e1 / 0.9e1 * t2842 * t8104 + 0.2e1 * t2845 * t8107 - 0.2e1 * t2858 * t8110 - t1103 * t2015 / 0.9e1 - 0.4e1 * t294 * t39 - t1109 * t2027 / 0.9e1 + 0.4e1 * t296 * t39;
6503   t8127 = t184 * t6365 * t517;
6504   t8129 = -t8042 - t8045 + 0.200e3 / 0.9e1 * t8048 + 0.400e3 / 0.9e1 * t8051 + 0.200e3 / 0.9e1 * t8054 - 0.25e2 / 0.9e1 * t184 * t186 * t2030 * t517 - 0.25e2 / 0.3e1 * t184 * t3057 * t1343 - 0.25e2 / 0.3e1 * t184 * t1339 * t3064 + 0.200e3 / 0.9e1 * t6377 + 0.200e3 / 0.27e2 * t6380 - t6364 + 0.30800e5 / 0.81e2 * t6367 - 0.2200e4 / 0.27e2 * t6371 - 0.2200e4 / 0.27e2 * t6374 - 0.25e2 / 0.9e1 * t184 * t433 * t188 * t8121 + 0.30800e5 / 0.243e3 * t8127;
6505   t8137 = -t8023 - 0.7e1 / 0.2e1 * t8024 - 0.7e1 / 0.2e1 * t8026 - t6323 - t6327 + t6330 + 0.23260393291413087447e-1 * t730 * t1967 * t1115 + t6334 / 0.2e1 - 0.7e1 / 0.2e1 * t6344 - 0.455e3 / 0.9e1 * t6348 + 0.70e2 / 0.3e1 * t6350 + 0.35e2 / 0.3e1 * t6355 + t6357 / 0.2e1 + t8037 + t8038 + t179 * t426 * t5 * t8129 * t192 / 0.2e1 + 0.3e1 / 0.2e1 * t420 * t3071;
6506   t8139 = t415 * t3071;
6507   t8141 = t707 * t1359;
6508   t8143 = t712 * t1359;
6509   t8144 = 0.7e1 * t8143;
6510   t8145 = t415 * t2963;
6511   t8146 = 0.7e1 * t8145;
6512   t8148 = t179 * t6346 * t523;
6513   t8150 = t727 * t1359;
6514   t8152 = t420 * t2963;
6515   t8154 = t1100 * t760;
6516   t8155 = 0.7e1 * t8154;
6517   t8156 = t1100 * t782;
6518   t8163 = 0.8e1 * t6442;
6519   t8166 = t2941 * t441;
6520   t8167 = 0.3e1 / 0.2e1 * t8166;
6521   t8169 = 0.48e2 * t6458;
6522   t8170 = 0.192e3 * t6465;
6523   t8171 = 0.3e1 / 0.2e1 * t8139 - 0.7e1 / 0.2e1 * t8141 - t8144 - t8146 - 0.455e3 / 0.27e2 * t8148 - 0.7e1 / 0.2e1 * t8150 - 0.7e1 * t8152 - t8155 + 0.3e1 / 0.2e1 * t8156 + 0.3e1 / 0.2e1 * t4200 * t1999 + 0.46520786582826174894e-1 * t89 * t3080 * t1115 + t8163 + 0.3e1 / 0.2e1 * t2871 * t441 + t8167 - 0.7e1 / 0.6e1 * t6453 - t8169 + t8170;
6524   t8172 = 0.72e2 * t6467;
6525   t8173 = 0.480e3 * t6469;
6526   t8174 = 0.144e3 * t6471;
6527   t8175 = 0.12e2 * t6473;
6528   t8176 = 0.240e3 * t6475;
6529   t8177 = 0.96e2 * t6484;
6530   t8178 = t460 * t724;
6531   t8182 = 0.960e3 * t6487;
6532   t8183 = 0.60e2 * t6489;
6533   t8186 = t3091 * t2889;
6534   t8188 = t2922 * t2889;
6535   t8200 = 0.73246220147012639763e-3 * t6806;
6536   t8203 = -t8172 + t8173 + t8174 + t8175 + t8176 - t8177 + 0.46520786582826174894e-1 * t1141 * t731 * t8178 - t8182 + t8183 + t6805 + 0.3e1 / 0.2e1 * t2836 * t2889 + 0.3e1 / 0.2e1 * t8186 - 0.7e1 / 0.2e1 * t8188 + t1125 * t1127 * t521 * t2734 * t192 / 0.2e1 + 0.3e1 / 0.2e1 * t1125 * t1127 * t1347 * t786 * t192 + t8200 + t514 * t2785 / 0.2e1;
6537   t8208 = t514 * t2795;
6538   t8212 = t2747 * t524;
6539   t8214 = t712 * t1350;
6540   t8222 = t3090 * t2921 * t1130;
6541   t8223 = 0.7e1 * t8222;
6542   t8226 = t167 * t704 * t1124 * t1130;
6543   t8227 = 0.3e1 / 0.2e1 * t8226;
6544   t8229 = t3090 * t2835 * t1130;
6545   t8231 = t3091 * t2840;
6546   t8233 = t3091 * t2928;
6547   t8237 = t1122 * t2834 * t305 * t1130;
6548   t8239 = t1100 * t682;
6549   t8241 = t751 * t1197;
6550   t8242 = 0.36e2 * t8241;
6551   t8243 = 0.3e1 / 0.2e1 * t727 * t1350 - 0.7e1 / 0.2e1 * t8208 + t2675 * t524 / 0.2e1 + 0.3e1 / 0.2e1 * t8212 + 0.3e1 * t8214 + t167 * t176 * t8121 * t99 * t194 / 0.2e1 + t6510 - t6815 - t8223 + t8227 + 0.3e1 * t8229 + 0.3e1 * t8231 + 0.3e1 / 0.2e1 * t8233 - 0.7e1 * t8237 + 0.35e2 / 0.3e1 * t8239 + t8242 + t6817;
6552   t8250 = t1090 * t2375;
6553   t8251 = 0.10253897021007794930e4 * t8250;
6554   t8253 = 0.96e2 * t741 * t1195;
6555   t8254 = t741 * t1197;
6556   t8255 = 0.96e2 * t8254;
6557   t8256 = t89 * t736;
6558   t8259 = t420 * t3074;
6559   t8260 = 0.35e2 / 0.3e1 * t8259;
6560   t8261 = t514 * t2789;
6561   t8262 = 0.35e2 / 0.3e1 * t8261;
6562   t8263 = t514 * t2719;
6563   t8265 = t229 * t3025;
6564   t8266 = 0.12e2 * t8265;
6565   t8267 = t234 * t3025;
6566   t8268 = 0.12e2 * t8267;
6567   t8277 = -0.23260393291413087447e-1 * t730 * t1963 * t1115 - t6821 + 0.46520786582826174894e-1 * t1141 * t2879 * t724 - t8251 - t8253 - t8255 + 0.46520786582826174894e-1 * t8256 * t1146 + t8260 + t8262 + t6829 - 0.455e3 / 0.27e2 * t8263 + t8266 - t8268 + t1125 * t1127 * t521 * t2782 * t192 / 0.2e1 - t6834 + t6838 + 0.15506928860942058298e-1 * t1141 * t1142 * t2030;
6568   t8284 = 0.58482233974552040708e0 * t6858;
6569   t8285 = 0.17544670192365612213e1 * t6860;
6570   t8286 = 0.30761691063023384791e4 * t6862;
6571   t8287 = t3032 * t1987;
6572   t8288 = 0.48159446095139119799e0 * t8287;
6573   t8289 = t3032 * t1984;
6574   t8290 = 0.16265371324172286321e-1 * t8289;
6575   t8291 = t3164 * t911;
6576   t8292 = 0.35089340384731224426e1 * t8291;
6577   t8296 = t3547 * t397;
6578   t8300 = 0.35089340384731224426e1 * t6864;
6579   t8301 = 0.31168360618876553939e3 * t6866;
6580   t8302 = 0.3e1 / 0.2e1 * t6839 + 0.3e1 / 0.2e1 * t6843 + 0.3e1 * t6845 - 0.21e2 / 0.2e1 * t6847 + 0.35e2 * t6851 - t6856 - t8284 - t8285 - t8286 + t8288 + t8290 + t6521 + t8292 + 0.77534644304710291488e-2 * t730 * t6808 * t460 + 0.23260393291413087447e-1 * t730 * t8296 * t299 + t8300 + t8301;
6581   t8303 = 0.18311555036753159941e-3 * t6881;
6582   t8304 = 0.15584180309438276970e3 * t6887;
6583   t8305 = 0.10526802115419367328e2 * t6889;
6584   t8306 = 0.17544670192365612213e1 * t6903;
6585   t8307 = 0.51947267698127589897e2 * t6905;
6586   t8308 = t1115 * t299;
6587   t8320 = -t6870 + t6874 - t6878 - t8303 + t6886 - t8304 + t8305 + t6894 - t6902 - t8306 - t8307 - t6910 + 0.93041573165652349788e-1 * t1141 * t731 * t8308 - 0.15506928860942058298e-1 * t1093 * t507 * t6309 * t2811 + 0.15506928860942058298e-1 * t730 * t7005 * t460 + 0.35e2 / 0.3e1 * t6945 + t6948;
6588   t8328 = t2917 * t1 * t285;
6589   t8329 = 0.54934665110259479823e-3 * t8328;
6590   t8332 = t40 * t1192 * t907;
6591   t8333 = 0.3e1 * t8332;
6592   t8335 = t40 * t452 * t2342;
6593   t8336 = 0.4e1 * t7010;
6594   t8337 = t748 * t1197;
6595   t8338 = 0.60e2 * t8337;
6596   t8339 = 0.36e2 * t7012;
6597   t8347 = t751 * t1195;
6598   t8348 = 0.36e2 * t8347;
6599   t8349 = -t6950 - 0.7e1 * t6951 - 0.7e1 / 0.6e1 * t6953 - t6956 - 0.21e2 / 0.2e1 * t6957 - t8329 + t7002 + 0.35e2 * t7003 + t8333 + t8335 - t8336 + t8338 - t8339 + 0.15506928860942058297e-1 * t1093 * t1330 * t2814 * t1060 + t6596 + 0.46520786582826174894e-1 * t1141 * t1967 * t3006 + t8348;
6600   t8350 = t3164 * t840;
6601   t8351 = 0.17544670192365612213e1 * t8350;
6602   t8352 = t1090 * t2172;
6603   t8353 = 0.58482233974552040708e0 * t8352;
6604   t8355 = 0.24e2 * t229 * t3027;
6605   t8360 = t1192 * t4 * t605;
6606   t8361 = 0.32530742648344572643e-1 * t8360;
6607   t8362 = t3032 * t1978;
6608   t8363 = 0.32530742648344572643e-1 * t8362;
6609   t8364 = t1118 * t682;
6610   t8365 = 0.35e2 / 0.3e1 * t8364;
6611   t8366 = t1118 * t760;
6612   t8394 = 0.32e2 * t1182 * t233;
6613   t8409 = 0.32e2 * t1188 * t233;
6614   t8414 = -0.8e1 * t2895 * t8107 + 0.8e1 * t2907 * t8110 + 0.4e1 / 0.9e1 * t1179 * t2015 - 0.16e2 * t44 * t39 + 0.40e2 / 0.81e2 * t6912 * t446 * t2007 - 0.8e1 / 0.9e1 * t2892 * t8104 - 0.16e2 / 0.9e1 * t2350 * t34 * t8080 + 0.8e1 / 0.3e1 * t608 * t612 * t239 + 0.8e1 / 0.3e1 * t2895 * t8086 + t8394 + 0.40e2 / 0.81e2 * t6925 * t448 * t2021 - 0.8e1 / 0.9e1 * t2904 * t8094 + 0.16e2 / 0.9e1 * t2359 * t34 * t8098 - 0.8e1 / 0.3e1 * t618 * t612 * t241 - 0.8e1 / 0.3e1 * t2907 * t8074 - t8409 + 0.4e1 / 0.9e1 * t1185 * t2027 + 0.16e2 * t47 * t39;
6615   t8415 = t8414 * t53;
6616   t8417 = 0.19751789702565206229e-1 * t8415 * t79;
6617   t8421 = -t7019 - t8351 - t8353 - t6601 + t6605 + t8355 + 0.23260393291413087447e-1 * t730 * t2875 * t724 + t8361 - t8363 + t8365 - 0.7e1 * t8366 + 0.3e1 / 0.2e1 * t7020 + 0.3e1 / 0.2e1 * t7022 - 0.14e2 * t7024 - 0.7e1 / 0.2e1 * t7026 + t8417 + 0.46520786582826174894e-1 * t1141 * t2875 * t736;
6618   t8423 = t748 * t1195;
6619   t8424 = 0.60e2 * t8423;
6620   t8429 = t234 * t2995;
6621   t8430 = 0.12e2 * t8429;
6622   t8438 = t3317 * t352;
6623   t8446 = t7186 * t1;
6624   t8466 = t468 * t949;
6625   t8479 = t7179 * t1;
6626   t8482 = -t6289 - t6316 - t8004 - t8005 - t6323 - t6327 + t6330 + t8037 + t8038 + t8163 - t8169 + t8170 - t8172 + t8173 + t8174 + t8175;
6627   t8483 = t8176 - t8177 - t8182 + t8183 + t6805 + t8200 + t6510 - t6815 + t8242 + t6817 - t6821 - t8251 - t8253 - t8255 + t6829 + t8266 - t8268;
6628   t8485 = -t6834 + t6838 - t6856 - t8284 - t8285 - t8286 + t8288 + t8290 + t6521 + t8292 + t8300 + t8301 - t6870 + t6874 - t6878 - t8303;
6629   t8486 = t6886 - t8304 + t8305 + t6894 - t6902 - t8306 - t8307 - t6910 - t8329 + t8333 + t8335 - t8336 + t8338 - t8339 + t6596 + t8348 - t7019;
6630   t8489 = t3032 * t1981;
6631   t8490 = 0.21687161765563048428e-1 * t8489;
6632   t8491 = 0.65061485296689145284e-1 * t7054;
6633   t8492 = -t8351 - t8353 - t6601 + t6605 + t8355 + t8361 - t8363 + t8417 + t8424 - t6614 - t8430 - t8490 + t7050 + t7053 - t8491 - t7058;
6634   t8493 = 0.32530742648344572642e-1 * t7067;
6635   t8494 = 0.14447833828541735940e1 * t7069;
6636   t8495 = 0.48796113972516858964e-1 * t7071;
6637   t8496 = 0.10526802115419367328e2 * t7076;
6638   t8497 = 0.96e2 * t7081;
6639   t8498 = 0.36e2 * t7088;
6640   t8499 = 0.36e2 * t7093;
6641   t8500 = t3159 * t601;
6642   t8501 = 0.73246220147012639764e-3 * t8500;
6643   t8502 = t1090 * t2177;
6644   t8503 = 0.35089340384731224426e1 * t8502;
6645   t8504 = -t7061 + t7065 + t8493 + t8494 + t8495 + t7075 - t8496 + t6632 - t8497 - t8498 + t6635 - t8499 - t6638 + t8501 - t6644 + t6658 - t8503;
6646   t8506 = t1090 * t2398;
6647   t8507 = 0.35089340384731224426e1 * t8506;
6648   t8508 = t1090 * t2403;
6649   t8509 = 0.51947267698127589897e2 * t8508;
6650   t8510 = 0.4e1 * t7110;
6651   t8511 = t234 * t3027;
6652   t8512 = 0.24e2 * t8511;
6653   t8514 = t40 * t8415 * t81;
6654   t8516 = t40 * t2917 * t278;
6655   t8517 = 0.3e1 * t8516;
6656   t8518 = t7106 + t8507 - t8509 - t8510 + t6677 - t6698 - t6702 - t6717 + t6737 - t8512 + t8514 + t8517 + t7115 - t6740 - t6748 + t6756;
6657   t8519 = t229 * t2995;
6658   t8520 = 0.12e2 * t8519;
6659   t8521 = t2013 * t453;
6660   t8522 = 0.24e2 * t8521;
6661   t8523 = t2123 * t453;
6662   t8524 = 0.144e3 * t8523;
6663   t8525 = t2126 * t453;
6664   t8526 = 0.240e3 * t8525;
6665   t8527 = t2131 * t453;
6666   t8528 = 0.120e3 * t8527;
6667   t8529 = t1090 * t2411;
6668   t8530 = 0.10389453539625517980e3 * t8529;
6669   t8531 = t3164 * t849;
6670   t8532 = 0.51947267698127589899e2 * t8531;
6671   t8533 = t1087 * t2389;
6672   t8534 = 0.56969282336565386482e-3 * t8533;
6673   t8535 = 0.17090784700969615944e-2 * t7145;
6674   t8536 = 0.24e2 * t7147;
6675   t8537 = 0.3e1 * t7150;
6676   t8538 = 0.97592227945033717929e-1 * t7152;
6677   t8539 = t7124 + t8520 + t8522 - t8524 + t8526 - t8528 + t8530 - t8532 + t7144 - t8534 - t8535 - t8536 + t8537 - t8538 - t7156 - t7160 + t7163;
6678   t8557 = t1202 * t341;
6679   t8560 = t3169 * t129;
6680   t8565 = -0.46430857228828444218e4 * t1211 * t114 * t2868 * t299 - 0.46430857228828444218e4 * t1211 * t3192 * t724 + 0.23215428614414222109e5 * t8479 * t3189 - 0.12897460341341234505e3 * (t8482 + t8483 + t8485 + t8486 + t8492 + t8504 + t8518 + t8539) * t112 * t115 - 0.15476952409609481406e4 * t1211 * t1212 * t2030 + 0.11607714307207111054e4 * t920 * t3199 + 0.23215428614414222109e5 * t3188 * t1212 * t6822 + 0.38692381024023703515e3 * t324 * t115 * t8121 - 0.46430857228828444218e4 * t8557 * t924 + 0.11607714307207111054e4 * t8560 * t325 + 0.11607714307207111054e4 * t2420 * t1216;
6681   t8566 = -0.46430857228828444218e5 * t8446 * t1212 * t2043 + 0.38692381024023703515e3 * t1206 * t2436 + 0.38692381024023703515e3 * t7171 * t472 + 0.11607714307207111054e4 * t3173 * t927 - 0.46430857228828444218e4 * t7174 * t1 * t1213 - 0.92861714457656888436e4 * t3183 * t3193 - 0.46430857228828444218e4 * t3183 * t3196 + 0.23215428614414222109e5 * t3188 * t3192 * t736 + 0.77384762048047407030e4 * t8466 * t2429 - 0.46430857228828444218e4 * t3819 * t2433 + t8565;
6682   t8568 = t6 * t8566 * t118;
6683   t8572 = t7369 * t131;
6684   t8573 = t1241 * t2043;
6685   t8582 = t475 * t2110;
6686   t8583 = t8582 * t816;
6687   t8584 = t153 * t8583;
6688   t8587 = t2453 * t3267;
6689   t8589 = t460 * t2110;
6690   t8590 = t8589 * t816;
6691   t8591 = t826 * t8590;
6692   t8594 = t3256 * t2110;
6693   t8595 = t153 * t8594;
6694   t8598 = t8589 * t2112;
6695   t8599 = t826 * t8598;
6696   t8603 = t475 * t7214 * t2110;
6697   t8604 = t153 * t8603;
6698   t8607 = t151 * t129;
6699   t8608 = t3107 * t8607;
6700   t8618 = -0.27166129655589868296e-2 * t319 * t152 * t8568 + 0.22819548910695489368e1 * t1239 * t8572 * t8573 + 0.76065163035651631230e-1 * t7224 - 0.76065163035651631230e-1 * t7230 + 0.57471456515825676930e1 * t7232 - 0.86207184773738515395e0 * t7234 + 0.50710108690434420820e-1 * t7236 + 0.38032581517825815613e-1 * t813 * t8584 + 0.30426065214260652489e0 * t8587 - 0.65198711173415683908e-1 * t813 * t8591 - 0.97798066760123525865e-1 * t2109 * t8595 + 0.65198711173415683908e-1 * t2109 * t8599 + 0.65198711173415683912e-1 * t7211 * t8604 - 0.81498388966769604888e-2 * t8608 * t3212 * t2060 + 0.32599355586707841954e-1 * t3211 * t3212 * t2082 - 0.16299677793353920977e0 * t3109 * t481 * t2082;
6701   t8632 = t3107 * t383 * t949;
6702   t8633 = t8632 * t3110;
6703   t8638 = t2108 * t122;
6704   t8639 = t8638 * t8607;
6705   t8640 = t2112 * t328;
6706   t8645 = t3216 * t8607;
6707   t8650 = t102 * t2101 * t19;
6708   t8651 = t3006 * t724;
6709   t8656 = t121 * t2456 * t1243;
6710   t8658 = t3143 * t3148;
6711   t8660 = t3143 * t3152;
6712   t8663 = t6 * t2868 * t299;
6713   t8667 = t3146 * t724;
6714   t8671 = t1241 * t2030;
6715   t8675 = t8638 * t3210;
6716   t8680 = t383 * t341;
6717   t8681 = t3107 * t8680;
6718   t8682 = t8681 * t3213;
6719   t8684 = 0.32599355586707841954e-1 * t3211 * t481 * t2060 - 0.32599355586707841954e0 * t3109 * t1246 * t828 - 0.16299677793353920977e0 * t3109 * t481 * t2051 - 0.16299677793353920977e0 * t3109 * t481 * t2055 + 0.15213032607130326245e1 * t8633 - 0.65198711173415683908e-1 * t3217 * t481 * t2070 - 0.48899033380061762934e-1 * t8639 * t3212 * t8640 * t930 + 0.48899033380061762931e-1 * t8645 * t3212 * t2070 - 0.3e1 / 0.4e1 * t8650 * t107 * t8651 + 0.43103592386869257695e1 * t8656 - 0.15213032607130326244e1 * t8658 - 0.76065163035651631226e0 * t8660 + 0.16299677793353920977e0 * t1239 * t1240 * t8663 + 0.16299677793353920977e0 * t1239 * t1240 * t8667 + 0.54332259311179736590e-1 * t1239 * t1240 * t8671 + 0.19559613352024705173e0 * t8675 * t3212 * t7289 * t299 - 0.30426065214260652491e0 * t8682;
6720   t8686 = t7441 * t465;
6721   t8692 = t799 * t3303;
6722   t8694 = t822 * t3205;
6723   t8696 = t3143 * t3308;
6724   t8709 = 0.455e3 / 0.648e3 * t8686 - t311 * t312 * t5 * t8121 / 0.48e2 + 0.7e1 / 0.48e2 * t8692 + 0.38032581517825815615e-1 * t8694 + 0.45639097821390978735e1 * t8696 - 0.15213032607130326246e0 * t7254 + 0.76065163035651631230e0 * t7262 + 0.17241436954747703079e1 * t7294 + 0.30426065214260652492e0 * t7300 - 0.15213032607130326246e0 * t7302 + 0.38032581517825815615e-1 * t7308 - 0.15213032607130326246e0 * t7327 - 0.76065163035651631230e-1 * t7344 - 0.21551796193434628848e0 * t7346 - 0.76065163035651631230e0 * t7348 + 0.12677527172608605205e-1 * t7350;
6725   t8710 = t2098 * t3138;
6726   t8712 = t1160 * t724;
6727   t8716 = t464 * t2030;
6728   t8720 = t1160 * t736;
6729   t8724 = t7434 * t1157;
6730   t8725 = 0.35e2 / 0.24e2 * t8724;
6731   t8726 = t822 * t3253;
6732   t8728 = t822 * t3230;
6733   t8730 = t2453 * t3240;
6734   t8732 = t2453 * t3244;
6735   t8734 = t2457 * t1173;
6736   t8736 = t2457 * t1227;
6737   t8737 = 0.21551796193434628848e0 * t8736;
6738   t8738 = t7223 * t3258;
6739   t8740 = t2453 * t3262;
6740   t8742 = t7421 * t3128;
6741   t8744 = t464 * t2043;
6742   t8749 = t3107 * t151 * t2041;
6743   t8753 = t3216 * t3108;
6744   t8759 = -0.7e1 / 0.16e2 * t8710 + 0.3e1 / 0.16e2 * t803 * t312 * t8712 + t803 * t312 * t8716 / 0.16e2 - 0.3e1 / 0.4e1 * t2102 * t312 * t8720 + t8725 - 0.30426065214260652491e0 * t8726 + 0.76065163035651631230e-1 * t8728 - 0.15213032607130326246e0 * t8730 - 0.76065163035651631230e-1 * t8732 + 0.86207184773738515394e0 * t8734 - t8737 + 0.22819548910695489369e0 * t8738 - 0.22819548910695489369e0 * t8740 + 0.7e1 / 0.4e1 * t8742 + 0.5e1 / 0.4e1 * t7425 * t312 * t8744 + 0.97798066760123525862e0 * t8749 * t481 * t2077 + 0.32599355586707841954e0 * t8753 * t3212 * t816 * t736 * t328;
6745   t8763 = t460 * t2439 * t118;
6746   t8764 = t826 * t8763;
6747   t8767 = t3251 * t724;
6748   t8768 = t826 * t8767;
6749   t8771 = t1171 * t2030;
6750   t8772 = t826 * t8771;
6751   t8776 = t3202 * t816 * t328;
6752   t8777 = t153 * t8776;
6753   t8780 = t822 * t3225;
6754   t8782 = t7256 * t8651;
6755   t8785 = t3202 * t118;
6756   t8786 = t8785 * t299;
6757   t8787 = t826 * t8786;
6758   t8791 = t3202 * t328 * t118;
6759   t8792 = t153 * t8791;
6760   t8798 = t1164 * t2439;
6761   t8799 = t153 * t8798;
6762   t8803 = t1219 * t2112 * t814;
6763   t8804 = t153 * t8803;
6764   t8807 = t3238 * t814;
6765   t8808 = t153 * t8807;
6766   t8811 = t1115 * t814;
6767   t8812 = t8811 * t816;
6768   t8813 = t826 * t8812;
6769   t8816 = t7355 + 0.10866451862235947318e-1 * t319 * t8764 + 0.32599355586707841954e-1 * t319 * t8768 + 0.10866451862235947318e-1 * t319 * t8772 + 0.16299677793353920977e-1 * t813 * t8777 - 0.15213032607130326246e0 * t8780 - 0.97798066760123525862e0 * t1239 * t8782 + 0.32599355586707841954e-1 * t319 * t8787 - 0.81498388966769604888e-2 * t319 * t8792 - 0.7e1 / 0.16e2 * t7364 + 0.15213032607130326246e1 * t7366 + 0.43103592386869257697e1 * t7379 + 0.54332259311179736592e-2 * t813 * t8799 - 0.48899033380061762932e-1 * t2109 * t8804 + 0.48899033380061762931e-1 * t813 * t8808 - 0.65198711173415683908e-1 * t813 * t8813;
6770   t8818 = t2868 * t328 * t118;
6771   t8819 = t826 * t8818;
6772   t8823 = t1115 * t930 * t118;
6773   t8824 = t826 * t8823;
6774   t8827 = t2457 * t1234;
6775   t8829 = t822 * t3289;
6776   t8831 = t1171 * t2043;
6777   t8832 = t7256 * t8831;
6778   t8835 = t822 * t3295;
6779   t8837 = t8589 * t118;
6780   t8838 = t826 * t8837;
6781   t8841 = t822 * t3283;
6782   t8843 = t8582 * t118;
6783   t8844 = t153 * t8843;
6784   t8847 = t8811 * t118;
6785   t8848 = t826 * t8847;
6786   t8852 = t1219 * t814 * t118;
6787   t8853 = t153 * t8852;
6788   t8856 = t822 * t3272;
6789   t8858 = t822 * t3277;
6790   t8860 = t3251 * t736;
6791   t8861 = t2076 * t8860;
6792   t8867 = 0.32599355586707841954e-1 * t319 * t8819 + 0.32599355586707841954e-1 * t319 * t8824 + 0.86207184773738515387e0 * t8827 + 0.76065163035651631229e0 * t8829 + 0.32599355586707841954e0 * t319 * t8832 - 0.15213032607130326245e0 * t8835 + 0.10866451862235947318e-1 * t319 * t8838 + 0.38032581517825815615e-1 * t8841 - 0.27166129655589868296e-2 * t319 * t8844 + 0.32599355586707841954e-1 * t319 * t8848 - 0.81498388966769604888e-2 * t319 * t8853 - 0.30426065214260652489e0 * t8856 - 0.15213032607130326245e0 * t8858 - 0.16299677793353920977e0 * t319 * t8861 + 0.14367864128956419232e1 * t7389 + 0.43103592386869257696e0 * t7397 - 0.21551796193434628848e0 * t7399;
6793   t8870 = t3146 * t736;
6794   t8874 = t2479 * t1161;
6795   t8875 = 0.35e2 / 0.72e2 * t8874;
6796   t8876 = t2095 * t482;
6797   t8878 = t2457 * t1222;
6798   t8879 = 0.21551796193434628848e0 * t8878;
6799   t8885 = t822 * t3235;
6800   t8887 = t7396 * t1166;
6801   t8890 = t1219 * t930 * t118;
6802   t8891 = t153 * t8890;
6803   t8895 = t475 * t2439 * t118;
6804   t8896 = t153 * t8895;
6805   t8899 = t3238 * t930;
6806   t8900 = t153 * t8899;
6807   t8903 = 0.12677527172608605205e-1 * t7401 - 0.97798066760123525862e0 * t1239 * t3306 * t8870 - t8875 + 0.19157152171941892309e1 * t8876 - t8879 + 0.7e1 / 0.144e3 * t7419 + 0.7e1 / 0.12e2 * t7422 + 0.35e2 / 0.24e2 * t7435 + 0.455e3 / 0.216e3 * t7442 - 0.35e2 / 0.72e2 * t7444 + t7449 + 0.38032581517825815615e-1 * t8885 + 0.43103592386869257697e0 * t8887 - 0.81498388966769604888e-2 * t319 * t8891 - 0.27166129655589868296e-2 * t319 * t8896 + 0.16299677793353920977e-1 * t813 * t8900;
6808   t8904 = t337 * t3121;
6809   t8907 = t342 * t132 * t8121;
6810   t8910 = t2098 * t3134;
6811   t8912 = t3302 * t299;
6812   t8916 = t943 * t1247;
6813   t8918 = t7388 * t478;
6814   t8927 = t132 * t1219;
6815   t8937 = t3216 * t8680;
6816   t8938 = t8937 * t3219;
6817   t8958 = 0.15213032607130326245e0 * t8904 - 0.10866451862235947318e-1 * t126 * t8907 - 0.7e1 / 0.8e1 * t8910 + 0.3e1 / 0.16e2 * t803 * t312 * t8912 - 0.86207184773738515387e0 * t8916 + 0.47892880429854730775e0 * t8918 - 0.16299677793353920977e0 * t3109 * t3212 * t3467 * t724 - 0.16299677793353920977e0 * t3109 * t3212 * t2077 + 0.65198711173415683909e-1 * t3211 * t8927 * t828 + 0.32599355586707841954e-1 * t3211 * t3212 * t2051 + 0.32599355586707841954e-1 * t3211 * t3212 * t2055 + 0.60852130428521304983e0 * t8938 - 0.13039742234683136782e0 * t3217 * t8927 * t3218 - 0.65198711173415683910e-1 * t3217 * t3212 * t816 * t930 * t299 - 0.65198711173415683909e-1 * t3217 * t3212 * t2069 * t724 + 0.32599355586707841954e0 * t8753 * t481 * t2065 - 0.19559613352024705173e0 * t3217 * t3212 * t2065;
6818   t8973 = t1250 * t968;
6819   t8984 = t391 * t1051;
6820   t8988 = t97 * t959;
6821   t8995 = t485 * t2501;
6822   t9009 = t137 * t120 * t103;
6823   t9015 = t146 * t148;
6824   t9016 = t9015 * t318;
6825   t9020 = t2558 * t3507;
6826   t9022 = t2558 * t3511;
6827   t9027 = 0.11990607661090678954e2 * t7494 + 0.48681704342817043984e1 * t7496 + 0.15987476881454238606e2 * t7509 - 0.23981215322181357909e1 * t7511 + 0.14106597248341975240e0 * t7513 - 0.62590762726479056553e1 * t9009 * t7599 * t8651 - 0.84639583490051851442e0 * t7515 + 0.21159895872512962860e0 * t7517 - 0.27205580407516666535e1 * t9016 * t8782 - 0.12170426085704260996e1 * t7521 - 0.24340852171408521993e1 * t9020 - 0.12170426085704260996e1 * t9022 + 0.52158968938732547127e0 * t987 * t989 * t8786;
6828   t9029 = t1225 * t118 * t736;
6829   t9033 = t3233 * t827;
6830   t9037 = t3238 * t3462;
6831   t9041 = t118 * t724;
6832   t9042 = t1232 * t9041;
6833   t9049 = t3281 * t3467;
6834   t9054 = t1164 * t736 * t328;
6835   t9058 = t2558 * t3479;
6836   t9060 = t3265 * t3467;
6837   t9070 = t3233 * t2069;
6838   t9075 = t1164 * t724 * t328;
6839   t9079 = t3256 * t2059;
6840   t9083 = -0.90685268025055555117e0 * t1030 * t2076 * t9029 - 0.26079484469366273564e0 * t987 * t142 * t9033 - 0.20863587575493018851e1 * t1267 * t989 * t9037 - 0.90685268025055555116e0 * t1030 * t2076 * t9042 - 0.15647690681619764138e1 * t987 * t2523 * t9042 + 0.18137053605011111023e0 * t1030 * t826 * t9049 + 0.31295381363239528276e1 * t1267 * t2523 * t9054 + 0.73022556514225565976e1 * t9058 - 0.15647690681619764138e1 * t987 * t2523 * t9060 + 0.27205580407516666535e1 * t1301 * t2076 * t9054 - 0.90685268025055555116e0 * t1030 * t2076 * t9060 + 0.15647690681619764138e1 * t1267 * t142 * t9070 - 0.54411160815033333069e0 * t1301 * t826 * t9075 - 0.54411160815033333069e0 * t3515 * t153 * t9079;
6841   t9095 = t7702 * t495;
6842   t9097 = t2519 * t3295;
6843   t9099 = t7708 * t1234;
6844   t9100 = 0.47962430644362715816e1 * t9099;
6845   t9103 = t1164 * t7722;
6846   t9110 = t7554 * t1273;
6847   t9111 = 0.40568086952347536654e1 * t9110;
6848   t9112 = 0.40808370611274999801e0 * t1301 * t153 * t9070 + 0.13602790203758333267e0 * t1301 * t8777 - 0.45342634012527777558e-1 * t1030 * t8792 - 0.84639583490051851442e0 * t7532 - 0.12170426085704260996e1 * t7534 - 0.63479687617538888583e0 * t7538 + 0.58598347820057552945e1 * t9095 - 0.84639583490051851442e0 * t9097 + t9100 + 0.81136173904695073308e1 * t7555 - 0.12170426085704260996e1 * t7557 - 0.54411160815033333069e0 * t1301 * t826 * t9103 + 0.17386322979577515709e0 * t1267 * t142 * t8798 + t9111;
6849   t9131 = t3413 * t3497;
6850   t9133 = t3413 * t3500;
6851   t9135 = t2558 * t3491;
6852   t9140 = t2558 * t3494;
6853   t9143 = t1300 * t2456 * t1166;
6854   t9144 = 0.35971822983272036862e1 * t9143;
6855   t9145 = t2558 * t3485;
6856   t9150 = -0.86931614897887578546e-1 * t987 * t142 * t8895 + 0.52158968938732547127e0 * t1267 * t142 * t8776 + 0.52158968938732547127e0 * t1267 * t142 * t8899 - 0.26079484469366273564e0 * t987 * t142 * t8791 + 0.52158968938732547127e0 * t987 * t989 * t8767 + 0.17386322979577515709e0 * t987 * t989 * t8771 - 0.24340852171408521993e1 * t9131 - 0.12170426085704260996e1 * t9133 + 0.12170426085704260996e1 * t9135 - 0.26079484469366273564e0 * t987 * t142 * t8852 + 0.60852130428521304981e0 * t9140 + t9144 - 0.24340852171408521993e1 * t9145 - 0.31295381363239528276e1 * t3380 * t142 * t8594;
6857   t9160 = t146 * t7643 * t318;
6858   t9167 = t3413 * t3384;
6859   t9180 = t3402 * t3262;
6860   t9187 = t3270 * t3467;
6861   t9191 = 0.12170426085704260996e1 * t1267 * t142 * t8583 + 0.10431793787746509425e1 * t3380 * t989 * t8598 + 0.90685268025055555115e0 * t9160 * t8604 - 0.10882232163006666614e1 * t3515 * t8595 + 0.31739843808769444290e0 * t1301 * t8584 - 0.36511278257112782989e1 * t9167 + 0.15647690681619764138e1 * t1267 * t142 * t8807 - 0.15647690681619764138e1 * t3380 * t142 * t8803 - 0.54411160815033333069e0 * t3515 * t8804 - 0.10431793787746509425e1 * t1267 * t989 * t8812 - 0.19043906285261666574e1 * t9180 - 0.54411160815033333070e0 * t1301 * t8813 - 0.15647690681619764138e1 * t987 * t2523 * t9029 - 0.18137053605011111023e1 * t1030 * t2076 * t9187;
6862   t9196 = t3275 * t3467;
6863   t9200 = t814 * t299;
6864   t9201 = t1164 * t9200;
6865   t9205 = t816 * t299;
6866   t9206 = t3265 * t9205;
6867   t9210 = t3256 * t9200;
6868   t9214 = t1044 * t3121;
6869   t9220 = t7508 * t482;
6870   t9222 = t2570 * t1296;
6871   t9223 = 0.40568086952347536654e1 * t9222;
6872   t9224 = 0.25391875047015555432e1 * t7573 - 0.40568086952347536654e1 * t7575 + 0.40568086952347536654e0 * t7577 + 0.12170426085704260996e2 * t7579 - 0.90685268025055555116e0 * t1030 * t2076 * t9196 - 0.31295381363239528276e1 * t1267 * t989 * t9201 + 0.31295381363239528275e1 * t1267 * t2523 * t9206 + 0.31295381363239528276e1 * t3380 * t989 * t9210 + 0.42319791745025925720e0 * t9214 - 0.30228422675018518372e-1 * t388 * t8907 - 0.12170426085704260996e1 * t7589 + 0.60852130428521304981e0 * t7591 + 0.53291589604847462018e1 * t9220 - t9223;
6873   t9226 = t1006 * t3536;
6874   t9232 = t7654 * t498;
6875   t9234 = t1006 * t3451;
6876   t9236 = t7424 * t106;
6877   t9240 = t2594 * t1308;
6878   t9241 = 0.11990607661090678954e1 * t9240;
6879   t9247 = t2519 * t3253;
6880   t9256 = 0.12170426085704260996e1 * t9226 - 0.17386322979577515709e0 * t369 * t310 * t107 * t8121 + 0.26645794802423731009e1 * t9232 + 0.14604511302845113195e2 * t9234 + 0.10431793787746509426e2 * t369 * t9236 * t8744 - t9241 + 0.42319791745025925720e1 * t7595 - 0.45342634012527777558e-1 * t1030 * t8891 - 0.15114211337509259186e-1 * t1030 * t8896 - 0.16927916698010370288e1 * t9247 + 0.18137053605011111023e0 * t1030 * t8819 + 0.18137053605011111023e0 * t1030 * t8824 + 0.60456845350037036744e-1 * t1030 * t8764 + 0.24340852171408521993e1 * t7612;
6881   t9257 = t3379 * t307;
6882   t9258 = t9257 * t3381;
6883   t9269 = t2519 * t3272;
6884   t9273 = t2519 * t3277;
6885   t9275 = t3413 * t3387;
6886   t9279 = t2607 * t1278;
6887   t9280 = 0.20284043476173768327e1 * t9279;
6888   t9281 = t983 * t3441;
6889   t9289 = 0.36511278257112782988e1 * t9258 + 0.17386322979577515709e0 * t987 * t989 * t8837 + 0.20863587575493018851e1 * t987 * t7599 * t8831 - 0.10431793787746509425e1 * t1267 * t989 * t8590 - 0.16927916698010370288e1 * t9269 + 0.18137053605011111023e0 * t1030 * t8848 - 0.84639583490051851442e0 * t9273 + 0.24340852171408521993e1 * t9275 + 0.79937384407271193029e1 * t7655 + 0.87897521730086329417e1 * t7659 - t9280 + 0.60852130428521304981e0 * t9281 - 0.27205580407516666535e1 * t388 * t3444 * t8870 - 0.62590762726479056551e1 * t369 * t3450 * t8720;
6890   t9293 = t1006 * t3436;
6891   t9307 = t1026 * t3428;
6892   t9309 = t2582 * t1320;
6893   t9310 = 0.11990607661090678954e2 * t9309;
6894   t9314 = t1006 * t3433;
6895   t9316 = t1044 * t3445;
6896   t9318 = t7370 * t131;
6897   t9322 = t3233 * t3467;
6898   t9329 = -0.36511278257112782988e1 * t9293 + 0.15647690681619764138e1 * t369 * t1291 * t8712 + 0.45342634012527777558e0 * t388 * t1319 * t8663 + 0.45342634012527777558e0 * t388 * t1319 * t8667 + 0.15114211337509259186e0 * t388 * t1319 * t8671 + 0.21159895872512962860e0 * t9307 + t9310 + 0.15647690681619764138e1 * t369 * t1291 * t8912 - 0.73022556514225565976e1 * t9314 + 0.12695937523507777716e2 * t9316 + 0.63479687617538888581e1 * t388 * t9318 * t8573 + 0.18137053605011111023e0 * t1030 * t826 * t9322 - 0.45342634012527777558e-1 * t1030 * t153 * t9033;
6899   t9333 = t2582 * t1247;
6900   t9334 = 0.23981215322181357908e1 * t9333;
6901   t9341 = t3402 * t3464;
6902   t9346 = t3275 * t2069;
6903   t9350 = t3402 * t3244;
6904   t9354 = t2519 * t3225;
6905   t9356 = 0.52158968938732547127e0 * t987 * t989 * t9049 - t9334 - 0.20284043476173768327e1 * t7664 + 0.40568086952347536654e1 * t7673 + 0.70532986241709876202e-1 * t7681 - 0.11990607661090678954e1 * t7683 - 0.21159895872512962860e1 * t7688 + 0.70532986241709876202e-1 * t7690 + 0.50783750094031110864e1 * t9341 - 0.10882232163006666614e1 * t1301 * t826 * t9037 - 0.54411160815033333069e0 * t1301 * t826 * t9346 - 0.63479687617538888580e0 * t9350 + 0.60456845350037036744e-1 * t1030 * t8772 - 0.84639583490051851442e0 * t9354;
6906   t9367 = t137 * t2645 * t103;
6907   t9371 = t2519 * t3475;
6908   t9373 = t3275 * t827;
6909   t9377 = t460 * t736;
6910   t9378 = t9377 * t827;
6911   t9382 = t3228 * t3467;
6912   t9391 = t3413 * t3472;
6913   t9396 = 0.18137053605011111023e0 * t1030 * t8787 + 0.18137053605011111023e0 * t1030 * t8768 + 0.72548214420044444092e0 * t3515 * t8599 - 0.54411160815033333069e0 * t1301 * t8591 + 0.20863587575493018851e1 * t9367 * t142 * t8603 - 0.16927916698010370288e1 * t9371 + 0.18137053605011111023e0 * t1030 * t826 * t9373 + 0.54411160815033333069e1 * t1030 * t7256 * t9378 + 0.36274107210022222047e0 * t1030 * t826 * t9382 + 0.42319791745025925720e1 * t7693 + 0.17579504346017265883e2 * t7703 - 0.15647690681619764138e1 * t3380 * t142 * t9079 + 0.48681704342817043986e1 * t9391 - 0.10431793787746509425e1 * t1267 * t989 * t9346;
6914   t9400 = t1225 * t9041;
6915   t9407 = t2519 * t3482;
6916   t9415 = t3402 * t3267;
6917   t9417 = t3514 * t821;
6918   t9418 = t9417 * t3258;
6919   t9420 = t2558 * t3405;
6920   t9425 = t3402 * t3240;
6921   t9430 = -0.10431793787746509425e1 * t1267 * t989 * t9075 + 0.18137053605011111023e0 * t1030 * t826 * t9400 + 0.62590762726479056551e1 * t987 * t7599 * t9378 + 0.84639583490051851441e1 * t9407 + 0.95924861288725431634e1 * t7709 - 0.84639583490051851441e0 * t7711 + 0.13602790203758333267e0 * t1301 * t8900 + 0.45342634012527777558e-1 * t1301 * t8799 + 0.25391875047015555432e1 * t9415 + 0.25391875047015555432e1 * t9418 + 0.60852130428521304981e0 * t9420 - 0.15647690681619764138e1 * t987 * t2523 * t8860 - 0.12695937523507777716e1 * t9425 + 0.27205580407516666534e1 * t1301 * t2076 * t9206;
6922   t9433 = t1171 * t6822;
6923   t9443 = t2558 * t3399;
6924   t9449 = t7554 * t1281;
6925   t9450 = 0.20284043476173768327e1 * t9449;
6926   t9459 = t2570 * t1292;
6927   t9460 = 0.12170426085704260996e2 * t9459;
6928   t9464 = t1044 * t3420;
6929   t9466 = t1044 * t3423;
6930   t9470 = -0.15647690681619764138e1 * t987 * t2523 * t9433 + 0.52158968938732547127e0 * t987 * t989 * t9400 - 0.16323348244509999921e1 * t1301 * t826 * t9201 - 0.12170426085704260996e1 * t9443 - 0.15114211337509259186e-1 * t1030 * t8844 + 0.18137053605011111023e1 * t1030 * t8832 - t9450 + 0.52158968938732547127e0 * t369 * t1291 * t8716 - 0.86931614897887578546e-1 * t356 * t358 * t5 * t8566 * t118 + t9460 - 0.15114211337509259186e-1 * t378 * t379 * t8568 - 0.42319791745025925720e1 * t9464 - 0.21159895872512962860e1 * t9466 + 0.40808370611274999802e0 * t1301 * t8808;
6931   t9474 = t7554 * t1286;
6932   t9475 = 0.40568086952347536654e1 * t9474;
6933   t9476 = t2519 * t3235;
6934   t9478 = t7708 * t1173;
6935   t9480 = t2519 * t3289;
6936   t9482 = t2519 * t3230;
6937   t9488 = t7658 * t491;
6938   t9503 = -0.86931614897887578546e-1 * t987 * t142 * t8843 + t9475 + 0.21159895872512962860e0 * t9476 + 0.47962430644362715817e1 * t9478 + 0.42319791745025925720e1 * t9480 + 0.42319791745025925720e0 * t9482 - 0.45342634012527777558e-1 * t1030 * t8853 + 0.60456845350037036744e-1 * t1030 * t8838 + 0.29299173910028776472e1 * t9488 + 0.36511278257112782988e1 * t7745 - 0.26079484469366273564e0 * t987 * t142 * t8890 + 0.52158968938732547127e0 * t987 * t989 * t8818 + 0.52158968938732547127e0 * t987 * t989 * t8823 + 0.17386322979577515709e0 * t987 * t989 * t8763;
6939   t9520 = t2558 * t3469;
6940   t9538 = 0.52158968938732547127e0 * t987 * t989 * t8847 + 0.21764464326013333227e1 * t3515 * t826 * t9210 + 0.52158968938732547127e0 * t987 * t989 * t9322 - 0.31295381363239528275e1 * t987 * t2523 * t9187 - 0.15647690681619764138e1 * t987 * t2523 * t9196 - 0.24340852171408521993e1 * t9520 - 0.90685268025055555116e0 * t1030 * t2076 * t9433 - 0.10431793787746509425e1 * t1267 * t989 * t9103 + 0.52158968938732547127e0 * t987 * t989 * t9373 + 0.10431793787746509425e1 * t987 * t989 * t9382 - 0.36511278257112782988e1 * t7776 - 0.11990607661090678954e1 * t7778 + 0.20284043476173768327e0 * t7780 - 0.20284043476173768327e1 * t7782;
6941   t9545 = t2558 * t3488;
6942   t9548 = t1266 * t796 * t1268;
6943   t9549 = 0.40568086952347536654e1 * t9548;
6944   t9550 = t2558 * t3410;
6945   t9552 = t7708 * t1227;
6946   t9553 = 0.11990607661090678954e1 * t9552;
6947   t9554 = t2519 * t3283;
6948   t9558 = 0.84639583490051851444e0 * t7786 - 0.63479687617538888583e0 * t7788 + 0.12170426085704260996e1 * t7792 - 0.12170426085704260996e1 * t7794 + 0.20284043476173768327e0 * t7800 + 0.35971822983272036863e1 * t7808 + t7813 + t7816 - 0.12170426085704260996e1 * t9545 + t9549 + 0.36511278257112782988e1 * t9550 - t9553 + 0.21159895872512962860e0 * t9554 - 0.90685268025055555117e0 * t1030 * t8861;
6949   t9574 = -0.83454350301972075402e1 * t97 * t2489 * t1326 - 0.83454350301972075402e1 * t97 * t963 * t3543 - 0.50072610181183245240e2 * t1261 * t3341 * t8984 + 0.16690870060394415081e2 * t8988 * t1263 + 0.66763480241577660320e2 * t1261 * t7477 * t503 * t2503 - 0.16690870060394415080e2 * t97 * t8995 * t2503 + 0.16690870060394415081e2 * t1261 * t968 * t3543 * t391 - 0.27818116767324025134e1 * t97 * t353 * (t9027 + t9083 + t9112 + t9150 + t9191 + t9224 + t9256 + t9289 + t9329 + t9356 + t9396 + t9430 + t9470 + t9503 + t9538 + t9558) - 0.50072610181183245242e2 * t3335 * t3342 + 0.16690870060394415081e2 * t1261 * t3345 * t1051 - 0.27818116767324025134e1 * t97 * t7456 * t503;
6950   t9580 = t1055 * t299;
6951   t9584 = t8424 + 0.46520786582826174894e-1 * t1141 * t163 * t2868 * t299 - t6614 - t8430 + 0.25844881434903430496e-2 * t89 * t95 * (-0.27818116767324025134e1 * t97 * t1254 * t2664 - 0.50072610181183245242e2 * t1261 * t2501 * t1326 * t970 - 0.83454350301972075402e1 * t97 * t8438 * t391 + 0.16690870060394415081e2 * t3335 * t3349 + 0.16690870060394415081e2 * t3977 * t2508 + 0.27818116767324025134e1 * t97 * (t8618 + t8684 + t8709 + t8759 + t8816 + t8867 + t8903 + t8958) * t158 + 0.55636233534648050268e1 * t1261 * t1262 * t2664 - 0.83454350301972075402e1 * t97 * t3321 * t1051 + 0.33381740120788830162e2 * t3335 * t3346 + 0.16690870060394415081e2 * t97 * t8973 * t970 + t9574) * t397 - 0.23260393291413087447e-1 * t730 * t1094 * t9580 + t7047 - t8490 + t7050 + t7053 - t8491 - t7058 - t7061 + t7065 + t8493 + t8494 + t8495;
6952   t9589 = t192 * t779;
6953   t9597 = t1100 * t789;
6954   t9599 = t7075 - t8496 + t6632 - t8497 - t8498 + t6635 - t8499 - t6638 + 0.3e1 / 0.2e1 * t7097 - 0.46520786582826174894e-1 * t730 * t2970 * t3554 + t8501 + 0.3e1 / 0.2e1 * t1125 * t1127 * t1128 * t9589 - t6644 + t6658 + 0.77534644304710291488e-2 * t89 * t293 * t8121 - t8503 + 0.3e1 / 0.2e1 * t9597;
6955   t9605 = t179 * t759 * t3070;
6956   t9607 = t460 * t1055;
6957   t9611 = t2706 * t524;
6958   t9613 = t2742 * t524;
6959   t9614 = 0.3e1 / 0.2e1 * t9613;
6960   t9615 = t707 * t1350;
6961   t9616 = 0.3e1 / 0.2e1 * t9615;
6962   t9617 = t514 * t2729;
6963   t9621 = t415 * t3074;
6964   t9624 = t179 * t2788 * t1349;
6965   t9625 = 0.35e2 / 0.3e1 * t9624;
6966   t9626 = 0.3e1 / 0.2e1 * t1118 * t789 - 0.7e1 / 0.2e1 * t9605 + t7106 - 0.23260393291413087447e-1 * t730 * t2806 * t9607 + t8507 + t9611 / 0.2e1 + t9614 + t9616 - 0.7e1 / 0.2e1 * t9617 + t514 * t2737 / 0.2e1 + 0.35e2 / 0.3e1 * t9621 - t8509 + t9625 - t8510 + t6677 - t6698 - t6702;
6967   t9630 = t89 * t299;
6968   t9633 = t724 * t395;
6969   t9637 = t1060 * t299;
6970   t9644 = t395 * t1055;
6971   t9649 = -t6717 + t6737 - t8512 + t8514 + t8517 + t7115 + 0.77534644304710291488e-2 * t730 * t1137 * t2030 + 0.46520786582826174894e-1 * t9630 * t3087 - 0.23260393291413087447e-1 * t730 * t1094 * t9633 + 0.46520786582826174894e-1 * t730 * t2883 * t9637 + 0.46520786582826174894e-1 * t1141 * t1137 * t6822 - t6740 - t6748 + t6756 + 0.15506928860942058297e-1 * t1093 * t2883 * t9644 + t7124 - 0.7e1 / 0.2e1 * t7127;
6972   t9651 = t395 * t736;
6973   t9657 = t1122 * t1123 * t680 * t1130;
6974   t9658 = 0.35e2 / 0.3e1 * t9657;
6975   t9659 = t2922 * t2928;
6976   t9675 = t8520 + t8522 - t8524 + t8526 - t8528 - 0.46520786582826174894e-1 * t1141 * t1094 * t9651 + t9658 - 0.7e1 / 0.2e1 * t9659 - 0.25844881434903430496e-2 * t1093 * t1094 * t2668 + t8530 - t8532 + 0.3e1 / 0.2e1 * t1122 * t724 * t99 * t101 * t1130 + 0.3e1 * t2836 * t2840 + t7144 + 0.15506928860942058298e-1 * t89 * t2043 * t507 * t397 - t8534 - t8535;
6977   t9688 = t2922 * t2840;
6978   t9704 = 0.23260393291413087447e-1 * t730 * t731 * t2868 - t8536 - 0.77534644304710291488e-2 * t1093 * t3547 * t1063 * t395 + t8537 - t8538 - t7156 - 0.46520786582826174894e-1 * t1141 * t1963 * t3006 + 0.3e1 / 0.2e1 * t2836 * t2928 - 0.7e1 * t9688 + 0.3e1 / 0.2e1 * t1125 * t1127 * t3068 * t438 * t192 + 0.3e1 / 0.2e1 * t1125 * t1127 * t1347 * t779 * t192 - t7160 + t7163 - 0.455e3 / 0.9e1 * t7844 + 0.3e1 / 0.2e1 * t7849 + 0.3e1 / 0.2e1 * t7854 + t7859 / 0.2e1;
6979   t9711 = 0.3e1 * t2979;
6980   t9713 = 0.7e1 * t2982;
6981   t9721 = t4326 + t7 * (t8021 + t8137 + t8171 + t8203 + t8243 + t8277 + t8302 + t8320 + t8349 + t8421 + t9584 + t9599 + t9626 + t9649 + t9675 + t9704) - 0.15506928860942058297e-1 * t2972 + t4332 + t4333 + t9711 + 0.3e1 / 0.2e1 * t2980 - t9713 + 0.3e1 / 0.2e1 * t2984 - t2139 + 0.9e1 / 0.2e1 * t2743 + 0.3e1 * t2748 + 0.23260393291413087447e-1 * t2990 - 0.15584180309438276970e3 * t2140 - 0.52634010577096836639e1 * t2142 - t7904 - t7908 + 0.10526802115419367328e2 * t2180;
6982   t9734 = t4337 + 0.46520786582826174894e-1 * t2998 + 0.9e1 * t2183 + t7911 + t4338 + t2755 + 0.93041573165652349788e-1 * t3008 + 0.9e1 / 0.2e1 * t2756 + 0.3e1 * t2758 + t2787 + 0.35e2 * t2790 - 0.21e2 * t2792 - 0.7e1 * t2796 - 0.14e2 * t2798 + 0.6e1 * t2800 + t2803 - t7923 + t7924;
6983   t9739 = 0.6e1 * t3028;
6984   t9743 = t7925 - t4343 + 0.23260393291413087447e-1 * t3019 + 0.46520786582826174894e-1 * t3022 + t2370 + 0.6e1 * t2372 + t7929 - t7932 + t7933 + 0.3e1 * t3026 + t9739 + t4410 + t4411 - t7934 - 0.35089340384731224426e1 * t2379 + t2382 - 0.72e2 * t2383 - 0.24e2 * t2385;
6985   t9747 = 0.3e1 * t3042;
6986   t9754 = 0.3e1 * t3092;
6987   t9755 = -t2809 - t7940 + 0.21973866044103791929e-2 * t2392 - 0.10986933022051895965e-2 * t2395 + t7944 - t7945 - t7946 + t9747 + 0.3e1 * t3043 + 0.3e1 / 0.2e1 * t3072 + t4613 + 0.23260393291413087447e-1 * t3078 + 0.46520786582826174894e-1 * t3082 - 0.77534644304710291488e-2 * t3085 + 0.46520786582826174894e-1 * t3088 + t9754 - t4413 + t2409;
6988   t9757 = 0.24e2 * t3101;
6989   t9758 = 0.24e2 * t3103;
6990   t9760 = 0.3e1 * t3552;
6991   t9763 = 0.10986933022051895965e-2 * t3160;
6992   t9764 = 0.35089340384731224426e1 * t3165;
6993   t9765 = -0.23260393291413087447e-1 * t3096 - t4414 + t9757 - t9758 + t2817 + t7949 - t7950 - t7951 + t7952 + t7953 + t7954 + 0.77534644304710291488e-2 * t3550 + t9760 + 0.3e1 * t3553 - 0.46520786582826174894e-1 * t3556 - t9763 - t4419 - t9764;
6994   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6995     v4rho4[1] = t7967 + t7976 + t7987 + t9721 + t9734 + t9743 + t9755 + t9765;
6996 
6997   t9780 = 0.2e1 * t2837 + 0.2e1 * t2841 + t2872 - t6278 - t6279 + t6280 + t6281 + 0.65061485296689145286e-1 * t1991 + 0.31013857721884116596e-1 * t2877 + 0.62027715443768233192e-1 * t2881 - 0.11696446794910408142e1 * t3588 + 0.10337952573961372198e-1 * t3592 + 0.10337952573961372198e-1 * t2885 - 0.51689762869806860992e-2 * t3596 + 0.2e1 * t3625 + t2890 + 0.15506928860942058298e-1 * t3627 + 0.39503579405130412458e-1 * t2918 + t3629 + t3631;
6998   t9793 = 0.64e2 * t2036 + 0.120e3 * t2038 + t3693 + t7878 - t7879 + t7882 - 0.14e2 * t2715 - 0.7e1 / 0.3e1 * t2717 - t7885 + 0.70e2 / 0.3e1 * t2722 + 0.31013857721884116596e-1 * t3700;
6999   t9812 = 0.192e3 * t2124 - t7890 + 0.3e1 * t2942 + 0.4e1 * t2949 - t3702 - 0.64e2 * t2952 + 0.16e2 * t2954 + 0.15506928860942058298e-1 * t3705 + 0.15506928860942058298e-1 * t3708 + t2957 - 0.14e2 * t2959 - 0.28e2 / 0.3e1 * t2961 - 0.28e2 / 0.3e1 * t2964 - 0.7e1 / 0.3e1 * t2730 + t2732 + 0.70e2 / 0.3e1 * t2968 - 0.7e1 / 0.3e1 * t3714 - 0.14e2 / 0.3e1 * t3716 - 0.7e1 / 0.3e1 * t3719 - 0.10337952573961372198e-1 * t2972;
7000   t9829 = 0.3e1 * t2743 + t2748 + 0.15506928860942058298e-1 * t2990 - 0.10389453539625517980e3 * t2140 - 0.35089340384731224426e1 * t2142 - t7904 - t7908 + 0.70178680769462448852e1 * t2180 + 0.6e1 * t2996 - 0.31013857721884116596e-1 * t3737 - 0.10337952573961372198e-1 * t3740;
7001   t9848 = 0.31013857721884116596e-1 * t2998 + 0.6e1 * t2183 + t7911 + 0.70178680769462448852e1 * t3004 + 0.62027715443768233192e-1 * t3008 + 0.3e1 * t2756 + t2758 + 0.70e2 / 0.3e1 * t2790 - 0.14e2 * t2792 - 0.7e1 / 0.3e1 * t2796 - 0.14e2 / 0.3e1 * t2798 + 0.2e1 * t2800 - t7923 + t7924 + t7925 - 0.14e2 * t3015 + 0.31013857721884116596e-1 * t3749 + 0.15506928860942058298e-1 * t3019 + 0.31013857721884116596e-1 * t3022 - 0.8e1 * t2347;
7002   t9862 = -0.11696446794910408142e1 * t2379 - 0.16e2 * t2381 - 0.48e2 * t2383 - 0.8e1 * t2385 - t7940 + 0.14649244029402527953e-2 * t2392 - 0.36623110073506319882e-3 * t2395 + t7944 - t7945 - t7946 - 0.7e1 / 0.3e1 * t3759;
7003   t9878 = t1330 * t1330;
7004   t9889 = t3623 * t1 * t285;
7005   t9890 = 0.36623110073506319882e-3 * t9889;
7006   t9891 = t3800 * t601;
7007   t9892 = 0.24415406715670879921e-3 * t9891;
7008   t9893 = t3765 * t423;
7009   t9895 = t3692 * t423;
7010   t9897 = t751 * t1455;
7011   t9898 = 0.12e2 * t9897;
7012   t9899 = t741 * t1455;
7013   t9900 = 0.32e2 * t9899;
7014   t9904 = 0.11696446794910408142e1 * t8003;
7015   t9905 = 0.240e3 * t6318;
7016   t9906 = -t6289 + 0.31013857721884116596e-1 * t730 * t3590 * t3554 - 0.51689762869806860992e-2 * t89 * t95 * t9878 * t1063 + 0.35e2 / 0.9e1 * t6295 - 0.7e1 / 0.3e1 * t6297 - 0.7e1 / 0.3e1 * t6299 + t6304 / 0.2e1 + 0.2e1 * t7998 - t9890 + t9892 - 0.7e1 / 0.3e1 * t9893 - 0.7e1 / 0.3e1 * t9895 + t9898 - t9900 + 0.2e1 * t2836 * t4204 + t2836 * t4208 - t6316 - t9904 - t9905;
7017   t9910 = t2922 * t4195;
7018   t9929 = 0.2e1 * t6438;
7019   t9930 = 0.120e3 * t6440;
7020   t9931 = 0.31013857721884116596e-1 * t9630 * t3699 + t8009 + 0.2e1 * t8014 + t8019 - 0.7e1 / 0.3e1 * t9910 + t1125 * t1127 * t1412 * t779 * t192 / 0.2e1 - 0.28e2 / 0.3e1 * t8022 - 0.7e1 / 0.3e1 * t8024 - 0.7e1 * t8026 + t6323 - t6327 + t6330 + 0.15506928860942058298e-1 * t89 * t3080 * t1388 - 0.910e3 / 0.27e2 * t6348 + 0.70e2 / 0.9e1 * t6350 + 0.35e2 / 0.9e1 * t6355 - 0.51689762869806860992e-2 * t1093 * t1094 * t3547 + t9929 + t9930 + t8139;
7021   t9952 = t712 * t1415;
7022   t9953 = t415 * t3681;
7023   t9954 = t707 * t1415;
7024   t9956 = t707 * t1422;
7025   t9958 = t712 * t1422;
7026   t9965 = t239 * t34 * t612;
7027   t9989 = t241 * t34 * t612;
7028   t10009 = -0.28e2 / 0.81e2 * t6392 * t1375 * t609 + 0.32e2 / 0.27e2 * t2842 * t9965 + 0.4e1 / 0.27e2 * t3653 * t615 - 0.8e1 / 0.9e1 * t714 * t35 * t747 - 0.4e1 / 0.9e1 * t1103 * t612 + 0.4e1 / 0.3e1 * t1103 * t2013 + 0.4e1 / 0.27e2 * t2006 * t1379 * t609 - 0.2e1 / 0.9e1 * t714 * t3608 * t239 - t3658 * t615 / 0.9e1 + t8090 - 0.28e2 / 0.81e2 * t6411 * t1382 * t619 - 0.32e2 / 0.27e2 * t2855 * t9989 + 0.4e1 / 0.27e2 * t3663 * t622 - 0.8e1 / 0.9e1 * t719 * t35 * t747 + 0.4e1 / 0.9e1 * t1109 * t612 - 0.4e1 / 0.3e1 * t1109 * t2013 + 0.4e1 / 0.27e2 * t2020 * t1385 * t619 - 0.2e1 / 0.9e1 * t719 * t3619 * t241 - t3668 * t622 / 0.9e1 - t8078;
7029   t10016 = -0.7e1 * t8141 - 0.28e2 / 0.3e1 * t8143 - 0.28e2 / 0.3e1 * t8145 - 0.910e3 / 0.27e2 * t8148 - 0.7e1 / 0.3e1 * t8150 - 0.14e2 / 0.3e1 * t8152 - 0.28e2 / 0.3e1 * t8154 + t8156 + 0.2e1 * t1122 * t1115 * t99 * t101 * t1130 - 0.15506928860942058298e-1 * t1141 * t4182 * t736 + 0.51689762869806860992e-2 * t1093 * t1554 * t2814 * t1060 + t9952 + t9953 + t9954 / 0.2e1 + t9956 / 0.2e1 + t9958 + t727 * t1422 / 0.2e1 + t167 * t176 * t10009 * t99 * t194 / 0.2e1 + 0.2e1 * t8166;
7030   t10017 = 0.192e3 * t6460;
7031   t10018 = 0.480e3 * t6463;
7032   t10019 = 0.48e2 * t6467;
7033   t10020 = 0.96e2 * t6471;
7034   t10021 = 0.8e1 * t6473;
7035   t10022 = 0.160e3 * t6475;
7036   t10034 = t299 * t1330;
7037   t10038 = 0.20e2 * t6489;
7038   t10039 = 0.32e2 * t6491;
7039   t10044 = t460 * t1115;
7040   t10049 = t40 * t3623 * t278;
7041   t10050 = 0.2e1 * t10049;
7042   t10052 = t40 * t1454 * t907;
7043   t10053 = 0.24415406715670879921e-3 * t6806;
7044   t10054 = t10017 - t10018 + t10019 + t10020 - t10021 - t10022 + t1125 * t1127 * t1412 * t786 * t192 / 0.2e1 + t1125 * t1127 * t1419 * t786 * t192 / 0.2e1 + t4200 * t2889 - 0.31013857721884116596e-1 * t730 * t1094 * t10034 + t10038 + t10039 + t6805 + t8186 - 0.7e1 / 0.3e1 * t8188 + 0.15506928860942058298e-1 * t730 * t1137 * t2868 + 0.62027715443768233192e-1 * t1141 * t731 * t10044 + t10050 + t10052 + t10053;
7045   t10057 = t748 * t1455;
7046   t10058 = 0.20e2 * t10057;
7047   t10064 = t2922 * t4204;
7048   t10066 = t2922 * t4208;
7049   t10079 = 0.24e2 * t8241;
7050   t10080 = t10058 - 0.7e1 / 0.3e1 * t8208 + t8212 + 0.2e1 * t8214 + t6510 + t1125 * t1127 * t4202 * t3068 - 0.14e2 / 0.3e1 * t10064 - 0.7e1 / 0.3e1 * t10066 - 0.15506928860942058298e-1 * t730 * t3594 * t3554 - t6815 + 0.31013857721884116596e-1 * t8256 * t1393 - 0.28e2 / 0.3e1 * t8222 + 0.2e1 * t8226 + 0.2e1 * t8229 + 0.2e1 * t8231 + t8233 - 0.14e2 / 0.3e1 * t8237 + 0.70e2 / 0.3e1 * t8239 - t10079;
7051   t10083 = 0.20507794042015589862e4 * t8250;
7052   t10084 = 0.64e2 * t8254;
7053   t10087 = t1388 * t299;
7054   t10095 = 0.8e1 * t8265;
7055   t10096 = 0.8e1 * t8267;
7056   t10098 = t3623 * t69 * t290;
7057   t10099 = 0.11696446794910408142e1 * t10098;
7058   t10109 = t395 * t1330;
7059   t10115 = 0.62027715443768233192e-1 * t9630 * t4179 - t6821 - t10083 - t10084 + 0.140e3 / 0.9e1 * t8259 + 0.140e3 / 0.9e1 * t8261 + 0.31013857721884116596e-1 * t1141 * t731 * t10087 + t6829 - 0.77534644304710291488e-2 * t730 * t4182 * t724 - 0.910e3 / 0.27e2 * t8263 - t10095 - t10096 - t10099 + 0.15506928860942058298e-1 * t89 * t1971 * t1403 + 0.77534644304710291488e-2 * t89 * t293 * t10009 + 0.15506928860942058298e-1 * t1141 * t3703 * t736 - t6834 + t6838 + 0.20675905147922744396e-1 * t1093 * t2883 * t10109 + 0.2e1 * t4200 * t2840;
7060   t10119 = 0.58482233974552040708e0 * t6860;
7061   t10120 = 0.20507794042015589860e4 * t6862;
7062   t10121 = 0.96318892190278239603e0 * t8287;
7063   t10122 = 0.32530742648344572644e-1 * t8289;
7064   t10123 = 0.46785787179641632568e1 * t8291;
7065   t10126 = t1063 * t460;
7066   t10127 = t10126 * t3554;
7067   t10130 = 0.11696446794910408142e1 * t6864;
7068   t10131 = 0.20778907079251035960e3 * t6866;
7069   t10132 = 0.10389453539625517979e3 * t6887;
7070   t10133 = 0.70178680769462448852e1 * t6889;
7071   t10134 = t6843 + t6845 - 0.7e1 * t6847 + 0.70e2 / 0.3e1 * t6851 - t6856 - t10119 - t10120 + t10121 + t10122 + t6521 + t10123 - 0.62027715443768233192e-1 * t89 * t93 * t507 * t10127 + t10130 + t10131 - t6870 + t6874 - t6878 + t6886 - t10132 + t10133;
7072   t10139 = 0.11696446794910408142e1 * t6903;
7073   t10140 = 0.17315755899375863299e2 * t6905;
7074   t10141 = t1115 * t395;
7075   t10148 = 0.36623110073506319882e-3 * t8328;
7076   t10151 = t3091 * t4195;
7077   t10155 = t1399 * t682;
7078   t10157 = -0.15506928860942058298e-1 * t1093 * t1563 * t6309 * t1060 + t6894 - t6902 - t10139 - t10140 - t6910 - 0.31013857721884116596e-1 * t730 * t1094 * t10141 + 0.35e2 / 0.9e1 * t6945 + t6948 - t6950 - 0.7e1 / 0.3e1 * t6951 - t6956 - 0.7e1 * t6957 - t10148 + t7002 + 0.70e2 / 0.3e1 * t7003 + t2836 * t4195 + t10151 - 0.15506928860942058298e-1 * t1141 * t1963 * t1403 + 0.35e2 / 0.9e1 * t10155;
7079   t10166 = t3090 * t4199 * t1130;
7080   t10168 = 0.4e1 * t8332;
7081   t10169 = 0.2e1 * t8335;
7082   t10170 = t4167 * t397;
7083   t10174 = 0.120e3 * t8337;
7084   t10175 = 0.12e2 * t7012;
7085   t10176 = 0.8e1 * t7014;
7086   t10177 = t1115 * t1115;
7087   t10184 = t3587 * t840;
7088   t10185 = 0.58482233974552040708e0 * t10184;
7089   t10186 = t3587 * t849;
7090   t10187 = 0.17315755899375863299e2 * t10186;
7091   t10232 = 0.40e2 / 0.81e2 * t6912 * t1375 * t609 - 0.64e2 / 0.27e2 * t2892 * t9965 - 0.8e1 / 0.27e2 * t3598 * t615 + 0.32e2 / 0.9e1 * t608 * t35 * t747 + 0.16e2 / 0.9e1 * t1179 * t612 - 0.16e2 / 0.3e1 * t1179 * t2013 - 0.8e1 / 0.27e2 * t2350 * t1379 * t609 + 0.8e1 / 0.9e1 * t608 * t3608 * t239 + 0.4e1 / 0.9e1 * t3603 * t615 + t8394 + 0.40e2 / 0.81e2 * t6925 * t1382 * t619 + 0.64e2 / 0.27e2 * t2904 * t9989 - 0.8e1 / 0.27e2 * t3611 * t622 + 0.32e2 / 0.9e1 * t618 * t35 * t747 - 0.16e2 / 0.9e1 * t1185 * t612 + 0.16e2 / 0.3e1 * t1185 * t2013 - 0.8e1 / 0.27e2 * t2359 * t1385 * t619 + 0.8e1 / 0.9e1 * t618 * t3619 * t241 + 0.4e1 / 0.9e1 * t3616 * t622 - t8409;
7092   t10233 = t10232 * t53;
7093   t10235 = 0.19751789702565206229e-1 * t10233 * t79;
7094   t10236 = 0.48e2 * t8347;
7095   t10237 = 0.23392893589820816284e1 * t8350;
7096   t10238 = 0.11696446794910408142e1 * t8352;
7097   t10239 = t1125 * t1127 * t3678 * t438 * t192 + 0.2e1 * t10166 + t10168 + t10169 + 0.15506928860942058298e-1 * t730 * t10170 * t299 + t10174 + t10175 - t10176 + 0.31013857721884116596e-1 * t89 * t735 * t10177 + 0.31013857721884116596e-1 * t730 * t2875 * t1115 - t10185 - t10187 + t10235 + t6596 - t10236 - t7019 - t10237 - t10238 - t6601;
7098   t10240 = 0.43374323531126096858e-1 * t8360;
7099   t10241 = 0.65061485296689145288e-1 * t8362;
7100   t10246 = t420 * t3713;
7101   t10249 = t179 * t759 * t3680;
7102   t10252 = t40 * t10233 * t81;
7103   t10253 = 0.80e2 * t8423;
7104   t10256 = t1122 * t4198 * t305 * t1130;
7105   t10260 = t1454 * t4 * t605;
7106   t10261 = 0.10843580882781524214e-1 * t10260;
7107   t10262 = t3587 * t911;
7108   t10263 = 0.11696446794910408142e1 * t10262;
7109   t10268 = 0.24e2 * t8429;
7110   t10275 = t6605 + t10240 - t10241 + 0.140e3 / 0.9e1 * t8364 - 0.14e2 / 0.3e1 * t8366 + t7020 / 0.2e1 - 0.14e2 / 0.3e1 * t7024 - 0.7e1 / 0.3e1 * t10246 - 0.7e1 / 0.3e1 * t10249 + t10252 + t10253 - 0.14e2 / 0.3e1 * t10256 + t4200 * t2928 + t10261 + t10263 - 0.51689762869806860992e-2 * t1093 * t4167 * t1063 * t395 - t6614 - t10268 - 0.31013857721884116596e-1 * t730 * t2970 * t3735 + 0.77534644304710291488e-2 * t730 * t3703 * t724;
7111   t10277 = t163 * t3673;
7112   t10290 = 0.43374323531126096858e-1 * t8489;
7113   t10291 = 0.43374323531126096856e-1 * t7054;
7114   t10292 = 0.10843580882781524214e-1 * t7067;
7115   t10293 = 0.96318892190278239598e0 * t7069;
7116   t10294 = 0.32530742648344572642e-1 * t7071;
7117   t10295 = 0.70178680769462448852e1 * t7076;
7118   t10297 = t179 * t2788 * t1414;
7119   t10299 = t514 * t3074;
7120   t10302 = t179 * t2788 * t1421;
7121   t10304 = 0.31013857721884116596e-1 * t1141 * t10277 * t299 + 0.62027715443768233192e-1 * t1141 * t1137 * t8308 + 0.31013857721884116596e-1 * t1141 * t1137 * t8178 + 0.15506928860942058298e-1 * t730 * t8296 * t460 + t7047 - t10290 + t7050 + t7053 - t10291 - t7058 - t7061 + t7065 + t10292 + t10293 + t10294 + t7075 - t10295 + 0.35e2 / 0.9e1 * t10297 + 0.70e2 / 0.9e1 * t10299 + 0.35e2 / 0.9e1 * t10302;
7122   t10305 = t415 * t3713;
7123   t10307 = t420 * t3718;
7124   t10309 = 0.64e2 * t7081;
7125   t10310 = 0.24e2 * t7088;
7126   t10311 = 0.24e2 * t7093;
7127   t10312 = t460 * t1060;
7128   t10316 = 0.97661626862683519686e-3 * t8500;
7129   t10317 = t192 * t1347;
7130   t10327 = t514 * t2963;
7131   t10329 = t1100 * t1359;
7132   t10331 = t1118 * t1359;
7133   t10333 = 0.70178680769462448852e1 * t8502;
7134   t10334 = t6632 - 0.7e1 / 0.3e1 * t10305 - 0.7e1 / 0.3e1 * t10307 + t10309 - t10310 + t6635 - t10311 - t6638 + 0.31013857721884116596e-1 * t730 * t2883 * t10312 + t10316 + 0.2e1 * t1125 * t1127 * t1128 * t10317 + 0.15506928860942058298e-1 * t1141 * t1967 * t1403 + t1399 * t789 / 0.2e1 - 0.14e2 / 0.3e1 * t10327 - 0.14e2 / 0.3e1 * t10329 - 0.14e2 / 0.3e1 * t10331 - t6644 + t6658 - t10333 + t9597;
7135   t10338 = 0.70178680769462448852e1 * t8506;
7136   t10339 = t234 * t3805;
7137   t10340 = 0.8e1 * t10339;
7138   t10341 = 0.24e2 * t7107;
7139   t10346 = 0.10389453539625517980e3 * t8508;
7140   t10348 = t3091 * t4204;
7141   t10350 = t3091 * t4208;
7142   t10351 = -0.7e1 / 0.3e1 * t9605 + t7106 + t10338 - t10340 - t10341 + t9611 + 0.2e1 * t9613 + 0.2e1 * t9615 - 0.7e1 / 0.3e1 * t9617 + 0.70e2 / 0.3e1 * t9621 - t10346 + 0.140e3 / 0.9e1 * t9624 + 0.2e1 * t10348 + t10350 + t6677 - t6698 - t6702 - t6717 + t6737;
7143   t10352 = 0.32e2 * t8511;
7144   t10353 = 0.2e1 * t8516;
7145   t10381 = t1495 * t968;
7146   t10385 = t1326 * t1326;
7147   t10394 = t97 * t1250;
7148   t10406 = -0.55636233534648050268e1 * t97 * t8438 * t503 + 0.11127246706929610054e2 * t1261 * t968 * t4163 * t391 + 0.66763480241577660320e2 * t1261 * t7477 * t1502 * t970 - 0.16690870060394415080e2 * t1261 * t2501 * t1550 * t970 + 0.55636233534648050268e1 * t97 * t10381 * t970 + 0.11127246706929610054e2 * t97 * t969 * t10385 + 0.22254493413859220108e2 * t3977 * t3346 - 0.55636233534648050268e1 * t97 * t1254 * t3543 + 0.22254493413859220108e2 * t10394 * t1263 - 0.33381740120788830162e2 * t3977 * t3342 - 0.33381740120788830160e2 * t3335 * t3987 + 0.11127246706929610054e2 * t1261 * t1262 * t3543 + 0.22254493413859220108e2 * t3335 * t3990;
7149   t10416 = t132 * t1476;
7150   t10420 = t7434 * t1427;
7151   t10422 = t822 * t3880;
7152   t10424 = t3878 * t736;
7153   t10425 = t2076 * t10424;
7154   t10428 = t822 * t3884;
7155   t10430 = t822 * t3889;
7156   t10433 = t1434 * t814 * t118;
7157   t10434 = t153 * t10433;
7158   t10437 = t822 * t3896;
7159   t10439 = t1403 * t814;
7160   t10440 = t10439 * t118;
7161   t10441 = t2076 * t10440;
7162   t10444 = t822 * t3901;
7163   t10446 = t1388 * t814;
7164   t10447 = t10446 * t118;
7165   t10448 = t826 * t10447;
7166   t10451 = t3912 * t736;
7167   t10452 = t2076 * t10451;
7168   t10456 = t1476 * t814 * t118;
7169   t10457 = t153 * t10456;
7170   t10471 = t132 * t1434;
7171   t10475 = 0.65198711173415683908e0 * t8749 * t1487 * t828 - 0.21732903724471894636e0 * t3109 * t481 * t3271 - 0.10866451862235947318e0 * t3109 * t1491 * t828 + 0.21732903724471894636e-1 * t3211 * t10416 * t828 + 0.35e2 / 0.72e2 * t10420 - 0.10142021738086884164e0 * t10422 - 0.54332259311179736590e-1 * t319 * t10425 + 0.50710108690434420820e-1 * t10428 + 0.25355054345217210410e-1 * t10430 - 0.27166129655589868296e-2 * t319 * t10434 + 0.50710108690434420818e0 * t10437 - 0.54332259311179736590e-1 * t319 * t10441 - 0.10142021738086884163e0 * t10444 + 0.10866451862235947318e-1 * t319 * t10448 - 0.54332259311179736590e-1 * t319 * t10452 - 0.27166129655589868296e-2 * t319 * t10457 - 0.86931614897887578544e-1 * t3217 * t8927 * t3770 - 0.86931614897887578544e-1 * t3217 * t3212 * t816 * t1115 * t328 + 0.43465807448943789273e-1 * t3211 * t3212 * t3252 + 0.21732903724471894636e-1 * t3211 * t10471 * t828;
7172   t10479 = t943 * t1488;
7173   t10483 = t8632 * t3941;
7174   t10485 = t8681 * t3944;
7175   t10490 = t118 * t1115;
7176   t10512 = t3784 * t736;
7177   t10517 = t1164 * t3202;
7178   t10518 = t153 * t10517;
7179   t10521 = t822 * t3919;
7180   t10523 = t3842 * t118;
7181   t10524 = t10523 * t299;
7182   t10525 = t826 * t10524;
7183   t10528 = t3912 * t724;
7184   t10529 = t826 * t10528;
7185   t10533 = t3842 * t328 * t118;
7186   t10534 = t153 * t10533;
7187   t10538 = t1476 * t930 * t118;
7188   t10539 = t153 * t10538;
7189   t10542 = 0.21732903724471894636e-1 * t3211 * t3212 * t3276 + 0.43465807448943789272e-1 * t3211 * t3212 * t3271 - 0.43465807448943789273e-1 * t3217 * t10416 * t3218 - 0.32599355586707841954e0 * t1239 * t3306 * t10512 + 0.20284043476173768328e0 * t8587 + 0.10866451862235947318e-1 * t813 * t10518 + 0.25355054345217210410e-1 * t10521 + 0.21732903724471894636e-1 * t319 * t10525 + 0.10866451862235947318e-1 * t319 * t10529 - 0.54332259311179736592e-2 * t319 * t10534 - 0.27166129655589868296e-2 * t319 * t10539;
7190   t10545 = t822 * t3845;
7191   t10547 = t3006 * t1115;
7192   t10557 = t1426 * t736;
7193   t10563 = t342 * t132 * t10009;
7194   t10566 = t3143 * t3786;
7195   t10568 = t3784 * t724;
7196   t10572 = t3143 * t3791;
7197   t10574 = t3789 * t724;
7198   t10580 = t2453 * t3923;
7199   t10582 = t2453 * t3927;
7200   t10584 = t7256 * t10547;
7201   t10587 = t10439 * t816;
7202   t10588 = t2076 * t10587;
7203   t10591 = -0.10866451862235947318e-1 * t126 * t10563 - 0.50710108690434420817e0 * t10566 + 0.54332259311179736590e-1 * t1239 * t1240 * t10568 + 0.30426065214260652490e1 * t10572 - 0.32599355586707841954e0 * t1239 * t3306 * t10574 + 0.25355054345217210410e-1 * t8694 + 0.30426065214260652492e1 * t8696 + 0.20284043476173768328e0 * t10580 - 0.10142021738086884164e0 * t10582 - 0.13039742234683136782e1 * t1239 * t10584 + 0.10866451862235947318e0 * t813 * t10588;
7204   t10593 = t10446 * t816;
7205   t10594 = t826 * t10593;
7206   t10597 = t3862 * t814;
7207   t10598 = t153 * t10597;
7208   t10601 = t3867 * t814;
7209   t10602 = t153 * t10601;
7210   t10605 = t1476 * t2112;
7211   t10606 = t10605 * t814;
7212   t10607 = t153 * t10606;
7213   t10610 = t3857 * t814;
7214   t10611 = t153 * t10610;
7215   t10615 = t1434 * t7214 * t814;
7216   t10616 = t153 * t10615;
7217   t10619 = t822 * t3914;
7218   t10622 = t1434 * t930 * t118;
7219   t10623 = t153 * t10622;
7220   t10627 = t1403 * t930 * t118;
7221   t10628 = t2076 * t10627;
7222   t10632 = t1388 * t930 * t118;
7223   t10633 = t826 * t10632;
7224   t10637 = t8785 * t460;
7225   t10638 = t826 * t10637;
7226   t10641 = t3878 * t724;
7227   t10642 = t826 * t10641;
7228   t10645 = t1171 * t3202;
7229   t10646 = t153 * t10645;
7230   t10649 = t2453 * t3859;
7231   t10651 = t7223 * t3864;
7232   t10654 = t3842 * t816 * t328;
7233   t10655 = t153 * t10654;
7234   t10658 = t3857 * t930;
7235   t10659 = t153 * t10658;
7236   t10662 = t3862 * t930;
7237   t10663 = t153 * t10662;
7238   t10666 = t3867 * t930;
7239   t10667 = t153 * t10666;
7240   t10671 = t3673 * t328 * t118;
7241   t10672 = t826 * t10671;
7242   t10679 = 0.21732903724471894636e-1 * t319 * t10638 + 0.10866451862235947318e-1 * t319 * t10642 - 0.54332259311179736592e-2 * t319 * t10646 - 0.50710108690434420820e-1 * t10649 + 0.15213032607130326246e0 * t10651 + 0.10866451862235947318e-1 * t813 * t10655 + 0.54332259311179736592e-2 * t813 * t10659 - 0.16299677793353920978e-1 * t2109 * t10663 + 0.16299677793353920977e-1 * t813 * t10667 + 0.21732903724471894636e-1 * t319 * t10672 - 0.43465807448943789272e-1 * t3217 * t3212 * t3769 * t930;
7243   t10690 = t2112 * t460;
7244   t10715 = t950 * t132 * t10177;
7245   t10718 = t943 * t1492;
7246   t10721 = 0.50710108690434420820e-1 * t8728 - 0.10142021738086884164e0 * t8730 - 0.50710108690434420820e-1 * t8732 + 0.11494291303165135386e1 * t8734 - 0.28735728257912838464e0 * t8736 + 0.15213032607130326246e0 * t8738 - 0.15213032607130326246e0 * t8740 + 0.10866451862235947318e0 * t126 * t10715 - 0.28735728257912838463e0 * t10718 + 0.7e1 / 0.6e1 * t8742 + t7355;
7247   t10723 = t2453 * t3869;
7248   t10725 = t3867 * t724;
7249   t10726 = t826 * t10725;
7250   t10730 = t1430 * t736;
7251   t10734 = t1426 * t724;
7252   t10738 = t464 * t2868;
7253   t10742 = t2098 * t3960;
7254   t10744 = t3933 * t299;
7255   t10748 = t1430 * t724;
7256   t10752 = t3867 * t736;
7257   t10753 = t2076 * t10752;
7258   t10757 = t2457 * t1442;
7259   t10759 = t3251 * t1115;
7260   t10760 = t826 * t10759;
7261   t10763 = t1171 * t2868;
7262   t10764 = t826 * t10763;
7263   t10767 = t3789 * t736;
7264   t10771 = t2457 * t1483;
7265   t10773 = t7396 * t1437;
7266   t10775 = t3143 * t3781;
7267   t10785 = t1219 * t1219;
7268   t10786 = t6 * t10785;
7269   t10787 = t10786 * t816;
7270   t10794 = 0.57471456515825676924e0 * t10757 + 0.43465807448943789272e-1 * t319 * t10760 + 0.21732903724471894636e-1 * t319 * t10764 + 0.22819548910695489368e1 * t1239 * t8572 * t10767 - 0.71839320644782096162e-1 * t10771 + 0.14367864128956419232e0 * t10773 - 0.10142021738086884164e1 * t10775 + 0.13039742234683136782e0 * t8675 * t10471 * t8640 * t299 - 0.65198711173415683910e-1 * t8639 * t3212 * t8640 * t1219 + 0.10866451862235947318e-1 * t813 * t152 * t10787 + 0.21732903724471894636e-1 * t3211 * t3212 * t3294;
7271   t10801 = t8937 * t3771;
7272   t10811 = t6 * t3673 * t299;
7273   t10816 = t1241 * t2868;
7274   t10820 = t2457 * t1479;
7275   t10822 = t337 * t3948;
7276   t10827 = t822 * t3905;
7277   t10829 = t822 * t3909;
7278   t10831 = t3212 * t3478;
7279   t10834 = t3769 * t3462;
7280   t10835 = t3212 * t10834;
7281   t10845 = -t6289 - t9890 + t9892 + t9898 - t9900 - t6316 - t9904 - t9905 + t6323 - t6327 + t6330 + t9929 + t9930 + t10017 - t10018 + t10019 + t10020;
7282   t10846 = -t10021 - t10022 + t10038 + t10039 + t6805 + t10050 + t10052 + t10053 + t10058 + t6510 - t6815 - t10079 - t6821 - t10083 - t10084 + t6829 - t10095 - t10096;
7283   t10848 = -t10099 - t6834 + t6838 - t6856 - t10119 - t10120 + t10121 + t10122 + t6521 + t10123 + t10130 + t10131 - t6870 + t6874 - t6878 + t6886 - t10132;
7284   t10849 = t10133 + t6894 - t6902 - t10139 - t10140 - t6910 - t10148 + t10168 + t10169 + t10174 + t10175 - t10176 - t10185 - t10187 + t10235 + t6596 - t10236 - t7019;
7285   t10852 = -t10237 - t10238 - t6601 + t6605 + t10240 - t10241 + t10252 + t10253 + t10261 + t10263 - t6614 - t10268 - t10290 + t7050 + t7053 - t10291 - t7058;
7286   t10853 = -t7061 + t7065 + t10292 + t10293 + t10294 + t7075 - t10295 + t6632 + t10309 - t10310 + t6635 - t10311 - t6638 + t10316 - t6644 + t6658 - t10333 + t7106;
7287   t10855 = 0.8e1 * t8519;
7288   t10856 = t10338 - t10340 - t10341 - t10346 + t6677 - t6698 - t6702 - t6717 + t6737 - t10352 + t10353 + t7115 - t6740 - t6748 + t6756 + t7124 + t10855;
7289   t10857 = 0.48e2 * t8521;
7290   t10858 = 0.96e2 * t8523;
7291   t10859 = 0.160e3 * t8525;
7292   t10860 = 0.240e3 * t8527;
7293   t10861 = 0.20778907079251035960e3 * t8529;
7294   t10862 = 0.69263023597503453200e2 * t8531;
7295   t10863 = t229 * t3624;
7296   t10864 = 0.8e1 * t10863;
7297   t10865 = t229 * t3805;
7298   t10866 = 0.8e1 * t10865;
7299   t10867 = 0.11393856467313077297e-2 * t8533;
7300   t10868 = 0.11393856467313077296e-2 * t7145;
7301   t10869 = 0.8e1 * t7147;
7302   t10870 = t234 * t3624;
7303   t10871 = 0.8e1 * t10870;
7304   t10872 = 0.65061485296689145286e-1 * t7152;
7305   t10873 = -t10857 + t10858 + t10859 - t10860 + t10861 - t10862 + t10864 + t10866 + t7144 - t10867 - t10868 - t10869 - t10871 + t7150 - t10872 - t7156 - t7160 + t7163;
7306   t10902 = 0.77384762048047407030e3 * t1206 * t3199 - 0.61907809638437925624e4 * t8557 * t1 * t1213 + 0.38692381024023703515e3 * t3814 * t927 - 0.12897460341341234505e3 * (t10845 + t10846 + t10848 + t10849 + t10852 + t10853 + t10856 + t10873) * t112 * t115 - 0.30953904819218962812e4 * t3183 * t3836 - 0.46430857228828444218e5 * t8446 * t3826 * t736 - 0.30953904819218962812e4 * t1211 * t1212 * t2868 - 0.30953904819218962812e4 * t923 * t115 * t10177 + 0.77384762048047407030e3 * t920 * t3839 - 0.61907809638437925624e4 * t3819 * t3193 - 0.30953904819218962812e4 * t3819 * t3196 + 0.77384762048047407030e4 * t3188 * t3826 * t724 + 0.38692381024023703515e3 * t2420 * t1473;
7307   t10916 = t8466 * t1;
7308   t10919 = t1464 * t341;
7309   t10922 = t3810 * t129;
7310   t10938 = 0.77384762048047407030e3 * t8560 * t472 + 0.15476952409609481406e5 * t8479 * t3827 - 0.30953904819218962812e4 * t1211 * t114 * t3673 * t299 - 0.15476952409609481406e4 * t1211 * t3835 * t724 + 0.15476952409609481406e4 * t3173 * t1216 + 0.15476952409609481406e5 * t10916 * t3189 - 0.15476952409609481406e4 * t10919 * t924 + 0.77384762048047407030e3 * t10922 * t325 - 0.15476952409609481406e4 * t7174 * t1470 + 0.38692381024023703515e3 * t324 * t115 * t10009 - 0.61907809638437925624e4 * t3183 * t3830 + 0.77384762048047407030e4 * t3188 * t3835 * t736 + 0.30953904819218962812e5 * t3188 * t1212 * t8308;
7311   t10939 = t10902 + t10938;
7312   t10941 = t6 * t10939 * t118;
7313   t10945 = 0.10866451862235947318e0 * t1239 * t1240 * t10816 - 0.71839320644782096162e-1 * t10820 + 0.10142021738086884163e0 * t10822 + 0.95785760859709461550e0 * t7389 + 0.14367864128956419232e0 * t7397 - 0.71839320644782096162e-1 * t7399 - 0.20284043476173768326e0 * t10827 - 0.20284043476173768326e0 * t10829 - 0.21732903724471894636e0 * t3109 * t10831 + 0.43465807448943789272e0 * t8753 * t10835 - 0.27166129655589868296e-2 * t319 * t152 * t10941;
7314   t10951 = t2479 * t1431;
7315   t10955 = t10786 * t118;
7316   t10959 = t799 * t3934;
7317   t10961 = t7421 * t3952;
7318   t10963 = t2098 * t3956;
7319   t10981 = 0.35e2 / 0.72e2 * t7435 + 0.455e3 / 0.324e3 * t7442 - 0.35e2 / 0.216e3 * t7444 + t7449 + 0.25355054345217210410e-1 * t8885 + 0.57471456515825676929e0 * t8887 + 0.10142021738086884164e0 * t8904 - 0.7e1 / 0.12e2 * t8910 - 0.11494291303165135386e1 * t8916 + 0.95785760859709461547e0 * t8918 + 0.40568086952347536656e0 * t8938;
7320   t10991 = t3966 * t352;
7321   t11004 = t1026 * t4070;
7322   t11012 = t1006 * t4067;
7323   t11014 = t1006 * t4061;
7324   t11016 = t1006 * t4064;
7325   t11021 = t1044 * t4058;
7326   t11029 = t1044 * t4052;
7327   t11031 = t1044 * t4055;
7328   t11036 = 0.39968692203635596514e1 * t7494 - 0.52158968938732547127e0 * t987 * t2523 * t10627 + 0.10658317920969492404e2 * t7509 - 0.79937384407271193028e0 * t7511 + 0.14106597248341975240e0 * t11004 - 0.20863587575493018851e1 * t369 * t3450 * t10730 + 0.10431793787746509426e2 * t369 * t9236 * t10557 - 0.24340852171408521992e1 * t11012 + 0.97363408685634087970e1 * t11014 - 0.48681704342817043984e1 * t11016 - 0.20863587575493018851e1 * t369 * t3450 * t10734 - 0.14106597248341975240e1 * t11021 + 0.30228422675018518372e0 * t388 * t1319 * t10811 + 0.15114211337509259186e0 * t388 * t1319 * t10568 + 0.84639583490051851442e1 * t11029 - 0.28213194496683950480e1 * t11031 - 0.90685268025055555116e0 * t388 * t3444 * t10574;
7329   t11046 = t3413 * t4153;
7330   t11048 = t3413 * t4150;
7331   t11050 = t2558 * t4107;
7332   t11052 = t2558 * t4110;
7333   t11059 = t2558 * t4119;
7334   t11067 = t1171 * t8308;
7335   t11071 = t1171 * t8178;
7336   t11075 = t3228 * t3939;
7337   t11079 = t3233 * t3939;
7338   t11083 = 0.30228422675018518372e0 * t388 * t1319 * t10816 + 0.34772645959155031418e0 * t987 * t989 * t10524 - 0.52158968938732547127e0 * t987 * t2523 * t10440 - 0.16227234780939014662e1 * t11046 + 0.16227234780939014662e1 * t11048 - 0.81136173904695073308e0 * t11050 + 0.40568086952347536654e0 * t11052 + 0.17386322979577515709e0 * t987 * t989 * t10641 - 0.15114211337509259186e-1 * t1030 * t10457 + 0.40568086952347536654e0 * t11059 - 0.16227234780939014662e1 * t9020 - 0.81136173904695073308e0 * t9022 + 0.90685268025055555116e-1 * t1301 * t10655 + 0.60456845350037036744e-1 * t1030 * t10448 - 0.20863587575493018850e1 * t987 * t2523 * t11067 - 0.10431793787746509425e1 * t987 * t2523 * t11071 + 0.69545291918310062836e0 * t987 * t989 * t11075 + 0.34772645959155031418e0 * t987 * t989 * t11079;
7339   t11085 = t1225 * t10490;
7340   t11089 = t3857 * t3462;
7341   t11093 = t2558 * t4046;
7342   t11095 = t3251 * t3006;
7343   t11100 = t2607 * t1517;
7344   t11102 = t983 * t4075;
7345   t11104 = t2558 * t4116;
7346   t11117 = t3402 * t3923;
7347   t11126 = 0.69545291918310062836e0 * t987 * t989 * t11085 - 0.36274107210022222046e0 * t1301 * t826 * t11089 - 0.16227234780939014662e1 * t11093 - 0.20863587575493018850e1 * t987 * t2523 * t11095 + 0.48681704342817043984e1 * t9058 - 0.67613478253912561090e0 * t11100 + 0.40568086952347536654e0 * t11102 + 0.81136173904695073308e0 * t11104 + 0.34772645959155031418e0 * t987 * t989 * t10671 - 0.30228422675018518372e0 * t1030 * t10425 + 0.10431793787746509425e1 * t1267 * t2523 * t10587 - 0.34772645959155031418e0 * t1267 * t989 * t10593 + 0.16927916698010370288e1 * t11117 + 0.12091369070007407349e0 * t1030 * t10672 + 0.11719669564011510589e2 * t9095 + 0.90685268025055555116e0 * t1301 * t10588 - 0.18137053605011111023e0 * t1301 * t10594;
7348   t11127 = t3402 * t3859;
7349   t11152 = t1164 * t3265;
7350   t11162 = t3238 * t1232;
7351   t11166 = t1164 * t3270;
7352   t11170 = -0.42319791745025925720e0 * t11127 - 0.18137053605011111023e0 * t1301 * t10726 + 0.13602790203758333267e0 * t1301 * t10611 - 0.86931614897887578546e-1 * t987 * t142 * t10538 - 0.10882232163006666614e1 * t3515 * t10598 + 0.31739843808769444290e0 * t1301 * t10602 - 0.56426388993367900960e0 * t9097 + 0.63949907525816954421e1 * t9099 - 0.52158968938732547127e0 * t3380 * t142 * t10606 + 0.52158968938732547127e0 * t1267 * t142 * t10610 + 0.90685268025055555115e0 * t9160 * t10616 - 0.18137053605011111023e0 * t3515 * t10607 - 0.10882232163006666614e1 * t1301 * t826 * t11152 - 0.86931614897887578546e-1 * t987 * t142 * t10433 + 0.27045391301565024436e1 * t7555 - 0.30228422675018518372e-1 * t1030 * t10534 - 0.13909058383662012567e1 * t1267 * t989 * t11162 - 0.13909058383662012567e1 * t1267 * t989 * t11166;
7353   t11173 = t1164 * t3275;
7354   t11186 = t10087 * t827;
7355   t11192 = t3413 * t4139;
7356   t11194 = t2558 * t4113;
7357   t11208 = -0.69545291918310062836e0 * t1267 * t989 * t11173 - 0.72548214420044444094e0 * t1301 * t826 * t11162 - 0.72548214420044444094e0 * t1301 * t826 * t11166 - 0.36274107210022222047e0 * t1301 * t826 * t11173 - 0.60456845350037036744e0 * t1030 * t2076 * t11186 + 0.90685268025055555116e-1 * t1301 * t10518 - 0.81136173904695073308e0 * t11192 - 0.81136173904695073308e0 * t11194 + 0.54090782603130048872e1 * t9110 - 0.16227234780939014662e1 * t9131 - 0.81136173904695073308e0 * t9133 + 0.81136173904695073308e0 * t9135 + 0.40568086952347536654e0 * t9140 + 0.47962430644362715816e1 * t9143 - 0.16227234780939014662e1 * t9145 - 0.17386322979577515709e0 * t987 * t142 * t10533 - 0.18137053605011111023e0 * t3515 * t10663;
7358   t11213 = t107 * t475;
7359   t11219 = t3867 * t3462;
7360   t11223 = t1164 * t3228;
7361   t11227 = t1403 * t299;
7362   t11228 = t11227 * t827;
7363   t11234 = t2558 * t4125;
7364   t11257 = 0.17386322979577515709e0 * t987 * t989 * t10447 + 0.41727175150986037701e1 * t1266 * t803 * t11213 * t10834 - 0.24340852171408521993e1 * t9167 - 0.12695937523507777716e1 * t9180 - 0.10882232163006666614e1 * t1301 * t826 * t11219 + 0.54411160815033333069e0 * t1301 * t153 * t11223 + 0.41727175150986037702e1 * t987 * t7599 * t11228 + 0.12091369070007407349e0 * t1030 * t10525 - 0.81136173904695073308e0 * t11234 - 0.52158968938732547127e0 * t987 * t2523 * t10424 + 0.24182738140014814698e0 * t1030 * t10760 + 0.12091369070007407349e0 * t1030 * t10764 - 0.13522695650782512218e1 * t7575 + 0.40568086952347536654e1 * t7579 - 0.30228422675018518372e-1 * t388 * t10563 - 0.17386322979577515709e0 * t369 * t310 * t107 * t10009 - 0.86931614897887578546e-1 * t987 * t142 * t10456 - 0.83454350301972075402e1 * t9009 * t7599 * t10547;
7365   t11265 = t7554 * t1512;
7366   t11267 = t3402 * t3927;
7367   t11269 = t299 * t1219;
7368   t11270 = t1171 * t11269;
7369   t11274 = t3887 * t3467;
7370   t11278 = t3917 * t3467;
7371   t11282 = t10044 * t827;
7372   t11297 = t2519 * t3896;
7373   t11306 = -0.52158968938732547127e0 * t987 * t2523 * t10451 + 0.34772645959155031418e0 * t1267 * t142 * t10517 + 0.27045391301565024436e1 * t11265 - 0.84639583490051851441e0 * t11267 + 0.24182738140014814698e0 * t1030 * t826 * t11270 + 0.12091369070007407349e0 * t1030 * t826 * t11274 + 0.12091369070007407349e0 * t1030 * t826 * t11278 - 0.20863587575493018850e1 * t987 * t2523 * t11282 - 0.10431793787746509425e1 * t987 * t2523 * t11186 - 0.30228422675018518372e-1 * t1030 * t10646 - 0.15114211337509259186e-1 * t1030 * t10623 - 0.30228422675018518372e0 * t1030 * t10628 + 0.60456845350037036744e-1 * t1030 * t10633 + 0.28213194496683950480e1 * t11297 - 0.36274107210022222046e1 * t9016 * t10584 + 0.28213194496683950480e0 * t9214 - 0.86931614897887578546e-1 * t987 * t142 * t10622 + 0.10658317920969492403e2 * t9220;
7374   t11313 = t125 * t950;
7375   t11320 = t1006 * t4003;
7376   t11331 = t9257 * t4144;
7377   t11336 = t3413 * t4147;
7378   t11339 = t2519 * t3909;
7379   t11341 = t2558 * t4101;
7380   t11345 = -0.54090782603130048872e1 * t9222 + 0.81136173904695073308e0 * t9226 - 0.20863587575493018850e1 * t986 * t803 * t11213 * t3478 - 0.12091369070007407349e1 * t1029 * t11313 * t10831 + 0.36274107210022222048e1 * t1300 * t11313 * t10835 + 0.81136173904695073308e0 * t11320 + 0.53291589604847462018e1 * t9232 + 0.97363408685634087968e1 * t9234 - 0.15987476881454238605e1 * t9240 - 0.52158968938732547127e0 * t3380 * t142 * t10662 + 0.52158968938732547127e0 * t1267 * t142 * t10666 + 0.24340852171408521992e1 * t11331 - 0.17386322979577515709e0 * t987 * t142 * t10645 - 0.24340852171408521992e1 * t11336 - 0.11285277798673580192e1 * t9247 - 0.11285277798673580192e1 * t11339 - 0.16227234780939014662e1 * t11341 + 0.13602790203758333267e0 * t1301 * t10667;
7381   t11349 = t2519 * t3905;
7382   t11365 = t2558 * t4104;
7383   t11369 = t2607 * t1521;
7384   t11371 = t7807 * t1533;
7385   t11373 = t2594 * t1539;
7386   t11378 = -0.11285277798673580192e1 * t11349 + 0.24340852171408521992e1 * t9258 + 0.45342634012527777558e-1 * t1301 * t10659 + 0.90685268025055555115e0 * t1301 * t10753 + 0.17386322979577515709e0 * t1267 * t142 * t10658 - 0.11285277798673580192e1 * t9269 - 0.56426388993367900960e0 * t9273 + 0.16227234780939014662e1 * t9275 - 0.34772645959155031418e0 * t1267 * t989 * t10725 - 0.16227234780939014662e1 * t11365 - 0.30228422675018518372e0 * t1030 * t10452 - 0.67613478253912561090e0 * t11369 + 0.11990607661090678954e1 * t11371 - 0.39968692203635596514e0 * t11373 + 0.53291589604847462019e1 * t7655 + 0.58598347820057552944e1 * t7659 - 0.27045391301565024436e1 * t9279;
7387   t11386 = t2594 * t1542;
7388   t11397 = t5 * t10785;
7389   t11408 = t7672 * t1508;
7390   t11414 = 0.40568086952347536654e0 * t9281 - 0.24340852171408521992e1 * t9293 + 0.14106597248341975240e0 * t9307 + 0.15987476881454238605e2 * t9309 - 0.48681704342817043984e1 * t9314 + 0.84639583490051851440e1 * t9316 - 0.31974953762908477210e1 * t9333 - 0.39968692203635596514e0 * t11386 - 0.30228422675018518372e-1 * t378 * t379 * t10955 + 0.63479687617538888581e1 * t388 * t9318 * t10767 - 0.67613478253912561090e0 * t7664 + 0.13522695650782512218e1 * t7673 - 0.39968692203635596514e0 * t7683 + 0.34772645959155031418e0 * t976 * t358 * t11397 * t816 - 0.90685268025055555116e0 * t388 * t3444 * t10512 + 0.90685268025055555116e-1 * t1021 * t379 * t10787 + 0.13522695650782512218e1 * t11408 - 0.17386322979577515709e0 * t356 * t358 * t11397 * t118;
7391   t11420 = t9417 * t3864;
7392   t11426 = t3402 * t3869;
7393   t11454 = 0.33855833396020740576e1 * t9341 - 0.42319791745025925720e0 * t9350 + 0.12091369070007407349e0 * t1030 * t10638 + 0.16927916698010370288e1 * t11420 + 0.34772645959155031418e0 * t1267 * t142 * t10654 - 0.56426388993367900960e0 * t9354 - 0.12695937523507777716e1 * t11426 - 0.15114211337509259186e-1 * t1030 * t10434 - 0.30228422675018518372e0 * t1030 * t10441 + 0.17386322979577515709e0 * t987 * t989 * t10632 - 0.11285277798673580192e1 * t9371 - 0.86931614897887578546e-1 * t356 * t358 * t5 * t10939 * t118 + 0.10431793787746509425e1 * t369 * t1291 * t10744 + 0.52158968938732547127e0 * t369 * t1291 * t10748 - 0.15114211337509259186e-1 * t378 * t379 * t10941 + 0.10431793787746509425e1 * t369 * t1291 * t10738 + 0.11719669564011510589e2 * t7703;
7394   t11460 = t2570 * t1530;
7395   t11462 = t2582 * t1492;
7396   t11464 = t2570 * t1526;
7397   t11466 = t2582 * t1488;
7398   t11488 = t3402 * t4098;
7399   t11490 = 0.32454469561878029324e1 * t9391 + 0.56426388993367900960e1 * t9407 - 0.69545291918310062836e0 * t1267 * t989 * t11089 - 0.13522695650782512218e1 * t11460 - 0.79937384407271193027e0 * t11462 + 0.40568086952347536653e1 * t11464 + 0.39968692203635596514e1 * t11466 + 0.30228422675018518372e0 * t388 * t10715 + 0.34772645959155031418e0 * t987 * t989 * t10763 + 0.34772645959155031418e0 * t987 * t989 * t10637 + 0.31974953762908477212e1 * t7709 + 0.69545291918310062836e0 * t987 * t989 * t10759 + 0.10431793787746509425e1 * t369 * t802 * t107 * t10177 + 0.16927916698010370288e1 * t9415 + 0.16927916698010370288e1 * t9418 + 0.40568086952347536654e0 * t9420 - 0.84639583490051851440e0 * t9425 + 0.33855833396020740578e1 * t11488;
7400   t11493 = t3413 * t4095;
7401   t11495 = t3281 * t3939;
7402   t11499 = t1171 * t9377;
7403   t11509 = t2519 * t4035;
7404   t11511 = t2519 * t4040;
7405   t11519 = t3256 * t3228;
7406   t11523 = t3862 * t3462;
7407   t11539 = t1225 * t3251;
7408   t11544 = 0.32454469561878029324e1 * t11493 + 0.12091369070007407349e0 * t1030 * t826 * t11495 + 0.36274107210022222047e1 * t1030 * t7256 * t11499 + 0.34772645959155031418e0 * t987 * t989 * t11495 + 0.41727175150986037700e1 * t987 * t7599 * t11499 + 0.56426388993367900962e1 * t11509 - 0.11285277798673580192e1 * t11511 - 0.12091369070007407349e1 * t1030 * t2076 * t11095 - 0.12091369070007407349e1 * t1030 * t2076 * t11067 - 0.72548214420044444092e0 * t3515 * t153 * t11519 + 0.20863587575493018850e1 * t3380 * t989 * t11523 - 0.20863587575493018850e1 * t3380 * t142 * t11519 - 0.20863587575493018851e1 * t1267 * t989 * t11219 + 0.20863587575493018851e1 * t1267 * t142 * t11223 + 0.14509642884008888818e1 * t3515 * t826 * t11523 - 0.60456845350037036744e-1 * t1030 * t153 * t11539 - 0.81136173904695073308e0 * t9443;
7409   t11555 = t7708 * t1442;
7410   t11557 = t1044 * t3948;
7411   t11559 = t2558 * t4122;
7412   t11561 = t2519 * t3901;
7413   t11575 = -0.27045391301565024436e1 * t9449 + 0.16227234780939014662e2 * t9459 - 0.28213194496683950480e1 * t9464 - 0.14106597248341975240e1 * t9466 + 0.54090782603130048872e1 * t9474 + 0.14106597248341975240e0 * t9476 + 0.63949907525816954422e1 * t9478 + 0.28213194496683950480e1 * t9480 + 0.28213194496683950480e0 * t9482 + 0.58598347820057552945e1 * t9488 + 0.31974953762908477212e1 * t11555 + 0.28213194496683950480e0 * t11557 + 0.24340852171408521992e1 * t11559 - 0.56426388993367900961e0 * t11561 + 0.20863587575493018851e1 * t9367 * t142 * t10615 - 0.31295381363239528276e1 * t3380 * t142 * t10597 + 0.17386322979577515709e0 * t987 * t989 * t10528 + 0.12170426085704260996e1 * t1267 * t142 * t10601;
7414   t11577 = t1164 * t11269;
7415   t11584 = t2519 * t3914;
7416   t11586 = t2519 * t3919;
7417   t11592 = t2519 * t3880;
7418   t11594 = t2519 * t3884;
7419   t11596 = t2519 * t3889;
7420   t11619 = t2558 * t4043;
7421   t11621 = -0.13909058383662012567e1 * t1267 * t989 * t11577 + 0.10431793787746509425e1 * t1267 * t2523 * t10752 - 0.56426388993367900961e0 * t11584 + 0.14106597248341975240e0 * t11586 + 0.60456845350037036744e-1 * t1030 * t10529 - 0.15114211337509259186e-1 * t1030 * t10539 - 0.56426388993367900961e0 * t11592 + 0.28213194496683950480e0 * t11594 + 0.14106597248341975240e0 * t11596 + 0.60456845350037036744e-1 * t1030 * t10642 + 0.36274107210022222046e1 * t1030 * t7256 * t11228 - 0.12091369070007407349e1 * t1030 * t2076 * t11282 - 0.60456845350037036745e0 * t1030 * t2076 * t11071 + 0.24182738140014814698e0 * t1030 * t826 * t11075 + 0.12091369070007407349e0 * t1030 * t826 * t11079 + 0.24182738140014814698e0 * t1030 * t826 * t11085 - 0.16227234780939014662e1 * t9520 + 0.48681704342817043985e1 * t11619;
7422   t11637 = t3256 * t3265;
7423   t11655 = -0.72548214420044444092e0 * t1301 * t826 * t11577 - 0.34772645959155031418e0 * t987 * t142 * t11539 + 0.69545291918310062836e0 * t987 * t989 * t11270 + 0.34772645959155031418e0 * t987 * t989 * t11274 + 0.34772645959155031418e0 * t987 * t989 * t11278 + 0.20863587575493018851e1 * t3380 * t989 * t11637 - 0.20863587575493018851e1 * t1267 * t989 * t11152 + 0.14509642884008888819e1 * t3515 * t826 * t11637 - 0.39968692203635596514e0 * t7778 - 0.67613478253912561090e0 * t7782 + 0.11990607661090678954e1 * t7808 + t7813 + t7816 - 0.81136173904695073308e0 * t9545 + 0.54090782603130048872e1 * t9548 + 0.24340852171408521992e1 * t9550 - 0.15987476881454238605e1 * t9552 + 0.14106597248341975240e0 * t9554;
7424   t11672 = t391 * t1326;
7425   t11687 = 0.27818116767324025134e1 * t97 * (0.38314304343883784619e1 * t8876 - 0.28735728257912838464e0 * t8878 - 0.35e2 / 0.54e2 * t8874 - 0.10142021738086884164e0 * t8858 - 0.20284043476173768328e0 * t8856 + 0.25355054345217210410e-1 * t8841 - 0.10142021738086884164e0 * t8835 + 0.50710108690434420820e0 * t8829 + 0.11494291303165135386e1 * t8827 - 0.10142021738086884164e0 * t8780 + 0.35e2 / 0.18e2 * t8724 - 0.20284043476173768328e0 * t8726 - 0.7e1 / 0.24e2 * t8710 + 0.7e1 / 0.72e2 * t8692 + 0.455e3 / 0.324e3 * t8686 - 0.20284043476173768328e0 * t8682 + 0.57471456515825676929e1 * t8656 - 0.10142021738086884164e1 * t8658 - 0.50710108690434420820e0 * t8660 + 0.10142021738086884164e1 * t8633 + 0.14367864128956419232e1 * t7379 - 0.71839320644782096162e-1 * t7346 + 0.57471456515825676930e0 * t7294 - 0.28735728257912838465e0 * t7234 + 0.38314304343883784620e1 * t7232 + t10679 - 0.21732903724471894636e0 * t3109 * t3212 * t10490 * t299 - 0.10866451862235947318e0 * t3109 * t3212 * t3939 * t724 - 0.86931614897887578546e-1 * t3217 * t3212 * t9205 * t1219 + 0.13039742234683136782e0 * t8675 * t3212 * t10690 * t814 + 0.65198711173415683908e0 * t8749 * t3212 * t3939 * t736 + t803 * t312 * t5 * t10177 / 0.8e1 - t311 * t312 * t5 * t10009 / 0.48e2 - 0.35e2 / 0.216e3 * t10951 + t10475 + 0.25355054345217210410e-1 * t10545 + 0.7e1 / 0.6e1 * t10961 - 0.7e1 / 0.12e2 * t10963 - t2102 * t312 * t10734 / 0.4e1 + t803 * t312 * t10738 / 0.8e1 + t803 * t312 * t10744 / 0.8e1 + t803 * t312 * t10748 / 0.16e2 + 0.10866451862235947318e0 * t1239 * t1240 * t10811 - 0.54332259311179736592e-2 * t319 * t152 * t10955 + t10945 - 0.15213032607130326246e0 * t10723 + t10542 + t10721 + t10981 - 0.7e1 / 0.24e2 * t10742 + 0.14367864128956419232e1 * t10479 + 0.40568086952347536653e0 * t10801 + 0.7e1 / 0.72e2 * t10959 + t10794 - 0.10866451862235947318e-1 * t8608 * t3212 * t3229 - 0.21732903724471894636e0 * t3109 * t8927 * t3940 + 0.43465807448943789272e-1 * t3211 * t8927 * t1233 - t8650 * t107 * t10547 + 0.5e1 / 0.4e1 * t7425 * t312 * t10557 - 0.13039742234683136782e0 * t3217 * t3212 * t3266 - 0.13039742234683136782e0 * t3217 * t10471 * t3218 + 0.65198711173415683908e-1 * t8645 * t3212 * t3239 - t2102 * t312 * t10730 / 0.4e1 - 0.10142021738086884164e0 * t10619 + 0.10142021738086884163e1 * t10483 - 0.20284043476173768326e0 * t10485 - 0.54332259311179736590e-1 * t319 * t10628 + 0.10866451862235947318e-1 * t319 * t10633 + 0.16299677793353920977e-1 * t813 * t10611 + 0.65198711173415683912e-1 * t7211 * t10616 - 0.27166129655589868296e-2 * t319 * t10623 - 0.21732903724471894636e-1 * t813 * t10594 - 0.97798066760123525865e-1 * t2109 * t10598 + 0.38032581517825815613e-1 * t813 * t10602 - 0.16299677793353920978e-1 * t2109 * t10607 + 0.10866451862235947318e0 * t813 * t10753 - 0.21732903724471894637e-1 * t813 * t10726 + t10591) * t158 + 0.11127246706929610054e2 * t3977 * t3349 - 0.55636233534648050268e1 * t97 * t10991 * t391 - 0.27818116767324025134e1 * t97 * t3970 * t1051 - 0.27818116767324025134e1 * t97 * t353 * (t11036 + t11083 + t11126 + t11170 + t11208 + t11257 + t11306 + t11345 + t11378 + t11414 + t11454 + t11490 + t11544 + t11575 + t11621 + t11655) + 0.55636233534648050268e1 * t97 * t7460 * t1502 - 0.11127246706929610054e2 * t97 * t3321 * t1326 - 0.27818116767324025134e1 * t97 * t2489 * t1550 - 0.66763480241577660322e2 * t1261 * t3341 * t11672 + 0.11127246706929610054e2 * t3335 * t3997 - 0.55636233534648050268e1 * t97 * t963 * t4163 + 0.55636233534648050268e1 * t1261 * t3996 * t1051 - 0.16690870060394415080e2 * t1261 * t3986 * t1051;
7426   t11702 = -t10352 + t10353 + 0.31013857721884116596e-1 * t1141 * t1142 * t2868 + t7115 + 0.15506928860942058298e-1 * t730 * t731 * t3673 + 0.77534644304710291488e-2 * t730 * t1967 * t1388 - 0.25844881434903430496e-2 * t1093 * t3594 * t1055 + 0.25844881434903430496e-2 * t89 * t95 * (t10406 + t11687) * t397 - t6740 - t6748 + t6756 + t7124 + t10855 - t10857 + t10858 + t10859 - t10860 + 0.51689762869806860992e-2 * t1093 * t3590 * t1055 - 0.77534644304710291488e-2 * t730 * t1963 * t1388 + 0.15506928860942058298e-1 * t1141 * t4175 * t724;
7427   t11714 = t1399 * t760;
7428   t11716 = t3765 * t441;
7429   t11724 = t2941 * t524;
7430   t11725 = t2948 * t524;
7431   t11727 = t1100 * t1350;
7432   t11739 = t184 * t3050 * t1408;
7433   t11742 = t184 * t767 * t3674;
7434   t11752 = t184 * t124 * t1403 * t188;
7435   t11754 = t428 * t460;
7436   t11756 = t184 * t11754 * t1343;
7437   t11769 = t184 * t2764 * t1408;
7438   t11772 = -0.8800e4 / 0.81e2 * t8041 - 0.8800e4 / 0.81e2 * t8044 + 0.400e3 / 0.27e2 * t8048 + 0.800e3 / 0.27e2 * t8051 + 0.400e3 / 0.27e2 * t8054 - 0.25e2 / 0.9e1 * t184 * t433 * t188 * t10009 + 0.400e3 / 0.27e2 * t11739 + 0.400e3 / 0.27e2 * t11742 - 0.25e2 / 0.9e1 * t184 * t3057 * t1408 - 0.50e2 / 0.9e1 * t184 * t1339 * t3674 - 0.2200e4 / 0.81e2 * t11752 + 0.800e3 / 0.27e2 * t11756 - 0.50e2 / 0.9e1 * t184 * t186 * t10177 * t188 - 0.50e2 / 0.9e1 * t184 * t3643 * t3064 - t6364 + 0.61600e5 / 0.243e3 * t6367 - 0.2200e4 / 0.81e2 * t6371 - 0.2200e4 / 0.81e2 * t6374 - 0.2200e4 / 0.81e2 * t11769 + 0.61600e5 / 0.243e3 * t8127;
7439   t11781 = t1347 * t1347;
7440   t11786 = 0.62027715443768233192e-1 * t1141 * t2875 * t3006 + 0.140e3 / 0.9e1 * t9657 - 0.7e1 / 0.3e1 * t9659 + t1125 * t1127 * t1419 * t779 * t192 / 0.2e1 - 0.7e1 / 0.3e1 * t11714 + t11716 + t3692 * t441 + t1399 * t782 / 0.2e1 + t2871 * t524 + 0.2e1 * t1118 * t1350 + t514 * t3071 + t11724 + 0.2e1 * t11725 + 0.2e1 * t11727 + t179 * t426 * t5 * t11772 * t192 / 0.2e1 + t727 * t1415 / 0.2e1 + t420 * t3681 + t10861 - t10862 + t179 * t426 * t5 * t11781 * t192;
7441   t11787 = t415 * t3718;
7442   t11795 = t167 * t704 * t1388 * t99 * t194;
7443   t11800 = t167 * t412 * t3673 * t99 * t194;
7444   t11804 = -0.7e1 / 0.3e1 * t11787 + t10864 + t10866 + t7144 - t10867 - t10868 - t10869 - 0.15506928860942058298e-1 * t730 * t1094 * t9607 - t10871 + t7150 - t10872 - t7156 + t11795 / 0.2e1 + t11800 - 0.14e2 / 0.3e1 * t9688 - t7160 + t7163 - 0.910e3 / 0.27e2 * t7844 + t7849 + t7854 / 0.2e1;
7445   t11818 = 0.4e1 * t3092 + t7 * (t9906 + t9931 + t10016 + t10054 + t10080 + t10115 + t10134 + t10157 + t10239 + t10275 + t10304 + t10334 + t10351 + t11702 + t11786 + t11804) - 0.35089340384731224426e1 * t3093 + 0.31013857721884116596e-1 * t4173 + 0.31013857721884116596e-1 * t4177 + 0.62027715443768233192e-1 * t4180 - 0.15506928860942058298e-1 * t3096 - 0.48e2 * t3099 - 0.32e2 * t3103 - 0.15506928860942058298e-1 * t4184 + t7949;
7446   t11835 = 0.39503579405130412458e-1 * t3803 - 0.31013857721884116596e-1 * t3556 - 0.14649244029402527953e-2 * t3160 + 0.2e1 * t3806 + 0.31013857721884116596e-1 * t4191 + t4196 + 0.2e1 * t4201 + 0.2e1 * t4205 + t4209 - 0.10389453539625517980e3 * t3162 - 0.46785787179641632568e1 * t3165;
7447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7448     v4rho4[2] = t7952 + t7953 + t7954 - t7950 - t7951 - t7932 + t7933 - t7934 + t7929 + t7873 + 0.8e1 * t3721 + 0.4e1 * t3042 + 0.2e1 * t3043 - 0.36623110073506319882e-3 * t3801 + 0.65061485296689145288e-1 * t3033 + 0.8e1 * t3028 + 0.120e3 * t3030 + 0.2e1 * t3026 + t9793 + t11835 + 0.2e1 * t2372 + t9862 + t3072 + t3766 + t9812 + 0.2e1 * t3686 + 0.2e1 * t3687 - 0.8e1 * t3723 + t2984 - t2987 + 0.4e1 * t2979 + t2980 - 0.28e2 / 0.3e1 * t2982 + 0.14649244029402527953e-2 * t2974 + 0.3e1 * t2976 + 0.70e2 / 0.3e1 * t3075 + 0.15506928860942058298e-1 * t3078 + t9848 + 0.62027715443768233192e-1 * t4188 + t3752 + t3682 + 0.2e1 * t3685 + t9780 + t11818 + 0.51689762869806860992e-2 * t4170 + t3633 + t3635 + t2929 - 0.28e2 / 0.3e1 * t2931 - 0.28e2 / 0.3e1 * t2923 - 0.51689762869806860992e-2 * t3085 + 0.31013857721884116596e-1 * t3088 + 0.31013857721884116596e-1 * t3082 + 0.4e1 * t3552 + 0.2e1 * t3553 + 0.51689762869806860992e-2 * t3550 - 0.48e2 * t2136 + t9829;
7449 
7450   t11848 = -t6278 - t6279 + t6280 + t6281 + t1992 - 0.35089340384731224426e1 * t3588 + 0.15506928860942058298e-1 * t3592 - 0.77534644304710291488e-2 * t3596 + t4239 + t4273 + t4275 + t4277 + 0.3e1 * t3625 + 0.23260393291413087447e-1 * t3627 + 0.3e1 * t3629 + 0.3e1 / 0.2e1 * t3631 + 0.3e1 * t3633 + 0.3e1 / 0.2e1 * t3635;
7451   t11854 = 0.3e1 / 0.2e1 * t3682 + 0.6e1 * t3685 + 0.3e1 * t3686 + 0.3e1 * t3687 + t7968 + t4286 - t7969 - t7971 + t7873 + t2037 + t2039 + t4290 + 0.3e1 / 0.2e1 * t3693 + t4293 + t4296 + t7878 - t7879 + t7882;
7452   t11861 = -t2716 - t7885 + t2723 + t4303 + 0.46520786582826174894e-1 * t3700 + t7978 - t7979 - t7890 + 0.9e1 / 0.2e1 * t2942 + t7980 - t4305 + t4306 - t4307 + 0.23260393291413087446e-1 * t3705 - t7981 + 0.23260393291413087447e-1 * t3708 + t4324 - 0.21e2 * t2959;
7453   t11869 = -t7983 - t7984 + 0.35e2 * t2968 - 0.7e1 * t3714 - 0.14e2 * t3716 - 0.7e1 * t3719 - 0.24e2 * t3723 + 0.21973866044103791929e-2 * t2974 + 0.9e1 / 0.2e1 * t2976 + t9711 - t9713 + t2139 + t2744 - t2141 - t2143 - t7904 - t7908 + t2181;
7454   t11878 = 0.9e1 * t2996 - 0.46520786582826174894e-1 * t3737 - 0.15506928860942058298e-1 * t3740 + t2184 + t7911 + 0.10526802115419367328e2 * t3004 - t4341 + t2757 + t2791 - t2793 - t7923 + t7924 + t7925 - 0.21e2 * t3015 + 0.46520786582826174894e-1 * t3749 + t4597 + t4600 + t4603;
7455   t11884 = t7929 - t7932 + t7933 + 0.3e1 / 0.2e1 * t3752 + t9739 + 0.180e3 * t3030 + 0.97592227945033717932e-1 * t3033 - t7934 + t4608 - t2382 - t2384 - t7940 + t2393 + t7944 - t7945 - t7946 - 0.7e1 * t3759 + 0.3e1 * t3766;
7456   t11889 = 0.54934665110259479823e-3 * t9889;
7457   t11890 = 0.73246220147012639764e-3 * t9891;
7458   t11893 = 0.36e2 * t9897;
7459   t11894 = t514 * t3718;
7460   t11898 = t1100 * t1415;
7461   t11902 = t1100 * t1422;
7462   t11910 = 0.120e3 * t6318;
7463   t11912 = -t6289 - t11889 + t11890 - 0.7e1 * t9893 - 0.7e1 / 0.2e1 * t9895 - t11893 - 0.7e1 / 0.2e1 * t11894 + t4606 * t441 / 0.2e1 + 0.3e1 / 0.2e1 * t11898 - t6316 + 0.3e1 / 0.2e1 * t1118 * t1422 + 0.3e1 / 0.2e1 * t11902 + 0.3e1 / 0.2e1 * t4200 * t4195 + 0.3e1 * t4200 * t4204 + 0.3e1 / 0.2e1 * t4200 * t4208 - t11910 + 0.3e1 / 0.2e1 * t8009;
7464   t11924 = t514 * t3713;
7465   t11934 = 0.60e2 * t6440;
7466   t11939 = t8015 + 0.15506928860942058298e-1 * t1093 * t3590 * t1330 - 0.7e1 / 0.2e1 * t9910 - t8023 - 0.21e2 / 0.2e1 * t8026 + 0.46520786582826174894e-1 * t1141 * t3703 * t3006 + 0.77534644304710291488e-2 * t730 * t731 * t4263 - 0.7e1 / 0.2e1 * t11924 - 0.15506928860942058298e-1 * t1093 * t4299 * t6309 * t395 - t6323 - t6327 + t6330 - 0.77534644304710291488e-2 * t1093 * t1094 * t4167 - 0.455e3 / 0.27e2 * t6348 + t6438 + t11934 + 0.15506928860942058298e-1 * t89 * t4287 * t395 * t397;
7467   t11948 = t1379 * t239;
7468   t11951 = t612 * t1379;
7469   t11961 = 0.12e2 * t39 + 0.24e2 * t6404;
7470   t11969 = t1385 * t241;
7471   t11972 = t612 * t1385;
7472   t11980 = -t11961;
7473   t11983 = 0.40e2 / 0.81e2 * t6912 * t4246 * t239 - 0.16e2 / 0.9e1 * t3598 * t613 - 0.8e1 / 0.9e1 * t2892 * t11948 + 0.8e1 / 0.3e1 * t2895 * t11951 + 0.4e1 / 0.3e1 * t1179 * t3608 + 0.4e1 / 0.9e1 * t608 * t4252 * t239 + 0.4e1 / 0.3e1 * t44 * t11961 + 0.40e2 / 0.81e2 * t6925 * t4255 * t241 + 0.16e2 / 0.9e1 * t3611 * t613 - 0.8e1 / 0.9e1 * t2904 * t11969 - 0.8e1 / 0.3e1 * t2907 * t11972 + 0.4e1 / 0.3e1 * t1185 * t3619 + 0.4e1 / 0.9e1 * t618 * t4260 * t241 + 0.4e1 / 0.3e1 * t47 * t11980;
7474   t11984 = t11983 * t53;
7475   t11986 = t40 * t11984 * t81;
7476   t11988 = t40 * t4322 * t278;
7477   t11994 = 0.24e2 * t6467;
7478   t11995 = -0.21e2 / 0.2e1 * t8141 - t8144 - t8146 - 0.455e3 / 0.9e1 * t8148 - t8155 + t11986 + t11988 + 0.3e1 / 0.2e1 * t9952 + 0.3e1 / 0.2e1 * t9953 + 0.3e1 / 0.2e1 * t9954 + 0.3e1 / 0.2e1 * t9956 + 0.3e1 / 0.2e1 * t9958 - t8163 + t8167 + t8169 - t8170 - t11994;
7479   t12003 = t4322 * t1 * t285;
7480   t12004 = 0.18311555036753159941e-3 * t12003;
7481   t12005 = t4299 * t2814;
7482   t12009 = 0.3e1 * t10049;
7483   t12010 = 0.3e1 * t10052;
7484   t12011 = 0.60e2 * t10057;
7485   t12017 = -t8173 - t8174 - t8175 - t8176 + 0.46520786582826174894e-1 * t1141 * t10277 * t460 + 0.46520786582826174894e-1 * t1141 * t4175 * t1115 - t12004 + t8177 + t8182 + t6805 + 0.15506928860942058298e-1 * t730 * t12005 * t299 + t12009 + t12010 + t12011 - 0.46520786582826174894e-1 * t1141 * t4182 * t3006 + 0.46520786582826174894e-1 * t9630 * t4614 + t6510;
7486   t12022 = t415 * t4620;
7487   t12027 = 0.30761691063023384792e4 * t8250;
7488   t12029 = -0.7e1 * t10064 - 0.7e1 / 0.2e1 * t10066 - t6815 + t12022 / 0.2e1 + t420 * t4620 / 0.2e1 - t8223 + t8227 + 0.35e2 * t8239 - t8242 - t6821 - t12027 + t8253 + t8255 + t8260 + t8262 + t6829 - 0.455e3 / 0.9e1 * t8263;
7489   t12031 = t4322 * t69 * t290;
7490   t12032 = 0.58482233974552040708e0 * t12031;
7491   t12033 = 0.17544670192365612213e1 * t10098;
7492   t12037 = t460 * t1330;
7493   t12041 = t4593 * t397;
7494   t12049 = 0.19751789702565206229e-1 * t11984 * t79;
7495   t12053 = 0.10253897021007794930e4 * t6862;
7496   t12057 = t167 * t412 * t4263 * t99 * t194;
7497   t12091 = -0.28e2 / 0.81e2 * t6392 * t4246 * t239 + 0.8e1 / 0.9e1 * t3653 * t613 + 0.4e1 / 0.9e1 * t2842 * t11948 - 0.2e1 / 0.3e1 * t2845 * t11951 - t1103 * t3608 / 0.3e1 - t714 * t4252 * t239 / 0.9e1 + t294 * t11961 / 0.3e1 - 0.28e2 / 0.81e2 * t6411 * t4255 * t241 - 0.8e1 / 0.9e1 * t3663 * t613 + 0.4e1 / 0.9e1 * t2855 * t11969 + 0.2e1 / 0.3e1 * t2858 * t11972 - t1109 * t3619 / 0.3e1 - t719 * t4260 * t241 / 0.9e1 + t296 * t11980 / 0.3e1;
7498   t12097 = 0.14447833828541735940e1 * t8287;
7499   t12098 = -t12032 - t12033 + 0.23260393291413087447e-1 * t730 * t10170 * t460 - 0.46520786582826174894e-1 * t730 * t1094 * t12037 + 0.77534644304710291488e-2 * t730 * t12041 * t299 - t6834 + t6838 + 0.46520786582826174894e-1 * t1141 * t1137 * t10087 + t12049 + t6843 / 0.2e1 - 0.7e1 / 0.2e1 * t6847 + 0.35e2 / 0.3e1 * t6851 - t6856 - t12053 + t12057 / 0.2e1 + t167 * t176 * t12091 * t99 * t194 / 0.2e1 + t12097;
7500   t12100 = 0.48796113972516858965e-1 * t8289;
7501   t12101 = 0.10389453539625517980e3 * t6866;
7502   t12102 = 0.51947267698127589897e2 * t6887;
7503   t12103 = 0.35089340384731224426e1 * t6889;
7504   t12104 = 0.58482233974552040708e0 * t6903;
7505   t12105 = t1554 * t299;
7506   t12109 = t4606 * t423;
7507   t12111 = t12100 + t6521 + t8292 + t12101 - t6870 + t6874 - t6878 + t6886 - t12102 + t12103 + t6894 - t6902 - t12104 - t6910 - 0.23260393291413087446e-1 * t730 * t1094 * t12105 - 0.7e1 / 0.6e1 * t12109 + t6948;
7508   t12113 = t1554 * t395;
7509   t12117 = t1403 * t395;
7510   t12128 = 0.3e1 * t8335;
7511   t12133 = 0.180e3 * t8337;
7512   t12137 = 0.17544670192365612213e1 * t10184;
7513   t12138 = -t6950 - t6956 - 0.7e1 / 0.2e1 * t6957 + 0.15506928860942058298e-1 * t1093 * t2883 * t12113 - 0.46520786582826174894e-1 * t1141 * t1094 * t12117 + 0.93041573165652349788e-1 * t1141 * t1137 * t10044 + t7002 + 0.35e2 / 0.3e1 * t7003 + 0.3e1 / 0.2e1 * t10151 + 0.35e2 / 0.3e1 * t10155 + 0.3e1 * t10166 + t8333 + t12128 - 0.25844881434903430496e-2 * t1093 * t4593 * t1063 * t395 + t12133 - 0.23260393291413087447e-1 * t730 * t4182 * t1115 - t12137;
7514   t12142 = 0.51947267698127589900e2 * t10186;
7515   t12150 = t179 * t759 * t4619;
7516   t12152 = 0.17544670192365612213e1 * t8352;
7517   t12153 = 0.97592227945033717931e-1 * t8362;
7518   t12156 = -t12142 - 0.77534644304710291488e-2 * t1093 * t2970 * t1554 + 0.23260393291413087447e-1 * t730 * t3703 * t1115 - 0.7e1 / 0.6e1 * t12150 + t6596 + t8348 - t7019 - t8351 - t12152 - t6601 + t6605 - t8355 + t8361 - t12153 + t8365 - 0.7e1 / 0.2e1 * t10246 - 0.7e1 / 0.2e1 * t10249;
7519   t12161 = t1419 * t192;
7520   t12181 = 0.32530742648344572644e-1 * t10260;
7521   t12182 = 0.35089340384731224426e1 * t10262;
7522   t12183 = 0.36e2 * t8429;
7523   t12184 = t3091 * t4284;
7524   t12188 = t2922 * t4284;
7525   t12203 = t8424 + 0.46520786582826174894e-1 * t1141 * t2875 * t1403 - 0.7e1 * t10256 + 0.3e1 / 0.2e1 * t1125 * t1127 * t12161 * t1347 + t1125 * t1127 * t4617 * t438 * t192 / 0.2e1 + 0.3e1 / 0.2e1 * t1125 * t1127 * t3678 * t521 * t192 + 0.3e1 / 0.2e1 * t1125 * t1127 * t1412 * t1347 * t192 + t12181 + t12182 - t6614 - t12183 + 0.3e1 / 0.2e1 * t12184 + 0.3e1 / 0.2e1 * t2836 * t4284 - 0.7e1 / 0.2e1 * t12188 + t1125 * t1127 * t4268 * t438 * t192 / 0.2e1 + 0.3e1 / 0.2e1 * t1122 * t1388 * t99 * t101 * t1130 - 0.23260393291413087447e-1 * t730 * t3594 * t3735;
7526   t12205 = t163 * t4263;
7527   t12220 = t415 * t4271;
7528   t12232 = t184 * t11754 * t1408;
7529   t12242 = t184 * t767 * t4264;
7530   t12251 = -t6364 + 0.30800e5 / 0.243e3 * t6367 + 0.30800e5 / 0.81e2 * t8127 - t8042 - t8045 - 0.2200e4 / 0.27e2 * t11752 + 0.400e3 / 0.9e1 * t11756 - 0.2200e4 / 0.27e2 * t11769 + 0.200e3 / 0.9e1 * t11739 + 0.200e3 / 0.9e1 * t11742 + 0.200e3 / 0.9e1 * t12232 - 0.25e2 / 0.3e1 * t184 * t186 * t1115 * t1408 - 0.25e2 / 0.3e1 * t184 * t3643 * t3674 + 0.200e3 / 0.27e2 * t12242 - 0.25e2 / 0.9e1 * t184 * t1339 * t4264 - 0.25e2 / 0.9e1 * t184 * t433 * t188 * t12091;
7531   t12257 = 0.65061485296689145286e-1 * t8489;
7532   t12258 = 0.21687161765563048428e-1 * t7054;
7533   t12259 = 0.15506928860942058298e-1 * t1141 * t12205 * t299 + 0.23260393291413087447e-1 * t730 * t1137 * t3673 + 0.46520786582826174894e-1 * t9630 * t4601 + 0.3e1 / 0.2e1 * t1399 * t1350 + 0.3e1 / 0.2e1 * t1118 * t1415 + 0.3e1 / 0.2e1 * t514 * t3681 + t12220 / 0.2e1 + t420 * t4271 / 0.2e1 + t179 * t426 * t5 * t12251 * t192 / 0.2e1 + t7047 - t12257 + t7050 + t7053 - t12258 - t7058 - t7061 + t7065;
7534   t12260 = 0.48159446095139119799e0 * t7069;
7535   t12261 = 0.16265371324172286321e-1 * t7071;
7536   t12262 = 0.35089340384731224426e1 * t7076;
7537   t12268 = t1399 * t1359;
7538   t12271 = t179 * t759 * t4270;
7539   t12273 = 0.12e2 * t7088;
7540   t12274 = t12260 + t12261 + t7075 - t12262 + 0.35e2 / 0.3e1 * t10297 + 0.70e2 / 0.3e1 * t10299 + 0.35e2 / 0.3e1 * t10302 + t6632 - 0.7e1 * t10305 - 0.7e1 / 0.2e1 * t10307 + t8497 - 0.7e1 / 0.2e1 * t12268 - 0.7e1 / 0.6e1 * t12271 - t12273 + t6635 + t8499 - t6638;
7541   t12284 = 0.10526802115419367328e2 * t8502;
7542   t12285 = 0.10526802115419367328e2 * t8506;
7543   t12286 = 0.24e2 * t10339;
7544   t12289 = 0.15584180309438276970e3 * t8508;
7545   t12290 = t8501 + 0.3e1 / 0.2e1 * t1125 * t1127 * t4282 * t4703 - 0.7e1 * t10327 - 0.14e2 * t10329 - 0.7e1 * t10331 - t6644 + t6658 - t12284 + t7106 + t12285 - t12286 + 0.3e1 / 0.2e1 * t9611 + t9614 + t9616 + 0.35e2 * t9621 - t12289 + t9625;
7546   t12296 = t1403 * t163;
7547   t12300 = t1388 * t395;
7548   t12304 = t1388 * t460;
7549   t12308 = 0.77534644304710291488e-2 * t89 * t293 * t12091 + 0.3e1 * t10348 + 0.3e1 / 0.2e1 * t10350 + t6677 - t6698 - t6702 - t6717 + t6737 - t8512 + 0.46520786582826174894e-1 * t89 * t12296 * t1115 + t7115 - 0.23260393291413087447e-1 * t730 * t1094 * t12300 + 0.46520786582826174894e-1 * t1141 * t731 * t12304 - t6740 - t6748 + t6756 + t7124;
7550   t12324 = t822 * t4450;
7551   t12328 = t4441 * t328 * t118;
7552   t12329 = t153 * t12328;
7553   t12333 = t4263 * t328 * t118;
7554   t12334 = t826 * t12333;
7555   t12337 = t4447 * t2112;
7556   t12338 = t12337 * t299;
7557   t12339 = t826 * t12338;
7558   t12342 = 0.35e2 / 0.24e2 * t10420 - 0.15213032607130326246e0 * t10422 + 0.76065163035651631230e-1 * t10428 + 0.38032581517825815615e-1 * t10430 + 0.76065163035651631229e0 * t10437 - 0.15213032607130326246e0 * t10444 + 0.43103592386869257696e1 * t10479 + 0.19157152171941892310e1 * t7232 + 0.15213032607130326246e1 * t10483 - 0.30426065214260652491e0 * t10485 + 0.38032581517825815615e-1 * t10521 + 0.12677527172608605205e-1 * t12324 + 0.38032581517825815615e-1 * t10545 - 0.27166129655589868296e-2 * t319 * t12329 + 0.10866451862235947318e-1 * t319 * t12334 + 0.65198711173415683912e-1 * t2109 * t12339;
7559   t12343 = t3862 * t1219;
7560   t12344 = t153 * t12343;
7561   t12347 = t4447 * t816;
7562   t12348 = t12347 * t299;
7563   t12349 = t826 * t12348;
7564   t12352 = t3251 * t1403;
7565   t12353 = t2076 * t12352;
7566   t12356 = t3878 * t1115;
7567   t12357 = t826 * t12356;
7568   t12360 = t3867 * t1219;
7569   t12361 = t153 * t12360;
7570   t12365 = t337 * t4366;
7571   t12367 = t4441 * t118;
7572   t12368 = t12367 * t299;
7573   t12369 = t826 * t12368;
7574   t12372 = t12304 * t299;
7575   t12373 = t7256 * t12372;
7576   t12376 = t3238 * t1476;
7577   t12377 = t153 * t12376;
7578   t12380 = t1164 * t3842;
7579   t12381 = t153 * t12380;
7580   t12385 = t4287 * t328 * t118;
7581   t12386 = t7256 * t12385;
7582   t12389 = t3867 * t1115;
7583   t12390 = t826 * t12389;
7584   t12393 = t7223 * t4454;
7585   t12395 = t2453 * t4458;
7586   t12397 = t822 * t4444;
7587   t12399 = t3143 * t4404;
7588   t12401 = -0.48899033380061762934e-1 * t2109 * t12344 - 0.65198711173415683908e-1 * t813 * t12349 - 0.16299677793353920977e0 * t319 * t12353 + 0.32599355586707841954e-1 * t319 * t12357 + 0.48899033380061762931e-1 * t813 * t12361 + 0.43103592386869257697e1 * t8656 + 0.15213032607130326245e1 * t12365 + 0.10866451862235947318e-1 * t319 * t12369 - 0.97798066760123525862e0 * t1239 * t12373 + 0.16299677793353920977e-1 * t813 * t12377 + 0.16299677793353920977e-1 * t813 * t12381 + 0.32599355586707841954e0 * t319 * t12386 - 0.65198711173415683909e-1 * t813 * t12390 + 0.76065163035651631231e-1 * t12393 - 0.76065163035651631226e-1 * t12395 + 0.12677527172608605205e-1 * t12397 - 0.76065163035651631226e0 * t12399;
7589   t12405 = t6 * t4287 * t299;
7590   t12409 = t3789 * t1115;
7591   t12413 = t3146 * t1388;
7592   t12417 = t1241 * t3673;
7593   t12438 = t118 * t1403;
7594   t12447 = -t6289 - t11889 + t11890 - t11893 - t6316 - t11910 - t6323 - t6327 + t6330 + t6438 + t11934 + t11986 + t11988 - t8163 + t8169 - t8170;
7595   t12448 = -t11994 - t8173 - t8174 - t8175 - t8176 - t12004 + t8177 + t8182 + t6805 + t12009 + t12010 + t12011 + t6510 - t6815 - t8242 - t6821 - t12027;
7596   t12450 = t8253 + t8255 + t6829 - t12032 - t12033 - t6834 + t6838 + t12049 - t6856 - t12053 + t12097 + t12100 + t6521 + t8292 + t12101 - t6870;
7597   t12451 = t6874 - t6878 + t6886 - t12102 + t12103 + t6894 - t6902 - t12104 - t6910 + t8333 + t12128 + t12133 - t12137 - t12142 + t6596 + t8348 - t7019;
7598   t12454 = -t8351 - t12152 - t6601 + t6605 - t8355 + t8361 - t12153 + t8424 + t12181 + t12182 - t6614 - t12183 - t12257 + t7050 + t7053 - t12258;
7599   t12455 = -t7058 - t7061 + t7065 + t12260 + t12261 + t7075 - t12262 + t6632 + t8497 - t12273 + t6635 + t8499 - t6638 + t8501 - t6644 + t6658 - t12284;
7600   t12457 = t7106 + t12285 - t12286 - t12289 + t6677 - t6698 - t6702 - t6717 + t6737 - t8512 + t7115 - t6740 - t6748 + t6756 + t7124 - t8520;
7601   t12458 = 0.72e2 * t8521;
7602   t12459 = 0.360e3 * t8527;
7603   t12460 = 0.31168360618876553940e3 * t8529;
7604   t12461 = 0.12e2 * t10863;
7605   t12462 = 0.17090784700969615945e-2 * t8533;
7606   t12463 = 0.56969282336565386482e-3 * t7145;
7607   t12464 = 0.12e2 * t10870;
7608   t12465 = t229 * t4417;
7609   t12466 = 0.4e1 * t12465;
7610   t12467 = t234 * t4417;
7611   t12468 = 0.4e1 * t12467;
7612   t12469 = 0.32530742648344572643e-1 * t7152;
7613   t12470 = t12458 + t8524 - t8526 - t12459 + t12460 - t8532 - t12461 + t7144 - t12462 - t12463 - t12464 + t12466 - t12468 - t12469 - t7156 - t7160 + t7163;
7614   t12477 = t4422 * t129;
7615   t12529 = 0.11607714307207111054e4 * t1206 * t3839 + 0.77384762048047407030e4 * t7179 * t4432 - 0.46430857228828444218e5 * t8446 * t114 * t4287 * t299 + 0.23215428614414222109e5 * t3188 * t3826 * t1115 - 0.46430857228828444218e4 * t3183 * t4435 + 0.23215428614414222109e5 * t3188 * t1212 * t10087 - 0.46430857228828444218e4 * t1211 * t3192 * t1388 - 0.46430857228828444218e4 * t1211 * t1212 * t3673 + 0.38692381024023703515e3 * t920 * t4438 - 0.15476952409609481406e4 * t1211 * t114 * t4263 * t299 + 0.38692381024023703515e3 * t324 * t115 * t12091;
7616   t12530 = -0.12897460341341234505e3 * (t12447 + t12448 + t12450 + t12451 + t12454 + t12455 + t12457 + t12470) * t112 * t115 + 0.38692381024023703515e3 * t12477 * t325 + 0.11607714307207111054e4 * t10922 * t472 - 0.46430857228828444216e4 * t10919 * t1 * t1213 + 0.11607714307207111054e4 * t3814 * t1216 - 0.46430857228828444218e4 * t8557 * t1470 + 0.23215428614414222109e5 * t10916 * t3827 - 0.92861714457656888436e4 * t3819 * t3830 + 0.11607714307207111054e4 * t3173 * t1473 - 0.46430857228828444216e4 * t3819 * t3836 + t12529;
7617   t12532 = t6 * t12530 * t118;
7618   t12539 = 0.455e3 / 0.216e3 * t8686 + 0.22819548910695489368e1 * t1239 * t8572 * t12405 - 0.97798066760123525862e0 * t1239 * t3306 * t12409 + 0.16299677793353920977e0 * t1239 * t1240 * t12413 + 0.16299677793353920977e0 * t1239 * t1240 * t12417 - 0.16299677793353920977e0 * t3109 * t10471 * t3940 + 0.65198711173415683908e-1 * t3211 * t3212 * t3904 + 0.32599355586707841954e-1 * t3211 * t10471 * t1233 + 0.32599355586707841954e0 * t8753 * t3212 * t816 * t1403 * t328 - 0.19559613352024705173e0 * t3217 * t10471 * t3770 + 0.97798066760123525862e0 * t8749 * t3212 * t12438 * t299 - 0.32599355586707841954e0 * t3109 * t3212 * t3939 * t1115 - 0.27166129655589868296e-2 * t319 * t152 * t12532 - 0.76065163035651631230e0 * t10566 + 0.45639097821390978737e1 * t10572 + 0.30426065214260652492e0 * t10580;
7619   t12544 = t4357 * t299;
7620   t12549 = t342 * t132 * t12091;
7621   t12552 = t4361 * t299;
7622   t12556 = t1426 * t1115;
7623   t12560 = t1160 * t1388;
7624   t12564 = t464 * t3673;
7625   t12569 = t822 * t4383;
7626   t12571 = t822 * t4388;
7627   t12573 = t2453 * t4345;
7628   t12575 = t2453 * t4349;
7629   t12577 = -0.15213032607130326246e0 * t10582 - 0.15213032607130326246e0 * t10619 - 0.76065163035651631230e-1 * t10649 + 0.22819548910695489369e0 * t10651 + t8725 + t803 * t312 * t12544 / 0.16e2 - 0.10866451862235947318e-1 * t126 * t12549 + 0.5e1 / 0.4e1 * t7425 * t312 * t12552 - 0.3e1 / 0.4e1 * t2102 * t312 * t12556 + 0.3e1 / 0.16e2 * t803 * t312 * t12560 + 0.3e1 / 0.16e2 * t803 * t312 * t12564 + 0.86207184773738515392e0 * t8734 - t8737 - 0.15213032607130326245e0 * t12569 - 0.15213032607130326245e0 * t12571 + 0.30426065214260652491e0 * t12573 - 0.76065163035651631226e-1 * t12575;
7630   t12605 = t118 * t1388;
7631   t12613 = -0.86207184773738515394e0 * t10718 + t7355 - 0.22819548910695489369e0 * t10723 - 0.7e1 / 0.16e2 * t10742 + 0.17241436954747703078e1 * t10757 - 0.21551796193434628849e0 * t10771 + 0.43103592386869257697e0 * t10773 - 0.15213032607130326246e1 * t10775 + 0.32599355586707841955e-1 * t3211 * t10416 * t1172 - 0.81498388966769604888e-2 * t8608 * t10416 * t1226 + 0.48899033380061762932e-1 * t8645 * t10416 * t1165 - 0.65198711173415683908e-1 * t3217 * t10416 * t3770 - 0.16299677793353920977e0 * t3109 * t10416 * t3940 + 0.32599355586707841954e-1 * t3211 * t10416 * t1233 - 0.16299677793353920977e0 * t3109 * t3212 * t12605 * t299 + 0.32599355586707841954e-1 * t3211 * t3212 * t3900;
7632   t12632 = t3912 * t1115;
7633   t12633 = t826 * t12632;
7634   t12636 = t3251 * t1388;
7635   t12637 = t826 * t12636;
7636   t12640 = t1171 * t3673;
7637   t12641 = t826 * t12640;
7638   t12644 = t4447 * t118;
7639   t12645 = t12644 * t299;
7640   t12646 = t826 * t12645;
7641   t12649 = t3878 * t1219;
7642   t12650 = t153 * t12649;
7643   t12654 = t4447 * t328 * t118;
7644   t12655 = t153 * t12654;
7645   t12658 = t10523 * t460;
7646   t12659 = t826 * t12658;
7647   t12663 = t3842 * t475 * t118;
7648   t12664 = t153 * t12663;
7649   t12668 = t1476 * t1219 * t118;
7650   t12669 = t153 * t12668;
7651   t12673 = 0.60852130428521304982e0 * t10801 + 0.32599355586707841954e0 * t8753 * t10471 * t3769 * t299 - 0.13039742234683136782e0 * t3217 * t3212 * t3769 * t1219 - 0.65198711173415683908e-1 * t3217 * t3212 * t3857 * t299 - 0.16299677793353920977e0 * t3109 * t481 * t3900 + 0.86207184773738515394e0 * t8827 - 0.21551796193434628849e0 * t10820 + 0.32599355586707841954e-1 * t319 * t12633 + 0.32599355586707841954e-1 * t319 * t12637 + 0.32599355586707841954e-1 * t319 * t12641 + 0.10866451862235947318e-1 * t319 * t12646 - 0.81498388966769604888e-2 * t319 * t12650 - 0.27166129655589868296e-2 * t319 * t12655 + 0.32599355586707841954e-1 * t319 * t12659 - 0.81498388966769604888e-2 * t319 * t12664 - 0.81498388966769604888e-2 * t319 * t12669 + 0.15213032607130326246e0 * t10822;
7652   t12676 = t822 * t4379;
7653   t12681 = t6 * t4263;
7654   t12682 = t12681 * t299;
7655   t12690 = t799 * t4358;
7656   t12692 = t7421 * t4362;
7657   t12701 = 0.47892880429854730775e0 * t7389 + 0.38032581517825815614e-1 * t12676 - 0.30426065214260652491e0 * t10827 - 0.30426065214260652491e0 * t10829 - 0.35e2 / 0.72e2 * t10951 + 0.54332259311179736590e-1 * t1239 * t1240 * t12682 - 0.3e1 / 0.4e1 * t8650 * t107 * t12372 - t8875 + 0.57471456515825676929e1 * t8876 + 0.7e1 / 0.144e3 * t12690 + 0.7e1 / 0.12e2 * t12692 - t311 * t312 * t5 * t12091 / 0.48e2 + 0.7e1 / 0.48e2 * t10959 + 0.7e1 / 0.4e1 * t10961 - 0.7e1 / 0.8e1 * t10963 - t8879;
7658   t12719 = t337 * t4394;
7659   t12721 = t2098 * t4398;
7660   t12723 = t822 * t4374;
7661   t12726 = t4447 * t7214 * t328;
7662   t12727 = t153 * t12726;
7663   t12730 = t12337 * t328;
7664   t12731 = t153 * t12730;
7665   t12734 = t12347 * t328;
7666   t12735 = t153 * t12734;
7667   t12738 = t4441 * t816;
7668   t12739 = t12738 * t328;
7669   t12740 = t153 * t12739;
7670   t12743 = t822 * t4370;
7671   t12748 = 0.455e3 / 0.648e3 * t7442 - 0.16299677793353920977e0 * t3109 * t3212 * t3895 - 0.65198711173415683908e-1 * t3217 * t3212 * t816 * t1388 * t328 + 0.19559613352024705173e0 * t8675 * t10471 * t10690 * t328 - 0.48899033380061762931e-1 * t8639 * t3212 * t10605 * t328 + 0.50710108690434420817e-1 * t12719 - 0.7e1 / 0.16e2 * t12721 - 0.15213032607130326245e0 * t12723 + 0.65198711173415683912e-1 * t7211 * t12727 - 0.97798066760123525865e-1 * t2109 * t12731 + 0.38032581517825815613e-1 * t813 * t12735 + 0.54332259311179736592e-2 * t813 * t12740 + 0.76065163035651631226e0 * t12743 + t7449 + 0.43103592386869257696e0 * t8887 - 0.86207184773738515394e0 * t8916 + 0.14367864128956419232e1 * t8918;
7672   t12755 = t4464 * t352;
7673   t12762 = t97 * t1495;
7674   t12796 = t1550 * t391;
7675   t12820 = t2558 * t4506;
7676   t12825 = t2558 * t4502;
7677   t12832 = t3413 * t4496;
7678   t12834 = t2558 * t4499;
7679   t12836 = t3413 * t4493;
7680   t12842 = 0.53291589604847462020e1 * t7509 + 0.17386322979577515709e0 * t1267 * t142 * t12739 + 0.10431793787746509425e1 * t3380 * t989 * t12338 + 0.60852130428521304983e0 * t12820 - 0.15647690681619764138e1 * t3380 * t142 * t12343 - 0.12170426085704260996e1 * t12825 + 0.18137053605011111023e1 * t1030 * t12386 + 0.52158968938732547127e0 * t987 * t989 * t12356 - 0.12170426085704260996e1 * t12832 - 0.12170426085704260996e1 * t12834 + 0.24340852171408521992e1 * t12836 + 0.17386322979577515709e0 * t987 * t989 * t12645 + 0.21159895872512962860e0 * t11004;
7681   t12863 = t2558 * t4519;
7682   t12872 = t2590 * t4544;
7683   t12874 = 0.13602790203758333267e0 * t1301 * t12381 + 0.60456845350037036744e-1 * t1030 * t12334 + 0.15647690681619764138e1 * t1267 * t142 * t12360 - 0.10431793787746509425e1 * t1267 * t989 * t12348 - 0.62590762726479056552e1 * t9009 * t7599 * t12372 + 0.60456845350037036744e-1 * t1030 * t12646 - 0.45342634012527777558e-1 * t1030 * t12650 + 0.17386322979577515709e0 * t987 * t989 * t12368 + 0.36511278257112782989e1 * t12863 - 0.15114211337509259186e-1 * t1030 * t12655 - 0.31295381363239528276e1 * t3380 * t142 * t12730 - 0.36511278257112782988e1 * t11012 + 0.14604511302845113195e2 * t11014 - 0.63479687617538888579e0 * t12872;
7684   t12877 = t7785 * t4541;
7685   t12892 = -0.73022556514225565976e1 * t11016 + 0.84639583490051851441e0 * t12877 - 0.21159895872512962860e1 * t11021 + 0.12695937523507777716e2 * t11029 - 0.42319791745025925720e1 * t11031 - 0.24340852171408521992e1 * t11046 + 0.24340852171408521992e1 * t11048 - 0.12170426085704260996e1 * t11050 + 0.60852130428521304981e0 * t11052 + 0.60852130428521304981e0 * t11059 + 0.18137053605011111023e0 * t1030 * t12659 - 0.24340852171408521993e1 * t11093 - 0.20284043476173768327e1 * t11100 + 0.60852130428521304981e0 * t11102;
7686   t12899 = t1164 * t3899;
7687   t12903 = t3256 * t3917;
7688   t12907 = t1164 * t3917;
7689   t12911 = t3857 * t1232;
7690   t12915 = t3862 * t1232;
7691   t12925 = t1171 * t10087;
7692   t12929 = 0.12170426085704260996e1 * t11104 + 0.25391875047015555432e1 * t11117 + 0.17579504346017265883e2 * t9095 - 0.63479687617538888580e0 * t11127 + 0.13602790203758333267e0 * t1301 * t12377 + t9100 - 0.54411160815033333069e0 * t1301 * t826 * t12899 - 0.54411160815033333068e0 * t3515 * t153 * t12903 + 0.40808370611274999801e0 * t1301 * t153 * t12907 - 0.54411160815033333069e0 * t1301 * t826 * t12911 + 0.21764464326013333228e1 * t3515 * t826 * t12915 + 0.15647690681619764138e1 * t1267 * t142 * t12907 - 0.10431793787746509425e1 * t1267 * t989 * t12911 - 0.15647690681619764138e1 * t987 * t2523 * t12925;
7693   t12932 = t1225 * t12605;
7694   t12938 = t3867 * t3006;
7695   t12942 = t460 * t1219;
7696   t12943 = t1164 * t12942;
7697   t12950 = t3402 * t4349;
7698   t12952 = t2519 * t4383;
7699   t12954 = t2519 * t4379;
7700   t12956 = t2519 * t4388;
7701   t12960 = 0.52158968938732547127e0 * t987 * t989 * t12932 - 0.12170426085704260996e1 * t11192 - 0.12170426085704260996e1 * t11194 + t9111 + t9144 + 0.31295381363239528275e1 * t1267 * t2523 * t12938 - 0.20863587575493018850e1 * t1267 * t989 * t12943 - 0.12170426085704260996e1 * t11234 + 0.60456845350037036744e-1 * t1030 * t12369 - 0.63479687617538888579e0 * t12950 - 0.84639583490051851441e0 * t12952 + 0.21159895872512962860e0 * t12954 - 0.84639583490051851441e0 * t12956 + 0.18137053605011111023e0 * t1030 * t12633;
7702   t12986 = t2558 * t4522;
7703   t12993 = 0.18137053605011111023e0 * t1030 * t12637 + 0.52158968938732547127e0 * t987 * t989 * t12632 + 0.52158968938732547127e0 * t987 * t989 * t12636 + 0.52158968938732547127e0 * t987 * t989 * t12640 - 0.26079484469366273564e0 * t987 * t142 * t12663 + 0.81136173904695073310e1 * t11265 - 0.12695937523507777716e1 * t11267 + 0.52158968938732547127e0 * t369 * t1291 * t12544 + 0.20863587575493018851e1 * t9367 * t142 * t12726 + 0.42319791745025925720e1 * t11297 - 0.45342634012527777558e-1 * t1030 * t12664 - 0.12170426085704260996e1 * t12986 - 0.15114211337509259186e-1 * t1030 * t12329 + 0.20863587575493018851e1 * t987 * t7599 * t12385;
7704   t13019 = -0.45342634012527777558e-1 * t1030 * t12669 + 0.15987476881454238605e2 * t9220 - t9223 + 0.12170426085704260996e1 * t11320 + 0.79937384407271193027e1 * t9232 - t9241 - 0.26079484469366273564e0 * t987 * t142 * t12649 + 0.90685268025055555115e0 * t9160 * t12727 - 0.10882232163006666614e1 * t3515 * t12731 - 0.86931614897887578546e-1 * t987 * t142 * t12654 + 0.31739843808769444290e0 * t1301 * t12735 + 0.40808370611274999801e0 * t1301 * t12361 - 0.15647690681619764138e1 * t987 * t2523 * t12352 - 0.54411160815033333069e0 * t3515 * t12344;
7705   t13042 = -0.54411160815033333068e0 * t1301 * t12349 + 0.18137053605011111023e0 * t1030 * t12357 + 0.72548214420044444092e0 * t3515 * t12339 - 0.54411160815033333070e0 * t1301 * t12390 - 0.90685268025055555117e0 * t1030 * t12353 - 0.27205580407516666535e1 * t9016 * t12373 - 0.86931614897887578546e-1 * t987 * t142 * t12328 + 0.36511278257112782988e1 * t11331 - 0.36511278257112782988e1 * t11336 - 0.16927916698010370288e1 * t11339 - 0.24340852171408521993e1 * t11341 - 0.16927916698010370288e1 * t11349 - 0.24340852171408521993e1 * t11365 - 0.20284043476173768327e1 * t11369;
7706   t13070 = t983 * t4566;
7707   t13072 = t1044 * t4525;
7708   t13074 = t1026 * t4528;
7709   t13076 = 0.35971822983272036862e1 * t11371 + 0.15114211337509259186e0 * t388 * t1319 * t12682 + 0.15647690681619764138e1 * t369 * t1291 * t12560 + 0.15647690681619764138e1 * t369 * t1291 * t12564 - 0.86931614897887578546e-1 * t356 * t358 * t5 * t12530 * t118 + 0.10431793787746509426e2 * t369 * t9236 * t12552 - 0.62590762726479056553e1 * t369 * t3450 * t12556 - 0.11990607661090678954e1 * t11373 + 0.26645794802423731010e1 * t7655 + 0.29299173910028776472e1 * t7659 + 0.20284043476173768327e0 * t13070 - 0.21159895872512962860e1 * t13072 + 0.70532986241709876201e-1 * t13074;
7710   t13077 = t1006 * t4531;
7711   t13079 = t1026 * t4569;
7712   t13081 = t983 * t4538;
7713   t13083 = t1006 * t4575;
7714   t13085 = t1044 * t4366;
7715   t13103 = -0.36511278257112782989e1 * t13077 + 0.70532986241709876201e-1 * t13079 + 0.20284043476173768327e0 * t13081 - t9280 + t9310 + 0.40568086952347536654e0 * t13083 - t9334 + 0.42319791745025925721e1 * t13085 - 0.15114211337509259186e-1 * t378 * t379 * t12532 - 0.11990607661090678954e1 * t11386 + 0.63479687617538888581e1 * t388 * t9318 * t12405 - 0.27205580407516666535e1 * t388 * t3444 * t12409 + 0.45342634012527777558e0 * t388 * t1319 * t12413 + 0.45342634012527777558e0 * t388 * t1319 * t12417;
7716   t13109 = t2519 * t4374;
7717   t13111 = t2519 * t4370;
7718   t13113 = t3402 * t4345;
7719   t13119 = t2603 * t4562;
7720   t13121 = t7791 * t4558;
7721   t13125 = t1164 * t1476 * t299;
7722   t13131 = 0.40568086952347536653e1 * t11408 + 0.12170426085704260996e1 * t1267 * t142 * t12734 - 0.84639583490051851441e0 * t13109 + 0.42319791745025925721e1 * t13111 + 0.25391875047015555433e1 * t13113 + 0.45342634012527777558e-1 * t1301 * t12740 + 0.25391875047015555432e1 * t11420 - 0.19043906285261666574e1 * t11426 - 0.12170426085704260996e1 * t13119 + 0.12170426085704260996e1 * t13121 + 0.58598347820057552944e1 * t7703 - 0.10431793787746509425e1 * t1267 * t989 * t13125 - 0.40568086952347536653e1 * t11460 - 0.23981215322181357908e1 * t11462;
7723   t13134 = t4377 * t827;
7724   t13138 = t4377 * t3467;
7725   t13142 = t12304 * t827;
7726   t13157 = t1171 * t11227;
7727   t13161 = t1171 * t10044;
7728   t13165 = t1225 * t12438;
7729   t13169 = t3878 * t3006;
7730   t13173 = 0.12170426085704260996e2 * t11464 + 0.11990607661090678954e2 * t11466 - 0.26079484469366273564e0 * t987 * t142 * t13134 + 0.52158968938732547128e0 * t987 * t989 * t13138 - 0.15647690681619764138e1 * t987 * t2523 * t13142 - 0.90685268025055555116e0 * t1030 * t2076 * t13142 + 0.50783750094031110864e1 * t11488 + 0.48681704342817043986e1 * t11493 + 0.27205580407516666535e1 * t1301 * t2076 * t12938 - 0.10882232163006666614e1 * t1301 * t826 * t12943 + 0.54411160815033333070e1 * t1030 * t7256 * t13157 - 0.18137053605011111023e1 * t1030 * t2076 * t13161 - 0.90685268025055555117e0 * t1030 * t2076 * t13165 - 0.90685268025055555115e0 * t1030 * t2076 * t13169;
7731   t13176 = t1171 * t12942;
7732   t13180 = t3887 * t3939;
7733   t13213 = t3912 * t3006;
7734   t13217 = 0.36274107210022222046e0 * t1030 * t826 * t13176 + 0.18137053605011111023e0 * t1030 * t826 * t13180 + 0.84639583490051851440e1 * t11509 - 0.16927916698010370288e1 * t11511 + 0.62590762726479056552e1 * t987 * t7599 * t13157 - 0.15647690681619764138e1 * t987 * t2523 * t13165 - 0.15647690681619764138e1 * t987 * t2523 * t13169 + 0.10431793787746509425e1 * t987 * t989 * t13176 + 0.52158968938732547127e0 * t987 * t989 * t13180 - 0.31295381363239528276e1 * t987 * t2523 * t13161 - 0.90685268025055555115e0 * t1030 * t2076 * t12925 + 0.18137053605011111023e0 * t1030 * t826 * t12932 - 0.45342634012527777558e-1 * t1030 * t153 * t13134 - 0.90685268025055555115e0 * t1030 * t2076 * t13213;
7735   t13218 = t3917 * t3939;
7736   t13228 = t1164 * t3894;
7737   t13232 = t3867 * t1232;
7738   t13248 = t1006 * t4581;
7739   t13250 = t1044 * t4394;
7740   t13258 = 0.18137053605011111023e0 * t1030 * t826 * t13218 - 0.54411160815033333068e0 * t1301 * t826 * t13125 + 0.18137053605011111023e0 * t1030 * t826 * t13138 + 0.27205580407516666535e1 * t1301 * t2076 * t13228 - 0.16323348244509999921e1 * t1301 * t826 * t13232 - 0.15647690681619764138e1 * t3380 * t142 * t12903 + 0.31295381363239528276e1 * t1267 * t2523 * t13228 - 0.31295381363239528275e1 * t1267 * t989 * t13232 + 0.31295381363239528275e1 * t3380 * t989 * t12915 - t9450 + 0.48681704342817043986e1 * t13248 + 0.14106597248341975240e0 * t13250 - 0.30228422675018518372e-1 * t388 * t12549 - 0.17386322979577515709e0 * t369 * t310 * t107 * t12091;
7741   t13280 = t9460 + t9475 + 0.47962430644362715816e1 * t9478 + 0.87897521730086329417e1 * t9488 + 0.95924861288725431632e1 * t11555 + 0.42319791745025925720e0 * t11557 + 0.36511278257112782988e1 * t11559 - 0.84639583490051851440e0 * t11561 - 0.10431793787746509425e1 * t1267 * t989 * t12899 - 0.26079484469366273564e0 * t987 * t142 * t12668 + 0.52158968938732547127e0 * t987 * t989 * t12658 - 0.10431793787746509425e1 * t1267 * t989 * t12389 - 0.84639583490051851440e0 * t11584 + 0.21159895872512962860e0 * t11586;
7742   t13302 = 0.52158968938732547127e0 * t1267 * t142 * t12376 + 0.52158968938732547127e0 * t1267 * t142 * t12380 - 0.84639583490051851440e0 * t11592 + 0.42319791745025925720e0 * t11594 + 0.21159895872512962860e0 * t11596 + 0.17386322979577515709e0 * t987 * t989 * t12333 + 0.18137053605011111023e0 * t1030 * t12641 - 0.15647690681619764138e1 * t987 * t2523 * t13213 + 0.52158968938732547127e0 * t987 * t989 * t13218 + 0.73022556514225565979e1 * t11619 + t7813 + t7816 + t9549 - t9553;
7743   t13310 = -0.83454350301972075402e1 * t97 * t1254 * t4163 - 0.16690870060394415080e2 * t97 * t7467 * t4477 + 0.66763480241577660320e2 * t1261 * t7477 * t4477 * t391 - 0.50072610181183245240e2 * t1261 * t3986 * t1326 + 0.16690870060394415081e2 * t3335 * t4481 - 0.50072610181183245243e2 * t1261 * t3341 * t12796 + 0.16690870060394415081e2 * t1261 * t3345 * t1550 + 0.16690870060394415081e2 * t1261 * t1262 * t4163 - 0.27818116767324025134e1 * t97 * t963 * t4589 + 0.55636233534648050268e1 * t1261 * t968 * t4589 * t391 - 0.27818116767324025134e1 * t97 * t353 * (t12842 + t12874 + t12892 + t12929 + t12960 + t12993 + t13019 + t13042 + t13076 + t13103 + t13131 + t13173 + t13217 + t13258 + t13280 + t13302);
7744   t13319 = t3765 * t524;
7745   t13328 = 0.23260393291413087447e-1 * t730 * t2875 * t1388 - t8520 + 0.25844881434903430496e-2 * t89 * t95 * (0.27818116767324025134e1 * t97 * (t12342 + t12401 + t12539 + t12577 + t12613 + t12673 + t12701 + t12748) * t158 - 0.27818116767324025134e1 * t97 * t12755 * t391 - 0.83454350301972075402e1 * t97 * t10991 * t503 + 0.16690870060394415080e2 * t12762 * t1263 - 0.83454350301972075402e1 * t97 * t3970 * t1326 + 0.16690870060394415081e2 * t97 * t8973 * t1502 - 0.50072610181183245243e2 * t3977 * t3987 + 0.33381740120788830162e2 * t3977 * t3990 - 0.83454350301972075402e1 * t97 * t3321 * t1550 + 0.16690870060394415080e2 * t3977 * t3997 + t13310) * t397 + t12458 + t8524 - t8526 - t12459 + 0.46520786582826174894e-1 * t730 * t3590 * t3735 + t9658 + 0.3e1 / 0.2e1 * t13319 + 0.3e1 / 0.2e1 * t3692 * t524 - 0.7e1 / 0.2e1 * t11714 + 0.3e1 / 0.2e1 * t11716 + 0.3e1 * t11724 + 0.3e1 * t11725 + 0.3e1 * t11727 + t12460;
7746   t13334 = -t8532 - 0.7e1 * t11787 - t12461 + t7144 - t12462 - t12463 - t12464 + t12466 - t12468 - t12469 - t7156 + 0.3e1 / 0.2e1 * t11795 + 0.3e1 / 0.2e1 * t11800 - t7160 + t7163 - 0.455e3 / 0.27e2 * t7844 + t7849 / 0.2e1;
7747   t13345 = t9747 + 0.35e2 * t3075 + 0.77534644304710291488e-2 * t4170 + t9754 - 0.52634010577096836639e1 * t3093 + t7 * (t11912 + t11939 + t11995 + t12017 + t12029 + t12098 + t12111 + t12138 + t12156 + t12203 + t12259 + t12274 + t12290 + t12308 + t13328 + t13334) + 0.46520786582826174894e-1 * t4173 + 0.46520786582826174894e-1 * t4177 + 0.93041573165652349788e-1 * t4180 + t4616 - 0.72e2 * t3099 - t9757 - t9758 + t4622 - 0.23260393291413087446e-1 * t4184 + t7949 - t7950 - t7951;
7748   t13356 = t7952 + t7953 + t7954 + t9760 + 0.93041573165652349788e-1 * t4188 - 0.10986933022051895965e-2 * t3801 + 0.59255369107695618687e-1 * t3803 - t4626 - t9763 + 0.6e1 * t3806 + 0.46520786582826174894e-1 * t4191 + t4418 + 0.3e1 / 0.2e1 * t4196 + 0.3e1 * t4201 + 0.3e1 * t4205 + 0.3e1 / 0.2e1 * t4209 - 0.15584180309438276970e3 * t3162 - t9764;
7749   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7750     v4rho4[3] = t11848 + t11854 + t11861 + t11869 + t11878 + t11884 + t13345 + t13356;
7751 
7752   t13372 = 0.6e1 * t3633 + 0.12e2 * t3685 + t6286 + 0.6e1 * t4285 + t7873 + 0.62027715443768233192e-1 * t4289 + 0.31013857721884116596e-1 * t4292 + 0.93041573165652349787e-1 * t4295 + t7878 - t7879 + t7882;
7753   t13379 = -t7885 + 0.20675905147922744397e-1 * t4302 - t7887 - t7888 - t7889 - t7890 + 0.6e1 * t2942 + 0.144e3 * t2950 + 0.384e3 * t2952 - 0.96e2 * t2954 - t7891;
7754   t13390 = 0.79007158810260824916e-1 * t4323 - 0.28e2 * t2959 + 0.140e3 / 0.3e1 * t2968 - 0.14e2 * t3714 - 0.28e2 * t3716 - 0.14e2 * t3719 - 0.48e2 * t3721 - 0.48e2 * t3723 + 0.29298488058805055905e-2 * t2974 + 0.6e1 * t2976 + t7898;
7755   t13404 = 0.10337952573961372198e-1 * t4596 + 0.93041573165652349788e-1 * t4599 + 0.18608314633130469957e0 * t4602 + t7929 - t7932 + t7933 + 0.240e3 * t3030 + 0.13012297059337829058e0 * t3033 - t7934 + 0.2e1 * t4607 - t7940;
7756   t13413 = t7944 - t7945 - t7946 - 0.14e2 * t3759 + 0.6e1 * t3766 + 0.140e3 / 0.3e1 * t3075 - 0.70178680769462448852e1 * t3093 + 0.18608314633130469957e0 * t4615 - 0.96e2 * t3099 + 0.2e1 * t4621 + t7949;
7757   t13415 = 0.14649244029402527953e-2 * t9891;
7758   t13417 = 0.72e2 * t9897;
7759   t13418 = 0.192e3 * t9899;
7760   t13426 = t1375 * t1375;
7761   t13431 = t1379 * t1379;
7762   t13437 = 0.24e2 * t39 + 0.24e2 * t6404;
7763   t13440 = t1382 * t1382;
7764   t13445 = t1385 * t1385;
7765   t13450 = -t13437;
7766   t13454 = (0.40e2 / 0.81e2 * t6912 * t13426 - 0.16e2 / 0.9e1 * t3598 * t1379 + 0.4e1 / 0.3e1 * t608 * t13431 + 0.16e2 / 0.9e1 * t1179 * t4252 + 0.4e1 / 0.3e1 * t44 * t13437 + 0.40e2 / 0.81e2 * t6925 * t13440 - 0.16e2 / 0.9e1 * t3611 * t1385 + 0.4e1 / 0.3e1 * t618 * t13445 + 0.16e2 / 0.9e1 * t1185 * t4260 + 0.4e1 / 0.3e1 * t47 * t13450) * t53;
7767   t13456 = 0.19751789702565206229e-1 * t13454 * t79;
7768   t13459 = 0.4e1 * t11988;
7769   t13467 = -0.14e2 * t8026 - 0.14e2 * t11924 + t6323 - t6327 + t6330 + t13456 - 0.14e2 * t8141 - 0.1820e4 / 0.27e2 * t8148 + t13459 + 0.6e1 * t4200 * t4284 + 0.2e1 * t1125 * t1127 * t4268 * t521 * t192;
7770   t13479 = 0.73246220147012639764e-3 * t12003;
7771   t13483 = 0.6e1 * t10052;
7772   t13484 = 0.120e3 * t10057;
7773   t13496 = t1388 * t1388;
7774   t13524 = -0.28e2 / 0.81e2 * t6392 * t13426 + 0.8e1 / 0.9e1 * t3653 * t1379 - t714 * t13431 / 0.3e1 - 0.4e1 / 0.9e1 * t1103 * t4252 + t294 * t13437 / 0.3e1 - 0.28e2 / 0.81e2 * t6411 * t13440 + 0.8e1 / 0.9e1 * t3663 * t1385 - t719 * t13445 / 0.3e1 - 0.4e1 / 0.9e1 * t1109 * t4260 + t296 * t13450 / 0.3e1;
7775   t13535 = -t13479 + t6485 + t6488 + t6805 - 0.93041573165652349788e-1 * t1141 * t4182 * t1403 + t13483 + t13484 + 0.2e1 * t4606 * t524 + 0.3e1 * t1399 * t1415 + 0.2e1 * t514 * t4271 + t179 * t426 * t5 * (-t6364 + 0.123200e6 / 0.243e3 * t8127 - 0.4400e4 / 0.27e2 * t11752 - 0.4400e4 / 0.27e2 * t11769 + 0.800e3 / 0.9e1 * t12232 + 0.800e3 / 0.27e2 * t12242 - 0.25e2 / 0.3e1 * t184 * t186 * t13496 * t188 - 0.100e3 / 0.9e1 * t184 * t3643 * t4264 - 0.25e2 / 0.9e1 * t184 * t433 * t188 * t13524) * t192 / 0.2e1;
7776   t13540 = 0.144e3 * t8241;
7777   t13556 = t4441 * t475 * t118;
7778   t13557 = t153 * t13556;
7779   t13561 = t4263 * t475 * t118;
7780   t13562 = t826 * t13561;
7781   t13565 = t12367 * t460;
7782   t13566 = t826 * t13565;
7783   t13569 = t3862 * t1476;
7784   t13570 = t153 * t13569;
7785   t13573 = t3867 * t1476;
7786   t13574 = t153 * t13573;
7787   t13577 = t3878 * t1388;
7788   t13578 = t826 * t13577;
7789   t13581 = t12337 * t460;
7790   t13582 = t826 * t13581;
7791   t13585 = 0.35e2 / 0.12e2 * t10420 + 0.86207184773738515393e1 * t10479 + 0.50710108690434420820e-1 * t12324 - 0.65198711173415683908e0 * t3109 * t3212 * t3939 * t1388 + 0.13039742234683136782e0 * t3211 * t3212 * t4382 + 0.60852130428521304982e1 * t12365 + 0.30426065214260652492e0 * t12393 - 0.30426065214260652492e0 * t12395 + 0.50710108690434420820e-1 * t12397 - 0.10866451862235947318e-1 * t319 * t13557 + 0.43465807448943789272e-1 * t319 * t13562 + 0.43465807448943789272e-1 * t319 * t13566 - 0.97798066760123525865e-1 * t2109 * t13570 + 0.97798066760123525863e-1 * t813 * t13574 + 0.65198711173415683908e-1 * t319 * t13578 + 0.26079484469366273564e0 * t2109 * t13582;
7792   t13586 = t12738 * t475;
7793   t13587 = t153 * t13586;
7794   t13590 = t3867 * t1403;
7795   t13591 = t2076 * t13590;
7796   t13600 = t3878 * t1403;
7797   t13601 = t2076 * t13600;
7798   t13604 = t12644 * t460;
7799   t13605 = t826 * t13604;
7800   t13613 = t1434 * t1434;
7801   t13614 = t6 * t13613;
7802   t13615 = t13614 * t7214;
7803   t13619 = t13614 * t2112;
7804   t13623 = t3867 * t1388;
7805   t13624 = t826 * t13623;
7806   t13628 = t1476 * t1434 * t118;
7807   t13629 = t153 * t13628;
7808   t13632 = t3912 * t1388;
7809   t13633 = t826 * t13632;
7810   t13636 = 0.21732903724471894636e-1 * t813 * t13587 + 0.65198711173415683908e0 * t813 * t13591 - 0.30426065214260652492e1 * t12399 + 0.455e3 / 0.162e3 * t8686 - 0.26079484469366273564e0 * t3217 * t10416 * t3769 * t475 - 0.32599355586707841954e0 * t319 * t13601 + 0.43465807448943789272e-1 * t319 * t13605 - 0.60852130428521304982e0 * t12569 - 0.60852130428521304982e0 * t12571 + 0.12170426085704260996e1 * t12573 - 0.30426065214260652492e0 * t12575 - 0.17241436954747703079e1 * t10718 + 0.65198711173415683912e-1 * t7211 * t152 * t13615 - 0.97798066760123525865e-1 * t2109 * t152 * t13619 - 0.13039742234683136782e0 * t813 * t13624 - 0.16299677793353920978e-1 * t319 * t13629 + 0.65198711173415683908e-1 * t319 * t13633;
7811   t13641 = t13614 * t816;
7812   t13645 = t1476 * t1476;
7813   t13646 = t6 * t13645;
7814   t13647 = t13646 * t816;
7815   t13651 = t13646 * t118;
7816   t13655 = t13614 * t118;
7817   t13659 = -t6289 + t13415 + t13417 + t13418 - t6316 + t6323 - t6327 + t6330 + t13456 + t13459 - t6443 - t6459;
7818   t13660 = -t6461 + t6464 + t6466 - t6470 - t13479 + t6485 + t6488 + t6805 + t13483 + t13484 + t6510 - t6815 + t13540;
7819   t13662 = 0.41015588084031179722e4 * t8250;
7820   t13663 = 0.384e3 * t8254;
7821   t13664 = 0.23392893589820816284e1 * t12031;
7822   t13665 = 0.19263778438055647920e1 * t8287;
7823   t13666 = 0.65061485296689145286e-1 * t8289;
7824   t13667 = -t6821 - t13662 + t13663 + t6829 - t13664 - t6834 + t6838 - t6856 + t13665 + t13666 + t6521 - t6870;
7825   t13668 = 0.4e1 * t8335;
7826   t13669 = 0.240e3 * t8337;
7827   t13670 = 0.35089340384731224426e1 * t10184;
7828   t13671 = 0.10389453539625517980e3 * t10186;
7829   t13672 = 0.23392893589820816284e1 * t8352;
7830   t13673 = t6874 - t6878 + t6886 + t6894 - t6902 - t6910 + t13668 + t13669 - t13670 - t13671 + t6596 - t7019 - t13672;
7831   t13676 = 0.13012297059337829057e0 * t8362;
7832   t13677 = 0.65061485296689145287e-1 * t10260;
7833   t13678 = 0.70178680769462448852e1 * t10262;
7834   t13679 = 0.48e2 * t8429;
7835   t13680 = 0.86748647062252193714e-1 * t8489;
7836   t13681 = -t6601 + t6605 - t13676 + t13677 + t13678 - t6614 - t13679 - t13680 + t7050 + t7053 - t7058 - t7061;
7837   t13682 = 0.14035736153892489771e2 * t8502;
7838   t13683 = 0.14035736153892489771e2 * t8506;
7839   t13684 = 0.48e2 * t10339;
7840   t13685 = 0.20778907079251035960e3 * t8508;
7841   t13686 = t7065 + t7075 + t6632 + t6635 - t6638 - t6644 + t6658 - t13682 + t7106 + t13683 - t13684 + t7108 - t13685;
7842   t13688 = 0.48e2 * t8519;
7843   t13689 = 0.96e2 * t8521;
7844   t13690 = t6677 - t6698 - t6702 - t6717 + t6737 + t7115 - t6740 - t6748 + t6756 + t7124 - t13688 - t13689;
7845   t13691 = 0.576e3 * t8523;
7846   t13692 = 0.960e3 * t8525;
7847   t13693 = 0.480e3 * t8527;
7848   t13694 = 0.41557814158502071920e3 * t8529;
7849   t13696 = t40 * t13454 * t81;
7850   t13697 = 0.48e2 * t10865;
7851   t13698 = 0.22787712934626154593e-2 * t8533;
7852   t13699 = 0.16e2 * t12465;
7853   t13700 = 0.16e2 * t12467;
7854   t13701 = -t13691 - t13692 - t13693 + t13694 + t13696 - t13697 + t7144 - t13698 - t13699 - t13700 - t7156 - t7160 + t7163;
7855   t13720 = t1403 * t1403;
7856   t13736 = -0.12897460341341234505e3 * (t13659 + t13660 + t13667 + t13673 + t13681 + t13686 + t13690 + t13701) * t112 * t115 + 0.15476952409609481406e4 * t12477 * t472 - 0.92861714457656888434e4 * t10919 * t1470 + 0.23215428614414222108e4 * t3814 * t1473 + 0.30953904819218962812e5 * t8466 * t4432 - 0.18572342891531377687e5 * t3819 * t4435 + 0.15476952409609481406e4 * t1206 * t4438 - 0.46430857228828444218e5 * t7186 * t115 * t13720 + 0.46430857228828444218e5 * t3188 * t3826 * t1388 - 0.46430857228828444218e4 * t923 * t115 * t13496 - 0.61907809638437925624e4 * t1211 * t1212 * t4263 + 0.38692381024023703515e3 * t324 * t115 * t13524;
7857   t13738 = t6 * t13736 * t118;
7858   t13744 = t7370 * t132 * t13720;
7859   t13748 = t950 * t132 * t13496;
7860   t13751 = t4357 * t460;
7861   t13759 = t7355 + 0.34482873909495406156e1 * t10757 - 0.43103592386869257697e0 * t10771 + 0.86207184773738515393e0 * t10773 + 0.38032581517825815613e-1 * t813 * t152 * t13641 + 0.16299677793353920977e-1 * t813 * t152 * t13647 - 0.81498388966769604888e-2 * t319 * t152 * t13651 - 0.27166129655589868296e-2 * t319 * t152 * t13655 - 0.27166129655589868296e-2 * t319 * t152 * t13738 - 0.43103592386869257697e0 * t10820 + 0.22819548910695489368e1 * t126 * t13744 + 0.16299677793353920977e0 * t126 * t13748 + t803 * t312 * t13751 / 0.4e1 + 0.15213032607130326245e0 * t12676 - 0.35e2 / 0.36e2 * t10951 + 0.76628608687767569239e1 * t8876 + 0.7e1 / 0.36e2 * t12690;
7862   t13763 = t12681 * t460;
7863   t13767 = t3789 * t1388;
7864   t13772 = t12347 * t460;
7865   t13773 = t826 * t13772;
7866   t13776 = t1171 * t4287;
7867   t13777 = t7256 * t13776;
7868   t13780 = t3912 * t1403;
7869   t13781 = t2076 * t13780;
7870   t13794 = t342 * t132 * t13524;
7871   t13797 = t1426 * t1388;
7872   t13806 = 0.7e1 / 0.3e1 * t12692 + 0.20284043476173768328e0 * t12719 - 0.7e1 / 0.4e1 * t12721 + 0.21732903724471894636e0 * t1239 * t1240 * t13763 - 0.19559613352024705172e1 * t1239 * t3306 * t13767 - 0.60852130428521304982e0 * t12723 - 0.26079484469366273564e0 * t813 * t13773 + 0.13039742234683136782e1 * t319 * t13777 - 0.32599355586707841954e0 * t319 * t13781 + 0.30426065214260652492e1 * t12743 + 0.5e1 / 0.4e1 * t7425 * t312 * t5 * t13720 + 0.3e1 / 0.16e2 * t803 * t312 * t5 * t13496 + t7449 - 0.10866451862235947318e-1 * t126 * t13794 - 0.3e1 / 0.2e1 * t2102 * t312 * t13797 + 0.19157152171941892310e1 * t8918 - t311 * t312 * t5 * t13524 / 0.48e2;
7873   t13829 = t1502 * t1502;
7874   t13836 = t1550 * t1550;
7875   t13868 = 0.24340852171408521992e1 * t12820 - 0.48681704342817043985e1 * t12825 - 0.31295381363239528276e1 * t987 * t2523 * t13600 + 0.24182738140014814697e0 * t1030 * t13605 - 0.48681704342817043984e1 * t12832 - 0.48681704342817043985e1 * t12834 + 0.97363408685634087970e1 * t12836 + 0.15647690681619764138e1 * t369 * t802 * t107 * t13496 - 0.52158968938732547128e0 * t987 * t142 * t13628 - 0.20863587575493018850e1 * t1267 * t989 * t13623 + 0.69545291918310062836e0 * t987 * t989 * t13604 + 0.14604511302845113196e2 * t12863 - 0.25391875047015555432e1 * t12872;
7876   t13900 = 0.33855833396020740576e1 * t12877 + 0.18137053605011111023e0 * t1301 * t13587 - 0.90685268025055555116e-1 * t1030 * t13629 + 0.41727175150986037700e1 * t3380 * t989 * t13581 - 0.31295381363239528276e1 * t3380 * t142 * t13569 + 0.31295381363239528276e1 * t1267 * t142 * t13573 + 0.24182738140014814697e0 * t1030 * t13562 + 0.69545291918310062836e0 * t987 * t989 * t13561 + 0.69545291918310062836e0 * t987 * t989 * t13565 - 0.34772645959155031419e0 * t987 * t142 * t13556 - 0.40568086952347536654e1 * t11100 + 0.23439339128023021177e2 * t9095 + 0.63479687617538888581e1 * t388 * t13744 + 0.45342634012527777558e0 * t388 * t13748;
7877   t13933 = -0.18137053605011111023e1 * t1030 * t13781 - 0.60456845350037036744e-1 * t1030 * t13557 + 0.83454350301972075403e1 * t987 * t7599 * t13776 - 0.41727175150986037700e1 * t1267 * t989 * t13772 + 0.54411160815033333070e1 * t1301 * t13591 - 0.21764464326013333228e1 * t1301 * t13773 + 0.62590762726479056551e1 * t1267 * t2523 * t13590 + 0.24182738140014814697e0 * t1030 * t13566 - 0.10882232163006666614e1 * t1301 * t13624 + 0.36274107210022222046e0 * t1030 * t13633 + 0.36274107210022222046e0 * t1030 * t13578 + 0.29019285768017777637e1 * t3515 * t13582 - 0.10882232163006666614e1 * t3515 * t13570 + 0.72548214420044444093e1 * t1030 * t13777;
7878   t13938 = t5 * t13613;
7879   t13957 = t5 * t13645;
7880   t13972 = -0.25391875047015555432e1 * t12950 - 0.33855833396020740576e1 * t12952 + 0.84639583490051851440e0 * t12954 - 0.33855833396020740576e1 * t12956 - 0.86931614897887578546e-1 * t356 * t358 * t13938 * t118 + 0.13602790203758333267e0 * t1021 * t379 * t13647 + 0.20863587575493018851e1 * t369 * t1291 * t13751 - 0.86931614897887578546e-1 * t356 * t358 * t5 * t13736 * t118 - 0.12518152545295811310e2 * t369 * t3450 * t13797 - 0.26079484469366273564e0 * t356 * t358 * t13957 * t118 + 0.52158968938732547127e0 * t976 * t358 * t13957 * t816 + 0.20863587575493018851e1 * t7633 * t358 * t13938 * t7214 + 0.16227234780939014661e2 * t11265 - 0.48681704342817043985e1 * t12986;
7881   t13996 = 0.21316635841938984807e2 * t9220 + 0.10658317920969492404e2 * t9232 + 0.81616741222549999602e0 * t1301 * t13574 - 0.31295381363239528276e1 * t987 * t2523 * t13780 + 0.10431793787746509425e1 * t987 * t989 * t13577 - 0.18137053605011111023e1 * t1030 * t13601 + 0.69545291918310062836e0 * t1267 * t142 * t13586 - 0.40568086952347536654e1 * t11369 + 0.71943645966544073724e1 * t11371 - 0.23981215322181357908e1 * t11373 + 0.81136173904695073308e0 * t13070 - 0.84639583490051851440e1 * t13072 + 0.28213194496683950480e0 * t13074;
7882   t14027 = -0.14604511302845113195e2 * t13077 + 0.28213194496683950480e0 * t13079 + 0.81136173904695073308e0 * t13081 + 0.16227234780939014661e1 * t13083 + 0.16927916698010370288e2 * t13085 - 0.23981215322181357908e1 * t11386 + 0.81136173904695073307e1 * t11408 - 0.31295381363239528276e1 * t2618 * t358 * t13938 * t2112 + 0.12170426085704260996e1 * t976 * t358 * t13938 * t816 + 0.31739843808769444290e0 * t1021 * t379 * t13641 + 0.90685268025055555115e0 * t7646 * t379 * t13615 - 0.10882232163006666614e1 * t2648 * t379 * t13619 - 0.45342634012527777558e-1 * t378 * t379 * t13651 - 0.15114211337509259186e-1 * t378 * t379 * t13655;
7883   t14050 = t12304 * t1171;
7884   t14054 = -0.15114211337509259186e-1 * t378 * t379 * t13738 - 0.54411160815033333070e1 * t388 * t3444 * t13767 + 0.60456845350037036744e0 * t388 * t1319 * t13763 - 0.33855833396020740576e1 * t13109 + 0.16927916698010370288e2 * t13111 + 0.10156750018806222173e2 * t13113 + 0.10431793787746509425e1 * t987 * t989 * t13632 - 0.48681704342817043984e1 * t13119 + 0.48681704342817043984e1 * t13121 - 0.81136173904695073307e1 * t11460 - 0.47962430644362715816e1 * t11462 + 0.24340852171408521992e2 * t11464 + 0.23981215322181357908e2 * t11466 - 0.36274107210022222046e1 * t1030 * t2076 * t14050;
7885   t14058 = t460 * t1476;
7886   t14059 = t1171 * t14058;
7887   t14066 = t1164 * t14058;
7888   t14087 = -0.62590762726479056552e1 * t987 * t2523 * t14050 + 0.20863587575493018851e1 * t987 * t989 * t14059 + 0.72548214420044444092e0 * t1030 * t826 * t14059 - 0.41727175150986037700e1 * t1267 * t989 * t14066 - 0.21764464326013333228e1 * t1301 * t826 * t14066 + 0.19472681737126817594e2 * t13248 + 0.56426388993367900960e0 * t13250 + 0.10431793787746509426e2 * t369 * t7424 * t107 * t13720 - 0.30228422675018518372e-1 * t388 * t13794 - 0.17386322979577515709e0 * t369 * t310 * t107 * t13524 + 0.11719669564011510589e2 * t9488 + 0.19184972257745086327e2 * t11555 + t7813 + t7816;
7889   t14094 = 0.27818116767324025134e1 * t97 * (t13585 + t13636 + t13759 + t13806) * t158 - 0.11127246706929610054e2 * t97 * t12755 * t503 + 0.33381740120788830161e2 * t97 * t10381 * t1502 - 0.16690870060394415080e2 * t97 * t3970 * t1550 - 0.66763480241577660323e2 * t97 * t8995 * t4477 + 0.66763480241577660323e2 * t3977 * t4481 - 0.11127246706929610054e2 * t97 * t1254 * t4589 + 0.66763480241577660320e2 * t97 * t7478 * t13829 - 0.10014522036236649048e3 * t1261 * t3986 * t1550 + 0.16690870060394415081e2 * t97 * t969 * t13836 + 0.22254493413859220108e2 * t1261 * t1262 * t4589 - 0.27818116767324025134e1 * t97 * t353 * (t13868 + t13900 + t13933 + t13972 + t13996 + t14027 + t14054 + t14087);
7890   t14107 = -0.1820e4 / 0.27e2 * t8263 - t13664 - t6834 + t6838 - t6856 + t167 * t176 * t13524 * t99 * t194 / 0.2e1 + 0.2e1 * t12057 + t13665 + t13666 + t6521 - t6870;
7891   t14115 = t6874 - t6878 + t6886 + t6894 - t6902 - t6910 - 0.14e2 / 0.3e1 * t12109 + 0.2e1 * t514 * t4620 - 0.46520786582826174894e-1 * t730 * t4182 * t1388 + t6948 - t6950;
7892   t14121 = t1563 * t1563;
7893   t14126 = -t6956 + t7002 + 0.70e2 / 0.3e1 * t10155 + t13668 + t13669 + 0.31013857721884116596e-1 * t1093 * t3590 * t1554 - t13670 - t13671 - 0.14e2 / 0.3e1 * t12150 - 0.15506928860942058298e-1 * t89 * t95 * t14121 * t6309 + t6596;
7894   t14130 = t1412 * t1412;
7895   t14140 = t1554 * t1554;
7896   t14148 = -t13679 - 0.77534644304710291488e-2 * t89 * t95 * t14140 * t1063 + 0.6e1 * t12184 - 0.14e2 * t12188 + 0.2e1 * t12220 + t7047 - t13680 + t7050 + t7053 - t7058 - t7061;
7897   t14160 = t1419 * t1419;
7898   t14169 = -t6638 - 0.28e2 * t10329 + 0.3e1 * t1399 * t1422 + t179 * t426 * t5 * t14160 * t192 / 0.2e1 - t6644 + t6658 + 0.31013857721884116596e-1 * t730 * t12041 * t460 - t13682 + t7106 + t13683 - t13684;
7899   t14188 = -t6717 + t6737 + 0.31013857721884116596e-1 * t730 * t1137 * t4263 + t7115 - t6740 - t6748 + t6756 + t7124 - t13688 - t13689 - t13691;
7900   t14199 = -t13692 - t13693 + 0.62027715443768233192e-1 * t730 * t12005 * t460 + 0.93041573165652349788e-1 * t1141 * t3703 * t1403 + 0.6e1 * t13319 + 0.6e1 * t11724 + t13694 - 0.14e2 * t11787 + t13696 - t13697 + t7144;
7901   t14213 = -t13698 - 0.93041573165652349787e-1 * t730 * t3594 * t5499 + 0.77534644304710291488e-2 * t89 * t293 * t13524 + 0.46520786582826174894e-1 * t89 * t735 * t13496 - t13699 - t13700 - t7156 + 0.3e1 * t11795 - 0.10337952573961372198e-1 * t1093 * t1094 * t4593 - t7160 + t7163;
7902   t14223 = -t7950 - t7951 + t7952 + t7953 + t7954 - 0.21973866044103791930e-2 * t3801 + t7 * (t14213 + t14199 + t14188 + t14169 + t14148 + t14126 + t14115 + t14107 + 0.140e3 / 0.3e1 * t8239 + 0.2e1 * t8009 - t13685 - t13676 + t13677 + t13678 - t13672 + t13663 - t13662 + t13540 + t13535 + t13467 + t13418 + t13415 + t13417 + t7108 + t7075 + t7065 - t7019 + t6829 - t6821 - t6815 - t6702 - t6698 + t6677 + t6635 + t6632 - t6614 + t6605 - t6601 + t6510 + t6466 - t6470 - t6461 + t6464 - t6459 - t6443 - t6316 - t6289 - 0.14e2 / 0.3e1 * t12271 - 0.14e2 * t12268 + 0.3e1 / 0.2e1 * t179 * t426 * t5 * t14130 * t192 + 0.3e1 * t9954 + 0.3e1 * t9956 + 0.70e2 / 0.3e1 * t10302 - 0.14e2 * t10305 + 0.2e1 * t9611 + 0.70e2 / 0.3e1 * t10297 + 0.6e1 * t11898 + 0.2e1 * t12022 + 0.46520786582826174894e-1 * t730 * t3703 * t1388 + 0.18608314633130469957e0 * t1141 * t1137 * t12304 + 0.62027715443768233192e-1 * t1141 * t12205 * t460 + 0.93041573165652349788e-1 * t89 * t12296 * t1388 - 0.14e2 * t11894 + 0.25844881434903430496e-2 * t89 * t95 * t14094 * t397 + 0.62027715443768233192e-1 * t89 * t4287 * t507 * t397 + 0.3e1 * t1125 * t1127 * t12161 * t1412 + 0.140e3 / 0.3e1 * t10299 + 0.140e3 / 0.3e1 * t9621 - 0.14e2 * t9893 + 0.6e1 * t11902) - 0.31013857721884116596e-1 * t4625 + 0.12e2 * t3806 + 0.4e1 * t4418 - 0.20778907079251035960e3 * t3162;
7903   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7904     v4rho4[4] = t14223 - t7923 + t7924 + t7925 + t7911 - t7908 - t7904 + t13413 + t13404 + t13390 + t13379 + t13372 - t6279 + t6280 + t6281 - t6278 + 0.2e1 * t4272 - 0.28e2 * t3015 + 0.6e1 * t3629 + 0.14035736153892489771e2 * t3004 - 0.70178680769462448852e1 * t3588 + 0.6e1 * t4238 + 0.12e2 * t2996 + 0.6e1 * t4274 + 0.6e1 * t4276 - 0.93041573165652349787e-1 * t4340;
7905 
7906   t14230 = 0.25e2 / 0.12e2 * t4655;
7907   t14239 = 0.125e3 / 0.2e1 * t4689;
7908   t14241 = 0.125e3 / 0.6e1 * t4695;
7909   t14242 = 0.15506928860942058297e-1 * t4641 - 0.77534644304710291488e-2 * t4644 + 0.23260393291413087447e-1 * t4647 + 0.3e1 / 0.2e1 * t4650 - t14230 + 0.3e1 * t4659 + 0.3e1 * t4662 - 0.7e1 * t4665 + 0.46520786582826174894e-1 * t4668 - 0.46520786582826174894e-1 * t4671 - 0.25e2 / 0.2e1 * t4676 - 0.25e2 / 0.2e1 * t4681 + 0.125e3 / 0.2e1 * t4685 - t14239 + 0.3e1 / 0.2e1 * t4692 + t14241;
7910   t14244 = t1655 * t1126 * t2736;
7911   t14248 = t565 * t6835 * t127 * t568;
7912   t14249 = 0.875e3 / 0.6e1 * t14248;
7913   t14251 = t4697 * t4698 * t747;
7914   t14252 = t14251 * t4705;
7915   t14255 = t167 * t2704 * t194;
7916   t14256 = t14255 / 0.2e1;
7917   t14258 = t167 * t2740 * t194;
7918   t14261 = t5090 * t4702 * t1998;
7919   t14263 = t4875 * t423;
7920   t14264 = 0.7e1 / 0.2e1 * t14263;
7921   t14265 = t4878 * t423;
7922   t14267 = t4872 * t423;
7923   t14269 = t558 * t2719;
7924   t14270 = 0.455e3 / 0.27e2 * t14269;
7925   t14271 = t1649 * t682;
7926   t14273 = t1646 * t682;
7927   t14274 = 0.35e2 / 0.3e1 * t14273;
7928   t14278 = t4658 * t4649;
7929   t14280 = t4661 * t4649;
7930   t14283 = t1655 * t1126 * t2784;
7931   t14291 = t14244 / 0.2e1 + t14249 + 0.125e3 / 0.2e1 * t14252 + t14256 + 0.3e1 / 0.2e1 * t14258 - 0.25e2 / 0.12e2 * t14261 - t14264 - 0.7e1 * t14265 - 0.7e1 / 0.2e1 * t14267 - t14270 + 0.35e2 / 0.3e1 * t14271 + t14274 + 0.46520786582826174894e-1 * t1141 * t4864 * t736 + 0.3e1 / 0.2e1 * t14278 + 0.3e1 / 0.2e1 * t14280 + t14283 / 0.2e1 - 0.77534644304710291488e-2 * t1093 * t4868 * t1055 + 0.77534644304710291488e-2 * t730 * t1576 * t2030;
7932   t14292 = t786 * t192;
7933   t14295 = t4700 * t4702 * t14292 * t299;
7934   t14307 = t562 * t176 * t2043 * t99 * t569;
7935   t14312 = t1637 * t2814;
7936   t14316 = t192 * t299;
7937   t14319 = t5039 * t4702 * t14316 * t724;
7938   t14321 = t553 * t6309;
7939   t14329 = t167 * t725 * t101;
7940   t14330 = t14329 * t1656;
7941   t14337 = t5039 * t4702 * t4703 * t736;
7942   t14340 = t167 * t177 * t680;
7943   t14341 = t14340 * t1656;
7944   t14344 = t167 * t413 * t305;
7945   t14345 = t14344 * t1656;
7946   t14348 = t167 * t418 * t305;
7947   t14349 = t14348 * t1656;
7948   t14354 = t562 * t2703 * t95 * t99 * t569;
7949   t14355 = 0.25e2 / 0.36e2 * t14354;
7950   t14356 = t1661 * t4688;
7951   t14357 = 0.125e3 / 0.2e1 * t14356;
7952   t14358 = t4664 * t4691;
7953   t14360 = -0.25e2 / 0.4e1 * t14295 + 0.23260393291413087447e-1 * t730 * t4864 * t724 + 0.15506928860942058298e-1 * t89 * t2043 * t553 * t397 - 0.25e2 / 0.6e1 * t14307 + 0.15506928860942058297e-1 * t1093 * t4639 * t9644 + 0.15506928860942058297e-1 * t1093 * t14312 * t1060 - 0.25e2 / 0.2e1 * t14319 - 0.15506928860942058298e-1 * t1093 * t14321 * t2811 - 0.25844881434903430496e-2 * t1093 * t1642 * t2668 + 0.3e1 / 0.2e1 * t14330 - 0.23260393291413087447e-1 * t730 * t1642 * t9580 - 0.25e2 / 0.2e1 * t14337 + 0.35e2 / 0.3e1 * t14341 - 0.7e1 * t14345 - 0.7e1 * t14349 - t14355 - t14357 - 0.7e1 / 0.2e1 * t14358;
7954   t14362 = t1655 * t1999;
7955   t14366 = t562 * t704 * t94 * t99;
7956   t14367 = t14366 * t1670;
7957   t14369 = t4654 * t1679;
7958   t14371 = t4834 * t397;
7959   t14375 = t562 * t412;
7960   t14376 = t14375 * t4699;
7961   t14377 = t14376 * t4705;
7962   t14381 = t4700 * t4702 * t9589 * t299;
7963   t14385 = t4700 * t4702 * t4703 * t724;
7964   t14389 = t1666 * t1667 * t1668 * t2030;
7965   t14391 = t1661 * t4855;
7966   t14396 = t565 * t1667 * t182 * t2782 * t192;
7967   t14398 = t1661 * t4847;
7968   t14400 = t1661 * t4850;
7969   t14403 = t565 * t4683 * t4854;
7970   t14406 = t4678 * t4683 * t4679;
7971   t14408 = t4687 * t6;
7972   t14410 = t1666 * t14408 * t1669;
7973   t14412 = t4675 * t4861;
7974   t14415 = t167 * t705 * t101;
7975   t14416 = t14415 * t1656;
7976   t14419 = t167 * t710 * t101;
7977   t14420 = t14419 * t1656;
7978   t14422 = 0.3e1 / 0.2e1 * t14362 - 0.25e2 / 0.4e1 * t14367 - 0.25e2 / 0.12e2 * t14369 + 0.23260393291413087447e-1 * t730 * t14371 * t299 - 0.25e2 / 0.2e1 * t14377 - 0.25e2 / 0.4e1 * t14381 - 0.25e2 / 0.4e1 * t14385 - 0.25e2 / 0.12e2 * t14389 - 0.25e2 / 0.12e2 * t14391 - 0.25e2 / 0.36e2 * t14396 - 0.25e2 / 0.12e2 * t14398 + 0.125e3 / 0.6e1 * t14400 + 0.125e3 / 0.12e2 * t14403 + 0.125e3 / 0.2e1 * t14406 - 0.375e3 / 0.2e1 * t14410 - 0.25e2 / 0.4e1 * t14412 + 0.3e1 / 0.2e1 * t14416 + 0.3e1 * t14420;
7979   t14423 = t968 * t4830;
7980   t14431 = t4742 * t352;
7981   t14435 = t1596 * t968;
7982   t14458 = t2658 * t104 * t530;
7983   t14459 = 0.455e3 / 0.1296e4 * t14458;
7984   t14461 = t121 * t1872 * t133;
7985   t14462 = 0.95785760859709461547e0 * t14461;
7986   t14463 = t4723 * t933;
7987   t14465 = t5143 * t2462;
7988   t14467 = t2108 * t1586;
7989   t14468 = t14467 * t2114;
7990   t14470 = t4719 * t2118;
7991   t14472 = t1587 * t2448;
7992   t14474 = t812 * t4722;
7993   t14475 = t14474 * t818;
7994   t14478 = t317 * t4732 * t127;
7995   t14479 = t14478 * t331;
7996   t14481 = t4723 * t937;
7997   t14483 = t1587 * t2442;
7998   t14485 = t4719 * t2066;
7999   t14487 = t4719 * t2071;
8000   t14489 = t4723 * t829;
8001   t14491 = t364 * t129;
8002   t14492 = t14491 * t805;
8003   t14494 = -t14459 - t14462 + 0.76065163035651631230e-1 * t14463 + 0.32599355586707841954e0 * t14465 - 0.32599355586707841954e-1 * t14468 + 0.32599355586707841954e-1 * t14470 - 0.54332259311179736592e-2 * t14472 - 0.15213032607130326246e0 * t14475 - 0.43103592386869257697e0 * t14479 + 0.76065163035651631230e-1 * t14481 - 0.54332259311179736592e-2 * t14483 - 0.13039742234683136782e0 * t14485 + 0.32599355586707841954e-1 * t14487 - 0.60852130428521304984e0 * t14489 - 0.7e1 / 0.16e2 * t14492;
8004   t14495 = t140 * t341;
8005   t14496 = t14495 * t2104;
8006   t14498 = t1587 * t2078;
8007   t14500 = t1587 * t2083;
8008   t14502 = t1587 * t2061;
8009   t14505 = t5121 * t107 * t6822;
8010   t14507 = t4711 * t809;
8011   t14509 = t1583 * t2476;
8012   t14511 = t681 * t112;
8013   t14512 = t14511 * t314;
8014   t14514 = t1587 * t2052;
8015   t14516 = t1587 * t2056;
8016   t14518 = t1591 * t952;
8017   t14520 = t4733 * t344;
8018   t14522 = t1591 * t956;
8019   t14524 = t534 * t2045;
8020   t14526 = t534 * t2087;
8021   t14528 = -t14496 / 0.4e1 - 0.32599355586707841955e0 * t14498 + 0.65198711173415683911e-1 * t14500 - 0.16299677793353920977e-1 * t14502 + 0.3e1 / 0.16e2 * t14505 + 0.7e1 / 0.48e2 * t14507 - t14509 / 0.48e2 - 0.35e2 / 0.72e2 * t14512 + 0.65198711173415683911e-1 * t14514 + 0.65198711173415683911e-1 * t14516 - 0.15213032607130326246e1 * t14518 - 0.17241436954747703079e1 * t14520 + 0.30426065214260652492e0 * t14522 - 0.65198711173415683908e0 * t14524 - 0.21732903724471894637e-1 * t14526;
8022   t14541 = t7477 * t549;
8023   t14545 = t2501 * t1633;
8024   t14552 = t4813 * t2052;
8025   t14554 = t4813 * t2056;
8026   t14556 = t1613 * t2534;
8027   t14558 = t1613 * t2527;
8028   t14560 = t1613 * t2561;
8029   t14562 = t1613 * t2564;
8030   t14564 = t4778 * t2552;
8031   t14566 = t4778 * t2555;
8032   t14568 = t4784 * t990;
8033   t14571 = t146 * t7631 * t124;
8034   t14572 = t14571 * t2649;
8035   t14574 = t4806 * t2613;
8036   t14576 = 0.36274107210022222047e0 * t14552 + 0.36274107210022222047e0 * t14554 + 0.52158968938732547127e0 * t14556 - 0.26079484469366273564e0 * t14558 + 0.52158968938732547127e0 * t14560 + 0.52158968938732547127e0 * t14562 - 0.10431793787746509425e1 * t14564 + 0.52158968938732547127e0 * t14566 - 0.24340852171408521993e1 * t14568 - 0.36274107210022222046e0 * t14572 + 0.27205580407516666535e0 * t14574;
8037   t14579 = t137 * t1018 * t101 * t50;
8038   t14581 = t14579 * t141 * t2620;
8039   t14584 = t4778 * t141 * t2624;
8040   t14586 = t1624 * t2599;
8041   t14589 = t146 * t2616 * t335;
8042   t14590 = t14589 * t1022;
8043   t14593 = t146 * t974 * t941;
8044   t14594 = t14593 * t380;
8045   t14596 = t1630 * t2652;
8046   t14598 = t4810 * t1033;
8047   t14600 = t1624 * t2655;
8048   t14602 = t1618 * t1010;
8049   t14604 = t542 * t2545;
8050   t14606 = t4796 * t371;
8051   t14608 = t1618 * t1014;
8052   t14610 = -0.52158968938732547127e0 * t14581 + 0.52158968938732547127e0 * t14584 - 0.30228422675018518372e-1 * t14586 - 0.12695937523507777716e1 * t14590 - 0.23981215322181357908e1 * t14594 + 0.90685268025055555116e0 * t14596 + 0.42319791745025925720e0 * t14598 - 0.30228422675018518372e-1 * t14600 - 0.36511278257112782988e1 * t14602 - 0.20863587575493018851e1 * t14604 - 0.40568086952347536654e1 * t14606 + 0.12170426085704260996e1 * t14608;
8053   t14612 = t542 * t2578;
8054   t14614 = t546 * t2549;
8055   t14615 = 0.26645794802423731009e1 * t14614;
8056   t14616 = t4810 * t1036;
8057   t14618 = t1613 * t2524;
8058   t14621 = t5210 * t2522 * t2090;
8059   t14623 = t4784 * t4789;
8060   t14627 = t137 * t148 * t680 * t50;
8061   t14628 = t14627 * t1614;
8062   t14631 = t146 * t354 * t941;
8063   t14632 = t14631 * t344;
8064   t14634 = t4823 * t956;
8065   t14636 = t1630 * t2087;
8066   t14638 = t1630 * t2045;
8067   t14640 = -0.17386322979577515709e0 * t14612 - t14615 + 0.42319791745025925720e0 * t14616 - 0.15647690681619764138e1 * t14618 + 0.15647690681619764138e1 * t14621 + 0.60852130428521304981e0 * t14623 - 0.20284043476173768327e1 * t14628 - 0.47962430644362715817e1 * t14632 + 0.84639583490051851442e0 * t14634 - 0.60456845350037036744e-1 * t14636 - 0.18137053605011111023e1 * t14638;
8068   t14641 = t4823 * t952;
8069   t14645 = t137 * t120 * t2470 * t543;
8070   t14646 = 0.29299173910028776472e1 * t14645;
8071   t14648 = t1613 * t141 * t2638;
8072   t14651 = t1613 * t141 * t2628;
8073   t14653 = t4784 * t4792;
8074   t14657 = t137 * t375 * t305 * t50;
8075   t14658 = t14657 * t4779;
8076   t14660 = t4813 * t2061;
8077   t14662 = t5217 * t2066;
8078   t14664 = t5217 * t2071;
8079   t14666 = t1029 * t4722;
8080   t14667 = t14666 * t829;
8081   t14669 = t4813 * t2078;
8082   t14671 = t4813 * t2083;
8083   t14673 = -0.42319791745025925720e1 * t14641 - t14646 - 0.86931614897887578546e-1 * t14648 - 0.86931614897887578546e-1 * t14651 + 0.60852130428521304981e0 * t14653 - 0.12170426085704260996e1 * t14658 - 0.90685268025055555116e-1 * t14660 - 0.10882232163006666614e1 * t14662 + 0.27205580407516666535e0 * t14664 - 0.33855833396020740576e1 * t14667 - 0.18137053605011111023e1 * t14669 + 0.36274107210022222047e0 * t14671;
8084   t14679 = t537 * t2501;
8085   t14685 = 0.16690870060394415081e2 * t1261 * t4769 * t1051 + 0.27818116767324025134e1 * t97 * (t14494 + t14528) * t158 + 0.16690870060394415081e2 * t8988 * t1608 - 0.83454350301972075402e1 * t97 * t4746 * t1051 - 0.27818116767324025134e1 * t97 * t1600 * t2664 + 0.66763480241577660320e2 * t1261 * t14541 * t2503 - 0.50072610181183245242e2 * t1261 * t14545 * t970 - 0.83454350301972075402e1 * t97 * t963 * t4830 - 0.27818116767324025134e1 * t97 * t353 * (t14576 + t14610 + t14640 + t14673) - 0.16690870060394415080e2 * t97 * t14679 * t2503 + 0.16690870060394415081e2 * t3335 * t4773;
8086   t14691 = t562 * t414;
8087   t14692 = t14691 * t4680;
8088   t14694 = t4675 * t4684;
8089   t14697 = t1666 * t4683 * t4860;
8090   t14709 = t167 * t2745 * t194;
8091   t14712 = t167 * t2673 * t194;
8092   t14717 = t565 * t1667 * t182 * t2734 * t192;
8093   t14720 = t565 * t14408 * t1678;
8094   t14723 = t565 * t4683 * t4846;
8095   t14725 = t4834 * t1063;
8096   t14735 = t4661 * t4691;
8097   t14737 = t4658 * t4691;
8098   t14739 = t4654 * t1674;
8099   t14740 = 0.125e3 / 0.12e2 * t14739;
8100   t14741 = t4664 * t4649;
8101   t14743 = 0.25844881434903430496e-2 * t89 * t95 * (0.16690870060394415081e2 * t1261 * t14423 * t391 + 0.33381740120788830162e2 * t3335 * t4770 - 0.50072610181183245242e2 * t3335 * t4766 - 0.83454350301972075402e1 * t97 * t14431 * t391 + 0.16690870060394415081e2 * t97 * t14435 * t970 + 0.55636233534648050268e1 * t1261 * t1607 * t2664 - 0.27818116767324025134e1 * t97 * t7456 * t549 - 0.50072610181183245240e2 * t1261 * t4765 * t8984 - 0.83454350301972075402e1 * t97 * t2489 * t1633 + 0.16690870060394415081e2 * t5159 * t2508 + t14685) * t397 - 0.25e2 / 0.2e1 * t14692 + 0.125e3 / 0.2e1 * t14694 + 0.125e3 / 0.4e1 * t14697 + 0.46520786582826174894e-1 * t730 * t4639 * t9637 - 0.46520786582826174894e-1 * t1141 * t1642 * t9651 - 0.23260393291413087447e-1 * t730 * t1642 * t9633 + 0.3e1 / 0.2e1 * t14709 + t14712 / 0.2e1 - 0.25e2 / 0.36e2 * t14717 - 0.125e3 / 0.2e1 * t14720 + 0.125e3 / 0.12e2 * t14723 - 0.77534644304710291488e-2 * t1093 * t14725 * t395 - 0.46520786582826174894e-1 * t730 * t4868 * t3554 + 0.46520786582826174894e-1 * t1141 * t1576 * t6822 + 0.3e1 / 0.2e1 * t14735 + 0.3e1 / 0.2e1 * t14737 + t14740 - 0.7e1 / 0.2e1 * t14741;
8102   t14750 = 0.35e2 / 0.3e1 * t4841;
8103   t14751 = 0.7e1 * t4843;
8104   t14760 = 0.3e1 / 0.2e1 * t4876;
8105   t14762 = t7 * (t14291 + t14360 + t14422 + t14743) - 0.25e2 / 0.2e1 * t4706 + 0.77534644304710291488e-2 * t4837 - 0.7e1 * t4839 + t14750 - t14751 - 0.25e2 / 0.12e2 * t4848 + 0.125e3 / 0.6e1 * t4851 - 0.25e2 / 0.12e2 * t4856 - 0.25e2 / 0.6e1 * t4858 - 0.25e2 / 0.4e1 * t4862 + 0.46520786582826174894e-1 * t4866 - 0.15506928860942058297e-1 * t4870 + 0.3e1 / 0.2e1 * t4873 + t14760 + 0.3e1 * t4879;
8106   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8107     v4rho3sigma[0] = t14242 + t14762;
8108 
8109   t14765 = 0.25e2 / 0.6e1 * t4655;
8110   t14769 = 0.875e3 / 0.3e1 * t14248;
8111   t14779 = 0.7e1 * t14263;
8112   t14782 = 0.910e3 / 0.27e2 * t14269;
8113   t14784 = 0.70e2 / 0.3e1 * t14273;
8114   t14785 = t585 * t6309;
8115   t14794 = t14244 + t14769 + 0.125e3 * t14252 + t14255 + 0.3e1 * t14258 - 0.25e2 / 0.6e1 * t14261 + 0.15506928860942058297e-1 * t1093 * t4894 * t9644 + 0.46520786582826174894e-1 * t730 * t4894 * t9637 - t14779 - 0.14e2 * t14265 - 0.7e1 * t14267 - t14782 + 0.70e2 / 0.3e1 * t14271 + t14784 - 0.15506928860942058298e-1 * t1093 * t14785 * t2811 - 0.25844881434903430496e-2 * t1093 * t1723 * t2668 + 0.3e1 * t14278 + 0.3e1 * t14280;
8116   t14795 = t4994 * t397;
8117   t14814 = 0.25e2 / 0.18e2 * t14354;
8118   t14815 = 0.125e3 * t14356;
8119   t14823 = t4994 * t1063;
8120   t14827 = t14283 + 0.23260393291413087447e-1 * t730 * t14795 * t299 - 0.25e2 / 0.2e1 * t14295 + 0.23260393291413087447e-1 * t730 * t4911 * t724 - 0.25e2 / 0.3e1 * t14307 + 0.15506928860942058298e-1 * t89 * t2043 * t585 * t397 - 0.25e2 * t14319 + 0.3e1 * t14330 - 0.25e2 * t14337 + 0.70e2 / 0.3e1 * t14341 - 0.14e2 * t14345 - 0.14e2 * t14349 - t14814 - t14815 - 0.7e1 * t14358 - 0.23260393291413087447e-1 * t730 * t1723 * t9633 - 0.46520786582826174894e-1 * t730 * t4902 * t3554 - 0.77534644304710291488e-2 * t1093 * t14823 * t395;
8121   t14847 = t1718 * t2814;
8122   t14854 = 0.3e1 * t14362 - 0.25e2 / 0.2e1 * t14367 - 0.25e2 / 0.6e1 * t14369 - 0.25e2 * t14377 - 0.25e2 / 0.2e1 * t14381 - 0.25e2 / 0.2e1 * t14385 - 0.25e2 / 0.6e1 * t14389 - 0.25e2 / 0.6e1 * t14391 - 0.25e2 / 0.18e2 * t14396 - 0.25e2 / 0.6e1 * t14398 + 0.125e3 / 0.3e1 * t14400 + 0.125e3 / 0.6e1 * t14403 + 0.125e3 * t14406 - 0.375e3 * t14410 - 0.25e2 / 0.2e1 * t14412 + 0.46520786582826174894e-1 * t1141 * t4911 * t736 + 0.15506928860942058297e-1 * t1093 * t14847 * t1060 + 0.46520786582826174894e-1 * t1141 * t1684 * t6822;
8123   t14883 = t2501 * t1714;
8124   t14890 = t4938 * t352;
8125   t14897 = t1693 * t968;
8126   t14904 = t575 * t2501;
8127   t14910 = t7477 * t581;
8128   t14922 = 0.455e3 / 0.648e3 * t14458;
8129   t14923 = 0.19157152171941892309e1 * t14461;
8130   t14937 = -t14922 - t14923 + 0.15213032607130326245e0 * t14463 + 0.65198711173415683908e0 * t14465 - 0.65198711173415683908e-1 * t14468 + 0.65198711173415683908e-1 * t14470 - 0.10866451862235947318e-1 * t14472 - 0.30426065214260652489e0 * t14475 - 0.86207184773738515387e0 * t14479 + 0.15213032607130326245e0 * t14481 - 0.10866451862235947318e-1 * t14483 - 0.26079484469366273563e0 * t14485 + 0.65198711173415683908e-1 * t14487 - 0.12170426085704260996e1 * t14489 - 0.7e1 / 0.8e1 * t14492;
8131   t14953 = -t14496 / 0.2e1 - 0.65198711173415683908e0 * t14498 + 0.13039742234683136782e0 * t14500 - 0.32599355586707841954e-1 * t14502 + 0.3e1 / 0.8e1 * t14505 + 0.7e1 / 0.24e2 * t14507 - t14509 / 0.24e2 - 0.35e2 / 0.36e2 * t14512 + 0.13039742234683136782e0 * t14514 + 0.13039742234683136782e0 * t14516 - 0.30426065214260652490e1 * t14518 - 0.34482873909495406156e1 * t14520 + 0.60852130428521304981e0 * t14522 - 0.13039742234683136782e1 * t14524 - 0.43465807448943789272e-1 * t14526;
8132   t14958 = t968 * t4990;
8133   t14973 = 0.72548214420044444094e0 * t14552 + 0.72548214420044444094e0 * t14554 + 0.10431793787746509425e1 * t14556 - 0.52158968938732547127e0 * t14558 + 0.10431793787746509425e1 * t14560 + 0.10431793787746509425e1 * t14562 - 0.20863587575493018851e1 * t14564 + 0.10431793787746509425e1 * t14566 - 0.48681704342817043986e1 * t14568 - 0.72548214420044444092e0 * t14572 + 0.54411160815033333069e0 * t14574;
8134   t14986 = -0.10431793787746509425e1 * t14581 + 0.10431793787746509425e1 * t14584 - 0.60456845350037036744e-1 * t14586 - 0.25391875047015555432e1 * t14590 - 0.47962430644362715816e1 * t14594 + 0.18137053605011111024e1 * t14596 + 0.84639583490051851442e0 * t14598 - 0.60456845350037036744e-1 * t14600 - 0.73022556514225565978e1 * t14602 - 0.41727175150986037700e1 * t14604 - 0.81136173904695073309e1 * t14606 + 0.24340852171408521993e1 * t14608;
8135   t14989 = 0.53291589604847462018e1 * t14614;
8136   t14999 = -0.34772645959155031418e0 * t14612 - t14989 + 0.84639583490051851442e0 * t14616 - 0.31295381363239528276e1 * t14618 + 0.31295381363239528275e1 * t14621 + 0.12170426085704260996e1 * t14623 - 0.40568086952347536654e1 * t14628 - 0.95924861288725431632e1 * t14632 + 0.16927916698010370288e1 * t14634 - 0.12091369070007407349e0 * t14636 - 0.36274107210022222047e1 * t14638;
8137   t15001 = 0.58598347820057552945e1 * t14645;
8138   t15012 = -0.84639583490051851441e1 * t14641 - t15001 - 0.17386322979577515709e0 * t14648 - 0.17386322979577515709e0 * t14651 + 0.12170426085704260996e1 * t14653 - 0.24340852171408521993e1 * t14658 - 0.18137053605011111023e0 * t14660 - 0.21764464326013333228e1 * t14662 + 0.54411160815033333069e0 * t14664 - 0.67711666792041481153e1 * t14667 - 0.36274107210022222047e1 * t14669 + 0.72548214420044444094e0 * t14671;
8139   t15024 = -0.16690870060394415080e2 * t97 * t14904 * t2503 + 0.16690870060394415081e2 * t3335 * t4969 + 0.66763480241577660320e2 * t1261 * t14910 * t2503 - 0.50072610181183245240e2 * t1261 * t4961 * t8984 - 0.50072610181183245242e2 * t3335 * t4962 - 0.27818116767324025134e1 * t97 * t1697 * t2664 + 0.27818116767324025134e1 * t97 * (t14937 + t14953) * t158 + 0.16690870060394415081e2 * t1261 * t14958 * t391 - 0.27818116767324025134e1 * t97 * t353 * (t14973 + t14986 + t14999 + t15012) - 0.83454350301972075402e1 * t97 * t2489 * t1714 + 0.16690870060394415081e2 * t1261 * t4965 * t1051;
8140   t15035 = 0.125e3 / 0.6e1 * t14739;
8141   t15037 = -0.77534644304710291488e-2 * t1093 * t4902 * t1055 + 0.3e1 * t14416 + 0.6e1 * t14420 - 0.25e2 * t14692 + 0.125e3 * t14694 + 0.125e3 / 0.2e1 * t14697 - 0.23260393291413087447e-1 * t730 * t1723 * t9580 - 0.46520786582826174894e-1 * t1141 * t1723 * t9651 + 0.3e1 * t14709 + t14712 - 0.25e2 / 0.18e2 * t14717 - 0.125e3 * t14720 + 0.125e3 / 0.6e1 * t14723 + 0.25844881434903430496e-2 * t89 * t95 * (0.55636233534648050268e1 * t1261 * t1704 * t2664 + 0.16690870060394415081e2 * t5301 * t2508 - 0.83454350301972075402e1 * t97 * t963 * t4990 + 0.33381740120788830162e2 * t3335 * t4966 - 0.50072610181183245242e2 * t1261 * t14883 * t970 - 0.27818116767324025134e1 * t97 * t7456 * t581 - 0.83454350301972075402e1 * t97 * t14890 * t391 - 0.83454350301972075402e1 * t97 * t4942 * t1051 + 0.16690870060394415081e2 * t97 * t14897 * t970 + 0.16690870060394415081e2 * t8988 * t1705 + t15024) * t397 + 0.77534644304710291488e-2 * t730 * t1684 * t2030 + 0.3e1 * t14735 + 0.3e1 * t14737 + t15035 - 0.7e1 * t14741;
8142   t15045 = 0.125e3 * t4689;
8143   t15047 = 0.125e3 / 0.3e1 * t4695;
8144   t15050 = 0.15506928860942058297e-1 * t4896 + 0.3e1 * t4650 - t14765 + 0.6e1 * t4659 + 0.6e1 * t4662 - 0.14e2 * t4665 + t7 * (t14794 + t14827 + t14854 + t15037) - 0.15506928860942058297e-1 * t4904 - 0.25e2 * t4676 - 0.25e2 * t4681 + 0.125e3 * t4685 - t15045 + 0.3e1 * t4692 + t15047 + 0.46520786582826174894e-1 * t4913 - 0.25e2 * t4706;
8145   t15052 = 0.70e2 / 0.3e1 * t4841;
8146   t15053 = 0.14e2 * t4843;
8147   t15065 = 0.3e1 * t4876;
8148   t15067 = -0.14e2 * t4839 + t15052 - t15053 - 0.25e2 / 0.6e1 * t4848 + 0.125e3 / 0.3e1 * t4851 - 0.25e2 / 0.6e1 * t4856 - 0.25e2 / 0.3e1 * t4858 - 0.25e2 / 0.2e1 * t4862 + 0.77534644304710291488e-2 * t4997 + 0.46520786582826174894e-1 * t5000 + 0.23260393291413087447e-1 * t5003 - 0.77534644304710291488e-2 * t5006 - 0.46520786582826174894e-1 * t5009 + 0.3e1 * t4873 + t15065 + 0.6e1 * t4879;
8149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8150     v4rho3sigma[1] = t15050 + t15067;
8151 
8152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8153     v4rho3sigma[2] = v4rho3sigma[0];
8154 
8155   t15068 = 0.15506928860942058298e-1 * t5026;
8156   t15069 = 0.51689762869806860992e-2 * t5030;
8157   t15070 = 0.31013857721884116596e-1 * t5033;
8158   t15071 = 0.15506928860942058298e-1 * t5036;
8159   t15072 = -t5259 + t4642 - t4645 + t4648 + t5021 - t5260 + t15068 - t15069 + t15070 - t15071 - t5265 + t4651 - t14230 + t4899 + t4662;
8160   t15073 = 0.51689762869806860992e-2 * t5049;
8161   t15074 = 0.15506928860942058298e-1 * t5060;
8162   t15075 = 0.51689762869806860992e-2 * t5065;
8163   t15076 = -t4901 + t4669 - t4672 - t15073 + t5051 + t5053 + t5056 - t15074 - t4906 - t4682 + t4908 - t15075 - t14239 + t4693 + t14241 - t5363;
8164   t15078 = 0.15506928860942058298e-1 * t5073;
8165   t15087 = t5039 * t4702 * t4202 * t736;
8166   t15089 = t14251 * t5016;
8167   t15090 = 0.125e3 / 0.6e1 * t15089;
8168   t15093 = t4700 * t4702 * t9589 * t460;
8169   t15097 = t4700 * t4702 * t4703 * t1115;
8170   t15099 = t14251 * t5085;
8171   t15100 = 0.125e3 / 0.6e1 * t15099;
8172   t15104 = t4700 * t4702 * t10317 * t299;
8173   t15108 = t4700 * t4702 * t4202 * t724;
8174   t15113 = t507 * t736;
8175   t15120 = 0.77534644304710291488e-2 * t730 * t14371 * t460 + t14249 - 0.51689762869806860992e-2 * t1093 * t4868 * t1330 - 0.25e2 / 0.6e1 * t15087 + t15090 - 0.25e2 / 0.12e2 * t15093 - 0.25e2 / 0.6e1 * t15097 + t15100 + 0.125e3 / 0.6e1 * t14252 - 0.25e2 / 0.6e1 * t15104 - 0.25e2 / 0.12e2 * t15108 + 0.31013857721884116596e-1 * t1141 * t1576 * t8308 - 0.15506928860942058298e-1 * t1141 * t1642 * t15113 + t14256 + t14258 + 0.77534644304710291488e-2 * t730 * t1576 * t2868;
8176   t15121 = 0.14e2 / 0.3e1 * t14265;
8177   t15123 = 0.70e2 / 0.9e1 * t14271;
8178   t15124 = t4675 * t5251;
8179   t15127 = t1666 * t4683 * t5099;
8180   t15128 = 0.125e3 / 0.6e1 * t15127;
8181   t15129 = t1655 * t2889;
8182   t15132 = t5090 * t4702 * t2839;
8183   t15135 = t5090 * t4702 * t2927;
8184   t15138 = t14375 * t5038 * t5042;
8185   t15139 = 0.25e2 / 0.3e1 * t15138;
8186   t15143 = t5039 * t4702 * t192 * t1115 * t299;
8187   t15147 = t5039 * t4702 * t5040 * t724;
8188   t15151 = t4697 * t5088 * t747 * t5091;
8189   t15152 = 0.125e3 / 0.18e2 * t15151;
8190   t15154 = -t14264 - t15121 - 0.7e1 / 0.6e1 * t14267 - t14270 + t15123 + t14274 + 0.125e3 / 0.6e1 * t15124 + t15128 + t15129 / 0.2e1 - 0.25e2 / 0.18e2 * t15132 - 0.25e2 / 0.36e2 * t15135 - t15139 - 0.25e2 / 0.3e1 * t15143 - 0.25e2 / 0.6e1 * t15147 + t15152 + t14278 / 0.2e1;
8191   t15156 = t5243 * t1063;
8192   t15169 = t1655 * t1126 * t3070;
8193   t15171 = t14415 * t1780;
8194   t15173 = t14419 * t1780;
8195   t15174 = t4658 * t5055;
8196   t15175 = t14329 * t1780;
8197   t15177 = t4661 * t5055;
8198   t15178 = t1769 * t2814;
8199   t15186 = t14375 * t5089 * t5091;
8200   t15187 = 0.25e2 / 0.18e2 * t15186;
8201   t15191 = t565 * t1667 * t182 * t3068 * t192;
8202   t15193 = t4675 * t5100;
8203   t15194 = 0.25e2 / 0.6e1 * t15193;
8204   t15197 = t1666 * t1667 * t1668 * t2868;
8205   t15199 = -0.51689762869806860992e-2 * t1093 * t15156 * t395 + 0.15506928860942058298e-1 * t8256 * t1734 - 0.25844881434903430496e-2 * t1093 * t1642 * t3547 + 0.15506928860942058298e-1 * t730 * t4864 * t1115 + t15169 / 0.2e1 + t15171 / 0.2e1 + t15173 + t15174 + t15175 / 0.2e1 + t15177 + 0.51689762869806860992e-2 * t1093 * t15178 * t1060 + 0.31013857721884116596e-1 * t1141 * t4864 * t3006 - t15187 - 0.25e2 / 0.36e2 * t15191 - t15194 - 0.25e2 / 0.12e2 * t15197;
8206   t15200 = t4654 * t1789;
8207   t15202 = t1661 * t5107;
8208   t15203 = 0.25e2 / 0.18e2 * t15202;
8209   t15204 = t4664 * t1130;
8210   t15205 = 0.7e1 / 0.3e1 * t15204;
8211   t15206 = t4658 * t1130;
8212   t15207 = t4661 * t1130;
8213   t15208 = t1655 * t2840;
8214   t15209 = t14366 * t1784;
8215   t15211 = t1655 * t2928;
8216   t15213 = 0.70e2 / 0.9e1 * t14341;
8217   t15214 = 0.14e2 / 0.3e1 * t14345;
8218   t15217 = t14340 * t1780;
8219   t15219 = t5020 * t4691;
8220   t15224 = -0.25e2 / 0.36e2 * t15200 - t15203 - t15205 + t15206 + t15207 + t15208 - 0.25e2 / 0.12e2 * t15209 + t15211 / 0.2e1 + t15213 - t15214 - 0.7e1 / 0.3e1 * t14349 - t14355 - t14357 - 0.7e1 / 0.6e1 * t14358 + 0.35e2 / 0.9e1 * t15217 + t15219 / 0.2e1 - 0.25844881434903430496e-2 * t1093 * t14725 * t507;
8221   t15231 = t167 * t1098 * t101;
8222   t15232 = t15231 * t1656;
8223   t15234 = t167 * t512 * t305;
8224   t15235 = t15234 * t1656;
8225   t15236 = 0.7e1 / 0.3e1 * t15235;
8226   t15237 = t5020 * t4649;
8227   t15241 = t4700 * t4702 * t14292 * t460;
8228   t15244 = t5090 * t4702 * t2888;
8229   t15248 = t4697 * t1123 * t747 * t5042;
8230   t15249 = 0.125e3 / 0.3e1 * t15248;
8231   t15250 = 0.25e2 / 0.6e1 * t14367;
8232   t15251 = 0.25e2 / 0.18e2 * t14369;
8233   t15252 = t14376 * t5016;
8234   t15253 = 0.25e2 / 0.6e1 * t15252;
8235   t15257 = t4700 * t4702 * t1128 * t14316;
8236   t15262 = t507 * t724;
8237   t15267 = t167 * t2939 * t194;
8238   t15270 = t167 * t2946 * t194;
8239   t15271 = 0.77534644304710291488e-2 * t730 * t5071 * t724 + t15232 - t15236 + t15237 / 0.2e1 - 0.25e2 / 0.12e2 * t15241 - 0.25e2 / 0.36e2 * t15244 + t15249 - t15250 - t15251 - t15253 - 0.25e2 / 0.6e1 * t14377 - 0.25e2 / 0.6e1 * t15257 - 0.25844881434903430496e-2 * t1093 * t5028 * t1055 - 0.77534644304710291488e-2 * t730 * t1642 * t15262 + t15267 / 0.2e1 + t15270;
8240   t15275 = t5243 * t397;
8241   t15280 = t89 * t93 * t553;
8242   t15285 = t5039 * t4702 * t4703 * t3006;
8243   t15289 = 0.125e3 / 0.9e1 * t14400;
8244   t15292 = 0.125e3 * t14410;
8245   t15304 = t1666 * t14408 * t1783;
8246   t15306 = 0.15506928860942058298e-1 * t1141 * t5071 * t736 + 0.15506928860942058298e-1 * t730 * t15275 * t299 - 0.31013857721884116596e-1 * t15280 * t10127 - 0.25e2 / 0.3e1 * t15285 - 0.25e2 / 0.36e2 * t14391 - 0.25e2 / 0.36e2 * t14398 + t15289 + 0.125e3 / 0.36e2 * t14403 + 0.125e3 / 0.6e1 * t14406 - t15292 - 0.25e2 / 0.12e2 * t14412 + 0.10337952573961372198e-1 * t1093 * t4639 * t10109 + 0.15506928860942058298e-1 * t730 * t4639 * t10312 - 0.15506928860942058298e-1 * t730 * t4868 * t5058 + t14416 + t14420 - 0.125e3 / 0.2e1 * t15304;
8247   t15311 = t562 * t176 * t736 * t99 * t1784;
8248   t15314 = 0.125e3 / 0.3e1 * t14694;
8249   t15317 = t565 * t14408 * t1788;
8250   t15319 = t507 * t1055;
8251   t15329 = t1661 * t5248;
8252   t15332 = t565 * t4683 * t5106;
8253   t15333 = 0.125e3 / 0.18e2 * t15332;
8254   t15344 = 0.125e3 / 0.3e1 * t14720;
8255   t15346 = -0.25e2 / 0.6e1 * t15311 - 0.25e2 / 0.6e1 * t14692 + t15314 + 0.125e3 / 0.12e2 * t14697 - 0.125e3 / 0.6e1 * t15317 + 0.51689762869806860992e-2 * t1093 * t4639 * t15319 - 0.15506928860942058298e-1 * t730 * t1642 * t10141 - 0.15506928860942058298e-1 * t730 * t5028 * t3554 + 0.125e3 / 0.18e2 * t15329 + t15333 + 0.15506928860942058298e-1 * t1141 * t1576 * t8178 - 0.15506928860942058298e-1 * t730 * t4868 * t3735 + t14709 / 0.2e1 - 0.15506928860942058298e-1 * t730 * t1642 * t10034 - t15344 + 0.125e3 / 0.36e2 * t14723;
8256   t15347 = t14376 * t5085;
8257   t15348 = 0.25e2 / 0.6e1 * t15347;
8258   t15350 = t89 * t94 * t553;
8259   t15351 = t2883 * t3554;
8260   t15357 = t968 * t5239;
8261   t15375 = t1591 * t1247;
8262   t15376 = 0.20284043476173768328e0 * t15375;
8263   t15377 = t534 * t3121;
8264   t15379 = t4719 * t3240;
8265   t15381 = t4719 * t3244;
8266   t15383 = -t14459 - t14462 + 0.25355054345217210410e-1 * t14463 - 0.50710108690434420820e-1 * t14475 - 0.28735728257912838464e0 * t14479 + 0.25355054345217210410e-1 * t14481 - 0.20284043476173768328e0 * t14489 - 0.7e1 / 0.48e2 * t14492 + t15376 - 0.21732903724471894637e-1 * t15377 + 0.21732903724471894636e-1 * t15379 + 0.10866451862235947318e-1 * t15381;
8267   t15384 = t14467 * t3258;
8268   t15386 = t5143 * t3148;
8269   t15388 = t5143 * t3152;
8270   t15390 = t14478 * t478;
8271   t15392 = t1587 * t3205;
8272   t15394 = t4723 * t1222;
8273   t15395 = 0.50710108690434420820e-1 * t15394;
8274   t15396 = t5143 * t3308;
8275   t15399 = t121 * t4722 * t1243;
8276   t15400 = 0.10142021738086884164e1 * t15399;
8277   t15401 = t4733 * t482;
8278   t15404 = 0.35e2 / 0.108e3 * t14512;
8279   t15406 = t364 * t5120 * t5122;
8280   t15407 = 0.7e1 / 0.24e2 * t15406;
8281   t15409 = t5121 * t107 * t8308;
8282   t15411 = -0.32599355586707841954e-1 * t15384 + 0.21732903724471894636e0 * t15386 + 0.10866451862235947318e0 * t15388 - 0.14367864128956419232e0 * t15390 - 0.54332259311179736592e-2 * t15392 + t15395 - 0.65198711173415683908e0 * t15396 - t15400 - 0.57471456515825676929e0 * t15401 + 0.7e1 / 0.144e3 * t14507 - t15404 - t15407 + t15409 / 0.8e1;
8283   t15414 = t5121 * t107 * t8178;
8284   t15416 = t1587 * t3283;
8285   t15418 = t14474 * t1166;
8286   t15419 = 0.10142021738086884164e0 * t15418;
8287   t15420 = t1587 * t3289;
8288   t15422 = t1587 * t3295;
8289   t15424 = t1587 * t3235;
8290   t15426 = t1587 * t3272;
8291   t15428 = t4723 * t1234;
8292   t15429 = 0.20284043476173768328e0 * t15428;
8293   t15430 = t4719 * t3262;
8294   t15432 = t4719 * t3267;
8295   t15434 = t4723 * t1173;
8296   t15435 = 0.20284043476173768328e0 * t15434;
8297   t15436 = t4711 * t1161;
8298   t15437 = 0.7e1 / 0.72e2 * t15436;
8299   t15438 = t1583 * t3303;
8300   t15440 = t15414 / 0.16e2 - 0.54332259311179736592e-2 * t15416 - t15419 - 0.10866451862235947318e0 * t15420 + 0.21732903724471894637e-1 * t15422 - 0.54332259311179736592e-2 * t15424 + 0.43465807448943789274e-1 * t15426 - t15429 + 0.32599355586707841954e-1 * t15430 - 0.43465807448943789274e-1 * t15432 - t15435 + t15437 - t15438 / 0.48e2;
8301   t15442 = t140 * t341 * t19;
8302   t15444 = t15442 * t107 * t9377;
8303   t15446 = t14511 * t465;
8304   t15448 = t1587 * t3277;
8305   t15450 = t1587 * t3230;
8306   t15452 = t1587 * t3225;
8307   t15454 = t4723 * t1227;
8308   t15455 = 0.50710108690434420820e-1 * t15454;
8309   t15456 = t1587 * t3253;
8310   t15459 = t812 * t99 * t3210;
8311   t15460 = t15459 * t3219;
8312   t15462 = t317 * t99;
8313   t15463 = t15462 * t3210;
8314   t15464 = t15463 * t3213;
8315   t15466 = t15462 * t3108;
8316   t15467 = t15466 * t3110;
8317   t15472 = -t15444 / 0.4e1 - 0.35e2 / 0.216e3 * t15446 + 0.21732903724471894637e-1 * t15448 - 0.10866451862235947318e-1 * t15450 + 0.21732903724471894637e-1 * t15452 + t15455 + 0.43465807448943789274e-1 * t15456 - 0.86931614897887578546e-1 * t15460 + 0.43465807448943789274e-1 * t15464 - 0.21732903724471894636e0 * t15467 - 0.50710108690434420820e0 * t14518 - 0.11494291303165135386e1 * t14520 + 0.10142021738086884164e0 * t14522;
8318   t15484 = t5148 * t352;
8319   t15488 = t97 * t1596;
8320   t15496 = t503 * t970;
8321   t15510 = -0.27818116767324025134e1 * t97 * t1600 * t3543 + 0.11127246706929610054e2 * t1261 * t15357 * t391 - 0.16690870060394415080e2 * t5159 * t3342 - 0.33381740120788830160e2 * t3335 * t5176 + 0.11127246706929610054e2 * t3977 * t4770 + 0.55636233534648050268e1 * t5159 * t3349 + 0.27818116767324025134e1 * t97 * (t15383 + t15411 + t15440 + t15472) * t158 + 0.55636233534648050268e1 * t1261 * t1607 * t3543 - 0.27818116767324025134e1 * t97 * t5152 * t1051 - 0.55636233534648050268e1 * t97 * t15484 * t391 + 0.11127246706929610054e2 * t15488 * t1263 + 0.55636233534648050268e1 * t3977 * t4773 - 0.27818116767324025134e1 * t97 * t1254 * t4830 + 0.66763480241577660320e2 * t1261 * t14541 * t15496 + 0.11127246706929610054e2 * t5159 * t3346 - 0.27818116767324025134e1 * t97 * t14431 * t503 - 0.55636233534648050268e1 * t97 * t3321 * t1633 + 0.11127246706929610054e2 * t10394 * t1608;
8322   t15518 = t2501 * t1765;
8323   t15546 = t503 * t1051;
8324   t15551 = t4813 * t3283;
8325   t15553 = t4813 * t3289;
8326   t15556 = t1300 * t4722 * t1166;
8327   t15558 = t3514 * t1586;
8328   t15559 = t15558 * t3258;
8329   t15561 = t5217 * t3262;
8330   t15563 = t4813 * t3230;
8331   t15565 = t4813 * t3235;
8332   t15567 = t986 * t4714;
8333   t15569 = t15567 * t494 * t828;
8334   t15571 = t4778 * t3387;
8335   t15573 = t4796 * t495;
8336   t15575 = t4823 * t1320;
8337   t15576 = 0.28213194496683950480e1 * t15575;
8338   t15577 = t1630 * t3420;
8339   t15579 = t1630 * t3423;
8340   t15581 = t14579 * t3381;
8341   t15583 = t14666 * t1173;
8342   t15584 = 0.11285277798673580192e1 * t15583;
8343   t15585 = t14666 * t1227;
8344   t15586 = 0.28213194496683950480e0 * t15585;
8345   t15587 = t4813 * t3253;
8346   t15589 = t4813 * t3225;
8347   t15592 = -0.81136173904695073308e0 * t14568 - 0.30228422675018518372e-1 * t15551 - 0.60456845350037036745e0 * t15553 - 0.84639583490051851441e0 * t15556 - 0.36274107210022222046e0 * t15559 + 0.27205580407516666535e0 * t15561 - 0.60456845350037036744e-1 * t15563 - 0.30228422675018518372e-1 * t15565 - 0.10431793787746509425e1 * t15569 - 0.34772645959155031418e0 * t15571 - 0.13522695650782512218e1 * t15573 - t15576 + 0.60456845350037036744e0 * t15577 + 0.30228422675018518372e0 * t15579 - 0.52158968938732547127e0 * t15581 - t15584 + t15586 + 0.24182738140014814698e0 * t15587 + 0.12091369070007407349e0 * t15589 - 0.42319791745025925720e0 * t14590;
8348   t15595 = t4823 * t1247;
8349   t15597 = t1630 * t3121;
8350   t15600 = 0.27045391301565024436e1 * t14606;
8351   t15602 = t4778 * t3384;
8352   t15604 = t1613 * t3410;
8353   t15606 = t1630 * t3445;
8354   t15608 = t14657 * t1268;
8355   t15609 = 0.81136173904695073308e0 * t15608;
8356   t15610 = t14666 * t1234;
8357   t15611 = 0.11285277798673580192e1 * t15610;
8358   t15613 = t1613 * t141 * t3440;
8359   t15617 = t137 * t1617 * t50 * t5211;
8360   t15618 = 0.24340852171408521992e1 * t15617;
8361   t15619 = t14627 * t1756;
8362   t15621 = t4813 * t3295;
8363   t15623 = t4810 * t1308;
8364   t15624 = 0.28213194496683950480e0 * t15623;
8365   t15625 = t1624 * t3428;
8366   t15627 = t1613 * t3485;
8367   t15629 = -0.15987476881454238606e1 * t14594 + 0.14106597248341975240e0 * t14598 + 0.56426388993367900962e0 * t15595 - 0.60456845350037036744e-1 * t15597 - 0.12170426085704260996e1 * t14602 - t15600 + 0.40568086952347536654e0 * t14608 - t14615 + 0.52158968938732547127e0 * t15602 - 0.52158968938732547127e0 * t15604 - 0.18137053605011111023e1 * t15606 - t15609 - t15611 - 0.86931614897887578546e-1 * t15613 - t15618 - 0.67613478253912561090e0 * t15619 + 0.12091369070007407349e0 * t15621 + t15624 - 0.30228422675018518372e-1 * t15625 + 0.34772645959155031418e0 * t15627;
8368   t15633 = t5210 * t2522 * t3133;
8369   t15636 = t5210 * t2522 * t3137;
8370   t15638 = t14631 * t482;
8371   t15641 = t5210 * t7598 * t3127;
8372   t15643 = t1613 * t3488;
8373   t15645 = t14593 * t498;
8374   t15647 = t5217 * t3464;
8375   t15649 = t4813 * t3475;
8376   t15651 = t4813 * t3482;
8377   t15653 = t1618 * t1296;
8378   t15654 = 0.81136173904695073308e0 * t15653;
8379   t15655 = t542 * t3536;
8380   t15658 = 0.13522695650782512218e1 * t14628;
8381   t15659 = 0.31974953762908477211e1 * t14632;
8382   t15664 = 0.14106597248341975240e0 * t14616 + 0.10431793787746509425e1 * t15633 + 0.52158968938732547127e0 * t15636 - 0.15987476881454238606e1 * t15638 - 0.20863587575493018851e1 * t15641 + 0.17386322979577515709e0 * t15643 - 0.79937384407271193027e0 * t15645 - 0.72548214420044444093e0 * t15647 + 0.24182738140014814698e0 * t15649 - 0.12091369070007407349e1 * t15651 + t15654 - 0.17386322979577515709e0 * t15655 + 0.20284043476173768327e0 * t14623 - t15658 - t15659 + 0.28213194496683950480e0 * t14634 - 0.14106597248341975240e1 * t14641 - t14646 + 0.20284043476173768327e0 * t14653 - 0.40568086952347536654e0 * t14658;
8383   t15665 = t4778 * t3497;
8384   t15667 = t4778 * t3500;
8385   t15669 = t4784 * t1286;
8386   t15670 = 0.81136173904695073308e0 * t15669;
8387   t15671 = t1613 * t3399;
8388   t15673 = t1613 * t3405;
8389   t15675 = t4813 * t3272;
8390   t15677 = t4813 * t3277;
8391   t15679 = t5217 * t3240;
8392   t15681 = t5217 * t3244;
8393   t15683 = t986 * t1583;
8394   t15685 = t15683 * t11213 * t828;
8395   t15687 = t1266 * t1583;
8396   t15689 = t15687 * t11213 * t3218;
8397   t15692 = t5217 * t3267;
8398   t15694 = t1613 * t3491;
8399   t15696 = t1613 * t3494;
8400   t15698 = t4784 * t1273;
8401   t15699 = 0.81136173904695073308e0 * t15698;
8402   t15700 = t4784 * t1281;
8403   t15701 = 0.40568086952347536654e0 * t15700;
8404   t15702 = t1613 * t3507;
8405   t15704 = t1613 * t3511;
8406   t15706 = t4784 * t5198;
8407   t15707 = 0.40568086952347536654e0 * t15706;
8408   t15708 = 0.34772645959155031418e0 * t15665 + 0.17386322979577515709e0 * t15667 - t15670 + 0.17386322979577515709e0 * t15671 - 0.86931614897887578546e-1 * t15673 + 0.24182738140014814698e0 * t15675 + 0.12091369070007407349e0 * t15677 + 0.18137053605011111023e0 * t15679 + 0.90685268025055555116e-1 * t15681 + 0.34772645959155031418e0 * t15685 - 0.69545291918310062836e0 * t15689 - 0.11285277798673580192e1 * t14667 - 0.36274107210022222047e0 * t15692 - 0.17386322979577515709e0 * t15694 - 0.86931614897887578546e-1 * t15696 - t15699 + t15701 + 0.34772645959155031418e0 * t15702 + 0.17386322979577515709e0 * t15704 + t15707;
8409   t15720 = t1743 * t968;
8410   t15724 = -0.27818116767324025134e1 * t97 * t2489 * t1765 + 0.11127246706929610054e2 * t3335 * t5179 + 0.55636233534648050268e1 * t8988 * t1753 - 0.16690870060394415080e2 * t1261 * t15518 * t970 - 0.33381740120788830160e2 * t1261 * t4765 * t11672 + 0.11127246706929610054e2 * t1261 * t4769 * t1326 + 0.55636233534648050268e1 * t1261 * t14423 * t503 - 0.55636233534648050268e1 * t97 * t963 * t5239 + 0.11127246706929610054e2 * t3335 * t5189 + 0.11127246706929610054e2 * t3335 * t5182 + 0.55636233534648050268e1 * t1261 * t5188 * t1051 - 0.16690870060394415080e2 * t3977 * t4766 - 0.33381740120788830160e2 * t1261 * t14545 * t5175 - 0.16690870060394415080e2 * t1261 * t4765 * t15546 - 0.27818116767324025134e1 * t97 * t353 * (t15592 + t15629 + t15664 + t15708) - 0.55636233534648050268e1 * t97 * t4746 * t1326 - 0.27818116767324025134e1 * t97 * t8438 * t549 + 0.55636233534648050268e1 * t97 * t15720 * t970;
8411   t15730 = t1777 * t682;
8412   t15733 = t167 * t2869 * t194;
8413   t15735 = t5076 * t423;
8414   t15737 = t5079 * t423;
8415   t15738 = 0.7e1 / 0.3e1 * t15737;
8416   t15745 = t507 * t1060;
8417   t15749 = t14344 * t1780;
8418   t15751 = t14348 * t1780;
8419   t15752 = 0.7e1 / 0.3e1 * t15751;
8420   t15754 = t4664 * t5055;
8421   t15755 = 0.7e1 / 0.3e1 * t15754;
8422   t15758 = t167 * t1116 * t101;
8423   t15759 = t15758 * t1656;
8424   t15760 = -t15348 + 0.31013857721884116596e-1 * t15350 * t15351 + 0.25844881434903430496e-2 * t89 * t95 * (t15510 + t15724) * t397 + 0.35e2 / 0.9e1 * t15730 + t15733 / 0.2e1 - 0.7e1 / 0.3e1 * t15735 - t15738 - 0.77534644304710291488e-2 * t730 * t1642 * t9607 + 0.10337952573961372198e-1 * t1093 * t14312 * t5094 - 0.15506928860942058298e-1 * t1093 * t14321 * t15745 - 0.7e1 / 0.3e1 * t15749 - t15752 + t14737 / 0.2e1 - t15755 + t14740 - 0.7e1 / 0.6e1 * t14741 + t15759;
8425   t15765 = t15078 - t4707 + t4838 + t7 * (t15120 + t15154 + t15199 + t15224 + t15271 + t15306 + t15346 + t15760) - t4917 + t14750 + t5077 + t5080 - t14751 - t4849 + t4921 - t4857 - t4923 - t4863 - t5369;
8426   t15766 = 0.10337952573961372198e-1 * t5096;
8427   t15767 = 0.15506928860942058298e-1 * t5115;
8428   t15768 = 0.51689762869806860992e-2 * t5246;
8429   t15769 = t4867 - t5370 + t15766 - t4871 - t5378 - t5380 - t5381 + t5110 - t5382 + t15767 + t15768 + t5386 + t5387 + t4874 + t14760 + t5011;
8430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8431     v4rho3sigma[3] = t15072 + t15076 + t15765 + t15769;
8432 
8433   t15771 = 0.25e2 / 0.3e1 * t5017;
8434   t15772 = 0.2e1 * t5021;
8435   t15773 = 0.15506928860942058298e-1 * t5263;
8436   t15774 = 0.50e2 / 0.3e1 * t5043;
8437   t15778 = 0.125e3 / 0.3e1 * t15089;
8438   t15781 = 0.125e3 / 0.3e1 * t15099;
8439   t15791 = t14769 - 0.25e2 / 0.3e1 * t15087 + t15778 - 0.25e2 / 0.6e1 * t15093 - 0.25e2 / 0.3e1 * t15097 + t15781 + 0.125e3 / 0.3e1 * t14252 - 0.25e2 / 0.3e1 * t15104 - 0.25e2 / 0.6e1 * t15108 + t14255 + 0.2e1 * t14258 - t14779 - 0.28e2 / 0.3e1 * t14265 - 0.7e1 / 0.3e1 * t14267 - 0.77534644304710291488e-2 * t730 * t1723 * t9607 - t14782;
8440   t15793 = 0.125e3 / 0.3e1 * t15124;
8441   t15794 = 0.125e3 / 0.3e1 * t15127;
8442   t15797 = 0.50e2 / 0.3e1 * t15138;
8443   t15800 = 0.125e3 / 0.9e1 * t15151;
8444   t15807 = 0.140e3 / 0.9e1 * t14271 + t14784 + t15793 + t15794 + t15129 - 0.25e2 / 0.9e1 * t15132 - 0.25e2 / 0.18e2 * t15135 - t15797 - 0.50e2 / 0.3e1 * t15143 - 0.25e2 / 0.3e1 * t15147 + t15800 + t14278 + 0.77534644304710291488e-2 * t730 * t5261 * t724 + 0.15506928860942058298e-1 * t730 * t4911 * t1115 + t15169 + t15171;
8445   t15809 = 0.2e1 * t15173;
8446   t15810 = 0.2e1 * t15174;
8447   t15818 = t1821 * t2814;
8448   t15825 = 0.25e2 / 0.9e1 * t15186;
8449   t15827 = 0.25e2 / 0.3e1 * t15193;
8450   t15829 = 0.25e2 / 0.18e2 * t15200;
8451   t15830 = 0.25e2 / 0.9e1 * t15202;
8452   t15831 = 0.14e2 / 0.3e1 * t15204;
8453   t15832 = 0.2e1 * t15206;
8454   t15833 = t15809 + t15810 + t15175 + 0.2e1 * t15177 - 0.25844881434903430496e-2 * t1093 * t5371 * t1055 + 0.10337952573961372198e-1 * t1093 * t4894 * t10109 + 0.51689762869806860992e-2 * t1093 * t15818 * t1060 + 0.15506928860942058298e-1 * t730 * t4894 * t10312 - t15825 - 0.25e2 / 0.18e2 * t15191 - t15827 - 0.25e2 / 0.6e1 * t15197 - t15829 - t15830 - t15831 + t15832;
8455   t15836 = 0.25e2 / 0.6e1 * t15209;
8456   t15841 = 0.70e2 / 0.9e1 * t15217;
8457   t15842 = 0.2e1 * t15232;
8458   t15846 = 0.14e2 / 0.3e1 * t15235;
8459   t15848 = 0.2e1 * t15207 + 0.2e1 * t15208 - t15836 + t15211 + 0.140e3 / 0.9e1 * t14341 - 0.28e2 / 0.3e1 * t14345 - 0.14e2 / 0.3e1 * t14349 - t14814 - t14815 - 0.7e1 / 0.3e1 * t14358 + t15841 + t15219 + t15842 - 0.15506928860942058298e-1 * t730 * t1723 * t10034 - t15846 + t15237 - 0.25e2 / 0.6e1 * t15241;
8460   t15852 = 0.250e3 / 0.3e1 * t15248;
8461   t15861 = 0.25e2 / 0.3e1 * t15252;
8462   t15872 = 0.2e1 * t15270;
8463   t15873 = t5358 * t1063;
8464   t15877 = t5358 * t397;
8465   t15881 = -0.25e2 / 0.18e2 * t15244 + t15852 - 0.51689762869806860992e-2 * t1093 * t4902 * t1330 - 0.25844881434903430496e-2 * t1093 * t1723 * t3547 - 0.25e2 / 0.3e1 * t14367 - 0.25e2 / 0.9e1 * t14369 - t15861 - 0.15506928860942058298e-1 * t1141 * t1723 * t15113 - 0.25e2 / 0.3e1 * t14377 - 0.25e2 / 0.3e1 * t15257 + 0.77534644304710291488e-2 * t730 * t14795 * t460 + 0.15506928860942058298e-1 * t8256 * t1794 + t15267 + t15872 - 0.51689762869806860992e-2 * t1093 * t15873 * t395 + 0.15506928860942058298e-1 * t730 * t15877 * t299;
8466   t15891 = t89 * t94 * t585;
8467   t15908 = 0.125e3 * t15304;
8468   t15910 = -0.50e2 / 0.3e1 * t15285 - 0.25e2 / 0.18e2 * t14391 - 0.25e2 / 0.18e2 * t14398 + 0.250e3 / 0.9e1 * t14400 + 0.125e3 / 0.18e2 * t14403 + 0.125e3 / 0.3e1 * t14406 - 0.250e3 * t14410 - 0.25e2 / 0.6e1 * t14412 + 0.31013857721884116596e-1 * t15891 * t15351 - 0.15506928860942058298e-1 * t730 * t4902 * t3735 + 0.31013857721884116596e-1 * t1141 * t1684 * t8308 + 0.15506928860942058298e-1 * t1141 * t1684 * t8178 + 0.2e1 * t14416 + 0.2e1 * t14420 + 0.10337952573961372198e-1 * t1093 * t14847 * t5094 - t15908 - 0.25e2 / 0.3e1 * t15311;
8469   t15915 = 0.125e3 / 0.3e1 * t15317;
8470   t15922 = 0.125e3 / 0.9e1 * t15329;
8471   t15923 = 0.125e3 / 0.9e1 * t15332;
8472   t15958 = t968 * t5354;
8473   t15979 = 0.55636233534648050268e1 * t1261 * t1704 * t3543 + 0.11127246706929610054e2 * t3335 * t5320 + 0.11127246706929610054e2 * t1261 * t4965 * t1326 - 0.33381740120788830160e2 * t1261 * t14883 * t5175 - 0.55636233534648050268e1 * t97 * t3321 * t1714 + 0.11127246706929610054e2 * t10394 * t1705 - 0.55636233534648050268e1 * t97 * t4942 * t1326 - 0.16690870060394415080e2 * t5301 * t3342 + 0.11127246706929610054e2 * t3977 * t4966 + 0.55636233534648050268e1 * t3977 * t4969 + 0.11127246706929610054e2 * t1261 * t15958 * t391 - 0.55636233534648050268e1 * t97 * t963 * t5354 + 0.55636233534648050268e1 * t5301 * t3349 + 0.55636233534648050268e1 * t1261 * t14958 * t503 - 0.16690870060394415080e2 * t3977 * t4962 + 0.11127246706929610054e2 * t3335 * t5330 + 0.11127246706929610054e2 * t3335 * t5323 - 0.27818116767324025134e1 * t97 * t8438 * t581;
8474   t15986 = 0.40568086952347536654e0 * t15375;
8475   t15990 = -t14922 - t14923 + 0.50710108690434420817e-1 * t14463 - 0.10142021738086884163e0 * t14475 - 0.57471456515825676926e0 * t14479 + 0.50710108690434420817e-1 * t14481 - 0.40568086952347536654e0 * t14489 - 0.7e1 / 0.24e2 * t14492 + t15986 - 0.43465807448943789272e-1 * t15377 + 0.43465807448943789272e-1 * t15379 + 0.21732903724471894636e-1 * t15381;
8476   t15996 = 0.10142021738086884163e0 * t15394;
8477   t15998 = 0.20284043476173768327e1 * t15399;
8478   t16002 = 0.7e1 / 0.12e2 * t15406;
8479   t16004 = -0.65198711173415683908e-1 * t15384 + 0.43465807448943789272e0 * t15386 + 0.21732903724471894636e0 * t15388 - 0.28735728257912838463e0 * t15390 - 0.10866451862235947318e-1 * t15392 + t15996 - 0.13039742234683136782e1 * t15396 - t15998 - 0.11494291303165135385e1 * t15401 + 0.7e1 / 0.72e2 * t14507 - 0.35e2 / 0.54e2 * t14512 - t16002 + t15409 / 0.4e1;
8480   t16008 = 0.20284043476173768326e0 * t15418;
8481   t16013 = 0.40568086952347536654e0 * t15428;
8482   t16017 = 0.7e1 / 0.36e2 * t15436;
8483   t16019 = t15414 / 0.8e1 - 0.10866451862235947318e-1 * t15416 - t16008 - 0.21732903724471894636e0 * t15420 + 0.43465807448943789272e-1 * t15422 - 0.10866451862235947318e-1 * t15424 + 0.86931614897887578544e-1 * t15426 - t16013 + 0.65198711173415683908e-1 * t15430 - 0.86931614897887578544e-1 * t15432 - 0.40568086952347536654e0 * t15434 + t16017 - t15438 / 0.24e2;
8484   t16021 = 0.35e2 / 0.108e3 * t15446;
8485   t16025 = 0.10142021738086884163e0 * t15454;
8486   t16033 = -t15444 / 0.2e1 - t16021 + 0.43465807448943789272e-1 * t15448 - 0.21732903724471894636e-1 * t15450 + 0.43465807448943789272e-1 * t15452 + t16025 + 0.86931614897887578544e-1 * t15456 - 0.17386322979577515709e0 * t15460 + 0.86931614897887578544e-1 * t15464 - 0.43465807448943789272e0 * t15467 - 0.10142021738086884164e1 * t14518 - 0.22988582606330270770e1 * t14520 + 0.20284043476173768327e0 * t14522;
8487   t16039 = t1800 * t968;
8488   t16046 = t97 * t1693;
8489   t16063 = 0.16927916698010370288e1 * t15556;
8490   t16070 = 0.27045391301565024436e1 * t15573;
8491   t16075 = 0.22570555597347160384e1 * t15583;
8492   t16080 = -0.16227234780939014662e1 * t14568 - 0.60456845350037036744e-1 * t15551 - 0.12091369070007407349e1 * t15553 - t16063 - 0.72548214420044444092e0 * t15559 + 0.54411160815033333069e0 * t15561 - 0.12091369070007407349e0 * t15563 - 0.60456845350037036744e-1 * t15565 - 0.20863587575493018850e1 * t15569 - 0.69545291918310062836e0 * t15571 - t16070 - 0.56426388993367900962e1 * t15575 + 0.12091369070007407349e1 * t15577 + 0.60456845350037036745e0 * t15579 - 0.10431793787746509425e1 * t15581 - t16075 + 0.56426388993367900962e0 * t15585 + 0.48365476280029629396e0 * t15587 + 0.24182738140014814698e0 * t15589 - 0.84639583490051851440e0 * t14590;
8493   t16083 = 0.11285277798673580192e1 * t15595;
8494   t16091 = 0.16227234780939014662e1 * t15608;
8495   t16092 = 0.22570555597347160384e1 * t15610;
8496   t16095 = 0.13522695650782512218e1 * t15619;
8497   t16100 = -0.31974953762908477210e1 * t14594 + 0.28213194496683950480e0 * t14598 + t16083 - 0.12091369070007407349e0 * t15597 - 0.24340852171408521992e1 * t14602 - 0.54090782603130048872e1 * t14606 + 0.81136173904695073308e0 * t14608 - t14989 + 0.10431793787746509425e1 * t15602 - 0.10431793787746509425e1 * t15604 - 0.36274107210022222047e1 * t15606 - t16091 - t16092 - 0.17386322979577515709e0 * t15613 - 0.48681704342817043985e1 * t15617 - t16095 + 0.24182738140014814698e0 * t15621 + 0.56426388993367900962e0 * t15623 - 0.60456845350037036744e-1 * t15625 + 0.69545291918310062836e0 * t15627;
8498   t16112 = 0.16227234780939014662e1 * t15653;
8499   t16121 = 0.28213194496683950480e0 * t14616 + 0.20863587575493018850e1 * t15633 + 0.10431793787746509425e1 * t15636 - 0.31974953762908477212e1 * t15638 - 0.41727175150986037700e1 * t15641 + 0.34772645959155031418e0 * t15643 - 0.15987476881454238606e1 * t15645 - 0.14509642884008888819e1 * t15647 + 0.48365476280029629396e0 * t15649 - 0.24182738140014814698e1 * t15651 + t16112 - 0.34772645959155031418e0 * t15655 + 0.40568086952347536654e0 * t14623 - 0.27045391301565024436e1 * t14628 - 0.63949907525816954422e1 * t14632 + 0.56426388993367900960e0 * t14634 - 0.28213194496683950480e1 * t14641 - t15001 + 0.40568086952347536654e0 * t14653 - 0.81136173904695073308e0 * t14658;
8500   t16124 = 0.16227234780939014662e1 * t15669;
8501   t16137 = 0.16227234780939014662e1 * t15698;
8502   t16138 = 0.81136173904695073308e0 * t15700;
8503   t16141 = 0.81136173904695073308e0 * t15706;
8504   t16142 = 0.69545291918310062836e0 * t15665 + 0.34772645959155031418e0 * t15667 - t16124 + 0.34772645959155031418e0 * t15671 - 0.17386322979577515709e0 * t15673 + 0.48365476280029629396e0 * t15675 + 0.24182738140014814698e0 * t15677 + 0.36274107210022222046e0 * t15679 + 0.18137053605011111023e0 * t15681 + 0.69545291918310062836e0 * t15685 - 0.13909058383662012567e1 * t15689 - 0.22570555597347160384e1 * t14667 - 0.72548214420044444094e0 * t15692 - 0.34772645959155031418e0 * t15694 - 0.17386322979577515709e0 * t15696 - t16137 + t16138 + 0.69545291918310062836e0 * t15702 + 0.34772645959155031418e0 * t15704 + t16141;
8505   t16151 = t2501 * t1817;
8506   t16171 = t5290 * t352;
8507   t16175 = 0.27818116767324025134e1 * t97 * (t15990 + t16004 + t16019 + t16033) * t158 + 0.55636233534648050268e1 * t97 * t16039 * t970 - 0.27818116767324025134e1 * t97 * t1697 * t3543 + 0.11127246706929610054e2 * t16046 * t1263 - 0.27818116767324025134e1 * t97 * t2489 * t1817 + 0.66763480241577660320e2 * t1261 * t14910 * t15496 - 0.33381740120788830160e2 * t3335 * t5317 + 0.55636233534648050268e1 * t1261 * t5329 * t1051 - 0.27818116767324025134e1 * t97 * t353 * (t16080 + t16100 + t16121 + t16142) - 0.27818116767324025134e1 * t97 * t1254 * t4990 - 0.16690870060394415080e2 * t1261 * t16151 * t970 - 0.33381740120788830160e2 * t1261 * t4961 * t11672 + 0.55636233534648050268e1 * t8988 * t1810 + 0.11127246706929610054e2 * t5301 * t3346 - 0.27818116767324025134e1 * t97 * t5294 * t1051 - 0.27818116767324025134e1 * t97 * t14890 * t503 - 0.16690870060394415080e2 * t1261 * t4961 * t15546 - 0.55636233534648050268e1 * t97 * t16171 * t391;
8508   t16186 = -0.25e2 / 0.3e1 * t14692 + 0.250e3 / 0.3e1 * t14694 + 0.125e3 / 0.6e1 * t14697 - t15915 - 0.15506928860942058298e-1 * t730 * t5371 * t3554 - 0.77534644304710291488e-2 * t730 * t1723 * t15262 + t15922 + t15923 - 0.15506928860942058298e-1 * t730 * t4902 * t5058 + 0.77534644304710291488e-2 * t730 * t1684 * t2868 + 0.51689762869806860992e-2 * t1093 * t4894 * t15319 + 0.25844881434903430496e-2 * t89 * t95 * (t15979 + t16175) * t397 + t14709 - 0.250e3 / 0.3e1 * t14720 + 0.125e3 / 0.18e2 * t14723 - 0.25844881434903430496e-2 * t1093 * t14823 * t507;
8509   t16187 = 0.25e2 / 0.3e1 * t15347;
8510   t16194 = 0.70e2 / 0.9e1 * t15730;
8511   t16195 = 0.14e2 / 0.3e1 * t15735;
8512   t16196 = 0.14e2 / 0.3e1 * t15737;
8513   t16203 = 0.14e2 / 0.3e1 * t15749;
8514   t16204 = 0.14e2 / 0.3e1 * t15751;
8515   t16205 = 0.14e2 / 0.3e1 * t15754;
8516   t16209 = t89 * t93 * t585;
8517   t16212 = -t16187 - 0.15506928860942058298e-1 * t1093 * t14785 * t15745 + 0.15506928860942058298e-1 * t1141 * t5261 * t736 + t16194 + t15733 - t16195 - t16196 + 0.31013857721884116596e-1 * t1141 * t4911 * t3006 - 0.15506928860942058298e-1 * t730 * t1723 * t10141 - t16203 - t16204 + t14737 - t16205 + t15035 - 0.7e1 / 0.3e1 * t14741 + 0.2e1 * t15759 - 0.31013857721884116596e-1 * t16209 * t10127;
8518   t16217 = 0.2e1 * t5053;
8519   t16218 = 0.2e1 * t5056;
8520   t16219 = -t15771 + t15772 - t5554 + t4897 + t15773 - t15774 + t4650 - t14765 + 0.4e1 * t4659 + t4900 - 0.28e2 / 0.3e1 * t4665 + t7 * (t15791 + t15807 + t15833 + t15848 + t15881 + t15910 + t16186 + t16212) + t5558 + t16217 + t16218;
8521   t16220 = 0.51689762869806860992e-2 * t5268;
8522   t16221 = 0.15506928860942058298e-1 * t5271;
8523   t16222 = 0.51689762869806860992e-2 * t5274;
8524   t16223 = 0.51689762869806860992e-2 * t5361;
8525   t16226 = 0.15506928860942058298e-1 * t5365;
8526   t16228 = -t4905 - t16220 + t16221 - t16222 + t16223 - 0.50e2 / 0.3e1 * t4676 - t4907 + 0.250e3 / 0.3e1 * t4685 - t15045 + t4692 + t15047 - t5565 + t16226 + t4914 - t4915 - 0.28e2 / 0.3e1 * t4839;
8527   t16230 = 0.2e1 * t5080;
8528   t16233 = 0.25e2 / 0.3e1 * t5086;
8529   t16234 = 0.25e2 / 0.9e1 * t5092;
8530   t16235 = 0.51689762869806860992e-2 * t5373;
8531   t16236 = 0.10337952573961372198e-1 * t5376;
8532   t16237 = t15052 + t5577 + t16230 - t15053 - t4920 + 0.250e3 / 0.9e1 * t4851 - t4922 - 0.50e2 / 0.9e1 * t4858 - t4924 - t16233 - t16234 + t4998 - t16235 + t16236 + t5001;
8533   t16238 = 0.25e2 / 0.3e1 * t5101;
8534   t16239 = 0.25e2 / 0.9e1 * t5108;
8535   t16240 = 0.2e1 * t5110;
8536   t16241 = 0.15506928860942058298e-1 * t5384;
8537   t16242 = 0.15506928860942058298e-1 * t5389;
8538   t16243 = 0.31013857721884116596e-1 * t5392;
8539   t16245 = t5004 - t16238 - t5651 - t16239 + t16240 - t5652 - t5007 - t5010 - t16241 + t5653 + t5654 - t16242 + t16243 + t4873 + t15065 + 0.4e1 * t4879;
8540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8541     v4rho3sigma[4] = t16219 + t16228 + t16237 + t16245;
8542 
8543   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8544     v4rho3sigma[5] = v4rho3sigma[3];
8545 
8546   t16247 = -t5405 - t5259 + t5021 - t5554 + t15068 - t15069 + t15070 - t15071 - t5265 - t14230 + t4659 - t4666 - t15073 + t5408 + t5558;
8547   t16248 = t5053 + t5056 - t15074 + t5495 - t4677 + t4686 - t15075 - t14239 + t14241 + t5498 - t5502 - t5565 - t5506 - t5510 - t5515 + t15078;
8548   t16250 = -t5518 - t5523 - t4840 + t14750 + t5577 + t5080 - t14751 + t4852 - t4859 + t5526 + t5527 + t5530 - t5369 - t5370 + t15766;
8549   t16251 = t4658 * t5534;
8550   t16253 = t4661 * t5534;
8551   t16262 = t5090 * t4702 * t4203;
8552   t16265 = t5090 * t4702 * t4207;
8553   t16269 = t4700 * t4702 * t12161 * t299;
8554   t16274 = t1655 * t4204;
8555   t16275 = t1655 * t4208;
8556   t16279 = t1666 * t1667 * t1668 * t3673;
8557   t16281 = t1661 * t5513;
8558   t16283 = t14249 + t16251 / 0.2e1 + t16253 / 0.2e1 + 0.51689762869806860992e-2 * t1093 * t4639 * t12113 - 0.77534644304710291488e-2 * t730 * t1642 * t12300 + t15090 - 0.25e2 / 0.18e2 * t16262 - 0.25e2 / 0.36e2 * t16265 - 0.25e2 / 0.12e2 * t16269 + t15100 + 0.15506928860942058298e-1 * t1141 * t4864 * t1403 + t16274 + t16275 / 0.2e1 - 0.25e2 / 0.12e2 * t16279 - 0.25e2 / 0.36e2 * t16281 + t14256;
8559   t16288 = t4664 * t5528;
8560   t16290 = t5406 * t423;
8561   t16294 = t5491 * t397;
8562   t16301 = t5039 * t4702 * t192 * t1388 * t299;
8563   t16305 = t5039 * t4702 * t5040 * t1115;
8564   t16309 = t5039 * t4702 * t4703 * t1403;
8565   t16311 = t14258 / 0.2e1 + 0.15506928860942058298e-1 * t1141 * t1576 * t10087 - 0.7e1 / 0.6e1 * t16288 - 0.7e1 / 0.6e1 * t16290 - t14264 - 0.7e1 / 0.3e1 * t14265 - t14270 + 0.35e2 / 0.9e1 * t14271 + t14274 + 0.77534644304710291488e-2 * t730 * t16294 * t299 + t15793 + t15128 - t15139 - 0.25e2 / 0.6e1 * t16301 - 0.25e2 / 0.3e1 * t16305 - 0.25e2 / 0.6e1 * t16309;
8566   t16313 = t14376 * t5504;
8567   t16317 = t4700 * t4702 * t10317 * t460;
8568   t16321 = t4700 * t4702 * t4202 * t1115;
8569   t16326 = t5491 * t1063;
8570   t16341 = t968 * t5487;
8571   t16352 = t15466 * t3941;
8572   t16354 = t15463 * t3944;
8573   t16356 = t14467 * t3864;
8574   t16358 = t4719 * t3869;
8575   t16360 = t1587 * t3901;
8576   t16362 = t1587 * t3884;
8577   t16364 = t1587 * t3889;
8578   t16366 = t15459 * t3771;
8579   t16369 = t1587 * t3896;
8580   t16371 = -0.21732903724471894637e0 * t16352 + 0.43465807448943789274e-1 * t16354 - t14459 - 0.32599355586707841954e-1 * t16356 + 0.32599355586707841954e-1 * t16358 + 0.21732903724471894637e-1 * t16360 - 0.10866451862235947318e-1 * t16362 - 0.54332259311179736592e-2 * t16364 - 0.86931614897887578548e-1 * t16366 - t14462 - 0.14367864128956419232e0 * t14479 - 0.10866451862235947318e0 * t16369;
8581   t16372 = t1587 * t3919;
8582   t16374 = t1587 * t3880;
8583   t16376 = t1587 * t3905;
8584   t16378 = t1587 * t3909;
8585   t16380 = t1587 * t3914;
8586   t16382 = t1583 * t3934;
8587   t16384 = t14491 * t1427;
8588   t16386 = t4711 * t1431;
8589   t16388 = t1587 * t3845;
8590   t16391 = t15442 * t107 * t11227;
8591   t16394 = t5121 * t107 * t10044;
8592   t16397 = t5121 * t107 * t10087;
8593   t16399 = -0.54332259311179736592e-2 * t16372 + 0.21732903724471894637e-1 * t16374 + 0.43465807448943789274e-1 * t16376 + 0.43465807448943789274e-1 * t16378 + 0.21732903724471894637e-1 * t16380 - t16382 / 0.48e2 + t15376 - 0.7e1 / 0.48e2 * t16384 + 0.7e1 / 0.144e3 * t16386 - 0.54332259311179736592e-2 * t16388 - t16391 / 0.4e1 + t16394 / 0.8e1 + t16397 / 0.16e2;
8594   t16401 = t4719 * t3923;
8595   t16403 = t4719 * t3927;
8596   t16405 = t4723 * t1442;
8597   t16407 = t4719 * t3859;
8598   t16410 = t1591 * t1488;
8599   t16412 = t1591 * t1492;
8600   t16414 = t534 * t3948;
8601   t16418 = -0.43465807448943789272e-1 * t16401 + 0.21732903724471894636e-1 * t16403 - 0.20284043476173768328e0 * t16405 + 0.10866451862235947318e-1 * t16407 - 0.28735728257912838465e0 * t15390 + t15395 - t15400 - 0.50710108690434420817e0 * t16410 + 0.10142021738086884164e0 * t16412 - 0.21732903724471894637e-1 * t16414 - 0.11494291303165135386e1 * t15401 - 0.35e2 / 0.216e3 * t14512 - t15407;
8602   t16419 = t5143 * t3791;
8603   t16421 = t5143 * t3781;
8604   t16423 = t5143 * t3786;
8605   t16425 = t4723 * t1483;
8606   t16427 = t4723 * t1479;
8607   t16429 = t14474 * t1437;
8608   t16432 = -t15419 - t15429 - t15435 - 0.65198711173415683908e0 * t16419 + 0.21732903724471894636e0 * t16421 + 0.10866451862235947318e0 * t16423 + 0.25355054345217210410e-1 * t16425 + 0.25355054345217210410e-1 * t16427 - 0.50710108690434420817e-1 * t16429 + t15437 - t16021 + t15455 - 0.57471456515825676928e0 * t14520;
8609   t16449 = t503 * t1326;
8610   t16458 = t1502 * t391;
8611   t16470 = 0.55636233534648050268e1 * t5159 * t3997 - 0.27818116767324025134e1 * t97 * t4746 * t1550 + 0.55636233534648050268e1 * t1261 * t16341 * t391 + 0.11127246706929610054e2 * t5159 * t3990 - 0.55636233534648050268e1 * t97 * t3321 * t1765 + 0.11127246706929610054e2 * t3977 * t5189 + 0.27818116767324025134e1 * t97 * (t16371 + t16399 + t16418 + t16432) * t158 + 0.55636233534648050268e1 * t1261 * t1607 * t4163 + 0.55636233534648050268e1 * t1261 * t4769 * t1550 + 0.11127246706929610054e2 * t3977 * t5182 + 0.11127246706929610054e2 * t1261 * t15357 * t503 - 0.33381740120788830160e2 * t1261 * t4765 * t16449 + 0.11127246706929610054e2 * t10394 * t1753 - 0.27818116767324025134e1 * t97 * t1600 * t4163 + 0.66763480241577660320e2 * t1261 * t14541 * t16458 - 0.55636233534648050268e1 * t97 * t1254 * t5239 + 0.55636233534648050268e1 * t97 * t14435 * t1502 - 0.16690870060394415080e2 * t5159 * t3987;
8612   t16486 = t97 * t1743;
8613   t16490 = t15567 * t11213 * t3940;
8614   t16493 = t15683 * t11213 * t1233;
8615   t16495 = t5217 * t3927;
8616   t16497 = t14666 * t1442;
8617   t16499 = t5217 * t3859;
8618   t16502 = t15687 * t11213 * t3770;
8619   t16505 = t4813 * t3905;
8620   t16507 = t4813 * t3909;
8621   t16509 = t5217 * t3869;
8622   t16511 = t4813 * t3896;
8623   t16513 = t542 * t4003;
8624   t16515 = t4813 * t4040;
8625   t16518 = t1613 * t141 * t4074;
8626   t16520 = t4813 * t3901;
8627   t16523 = -0.10431793787746509425e1 * t16490 + 0.34772645959155031418e0 * t16493 + 0.18137053605011111023e0 * t16495 - 0.11285277798673580192e1 * t16497 + 0.90685268025055555116e-1 * t16499 - 0.69545291918310062836e0 * t16502 - 0.84639583490051851440e0 * t15556 + 0.24182738140014814698e0 * t16505 + 0.24182738140014814698e0 * t16507 + 0.27205580407516666535e0 * t16509 - 0.60456845350037036744e0 * t16511 - t16070 - 0.17386322979577515709e0 * t16513 - t15576 + 0.24182738140014814698e0 * t16515 - 0.86931614897887578546e-1 * t16518 + 0.12091369070007407349e0 * t16520 - t15584 + t15586 - 0.79937384407271193028e0 * t14594;
8628   t16525 = t5217 * t4098;
8629   t16528 = t1618 * t1530;
8630   t16530 = t4813 * t3914;
8631   t16532 = t4813 * t3919;
8632   t16534 = t4813 * t3880;
8633   t16536 = t4813 * t3884;
8634   t16538 = t4813 * t3889;
8635   t16540 = t14657 * t5457;
8636   t16542 = t4823 * t1492;
8637   t16544 = t4823 * t1488;
8638   t16547 = t5210 * t7598 * t3951;
8639   t16550 = t5210 * t2522 * t3955;
8640   t16552 = t1630 * t3948;
8641   t16555 = t5210 * t2522 * t3959;
8642   t16557 = t4784 * t5462;
8643   t16559 = t4784 * t5465;
8644   t16561 = 0.56426388993367900961e0 * t15595 - 0.72548214420044444094e0 * t16525 - 0.13522695650782512218e1 * t14606 - t14615 + 0.40568086952347536654e0 * t16528 + 0.12091369070007407349e0 * t16530 - 0.30228422675018518372e-1 * t16532 + 0.12091369070007407349e0 * t16534 - 0.60456845350037036744e-1 * t16536 - 0.30228422675018518372e-1 * t16538 - t15609 - 0.40568086952347536654e0 * t16540 + 0.28213194496683950481e0 * t16542 - 0.14106597248341975240e1 * t16544 - 0.20863587575493018851e1 * t16547 + 0.10431793787746509425e1 * t16550 - 0.60456845350037036744e-1 * t16552 + 0.52158968938732547127e0 * t16555 + 0.20284043476173768327e0 * t16557 + 0.20284043476173768327e0 * t16559;
8645   t16563 = t1618 * t1526;
8646   t16569 = t1630 * t4055;
8647   t16571 = t1630 * t4052;
8648   t16573 = t1624 * t4070;
8649   t16575 = t1613 * t4125;
8650   t16577 = t4778 * t4150;
8651   t16579 = t4784 * t1512;
8652   t16581 = t1630 * t4058;
8653   t16583 = t1613 * t4116;
8654   t16585 = -0.12170426085704260996e1 * t16563 - t15611 - t15618 - t16095 + t15624 - 0.31974953762908477211e1 * t15638 - 0.15987476881454238605e1 * t15645 + t15654 - 0.67613478253912561090e0 * t14628 - 0.15987476881454238606e1 * t14632 - t14646 - t15670 + 0.60456845350037036744e0 * t16569 - 0.18137053605011111023e1 * t16571 - 0.30228422675018518372e-1 * t16573 + 0.17386322979577515709e0 * t16575 - 0.34772645959155031418e0 * t16577 - 0.81136173904695073309e0 * t16579 + 0.30228422675018518372e0 * t16581 - 0.17386322979577515709e0 * t16583;
8655   t16586 = t1613 * t4119;
8656   t16588 = t1613 * t4107;
8657   t16590 = t1613 * t4110;
8658   t16592 = t1613 * t4113;
8659   t16594 = t1613 * t4104;
8660   t16596 = t4778 * t4153;
8661   t16598 = t1613 * t4101;
8662   t16600 = t14579 * t4144;
8663   t16602 = t4778 * t4147;
8664   t16604 = t4810 * t1542;
8665   t16606 = t4778 * t4139;
8666   t16608 = t1613 * t4122;
8667   t16610 = t14589 * t1533;
8668   t16612 = t4810 * t1539;
8669   t16614 = t5217 * t3923;
8670   t16616 = t15558 * t3864;
8671   t16618 = t4813 * t4035;
8672   t16620 = -0.86931614897887578546e-1 * t16586 + 0.17386322979577515709e0 * t16588 - 0.86931614897887578546e-1 * t16590 + 0.17386322979577515709e0 * t16592 + 0.34772645959155031418e0 * t16594 + 0.34772645959155031418e0 * t16596 + 0.34772645959155031418e0 * t16598 - 0.52158968938732547127e0 * t16600 + 0.52158968938732547127e0 * t16602 + 0.14106597248341975240e0 * t16604 + 0.17386322979577515709e0 * t16606 - 0.52158968938732547127e0 * t16608 - 0.42319791745025925721e0 * t16610 + 0.14106597248341975240e0 * t16612 - 0.36274107210022222046e0 * t16614 - 0.36274107210022222046e0 * t16616 - t15699 + t15701 - 0.12091369070007407349e1 * t16618 + t15707;
8673   t16626 = t5427 * t352;
8674   t16654 = 0.11127246706929610054e2 * t1261 * t5188 * t1326 - 0.16690870060394415080e2 * t3335 * t5448 + 0.55636233534648050268e1 * t12762 * t1608 - 0.27818116767324025134e1 * t97 * t963 * t5487 + 0.55636233534648050268e1 * t3335 * t5454 - 0.55636233534648050268e1 * t97 * t5152 * t1326 + 0.11127246706929610054e2 * t16486 * t1263 - 0.27818116767324025134e1 * t97 * t353 * (t16523 + t16561 + t16585 + t16620) - 0.27818116767324025134e1 * t97 * t16626 * t391 + 0.11127246706929610054e2 * t3977 * t5179 - 0.55636233534648050268e1 * t97 * t15484 * t503 - 0.16690870060394415080e2 * t1261 * t4765 * t12796 + 0.11127246706929610054e2 * t3335 * t5451 - 0.27818116767324025134e1 * t97 * t10991 * t549 - 0.27818116767324025134e1 * t97 * t3970 * t1633 - 0.33381740120788830162e2 * t1261 * t15518 * t5175 - 0.33381740120788830162e2 * t3977 * t5176 - 0.16690870060394415080e2 * t1261 * t14545 * t1502;
8675   t16661 = t167 * t3763 * t194;
8676   t16664 = t167 * t3690 * t194;
8677   t16666 = t507 * t1330;
8678   t16673 = t565 * t1667 * t182 * t3678 * t192;
8679   t16675 = -0.25e2 / 0.6e1 * t16313 - 0.25e2 / 0.6e1 * t16317 - 0.25e2 / 0.6e1 * t16321 + t15152 - 0.51689762869806860992e-2 * t1093 * t15156 * t507 + t15171 + t15173 + t15174 - 0.25844881434903430496e-2 * t1093 * t16326 * t395 + 0.31013857721884116596e-1 * t1141 * t5071 * t3006 - 0.77534644304710291488e-2 * t730 * t1642 * t12105 + 0.25844881434903430496e-2 * t89 * t95 * (t16470 + t16654) * t397 + t16661 / 0.2e1 + t16664 / 0.2e1 + 0.10337952573961372198e-1 * t1093 * t4639 * t16666 - 0.25e2 / 0.36e2 * t16673;
8680   t16676 = t4675 * t5508;
8681   t16681 = t15234 * t1780;
8682   t16691 = t15231 * t1780;
8683   t16692 = t15758 * t1780;
8684   t16693 = -0.25e2 / 0.12e2 * t16676 - 0.25844881434903430496e-2 * t1093 * t4868 * t1554 - 0.7e1 / 0.3e1 * t16681 - 0.25844881434903430496e-2 * t1093 * t1642 * t4167 + 0.77534644304710291488e-2 * t730 * t1576 * t3673 - t15187 - t15194 - t15829 - t15203 - t15205 + t15206 - t15836 + 0.35e2 / 0.9e1 * t14341 - 0.7e1 / 0.3e1 * t14345 + t16691 - t14355 + t16692;
8685   t16696 = t5020 * t5055;
8686   t16698 = t1655 * t1126 * t3680;
8687   t16700 = t4658 * t5528;
8688   t16702 = t4661 * t5528;
8689   t16706 = t4700 * t4702 * t4703 * t1388;
8690   t16708 = t1412 * t192;
8691   t16711 = t4700 * t4702 * t16708 * t299;
8692   t16715 = t14251 * t5504;
8693   t16720 = -t14357 + t16696 + t15841 + t16698 / 0.2e1 + t16700 / 0.2e1 + t16702 / 0.2e1 + t15232 - t15236 - 0.25e2 / 0.12e2 * t16706 + t15249 - 0.25e2 / 0.12e2 * t16711 - 0.25e2 / 0.12e2 * t14367 - 0.25e2 / 0.36e2 * t14369 - t15253 + 0.125e3 / 0.6e1 * t16715 - 0.15506928860942058298e-1 * t730 * t1642 * t12037;
8694   t16722 = t2814 * t460 * t5094;
8695   t16726 = t4678 * t4683 * t5520;
8696   t16734 = t4664 * t5534;
8697   t16736 = t14691 * t5521;
8698   t16739 = t562 * t419 * t5521;
8699   t16743 = t4700 * t4702 * t1128 * t5040;
8700   t16747 = t5039 * t4702 * t4202 * t3006;
8701   t16749 = t1115 * t507;
8702   t16757 = t1563 * t395;
8703   t16762 = 0.31013857721884116596e-1 * t15350 * t16722 + 0.125e3 / 0.6e1 * t16726 - 0.51689762869806860992e-2 * t1093 * t5028 * t1330 + t15267 + t15270 - 0.15506928860942058298e-1 * t730 * t5028 * t3735 - 0.7e1 / 0.6e1 * t16734 - 0.25e2 / 0.6e1 * t16736 - 0.25e2 / 0.6e1 * t16739 - 0.25e2 / 0.6e1 * t16743 - 0.25e2 / 0.3e1 * t16747 - 0.15506928860942058298e-1 * t730 * t1642 * t16749 + 0.125e3 / 0.18e2 * t14400 - 0.125e3 / 0.2e1 * t14410 + 0.15506928860942058298e-1 * t9630 * t5496 - 0.15506928860942058298e-1 * t1093 * t14321 * t16757 + t14416 / 0.2e1;
8704   t16764 = t10126 * t5058;
8705   t16767 = t1661 * t5403;
8706   t16771 = t167 * t1397 * t101;
8707   t16772 = t16771 * t1656;
8708   t16783 = t1563 * t299;
8709   t16792 = t1666 * t4683 * t5507;
8710   t16795 = t565 * t4683 * t5512;
8711   t16797 = -0.31013857721884116596e-1 * t15280 * t16764 - t15908 - 0.25e2 / 0.36e2 * t16767 + 0.125e3 / 0.6e1 * t14694 - t15915 + t16772 / 0.2e1 - 0.15506928860942058298e-1 * t730 * t4868 * t5499 + 0.15506928860942058298e-1 * t730 * t15275 * t460 + t15922 + t15333 + 0.77534644304710291488e-2 * t730 * t4864 * t1388 + 0.15506928860942058298e-1 * t730 * t4639 * t16783 + 0.15506928860942058298e-1 * t730 * t5071 * t1115 - 0.125e3 / 0.6e1 * t14720 + 0.125e3 / 0.12e2 * t16792 + 0.125e3 / 0.36e2 * t16795;
8712   t16799 = t565 * t4683 * t5402;
8713   t16802 = t5090 * t4702 * t4194;
8714   t16810 = t1655 * t4195;
8715   t16812 = t5020 * t1130;
8716   t16822 = 0.125e3 / 0.36e2 * t16799 - t15348 - 0.25e2 / 0.36e2 * t16802 + 0.10337952573961372198e-1 * t1093 * t15178 * t5094 + 0.51689762869806860992e-2 * t1093 * t14312 * t1563 + t16810 / 0.2e1 + t16812 + t16194 - t16195 - t15738 - 0.15506928860942058298e-1 * t1141 * t1642 * t12117 + 0.31013857721884116596e-1 * t1141 * t1576 * t10044 - 0.15506928860942058298e-1 * t730 * t5028 * t5058 - t16203 - t15752 - t15755 + t14740;
8717   t16827 = -t5533 + t7 * (t16283 + t16311 + t16675 + t16693 + t16720 + t16762 + t16797 + t16822) + t5536 - t5378 - t5651 - t5381 + t5110 - t5652 + t15767 + t15768 + t5653 + t5654 + t5539 + t5542 + t14760 + t4879;
8718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8719     v4rho3sigma[6] = t16247 + t16248 + t16250 + t16827;
8720 
8721   t16831 = -t5553 - t15771 + t15772 - 0.28e2 / 0.3e1 * t5023 + t15773 + t5557 - t15774 - t14765 + t4899 - t4901 + t5407 + 0.4e1 * t5051 + t16217 + t16218 - t16220;
8722   t16833 = t16221 - t16222 + t16223 + t5561 - t4906 + t4908 - t15045 + t15047 - t5564 - 0.28e2 / 0.3e1 * t5067 - t5566 - t5569 + t16226 + t5572 - t5573 - t5575;
8723   t16836 = -t5576 - t4917 + t15052 + 0.4e1 * t5077 + t16230 - t15053 + t4921 - t4923 + t5643 + t5644 + t5529 - t16233 - t5647 + t5650 - t16234;
8724   t16851 = t14769 + t16251 + t16253 + t15778 - 0.25e2 / 0.9e1 * t16262 - 0.25e2 / 0.18e2 * t16265 - 0.25e2 / 0.6e1 * t16269 + t15781 + 0.15506928860942058298e-1 * t1141 * t4911 * t1403 + 0.2e1 * t16274 + t16275 - 0.25e2 / 0.6e1 * t16279 - 0.25e2 / 0.18e2 * t16281 + 0.15506928860942058298e-1 * t730 * t4894 * t16783 + t14255 + t14258;
8725   t16857 = t5639 * t397;
8726   t16866 = -0.51689762869806860992e-2 * t1093 * t5371 * t1330 - 0.7e1 / 0.3e1 * t16288 - 0.7e1 / 0.3e1 * t16290 - t14779 - t15121 - t14782 + t15123 + t14784 + 0.77534644304710291488e-2 * t730 * t16857 * t299 + 0.250e3 / 0.3e1 * t15124 + t15794 - t15797 - 0.25e2 / 0.3e1 * t16301 - 0.50e2 / 0.3e1 * t16305 - 0.25e2 / 0.3e1 * t16309 - 0.25e2 / 0.3e1 * t16313;
8727   t16894 = -0.25e2 / 0.3e1 * t16317 - 0.25e2 / 0.3e1 * t16321 + t15800 - 0.31013857721884116596e-1 * t16209 * t16764 + 0.2e1 * t15171 + t15809 + t15810 + 0.15506928860942058298e-1 * t730 * t15877 * t460 + 0.51689762869806860992e-2 * t1093 * t4894 * t12113 - 0.15506928860942058298e-1 * t730 * t5371 * t3735 + 0.15506928860942058298e-1 * t1141 * t1684 * t10087 + 0.77534644304710291488e-2 * t730 * t1684 * t3673 + t16661 + t16664 - 0.15506928860942058298e-1 * t730 * t1723 * t16749 - 0.15506928860942058298e-1 * t1141 * t1723 * t12117;
8728   t16920 = 0.31013857721884116596e-1 * t1141 * t1684 * t10044 + 0.15506928860942058298e-1 * t730 * t5261 * t1115 + 0.15506928860942058298e-1 * t9630 * t5555 + 0.51689762869806860992e-2 * t1093 * t14847 * t1563 - 0.25e2 / 0.18e2 * t16673 - 0.25e2 / 0.6e1 * t16676 - 0.14e2 / 0.3e1 * t16681 - 0.77534644304710291488e-2 * t730 * t1723 * t12105 + 0.77534644304710291488e-2 * t730 * t4911 * t1388 - 0.15506928860942058298e-1 * t1093 * t14785 * t16757 - t15825 - t15827 - 0.25e2 / 0.9e1 * t15200 - t15830 - t15831 + t15832 - 0.25e2 / 0.3e1 * t15209;
8729   t16929 = t15213 - t15214 + 0.2e1 * t16691 - t14814 + 0.2e1 * t16692 - t14815 + 0.2e1 * t16696 + 0.140e3 / 0.9e1 * t15217 + t16698 + t16700 + t16702 + t15842 - t15846 - 0.25e2 / 0.6e1 * t16706 + t15852 - 0.25e2 / 0.6e1 * t16711;
8730   t16947 = -t15250 - t15251 - t15861 + 0.125e3 / 0.3e1 * t16715 - 0.15506928860942058298e-1 * t730 * t5371 * t5058 + 0.10337952573961372198e-1 * t1093 * t15818 * t5094 + 0.125e3 / 0.3e1 * t16726 + 0.2e1 * t15267 + t15872 - 0.7e1 / 0.3e1 * t16734 - 0.25e2 / 0.3e1 * t16736 - 0.25e2 / 0.3e1 * t16739 - 0.25e2 / 0.3e1 * t16743 - 0.50e2 / 0.3e1 * t16747 + 0.10337952573961372198e-1 * t1093 * t4894 * t16666 + t15289 - t15292;
8731   t16981 = t97 * t1800;
8732   t17017 = 0.11127246706929610054e2 * t3977 * t5330 - 0.33381740120788830162e2 * t1261 * t16151 * t5175 + 0.11127246706929610054e2 * t1261 * t5329 * t1326 + 0.55636233534648050268e1 * t97 * t14897 * t1502 + 0.11127246706929610054e2 * t16981 * t1263 + 0.11127246706929610054e2 * t1261 * t15958 * t503 - 0.55636233534648050268e1 * t97 * t1254 * t5354 - 0.27818116767324025134e1 * t97 * t963 * t5635 + 0.55636233534648050268e1 * t3335 * t5616 + 0.55636233534648050268e1 * t1261 * t1704 * t4163 + 0.11127246706929610054e2 * t10394 * t1810 + 0.11127246706929610054e2 * t3977 * t5320 - 0.27818116767324025134e1 * t97 * t1697 * t4163 + 0.11127246706929610054e2 * t3977 * t5323 - 0.33381740120788830162e2 * t3977 * t5317 - 0.55636233534648050268e1 * t97 * t3321 * t1817 + 0.11127246706929610054e2 * t3335 * t5613 - 0.55636233534648050268e1 * t97 * t16171 * t503;
8733   t17028 = -0.43465807448943789272e0 * t16352 + 0.86931614897887578544e-1 * t16354 - t14922 - 0.65198711173415683908e-1 * t16356 + 0.65198711173415683908e-1 * t16358 + 0.43465807448943789272e-1 * t16360 - 0.21732903724471894636e-1 * t16362 - 0.10866451862235947318e-1 * t16364 - 0.17386322979577515709e0 * t16366 - t14923 - 0.28735728257912838463e0 * t14479 - 0.21732903724471894636e0 * t16369;
8734   t17041 = -0.10866451862235947318e-1 * t16372 + 0.43465807448943789272e-1 * t16374 + 0.86931614897887578544e-1 * t16376 + 0.86931614897887578544e-1 * t16378 + 0.43465807448943789272e-1 * t16380 - t16382 / 0.24e2 + t15986 - 0.7e1 / 0.24e2 * t16384 + 0.7e1 / 0.72e2 * t16386 - 0.10866451862235947318e-1 * t16388 - t16391 / 0.2e1 + t16394 / 0.4e1 + t16397 / 0.8e1;
8735   t17052 = -0.86931614897887578544e-1 * t16401 + 0.43465807448943789272e-1 * t16403 - 0.40568086952347536654e0 * t16405 + 0.21732903724471894636e-1 * t16407 - 0.57471456515825676924e0 * t15390 + t15996 - t15998 - 0.10142021738086884163e1 * t16410 + 0.20284043476173768327e0 * t16412 - 0.43465807448943789272e-1 * t16414 - 0.22988582606330270771e1 * t15401 - t15404 - t16002;
8736   t17062 = -t16008 - t16013 - 0.40568086952347536652e0 * t15434 - 0.13039742234683136782e1 * t16419 + 0.43465807448943789272e0 * t16421 + 0.21732903724471894636e0 * t16423 + 0.50710108690434420817e-1 * t16425 + 0.50710108690434420817e-1 * t16427 - 0.10142021738086884163e0 * t16429 + t16017 - 0.35e2 / 0.54e2 * t15446 + t16025 - 0.11494291303165135385e1 * t14520;
8737   t17088 = -0.20863587575493018851e1 * t16490 + 0.69545291918310062836e0 * t16493 + 0.36274107210022222046e0 * t16495 - 0.22570555597347160385e1 * t16497 + 0.18137053605011111023e0 * t16499 - 0.13909058383662012567e1 * t16502 - t16063 + 0.48365476280029629396e0 * t16505 + 0.48365476280029629396e0 * t16507 + 0.54411160815033333069e0 * t16509 - 0.12091369070007407349e1 * t16511 - 0.54090782603130048873e1 * t15573 - 0.34772645959155031418e0 * t16513 - 0.56426388993367900960e1 * t15575 + 0.48365476280029629396e0 * t16515 - 0.17386322979577515709e0 * t16518 + 0.24182738140014814698e0 * t16520 - t16075 + 0.56426388993367900961e0 * t15585 - 0.15987476881454238605e1 * t14594;
8738   t17105 = t16083 - 0.14509642884008888819e1 * t16525 - t15600 - t14989 + 0.81136173904695073309e0 * t16528 + 0.24182738140014814698e0 * t16530 - 0.60456845350037036744e-1 * t16532 + 0.24182738140014814698e0 * t16534 - 0.12091369070007407349e0 * t16536 - 0.60456845350037036744e-1 * t16538 - t16091 - 0.81136173904695073309e0 * t16540 + 0.56426388993367900962e0 * t16542 - 0.28213194496683950481e1 * t16544 - 0.41727175150986037700e1 * t16547 + 0.20863587575493018850e1 * t16550 - 0.12091369070007407349e0 * t16552 + 0.10431793787746509425e1 * t16555 + 0.40568086952347536654e0 * t16557 + 0.40568086952347536654e0 * t16559;
8739   t17121 = -0.24340852171408521992e1 * t16563 - t16092 - 0.48681704342817043986e1 * t15617 - 0.27045391301565024436e1 * t15619 + 0.56426388993367900961e0 * t15623 - 0.63949907525816954421e1 * t15638 - 0.31974953762908477211e1 * t15645 + t16112 - t15658 - t15659 - t15001 - t16124 + 0.12091369070007407349e1 * t16569 - 0.36274107210022222047e1 * t16571 - 0.60456845350037036744e-1 * t16573 + 0.34772645959155031418e0 * t16575 - 0.69545291918310062836e0 * t16577 - 0.16227234780939014662e1 * t16579 + 0.60456845350037036745e0 * t16581 - 0.34772645959155031418e0 * t16583;
8740   t17139 = -0.17386322979577515709e0 * t16586 + 0.34772645959155031418e0 * t16588 - 0.17386322979577515709e0 * t16590 + 0.34772645959155031418e0 * t16592 + 0.69545291918310062836e0 * t16594 + 0.69545291918310062836e0 * t16596 + 0.69545291918310062836e0 * t16598 - 0.10431793787746509425e1 * t16600 + 0.10431793787746509425e1 * t16602 + 0.28213194496683950481e0 * t16604 + 0.34772645959155031418e0 * t16606 - 0.10431793787746509425e1 * t16608 - 0.84639583490051851441e0 * t16610 + 0.28213194496683950481e0 * t16612 - 0.72548214420044444092e0 * t16614 - 0.72548214420044444092e0 * t16616 - t16137 + t16138 - 0.24182738140014814698e1 * t16618 + t16141;
8741   t17166 = t5589 * t352;
8742   t17179 = t968 * t5635;
8743   t17188 = 0.27818116767324025134e1 * t97 * (t17028 + t17041 + t17052 + t17062) * t158 + 0.55636233534648050268e1 * t5301 * t3997 - 0.27818116767324025134e1 * t97 * t353 * (t17088 + t17105 + t17121 + t17139) - 0.16690870060394415080e2 * t1261 * t14883 * t1502 - 0.55636233534648050268e1 * t97 * t5294 * t1326 - 0.27818116767324025134e1 * t97 * t3970 * t1714 + 0.55636233534648050268e1 * t1261 * t4965 * t1550 - 0.16690870060394415080e2 * t5301 * t3987 - 0.16690870060394415080e2 * t1261 * t4961 * t12796 - 0.16690870060394415080e2 * t3335 * t5610 + 0.11127246706929610054e2 * t5301 * t3990 - 0.27818116767324025134e1 * t97 * t17166 * t391 + 0.66763480241577660320e2 * t1261 * t14910 * t16458 - 0.27818116767324025134e1 * t97 * t4942 * t1550 - 0.33381740120788830160e2 * t1261 * t4961 * t16449 + 0.55636233534648050268e1 * t1261 * t17179 * t391 - 0.27818116767324025134e1 * t97 * t10991 * t581 + 0.55636233534648050268e1 * t12762 * t1705;
8744   t17197 = -0.25844881434903430496e-2 * t1093 * t1723 * t4167 + t14416 - 0.250e3 * t15304 - 0.25e2 / 0.18e2 * t16767 + t15314 - 0.250e3 / 0.3e1 * t15317 - 0.51689762869806860992e-2 * t1093 * t15873 * t507 + t16772 + 0.250e3 / 0.9e1 * t15329 + t15923 + 0.31013857721884116596e-1 * t15891 * t16722 - 0.15506928860942058298e-1 * t730 * t4902 * t5499 - 0.77534644304710291488e-2 * t730 * t1723 * t12300 + 0.31013857721884116596e-1 * t1141 * t5261 * t3006 + 0.25844881434903430496e-2 * t89 * t95 * (t17017 + t17188) * t397 - 0.25844881434903430496e-2 * t1093 * t4902 * t1554;
8745   t17209 = t5639 * t1063;
8746   t17213 = -t15344 + 0.125e3 / 0.6e1 * t16792 + 0.125e3 / 0.18e2 * t16795 + 0.125e3 / 0.18e2 * t16799 - 0.15506928860942058298e-1 * t730 * t1723 * t12037 - t16187 - 0.25e2 / 0.18e2 * t16802 + t16810 + 0.2e1 * t16812 + 0.140e3 / 0.9e1 * t15730 - 0.28e2 / 0.3e1 * t15735 - t16196 - 0.28e2 / 0.3e1 * t15749 - t16204 - t16205 + t15035 - 0.25844881434903430496e-2 * t1093 * t17209 * t395;
8747   t17220 = -t16235 + t16236 + t5535 - t16238 - 0.50e2 / 0.9e1 * t5103 - t16239 + t16240 - 0.50e2 / 0.3e1 * t5112 + t7 * (t16851 + t16866 + t16894 + t16920 + t16929 + t16947 + t17197 + t17213) - t16241 + 0.250e3 / 0.9e1 * t5249 + 0.250e3 / 0.3e1 * t5252 - t16242 + t16243 + t15065 + t5011;
8748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8749     v4rho3sigma[7] = t16831 + t16833 + t16836 + t17220;
8750 
8751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8752     v4rho3sigma[8] = v4rho3sigma[6];
8753 
8754   t17235 = -0.25e2 / 0.12e2 * t5404 - 0.7e1 * t5023 - t14230 + 0.3e1 / 0.2e1 * t5407 + 0.3e1 * t5051 + 0.77534644304710291488e-2 * t5494 - t14239 + t14241 + 0.46520786582826174894e-1 * t5497 - 0.46520786582826174894e-1 * t5501 - 0.7e1 * t5067 - 0.25e2 / 0.2e1 * t5505 - 0.25e2 / 0.4e1 * t5509 - 0.25e2 / 0.12e2 * t5514 - 0.15506928860942058297e-1 * t5517 - 0.25e2 / 0.2e1 * t5522;
8755   t17247 = t1388 * t507;
8756   t17254 = t1655 * t4284;
8757   t17258 = t1666 * t1667 * t1668 * t4263;
8758   t17263 = t565 * t1667 * t182 * t4268 * t192;
8759   t17276 = t14249 + 0.3e1 / 0.2e1 * t16251 - 0.23260393291413087447e-1 * t730 * t1642 * t17247 - 0.25e2 / 0.12e2 * t16281 + t14256 - 0.7e1 / 0.2e1 * t16288 - 0.7e1 / 0.2e1 * t16290 - t14264 - t14270 + t14274 + 0.3e1 / 0.2e1 * t17254 - 0.25e2 / 0.12e2 * t17258 - 0.25e2 / 0.36e2 * t17263 + 0.77534644304710291488e-2 * t730 * t1576 * t4263 + 0.23260393291413087447e-1 * t730 * t5071 * t1388 + 0.125e3 / 0.2e1 * t15124 - 0.25e2 / 0.2e1 * t16313 - 0.77534644304710291488e-2 * t1093 * t16326 * t507;
8760   t17279 = t167 * t4604 * t194;
8761   t17287 = t562 * t176 * t4287 * t99 * t569;
8762   t17295 = t5020 * t5534;
8763   t17298 = t1655 * t1126 * t4619;
8764   t17304 = t1655 * t1126 * t4270;
8765   t17307 = t16771 * t1780;
8766   t17309 = 0.3e1 / 0.2e1 * t15171 + t17279 / 0.2e1 - 0.15506928860942058298e-1 * t1093 * t14321 * t4299 - 0.25e2 / 0.6e1 * t17287 + 0.46520786582826174894e-1 * t1141 * t5071 * t1403 + 0.3e1 / 0.2e1 * t16661 - 0.25e2 / 0.4e1 * t16676 - 0.7e1 * t16681 + 0.3e1 / 0.2e1 * t17295 + t17298 / 0.2e1 - 0.25e2 / 0.12e2 * t15200 - 0.25e2 / 0.4e1 * t15209 + 0.3e1 * t16691 - t14355 - t14357 + t17304 / 0.2e1 + 0.35e2 / 0.3e1 * t15217 + 0.3e1 / 0.2e1 * t17307;
8767   t17311 = t5020 * t5528;
8768   t17316 = t4700 * t4702 * t16708 * t460;
8769   t17320 = t4700 * t4702 * t4202 * t1388;
8770   t17324 = t5039 * t4702 * t5040 * t1388;
8771   t17328 = t5039 * t4702 * t4202 * t1403;
8772   t17332 = t4700 * t4702 * t12161 * t460;
8773   t17336 = t5090 * t4702 * t4283;
8774   t17358 = t503 * t1550;
8775   t17367 = t1583 * t4358;
8776   t17370 = t5121 * t107 * t12304;
8777   t17372 = t1587 * t4444;
8778   t17374 = t5143 * t4404;
8779   t17376 = t14467 * t4454;
8780   t17378 = t4719 * t4458;
8781   t17380 = t14495 * t4362;
8782   t17382 = t4719 * t4345;
8783   t17384 = t4719 * t4349;
8784   t17386 = t1587 * t4383;
8785   t17388 = t1587 * t4388;
8786   t17390 = t1587 * t4379;
8787   t17392 = t1587 * t4450;
8788   t17394 = -t14459 - t14462 - t17367 / 0.48e2 + 0.3e1 / 0.16e2 * t17370 - 0.54332259311179736592e-2 * t17372 + 0.32599355586707841954e0 * t17374 - 0.32599355586707841954e-1 * t17376 + 0.32599355586707841954e-1 * t17378 - t17380 / 0.4e1 - 0.13039742234683136782e0 * t17382 + 0.32599355586707841954e-1 * t17384 + 0.65198711173415683911e-1 * t17386 + 0.65198711173415683911e-1 * t17388 - 0.16299677793353920977e-1 * t17390 - 0.54332259311179736592e-2 * t17392;
8789   t17397 = t1587 * t4370;
8790   t17399 = t1587 * t4374;
8791   t17410 = t534 * t4394;
8792   t17412 = t534 * t4366;
8793   t17414 = -0.7e1 / 0.16e2 * t16384 + 0.7e1 / 0.48e2 * t16386 - 0.32599355586707841955e0 * t17397 + 0.65198711173415683911e-1 * t17399 - 0.60852130428521304984e0 * t16405 - 0.43103592386869257697e0 * t15390 - 0.15213032607130326246e1 * t16410 + 0.30426065214260652492e0 * t16412 - 0.17241436954747703079e1 * t15401 + 0.76065163035651631230e-1 * t16425 + 0.76065163035651631230e-1 * t16427 - 0.15213032607130326246e0 * t16429 - 0.35e2 / 0.72e2 * t15446 - 0.21732903724471894637e-1 * t17410 - 0.65198711173415683908e0 * t17412;
8794   t17431 = t5217 * t4345;
8795   t17433 = t5217 * t4349;
8796   t17436 = t4813 * t4383;
8797   t17438 = t1613 * t4502;
8798   t17440 = t1624 * t4569;
8799   t17442 = t4806 * t4544;
8800   t17444 = t1630 * t4525;
8801   t17446 = t1624 * t4528;
8802   t17448 = t1613 * t4519;
8803   t17450 = t1613 * t4522;
8804   t17452 = -0.10882232163006666614e1 * t17431 + 0.27205580407516666535e0 * t17433 - 0.33855833396020740576e1 * t16497 + 0.36274107210022222047e0 * t17436 + 0.52158968938732547127e0 * t17438 - 0.30228422675018518372e-1 * t17440 + 0.27205580407516666535e0 * t17442 + 0.90685268025055555116e0 * t17444 - 0.30228422675018518372e-1 * t17446 - 0.15647690681619764138e1 * t17448 + 0.52158968938732547127e0 * t17450;
8805   t17453 = t1613 * t4506;
8806   t17455 = t1613 * t4499;
8807   t17459 = t4813 * t4388;
8808   t17461 = t4813 * t4374;
8809   t17463 = t4813 * t4370;
8810   t17469 = -0.26079484469366273564e0 * t17453 + 0.52158968938732547127e0 * t17455 - 0.40568086952347536654e1 * t15573 - t14615 + 0.12170426085704260996e1 * t16528 + 0.36274107210022222047e0 * t17459 + 0.36274107210022222047e0 * t17461 - 0.18137053605011111023e1 * t17463 - 0.12170426085704260996e1 * t16540 + 0.84639583490051851442e0 * t16542 - 0.42319791745025925720e1 * t16544 + 0.60852130428521304981e0 * t16557;
8811   t17474 = t4813 * t4379;
8812   t17477 = t542 * t4581;
8813   t17479 = t542 * t4575;
8814   t17483 = t1613 * t141 * t4537;
8815   t17486 = t1613 * t141 * t4565;
8816   t17488 = 0.60852130428521304981e0 * t16559 - 0.36511278257112782988e1 * t16563 - 0.20284043476173768327e1 * t15619 - 0.90685268025055555116e-1 * t17474 - 0.47962430644362715817e1 * t15638 - 0.20863587575493018851e1 * t17477 - 0.17386322979577515709e0 * t17479 - 0.23981215322181357908e1 * t15645 - 0.86931614897887578546e-1 * t17483 - 0.86931614897887578546e-1 * t17486 - t14646;
8817   t17489 = t4778 * t4493;
8818   t17491 = t4778 * t4496;
8819   t17493 = t14571 * t4541;
8820   t17499 = t1630 * t4394;
8821   t17501 = t1630 * t4366;
8822   t17504 = t14579 * t141 * t4557;
8823   t17507 = t4778 * t141 * t4561;
8824   t17510 = t5210 * t2522 * t4397;
8825   t17512 = -0.10431793787746509425e1 * t17489 + 0.52158968938732547127e0 * t17491 - 0.36274107210022222046e0 * t17493 - 0.24340852171408521993e1 * t16579 + 0.42319791745025925720e0 * t16604 - 0.12695937523507777716e1 * t16610 + 0.42319791745025925720e0 * t16612 - 0.60456845350037036744e-1 * t17499 - 0.18137053605011111023e1 * t17501 - 0.52158968938732547127e0 * t17504 + 0.52158968938732547127e0 * t17507 + 0.15647690681619764138e1 * t17510;
8826   t17536 = -0.83454350301972075402e1 * t97 * t1254 * t5487 - 0.83454350301972075402e1 * t97 * t16626 * t503 - 0.83454350301972075402e1 * t97 * t5152 * t1550 - 0.27818116767324025134e1 * t97 * t353 * (t17452 + t17469 + t17488 + t17512) + 0.16690870060394415081e2 * t3977 * t5454 + 0.16690870060394415081e2 * t5159 * t4481 + 0.16690870060394415081e2 * t1261 * t5188 * t1550 + 0.16690870060394415081e2 * t1261 * t16341 * t503 - 0.16690870060394415080e2 * t97 * t14679 * t4477 + 0.16690870060394415081e2 * t12762 * t1753 + 0.55636233534648050268e1 * t1261 * t1607 * t4589;
8827   t17547 = t565 * t1667 * t182 * t4617 * t192;
8828   t17551 = 0.3e1 / 0.2e1 * t17311 + 0.3e1 / 0.2e1 * t16700 - 0.25e2 / 0.4e1 * t17316 - 0.25e2 / 0.4e1 * t17320 - 0.25e2 / 0.2e1 * t17324 - 0.25e2 / 0.2e1 * t17328 - 0.25e2 / 0.4e1 * t17332 + 0.125e3 / 0.2e1 * t16715 - 0.25e2 / 0.12e2 * t17336 - 0.46520786582826174894e-1 * t730 * t5028 * t5499 + 0.125e3 / 0.2e1 * t16726 + 0.3e1 / 0.2e1 * t15267 + 0.25844881434903430496e-2 * t89 * t95 * (-0.83454350301972075402e1 * t97 * t3970 * t1765 + 0.16690870060394415081e2 * t97 * t15720 * t1502 - 0.50072610181183245242e2 * t1261 * t15518 * t1502 - 0.27818116767324025134e1 * t97 * t1600 * t4589 + 0.66763480241577660320e2 * t1261 * t14541 * t4477 - 0.50072610181183245240e2 * t1261 * t4765 * t17358 - 0.50072610181183245242e2 * t3977 * t5448 - 0.27818116767324025134e1 * t97 * t12755 * t549 + 0.27818116767324025134e1 * t97 * (t17394 + t17414) * t158 + 0.33381740120788830162e2 * t3977 * t5451 + t17536) * t397 - 0.7e1 / 0.2e1 * t16734 - 0.25e2 / 0.2e1 * t16736 - 0.25e2 / 0.36e2 * t17547 - 0.375e3 / 0.2e1 * t15304 - 0.25e2 / 0.12e2 * t16767;
8829   t17553 = t1554 * t507;
8830   t17558 = t460 * t1563;
8831   t17562 = t1403 * t507;
8832   t17579 = t1554 * t460;
8833   t17595 = -0.125e3 / 0.2e1 * t15317 + 0.15506928860942058297e-1 * t1093 * t4639 * t17553 + 0.125e3 / 0.6e1 * t15329 + 0.46520786582826174894e-1 * t730 * t4639 * t17558 - 0.46520786582826174894e-1 * t1141 * t1642 * t17562 + 0.23260393291413087447e-1 * t730 * t16294 * t460 - 0.77534644304710291488e-2 * t1093 * t5028 * t1554 + 0.15506928860942058298e-1 * t89 * t4287 * t553 * t397 + 0.125e3 / 0.4e1 * t16792 + 0.125e3 / 0.12e2 * t16795 + 0.125e3 / 0.12e2 * t16799 - 0.23260393291413087447e-1 * t730 * t1642 * t17579 + 0.46520786582826174894e-1 * t1141 * t1576 * t12304 - 0.25844881434903430496e-2 * t1093 * t1642 * t4593 + 0.15506928860942058297e-1 * t1093 * t15178 * t1563 + 0.35e2 / 0.3e1 * t15730 - 0.7e1 * t15735 - 0.7e1 * t15749 + t14740;
8834   t17601 = t14750 + 0.3e1 * t5077 - t14751 + 0.46520786582826174894e-1 * t5525 + 0.3e1 * t5527 + 0.3e1 / 0.2e1 * t5529 - 0.77534644304710291488e-2 * t5532 + 0.3e1 / 0.2e1 * t5535 - 0.25e2 / 0.6e1 * t5103 - 0.25e2 / 0.2e1 * t5112 + 0.125e3 / 0.6e1 * t5249 + 0.125e3 / 0.2e1 * t5252 + t7 * (t17276 + t17309 + t17551 + t17595) + 0.15506928860942058297e-1 * t5538 + 0.23260393291413087447e-1 * t5541 + t14760;
8835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8836     v4rho3sigma[9] = t17235 + t17601;
8837 
8838   t17615 = -0.25e2 / 0.6e1 * t5404 - 0.14e2 * t5023 + 0.46520786582826174894e-1 * t5556 - t14765 + 0.3e1 * t5407 + 0.6e1 * t5051 + 0.15506928860942058297e-1 * t5560 - t15045 + t15047 - 0.46520786582826174894e-1 * t5563 - 0.14e2 * t5067 - 0.25e2 * t5505 - 0.15506928860942058297e-1 * t5568 + 0.46520786582826174894e-1 * t5571 - 0.25e2 / 0.2e1 * t5509 - 0.25e2 / 0.6e1 * t5514;
8839   t17640 = t14769 + 0.3e1 * t16251 - 0.25e2 / 0.6e1 * t16281 + t14255 - 0.23260393291413087447e-1 * t730 * t1723 * t17247 - 0.7e1 * t16288 - 0.7e1 * t16290 - t14779 - t14782 + t14784 + 0.3e1 * t17254 - 0.25e2 / 0.6e1 * t17258 - 0.25e2 / 0.18e2 * t17263 + 0.125e3 * t15124 - 0.25e2 * t16313 + 0.46520786582826174894e-1 * t1141 * t5261 * t1403 + 0.3e1 * t15171 + t17279;
8840   t17662 = 0.15506928860942058298e-1 * t89 * t4287 * t585 * t397 - 0.25e2 / 0.3e1 * t17287 + 0.3e1 * t16661 - 0.25e2 / 0.2e1 * t16676 - 0.14e2 * t16681 + 0.15506928860942058297e-1 * t1093 * t15818 * t1563 + 0.3e1 * t17295 + t17298 - 0.25e2 / 0.6e1 * t15200 - 0.25e2 / 0.2e1 * t15209 + 0.6e1 * t16691 - t14814 - t14815 + t17304 - 0.23260393291413087447e-1 * t730 * t1723 * t17579 + 0.70e2 / 0.3e1 * t15217 + 0.3e1 * t17307 + 0.3e1 * t17311;
8841   t17694 = 0.15506928860942058297e-1 * t1093 * t4894 * t17553 + 0.3e1 * t16700 - 0.77534644304710291488e-2 * t1093 * t17209 * t507 - 0.25e2 / 0.2e1 * t17316 - 0.25e2 / 0.2e1 * t17320 - 0.25e2 * t17324 - 0.25e2 * t17328 - 0.25e2 / 0.2e1 * t17332 + 0.125e3 * t16715 - 0.25e2 / 0.6e1 * t17336 + 0.77534644304710291488e-2 * t730 * t1684 * t4263 + 0.125e3 * t16726 + 0.3e1 * t15267 - 0.77534644304710291488e-2 * t1093 * t5371 * t1554 - 0.7e1 * t16734 - 0.25e2 * t16736 - 0.46520786582826174894e-1 * t1141 * t1723 * t17562 + 0.46520786582826174894e-1 * t1141 * t1684 * t12304;
8842   t17770 = -0.21764464326013333228e1 * t17431 + 0.54411160815033333069e0 * t17433 - 0.67711666792041481153e1 * t16497 + 0.72548214420044444094e0 * t17436 + 0.10431793787746509425e1 * t17438 - 0.60456845350037036744e-1 * t17440 + 0.54411160815033333069e0 * t17442 + 0.18137053605011111024e1 * t17444 - 0.60456845350037036744e-1 * t17446 - 0.31295381363239528276e1 * t17448 + 0.10431793787746509425e1 * t17450;
8843   t17782 = -0.52158968938732547127e0 * t17453 + 0.10431793787746509425e1 * t17455 - 0.81136173904695073309e1 * t15573 - t14989 + 0.24340852171408521993e1 * t16528 + 0.72548214420044444094e0 * t17459 + 0.72548214420044444094e0 * t17461 - 0.36274107210022222047e1 * t17463 - 0.24340852171408521993e1 * t16540 + 0.16927916698010370288e1 * t16542 - 0.84639583490051851441e1 * t16544 + 0.12170426085704260996e1 * t16557;
8844   t17794 = 0.12170426085704260996e1 * t16559 - 0.73022556514225565978e1 * t16563 - 0.40568086952347536654e1 * t15619 - 0.18137053605011111023e0 * t17474 - 0.95924861288725431632e1 * t15638 - 0.41727175150986037700e1 * t17477 - 0.34772645959155031418e0 * t17479 - 0.47962430644362715816e1 * t15645 - 0.17386322979577515709e0 * t17483 - 0.17386322979577515709e0 * t17486 - t15001;
8845   t17807 = -0.20863587575493018851e1 * t17489 + 0.10431793787746509425e1 * t17491 - 0.72548214420044444092e0 * t17493 - 0.48681704342817043986e1 * t16579 + 0.84639583490051851442e0 * t16604 - 0.25391875047015555432e1 * t16610 + 0.84639583490051851442e0 * t16612 - 0.12091369070007407349e0 * t17499 - 0.36274107210022222047e1 * t17501 - 0.10431793787746509425e1 * t17504 + 0.10431793787746509425e1 * t17507 + 0.31295381363239528275e1 * t17510;
8846   t17829 = -t14922 - t14923 - t17367 / 0.24e2 + 0.3e1 / 0.8e1 * t17370 - 0.10866451862235947318e-1 * t17372 + 0.65198711173415683908e0 * t17374 - 0.65198711173415683908e-1 * t17376 + 0.65198711173415683908e-1 * t17378 - t17380 / 0.2e1 - 0.26079484469366273563e0 * t17382 + 0.65198711173415683908e-1 * t17384 + 0.13039742234683136782e0 * t17386 + 0.13039742234683136782e0 * t17388 - 0.32599355586707841954e-1 * t17390 - 0.10866451862235947318e-1 * t17392;
8847   t17845 = -0.7e1 / 0.8e1 * t16384 + 0.7e1 / 0.24e2 * t16386 - 0.65198711173415683908e0 * t17397 + 0.13039742234683136782e0 * t17399 - 0.12170426085704260996e1 * t16405 - 0.86207184773738515387e0 * t15390 - 0.30426065214260652490e1 * t16410 + 0.60852130428521304981e0 * t16412 - 0.34482873909495406156e1 * t15401 + 0.15213032607130326245e0 * t16425 + 0.15213032607130326245e0 * t16427 - 0.30426065214260652489e0 * t16429 - 0.35e2 / 0.36e2 * t15446 - 0.43465807448943789272e-1 * t17410 - 0.13039742234683136782e1 * t17412;
8848   t17856 = 0.55636233534648050268e1 * t1261 * t1704 * t4589 + 0.16690870060394415081e2 * t1261 * t17179 * t503 + 0.16690870060394415081e2 * t97 * t16039 * t1502 - 0.83454350301972075402e1 * t97 * t1254 * t5635 + 0.16690870060394415081e2 * t1261 * t5329 * t1550 + 0.16690870060394415081e2 * t3977 * t5616 - 0.27818116767324025134e1 * t97 * t353 * (t17770 + t17782 + t17794 + t17807) - 0.83454350301972075402e1 * t97 * t17166 * t503 + 0.27818116767324025134e1 * t97 * (t17829 + t17845) * t158 - 0.27818116767324025134e1 * t97 * t12755 * t581 - 0.83454350301972075402e1 * t97 * t5294 * t1550;
8849   t17871 = -0.25e2 / 0.18e2 * t17547 - 0.375e3 * t15304 - 0.25e2 / 0.6e1 * t16767 - 0.125e3 * t15317 + 0.125e3 / 0.3e1 * t15329 - 0.15506928860942058298e-1 * t1093 * t14785 * t4299 - 0.46520786582826174894e-1 * t730 * t5371 * t5499 + 0.46520786582826174894e-1 * t730 * t4894 * t17558 - 0.25844881434903430496e-2 * t1093 * t1723 * t4593 + 0.125e3 / 0.2e1 * t16792 + 0.125e3 / 0.6e1 * t16795 + 0.125e3 / 0.6e1 * t16799 + 0.25844881434903430496e-2 * t89 * t95 * (-0.27818116767324025134e1 * t97 * t1697 * t4589 + 0.33381740120788830162e2 * t3977 * t5613 - 0.50072610181183245242e2 * t3977 * t5610 - 0.50072610181183245242e2 * t1261 * t16151 * t1502 + 0.16690870060394415081e2 * t12762 * t1810 - 0.83454350301972075402e1 * t97 * t3970 * t1817 + 0.16690870060394415081e2 * t5301 * t4481 - 0.16690870060394415080e2 * t97 * t14904 * t4477 + 0.66763480241577660320e2 * t1261 * t14910 * t4477 - 0.50072610181183245240e2 * t1261 * t4961 * t17358 + t17856) * t397 + 0.23260393291413087447e-1 * t730 * t16857 * t460 + 0.23260393291413087447e-1 * t730 * t5261 * t1388 + 0.70e2 / 0.3e1 * t15730 - 0.14e2 * t15735 - 0.14e2 * t15749 + t15035;
8850   t17879 = -0.25e2 * t5522 + t15052 + 0.6e1 * t5077 - t15053 + 0.77534644304710291488e-2 * t5642 + 0.6e1 * t5527 + 0.3e1 * t5529 - 0.77534644304710291488e-2 * t5646 + 0.23260393291413087447e-1 * t5649 + 0.3e1 * t5535 + t7 * (t17640 + t17662 + t17694 + t17871) - 0.25e2 / 0.3e1 * t5103 - 0.25e2 * t5112 + 0.125e3 / 0.3e1 * t5249 + 0.125e3 * t5252 + t15065;
8851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8852     v4rho3sigma[10] = t17615 + t17879;
8853 
8854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8855     v4rho3sigma[11] = v4rho3sigma[9];
8856 
8857   t17882 = t1637 * t1637;
8858   t17887 = t1637 * t395;
8859   t17891 = t1861 * t4688;
8860   t17892 = 0.125e3 / 0.3e1 * t17891;
8861   t17893 = t5762 * t5778;
8862   t17894 = 0.28750e5 / 0.27e2 * t17893;
8863   t17895 = t5774 * t7;
8864   t17900 = t1868 * t99 / t22 / t17895 * t1874;
8865   t17901 = 0.373750e6 / 0.81e2 * t17900;
8866   t17902 = t299 * t1637;
8867   t17912 = t1856 * t6309;
8868   t17920 = t562 * t4652 * t569;
8869   t17921 = 0.25e2 / 0.18e2 * t17920;
8870   t17924 = t1866 * t704 * t340 * t1875;
8871   t17925 = 0.625e3 / 0.9e1 * t17924;
8872   t17926 = t5746 * t1674;
8873   t17927 = 0.125e3 / 0.9e1 * t17926;
8874   t17932 = t562 * t4673 * t233;
8875   t17933 = t17932 * t5751;
8876   t17934 = 0.25e2 / 0.3e1 * t17933;
8877   t17936 = t562 * t1659 * t233;
8878   t17937 = t17936 * t5758;
8879   t17938 = 0.25e2 / 0.9e1 * t17937;
8880   t17940 = t5750 * t4701 * t4860;
8881   t17948 = t5726 * t1063;
8882   t17952 = -0.51689762869806860992e-2 * t89 * t95 * t17882 * t1063 + 0.20675905147922744396e-1 * t1093 * t4639 * t17887 - t17892 - t17894 + t17901 - 0.31013857721884116596e-1 * t730 * t1642 * t17902 - 0.51689762869806860992e-2 * t1093 * t1642 * t4834 - 0.25844881434903430496e-2 * t1093 * t5731 * t1055 - 0.15506928860942058298e-1 * t1093 * t17912 * t1060 - 0.77534644304710291488e-2 * t730 * t5735 * t724 - t17921 + t17925 + t17927 - 0.15506928860942058298e-1 * t730 * t5731 * t3554 - t17934 - t17938 - 0.25e2 / 0.6e1 * t17940 + 0.15506928860942058298e-1 * t1141 * t5658 * t736 - 0.15506928860942058298e-1 * t1141 * t5735 * t736 - 0.51689762869806860992e-2 * t1093 * t17948 * t395;
8883   t17956 = t1846 * t5708 * t335;
8884   t17957 = t17956 * t5712;
8885   t17958 = 0.23856212680662797686e0 * t17957;
8886   t17959 = t5723 * t956;
8887   t17963 = t1 * t959 * t1847 * t154;
8888   t17965 = t391 * t1633;
8889   t17979 = t146 * t5670 * t127;
8890   t17980 = t17979 * t5678;
8891   t17984 = t5675 * t152 * t5681 * t1051;
8892   t17988 = t5675 * t825 * t5676 * t724;
8893   t17992 = -0.33381740120788830160e2 * t3335 * t5698 - t17958 + 0.51120455744277423612e-1 * t17959 - 0.12780113936069355903e-1 * t17963 - 0.66763480241577660322e2 * t1261 * t4765 * t17965 - 0.16690870060394415080e2 * t1261 * t5697 * t1051 - 0.55636233534648050268e1 * t97 * t14431 * t549 + 0.11127246706929610054e2 * t1261 * t1607 * t4830 + 0.56426388993367900961e0 * t17980 - 0.15114211337509259186e-1 * t17984 - 0.60456845350037036744e-1 * t17988 + 0.11127246706929610054e2 * t5159 * t4773;
8894   t17993 = t158 * t814;
8895   t17996 = t5664 * t153 * t17993 * t118;
8896   t17998 = t5717 * t1033;
8897   t18000 = t5704 * t5716;
8898   t18001 = t18000 * t380;
8899   t18003 = t6 * t968;
8900   t18006 = t5675 * t152 * t18003 * t970;
8901   t18010 = t5675 * t1240 * t5676 * t736;
8902   t18014 = t9015 * t3210;
8903   t18016 = t18014 * t1835 * t828;
8904   t18018 = t9015 * t8607;
8905   t18019 = t132 * t352;
8906   t18020 = t827 * t391;
8907   t18022 = t18018 * t18019 * t18020;
8908   t18024 = t17979 * t5683;
8909   t18025 = 0.14106597248341975240e0 * t18024;
8910   t18031 = t146 * t148 * t335 * t127;
8911   t18032 = t18031 * t5667;
8912   t18033 = 0.14106597248341975240e0 * t18032;
8913   t18036 = -0.15114211337509259186e-1 * t17996 + 0.25560227872138711806e-1 * t17998 + 0.51120455744277423612e-1 * t18001 + 0.30228422675018518372e-1 * t18006 + 0.30228422675018518372e0 * t18010 + 0.22254493413859220108e2 * t15488 * t1608 + 0.12091369070007407349e0 * t18016 + 0.30228422675018518372e-1 * t18022 + t18025 - 0.55636233534648050268e1 * t97 * t1600 * t4830 + t18033 + 0.22254493413859220108e2 * t5159 * t4770;
8914   t18038 = t5723 * t952;
8915   t18040 = t1846 * t352;
8916   t18042 = t375 * t124 * t127;
8917   t18043 = t18040 * t18042;
8918   t18044 = t18043 * t829;
8919   t18046 = t1846 * t968;
8920   t18047 = t18046 * t18042;
8921   t18049 = t18047 * t153 * t18020;
8922   t18051 = t1633 * t1633;
8923   t18055 = t5704 * t5722;
8924   t18056 = t18055 * t344;
8925   t18061 = t5675 * t826 * t352 * t299 * t391;
8926   t18066 = t5664 * t153 * t158 * t930 * t118;
8927   t18069 = t1846 * t5715 * t335;
8928   t18070 = t18069 * t380;
8929   t18071 = 0.23856212680662797686e0 * t18070;
8930   t18072 = t5717 * t1036;
8931   t18074 = t5705 * t384;
8932   t18075 = 0.11928106340331398843e0 * t18074;
8933   t18077 = t1846 * t1847 * t335;
8934   t18078 = t18077 * t344;
8935   t18079 = 0.47712425361325595372e0 * t18078;
8936   t18082 = t5710 * t130 * t132 * t1051;
8937   t18084 = -0.25560227872138711806e0 * t18038 - 0.20448182297710969444e0 * t18044 - 0.10224091148855484722e0 * t18049 + 0.11127246706929610054e2 * t97 * t969 * t18051 + 0.10224091148855484722e0 * t18056 + 0.12091369070007407349e0 * t18061 - 0.15114211337509259186e-1 * t18066 - t18071 + 0.25560227872138711806e-1 * t18072 + t18075 - t18079 + 0.25560227872138711806e-1 * t18082;
8938   t18089 = t146 * t120 * t941 * t1836;
8939   t18090 = 0.39968692203635596514e0 * t18089;
8940   t18091 = t342 * t131;
8941   t18095 = t5710 * t18091 * t6 * t391 * t299;
8942   t18097 = t7477 * t1842;
8943   t18101 = t1848 * t1040;
8944   t18102 = 0.33796301297605630055e0 * t18101;
8945   t18108 = t1846 * t2501 * t148 * t124;
8946   t18111 = t18108 * t130 * t132 * t970;
8947   t18116 = t5704 * t5709;
8948   t18117 = t18116 * t5712;
8949   t18123 = t1846 * t352 * t1018 * t124;
8950   t18124 = t18123 * t1022;
8951   t18126 = t146 * t18042;
8952   t18129 = t18126 * t153 * t17993 * t816;
8953   t18131 = 0.22254493413859220108e2 * t3335 * t5701 + t18090 - 0.20448182297710969444e0 * t18095 + 0.66763480241577660320e2 * t1261 * t18097 * t970 - t18102 + 0.55636233534648050268e1 * t97 * t7460 * t1842 - 0.76680683616416135418e-1 * t18111 - 0.11127246706929610054e2 * t97 * t4746 * t1633 + 0.51120455744277423612e-1 * t18117 - 0.33381740120788830162e2 * t5159 * t4766 - 0.76680683616416135418e-1 * t18124 + 0.30228422675018518372e-1 * t18129;
8954   t18141 = t5726 * t397;
8955   t18149 = t5757 * t4701 * t4846;
8956   t18151 = t1866 * t564;
8957   t18154 = t18151 * t5768 * t5769 * t736;
8958   t18156 = t5776 * t181;
8959   t18158 = t5767 * t18156 * t5770;
8960   t18159 = 0.143750e6 / 0.27e2 * t18158;
8961   t18160 = t1851 * t2814;
8962   t18165 = t562 * t563 * t747;
8963   t18166 = t18165 * t5758;
8964   t18167 = 0.125e3 / 0.9e1 * t18166;
8965   t18169 = t5757 * t4701 * t4854;
8966   t18174 = t1866 * t412 * t128 * t99;
8967   t18175 = t18174 * t5771;
8968   t18176 = 0.6250e4 / 0.9e1 * t18175;
8969   t18178 = t1866 * t5761 * t99;
8970   t18179 = t18178 * t5785;
8971   t18180 = 0.1250e4 / 0.9e1 * t18179;
8972   t18183 = t5767 * t5768 * t5769 * t724;
8973   t18186 = t5782 * t18156 * t5784;
8974   t18187 = 0.28750e5 / 0.27e2 * t18186;
8975   t18191 = t5782 * t5768 * t3 * t779 * t192;
8976   t18196 = t5782 * t5768 * t3 * t786 * t192;
8977   t18199 = t562 * t177 * t233;
8978   t18201 = t18199 * t4701 * t4679;
8979   t18204 = t562 * t1664 * t747;
8980   t18205 = t18204 * t5751;
8981   t18206 = 0.125e3 / 0.3e1 * t18205;
8982   t18207 = t5750 * t4705;
8983   t18209 = t5768 * t3;
8984   t18211 = t5767 * t18209 * t4704;
8985   t18216 = t18176 + t18180 + 0.3125e4 / 0.9e1 * t18183 - t18187 + 0.625e3 / 0.9e1 * t18191 + 0.625e3 / 0.9e1 * t18196 - 0.25e2 / 0.3e1 * t18201 + t18206 - 0.25e2 / 0.3e1 * t18207 + 0.6250e4 / 0.9e1 * t18211 + 0.51689762869806860992e-2 * t1093 * t5742 * t1055;
8986   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8987     v4rho2sigma2[0] = -0.51689762869806860992e-2 * t5733 + 0.15506928860942058298e-1 * t5660 + t7 * (t17952 + 0.25844881434903430496e-2 * t89 * t95 * (t17992 + t18036 + t18084 + t18131) * t397 + 0.31013857721884116596e-1 * t730 * t5742 * t3554 + 0.15506928860942058298e-1 * t730 * t18141 * t299 + 0.77534644304710291488e-2 * t730 * t5658 * t724 - 0.25e2 / 0.18e2 * t18149 + 0.12500e5 / 0.9e1 * t18154 - t18159 + 0.51689762869806860992e-2 * t1093 * t18160 * t1060 + t18167 - 0.25e2 / 0.18e2 * t18169 + t18216) - t5857 + t5859 - t5860 + t5861 - t5855 + t5856 - 0.15506928860942058298e-1 * t5737 - 0.10337952573961372198e-1 * t5740 + 0.51689762869806860992e-2 * t5729 - t5854 + t5858 + 0.10337952573961372198e-1 * t5744;
8988 
8989   t18226 = t5831 * t397;
8990   t18233 = 0.250e3 / 0.3e1 * t17891;
8991   t18234 = 0.57500e5 / 0.27e2 * t17893;
8992   t18235 = 0.747500e6 / 0.81e2 * t17900;
8993   t18239 = 0.25e2 / 0.9e1 * t17920;
8994   t18240 = 0.1250e4 / 0.9e1 * t17924;
8995   t18241 = 0.250e3 / 0.9e1 * t17926;
8996   t18245 = 0.50e2 / 0.3e1 * t17933;
8997   t18246 = 0.15506928860942058298e-1 * t730 * t18226 * t299 + 0.77534644304710291488e-2 * t730 * t5790 * t724 - t18233 - t18234 + t18235 - 0.25844881434903430496e-2 * t1093 * t1723 * t4834 - t18239 + t18240 + t18241 - 0.51689762869806860992e-2 * t1093 * t4902 * t1637 - t18245;
8998   t18247 = 0.50e2 / 0.9e1 * t17937;
8999   t18286 = 0.11285277798673580192e1 * t17980;
9000   t18288 = -0.27818116767324025134e1 * t97 * t14890 * t549 - 0.47712425361325595373e0 * t17957 - 0.27818116767324025134e1 * t97 * t1600 * t4990 + 0.11127246706929610054e2 * t5159 * t4966 + 0.10224091148855484723e0 * t17959 + 0.55636233534648050268e1 * t5301 * t4773 - 0.25560227872138711807e-1 * t17963 - 0.55636233534648050268e1 * t97 * t4942 * t1633 - 0.33381740120788830160e2 * t1261 * t14883 * t5816 - 0.33381740120788830160e2 * t1261 * t4961 * t17965 - 0.33381740120788830160e2 * t3335 * t5817 + 0.11127246706929610054e2 * t1261 * t4965 * t1633 + t18286 - 0.30228422675018518372e-1 * t17984;
9001   t18311 = -0.12091369070007407349e0 * t17988 - 0.30228422675018518372e-1 * t17996 + 0.51120455744277423614e-1 * t17998 + 0.10224091148855484723e0 * t18001 + 0.60456845350037036744e-1 * t18006 + 0.60456845350037036745e0 * t18010 + 0.24182738140014814698e0 * t18016 + 0.60456845350037036744e-1 * t18022 + 0.28213194496683950480e0 * t18024 - 0.55636233534648050268e1 * t97 * t4746 * t1714 + 0.55636233534648050268e1 * t1261 * t14958 * t549 + 0.28213194496683950480e0 * t18032 + 0.66763480241577660320e2 * t1261 * t14910 * t549 * t970 - 0.51120455744277423615e0 * t18038 - 0.40896364595421938892e0 * t18044;
9002   t18323 = 0.23856212680662797686e0 * t18074;
9003   t18332 = 0.79937384407271193027e0 * t18089;
9004   t18333 = -0.20448182297710969446e0 * t18049 + 0.55636233534648050268e1 * t8988 * t1886 + 0.11127246706929610054e2 * t5301 * t4770 + 0.20448182297710969446e0 * t18056 + 0.24182738140014814698e0 * t18061 - 0.30228422675018518372e-1 * t18066 - 0.47712425361325595373e0 * t18070 + 0.51120455744277423614e-1 * t18072 + t18323 + 0.11127246706929610054e2 * t3335 * t5823 - 0.95424850722651190746e0 * t18078 + 0.51120455744277423614e-1 * t18082 - 0.16690870060394415080e2 * t1261 * t4961 * t549 * t1051 + t18332;
9005   t18341 = 0.67592602595211260110e0 * t18101;
9006   t18361 = -0.40896364595421938892e0 * t18095 - 0.27818116767324025134e1 * t97 * t14431 * t581 - 0.27818116767324025134e1 * t97 * t1697 * t4830 - t18341 + 0.11127246706929610054e2 * t16046 * t1608 + 0.55636233534648050268e1 * t1261 * t1704 * t4830 - 0.15336136723283227084e0 * t18111 + 0.11127246706929610054e2 * t3335 * t5820 + 0.10224091148855484723e0 * t18117 - 0.15336136723283227084e0 * t18124 + 0.60456845350037036744e-1 * t18129 - 0.16690870060394415080e2 * t5301 * t4766 + 0.11127246706929610054e2 * t15488 * t1705 + 0.55636233534648050268e1 * t5159 * t4969 - 0.16690870060394415080e2 * t5159 * t4962;
9007   t18370 = 0.287500e6 / 0.27e2 * t18158;
9008   t18374 = t1890 * t2814;
9009   t18378 = -t18247 - 0.25e2 / 0.3e1 * t17940 + 0.51689762869806860992e-2 * t1093 * t4894 * t553 * t1055 + 0.31013857721884116596e-1 * t15891 * t4639 * t3554 - 0.25844881434903430496e-2 * t1093 * t5836 * t1055 + 0.25844881434903430496e-2 * t89 * t95 * (t18288 + t18311 + t18333 + t18361) * t397 - 0.25e2 / 0.9e1 * t18149 + 0.25000e5 / 0.9e1 * t18154 - t18370 - 0.15506928860942058298e-1 * t730 * t1723 * t17902 + 0.51689762869806860992e-2 * t1093 * t18374 * t1060;
9010   t18391 = t5831 * t1063;
9011   t18395 = 0.250e3 / 0.9e1 * t18166;
9012   t18397 = 0.12500e5 / 0.9e1 * t18175;
9013   t18398 = 0.2500e4 / 0.9e1 * t18179;
9014   t18400 = 0.57500e5 / 0.27e2 * t18186;
9015   t18402 = 0.10337952573961372198e-1 * t1093 * t14847 * t5847 - 0.15506928860942058298e-1 * t1093 * t14785 * t553 * t1060 - 0.77534644304710291488e-2 * t730 * t1723 * t553 * t724 - 0.51689762869806860992e-2 * t1093 * t18391 * t395 + t18395 - 0.25e2 / 0.9e1 * t18169 + t18397 + t18398 + 0.6250e4 / 0.9e1 * t18183 - t18400 + 0.1250e4 / 0.9e1 * t18191;
9016   t18405 = 0.250e3 / 0.3e1 * t18205;
9017   t18427 = 0.1250e4 / 0.9e1 * t18196 - 0.50e2 / 0.3e1 * t18201 + t18405 + 0.10337952573961372198e-1 * t1093 * t4894 * t17887 - 0.15506928860942058298e-1 * t1141 * t1723 * t553 * t736 - 0.15506928860942058298e-1 * t730 * t5836 * t3554 - 0.25844881434903430496e-2 * t1093 * t14823 * t553 + 0.15506928860942058298e-1 * t1141 * t5790 * t736 - 0.50e2 / 0.3e1 * t18207 + 0.12500e5 / 0.9e1 * t18211 - 0.15506928860942058298e-1 * t730 * t4902 * t5840;
9018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9019     v4rho2sigma2[1] = 0.51689762869806860992e-2 * t5834 - 0.51689762869806860992e-2 * t5852 - t5918 + t5920 - t5921 + t5922 - t5916 + t5917 + t7 * (t18246 + t18378 + t18402 + t18427) - 0.51689762869806860992e-2 * t5838 - 0.51689762869806860992e-2 * t5845 - t5915 + t5919 + 0.15506928860942058298e-1 * t5792 - 0.15506928860942058298e-1 * t5842 + 0.10337952573961372198e-1 * t5849;
9020 
9021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9022     v4rho2sigma2[2] = v4rho2sigma2[0];
9023 
9024   t18438 = 0.500e3 / 0.3e1 * t17891;
9025   t18439 = 0.115000e6 / 0.27e2 * t17893;
9026   t18440 = 0.1495000e7 / 0.81e2 * t17900;
9027   t18441 = t1915 * t6309;
9028   t18445 = t5895 * t1063;
9029   t18463 = t1714 * t1714;
9030   t18484 = -0.95424850722651190741e0 * t17957 + 0.11127246706929610054e2 * t97 * t969 * t18463 + 0.20448182297710969445e0 * t17959 - 0.51120455744277423612e-1 * t17963 + 0.55636233534648050268e1 * t97 * t7460 * t1905 - 0.33381740120788830162e2 * t5301 * t4962 + 0.22254493413859220108e2 * t16046 * t1705 + 0.22570555597347160384e1 * t17980 - 0.60456845350037036744e-1 * t17984 - 0.24182738140014814698e0 * t17988 + 0.11127246706929610054e2 * t5301 * t4969 + 0.11127246706929610054e2 * t1261 * t1704 * t4990;
9031   t18498 = -0.60456845350037036744e-1 * t17996 + 0.10224091148855484722e0 * t17998 + 0.20448182297710969444e0 * t18001 + 0.12091369070007407349e0 * t18006 + 0.12091369070007407349e1 * t18010 + 0.48365476280029629396e0 * t18016 + 0.12091369070007407349e0 * t18022 + 0.56426388993367900962e0 * t18024 + 0.22254493413859220108e2 * t3335 * t5887 + 0.56426388993367900962e0 * t18032 - 0.10224091148855484722e1 * t18038 - 0.81792729190843877778e0 * t18044;
9032   t18513 = t7477 * t1905;
9033   t18520 = -0.40896364595421938888e0 * t18049 + 0.40896364595421938890e0 * t18056 + 0.48365476280029629396e0 * t18061 - 0.60456845350037036744e-1 * t18066 - 0.95424850722651190741e0 * t18070 + 0.10224091148855484722e0 * t18072 + 0.47712425361325595372e0 * t18074 - 0.19084970144530238149e1 * t18078 + 0.10224091148855484722e0 * t18082 - 0.66763480241577660322e2 * t1261 * t4961 * t391 * t1714 + 0.66763480241577660320e2 * t1261 * t18513 * t970 - 0.55636233534648050268e1 * t97 * t14890 * t581;
9034   t18521 = 0.15987476881454238606e1 * t18089;
9035   t18528 = 0.13518520519042252022e1 * t18101;
9036   t18541 = t18521 - 0.33381740120788830160e2 * t3335 * t5884 - 0.81792729190843877778e0 * t18095 - 0.55636233534648050268e1 * t97 * t1697 * t4990 - t18528 - 0.30672273446566454166e0 * t18111 + 0.20448182297710969444e0 * t18117 - 0.11127246706929610054e2 * t97 * t4942 * t1714 - 0.30672273446566454166e0 * t18124 - 0.16690870060394415080e2 * t1261 * t5883 * t1051 + 0.12091369070007407349e0 * t18129 + 0.22254493413859220108e2 * t5301 * t4966;
9037   t18551 = 0.50e2 / 0.9e1 * t17920;
9038   t18552 = 0.2500e4 / 0.9e1 * t17924;
9039   t18553 = 0.500e3 / 0.9e1 * t17926;
9040   t18561 = t5895 * t397;
9041   t18565 = t1910 * t2814;
9042   t18569 = -t18438 - t18439 + t18440 - 0.15506928860942058298e-1 * t1093 * t18441 * t1060 - 0.51689762869806860992e-2 * t1093 * t18445 * t395 - 0.31013857721884116596e-1 * t730 * t1723 * t299 * t1718 + 0.31013857721884116596e-1 * t730 * t5911 * t3554 + 0.77534644304710291488e-2 * t730 * t5864 * t724 - 0.77534644304710291488e-2 * t730 * t5904 * t724 + 0.25844881434903430496e-2 * t89 * t95 * (t18484 + t18498 + t18520 + t18541) * t397 - 0.25844881434903430496e-2 * t1093 * t5900 * t1055 - t18551 + t18552 + t18553 + 0.20675905147922744396e-1 * t1093 * t4894 * t1718 * t395 - 0.100e3 / 0.3e1 * t17933 - 0.100e3 / 0.9e1 * t17937 - 0.50e2 / 0.3e1 * t17940 + 0.15506928860942058298e-1 * t730 * t18561 * t299 + 0.51689762869806860992e-2 * t1093 * t18565 * t1060;
9043   t18576 = t1718 * t1718;
9044   t18606 = 0.12500e5 / 0.9e1 * t18183 - 0.115000e6 / 0.27e2 * t18186 + 0.2500e4 / 0.9e1 * t18191 + 0.2500e4 / 0.9e1 * t18196 - 0.100e3 / 0.3e1 * t18201 + 0.500e3 / 0.3e1 * t18205 - 0.15506928860942058298e-1 * t730 * t5900 * t3554 - 0.15506928860942058298e-1 * t1141 * t5904 * t736 - 0.100e3 / 0.3e1 * t18207 + 0.25000e5 / 0.9e1 * t18211 + 0.51689762869806860992e-2 * t1093 * t5911 * t1055;
9045   t18612 = 0.115000e6 / 0.27e2 * t5779;
9046   t18615 = 0.500e3 / 0.9e1 * t5754;
9047   t18617 = 0.100e3 / 0.9e1 * t5747;
9048   t18618 = 0.5000e4 / 0.9e1 * t5763;
9049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9050     v4rho2sigma2[3] = -0.51689762869806860992e-2 * t5902 + 0.15506928860942058298e-1 * t5866 + t7 * (t18569 + 0.15506928860942058298e-1 * t1141 * t5864 * t736 - 0.51689762869806860992e-2 * t1093 * t1723 * t4994 - 0.51689762869806860992e-2 * t89 * t95 * t18576 * t1063 - 0.50e2 / 0.9e1 * t18149 + 0.50000e5 / 0.9e1 * t18154 - 0.575000e6 / 0.27e2 * t18158 + 0.500e3 / 0.9e1 * t18166 - 0.50e2 / 0.9e1 * t18169 + 0.25000e5 / 0.9e1 * t18175 + 0.5000e4 / 0.9e1 * t18179 + t18606) - 0.100e3 / 0.9e1 * t5759 + 0.25000e5 / 0.9e1 * t5772 - t18612 + 0.5000e4 / 0.9e1 * t5786 - 0.100e3 / 0.3e1 * t5752 + t18615 + 0.51689762869806860992e-2 * t5898 - t18617 + t18618 - 0.15506928860942058298e-1 * t5906 - 0.10337952573961372198e-1 * t5909 + 0.10337952573961372198e-1 * t5913;
9051 
9052   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9053     v4rho2sigma2[4] = v4rho2sigma2[1];
9054 
9055   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9056     v4rho2sigma2[5] = v4rho2sigma2[2];
9057 
9058   t18622 = -t5753 - t5760 + t5773 + t5787 - t5741 + t5974 - t5989 - t5992 + t5996 + t5661 - t5983 + t5730;
9059   t18626 = t5970 * t397;
9060   t18633 = t1769 * t299;
9061   t18637 = t5970 * t1063;
9062   t18644 = t17932 * t5987;
9063   t18647 = -t17892 - t17894 + t17901 + 0.77534644304710291488e-2 * t730 * t18141 * t460 + 0.77534644304710291488e-2 * t730 * t18626 * t299 + 0.77534644304710291488e-2 * t730 * t5658 * t1115 - 0.15506928860942058298e-1 * t730 * t1642 * t18633 - 0.25844881434903430496e-2 * t1093 * t18637 * t395 - t17921 + t17925 + t17927 - 0.25844881434903430496e-2 * t1093 * t5731 * t1330 - 0.25e2 / 0.6e1 * t18644 - 0.25e2 / 0.6e1 * t17933;
9064   t18649 = t18204 * t5987;
9065   t18658 = t5767 * t18209 * t5015;
9066   t18661 = t5782 * t18209 * t1129;
9067   t18663 = t507 * t1637;
9068   t18667 = t18165 * t5990;
9069   t18669 = t18174 * t5994;
9070   t18673 = t5767 * t5768 * t5769 * t1115;
9071   t18687 = -0.25e2 / 0.18e2 * t17937 + 0.125e3 / 0.6e1 * t18649 - 0.51689762869806860992e-2 * t1093 * t1642 * t5243 - 0.77534644304710291488e-2 * t730 * t5735 * t1115 + 0.3125e4 / 0.9e1 * t18658 + 0.625e3 / 0.9e1 * t18661 + 0.10337952573961372198e-1 * t1093 * t4639 * t18663 + 0.125e3 / 0.18e2 * t18667 + 0.3125e4 / 0.9e1 * t18669 + 0.3125e4 / 0.9e1 * t18673 - 0.51689762869806860992e-2 * t1093 * t4868 * t1769 + 0.51689762869806860992e-2 * t1093 * t5742 * t1330 - 0.77534644304710291488e-2 * t730 * t5731 * t3735 - 0.15506928860942058298e-1 * t1093 * t17912 * t5094;
9072   t18689 = t1769 * t395;
9073   t18704 = t5767 * t18156 * t5993;
9074   t18706 = t18178 * t5999;
9075   t18711 = t5782 * t5768 * t3 * t1347 * t192;
9076   t18723 = 0.10337952573961372198e-1 * t1093 * t4639 * t18689 + 0.15506928860942058298e-1 * t730 * t5742 * t3735 - 0.71875e5 / 0.27e2 * t18158 + 0.15506928860942058298e-1 * t730 * t5742 * t5058 - 0.15506928860942058298e-1 * t1141 * t5735 * t3006 - 0.71875e5 / 0.27e2 * t18704 + 0.625e3 / 0.9e1 * t18706 + 0.625e3 / 0.9e1 * t18711 - 0.77534644304710291488e-2 * t730 * t5731 * t5058 + 0.15506928860942058298e-1 * t1141 * t5658 * t3006 + 0.125e3 / 0.18e2 * t18166 + 0.3125e4 / 0.9e1 * t18175 + 0.625e3 / 0.9e1 * t18179 - 0.14375e5 / 0.27e2 * t18186;
9077   t18724 = t460 * t1637;
9078   t18728 = t5757 * t5091;
9079   t18731 = t18151 * t18209 * t5041;
9080   t18734 = t5767 * t18209 * t5084;
9081   t18736 = t5750 * t5016;
9082   t18740 = t5750 * t4701 * t5099;
9083   t18742 = t17936 * t5990;
9084   t18745 = t5757 * t4701 * t5106;
9085   t18753 = t18199 * t5042;
9086   t18755 = t5750 * t5085;
9087   t18758 = t5782 * t18156 * t5998;
9088   t18762 = t5675 * t825 * t5676 * t1115;
9089   t18764 = t18043 * t1234;
9090   t18770 = t1 * t1250 * t1847 * t154;
9091   t18775 = t18043 * t1227;
9092   t18780 = t1765 * t391;
9093   t18793 = t5710 * t130 * t132 * t1326;
9094   t18796 = t5675 * t153 * t1263;
9095   t18801 = t5675 * t826 * t352 * t503 * t299;
9096   t18808 = -0.60456845350037036744e-1 * t18762 - 0.10224091148855484722e0 * t18764 + 0.11127246706929610054e2 * t16486 * t1608 - 0.12780113936069355903e-1 * t18770 - 0.11928106340331398843e0 * t17957 + 0.11127246706929610054e2 * t5159 * t5189 + 0.25560227872138711806e-1 * t18775 + 0.11127246706929610054e2 * t1261 * t1607 * t5239 - 0.33381740120788830162e2 * t1261 * t4765 * t18780 - 0.16690870060394415080e2 * t1261 * t5697 * t1326 - 0.55636233534648050268e1 * t97 * t1600 * t5239 + 0.28213194496683950480e0 * t17980 + 0.25560227872138711806e-1 * t18793 + 0.30228422675018518372e-1 * t18796 + 0.60456845350037036744e-1 * t18801 - 0.55636233534648050268e1 * t97 * t15484 * t549 + 0.11127246706929610054e2 * t5159 * t5179;
9097   t18813 = t18077 * t482;
9098   t18818 = t5958 * t5722;
9099   t18819 = t18818 * t344;
9100   t18821 = t18116 * t5963;
9101   t18823 = t18043 * t1173;
9102   t18826 = t503 * t328 * t118;
9103   t18828 = t18047 * t153 * t18826;
9104   t18834 = t503 * t1633;
9105   t18842 = t17956 * t5963;
9106   t18844 = t17979 * t5938;
9107   t18846 = t18055 * t482;
9108   t18850 = t1171 * t391;
9109   t18852 = t18047 * t153 * t18850;
9110   t18854 = -0.33381740120788830162e2 * t5159 * t5176 + 0.11127246706929610054e2 * t5159 * t5182 - 0.23856212680662797686e0 * t18813 + 0.11127246706929610054e2 * t1261 * t4769 * t1765 + 0.51120455744277423612e-1 * t18819 + 0.25560227872138711806e-1 * t18821 - 0.10224091148855484722e0 * t18823 - 0.51120455744277423612e-1 * t18828 + 0.70532986241709876201e-1 * t18024 + 0.66763480241577660320e2 * t1261 * t18097 * t5175 - 0.33381740120788830160e2 * t1261 * t4765 * t18834 + 0.70532986241709876201e-1 * t18032 + 0.55636233534648050268e1 * t97 * t8973 * t1842 - 0.11928106340331398843e0 * t18842 + 0.70532986241709876201e-1 * t18844 + 0.51120455744277423612e-1 * t18846 - 0.16690870060394415080e2 * t3335 * t5952 - 0.51120455744277423612e-1 * t18852;
9111   t18857 = t18018 * t18019 * t18850;
9112   t18860 = t18018 * t1835 * t1226;
9113   t18863 = t18018 * t18019 * t18826;
9114   t18866 = t18014 * t1835 * t1233;
9115   t18870 = t1029 * t8607 * t1835 * t1165;
9116   t18873 = t18014 * t1835 * t1172;
9117   t18878 = t18040 * t1018 * t124 * t127 * t1166;
9118   t18880 = t18031 * t5930;
9119   t18884 = t5958 * t5709;
9120   t18885 = t18884 * t5712;
9121   t18887 = t18069 * t498;
9122   t18890 = t5723 * t1247;
9123   t18897 = t5723 * t1320;
9124   t18899 = 0.15114211337509259186e-1 * t18857 - 0.15114211337509259186e-1 * t18860 + 0.15114211337509259186e-1 * t18863 + 0.60456845350037036744e-1 * t18866 + 0.30228422675018518372e-1 * t18870 + 0.60456845350037036744e-1 * t18873 - 0.76680683616416135418e-1 * t18878 + 0.70532986241709876201e-1 * t18880 - 0.16690870060394415080e2 * t3977 * t5698 + 0.25560227872138711806e-1 * t18885 - 0.11928106340331398843e0 * t18887 - 0.11928106340331398843e0 * t18070 + 0.51120455744277423612e-1 * t18890 + 0.59640531701656994214e-1 * t18074 - 0.55636233534648050268e1 * t97 * t5152 * t1633 - 0.23856212680662797686e0 * t18078 - 0.25560227872138711806e0 * t18897;
9125   t18900 = t352 * t460;
9126   t18903 = t5675 * t826 * t18900 * t391;
9127   t18905 = t17979 * t5934;
9128   t18907 = t6 * t503;
9129   t18910 = t18108 * t379 * t18907 * t391;
9130   t18914 = t5710 * t18091 * t18907 * t299;
9131   t18916 = t5958 * t5716;
9132   t18917 = t18916 * t380;
9133   t18919 = t18000 * t498;
9134   t18923 = t5710 * t18091 * t1241 * t391;
9135   t18925 = t5717 * t1308;
9136   t18930 = t5664 * t153 * t158 * t1219 * t118;
9137   t18935 = t5675 * t2076 * t158 * t460 * t299;
9138   t18946 = t5959 * t384;
9139   t18950 = t5675 * t152 * t5681 * t1326;
9140   t18952 = 0.60456845350037036744e-1 * t18903 + t18090 - t18102 + 0.28213194496683950481e0 * t18905 - 0.76680683616416135418e-1 * t18910 - 0.10224091148855484722e0 * t18914 + 0.25560227872138711806e-1 * t18917 + 0.25560227872138711806e-1 * t18919 - 0.10224091148855484722e0 * t18923 + 0.25560227872138711806e-1 * t18925 - 0.15114211337509259186e-1 * t18930 + 0.30228422675018518372e0 * t18935 - 0.55636233534648050268e1 * t97 * t4746 * t1765 + 0.11127246706929610054e2 * t15488 * t1753 + 0.11127246706929610054e2 * t3977 * t5701 + 0.11127246706929610054e2 * t3335 * t5955 + 0.59640531701656994214e-1 * t18946 - 0.15114211337509259186e-1 * t18950;
9141   t18959 = -0.15506928860942058298e-1 * t730 * t1642 * t18724 - 0.25e2 / 0.18e2 * t18728 + 0.12500e5 / 0.9e1 * t18731 + 0.3125e4 / 0.9e1 * t18734 - 0.25e2 / 0.6e1 * t18736 + 0.125e3 / 0.6e1 * t18205 - 0.25e2 / 0.6e1 * t18740 - 0.25e2 / 0.18e2 * t18742 - 0.25e2 / 0.18e2 * t18745 + 0.51689762869806860992e-2 * t1093 * t18160 * t5094 - 0.25844881434903430496e-2 * t1093 * t17948 * t507 - 0.25e2 / 0.3e1 * t18753 - 0.25e2 / 0.6e1 * t18755 - 0.14375e5 / 0.27e2 * t18758 + 0.25844881434903430496e-2 * t89 * t95 * (t18808 + t18854 + t18899 + t18952) * t397;
9142   t18963 = t7 * (t18647 + t18687 + t18723 + t18959) - t5977 - t5980 - t5854 + t5856 + t6001 + t5986 - t5734 - t5738 + t5927 + t5745 + t5858 - t5860;
9143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9144     v4rho2sigma2[6] = t18622 + t18963;
9145 
9146   t18964 = -t5855 - t5857 + t5859 + t5861 - t6063 - t6064 - t6065 + t6066 + t5850 + t6060 - t6053 - t5839 - t5843;
9147   t18968 = t6042 * t1063;
9148   t18987 = 0.25e2 / 0.3e1 * t18644;
9149   t18991 = 0.51689762869806860992e-2 * t1093 * t15818 * t5847 - 0.25844881434903430496e-2 * t1093 * t18968 * t395 - t18233 - t18234 + t18235 + 0.51689762869806860992e-2 * t1093 * t14847 * t6057 - 0.77534644304710291488e-2 * t730 * t1723 * t18633 - 0.25844881434903430496e-2 * t1093 * t1723 * t5243 - t18239 + t18240 + t18241 - 0.77534644304710291488e-2 * t730 * t1723 * t18724 + 0.77534644304710291488e-2 * t730 * t5790 * t1115 - t18987 + 0.51689762869806860992e-2 * t1093 * t4894 * t18663;
9150   t18992 = 0.125e3 / 0.3e1 * t18649;
9151   t19001 = 0.125e3 / 0.9e1 * t18667;
9152   t19005 = 0.6250e4 / 0.9e1 * t18669;
9153   t19016 = 0.143750e6 / 0.27e2 * t18704;
9154   t19017 = -t17934 - t17938 + t18992 + 0.77534644304710291488e-2 * t730 * t18226 * t460 + 0.15506928860942058298e-1 * t15891 * t4639 * t5058 + 0.6250e4 / 0.9e1 * t18658 + 0.1250e4 / 0.9e1 * t18661 + t19001 + 0.51689762869806860992e-2 * t1093 * t18374 * t5094 + t19005 + 0.6250e4 / 0.9e1 * t18673 - 0.25844881434903430496e-2 * t1093 * t4902 * t1769 - 0.25844881434903430496e-2 * t1093 * t5371 * t1637 - 0.25844881434903430496e-2 * t1093 * t18391 * t507 - t18159 - t19016;
9155   t19019 = 0.1250e4 / 0.9e1 * t18706;
9156   t19033 = 0.25e2 / 0.9e1 * t18742;
9157   t19035 = t19019 + 0.1250e4 / 0.9e1 * t18711 - 0.15506928860942058298e-1 * t89 * t586 * t14321 * t5094 - 0.77534644304710291488e-2 * t730 * t4902 * t6050 + t18167 + t18176 + t18180 - t18187 - 0.25e2 / 0.9e1 * t18728 + 0.25000e5 / 0.9e1 * t18731 + 0.6250e4 / 0.9e1 * t18734 - 0.25e2 / 0.3e1 * t18736 + t18206 - 0.25e2 / 0.3e1 * t18740 - t19033 - 0.25e2 / 0.9e1 * t18745;
9158   t19088 = 0.55636233534648050268e1 * t3335 * t6032 + 0.55636233534648050268e1 * t15488 * t1810 + 0.55636233534648050268e1 * t3977 * t5823 - 0.27818116767324025134e1 * t97 * t1600 * t5354 + 0.55636233534648050268e1 * t10394 * t1886 + 0.56426388993367900960e0 * t17980 + 0.51120455744277423614e-1 * t18793 + 0.55636233534648050268e1 * t5159 * t5320 - 0.16690870060394415080e2 * t5159 * t5317 + 0.60456845350037036744e-1 * t18796 + 0.12091369070007407349e0 * t18801;
9159   t19109 = -0.27818116767324025134e1 * t97 * t4746 * t1817 - 0.16690870060394415080e2 * t1261 * t16151 * t5816 - 0.47712425361325595374e0 * t18813 - 0.16690870060394415080e2 * t5301 * t5176 + 0.10224091148855484723e0 * t18819 + 0.51120455744277423614e-1 * t18821 - 0.27818116767324025134e1 * t97 * t5152 * t1714 - 0.20448182297710969446e0 * t18823 - 0.10224091148855484723e0 * t18828 + t18025 - 0.27818116767324025134e1 * t97 * t15484 * t581;
9160   t19117 = 0.14106597248341975240e0 * t18844;
9161   t19126 = t18033 - 0.23856212680662797687e0 * t18842 - 0.16690870060394415080e2 * t1261 * t4961 * t549 * t1326 + 0.55636233534648050268e1 * t3977 * t5820 + t19117 + 0.10224091148855484723e0 * t18846 + 0.55636233534648050268e1 * t1261 * t1704 * t5239 - 0.10224091148855484723e0 * t18852 + 0.30228422675018518372e-1 * t18857 - 0.30228422675018518372e-1 * t18860 + 0.30228422675018518372e-1 * t18863;
9162   t19136 = 0.14106597248341975240e0 * t18880;
9163   t19158 = t18075 + 0.55636233534648050268e1 * t16046 * t1753 - t18079 - 0.51120455744277423615e0 * t18897 + 0.55636233534648050268e1 * t1261 * t5329 * t1633 + 0.55636233534648050268e1 * t5301 * t5179 + 0.12091369070007407349e0 * t18903 - 0.27818116767324025134e1 * t97 * t16171 * t549 + 0.55636233534648050268e1 * t1261 * t4965 * t1765 + 0.55636233534648050268e1 * t16486 * t1705 + t18332;
9164   t19181 = 0.55636233534648050268e1 * t5159 * t5323 - t18341 + 0.55636233534648050268e1 * t3335 * t6035 + 0.55636233534648050268e1 * t5159 * t5330 + 0.56426388993367900962e0 * t18905 + 0.66763480241577660320e2 * t97 * t7478 * t581 * t549 * t5175 - 0.16690870060394415080e2 * t3977 * t5817 - 0.16690870060394415080e2 * t3335 * t6029 - 0.27818116767324025134e1 * t97 * t1697 * t5239 - 0.15336136723283227084e0 * t18910 - 0.20448182297710969446e0 * t18914;
9165   t19197 = 0.11928106340331398843e0 * t18946;
9166   t19199 = 0.51120455744277423614e-1 * t18917 + 0.51120455744277423614e-1 * t18919 - 0.20448182297710969446e0 * t18923 + 0.51120455744277423614e-1 * t18925 - 0.30228422675018518372e-1 * t18930 + 0.60456845350037036745e0 * t18935 - 0.27818116767324025134e1 * t97 * t4942 * t1765 - 0.16690870060394415080e2 * t1261 * t4961 * t18834 - 0.16690870060394415080e2 * t1261 * t14883 * t6028 + t19197 - 0.30228422675018518372e-1 * t18950;
9167   t19220 = t6042 * t397;
9168   t19232 = 0.28750e5 / 0.27e2 * t18758;
9169   t19233 = -0.25844881434903430496e-2 * t1093 * t5836 * t1330 - 0.77534644304710291488e-2 * t730 * t5371 * t5840 - 0.77534644304710291488e-2 * t730 * t1723 * t553 * t1115 + 0.51689762869806860992e-2 * t1093 * t4894 * t18689 + 0.15506928860942058298e-1 * t1141 * t5790 * t3006 + 0.25844881434903430496e-2 * t89 * t95 * (0.55636233534648050268e1 * t5301 * t5189 + 0.55636233534648050268e1 * t5301 * t5182 + 0.55636233534648050268e1 * t16981 * t1608 + 0.10224091148855484723e0 * t18890 + 0.51120455744277423614e-1 * t18885 - 0.23856212680662797687e0 * t18887 - 0.15336136723283227084e0 * t18878 + 0.12091369070007407349e0 * t18873 + 0.60456845350037036744e-1 * t18870 + 0.12091369070007407349e0 * t18866 + 0.51120455744277423614e-1 * t18775 - 0.25560227872138711807e-1 * t18770 - 0.12091369070007407349e0 * t18762 - 0.20448182297710969446e0 * t18764 - t18071 - t17958 + t19158 + t19136 + t19126 + t19181 + t19109 + t19088 + t19199 - 0.27818116767324025134e1 * t97 * t5294 * t1633 - 0.16690870060394415080e2 * t1261 * t4961 * t18780 + 0.55636233534648050268e1 * t1261 * t15958 * t549) * t397 - 0.77534644304710291488e-2 * t730 * t5836 * t5058 + 0.51689762869806860992e-2 * t1093 * t4894 * t553 * t1330 - 0.15506928860942058298e-1 * t16209 * t1642 * t3006 + 0.15506928860942058298e-1 * t15891 * t4639 * t3735 + 0.77534644304710291488e-2 * t730 * t19220 * t299 - 0.25844881434903430496e-2 * t1093 * t15873 * t553 - 0.77534644304710291488e-2 * t730 * t5836 * t3735 - 0.50e2 / 0.3e1 * t18753 - 0.25e2 / 0.3e1 * t18755 - t19232;
9170   t19237 = t6006 + t5835 + t6046 - t5915 + t5917 - t5846 + t6067 - t5853 + t5793 + t7 * (t18991 + t19017 + t19035 + t19233) - t6056 + t5919 - t5921 - t6049;
9171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9172     v4rho2sigma2[7] = t18964 + t19237;
9173 
9174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9175     v4rho2sigma2[8] = v4rho2sigma2[6];
9176 
9177   t19238 = -t5916 - t5918 + t5920 + t5922 - t6110 - t6114 - t6115 + t6116 + t5899 + t6072 - t5910 - t18617;
9178   t19252 = 0.50e2 / 0.3e1 * t18644;
9179   t19253 = 0.250e3 / 0.3e1 * t18649;
9180   t19254 = -0.15506928860942058298e-1 * t730 * t1723 * t1821 * t299 - t18438 - t18439 + t18440 - 0.51689762869806860992e-2 * t1093 * t1723 * t5358 + 0.51689762869806860992e-2 * t1093 * t5911 * t1330 - 0.77534644304710291488e-2 * t730 * t5904 * t1115 - t18551 + t18552 + t18553 - t19252 - t18245 - t18247 + t19253;
9181   t19284 = 0.250e3 / 0.9e1 * t18667;
9182   t19285 = 0.12500e5 / 0.9e1 * t18669;
9183   t19290 = -0.15506928860942058298e-1 * t730 * t1723 * t460 * t1718 + 0.10337952573961372198e-1 * t1093 * t4894 * t507 * t1718 + 0.12500e5 / 0.9e1 * t18658 + 0.2500e4 / 0.9e1 * t18661 - 0.15506928860942058298e-1 * t1093 * t18441 * t5094 - 0.77534644304710291488e-2 * t730 * t5900 * t3735 + 0.15506928860942058298e-1 * t1141 * t5864 * t3006 + 0.10337952573961372198e-1 * t1093 * t4894 * t1821 * t395 - 0.77534644304710291488e-2 * t730 * t5900 * t5058 - 0.25844881434903430496e-2 * t1093 * t18445 * t507 + t19284 + t19285 + 0.12500e5 / 0.9e1 * t18673 + 0.15506928860942058298e-1 * t730 * t5911 * t3735;
9184   t19298 = 0.287500e6 / 0.27e2 * t18704;
9185   t19299 = 0.2500e4 / 0.9e1 * t18706;
9186   t19328 = -0.24182738140014814698e0 * t18762 - 0.40896364595421938890e0 * t18764 + 0.11127246706929610054e2 * t5301 * t5323 + 0.55636233534648050268e1 * t97 * t8973 * t1905 - 0.51120455744277423612e-1 * t18770 - 0.47712425361325595372e0 * t17957 + 0.10224091148855484722e0 * t18775 - 0.16690870060394415080e2 * t3977 * t5884 + 0.11127246706929610054e2 * t3977 * t5887 - 0.16690870060394415080e2 * t1261 * t5883 * t1326 + t18286 + 0.10224091148855484722e0 * t18793 + 0.11127246706929610054e2 * t5301 * t5320 + 0.12091369070007407349e0 * t18796 + 0.24182738140014814698e0 * t18801 + 0.66763480241577660320e2 * t1261 * t18513 * t5175 + 0.11127246706929610054e2 * t3335 * t6090;
9187   t19358 = -0.55636233534648050268e1 * t97 * t16171 * t581 - 0.95424850722651190743e0 * t18813 + 0.20448182297710969445e0 * t18819 + 0.10224091148855484722e0 * t18821 - 0.55636233534648050268e1 * t97 * t1697 * t5354 - 0.40896364595421938888e0 * t18823 - 0.20448182297710969444e0 * t18828 + 0.28213194496683950481e0 * t18024 + 0.11127246706929610054e2 * t1261 * t1704 * t5354 + 0.28213194496683950481e0 * t18032 - 0.33381740120788830160e2 * t1261 * t4961 * t503 * t1714 - 0.47712425361325595369e0 * t18842 - 0.55636233534648050268e1 * t97 * t4942 * t1817 + 0.28213194496683950481e0 * t18844 + 0.20448182297710969445e0 * t18846 - 0.20448182297710969444e0 * t18852 + 0.60456845350037036744e-1 * t18857 - 0.60456845350037036744e-1 * t18860;
9188   t19378 = 0.60456845350037036744e-1 * t18863 + 0.24182738140014814698e0 * t18866 + 0.12091369070007407349e0 * t18870 + 0.24182738140014814698e0 * t18873 - 0.30672273446566454166e0 * t18878 + 0.28213194496683950481e0 * t18880 + 0.10224091148855484722e0 * t18885 - 0.47712425361325595369e0 * t18887 - 0.47712425361325595372e0 * t18070 + 0.11127246706929610054e2 * t16981 * t1705 + 0.20448182297710969445e0 * t18890 + t18323 - 0.55636233534648050268e1 * t97 * t5294 * t1714 - 0.95424850722651190744e0 * t18078 - 0.10224091148855484722e1 * t18897 + 0.24182738140014814698e0 * t18903 + t18521;
9189   t19379 = 0.11285277798673580192e1 * t18905;
9190   t19403 = 0.23856212680662797686e0 * t18946;
9191   t19405 = -t18528 + t19379 - 0.16690870060394415080e2 * t3335 * t6087 + 0.11127246706929610054e2 * t1261 * t4965 * t1817 + 0.11127246706929610054e2 * t5301 * t5330 - 0.33381740120788830162e2 * t5301 * t5317 - 0.30672273446566454166e0 * t18910 - 0.40896364595421938888e0 * t18914 + 0.10224091148855484722e0 * t18917 + 0.10224091148855484722e0 * t18919 - 0.40896364595421938890e0 * t18923 + 0.10224091148855484722e0 * t18925 - 0.60456845350037036744e-1 * t18930 + 0.12091369070007407349e1 * t18935 - 0.33381740120788830162e2 * t1261 * t4961 * t1817 * t391 + 0.11127246706929610054e2 * t16046 * t1810 + t19403 - 0.60456845350037036744e-1 * t18950;
9192   t19412 = t6097 * t1063;
9193   t19418 = 0.15506928860942058298e-1 * t730 * t5911 * t5058 - t18370 - 0.25844881434903430496e-2 * t1093 * t5900 * t1330 - t19298 + t19299 + 0.2500e4 / 0.9e1 * t18711 + 0.25844881434903430496e-2 * t89 * t95 * (t19328 + t19358 + t19378 + t19405) * t397 + t18395 + t18397 + t18398 - t18400 - 0.25844881434903430496e-2 * t1093 * t19412 * t395 - 0.50e2 / 0.9e1 * t18728 + 0.50000e5 / 0.9e1 * t18731;
9194   t19422 = 0.50e2 / 0.9e1 * t18742;
9195   t19433 = t6097 * t397;
9196   t19445 = 0.57500e5 / 0.27e2 * t18758;
9197   t19446 = 0.12500e5 / 0.9e1 * t18734 - 0.50e2 / 0.3e1 * t18736 + t18405 - 0.50e2 / 0.3e1 * t18740 - t19422 - 0.50e2 / 0.9e1 * t18745 - 0.51689762869806860992e-2 * t1093 * t4902 * t1821 + 0.51689762869806860992e-2 * t1093 * t18565 * t5094 - 0.15506928860942058298e-1 * t1141 * t5904 * t3006 + 0.77534644304710291488e-2 * t730 * t19433 * t299 + 0.77534644304710291488e-2 * t730 * t5864 * t1115 + 0.77534644304710291488e-2 * t730 * t18561 * t460 - 0.100e3 / 0.3e1 * t18753 - 0.50e2 / 0.3e1 * t18755 - t19445;
9198   t19450 = t18615 + t6117 + t5867 - t5903 - t5907 + t6101 - t6104 - t6107 + t5914 + t7 * (t19254 + t19290 + t19418 + t19446) + t18618 - t18612 + t6113;
9199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9200     v4rho2sigma2[9] = t19238 + t19450;
9201 
9202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9203     v4rho2sigma2[10] = v4rho2sigma2[7];
9204 
9205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9206     v4rho2sigma2[11] = v4rho2sigma2[8];
9207 
9208   t19458 = t5767 * t18209 * t5503;
9209   t19463 = t5782 * t5768 * t3 * t1419 * t192;
9210   t19470 = t5675 * t825 * t5676 * t1388;
9211   t19472 = t5723 * t1492;
9212   t19476 = t1 * t1495 * t1847 * t154;
9213   t19486 = t5710 * t130 * t132 * t1550;
9214   t19488 = t18818 * t482;
9215   t19495 = t5675 * t152 * t5681 * t1550;
9216   t19499 = t5675 * t152 * t18003 * t1502;
9217   t19503 = t5675 * t1240 * t5676 * t1403;
9218   t19505 = t5723 * t1488;
9219   t19507 = -0.60456845350037036744e-1 * t19470 + 0.51120455744277423612e-1 * t19472 - 0.12780113936069355903e-1 * t19476 + 0.55636233534648050268e1 * t97 * t10381 * t1842 + 0.66763480241577660320e2 * t1261 * t18097 * t1502 + 0.25560227872138711806e-1 * t19486 + 0.10224091148855484722e0 * t19488 - 0.55636233534648050268e1 * t97 * t16626 * t549 - 0.15114211337509259186e-1 * t19495 + 0.30228422675018518372e-1 * t19499 + 0.30228422675018518372e0 * t19503 - 0.25560227872138711806e0 * t19505;
9220   t19511 = t5717 * t1542;
9221   t19517 = t503 * t1765;
9222   t19530 = t5675 * t826 * t18900 * t503;
9223   t19535 = t5664 * t153 * t158 * t1476 * t118;
9224   t19540 = -0.55636233534648050268e1 * t97 * t1600 * t5487 + 0.25560227872138711806e-1 * t19511 - 0.47712425361325595372e0 * t18813 + 0.11127246706929610054e2 * t1261 * t1607 * t5487 - 0.66763480241577660322e2 * t1261 * t4765 * t19517 + 0.22254493413859220108e2 * t3977 * t5955 - 0.16690870060394415080e2 * t1261 * t5697 * t1550 - 0.33381740120788830162e2 * t5159 * t5448 + 0.12091369070007407349e0 * t19530 - 0.15114211337509259186e-1 * t19535 - 0.23856212680662797686e0 * t18842 - 0.33381740120788830160e2 * t3977 * t5952;
9225   t19544 = t18043 * t1442;
9226   t19547 = t503 * t475 * t118;
9227   t19549 = t18047 * t153 * t19547;
9228   t19552 = t18014 * t1835 * t1441;
9229   t19555 = t18018 * t18019 * t19547;
9230   t19558 = t1765 * t1765;
9231   t19562 = t18123 * t1533;
9232   t19564 = t158 * t1434;
9233   t19567 = t18126 * t153 * t19564 * t816;
9234   t19569 = t18916 * t498;
9235   t19571 = 0.22254493413859220108e2 * t5159 * t5451 + t19117 - 0.20448182297710969444e0 * t19544 - 0.10224091148855484722e0 * t19549 + 0.12091369070007407349e0 * t19552 + 0.30228422675018518372e-1 * t19555 + t19136 - 0.23856212680662797686e0 * t18887 + 0.11127246706929610054e2 * t97 * t969 * t19558 - 0.76680683616416135418e-1 * t19562 + 0.30228422675018518372e-1 * t19567 + 0.51120455744277423612e-1 * t19569;
9236   t19574 = t5710 * t18091 * t18907 * t460;
9237   t19576 = t5717 * t1539;
9238   t19580 = t18884 * t5963;
9239   t19584 = t5664 * t153 * t19564 * t118;
9240   t19588 = t18108 * t130 * t132 * t1502;
9241   t19596 = -0.20448182297710969444e0 * t19574 + 0.25560227872138711806e-1 * t19576 + 0.22254493413859220108e2 * t16486 * t1753 + 0.51120455744277423612e-1 * t19580 - 0.15114211337509259186e-1 * t19584 - 0.76680683616416135418e-1 * t19588 + t18090 - t18102 + 0.11127246706929610054e2 * t5159 * t5454 - 0.11127246706929610054e2 * t97 * t5152 * t1765 + 0.56426388993367900961e0 * t18905 + t19197;
9242   t19613 = t5757 * t4701 * t5512;
9243   t19616 = t18199 * t4701 * t5520;
9244   t19620 = t5767 * t5768 * t5769 * t1388;
9245   t19625 = t5782 * t5768 * t3 * t1412 * t192;
9246   t19627 = 0.6250e4 / 0.9e1 * t19458 + 0.625e3 / 0.9e1 * t19463 - t17892 - t17894 + t17901 + 0.51689762869806860992e-2 * t1093 * t18160 * t1563 + 0.25844881434903430496e-2 * t89 * t95 * (t19507 + t19540 + t19571 + t19596) * t397 - t17921 + t17925 + t17927 - 0.15506928860942058298e-1 * t1093 * t17912 * t1563 - t18987 - 0.51689762869806860992e-2 * t1093 * t1642 * t5491 - 0.15506928860942058298e-1 * t1141 * t5735 * t1403 + t18992 - 0.25e2 / 0.18e2 * t19613 - 0.25e2 / 0.3e1 * t19616 + 0.3125e4 / 0.9e1 * t19620 + t19001 + 0.625e3 / 0.9e1 * t19625;
9247   t19628 = t1769 * t507;
9248   t19638 = t460 * t1769;
9249   t19646 = t5750 * t4701 * t5507;
9250   t19650 = t18151 * t5768 * t5769 * t1403;
9251   t19654 = t5757 * t4701 * t5402;
9252   t19668 = t5750 * t5504;
9253   t19670 = t1769 * t1769;
9254   t19681 = -0.25e2 / 0.18e2 * t19654 + 0.77534644304710291488e-2 * t730 * t5658 * t1388 - t19033 - 0.51689762869806860992e-2 * t1093 * t18637 * t507 + 0.51689762869806860992e-2 * t1093 * t5742 * t1554 + 0.15506928860942058298e-1 * t730 * t18626 * t460 - 0.25e2 / 0.3e1 * t19668 - 0.51689762869806860992e-2 * t89 * t95 * t19670 * t1063 + 0.15506928860942058298e-1 * t1141 * t5658 * t1403 - 0.77534644304710291488e-2 * t730 * t5735 * t1388 - t19232;
9255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9256     v4rho2sigma2[12] = 0.51689762869806860992e-2 * t5973 - t5860 + t5856 + 0.10337952573961372198e-1 * t5985 + 0.15506928860942058298e-1 * t5926 - t5854 + t5858 - 0.15506928860942058298e-1 * t5979 - 0.10337952573961372198e-1 * t5982 - 0.51689762869806860992e-2 * t5976 + t7 * (t19627 + t19005 + 0.20675905147922744396e-1 * t1093 * t4639 * t19628 - 0.25844881434903430496e-2 * t1093 * t5731 * t1554 - 0.15506928860942058298e-1 * t730 * t5731 * t5499 - 0.31013857721884116596e-1 * t730 * t1642 * t19638 - t19016 + t19019 + 0.31013857721884116596e-1 * t730 * t5742 * t5499 - 0.25e2 / 0.6e1 * t19646 + 0.12500e5 / 0.9e1 * t19650 + t19681) - t6064 - t6065 + t6066 + t6067;
9257 
9258   t19700 = 0.31013857721884116596e-1 * t15891 * t4639 * t5499 + 0.12500e5 / 0.9e1 * t19458 + 0.1250e4 / 0.9e1 * t19463 - t18233 - t18234 + t18235 + 0.10337952573961372198e-1 * t1093 * t15818 * t6057 + 0.15506928860942058298e-1 * t1141 * t5790 * t1403 - t18239 + t18240 + t18241;
9259   t19724 = -0.12091369070007407349e0 * t19470 + 0.10224091148855484723e0 * t19472 + 0.11127246706929610054e2 * t3977 * t6035 - 0.25560227872138711807e-1 * t19476 - 0.16690870060394415080e2 * t5159 * t5610 + 0.51120455744277423614e-1 * t19486 + 0.20448182297710969446e0 * t19488 + 0.55636233534648050268e1 * t5301 * t5454 + 0.55636233534648050268e1 * t5159 * t5616 + 0.11127246706929610054e2 * t16486 * t1810 - 0.30228422675018518372e-1 * t19495 + 0.60456845350037036744e-1 * t19499 + 0.60456845350037036745e0 * t19503 - 0.16690870060394415080e2 * t5301 * t5448;
9260   t19756 = -0.51120455744277423615e0 * t19505 + 0.55636233534648050268e1 * t1261 * t1704 * t5487 + 0.11127246706929610054e2 * t5159 * t5613 + 0.51120455744277423614e-1 * t19511 + 0.66763480241577660320e2 * t1261 * t14910 * t549 * t1502 + 0.11127246706929610054e2 * t1261 * t5329 * t1765 - 0.27818116767324025134e1 * t97 * t17166 * t549 - 0.27818116767324025134e1 * t97 * t16626 * t581 - 0.95424850722651190746e0 * t18813 + 0.11127246706929610054e2 * t16981 * t1753 - 0.27818116767324025134e1 * t97 * t1697 * t5487 + 0.11127246706929610054e2 * t5301 * t5451 + 0.24182738140014814698e0 * t19530 - 0.30228422675018518372e-1 * t19535 - 0.47712425361325595373e0 * t18842;
9261   t19780 = 0.55636233534648050268e1 * t12762 * t1886 + 0.28213194496683950480e0 * t18844 - 0.55636233534648050268e1 * t97 * t5152 * t1817 - 0.40896364595421938892e0 * t19544 - 0.20448182297710969446e0 * t19549 + 0.24182738140014814698e0 * t19552 + 0.60456845350037036744e-1 * t19555 + 0.28213194496683950480e0 * t18880 - 0.47712425361325595373e0 * t18887 - 0.33381740120788830160e2 * t3977 * t6029 + 0.55636233534648050268e1 * t1261 * t17179 * t549 - 0.27818116767324025134e1 * t97 * t1600 * t5635 - 0.15336136723283227084e0 * t19562 + 0.60456845350037036744e-1 * t19567;
9262   t19802 = 0.10224091148855484723e0 * t19569 - 0.40896364595421938892e0 * t19574 + 0.51120455744277423614e-1 * t19576 + 0.10224091148855484723e0 * t19580 - 0.30228422675018518372e-1 * t19584 - 0.16690870060394415080e2 * t1261 * t4961 * t549 * t1550 - 0.15336136723283227084e0 * t19588 + t18332 + 0.11127246706929610054e2 * t3977 * t6032 - t18341 + t19379 - 0.33381740120788830160e2 * t1261 * t4961 * t19517 - 0.55636233534648050268e1 * t97 * t5294 * t1765 + t19403 - 0.33381740120788830160e2 * t1261 * t16151 * t6028;
9263   t19816 = -0.51689762869806860992e-2 * t1093 * t5371 * t1769 + 0.25844881434903430496e-2 * t89 * t95 * (t19724 + t19756 + t19780 + t19802) * t397 - t19252 + t19253 - 0.25e2 / 0.9e1 * t19613 - 0.50e2 / 0.3e1 * t19616 + 0.6250e4 / 0.9e1 * t19620 + t19284 + 0.51689762869806860992e-2 * t1093 * t18374 * t1563 + 0.1250e4 / 0.9e1 * t19625 + t19285;
9264   t19849 = -0.15506928860942058298e-1 * t1141 * t1723 * t553 * t1403 + 0.10337952573961372198e-1 * t1093 * t4894 * t19628 + 0.15506928860942058298e-1 * t730 * t19220 * t460 - 0.51689762869806860992e-2 * t1093 * t18968 * t507 - 0.15506928860942058298e-1 * t730 * t5836 * t5499 - 0.15506928860942058298e-1 * t730 * t1723 * t19638 - t19298 + t19299 + 0.51689762869806860992e-2 * t1093 * t4894 * t553 * t1554 - 0.15506928860942058298e-1 * t1093 * t14785 * t553 * t1563 - 0.77534644304710291488e-2 * t730 * t1723 * t553 * t1388;
9265   t19869 = -0.25e2 / 0.3e1 * t19646 + 0.25000e5 / 0.9e1 * t19650 - 0.25e2 / 0.9e1 * t19654 - t19422 - 0.25844881434903430496e-2 * t1093 * t1723 * t5491 - 0.25844881434903430496e-2 * t1093 * t5836 * t1554 - 0.15506928860942058298e-1 * t730 * t5371 * t6050 - 0.50e2 / 0.3e1 * t19668 - 0.25844881434903430496e-2 * t1093 * t17209 * t553 + 0.77534644304710291488e-2 * t730 * t5790 * t1388 - t19445;
9266   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9267     v4rho2sigma2[13] = -0.51689762869806860992e-2 * t6055 + 0.51689762869806860992e-2 * t6045 + 0.15506928860942058298e-1 * t6005 - t5921 + t5917 - 0.51689762869806860992e-2 * t6048 + t7 * (t19700 + t19816 + t19849 + t19869) - 0.51689762869806860992e-2 * t6062 - t5915 + t5919 - 0.15506928860942058298e-1 * t6052 + 0.10337952573961372198e-1 * t6059 - t6114 - t6115 + t6116 + t6117;
9268 
9269   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9270     v4rho2sigma2[14] = v4rho2sigma2[12];
9271 
9272   t19899 = -0.24182738140014814698e0 * t19470 + 0.20448182297710969445e0 * t19472 - 0.51120455744277423612e-1 * t19476 + 0.22254493413859220108e2 * t5301 * t5613 + 0.22254493413859220108e2 * t3977 * t6090 + 0.10224091148855484722e0 * t19486 + 0.40896364595421938890e0 * t19488 + 0.11127246706929610054e2 * t5301 * t5616 - 0.60456845350037036744e-1 * t19495 + 0.12091369070007407349e0 * t19499 + 0.12091369070007407349e1 * t19503 - 0.10224091148855484722e1 * t19505;
9273   t19914 = 0.10224091148855484722e0 * t19511 - 0.19084970144530238149e1 * t18813 + 0.11127246706929610054e2 * t1261 * t1704 * t5635 + 0.48365476280029629396e0 * t19530 - 0.60456845350037036744e-1 * t19535 - 0.95424850722651190741e0 * t18842 + 0.56426388993367900962e0 * t18844 - 0.81792729190843877778e0 * t19544 - 0.40896364595421938888e0 * t19549 + 0.48365476280029629396e0 * t19552 + 0.12091369070007407349e0 * t19555 + 0.56426388993367900962e0 * t18880;
9274   t19939 = -0.95424850722651190741e0 * t18887 - 0.66763480241577660322e2 * t1261 * t4961 * t503 * t1817 + 0.66763480241577660320e2 * t1261 * t18513 * t1502 - 0.11127246706929610054e2 * t97 * t5294 * t1817 + 0.55636233534648050268e1 * t97 * t10381 * t1905 - 0.55636233534648050268e1 * t97 * t1697 * t5635 - 0.30672273446566454166e0 * t19562 + 0.12091369070007407349e0 * t19567 + 0.20448182297710969444e0 * t19569 - 0.81792729190843877778e0 * t19574 + 0.10224091148855484722e0 * t19576 + 0.20448182297710969444e0 * t19580;
9275   t19953 = t1817 * t1817;
9276   t19960 = -0.60456845350037036744e-1 * t19584 - 0.30672273446566454166e0 * t19588 + t18521 - t18528 + 0.22254493413859220108e2 * t16981 * t1810 - 0.33381740120788830160e2 * t3977 * t6087 - 0.33381740120788830162e2 * t5301 * t5610 + 0.22570555597347160384e1 * t18905 - 0.55636233534648050268e1 * t97 * t17166 * t581 + 0.47712425361325595372e0 * t18946 + 0.11127246706929610054e2 * t97 * t969 * t19953 - 0.16690870060394415080e2 * t1261 * t5883 * t1550;
9277   t19974 = t1821 * t1821;
9278   t19992 = 0.25000e5 / 0.9e1 * t19458 + 0.2500e4 / 0.9e1 * t19463 - t18438 - t18439 + t18440 - 0.15506928860942058298e-1 * t1093 * t18441 * t1563 + 0.25844881434903430496e-2 * t89 * t95 * (t19899 + t19914 + t19939 + t19960) * t397 - 0.15506928860942058298e-1 * t1141 * t5904 * t1403 - t18551 + t18552 + t18553 + 0.51689762869806860992e-2 * t1093 * t5911 * t1554 - 0.100e3 / 0.3e1 * t18644 - 0.51689762869806860992e-2 * t89 * t95 * t19974 * t1063 + 0.500e3 / 0.3e1 * t18649 - 0.51689762869806860992e-2 * t1093 * t1723 * t5639 - 0.31013857721884116596e-1 * t730 * t1723 * t460 * t1821 + 0.15506928860942058298e-1 * t730 * t19433 * t460 - 0.50e2 / 0.9e1 * t19613 - 0.100e3 / 0.3e1 * t19616;
9279   t20034 = 0.50000e5 / 0.9e1 * t19650 - 0.50e2 / 0.9e1 * t19654 - 0.100e3 / 0.9e1 * t18742 + 0.51689762869806860992e-2 * t1093 * t18565 * t1563 + 0.31013857721884116596e-1 * t730 * t5911 * t5499 - 0.100e3 / 0.3e1 * t19668 + 0.15506928860942058298e-1 * t1141 * t5864 * t1403 - 0.77534644304710291488e-2 * t730 * t5904 * t1388 - 0.25844881434903430496e-2 * t1093 * t5900 * t1554 - 0.115000e6 / 0.27e2 * t18758 - 0.51689762869806860992e-2 * t1093 * t19412 * t507;
9280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9281     v4rho2sigma2[15] = -0.15506928860942058298e-1 * t6106 - 0.10337952573961372198e-1 * t6109 - 0.51689762869806860992e-2 * t6103 + t7 * (t19992 + 0.12500e5 / 0.9e1 * t19620 + 0.500e3 / 0.9e1 * t18667 + 0.2500e4 / 0.9e1 * t19625 + 0.25000e5 / 0.9e1 * t18669 + 0.20675905147922744396e-1 * t1093 * t4894 * t1821 * t507 - 0.15506928860942058298e-1 * t730 * t5900 * t5499 + 0.77534644304710291488e-2 * t730 * t5864 * t1388 - 0.575000e6 / 0.27e2 * t18704 + 0.5000e4 / 0.9e1 * t18706 - 0.50e2 / 0.3e1 * t19646 + t20034) - t18612 + t18615 + 0.10337952573961372198e-1 * t6112 - t18617 + t18618 + 0.15506928860942058298e-1 * t6071 + 0.51689762869806860992e-2 * t6100 - 0.100e3 / 0.3e1 * t5988 - 0.100e3 / 0.9e1 * t5991 + 0.25000e5 / 0.9e1 * t5995 + 0.5000e4 / 0.9e1 * t6000;
9282 
9283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9284     v4rho2sigma2[16] = v4rho2sigma2[13];
9285 
9286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9287     v4rho2sigma2[17] = v4rho2sigma2[14];
9288 
9289   t20045 = t6139 * t397;
9290   t20052 = t18018 * t18019 * t549 * t328 * t118;
9291   t20054 = t17979 * t6121;
9292   t20055 = 0.21159895872512962861e0 * t20054;
9293   t20056 = t352 * t549;
9294   t20059 = t5675 * t826 * t20056 * t299;
9295   t20062 = t5675 * t153 * t1608;
9296   t20066 = t5675 * t152 * t5681 * t1633;
9297   t20077 = t1 * t1596 * t1847 * t154;
9298   t20079 = t6127 * t5709;
9299   t20080 = t20079 * t5712;
9300   t20082 = t6127 * t5716;
9301   t20083 = t20082 * t380;
9302   t20085 = 0.45342634012527777559e-1 * t20052 + t20055 + 0.18137053605011111024e0 * t20059 + 0.90685268025055555118e-1 * t20062 - 0.45342634012527777559e-1 * t20066 + 0.16690870060394415081e2 * t97 * t14435 * t1842 - 0.50072610181183245243e2 * t5159 * t5698 + 0.33381740120788830162e2 * t5159 * t5701 - 0.38340341808208067710e-1 * t20077 + 0.76680683616416135420e-1 * t20080 + 0.76680683616416135420e-1 * t20083;
9303   t20086 = t6128 * t384;
9304   t20087 = 0.17892159510497098265e0 * t20086;
9305   t20088 = t6127 * t5722;
9306   t20089 = t20088 * t344;
9307   t20094 = t7477 * t6131;
9308   t20102 = t5704 * t6135 * t154;
9309   t20105 = t1846 * t4765 * t148;
9310   t20106 = t8607 * t5711;
9311   t20107 = t20105 * t20106;
9312   t20111 = t1846 * t4769 * t148 * t154;
9313   t20115 = t18046 * t549 * t375 * t124;
9314   t20116 = t20115 * t380;
9315   t20118 = t6136 * t384;
9316   t20119 = 0.35784319020994196529e0 * t20118;
9317   t20120 = t3210 * t343;
9318   t20121 = t6136 * t20120;
9319   t20123 = t20087 + 0.15336136723283227084e0 * t20089 - 0.16690870060394415080e2 * t97 * t7467 * t6131 + 0.66763480241577660320e2 * t1261 * t20094 * t391 - 0.50072610181183245240e2 * t1261 * t5697 * t1633 + 0.76680683616416135420e-1 * t20102 - 0.23004205084924840626e0 * t20107 + 0.76680683616416135420e-1 * t20111 - 0.15336136723283227084e0 * t20116 - t20119 - 0.30672273446566454168e0 * t20121;
9320   t20129 = t6139 * t1063;
9321   t20145 = t6147 * t2814;
9322   t20152 = t6147 * t6309;
9323   t20156 = t5762 * t6152;
9324   t20157 = 0.625e3 / 0.3e1 * t20156;
9325   t20158 = t1866 * t5765;
9326   t20159 = t20158 * t5771;
9327   t20162 = t1868 * t18156 * t5769;
9328   t20163 = 0.14375e5 / 0.9e1 * t20162;
9329   t20164 = t1868 * t5785;
9330   t20169 = t6157 * t412 * t2040 * t99 * t6167;
9331   t20170 = 0.15625e5 / 0.18e2 * t20169;
9332   t20173 = t6157 * t176 * t948 * t99;
9333   t20174 = t6164 * t5;
9334   t20175 = t50 * t192;
9335   t20178 = t20173 * t20174 * t20175 * t299;
9336   t20185 = t6160 / t8 / t5774 / t303 * t20 * t6166;
9337   t20186 = 0.484375e6 / 0.54e2 * t20185;
9338   t20190 = t6160 * t20174 * t50 * t438 * t192;
9339   t20192 = 0.77534644304710291488e-2 * t730 * t20045 * t299 + 0.25844881434903430496e-2 * t89 * t95 * (t20085 + t20123) * t397 - 0.25844881434903430496e-2 * t1093 * t20129 * t395 - 0.23260393291413087446e-1 * t730 * t5731 * t5840 - 0.77534644304710291488e-2 * t1093 * t17948 * t553 + 0.15506928860942058298e-1 * t1093 * t18160 * t5847 - 0.77534644304710291488e-2 * t1093 * t5731 * t1637 + 0.15506928860942058298e-1 * t730 * t20145 * t299 + 0.15506928860942058298e-1 * t1093 * t5742 * t1637 - 0.15506928860942058298e-1 * t1093 * t20152 * t395 + t20157 + 0.3125e4 / 0.3e1 * t20159 - t20163 + 0.625e3 / 0.3e1 * t20164 - t20170 - 0.109375e6 / 0.18e2 * t20178 + t20186 - 0.15625e5 / 0.18e2 * t20190;
9340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9341     v4rhosigma3[0] = t20192 * t7 + t6143 - t6146 + t6151 + t6154 - t6169;
9342 
9343   t20194 = t6194 * t397;
9344   t20198 = t6191 * t20120;
9345   t20200 = t6175 * t5722;
9346   t20201 = t20200 * t344;
9347   t20202 = 0.51120455744277423612e-1 * t20201;
9348   t20203 = t6176 * t384;
9349   t20204 = 0.59640531701656994214e-1 * t20203;
9350   t20205 = 0.23856212680662797687e0 * t20086;
9351   t20208 = 0.16690870060394415080e2 * t1261 * t14883 * t1842;
9352   t20210 = 0.16690870060394415080e2 * t3335 * t6186;
9353   t20211 = 0.51120455744277423614e-1 * t20077;
9354   t20212 = 0.28213194496683950481e0 * t20054;
9355   t20213 = 0.60456845350037036744e-1 * t20066;
9356   t20214 = 0.10224091148855484723e0 * t20083;
9357   t20217 = t5704 * t6190 * t154;
9358   t20221 = t1 * t1693 * t1847 * t154;
9359   t20222 = 0.12780113936069355903e-1 * t20221;
9360   t20223 = t6191 * t384;
9361   t20224 = 0.11928106340331398843e0 * t20223;
9362   t20225 = 0.10224091148855484723e0 * t20111;
9363   t20226 = 0.47712425361325595374e0 * t20118;
9364   t20229 = t18046 * t581 * t375 * t124;
9365   t20230 = t20229 * t380;
9366   t20232 = t6175 * t5716;
9367   t20233 = t20232 * t380;
9368   t20234 = 0.25560227872138711806e-1 * t20233;
9369   t20235 = t352 * t581;
9370   t20238 = t5675 * t826 * t20235 * t299;
9371   t20239 = 0.60456845350037036744e-1 * t20238;
9372   t20240 = 0.10224091148855484723e0 * t20102;
9373   t20241 = 0.10224091148855484723e0 * t20080;
9374   t20242 = 0.20448182297710969446e0 * t20089;
9375   t20243 = 0.25560227872138711807e-1 * t20217 - t20222 - t20224 + t20225 - t20226 - 0.51120455744277423614e-1 * t20230 + t20234 + t20239 + t20240 + t20241 + t20242;
9376   t20247 = t1846 * t4965 * t148 * t154;
9377   t20249 = 0.20448182297710969446e0 * t20116;
9378   t20253 = t18018 * t18019 * t581 * t328 * t118;
9379   t20254 = 0.15114211337509259186e-1 * t20253;
9380   t20257 = 0.55636233534648050268e1 * t97 * t14897 * t1842;
9381   t20258 = 0.30672273446566454169e0 * t20107;
9382   t20259 = 0.40896364595421938892e0 * t20121;
9383   t20260 = t6175 * t5709;
9384   t20261 = t20260 * t5712;
9385   t20262 = 0.25560227872138711806e-1 * t20261;
9386   t20265 = t5675 * t152 * t5681 * t1714;
9387   t20266 = 0.15114211337509259186e-1 * t20265;
9388   t20267 = t17979 * t6180;
9389   t20268 = 0.70532986241709876201e-1 * t20267;
9390   t20270 = t5675 * t153 * t1705;
9391   t20271 = 0.30228422675018518372e-1 * t20270;
9392   t20272 = 0.60456845350037036744e-1 * t20052;
9393   t20273 = 0.25560227872138711807e-1 * t20247 - t20249 + t20254 + t20257 - t20258 - t20259 + t20262 - t20266 + t20268 + t20271 + t20272;
9394   t20275 = t1846 * t4961 * t148;
9395   t20276 = t20275 * t20106;
9396   t20278 = 0.24182738140014814698e0 * t20059;
9397   t20279 = 0.12091369070007407349e0 * t20062;
9398   t20283 = 0.33381740120788830160e2 * t1261 * t4961 * t549 * t1633;
9399   t20287 = 0.66763480241577660320e2 * t1261 * t14910 * t1842 * t391;
9400   t20289 = 0.11127246706929610054e2 * t5159 * t5820;
9401   t20291 = 0.33381740120788830162e2 * t5159 * t5817;
9402   t20293 = 0.11127246706929610054e2 * t15488 * t1886;
9403   t20295 = 0.11127246706929610054e2 * t5301 * t5701;
9404   t20297 = 0.11127246706929610054e2 * t5159 * t5823;
9405   t20299 = 0.16690870060394415080e2 * t5301 * t5698;
9406   t20300 = -0.76680683616416135421e-1 * t20276 + t20278 + t20279 - t20283 + t20287 + t20289 - t20291 + t20293 + t20295 + t20297 - t20299;
9407   t20307 = t6194 * t1063;
9408   t20313 = 0.15506928860942058298e-1 * t730 * t5836 * t5840;
9409   t20316 = 0.51689762869806860992e-2 * t1093 * t18391 * t553;
9410   t20319 = 0.10337952573961372198e-1 * t1093 * t18374 * t5847;
9411   t20322 = 0.51689762869806860992e-2 * t1093 * t5836 * t1637;
9412   t20326 = 0.15506928860942058298e-1 * t730 * t4894 * t1856 * t299;
9413   t20329 = 0.51689762869806860992e-2 * t1093 * t14847 * t1856;
9414   t20333 = 0.15506928860942058298e-1 * t1093 * t14785 * t1856 * t395;
9415   t20337 = 0.10337952573961372198e-1 * t1093 * t4894 * t553 * t1637;
9416   t20338 = 0.77534644304710291488e-2 * t730 * t20194 * t299 + 0.25844881434903430496e-2 * t89 * t95 * (-0.10224091148855484723e0 * t20198 + t20202 + t20204 + t20205 - t20208 - t20210 - t20211 + t20212 - t20213 + t20214 + t20243 + t20273 + t20300) * t397 - 0.25844881434903430496e-2 * t1093 * t20307 * t395 - t20313 - t20316 + t20319 - t20322 + t20326 + t20329 - t20333 + t20337;
9417   t20342 = 0.77534644304710291488e-2 * t730 * t1723 * t1851 * t299;
9418   t20345 = 0.25844881434903430496e-2 * t1093 * t4902 * t1851;
9419   t20349 = 0.51689762869806860992e-2 * t1093 * t4894 * t1851 * t395;
9420   t20352 = 0.25844881434903430496e-2 * t1093 * t1723 * t5726;
9421   t20353 = 0.1250e4 / 0.3e1 * t20156;
9422   t20354 = 0.6250e4 / 0.3e1 * t20159;
9423   t20355 = 0.28750e5 / 0.9e1 * t20162;
9424   t20356 = 0.1250e4 / 0.3e1 * t20164;
9425   t20357 = 0.15625e5 / 0.9e1 * t20169;
9426   t20358 = 0.109375e6 / 0.9e1 * t20178;
9427   t20359 = 0.484375e6 / 0.27e2 * t20185;
9428   t20360 = 0.15625e5 / 0.9e1 * t20190;
9429   t20361 = -t20342 - t20345 + t20349 - t20352 + t20353 + t20354 - t20355 + t20356 - t20357 - t20358 + t20359 - t20360;
9430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9431     v4rhosigma3[1] = t6198 - t6201 + t6204 - t6207 + t6208 - t6209 + t7 * (t20338 + t20361);
9432 
9433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9434     v4rhosigma3[2] = v4rhosigma3[0];
9435 
9436   t20364 = t6224 * t397;
9437   t20375 = 0.23856212680662797687e0 * t20203;
9438   t20376 = 0.23856212680662797686e0 * t20086;
9439   t20390 = 0.47712425361325595374e0 * t20223;
9440   t20392 = 0.47712425361325595369e0 * t20118;
9441   t20395 = 0.10224091148855484722e0 * t20083 + 0.11127246706929610054e2 * t5301 * t5823 + 0.10224091148855484723e0 * t20217 - 0.51120455744277423614e-1 * t20221 - 0.16690870060394415080e2 * t3335 * t6218 - 0.16690870060394415080e2 * t5159 * t5884 - t20390 + 0.10224091148855484722e0 * t20111 - t20392 - 0.20448182297710969446e0 * t20230 + 0.10224091148855484723e0 * t20233;
9442   t20410 = 0.24182738140014814698e0 * t20238 + 0.10224091148855484722e0 * t20102 + 0.10224091148855484722e0 * t20080 + 0.20448182297710969445e0 * t20089 + 0.10224091148855484723e0 * t20247 - 0.20448182297710969444e0 * t20116 + 0.60456845350037036744e-1 * t20253 - 0.30672273446566454166e0 * t20107 - 0.40896364595421938888e0 * t20121 + 0.10224091148855484723e0 * t20261 + 0.66763480241577660320e2 * t1261 * t18513 * t5816;
9443   t20416 = 0.28213194496683950481e0 * t20267;
9444   t20426 = -0.33381740120788830160e2 * t1261 * t4961 * t549 * t1714 - 0.60456845350037036744e-1 * t20265 + t20416 + 0.12091369070007407349e0 * t20270 + t20272 - 0.30672273446566454169e0 * t20276 + t20278 + t20279 + 0.55636233534648050268e1 * t97 * t14435 * t1905 + 0.11127246706929610054e2 * t5159 * t5887 - 0.33381740120788830162e2 * t5301 * t5817;
9445   t20433 = t6224 * t1063;
9446   t20463 = 0.77534644304710291488e-2 * t730 * t20364 * t299 + 0.25844881434903430496e-2 * t89 * t95 * (-0.16690870060394415080e2 * t1261 * t5883 * t1633 - 0.40896364595421938892e0 * t20198 + 0.20448182297710969446e0 * t20201 + 0.11127246706929610054e2 * t16046 * t1886 + t20375 + t20376 - 0.51120455744277423612e-1 * t20077 + t20212 - t20213 + 0.11127246706929610054e2 * t5301 * t5820 + t20395 + t20410 + t20426) * t397 - 0.25844881434903430496e-2 * t1093 * t20433 * t395 - 0.77534644304710291488e-2 * t730 * t5900 * t5840 - 0.25844881434903430496e-2 * t1093 * t18445 * t553 + 0.51689762869806860992e-2 * t1093 * t18565 * t5847 - 0.25844881434903430496e-2 * t1093 * t5900 * t1637 - 0.15506928860942058298e-1 * t730 * t1723 * t1890 * t299 - 0.51689762869806860992e-2 * t1093 * t4902 * t1890 + 0.10337952573961372198e-1 * t1093 * t4894 * t1890 * t395 - 0.51689762869806860992e-2 * t1093 * t1723 * t5831;
9447   t20477 = 0.2500e4 / 0.3e1 * t20156;
9448   t20479 = 0.57500e5 / 0.9e1 * t20162;
9449   t20481 = 0.31250e5 / 0.9e1 * t20169;
9450   t20483 = 0.968750e6 / 0.27e2 * t20185;
9451   t20485 = 0.15506928860942058298e-1 * t730 * t5911 * t5840 + 0.10337952573961372198e-1 * t1093 * t4894 * t553 * t1718 - 0.15506928860942058298e-1 * t1093 * t18441 * t5847 + 0.51689762869806860992e-2 * t1093 * t5911 * t1637 + t20477 + 0.12500e5 / 0.3e1 * t20159 - t20479 + 0.2500e4 / 0.3e1 * t20164 - t20481 - 0.218750e6 / 0.9e1 * t20178 + t20483 - 0.31250e5 / 0.9e1 * t20190;
9452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9453     v4rhosigma3[3] = t6228 - t6231 - t6234 + t6237 + t6238 - t6239 + t7 * (t20463 + t20485);
9454 
9455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9456     v4rhosigma3[4] = v4rhosigma3[1];
9457 
9458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9459     v4rhosigma3[5] = v4rhosigma3[2];
9460 
9461   t20488 = t6251 * t397;
9462   t20493 = 0.84639583490051851441e0 * t20267;
9463   t20507 = 0.18137053605011111023e0 * t20253 + t20493 + 0.72548214420044444092e0 * t20238 + 0.36274107210022222046e0 * t20270 - 0.18137053605011111023e0 * t20265 + 0.16690870060394415081e2 * t97 * t14897 * t1905 - 0.50072610181183245243e2 * t5301 * t5884 + 0.33381740120788830162e2 * t5301 * t5887 - 0.15336136723283227083e0 * t20221 + 0.30672273446566454166e0 * t20261 + 0.30672273446566454166e0 * t20233;
9464   t20508 = 0.71568638041988393054e0 * t20203;
9465   t20513 = t7477 * t6246;
9466   t20524 = 0.14313727608397678611e1 * t20223;
9467   t20526 = t20508 + 0.61344546893132908332e0 * t20201 - 0.16690870060394415080e2 * t97 * t7467 * t6246 + 0.66763480241577660320e2 * t1261 * t20513 * t391 - 0.50072610181183245240e2 * t1261 * t5883 * t1714 + 0.30672273446566454167e0 * t20217 - 0.92016820339699362501e0 * t20276 + 0.30672273446566454167e0 * t20247 - 0.61344546893132908334e0 * t20230 - t20524 - 0.12268909378626581667e1 * t20198;
9468   t20532 = t6251 * t1063;
9469   t20550 = t6259 * t2814;
9470   t20557 = t6259 * t6309;
9471   t20561 = 0.5000e4 / 0.3e1 * t20156;
9472   t20563 = 0.115000e6 / 0.9e1 * t20162;
9473   t20565 = 0.62500e5 / 0.9e1 * t20169;
9474   t20567 = 0.1937500e7 / 0.27e2 * t20185;
9475   t20569 = 0.77534644304710291488e-2 * t730 * t20488 * t299 + 0.25844881434903430496e-2 * t89 * t95 * (t20507 + t20526) * t397 - 0.25844881434903430496e-2 * t1093 * t20532 * t395 - 0.23260393291413087446e-1 * t730 * t5900 * t585 * t299 - 0.77534644304710291488e-2 * t1093 * t18445 * t585 + 0.15506928860942058298e-1 * t1093 * t18565 * t585 * t395 - 0.77534644304710291488e-2 * t1093 * t5900 * t1718 + 0.15506928860942058298e-1 * t730 * t20550 * t299 + 0.15506928860942058298e-1 * t1093 * t5911 * t1718 - 0.15506928860942058298e-1 * t1093 * t20557 * t395 + t20561 + 0.25000e5 / 0.3e1 * t20159 - t20563 + 0.5000e4 / 0.3e1 * t20164 - t20565 - 0.437500e6 / 0.9e1 * t20178 + t20567 - 0.62500e5 / 0.9e1 * t20190;
9476   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9477     v4rhosigma3[6] = t20569 * t7 + t6255 - t6258 + t6263 + t6264 - t6265;
9478 
9479   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9480     v4rhosigma3[7] = v4rhosigma3[3];
9481 
9482   t20571 = t6268 * t397;
9483   t20579 = 0.25560227872138711806e-1 * t20217 - t20222 - t20224 + t20225 - t20226 - 0.51120455744277423612e-1 * t20230 + t20234 + t20239 + t20240 + t20241 + t20242;
9484   t20582 = 0.25560227872138711806e-1 * t20247 - t20249 + t20254 + t20257 - t20258 - t20259 + t20262 - t20266 + t20268 + t20271 + t20272;
9485   t20584 = -0.76680683616416135418e-1 * t20276 + t20278 + t20279 - t20283 + t20287 + t20289 - t20291 + t20293 + t20295 + t20297 - t20299;
9486   t20591 = t6268 * t1063;
9487   t20595 = 0.77534644304710291488e-2 * t730 * t20571 * t299 + 0.25844881434903430496e-2 * t89 * t95 * (-0.10224091148855484722e0 * t20198 + t20202 + t20204 + t20205 - t20208 - t20210 - t20211 + t20212 - t20213 + t20214 + t20579 + t20582 + t20584) * t397 - 0.25844881434903430496e-2 * t1093 * t20591 * t395 - t20342 - t20345 + t20349 - t20352 - t20313 - t20316 + t20319 - t20322;
9488   t20596 = t20326 + t20329 - t20333 + t20337 + t20353 + t20354 - t20355 + t20356 - t20357 - t20358 + t20359 - t20360;
9489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9490     v4rhosigma3[8] = t6272 - t6207 - t6201 + t6204 + t6208 - t6209 + t7 * (t20595 + t20596);
9491 
9492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9493     v4rhosigma3[9] = v4rhosigma3[5];
9494 
9495   t20605 = t18018 * t18019 * t549 * t475 * t118;
9496   t20609 = t5675 * t826 * t20056 * t460;
9497   t20612 = t5675 * t153 * t1753;
9498   t20616 = t5675 * t152 * t5681 * t1765;
9499   t20627 = t1 * t1743 * t1847 * t154;
9500   t20629 = t20079 * t5963;
9501   t20631 = t20082 * t498;
9502   t20633 = 0.45342634012527777559e-1 * t20605 + t20055 + 0.18137053605011111024e0 * t20609 + 0.90685268025055555118e-1 * t20612 - 0.45342634012527777559e-1 * t20616 + 0.16690870060394415081e2 * t97 * t15720 * t1842 - 0.50072610181183245243e2 * t5159 * t5952 + 0.33381740120788830162e2 * t5159 * t5955 - 0.38340341808208067710e-1 * t20627 + 0.76680683616416135420e-1 * t20629 + 0.76680683616416135420e-1 * t20631;
9503   t20634 = t20088 * t482;
9504   t20646 = t5958 * t6135 * t154;
9505   t20648 = t8607 * t5962;
9506   t20649 = t20105 * t20648;
9507   t20653 = t1846 * t5188 * t148 * t154;
9508   t20655 = t20115 * t498;
9509   t20657 = t3210 * t481;
9510   t20658 = t6136 * t20657;
9511   t20660 = t20087 + 0.15336136723283227084e0 * t20634 - 0.16690870060394415080e2 * t97 * t8995 * t6131 + 0.66763480241577660320e2 * t1261 * t20094 * t503 - 0.50072610181183245240e2 * t1261 * t5697 * t1765 + 0.76680683616416135420e-1 * t20646 - 0.23004205084924840626e0 * t20649 + 0.76680683616416135420e-1 * t20653 - 0.15336136723283227084e0 * t20655 - t20119 - 0.30672273446566454168e0 * t20658;
9512   t20690 = t20158 * t5994;
9513   t20692 = t1868 * t5999;
9514   t20696 = t20173 * t20174 * t20175 * t460;
9515   t20701 = t6160 * t20174 * t50 * t521 * t192;
9516   t20703 = 0.77534644304710291488e-2 * t730 * t20045 * t460 + 0.25844881434903430496e-2 * t89 * t95 * (t20633 + t20660) * t397 - 0.25844881434903430496e-2 * t1093 * t20129 * t507 - 0.23260393291413087446e-1 * t730 * t5731 * t6050 - 0.77534644304710291488e-2 * t1093 * t18637 * t553 + 0.15506928860942058298e-1 * t1093 * t18160 * t6057 - 0.77534644304710291488e-2 * t1093 * t5731 * t1769 + 0.15506928860942058298e-1 * t730 * t20145 * t460 + 0.15506928860942058298e-1 * t1093 * t5742 * t1769 - 0.15506928860942058298e-1 * t1093 * t20152 * t507 + t20157 + 0.3125e4 / 0.3e1 * t20690 - t20163 + 0.625e3 / 0.3e1 * t20692 - t20170 - 0.109375e6 / 0.18e2 * t20696 + t20186 - 0.15625e5 / 0.18e2 * t20701;
9517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9518     v4rhosigma3[10] = t20703 * t7 + t6143 - t6146 + t6151 + t6154 - t6169;
9519 
9520   t20721 = t1 * t1800 * t1847 * t154;
9521   t20724 = t5675 * t153 * t1810;
9522   t20730 = t5675 * t152 * t5681 * t1817;
9523   t20737 = 0.60456845350037036744e-1 * t20616;
9524   t20738 = 0.60456845350037036744e-1 * t20605;
9525   t20742 = 0.10224091148855484723e0 * t20646 - 0.15114211337509259186e-1 * t20730 - t20224 - t20226 - 0.20448182297710969446e0 * t20655 - 0.33381740120788830162e2 * t5159 * t6029 + 0.10224091148855484723e0 * t20629 + 0.20448182297710969446e0 * t20634 - t20737 + t20738 + 0.55636233534648050268e1 * t97 * t16039 * t1842;
9526   t20743 = 0.66763480241577660320e2 * t1261 * t14910 * t1842 * t503 - 0.33381740120788830160e2 * t1261 * t4961 * t549 * t1765 + t20204 - 0.30672273446566454169e0 * t20649 - 0.40896364595421938892e0 * t20658 + 0.10224091148855484723e0 * t20653 + t20205 + t20212 - 0.12780113936069355903e-1 * t20721 + 0.30228422675018518372e-1 * t20724 + t20742;
9527   t20744 = t20260 * t5963;
9528   t20745 = 0.25560227872138711806e-1 * t20744;
9529   t20746 = t20200 * t482;
9530   t20747 = 0.51120455744277423612e-1 * t20746;
9531   t20749 = 0.11127246706929610054e2 * t5301 * t5955;
9532   t20750 = t20232 * t498;
9533   t20751 = 0.25560227872138711806e-1 * t20750;
9534   t20754 = t5675 * t826 * t20235 * t460;
9535   t20755 = 0.60456845350037036744e-1 * t20754;
9536   t20757 = 0.11127246706929610054e2 * t16486 * t1886;
9537   t20759 = t5958 * t6190 * t154;
9538   t20762 = 0.11127246706929610054e2 * t5159 * t6032;
9539   t20764 = 0.11127246706929610054e2 * t5159 * t6035;
9540   t20768 = t18018 * t18019 * t581 * t475 * t118;
9541   t20769 = 0.15114211337509259186e-1 * t20768;
9542   t20770 = t20745 + t20747 + t20749 + t20751 + t20755 + t20757 + 0.25560227872138711807e-1 * t20759 + t20762 + t20268 + t20764 + t20769;
9543   t20771 = t20229 * t498;
9544   t20775 = t1846 * t5329 * t148 * t154;
9545   t20777 = 0.10224091148855484723e0 * t20631;
9546   t20779 = 0.16690870060394415080e2 * t5301 * t5952;
9547   t20780 = 0.24182738140014814698e0 * t20609;
9548   t20781 = 0.12091369070007407349e0 * t20612;
9549   t20783 = 0.16690870060394415080e2 * t3977 * t6186;
9550   t20786 = 0.16690870060394415080e2 * t1261 * t16151 * t1842;
9551   t20787 = t6191 * t20657;
9552   t20789 = t20275 * t20648;
9553   t20791 = 0.51120455744277423614e-1 * t20627;
9554   t20792 = -0.51120455744277423614e-1 * t20771 + 0.25560227872138711807e-1 * t20775 + t20777 - t20779 + t20780 + t20781 - t20783 - t20786 - 0.10224091148855484723e0 * t20787 - 0.76680683616416135421e-1 * t20789 - t20791;
9555   t20804 = 0.15506928860942058298e-1 * t730 * t5836 * t6050;
9556   t20807 = 0.51689762869806860992e-2 * t1093 * t18968 * t553;
9557   t20810 = 0.10337952573961372198e-1 * t1093 * t18374 * t6057;
9558   t20813 = 0.51689762869806860992e-2 * t1093 * t5836 * t1769;
9559   t20817 = 0.15506928860942058298e-1 * t730 * t4894 * t1856 * t460;
9560   t20820 = 0.51689762869806860992e-2 * t1093 * t15818 * t1856;
9561   t20824 = 0.15506928860942058298e-1 * t1093 * t14785 * t1856 * t507;
9562   t20828 = 0.10337952573961372198e-1 * t1093 * t4894 * t553 * t1769;
9563   t20829 = 0.77534644304710291488e-2 * t730 * t20194 * t460 + 0.25844881434903430496e-2 * t89 * t95 * (t20743 + t20770 + t20792) * t397 - 0.25844881434903430496e-2 * t1093 * t20307 * t507 - t20804 - t20807 + t20810 - t20813 + t20817 + t20820 - t20824 + t20828;
9564   t20833 = 0.77534644304710291488e-2 * t730 * t1723 * t1851 * t460;
9565   t20836 = 0.25844881434903430496e-2 * t1093 * t5371 * t1851;
9566   t20840 = 0.51689762869806860992e-2 * t1093 * t4894 * t1851 * t507;
9567   t20843 = 0.25844881434903430496e-2 * t1093 * t1723 * t5970;
9568   t20844 = 0.6250e4 / 0.3e1 * t20690;
9569   t20845 = 0.1250e4 / 0.3e1 * t20692;
9570   t20846 = 0.109375e6 / 0.9e1 * t20696;
9571   t20847 = 0.15625e5 / 0.9e1 * t20701;
9572   t20848 = -t20833 - t20836 + t20840 - t20843 + t20353 + t20844 - t20355 + t20845 - t20357 - t20846 + t20359 - t20847;
9573   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9574     v4rhosigma3[11] = t6198 - t6201 + t6204 - t6207 + t6208 - t6209 + t7 * (t20829 + t20848);
9575 
9576   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9577     v4rhosigma3[12] = v4rhosigma3[10];
9578 
9579   t20882 = t20212 - 0.51120455744277423614e-1 * t20721 + 0.11127246706929610054e2 * t5301 * t6035 + 0.12091369070007407349e0 * t20724 + 0.10224091148855484722e0 * t20646 - 0.60456845350037036744e-1 * t20730 + 0.11127246706929610054e2 * t5159 * t6090 - t20390 - t20392 - 0.20448182297710969444e0 * t20655 + 0.10224091148855484722e0 * t20629;
9580   t20894 = 0.20448182297710969445e0 * t20634 - t20737 + t20738 - 0.16690870060394415080e2 * t5159 * t6087 + 0.10224091148855484723e0 * t20744 + 0.20448182297710969446e0 * t20746 + 0.10224091148855484723e0 * t20750 + 0.24182738140014814698e0 * t20754 - 0.16690870060394415080e2 * t3977 * t6218 + 0.10224091148855484723e0 * t20759 + t20416;
9581   t20907 = 0.55636233534648050268e1 * t97 * t15720 * t1905 + 0.60456845350037036744e-1 * t20768 - 0.20448182297710969446e0 * t20771 + 0.10224091148855484723e0 * t20775 + 0.10224091148855484722e0 * t20631 - 0.33381740120788830162e2 * t5301 * t6029 + t20780 + t20781 - 0.40896364595421938892e0 * t20787 - 0.30672273446566454169e0 * t20789 - 0.51120455744277423612e-1 * t20627;
9582   t20943 = 0.77534644304710291488e-2 * t730 * t20364 * t460 + 0.25844881434903430496e-2 * t89 * t95 * (-0.16690870060394415080e2 * t1261 * t5883 * t1765 + 0.66763480241577660320e2 * t1261 * t18513 * t6028 - 0.33381740120788830160e2 * t1261 * t4961 * t549 * t1817 + t20375 + 0.11127246706929610054e2 * t5301 * t6032 + 0.11127246706929610054e2 * t16981 * t1886 - 0.30672273446566454166e0 * t20649 - 0.40896364595421938888e0 * t20658 + 0.10224091148855484722e0 * t20653 + t20376 + t20882 + t20894 + t20907) * t397 - 0.25844881434903430496e-2 * t1093 * t20433 * t507 - 0.77534644304710291488e-2 * t730 * t5900 * t6050 - 0.25844881434903430496e-2 * t1093 * t19412 * t553 + 0.51689762869806860992e-2 * t1093 * t18565 * t6057 - 0.25844881434903430496e-2 * t1093 * t5900 * t1769 - 0.15506928860942058298e-1 * t730 * t1723 * t1890 * t460 - 0.51689762869806860992e-2 * t1093 * t5371 * t1890 + 0.10337952573961372198e-1 * t1093 * t4894 * t1890 * t507 - 0.51689762869806860992e-2 * t1093 * t1723 * t6042;
9583   t20961 = 0.15506928860942058298e-1 * t730 * t5911 * t6050 + 0.10337952573961372198e-1 * t1093 * t4894 * t553 * t1821 - 0.15506928860942058298e-1 * t1093 * t18441 * t6057 + 0.51689762869806860992e-2 * t1093 * t5911 * t1769 + t20477 + 0.12500e5 / 0.3e1 * t20690 - t20479 + 0.2500e4 / 0.3e1 * t20692 - t20481 - 0.218750e6 / 0.9e1 * t20696 + t20483 - 0.31250e5 / 0.9e1 * t20701;
9584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9585     v4rhosigma3[13] = t6228 - t6231 - t6234 + t6237 + t6238 - t6239 + t7 * (t20943 + t20961);
9586 
9587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9588     v4rhosigma3[14] = v4rhosigma3[11];
9589 
9590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9591     v4rhosigma3[15] = v4rhosigma3[12];
9592 
9593   t20981 = 0.18137053605011111023e0 * t20768 + t20493 + 0.72548214420044444092e0 * t20754 + 0.36274107210022222046e0 * t20724 - 0.18137053605011111023e0 * t20730 + 0.16690870060394415081e2 * t97 * t16039 * t1905 - 0.50072610181183245243e2 * t5301 * t6087 + 0.33381740120788830162e2 * t5301 * t6090 - 0.15336136723283227083e0 * t20721 + 0.30672273446566454166e0 * t20744 + 0.30672273446566454166e0 * t20750;
9594   t20997 = t20508 + 0.61344546893132908332e0 * t20746 - 0.16690870060394415080e2 * t97 * t8995 * t6246 + 0.66763480241577660320e2 * t1261 * t20513 * t503 - 0.50072610181183245240e2 * t1261 * t5883 * t1817 + 0.30672273446566454167e0 * t20759 - 0.92016820339699362501e0 * t20789 + 0.30672273446566454167e0 * t20775 - 0.61344546893132908334e0 * t20771 - t20524 - 0.12268909378626581667e1 * t20787;
9595   t21033 = 0.77534644304710291488e-2 * t730 * t20488 * t460 + 0.25844881434903430496e-2 * t89 * t95 * (t20981 + t20997) * t397 - 0.25844881434903430496e-2 * t1093 * t20532 * t507 - 0.23260393291413087446e-1 * t730 * t5900 * t585 * t460 - 0.77534644304710291488e-2 * t1093 * t19412 * t585 + 0.15506928860942058298e-1 * t1093 * t18565 * t585 * t507 - 0.77534644304710291488e-2 * t1093 * t5900 * t1821 + 0.15506928860942058298e-1 * t730 * t20550 * t460 + 0.15506928860942058298e-1 * t1093 * t5911 * t1821 - 0.15506928860942058298e-1 * t1093 * t20557 * t507 + t20561 + 0.25000e5 / 0.3e1 * t20690 - t20563 + 0.5000e4 / 0.3e1 * t20692 - t20565 - 0.437500e6 / 0.9e1 * t20696 + t20567 - 0.62500e5 / 0.9e1 * t20701;
9596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9597     v4rhosigma3[16] = t21033 * t7 + t6255 - t6258 + t6263 + t6264 - t6265;
9598 
9599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9600     v4rhosigma3[17] = v4rhosigma3[13];
9601 
9602   t21039 = t20745 + t20747 + t20749 + t20751 + t20755 + t20757 + 0.25560227872138711806e-1 * t20759 + t20762 + t20268 + t20764 + t20769;
9603   t21044 = -0.51120455744277423612e-1 * t20771 + 0.25560227872138711806e-1 * t20775 + t20777 - t20779 + t20780 + t20781 - t20783 - t20786 - 0.10224091148855484722e0 * t20787 - 0.76680683616416135418e-1 * t20789 - t20791;
9604   t21054 = 0.77534644304710291488e-2 * t730 * t20571 * t460 + 0.25844881434903430496e-2 * t89 * t95 * (t20743 + t21039 + t21044) * t397 - 0.25844881434903430496e-2 * t1093 * t20591 * t507 - t20833 - t20836 + t20840 - t20843 - t20804 - t20807 + t20810 - t20813;
9605   t21055 = t20817 + t20820 - t20824 + t20828 + t20353 + t20844 - t20355 + t20845 - t20357 - t20846 + t20359 - t20847;
9606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9607     v4rhosigma3[18] = t6272 - t6207 - t6201 + t6204 + t6208 - t6209 + t7 * (t21054 + t21055);
9608 
9609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9610     v4rhosigma3[19] = v4rhosigma3[15];
9611 
9612   t21060 = t5675 * t152 * t18003 * t1842;
9613   t21061 = 0.18137053605011111024e0 * t21060;
9614   t21066 = 0.1e1 / t8 / t17895;
9615   t21067 = t375 * t21066;
9616   t21071 = 0.1e1 / t3 / t2;
9617   t21074 = t50 * t7369 * t21071 * t5 * t352;
9618   t21075 = t1 / t87 / t86 * t21067 * t21074;
9619   t21081 = t6127 * t6135 * t154;
9620   t21082 = 0.30672273446566454169e0 * t21081;
9621   t21084 = t137 * t21067 * t21074;
9622   t21086 = t1842 * t1842;
9623   t21092 = t1846 * t5697 * t148 * t154;
9624   t21093 = 0.46008410169849681251e0 * t21092;
9625   t21100 = t969 * t114 * t1018 * t21066 * t50 * t7369 * t21071 * t5;
9626   t21113 = t1851 * t1851;
9627   t21118 = t1856 * t1856;
9628   t21124 = t6157 * t6158 * t6167;
9629   t21139 = 0.1e1 / t6155 / t86 * t87 * t176 * t7368 * t93 * t99 / t5774 / t232 * t6 * t127 * t182 * t192;
9630   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9631     v4sigma4[0] = t7 * (0.25844881434903430496e-2 * t89 * t95 * (t21061 - 0.16447635673552326924e-1 * t21075 - 0.66763480241577660323e2 * t97 * t14679 * t6131 + t21082 - 0.16664939145622612203e-2 * t21084 + 0.66763480241577660320e2 * t97 * t7478 * t21086 - t21093 + 0.27815233384396734139e-1 * t21100) * t397 - 0.10337952573961372198e-1 * t1093 * t20129 * t553 + 0.31013857721884116596e-1 * t1093 * t18160 * t1856 - 0.77534644304710291488e-2 * t89 * t95 * t21113 * t1063 - 0.15506928860942058298e-1 * t89 * t95 * t21118 * t6309 - 0.31250e5 / 0.9e1 * t21124 + 0.390625e6 / 0.324e3 * t21139);
9632 
9633   t21143 = t5675 * t153 * t1886;
9634   t21144 = 0.90685268025055555120e-1 * t21143;
9635   t21145 = 0.46008410169849681253e0 * t21092;
9636   t21148 = t6127 * t6190 * t154;
9637   t21150 = 0.33329878291245224406e-2 * t21084;
9638   t21152 = t6175 * t6135 * t154;
9639   t21153 = 0.76680683616416135420e-1 * t21152;
9640   t21154 = 0.32895271347104653847e-1 * t21075;
9641   t21158 = t1846 * t4961 * t549 * t5663 * t153;
9642   t21159 = 0.23004205084924840626e0 * t21158;
9643   t21160 = 0.18137053605011111023e0 * t21060;
9644   t21163 = 0.16690870060394415080e2 * t97 * t14904 * t6131;
9645   t21164 = t5159 * t6186;
9646   t21165 = 0.50072610181183245242e2 * t21164;
9647   t21168 = 0.66763480241577660320e2 * t1261 * t14910 * t6131;
9648   t21169 = t21144 + t21082 - t21145 + 0.55630466768793468279e-1 * t21100 + 0.76680683616416135423e-1 * t21148 - t21150 + t21153 - t21154 - t21159 + t21160 - t21163 - t21165 + t21168;
9649   t21175 = t1093 * t20307 * t553;
9650   t21178 = t1093 * t18374 * t1856;
9651   t21179 = 0.15506928860942058297e-1 * t21178;
9652   t21182 = 0.77534644304710291488e-2 * t1093 * t5836 * t1851;
9653   t21185 = 0.15506928860942058298e-1 * t1093 * t14785 * t6147;
9654   t21188 = t1093 * t4894 * t553 * t1851;
9655   t21189 = 0.15506928860942058297e-1 * t21188;
9656   t21192 = 0.25844881434903430496e-2 * t1093 * t1723 * t6139;
9657   t21193 = 0.62500e5 / 0.9e1 * t21124;
9658   t21194 = 0.390625e6 / 0.162e3 * t21139;
9659   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9660     v4sigma4[1] = t7 * (0.25844881434903430496e-2 * t89 * t95 * t21169 * t397 - 0.77534644304710291488e-2 * t21175 + t21179 - t21182 - t21185 + t21189 - t21192 - t21193 + t21194);
9661 
9662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9663     v4sigma4[2] = v4sigma4[0];
9664 
9665   t21198 = t5675 * t152 * t18003 * t1905;
9666   t21200 = t5301 * t6186;
9667   t21204 = 0.66763480241577660320e2 * t1261 * t18513 * t1842;
9668   t21205 = t5159 * t6218;
9669   t21208 = t6175 * t6190 * t154;
9670   t21210 = 0.24182738140014814698e0 * t21143;
9671   t21213 = 0.11126093353758693656e0 * t21100;
9672   t21214 = 0.20448182297710969446e0 * t21148;
9673   t21215 = 0.66659756582490448811e-2 * t21084;
9674   t21218 = t1846 * t5883 * t148 * t154;
9675   t21220 = 0.20448182297710969446e0 * t21152;
9676   t21222 = 0.61344546893132908337e0 * t21158;
9677   t21223 = 0.12091369070007407349e0 * t21060;
9678   t21224 = 0.30228422675018518373e-1 * t21198 - 0.33381740120788830162e2 * t21200 + t21204 - 0.33381740120788830160e2 * t21205 + 0.51120455744277423616e-1 * t21208 + t21210 + 0.20448182297710969444e0 * t21081 - 0.30672273446566454166e0 * t21092 + t21213 + t21214 - t21215 - 0.76680683616416135419e-1 * t21218 + t21220 - 0.65790542694209307694e-1 * t21075 - t21222 + t21223;
9679   t21231 = 0.51689762869806860992e-2 * t1093 * t20433 * t553;
9680   t21234 = 0.51689762869806860992e-2 * t1093 * t18565 * t1856;
9681   t21237 = 0.25844881434903430496e-2 * t1093 * t5900 * t1851;
9682   t21238 = t1890 * t1890;
9683   t21242 = 0.51689762869806860992e-2 * t89 * t95 * t21238 * t1063;
9684   t21246 = 0.20675905147922744396e-1 * t1093 * t4894 * t1890 * t553;
9685   t21252 = 0.15506928860942058298e-1 * t1093 * t18441 * t1856;
9686   t21255 = 0.51689762869806860992e-2 * t1093 * t5911 * t1851;
9687   t21256 = 0.125000e6 / 0.9e1 * t21124;
9688   t21257 = 0.390625e6 / 0.81e2 * t21139;
9689   t21258 = 0.25844881434903430496e-2 * t89 * t95 * t21224 * t397 - t21231 + t21234 - t21237 - t21242 + t21246 - 0.51689762869806860992e-2 * t1093 * t1723 * t6194 - t21252 + t21255 - t21256 + t21257;
9690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9691     v4sigma4[3] = t7 * t21258;
9692 
9693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9694     v4sigma4[4] = v4sigma4[1];
9695 
9696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9697     v4sigma4[5] = v4sigma4[2];
9698 
9699   t21260 = 0.13158108538841861539e0 * t21075;
9700   t21262 = t5301 * t6218;
9701   t21269 = 0.16690870060394415080e2 * t97 * t14679 * t6246;
9702   t21272 = 0.66763480241577660320e2 * t1261 * t20513 * t549;
9703   t21274 = 0.30672273446566454167e0 * t21148;
9704   t21276 = 0.22252186707517387310e0 * t21100;
9705   t21277 = 0.36274107210022222046e0 * t21143 - t21260 + 0.18137053605011111024e0 * t21198 - 0.50072610181183245243e2 * t21262 + 0.30672273446566454170e0 * t21208 - 0.13331951316498089761e-1 * t21084 + 0.30672273446566454166e0 * t21152 - t21269 + t21272 - 0.46008410169849681251e0 * t21218 + t21274 - 0.92016820339699362501e0 * t21158 + t21276;
9706   t21284 = 0.25844881434903430496e-2 * t1093 * t20532 * t553;
9707   t21287 = 0.77534644304710291488e-2 * t1093 * t20433 * t585;
9708   t21290 = t1093 * t18565 * t585 * t553;
9709   t21294 = 0.77534644304710291488e-2 * t1093 * t5900 * t1890;
9710   t21296 = t1093 * t5911 * t1890;
9711   t21300 = 0.15506928860942058298e-1 * t1093 * t20557 * t553;
9712   t21301 = 0.250000e6 / 0.9e1 * t21124;
9713   t21302 = 0.781250e6 / 0.81e2 * t21139;
9714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9715     v4sigma4[6] = t7 * (0.25844881434903430496e-2 * t89 * t95 * t21277 * t397 - t21284 - t21287 + 0.15506928860942058298e-1 * t21290 - t21294 + 0.15506928860942058298e-1 * t21296 - t21300 - t21301 + t21302);
9716 
9717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9718     v4sigma4[7] = v4sigma4[3];
9719 
9720   t21304 = 0.55630466768793468278e-1 * t21100;
9721   t21306 = t21144 + t21082 - t21145 + t21304 + 0.76680683616416135422e-1 * t21148 - t21150 + t21153 - t21154 - t21159 + t21160 - t21163 - t21165 + t21168;
9722   t21312 = t1093 * t20591 * t553;
9723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9724     v4sigma4[8] = t7 * (0.25844881434903430496e-2 * t89 * t95 * t21306 * t397 - 0.25844881434903430496e-2 * t21312 - t21182 + t21189 - t21192 - 0.51689762869806860992e-2 * t21175 + t21179 - t21185 - t21193 + t21194);
9725 
9726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9727     v4sigma4[9] = v4sigma4[5];
9728 
9729   t21323 = t1905 * t1905;
9730   t21340 = t1910 * t1910;
9731   t21345 = t1915 * t1915;
9732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9733     v4sigma4[10] = t7 * (0.25844881434903430496e-2 * t89 * t95 * (0.72548214420044444093e0 * t21198 - 0.26316217077683723078e0 * t21075 - 0.66763480241577660323e2 * t97 * t14904 * t6246 + 0.12268909378626581667e1 * t21208 - 0.26663902632996179523e-1 * t21084 + 0.66763480241577660320e2 * t97 * t7478 * t21323 - 0.18403364067939872500e1 * t21218 + 0.44504373415034774619e0 * t21100) * t397 - 0.10337952573961372198e-1 * t1093 * t20532 * t585 + 0.31013857721884116596e-1 * t1093 * t18565 * t1915 - 0.77534644304710291488e-2 * t89 * t95 * t21340 * t1063 - 0.15506928860942058298e-1 * t89 * t95 * t21345 * t6309 - 0.500000e6 / 0.9e1 * t21124 + 0.1562500e7 / 0.81e2 * t21139);
9734 
9735   t21361 = 0.18137053605011111023e0 * t21198 + 0.30672273446566454169e0 * t21208 + 0.36274107210022222047e0 * t21143 - 0.50072610181183245242e2 * t21262 + t21272 + t21276 + t21274 - 0.13331951316498089762e-1 * t21084 - 0.46008410169849681253e0 * t21218 + 0.30672273446566454168e0 * t21152 - t21260 - 0.92016820339699362499e0 * t21158 - t21269;
9736   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9737     v4sigma4[11] = t7 * (0.25844881434903430496e-2 * t89 * t95 * t21361 * t397 - t21287 - t21284 + 0.15506928860942058297e-1 * t21290 - t21294 + 0.15506928860942058297e-1 * t21296 - t21300 - t21301 + t21302);
9738 
9739   t21377 = 0.30228422675018518372e-1 * t21198 - 0.33381740120788830160e2 * t21200 + t21204 - 0.33381740120788830162e2 * t21205 + 0.51120455744277423612e-1 * t21208 + t21210 + 0.20448182297710969446e0 * t21081 - 0.30672273446566454167e0 * t21092 + t21213 + t21214 - t21215 - 0.76680683616416135418e-1 * t21218 + t21220 - 0.65790542694209307695e-1 * t21075 - t21222 + t21223;
9740   t21385 = 0.25844881434903430496e-2 * t89 * t95 * t21377 * t397 - 0.51689762869806860992e-2 * t1093 * t20591 * t585 - t21237 + t21255 - t21231 + t21246 - t21242 + t21234 - t21252 - t21256 + t21257;
9741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9742     v4sigma4[12] = t7 * t21385;
9743 
9744   t21391 = 0.90685268025055555118e-1 * t21143 - 0.32895271347104653848e-1 * t21075 + t21061 - 0.50072610181183245243e2 * t21164 + 0.30672273446566454170e0 * t21081 - t21150 + 0.76680683616416135420e-1 * t21148 - t21163 + t21168 - t21093 + t21153 - t21159 + t21304;
9745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9746     v4sigma4[13] = t7 * (0.25844881434903430496e-2 * t89 * t95 * t21391 * t397 - t21192 - 0.77534644304710291488e-2 * t21312 + 0.15506928860942058298e-1 * t21188 - t21182 + 0.15506928860942058298e-1 * t21178 - t21185 - t21193 + t21194);
9747 
9748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9749     v4sigma4[14] = v4sigma4[9];
9750 
9751 #ifndef XC_DONT_COMPILE_MXC
9752 
9753   if(order < 5) return;
9754 
9755 
9756 #endif
9757 
9758 #endif
9759 
9760 #endif
9761 
9762 #endif
9763 
9764 #endif
9765 
9766 
9767 }
9768 
9769