1 /*
2   This file was generated automatically with ./scripts/maple2c.pl.
3   Do not edit this file directly as it can be overwritten!!
4 
5   This Source Code Form is subject to the terms of the Mozilla Public
6   License, v. 2.0. If a copy of the MPL was not distributed with this
7   file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 
9   Maple version     : Maple 2016 (X86 64 LINUX)
10   Maple source      : ./maple/mgga_exc/mgga_c_tpss.mpl
11   Type of functional: mgga_exc
12 */
13 
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16 
17 
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t2, t3, t4, t5, t6, t8, t9, t10;
24   double t11, t12, t13, t14, t15, t16, t17, t18;
25   double t19, t21, t22, t24, t25, t28, t30, t31;
26   double t32, t33, t35, t36, t38, t41, t42, t43;
27   double t45, t46, t47, t48, t49, t50, t51, t52;
28   double t54, t58, t59, t61, t62, t65, t66, t67;
29   double t68, t69, t71, t72, t74, t75, t76, t77;
30   double t78, t79, t80, t83, t84, t85, t88, t89;
31   double t90, t92, t93, t95, t97, t99, t100, t103;
32   double t106, t108, t111, t112, t113, t118, t119, t120;
33   double t121, t123, t126, t127, t130, t131, t132, t134;
34   double t135, t138, t139, t140, t143, t145, t146, t147;
35   double t149;
36 
37 #ifndef XC_DONT_COMPILE_VXC
38   double t150, t151, t152, t155, t159, t161, t162, t166;
39   double t167, t168, t171, t172, t173, t176, t178, t180;
40   double t185, t189, t190, t191, t194, t196, t198, t200;
41   double t201, t202, t205, t206, t207, t208, t212, t215;
42   double t216, t217, t218, t221, t223, t224, t225, t228;
43   double t229, t231, t232, t233, t234, t235, t236, t241;
44   double t242, t244, t245, t253, t254, t255, t257, t258;
45   double t259, t262, t264, t265, t270, t271, t272, t276;
46   double t277, t278, t280, t281, t282, t290, t291, t293;
47   double t298, t299, t301, t302, t303, t304, t305, t306;
48   double t311, t312, t314, t315, t318, t319, t321, t326;
49   double t327, t329, t330, t332, t335, t339, t340, t343;
50   double t344, t347, t350, t351, t353, t354, t355, t356;
51   double t357, t358, t359, t361, t363, t369, t372, t373;
52   double t375, t376, t377, t379, t381, t383, t384, t386;
53   double t389, t390, t391, t393, t394, t396, t398, t401;
54   double t403, t404, t407, t408, t410, t413, t414, t416;
55   double t418, t421;
56 
57 #ifndef XC_DONT_COMPILE_FXC
58   double t427, t428, t434, t435, t438, t439, t445, t446;
59   double t449, t450, t451, t452, t453, t459, t461, t462;
60   double t463, t466, t467, t472, t474, t481, t482, t485;
61   double t486, t487, t488, t489, t490, t494, t496, t499;
62   double t502, t503, t504, t505, t506, t507, t510, t511;
63   double t512, t518, t521, t524, t527, t530, t531, t532;
64   double t533, t536, t537, t540, t542, t544, t547, t548;
65   double t550, t554, t555, t556, t557, t560, t561, t565;
66   double t569, t572, t577, t578, t580, t584, t585, t586;
67   double t594, t598, t599, t600, t601, t602, t607, t608;
68   double t609, t612, t615, t617, t618, t625, t626, t629;
69   double t630, t631, t632, t633, t634, t639, t640, t642;
70   double t643, t644, t645, t647, t651, t659, t660, t666;
71   double t672, t673, t675, t679, t684, t685, t687, t691;
72   double t692, t693, t694, t697, t698, t702, t706, t709;
73   double t714, t715, t717, t720, t721, t722, t725, t726;
74   double t728, t731, t738, t739, t743, t747, t750, t753;
75   double t756, t759, t764, t765, t771, t772, t776, t781;
76   double t782, t784, t786, t787, t789, t790, t791, t792;
77   double t793, t796, t799, t802, t804, t807, t813, t815;
78   double t820, t821, t823, t825, t826, t828, t829, t830;
79   double t831, t834, t837, t840, t842, t844, t845, t846;
80   double t849, t851, t854, t857, t860, t863, t864, t866;
81   double t868, t869, t874, t880, t881, t884, t887, t891;
82   double t895, t896, t899, t901, t904, t905, t910, t916;
83   double t917, t920, t923, t925, t926, t929, t932, t933;
84   double t935, t936, t939, t940, t941, t945, t946, t947;
85   double t948, t951, t952, t954, t955, t956, t957, t959;
86   double t962, t963, t964, t965, t966, t967, t970, t973;
87   double t978, t980, t982, t985, t986, t987, t988, t991;
88   double t992, t993, t995, t998, t999, t1001, t1002, t1005;
89   double t1007, t1008, t1010, t1012, t1014, t1017, t1019, t1020;
90   double t1023, t1024, t1026, t1027, t1029, t1030, t1034, t1038;
91   double t1041, t1043, t1044, t1046, t1048, t1052, t1053, t1055;
92   double t1057, t1059, t1062, t1063, t1067, t1073, t1076, t1079;
93   double t1081, t1082, t1085, t1088, t1089, t1091, t1093, t1096;
94   double t1097, t1101, t1105, t1108, t1111;
95 
96 #ifndef XC_DONT_COMPILE_KXC
97   double t1126, t1129, t1130, t1133, t1134, t1142, t1143, t1146;
98   double t1149, t1150, t1153, t1154, t1157, t1161, t1162, t1163;
99   double t1169, t1173, t1174, t1175, t1178, t1179, t1184, t1185;
100   double t1194, t1195, t1199, t1203, t1204, t1206, t1207, t1211;
101   double t1213, t1215, t1216, t1219, t1220, t1221, t1222, t1223;
102   double t1224, t1227, t1230, t1231, t1232, t1235, t1236, t1239;
103   double t1240, t1241, t1244, t1247, t1255, t1258, t1261, t1264;
104   double t1267, t1270, t1273, t1277, t1278, t1281, t1284, t1285;
105   double t1286, t1287, t1290, t1291, t1294, t1295, t1300, t1302;
106   double t1305, t1306, t1308, t1315, t1316, t1317, t1318, t1319;
107   double t1323, t1326, t1327, t1331, t1336, t1337, t1341, t1345;
108   double t1355, t1359, t1360, t1364, t1369, t1370, t1372, t1380;
109   double t1382, t1385, t1389, t1400, t1404, t1405, t1412, t1413;
110   double t1414, t1420, t1423, t1426, t1429, t1431, t1432, t1441;
111   double t1442, t1450, t1451, t1453, t1454, t1458, t1459, t1460;
112   double t1462, t1463, t1464, t1465, t1467, t1471, t1474, t1476;
113   double t1480, t1484, t1498, t1502, t1506, t1507, t1513, t1519;
114   double t1523, t1529, t1530, t1532, t1536, t1540, t1545, t1546;
115   double t1548, t1555, t1556, t1557, t1558, t1559, t1563, t1566;
116   double t1567, t1571, t1576, t1577, t1581, t1585, t1595, t1599;
117   double t1600, t1604, t1609, t1610, t1612, t1615, t1619, t1621;
118   double t1625, t1626, t1632, t1635, t1642, t1643, t1649, t1657;
119   double t1660, t1661, t1664, t1667, t1673, t1674, t1676, t1678;
120   double t1682, t1691, t1692, t1694, t1700, t1701, t1703, t1710;
121   double t1712, t1715, t1716, t1717, t1719, t1720, t1724, t1728;
122   double t1731, t1732, t1734, t1738, t1739, t1744, t1747, t1750;
123   double t1752, t1758, t1759, t1762, t1765, t1768, t1775, t1777;
124   double t1778, t1781, t1789, t1793, t1804, t1805, t1807, t1813;
125   double t1814, t1816, t1823, t1825, t1828, t1829, t1830, t1832;
126   double t1833, t1837, t1841, t1844, t1845, t1847, t1851, t1852;
127   double t1857, t1860, t1863, t1865, t1869, t1872, t1880, t1883;
128   double t1884, t1889, t1891, t1894, t1901, t1904, t1908, t1909;
129   double t1910, t1913, t1916, t1923, t1924, t1925, t1937, t1951;
130   double t1954, t1955, t1958, t1961, t1964, t1976, t1979, t1984;
131   double t1985, t1994, t1997, t2000, t2003, t2004, t2016, t2030;
132   double t2033, t2034, t2037, t2040, t2043, t2046, t2047, t2048;
133   double t2051, t2052, t2055, t2058, t2065, t2066, t2068, t2071;
134   double t2072, t2075, t2076, t2079, t2083, t2086, t2088, t2091;
135   double t2092, t2095, t2100, t2104, t2105, t2108, t2109, t2111;
136   double t2114, t2117, t2120, t2122, t2125, t2128, t2129, t2130;
137   double t2131, t2132, t2135, t2136, t2137, t2138, t2139, t2143;
138   double t2144, t2147, t2151, t2152, t2157, t2165, t2166, t2167;
139   double t2168, t2169, t2170, t2171, t2176, t2179, t2185, t2186;
140   double t2190, t2191, t2194, t2199, t2203, t2204, t2207, t2208;
141   double t2210, t2213, t2216, t2219, t2221, t2224, t2227, t2228;
142   double t2229, t2230, t2233, t2234, t2235, t2236, t2237, t2240;
143   double t2241, t2244, t2248, t2254, t2259, t2266, t2270, t2271;
144   double t2272, t2283, t2295, t2298, t2301, t2302, t2303, t2304;
145   double t2305, t2306, t2307, t2310, t2315, t2317, t2320, t2324;
146   double t2325, t2327, t2332, t2334, t2336, t2338, t2341, t2342;
147   double t2344, t2345, t2346, t2357, t2375, t2376, t2379, t2382;
148   double t2387, t2388, t2391, t2394, t2397, t2404, t2409, t2410;
149   double t2413, t2420, t2423, t2426, t2427, t2438, t2450, t2453;
150   double t2458, t2459, t2462, t2465, t2467, t2468, t2470, t2472;
151   double t2475, t2476, t2477, t2480, t2481, t2482, t2483, t2484;
152   double t2485, t2486, t2488, t2491, t2492, t2493, t2495, t2496;
153   double t2499, t2503, t2506, t2511, t2512, t2513, t2516, t2517;
154   double t2518, t2519, t2520, t2521, t2528, t2529, t2533, t2534;
155   double t2535, t2538, t2539, t2540, t2542, t2545, t2546, t2547;
156   double t2548, t2549, t2550, t2553, t2560, t2565, t2569, t2572;
157   double t2574, t2575, t2576, t2581, t2582, t2588, t2594, t2595;
158   double t2596, t2599, t2600, t2601, t2602, t2604, t2605, t2606;
159   double t2611, t2614, t2617, t2618, t2619, t2622, t2625, t2632;
160   double t2633, t2641, t2647, t2648, t2655, t2658, t2661, t2662;
161   double t2663, t2664, t2672, t2677, t2678, t2683, t2688, t2691;
162   double t2694, t2695, t2703, t2715, t2718, t2723, t2726, t2729;
163   double t2733, t2734, t2737, t2738, t2743, t2746, t2747, t2753;
164   double t2761, t2764, t2767, t2770;
165 
166 #ifndef XC_DONT_COMPILE_LXC
167   double t2782, t2812, t2813, t2816, t2831, t2832, t2835, t2845;
168   double t2847, t2848, t2850, t2873, t2878, t2882, t2890, t2893;
169   double t2896, t2899, t2902, t2913, t2917, t2927, t2932, t2936;
170   double t2966, t2967, t2971, t2972, t2982, t2983, t2988, t2997;
171   double t2998, t3009, t3013, t3020, t3021, t3053, t3057, t3069;
172   double t3071, t3072, t3089, t3091, t3099, t3141, t3149, t3191;
173   double t3195, t3200, t3212, t3213, t3214, t3251, t3252, t3262;
174   double t3275, t3279, t3280, t3283, t3284, t3285, t3295, t3300;
175   double t3303, t3308, t3322, t3328, t3329, t3334, t3335, t3351;
176   double t3355, t3367, t3377, t3385, t3400, t3401, t3428, t3429;
177   double t3436, t3440, t3441, t3443, t3444, t3446, t3461, t3468;
178   double t3478, t3486, t3487, t3513, t3514, t3531, t3533, t3541;
179   double t3549, t3586, t3633, t3637, t3655, t3697, t3699, t3707;
180   double t3742, t3779, t3783, t3806, t3817, t3821, t3852, t3856;
181   double t3862, t3878, t3914, t3920, t3924, t3954, t3987, t3996;
182   double t3998, t4007, t4012, t4019, t4039, t4042, t4043, t4046;
183   double t4052, t4085, t4125, t4132, t4141, t4159, t4166, t4169;
184   double t4177, t4194, t4204, t4240, t4250, t4261, t4280, t4281;
185   double t4287, t4298, t4301, t4304, t4313, t4315, t4341, t4354;
186   double t4371, t4420, t4465, t4488, t4494, t4519, t4530, t4548;
187   double t4553, t4558, t4567, t4574, t4586, t4590, t4623, t4635;
188   double t4638, t4643, t4645, t4647, t4693, t4733, t4738, t4744;
189   double t4747, t4753, t4768, t4783, t4795, t4807, t4813, t4825;
190   double t4836, t4846, t4847, t4849, t4863, t4904, t4939, t4950;
191   double t4958, t4960, t4963, t4964, t4967, t4968, t4971, t4982;
192   double t4985, t4989, t5001, t5020, t5032, t5047, t5050, t5053;
193   double t5072, t5074, t5122, t5150, t5162, t5205, t5257, t5259;
194   double t5311, t5320, t5358, t5391, t5401, t5435, t5463, t5487;
195   double t5518, t5523, t5537, t5540, t5549, t5559, t5593, t5596;
196   double t5597, t5617, t5637, t5641, t5697, t5700, t5720, t5741;
197   double t5744, t5745, t5753, t5756, t5762, t5770, t5789, t5798;
198   double t5819, t5821, t5872, t5921, t5944, t5960, t5962, t6025;
199   double t6040, t6056, t6070, t6083, t6099, t6104, t6122, t6139;
200   double t6140, t6176, t6207, t6247, t6264, t6282, t6340, t6347;
201   double t6353, t6359, t6375, t6376, t6377, t6388, t6391, t6392;
202   double t6397, t6402, t6403, t6405, t6406, t6407, t6421, t6427;
203   double t6441, t6445, t6450, t6464, t6469, t6470, t6491, t6496;
204   double t6499, t6503, t6508, t6539, t6540, t6569, t6587, t6608;
205   double t6609, t6655, t6660, t6676, t6705, t6706, t6748, t6774;
206   double t6791, t6812, t6871, t6873, t6883, t6895, t6930;
207 #endif
208 
209 #endif
210 
211 #endif
212 
213 #endif
214 
215 #endif
216 
217 
218   mgga_c_tpss_params *params;
219 
220   assert(p->params != NULL);
221   params = (mgga_c_tpss_params * )(p->params);
222 
223   t2 = params->C0_c[0];
224   t3 = 0.1e1 + t2;
225   t4 = 0.1e1 / rho[0];
226   t5 = sigma[0] * t4;
227   t6 = 0.1e1 / tau[0];
228   t8 = t5 * t6 / 0.8e1;
229   t9 = 0.1e1 < t8;
230   t10 = my_piecewise3(t9, 1, t8);
231   t11 = t10 * t10;
232   t12 = t3 * t11;
233   t13 = M_CBRT3;
234   t14 = 0.1e1 / M_PI;
235   t15 = POW_1_3(t14);
236   t16 = t13 * t15;
237   t17 = M_CBRT4;
238   t18 = t17 * t17;
239   t19 = POW_1_3(rho[0]);
240   t21 = t18 / t19;
241   t22 = t16 * t21;
242   t24 = 0.1e1 + 0.53425000000000000000e-1 * t22;
243   t25 = sqrt(t22);
244   t28 = POW_3_2(t22);
245   t30 = t13 * t13;
246   t31 = t15 * t15;
247   t32 = t30 * t31;
248   t33 = t19 * t19;
249   t35 = t17 / t33;
250   t36 = t32 * t35;
251   t38 = 0.37978500000000000000e1 * t25 + 0.89690000000000000000e0 * t22 + 0.20477500000000000000e0 * t28 + 0.12323500000000000000e0 * t36;
252   t41 = 0.1e1 + 0.16081979498692535067e2 / t38;
253   t42 = log(t41);
254   t43 = t24 * t42;
255   t45 = log(0.2e1);
256   t46 = 0.1e1 - t45;
257   t47 = M_PI * M_PI;
258   t48 = 0.1e1 / t47;
259   t49 = t46 * t48;
260   t50 = M_CBRT2;
261   t51 = sigma[0] * t50;
262   t52 = rho[0] * rho[0];
263   t54 = 0.1e1 / t19 / t52;
264   t58 = t30 / t15 * t17;
265   t59 = t51 * t54 * t58;
266   t61 = 0.1e1 / t46;
267   t62 = params->beta * t61;
268   t65 = exp(0.61370581910589784404e0 * t43 * t61);
269   t66 = t65 - 0.1e1;
270   t67 = 0.1e1 / t66;
271   t68 = t47 * t67;
272   t69 = sigma[0] * sigma[0];
273   t71 = t62 * t68 * t69;
274   t72 = t52 * t52;
275   t74 = 0.1e1 / t33 / t72;
276   t75 = t50 * t50;
277   t76 = t74 * t75;
278   t77 = 0.1e1 / t31;
279   t78 = t13 * t77;
280   t79 = t78 * t18;
281   t80 = t76 * t79;
282   t83 = t59 / 0.96e2 + t71 * t80 / 0.3072e4;
283   t84 = params->beta * t83;
284   t85 = t61 * t47;
285   t88 = t62 * t68 * t83 + 0.1e1;
286   t89 = 0.1e1 / t88;
287   t90 = t85 * t89;
288   t92 = t84 * t90 + 0.1e1;
289   t93 = log(t92);
290   t95 = -0.621814e-1 * t43 + t49 * t93;
291   t97 = t16 * t21 * t50;
292   t99 = 0.1e1 + 0.51370000000000000000e-1 * t97;
293   t100 = sqrt(t97);
294   t103 = POW_3_2(t97);
295   t106 = t32 * t35 * t75;
296   t108 = 0.70594500000000000000e1 * t100 + 0.15494250000000000000e1 * t97 + 0.42077500000000000000e0 * t103 + 0.15629250000000000000e0 * t106;
297   t111 = 0.1e1 + 0.32163958997385070134e2 / t108;
298   t112 = log(t111);
299   t113 = t99 * t112;
300   t118 = exp(0.61370581910589784405e0 * t113 * t61);
301   t119 = t118 - 0.1e1;
302   t120 = 0.1e1 / t119;
303   t121 = t47 * t120;
304   t123 = t62 * t121 * t69;
305   t126 = t59 / 0.48e2 + t123 * t80 / 0.768e3;
306   t127 = params->beta * t126;
307   t130 = t62 * t121 * t126 + 0.1e1;
308   t131 = 0.1e1 / t130;
309   t132 = t85 * t131;
310   t134 = t127 * t132 + 0.1e1;
311   t135 = log(t134);
312   t138 = -0.3109070e-1 * t113 + t49 * t135 / 0.2e1;
313   t139 = t95 < t138;
314   t140 = my_piecewise3(t139, t138, t95);
315   t143 = t2 * t11 + 0.1e1;
316   t145 = -t12 * t140 + t143 * t95;
317   t146 = params->d * t145;
318   t147 = t11 * t10;
319   t149 = t146 * t147 + 0.1e1;
320   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
321     zk[0] = t145 * t149;
322 
323 #ifndef XC_DONT_COMPILE_VXC
324 
325   if(order < 1) return;
326 
327 
328   t150 = t3 * t10;
329   t151 = 0.1e1 / t52;
330   t152 = sigma[0] * t151;
331   t155 = my_piecewise3(t9, 0, -t152 * t6 / 0.8e1);
332   t159 = t16 * t18;
333   t161 = 0.1e1 / t19 / rho[0];
334   t162 = t161 * t50;
335   t166 = t108 * t108;
336   t167 = 0.1e1 / t166;
337   t168 = t99 * t167;
338   t171 = 0.1e1 / t100 * t13 * t15;
339   t172 = t18 * t161;
340   t173 = t172 * t50;
341   t176 = t16 * t173;
342   t178 = sqrt(t97);
343   t180 = t178 * t13 * t15;
344   t185 = t17 / t33 / rho[0];
345   t189 = -0.11765750000000000000e1 * t171 * t173 - 0.51647500000000000000e0 * t176 - 0.21038750000000000000e0 * t180 * t173 - 0.10419500000000000000e0 * t32 * t185 * t75;
346   t190 = 0.1e1 / t111;
347   t191 = t189 * t190;
348   t194 = t52 * rho[0];
349   t196 = 0.1e1 / t19 / t194;
350   t198 = t51 * t196 * t58;
351   t200 = t62 * t47;
352   t201 = t119 * t119;
353   t202 = 0.1e1 / t201;
354   t205 = t200 * t202 * t69 * t75;
355   t206 = t74 * t13;
356   t207 = t206 * t77;
357   t208 = t112 * t61;
358   t212 = t191 * t61;
359   t215 = -0.10508689309156657416e-1 * t159 * t162 * t208 - 0.19739208802178717239e2 * t168 * t212;
360   t216 = t18 * t215;
361   t217 = t216 * t118;
362   t218 = t207 * t217;
363   t221 = t72 * rho[0];
364   t223 = 0.1e1 / t33 / t221;
365   t224 = t75 * t223;
366   t225 = t224 * t79;
367   t228 = -0.7e1 / 0.144e3 * t198 - t205 * t218 / 0.768e3 - 0.7e1 / 0.1152e4 * t123 * t225;
368   t229 = params->beta * t228;
369   t231 = t127 * t61;
370   t232 = t130 * t130;
371   t233 = 0.1e1 / t232;
372   t234 = t47 * t233;
373   t235 = t202 * t126;
374   t236 = t215 * t118;
375   t241 = t62 * t121 * t228 - t200 * t235 * t236;
376   t242 = t234 * t241;
377   t244 = t229 * t132 - t231 * t242;
378   t245 = 0.1e1 / t134;
379   t253 = t38 * t38;
380   t254 = 0.1e1 / t253;
381   t255 = t24 * t254;
382   t257 = 0.1e1 / t25 * t13;
383   t258 = t15 * t18;
384   t259 = t258 * t161;
385   t262 = t16 * t172;
386   t264 = sqrt(t22);
387   t265 = t264 * t13;
388   t270 = -0.63297500000000000000e0 * t257 * t259 - 0.29896666666666666667e0 * t262 - 0.10238750000000000000e0 * t265 * t259 - 0.82156666666666666667e-1 * t32 * t185;
389   t271 = 0.1e1 / t41;
390   t272 = t270 * t271;
391   t276 = t66 * t66;
392   t277 = 0.1e1 / t276;
393   t278 = t277 * t69;
394   t280 = t200 * t278 * t74;
395   t281 = t75 * t13;
396   t282 = t281 * t77;
397   t290 = -0.10929077795244197439e-1 * t159 * t161 * t42 * t61 - 0.98696044010893586193e1 * t255 * t272 * t61;
398   t291 = t18 * t290;
399   t293 = t282 * t291 * t65;
400   t298 = -0.7e1 / 0.288e3 * t198 - t280 * t293 / 0.3072e4 - 0.7e1 / 0.4608e4 * t71 * t225;
401   t299 = params->beta * t298;
402   t301 = t84 * t61;
403   t302 = t88 * t88;
404   t303 = 0.1e1 / t302;
405   t304 = t47 * t303;
406   t305 = t277 * t83;
407   t306 = t290 * t65;
408   t311 = -t200 * t305 * t306 + t62 * t68 * t298;
409   t312 = t304 * t311;
410   t314 = t299 * t90 - t301 * t312;
411   t315 = 0.1e1 / t92;
412   t318 = 0.11073470983333333333e-2 * t16 * t172 * t42 + 0.10000000000000000000e1 * t255 * t272 + t49 * t314 * t315;
413   t319 = my_piecewise3(t139, 0.53237641966666666666e-3 * t159 * t162 * t112 + 0.10000000000000000000e1 * t168 * t191 + t49 * t244 * t245 / 0.2e1, t318);
414   t321 = t2 * t10;
415   t326 = -0.2e1 * t150 * t140 * t155 + 0.2e1 * t321 * t155 * t95 - t12 * t319 + t143 * t318;
416   t327 = rho[0] * t326;
417   t329 = rho[0] * t145;
418   t330 = params->d * t326;
419   t332 = t11 * t155;
420   t335 = 0.3e1 * t146 * t332 + t330 * t147;
421   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
422     vrho[0] = t327 * t149 + t329 * t335 + (t145 * t149);
423 
424   t339 = my_piecewise3(t9, 0, t4 * t6 / 0.8e1);
425   t340 = t140 * t339;
426   t343 = t50 * t54;
427   t344 = t343 * t58;
428   t347 = t62 * t121 * sigma[0];
429   t350 = t344 / 0.48e2 + t347 * t80 / 0.384e3;
430   t351 = params->beta * t350;
431   t353 = params->beta * params->beta;
432   t354 = t353 * t126;
433   t355 = t46 * t46;
434   t356 = 0.1e1 / t355;
435   t357 = t354 * t356;
436   t358 = t47 * t47;
437   t359 = t358 * t233;
438   t361 = t359 * t120 * t350;
439   t363 = t351 * t132 - t357 * t361;
440   t369 = t62 * t68 * sigma[0];
441   t372 = t344 / 0.96e2 + t369 * t80 / 0.1536e4;
442   t373 = params->beta * t372;
443   t375 = t353 * t83;
444   t376 = t375 * t356;
445   t377 = t358 * t303;
446   t379 = t377 * t67 * t372;
447   t381 = t373 * t90 - t376 * t379;
448   t383 = t49 * t381 * t315;
449   t384 = my_piecewise3(t139, t49 * t363 * t245 / 0.2e1, t383);
450   t386 = t339 * t95;
451   t389 = t143 * t46;
452   t390 = t48 * t381;
453   t391 = t390 * t315;
454   t393 = -t12 * t384 - 0.2e1 * t150 * t340 + 0.2e1 * t321 * t386 + t389 * t391;
455   t394 = rho[0] * t393;
456   t396 = params->d * t393;
457   t398 = t11 * t339;
458   t401 = 0.3e1 * t146 * t398 + t396 * t147;
459   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
460     vsigma[0] = t394 * t149 + t329 * t401;
461 
462   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
463     vlapl[0] = 0.0e0;
464 
465   t403 = tau[0] * tau[0];
466   t404 = 0.1e1 / t403;
467   t407 = my_piecewise3(t9, 0, -t5 * t404 / 0.8e1);
468   t408 = t140 * t407;
469   t410 = t407 * t95;
470   t413 = -0.2e1 * t150 * t408 + 0.2e1 * t321 * t410;
471   t414 = rho[0] * t413;
472   t416 = params->d * t413;
473   t418 = t11 * t407;
474   t421 = 0.3e1 * t146 * t418 + t416 * t147;
475   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
476     vtau[0] = t414 * t149 + t329 * t421;
477 
478 #ifndef XC_DONT_COMPILE_FXC
479 
480   if(order < 2) return;
481 
482 
483   t427 = t155 * t155;
484   t428 = t3 * t427;
485   t434 = 0.1e1 / t194;
486   t435 = sigma[0] * t434;
487   t438 = my_piecewise3(t9, 0, t435 * t6 / 0.4e1);
488   t439 = t140 * t438;
489   t445 = t50 * t167;
490   t446 = t445 * t191;
491   t449 = t166 * t108;
492   t450 = 0.1e1 / t449;
493   t451 = t99 * t450;
494   t452 = t189 * t189;
495   t453 = t452 * t190;
496   t459 = 0.1e1 / t100 / t97 * t30 * t31;
497   t461 = 0.1e1 / t33 / t52;
498   t462 = t17 * t461;
499   t463 = t462 * t75;
500   t466 = t18 * t54;
501   t467 = t466 * t50;
502   t472 = 0.1e1/sqrt(t97);
503   t474 = t472 * t30 * t31;
504   t481 = -0.78438333333333333333e0 * t459 * t463 + 0.15687666666666666667e1 * t171 * t467 + 0.68863333333333333333e0 * t16 * t467 + 0.14025833333333333333e0 * t474 * t463 + 0.28051666666666666667e0 * t180 * t467 + 0.17365833333333333333e0 * t32 * t463;
505   t482 = t481 * t190;
506   t485 = t166 * t166;
507   t486 = 0.1e1 / t485;
508   t487 = t99 * t486;
509   t488 = t111 * t111;
510   t489 = 0.1e1 / t488;
511   t490 = t452 * t489;
512   t494 = 0.1e1 / t19 / t72;
513   t496 = t51 * t494 * t58;
514   t499 = 0.1e1 / t201 / t119;
515   t502 = t200 * t499 * t69 * t75;
516   t503 = t215 * t215;
517   t504 = t18 * t503;
518   t505 = t118 * t118;
519   t506 = t504 * t505;
520   t507 = t207 * t506;
521   t510 = t223 * t13;
522   t511 = t510 * t77;
523   t512 = t511 * t217;
524   t518 = t445 * t212;
525   t521 = t453 * t61;
526   t524 = t482 * t61;
527   t527 = t490 * t61;
528   t530 = 0.14011585745542209888e-1 * t159 * t343 * t208 + 0.67600210411194713636e0 * t262 * t518 + 0.39478417604357434478e2 * t451 * t521 - 0.19739208802178717239e2 * t168 * t524 - 0.63489110255409872532e3 * t487 * t527;
529   t531 = t18 * t530;
530   t532 = t531 * t118;
531   t533 = t207 * t532;
532   t536 = t504 * t118;
533   t537 = t207 * t536;
534   t540 = t72 * t52;
535   t542 = 0.1e1 / t33 / t540;
536   t544 = t75 * t542 * t79;
537   t547 = 0.35e2 / 0.216e3 * t496 + t502 * t507 / 0.384e3 + 0.7e1 / 0.576e3 * t205 * t512 - t205 * t533 / 0.768e3 - t205 * t537 / 0.768e3 + 0.119e3 / 0.3456e4 * t123 * t544;
538   t548 = params->beta * t547;
539   t550 = t229 * t61;
540   t554 = 0.1e1 / t232 / t130;
541   t555 = t47 * t554;
542   t556 = t241 * t241;
543   t557 = t555 * t556;
544   t560 = t499 * t126;
545   t561 = t503 * t505;
546   t565 = t202 * t228;
547   t569 = t530 * t118;
548   t572 = t503 * t118;
549   t577 = t62 * t121 * t547 - t200 * t235 * t569 - t200 * t235 * t572 - 0.2e1 * t200 * t565 * t236 + 0.2e1 * t200 * t560 * t561;
550   t578 = t234 * t577;
551   t580 = t548 * t132 + 0.2e1 * t231 * t557 - t231 * t578 - 0.2e1 * t550 * t242;
552   t584 = t244 * t244;
553   t585 = t134 * t134;
554   t586 = 0.1e1 / t585;
555   t594 = t161 * t254;
556   t598 = t253 * t38;
557   t599 = 0.1e1 / t598;
558   t600 = t24 * t599;
559   t601 = t270 * t270;
560   t602 = t601 * t271;
561   t607 = 0.1e1 / t25 / t22 * t30;
562   t608 = t31 * t17;
563   t609 = t608 * t461;
564   t612 = t258 * t54;
565   t615 = t16 * t466;
566   t617 = 0.1e1/sqrt(t22);
567   t618 = t617 * t30;
568   t625 = -0.42198333333333333333e0 * t607 * t609 + 0.84396666666666666666e0 * t257 * t612 + 0.39862222222222222223e0 * t615 + 0.68258333333333333333e-1 * t618 * t609 + 0.13651666666666666667e0 * t265 * t612 + 0.13692777777777777778e0 * t32 * t462;
569   t626 = t625 * t271;
570   t629 = t253 * t253;
571   t630 = 0.1e1 / t629;
572   t631 = t24 * t630;
573   t632 = t41 * t41;
574   t633 = 0.1e1 / t632;
575   t634 = t601 * t633;
576   t639 = 0.1e1 / t276 / t66;
577   t640 = t639 * t69;
578   t642 = t200 * t640 * t74;
579   t643 = t290 * t290;
580   t644 = t18 * t643;
581   t645 = t65 * t65;
582   t647 = t282 * t644 * t645;
583   t651 = t200 * t278 * t223;
584   t659 = t271 * t61;
585   t660 = t254 * t270 * t659;
586   t666 = t626 * t61;
587   t672 = 0.14572103726992263252e-1 * t159 * t54 * t42 * t61 + 0.35152241008546598948e0 * t262 * t660 + 0.19739208802178717239e2 * t600 * t602 * t61 - 0.98696044010893586193e1 * t255 * t666 - 0.15872277563852468133e3 * t631 * t634 * t61;
588   t673 = t18 * t672;
589   t675 = t282 * t673 * t65;
590   t679 = t282 * t644 * t65;
591   t684 = 0.35e2 / 0.432e3 * t496 + t642 * t647 / 0.1536e4 + 0.7e1 / 0.2304e4 * t651 * t293 - t280 * t675 / 0.3072e4 - t280 * t679 / 0.3072e4 + 0.119e3 / 0.13824e5 * t71 * t544;
592   t685 = params->beta * t684;
593   t687 = t299 * t61;
594   t691 = 0.1e1 / t302 / t88;
595   t692 = t47 * t691;
596   t693 = t311 * t311;
597   t694 = t692 * t693;
598   t697 = t639 * t83;
599   t698 = t643 * t645;
600   t702 = t277 * t298;
601   t706 = t672 * t65;
602   t709 = t643 * t65;
603   t714 = -t200 * t305 * t706 - t200 * t305 * t709 - 0.2e1 * t200 * t702 * t306 + 0.2e1 * t200 * t697 * t698 + t62 * t68 * t684;
604   t715 = t304 * t714;
605   t717 = 0.2e1 * t301 * t694 - t301 * t715 - 0.2e1 * t687 * t312 + t685 * t90;
606   t720 = t314 * t314;
607   t721 = t92 * t92;
608   t722 = 0.1e1 / t721;
609   t725 = -0.14764627977777777777e-2 * t16 * t466 * t42 - 0.35616666666666666666e-1 * t159 * t594 * t272 - 0.20000000000000000000e1 * t600 * t602 + 0.10000000000000000000e1 * t255 * t626 + 0.16081979498692535067e2 * t631 * t634 + t49 * t717 * t315 - t49 * t720 * t722;
610   t726 = my_piecewise3(t139, -0.70983522622222222221e-3 * t159 * t343 * t112 - 0.34246666666666666666e-1 * t262 * t446 - 0.20000000000000000000e1 * t451 * t453 + 0.10000000000000000000e1 * t168 * t482 + 0.32163958997385070134e2 * t487 * t490 + t49 * t580 * t245 / 0.2e1 - t49 * t584 * t586 / 0.2e1, t725);
611   t728 = t2 * t427;
612   t731 = t438 * t95;
613   t738 = -0.4e1 * t150 * t319 * t155 + 0.4e1 * t321 * t155 * t318 - t12 * t726 - 0.2e1 * t428 * t140 + t143 * t725 - 0.2e1 * t150 * t439 + 0.2e1 * t321 * t731 + 0.2e1 * t728 * t95;
614   t739 = rho[0] * t738;
615   t743 = params->d * t738;
616   t747 = t10 * t427;
617   t750 = t11 * t438;
618   t753 = 0.6e1 * t146 * t747 + 0.3e1 * t146 * t750 + t743 * t147 + 0.6e1 * t330 * t332;
619   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
620     v2rho2[0] = 0.2e1 * t145 * t335 + 0.2e1 * t326 * t149 + t739 * t149 + 0.2e1 * t327 * t335 + t329 * t753;
621 
622   t756 = t3 * t155;
623   t759 = t319 * t339;
624   t764 = my_piecewise3(t9, 0, -t151 * t6 / 0.8e1);
625   t765 = t140 * t764;
626   t771 = t50 * t196;
627   t772 = t771 * t58;
628   t776 = t200 * t202 * sigma[0] * t75;
629   t781 = -0.7e1 / 0.144e3 * t772 - t776 * t218 / 0.384e3 - 0.7e1 / 0.576e3 * t347 * t225;
630   t782 = params->beta * t781;
631   t784 = t351 * t61;
632   t786 = t353 * t228;
633   t787 = t786 * t356;
634   t789 = t356 * t358;
635   t790 = t354 * t789;
636   t791 = t554 * t120;
637   t792 = t350 * t241;
638   t793 = t791 * t792;
639   t796 = t233 * t202;
640   t799 = t796 * t350 * t215 * t118;
641   t802 = t359 * t120 * t781;
642   t804 = t782 * t132 - t784 * t242 - t357 * t802 - t787 * t361 + 0.2e1 * t790 * t793 + t790 * t799;
643   t807 = t363 * t586;
644   t813 = t277 * sigma[0];
645   t815 = t200 * t813 * t74;
646   t820 = -0.7e1 / 0.288e3 * t772 - t815 * t293 / 0.1536e4 - 0.7e1 / 0.2304e4 * t369 * t225;
647   t821 = params->beta * t820;
648   t823 = t373 * t61;
649   t825 = t353 * t298;
650   t826 = t825 * t356;
651   t828 = t375 * t789;
652   t829 = t691 * t67;
653   t830 = t372 * t311;
654   t831 = t829 * t830;
655   t834 = t303 * t277;
656   t837 = t834 * t372 * t290 * t65;
657   t840 = t377 * t67 * t820;
658   t842 = -t823 * t312 - t376 * t840 - t826 * t379 + t821 * t90 + 0.2e1 * t828 * t831 + t828 * t837;
659   t844 = t49 * t842 * t315;
660   t845 = t381 * t722;
661   t846 = t845 * t314;
662   t849 = my_piecewise3(t139, -t49 * t807 * t244 / 0.2e1 + t49 * t804 * t245 / 0.2e1, -t49 * t846 + t844);
663   t851 = t2 * t155;
664   t854 = t764 * t95;
665   t857 = t339 * t318;
666   t860 = t321 * t155;
667   t863 = t48 * t842;
668   t864 = t863 * t315;
669   t866 = t389 * t48;
670   t868 = -0.2e1 * t150 * t384 * t155 - t12 * t849 - 0.2e1 * t150 * t759 - 0.2e1 * t150 * t765 + 0.2e1 * t321 * t854 + 0.2e1 * t321 * t857 - 0.2e1 * t756 * t340 + 0.2e1 * t860 * t383 + 0.2e1 * t851 * t386 + t389 * t864 - t866 * t846;
671   t869 = rho[0] * t868;
672   t874 = params->d * t868;
673   t880 = t10 * t339;
674   t881 = t880 * t155;
675   t884 = t11 * t764;
676   t887 = 0.6e1 * t146 * t881 + 0.3e1 * t146 * t884 + t874 * t147 + 0.3e1 * t330 * t398 + 0.3e1 * t396 * t332;
677   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
678     v2rhosigma[0] = t145 * t401 + t393 * t149 + t869 * t149 + t327 * t401 + t329 * t887 + t394 * t335;
679 
680   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
681     v2rholapl[0] = 0.0e0;
682 
683   t891 = t319 * t407;
684   t895 = my_piecewise3(t9, 0, t152 * t404 / 0.8e1);
685   t896 = t140 * t895;
686   t899 = t895 * t95;
687   t901 = t407 * t318;
688   t904 = -0.2e1 * t150 * t891 - 0.2e1 * t150 * t896 + 0.2e1 * t321 * t899 + 0.2e1 * t321 * t901 - 0.2e1 * t756 * t408 + 0.2e1 * t851 * t410;
689   t905 = rho[0] * t904;
690   t910 = params->d * t904;
691   t916 = t10 * t407;
692   t917 = t916 * t155;
693   t920 = t11 * t895;
694   t923 = 0.6e1 * t146 * t917 + 0.3e1 * t146 * t920 + t910 * t147 + 0.3e1 * t330 * t418 + 0.3e1 * t416 * t332;
695   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
696     v2rhotau[0] = t145 * t421 + t413 * t149 + t905 * t149 + t327 * t421 + t329 * t923 + t414 * t335;
697 
698   t925 = t339 * t339;
699   t926 = t3 * t925;
700   t929 = t384 * t339;
701   t932 = my_piecewise3(t9, 0, 0);
702   t933 = t140 * t932;
703   t935 = 0.2e1 * t150 * t933;
704   t936 = t353 * t356;
705   t939 = t936 * t358 * t120 * t75;
706   t940 = t77 * t18;
707   t941 = t940 * t131;
708   t945 = t350 * t350;
709   t946 = t353 * t945;
710   t947 = t946 * t356;
711   t948 = t359 * t120;
712   t951 = t353 * params->beta;
713   t952 = t951 * t126;
714   t954 = 0.1e1 / t355 / t46;
715   t955 = t952 * t954;
716   t956 = t358 * t47;
717   t957 = t956 * t554;
718   t959 = t957 * t202 * t945;
719   t962 = t954 * t956;
720   t963 = t962 * t233;
721   t964 = t952 * t963;
722   t965 = t202 * t75;
723   t966 = t965 * t74;
724   t967 = t966 * t79;
725   t970 = t939 * t206 * t941 / 0.384e3 - 0.2e1 * t947 * t948 + 0.2e1 * t955 * t959 - t964 * t967 / 0.384e3;
726   t973 = t363 * t363;
727   t978 = t358 * t67;
728   t980 = t936 * t978 * t74;
729   t982 = t281 * t940 * t89;
730   t985 = t372 * t372;
731   t986 = t353 * t985;
732   t987 = t986 * t356;
733   t988 = t377 * t67;
734   t991 = t951 * t83;
735   t992 = t991 * t954;
736   t993 = t956 * t691;
737   t995 = t993 * t277 * t985;
738   t998 = t962 * t303;
739   t999 = t991 * t998;
740   t1001 = t277 * t74 * t75;
741   t1002 = t1001 * t79;
742   t1005 = t980 * t982 / 0.1536e4 - 0.2e1 * t987 * t988 + 0.2e1 * t992 * t995 - t999 * t1002 / 0.1536e4;
743   t1007 = t49 * t1005 * t315;
744   t1008 = t381 * t381;
745   t1010 = t49 * t1008 * t722;
746   t1012 = my_piecewise3(t139, t49 * t970 * t245 / 0.2e1 - t49 * t973 * t586 / 0.2e1, t1007 - t1010);
747   t1014 = t2 * t925;
748   t1017 = t932 * t95;
749   t1019 = 0.2e1 * t321 * t1017;
750   t1020 = t321 * t339;
751   t1023 = t48 * t1005;
752   t1024 = t1023 * t315;
753   t1026 = t48 * t1008;
754   t1027 = t1026 * t722;
755   t1029 = -t12 * t1012 + 0.2e1 * t1014 * t95 + 0.4e1 * t1020 * t383 + t389 * t1024 - t389 * t1027 - 0.2e1 * t926 * t140 - 0.4e1 * t150 * t929 + t1019 - t935;
756   t1030 = rho[0] * t1029;
757   t1034 = params->d * t1029;
758   t1038 = t10 * t925;
759   t1041 = t11 * t932;
760   t1043 = 0.3e1 * t146 * t1041;
761   t1044 = t1034 * t147 + 0.6e1 * t146 * t1038 + 0.6e1 * t396 * t398 + t1043;
762   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
763     v2sigma2[0] = t1030 * t149 + t329 * t1044 + 0.2e1 * t394 * t401;
764 
765   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
766     v2sigmalapl[0] = 0.0e0;
767 
768   t1046 = t3 * t339;
769   t1048 = t384 * t407;
770   t1052 = my_piecewise3(t9, 0, -t4 * t404 / 0.8e1);
771   t1053 = t140 * t1052;
772   t1055 = t2 * t339;
773   t1057 = t1052 * t95;
774   t1059 = t321 * t407;
775   t1062 = -0.2e1 * t1046 * t408 - 0.2e1 * t150 * t1048 - 0.2e1 * t150 * t1053 + 0.2e1 * t1055 * t410 + 0.2e1 * t321 * t1057 + 0.2e1 * t1059 * t383;
776   t1063 = rho[0] * t1062;
777   t1067 = params->d * t1062;
778   t1073 = t916 * t339;
779   t1076 = t11 * t1052;
780   t1079 = t1067 * t147 + 0.6e1 * t146 * t1073 + 0.3e1 * t146 * t1076 + 0.3e1 * t396 * t418 + 0.3e1 * t416 * t398;
781   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
782     v2sigmatau[0] = t1063 * t149 + t329 * t1079 + t394 * t421 + t414 * t401;
783 
784   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
785     v2lapl2[0] = 0.0e0;
786 
787   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
788     v2lapltau[0] = 0.0e0;
789 
790   t1081 = t407 * t407;
791   t1082 = t3 * t1081;
792   t1085 = 0.1e1 / t403 / tau[0];
793   t1088 = my_piecewise3(t9, 0, t5 * t1085 / 0.4e1);
794   t1089 = t140 * t1088;
795   t1091 = t2 * t1081;
796   t1093 = t1088 * t95;
797   t1096 = -0.2e1 * t1082 * t140 - 0.2e1 * t150 * t1089 + 0.2e1 * t1091 * t95 + 0.2e1 * t321 * t1093;
798   t1097 = rho[0] * t1096;
799   t1101 = params->d * t1096;
800   t1105 = t10 * t1081;
801   t1108 = t11 * t1088;
802   t1111 = t1101 * t147 + 0.6e1 * t146 * t1105 + 0.3e1 * t146 * t1108 + 0.6e1 * t416 * t418;
803   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
804     v2tau2[0] = t1097 * t149 + t329 * t1111 + 0.2e1 * t414 * t421;
805 
806 #ifndef XC_DONT_COMPILE_KXC
807 
808   if(order < 3) return;
809 
810 
811   t1126 = t319 * t438;
812   t1129 = 0.1e1 / t72;
813   t1130 = sigma[0] * t1129;
814   t1133 = my_piecewise3(t9, 0, -0.3e1 / 0.4e1 * t1130 * t6);
815   t1134 = t140 * t1133;
816   t1142 = t50 * t450;
817   t1143 = t1142 * t453;
818   t1146 = t445 * t482;
819   t1149 = t50 * t486;
820   t1150 = t1149 * t490;
821   t1153 = t452 * t189;
822   t1154 = t1153 * t190;
823   t1157 = t191 * t481;
824   t1161 = 0.1e1 / t485 / t108;
825   t1162 = t99 * t1161;
826   t1163 = t1153 * t489;
827   t1169 = 0.1e1 / t100 / t106 * t14 / 0.4e1;
828   t1173 = 0.1e1 / t33 / t194;
829   t1174 = t17 * t1173;
830   t1175 = t1174 * t75;
831   t1178 = t18 * t196;
832   t1179 = t1178 * t50;
833   t1184 = 0.1e1/POW_3_2(t97);
834   t1185 = t1184 * t14;
835   t1194 = -0.94126000000000000000e1 * t1169 * t1129 + 0.31375333333333333334e1 * t459 * t1175 - 0.36604555555555555556e1 * t171 * t1179 - 0.16068111111111111111e1 * t16 * t1179 + 0.56103333333333333332e0 * t1185 * t1129 - 0.56103333333333333332e0 * t474 * t1175 - 0.65453888888888888890e0 * t180 * t1179 - 0.46308888888888888888e0 * t32 * t1175;
836   t1195 = t1194 * t190;
837   t1199 = t481 * t489 * t189;
838   t1203 = 0.1e1 / t485 / t166;
839   t1204 = t99 * t1203;
840   t1206 = 0.1e1 / t488 / t111;
841   t1207 = t1153 * t1206;
842   t1211 = 0.1e1 / t19 / t221;
843   t1213 = t51 * t1211 * t58;
844   t1215 = t201 * t201;
845   t1216 = 0.1e1 / t1215;
846   t1219 = t200 * t1216 * t69 * t75;
847   t1220 = t503 * t215;
848   t1221 = t18 * t1220;
849   t1222 = t505 * t118;
850   t1223 = t1221 * t1222;
851   t1224 = t207 * t1223;
852   t1227 = t511 * t506;
853   t1230 = t505 * t530;
854   t1231 = t216 * t1230;
855   t1232 = t207 * t1231;
856   t1235 = t1221 * t505;
857   t1236 = t207 * t1235;
858   t1239 = t542 * t13;
859   t1240 = t1239 * t77;
860   t1241 = t1240 * t217;
861   t1244 = t511 * t532;
862   t1247 = t511 * t536;
863   t1255 = t1142 * t521;
864   t1258 = t445 * t524;
865   t1261 = t1149 * t527;
866   t1264 = t1154 * t61;
867   t1267 = t451 * t189;
868   t1270 = t1163 * t61;
869   t1273 = t1195 * t61;
870   t1277 = t489 * t61;
871   t1278 = t1277 * t189;
872   t1281 = t1207 * t61;
873   t1284 = -0.32693700072931823072e-1 * t159 * t771 * t208 - 0.13520042082238942727e1 * t615 * t518 - 0.20280063123358414091e1 * t262 * t1255 + 0.10140031561679207045e1 * t262 * t1258 + 0.32614355938204051519e2 * t262 * t1261 - 0.11843525281307230343e3 * t487 * t1264 + 0.11843525281307230343e3 * t1267 * t524 + 0.38093466153245923519e4 * t1162 * t1270 - 0.19739208802178717239e2 * t168 * t1273 - 0.19046733076622961759e4 * t487 * t481 * t1278 - 0.40841222780709261955e5 * t1204 * t1281;
874   t1285 = t18 * t1284;
875   t1286 = t1285 * t118;
876   t1287 = t207 * t1286;
877   t1290 = t531 * t236;
878   t1291 = t207 * t1290;
879   t1294 = t1221 * t118;
880   t1295 = t207 * t1294;
881   t1300 = 0.1e1 / t33 / t72 / t194;
882   t1302 = t75 * t1300 * t79;
883   t1305 = -0.455e3 / 0.648e3 * t1213 - t1219 * t1224 / 0.128e3 - 0.7e1 / 0.192e3 * t502 * t1227 + t502 * t1232 / 0.128e3 + t502 * t1236 / 0.128e3 - 0.119e3 / 0.1152e4 * t205 * t1241 + 0.7e1 / 0.384e3 * t205 * t1244 + 0.7e1 / 0.384e3 * t205 * t1247 - t205 * t1287 / 0.768e3 - t205 * t1291 / 0.256e3 - t205 * t1295 / 0.768e3 - 0.595e3 / 0.2592e4 * t123 * t1302;
884   t1306 = params->beta * t1305;
885   t1308 = t548 * t61;
886   t1315 = t232 * t232;
887   t1316 = 0.1e1 / t1315;
888   t1317 = t47 * t1316;
889   t1318 = t556 * t241;
890   t1319 = t1317 * t1318;
891   t1323 = t555 * t241 * t577;
892   t1326 = t1216 * t126;
893   t1327 = t1220 * t1222;
894   t1331 = t499 * t228;
895   t1336 = t62 * t47 * t499;
896   t1337 = t126 * t215;
897   t1341 = t1220 * t505;
898   t1345 = t202 * t547;
899   t1355 = t1284 * t118;
900   t1359 = t62 * t47 * t202;
901   t1360 = t126 * t530;
902   t1364 = t1220 * t118;
903   t1369 = t62 * t121 * t1305 + 0.6e1 * t1336 * t1337 * t1230 - 0.6e1 * t200 * t1326 * t1327 + 0.6e1 * t200 * t1331 * t561 + 0.6e1 * t200 * t560 * t1341 - 0.3e1 * t200 * t1345 * t236 - t200 * t235 * t1355 - 0.3e1 * t1359 * t1360 * t236 - t200 * t235 * t1364 - 0.3e1 * t200 * t565 * t569 - 0.3e1 * t200 * t565 * t572;
904   t1370 = t234 * t1369;
905   t1372 = t1306 * t132 - 0.3e1 * t1308 * t242 - 0.6e1 * t231 * t1319 + 0.6e1 * t231 * t1323 - t231 * t1370 + 0.6e1 * t550 * t557 - 0.3e1 * t550 * t578;
906   t1380 = t584 * t244;
907   t1382 = 0.1e1 / t585 / t134;
908   t1385 = 0.16562821945185185185e-2 * t159 * t771 * t112 + 0.68493333333333333332e-1 * t615 * t446 + 0.10274000000000000000e0 * t262 * t1143 - 0.51369999999999999999e-1 * t262 * t1146 - 0.16522625736956710527e1 * t262 * t1150 + 0.60000000000000000000e1 * t487 * t1154 - 0.60000000000000000000e1 * t451 * t1157 - 0.19298375398431042081e3 * t1162 * t1163 + 0.10000000000000000000e1 * t168 * t1195 + 0.96491876992155210402e2 * t487 * t1199 + 0.20690405167709360120e4 * t1204 * t1207 + t49 * t1372 * t245 / 0.2e1 - 0.3e1 / 0.2e1 * t49 * t580 * t586 * t244 + t49 * t1380 * t1382;
909   t1389 = t54 * t254;
910   t1400 = t161 * t630;
911   t1404 = t601 * t270;
912   t1405 = t1404 * t271;
913   t1412 = 0.1e1 / t629 / t38;
914   t1413 = t24 * t1412;
915   t1414 = t1404 * t633;
916   t1420 = 0.1e1 / t25 / t36 * t14 / 0.4e1;
917   t1423 = t608 * t1173;
918   t1426 = t258 * t196;
919   t1429 = t16 * t1178;
920   t1431 = 0.1e1/POW_3_2(t22);
921   t1432 = t1431 * t14;
922   t1441 = -0.25319000000000000000e1 * t1420 * t1129 + 0.16879333333333333333e1 * t607 * t1423 - 0.19692555555555555555e1 * t257 * t1426 - 0.93011851851851851854e0 * t1429 + 0.13651666666666666667e0 * t1432 * t1129 - 0.27303333333333333333e0 * t618 * t1423 - 0.31853888888888888890e0 * t265 * t1426 - 0.36514074074074074075e0 * t32 * t1174;
923   t1442 = t1441 * t271;
924   t1450 = 0.1e1 / t629 / t253;
925   t1451 = t24 * t1450;
926   t1453 = 0.1e1 / t632 / t41;
927   t1454 = t1404 * t1453;
928   t1458 = t276 * t276;
929   t1459 = 0.1e1 / t1458;
930   t1460 = t1459 * t69;
931   t1462 = t200 * t1460 * t74;
932   t1463 = t643 * t290;
933   t1464 = t18 * t1463;
934   t1465 = t645 * t65;
935   t1467 = t282 * t1464 * t1465;
936   t1471 = t200 * t640 * t223;
937   t1474 = t645 * t672;
938   t1476 = t282 * t291 * t1474;
939   t1480 = t282 * t1464 * t645;
940   t1484 = t200 * t278 * t542;
941   t1498 = t599 * t601 * t659;
942   t1502 = t254 * t625 * t659;
943   t1506 = t633 * t61;
944   t1507 = t630 * t601 * t1506;
945   t1513 = t600 * t270;
946   t1519 = t1442 * t61;
947   t1523 = t1506 * t270;
948   t1529 = -0.34001575362981947588e-1 * t159 * t196 * t42 * t61 - 0.70304482017093197896e0 * t615 * t660 - 0.10545672302563979684e1 * t262 * t1498 + 0.52728361512819898422e0 * t262 * t1502 + 0.84797642884881810997e1 * t262 * t1507 - 0.59217626406536151717e2 * t631 * t1405 * t61 + 0.59217626406536151717e2 * t1513 * t666 + 0.95233665383114808798e3 * t1413 * t1414 * t61 - 0.98696044010893586193e1 * t255 * t1519 - 0.47616832691557404399e3 * t631 * t625 * t1523 - 0.51051528475886577444e4 * t1451 * t1454 * t61;
949   t1530 = t18 * t1529;
950   t1532 = t282 * t1530 * t65;
951   t1536 = t282 * t673 * t306;
952   t1540 = t282 * t1464 * t65;
953   t1545 = -0.455e3 / 0.1296e4 * t1213 - t1462 * t1467 / 0.512e3 - 0.7e1 / 0.768e3 * t1471 * t647 + t642 * t1476 / 0.512e3 + t642 * t1480 / 0.512e3 - 0.119e3 / 0.4608e4 * t1484 * t293 + 0.7e1 / 0.1536e4 * t651 * t675 + 0.7e1 / 0.1536e4 * t651 * t679 - t280 * t1532 / 0.3072e4 - t280 * t1536 / 0.1024e4 - t280 * t1540 / 0.3072e4 - 0.595e3 / 0.10368e5 * t71 * t1302;
954   t1546 = params->beta * t1545;
955   t1548 = t685 * t61;
956   t1555 = t302 * t302;
957   t1556 = 0.1e1 / t1555;
958   t1557 = t47 * t1556;
959   t1558 = t693 * t311;
960   t1559 = t1557 * t1558;
961   t1563 = t692 * t311 * t714;
962   t1566 = t1459 * t83;
963   t1567 = t1463 * t1465;
964   t1571 = t639 * t298;
965   t1576 = t62 * t47 * t639;
966   t1577 = t83 * t290;
967   t1581 = t1463 * t645;
968   t1585 = t277 * t684;
969   t1595 = t1529 * t65;
970   t1599 = t62 * t47 * t277;
971   t1600 = t83 * t672;
972   t1604 = t1463 * t65;
973   t1609 = 0.6e1 * t1576 * t1577 * t1474 + t62 * t68 * t1545 - 0.6e1 * t200 * t1566 * t1567 + 0.6e1 * t200 * t1571 * t698 + 0.6e1 * t200 * t697 * t1581 - 0.3e1 * t200 * t1585 * t306 - t200 * t305 * t1595 - 0.3e1 * t1599 * t1600 * t306 - t200 * t305 * t1604 - 0.3e1 * t200 * t702 * t706 - 0.3e1 * t200 * t702 * t709;
974   t1610 = t304 * t1609;
975   t1612 = t1546 * t90 - 0.3e1 * t1548 * t312 - 0.6e1 * t301 * t1559 + 0.6e1 * t301 * t1563 - t301 * t1610 + 0.6e1 * t687 * t694 - 0.3e1 * t687 * t715;
976   t1615 = t717 * t722;
977   t1619 = t720 * t314;
978   t1621 = 0.1e1 / t721 / t92;
979   t1625 = 0.34450798614814814813e-2 * t16 * t1178 * t42 + 0.71233333333333333332e-1 * t159 * t1389 * t272 + 0.10685000000000000000e0 * t159 * t161 * t599 * t602 - 0.53424999999999999999e-1 * t159 * t594 * t626 - 0.85917975471764868594e0 * t159 * t1400 * t634 + 0.60000000000000000000e1 * t631 * t1405 - 0.60000000000000000000e1 * t600 * t272 * t625 - 0.96491876992155210402e2 * t1413 * t1414 + 0.10000000000000000000e1 * t255 * t1442 + 0.48245938496077605201e2 * t631 * t625 * t633 * t270 + 0.51726012919273400301e3 * t1451 * t1454 + t49 * t1612 * t315 - 0.3e1 * t49 * t1615 * t314 + 0.2e1 * t49 * t1619 * t1621;
980   t1626 = my_piecewise3(t139, t1385, t1625);
981   t1632 = t1133 * t95;
982   t1635 = t438 * t318;
983   t1642 = -0.6e1 * t150 * t726 * t155 + 0.6e1 * t321 * t155 * t725 - 0.6e1 * t150 * t1126 - 0.2e1 * t150 * t1134 - t12 * t1626 + t143 * t1625 + 0.2e1 * t321 * t1632 + 0.6e1 * t321 * t1635 + 0.6e1 * t728 * t318 - 0.6e1 * t428 * t319 - 0.6e1 * t756 * t439 + 0.6e1 * t851 * t731;
984   t1643 = rho[0] * t1642;
985   t1649 = params->d * t1642;
986   t1657 = t427 * t155;
987   t1660 = t10 * t155;
988   t1661 = t1660 * t438;
989   t1664 = t11 * t1133;
990   t1667 = 0.6e1 * t146 * t1657 + 0.18e2 * t146 * t1661 + 0.3e1 * t146 * t1664 + t1649 * t147 + 0.18e2 * t330 * t747 + 0.9e1 * t330 * t750 + 0.9e1 * t743 * t332;
991   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
992     v3rho3[0] = 0.3e1 * t145 * t753 + t1643 * t149 + 0.3e1 * t738 * t149 + t329 * t1667 + 0.6e1 * t326 * t335 + 0.3e1 * t327 * t753 + 0.3e1 * t739 * t335;
993 
994   t1673 = t50 * t494;
995   t1674 = t1673 * t58;
996   t1676 = t639 * sigma[0];
997   t1678 = t200 * t1676 * t74;
998   t1682 = t200 * t813 * t223;
999   t1691 = 0.35e2 / 0.432e3 * t1674 + t1678 * t647 / 0.768e3 + 0.7e1 / 0.1152e4 * t1682 * t293 - t815 * t675 / 0.1536e4 - t815 * t679 / 0.1536e4 + 0.119e3 / 0.6912e4 * t369 * t544;
1000   t1692 = params->beta * t1691;
1001   t1694 = t821 * t61;
1002   t1700 = t353 * t684;
1003   t1701 = t1700 * t356;
1004   t1703 = t825 * t789;
1005   t1710 = t1556 * t67;
1006   t1712 = t1710 * t372 * t693;
1007   t1715 = t789 * t691;
1008   t1716 = t375 * t1715;
1009   t1717 = t277 * t372;
1010   t1719 = t311 * t290 * t65;
1011   t1720 = t1717 * t1719;
1012   t1724 = t829 * t820 * t311;
1013   t1728 = t829 * t372 * t714;
1014   t1731 = t303 * t639;
1015   t1732 = t372 * t643;
1016   t1734 = t1731 * t1732 * t645;
1017   t1738 = t820 * t290 * t65;
1018   t1739 = t834 * t1738;
1019   t1744 = t834 * t372 * t672 * t65;
1020   t1747 = t834 * t1732 * t65;
1021   t1750 = t377 * t67 * t1691;
1022   t1752 = t1692 * t90 - 0.2e1 * t1694 * t312 - t1701 * t379 + 0.4e1 * t1703 * t831 + 0.2e1 * t1703 * t837 - 0.6e1 * t828 * t1712 - 0.4e1 * t1716 * t1720 + 0.4e1 * t828 * t1724 + 0.2e1 * t828 * t1728 - 0.2e1 * t828 * t1734 + 0.2e1 * t828 * t1739 + t828 * t1744 + t828 * t1747 - t376 * t1750 + 0.2e1 * t823 * t694 - t823 * t715 - 0.2e1 * t826 * t840;
1023   t1758 = my_piecewise3(t9, 0, t434 * t6 / 0.4e1);
1024   t1759 = t1758 * t95;
1025   t1762 = t764 * t318;
1026   t1765 = t339 * t725;
1027   t1768 = t2 * t438;
1028   t1775 = t845 * t717;
1029   t1777 = t842 * t722;
1030   t1778 = t1777 * t314;
1031   t1781 = t384 * t438;
1032   t1789 = t389 * t48 * t1752 * t315 - 0.4e1 * t150 * t849 * t155 - 0.2e1 * t150 * t1781 + 0.2e1 * t321 * t1759 + 0.4e1 * t321 * t1762 + 0.2e1 * t321 * t1765 + 0.2e1 * t1768 * t386 - t866 * t1775 - 0.2e1 * t866 * t1778 - 0.2e1 * t428 * t384 + 0.4e1 * t851 * t854 + 0.4e1 * t851 * t857;
1033   t1793 = t200 * t499 * sigma[0] * t75;
1034   t1804 = 0.35e2 / 0.216e3 * t1674 + t1793 * t507 / 0.192e3 + 0.7e1 / 0.288e3 * t776 * t512 - t776 * t533 / 0.384e3 - t776 * t537 / 0.384e3 + 0.119e3 / 0.1728e4 * t347 * t544;
1035   t1805 = params->beta * t1804;
1036   t1807 = t782 * t61;
1037   t1813 = t353 * t547;
1038   t1814 = t1813 * t356;
1039   t1816 = t786 * t789;
1040   t1823 = t1316 * t120;
1041   t1825 = t1823 * t350 * t556;
1042   t1828 = t789 * t554;
1043   t1829 = t354 * t1828;
1044   t1830 = t202 * t350;
1045   t1832 = t241 * t215 * t118;
1046   t1833 = t1830 * t1832;
1047   t1837 = t791 * t781 * t241;
1048   t1841 = t791 * t350 * t577;
1049   t1844 = t233 * t499;
1050   t1845 = t350 * t503;
1051   t1847 = t1844 * t1845 * t505;
1052   t1851 = t781 * t215 * t118;
1053   t1852 = t796 * t1851;
1054   t1857 = t796 * t350 * t530 * t118;
1055   t1860 = t796 * t1845 * t118;
1056   t1863 = t359 * t120 * t1804;
1057   t1865 = t1805 * t132 - 0.2e1 * t1807 * t242 - t1814 * t361 + 0.4e1 * t1816 * t793 + 0.2e1 * t1816 * t799 - 0.6e1 * t790 * t1825 - 0.4e1 * t1829 * t1833 + 0.4e1 * t790 * t1837 + 0.2e1 * t790 * t1841 - 0.2e1 * t790 * t1847 + 0.2e1 * t790 * t1852 + t790 * t1857 + t790 * t1860 - t357 * t1863 + 0.2e1 * t784 * t557 - t784 * t578 - 0.2e1 * t787 * t802;
1058   t1869 = t804 * t586;
1059   t1872 = t363 * t1382;
1060   t1880 = t49 * t1752 * t315;
1061   t1883 = t381 * t1621;
1062   t1884 = t1883 * t720;
1063   t1889 = my_piecewise3(t139, t49 * t1865 * t245 / 0.2e1 - t49 * t1869 * t244 + t49 * t1872 * t584 - t49 * t807 * t580 / 0.2e1, -t49 * t1775 - 0.2e1 * t49 * t1778 + 0.2e1 * t49 * t1884 + t1880);
1064   t1891 = t728 * t46;
1065   t1894 = t321 * t438;
1066   t1901 = t319 * t764;
1067   t1904 = t140 * t1758;
1068   t1908 = t321 * t155 * t46;
1069   t1909 = t722 * t314;
1070   t1910 = t390 * t1909;
1071   t1913 = t726 * t339;
1072   t1916 = t3 * t438;
1073   t1923 = -t12 * t1889 - 0.4e1 * t150 * t1901 - 0.2e1 * t150 * t1904 - 0.2e1 * t150 * t1913 + 0.2e1 * t866 * t1884 + 0.2e1 * t1891 * t391 + 0.2e1 * t1894 * t383 - 0.4e1 * t1908 * t1910 - 0.2e1 * t1916 * t340 - 0.4e1 * t756 * t759 - 0.4e1 * t756 * t765 + 0.4e1 * t860 * t844;
1074   t1924 = t1789 + t1923;
1075   t1925 = rho[0] * t1924;
1076   t1937 = params->d * t1924;
1077   t1951 = t427 * t339;
1078   t1954 = t10 * t764;
1079   t1955 = t1954 * t155;
1080   t1958 = t880 * t438;
1081   t1961 = t11 * t1758;
1082   t1964 = 0.6e1 * t146 * t1951 + 0.12e2 * t146 * t1955 + 0.6e1 * t146 * t1958 + 0.3e1 * t146 * t1961 + t1937 * t147 + 0.12e2 * t330 * t881 + 0.6e1 * t330 * t884 + 0.6e1 * t874 * t332 + 0.6e1 * t396 * t747 + 0.3e1 * t396 * t750 + 0.3e1 * t743 * t398;
1083   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1084     v3rho2sigma[0] = 0.2e1 * t145 * t887 + t1925 * t149 + 0.2e1 * t868 * t149 + t329 * t1964 + 0.2e1 * t326 * t401 + 0.2e1 * t327 * t887 + 0.2e1 * t393 * t335 + 0.2e1 * t869 * t335 + t394 * t753 + t739 * t401;
1085 
1086   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1087     v3rho2lapl[0] = 0.0e0;
1088 
1089   t1976 = t726 * t407;
1090   t1979 = t319 * t895;
1091   t1984 = my_piecewise3(t9, 0, -t435 * t404 / 0.4e1);
1092   t1985 = t140 * t1984;
1093   t1994 = t1984 * t95;
1094   t1997 = t895 * t318;
1095   t2000 = t407 * t725;
1096   t2003 = -0.2e1 * t150 * t1976 - 0.4e1 * t150 * t1979 - 0.2e1 * t150 * t1985 + 0.2e1 * t1768 * t410 - 0.2e1 * t1916 * t408 + 0.2e1 * t321 * t1994 + 0.4e1 * t321 * t1997 + 0.2e1 * t321 * t2000 - 0.4e1 * t756 * t891 - 0.4e1 * t756 * t896 + 0.4e1 * t851 * t899 + 0.4e1 * t851 * t901;
1097   t2004 = rho[0] * t2003;
1098   t2016 = params->d * t2003;
1099   t2030 = t427 * t407;
1100   t2033 = t10 * t895;
1101   t2034 = t2033 * t155;
1102   t2037 = t916 * t438;
1103   t2040 = t11 * t1984;
1104   t2043 = 0.6e1 * t146 * t2030 + 0.12e2 * t146 * t2034 + 0.6e1 * t146 * t2037 + 0.3e1 * t146 * t2040 + t2016 * t147 + 0.12e2 * t330 * t917 + 0.6e1 * t330 * t920 + 0.6e1 * t910 * t332 + 0.6e1 * t416 * t747 + 0.3e1 * t416 * t750 + 0.3e1 * t743 * t418;
1105   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1106     v3rho2tau[0] = 0.2e1 * t145 * t923 + t2004 * t149 + 0.2e1 * t904 * t149 + t329 * t2043 + 0.2e1 * t326 * t421 + 0.2e1 * t327 * t923 + 0.2e1 * t413 * t335 + 0.2e1 * t905 * t335 + t414 * t753 + t739 * t421;
1107 
1108   t2046 = t932 * t318;
1109   t2047 = t321 * t2046;
1110   t2048 = 0.2e1 * t2047;
1111   t2051 = t851 * t1017;
1112   t2052 = 0.2e1 * t2051;
1113   t2055 = t851 * t339;
1114   t2058 = t321 * t764;
1115   t2065 = t1005 * t722;
1116   t2066 = t2065 * t314;
1117   t2068 = t845 * t842;
1118   t2071 = t339 * t46;
1119   t2072 = t321 * t2071;
1120   t2075 = t936 * t358;
1121   t2076 = t2075 * t1001;
1122   t2079 = t79 * t89 * t290 * t65;
1123   t2083 = t936 * t978 * t223;
1124   t2086 = t18 * t303;
1125   t2088 = t282 * t2086 * t311;
1126   t2091 = t353 * t372;
1127   t2092 = t2091 * t356;
1128   t2095 = t358 * t691;
1129   t2100 = t986 * t789;
1130   t2104 = t951 * t298;
1131   t2105 = t2104 * t954;
1132   t2108 = t991 * t962;
1133   t2109 = t1556 * t277;
1134   t2111 = t2109 * t985 * t311;
1135   t2114 = t691 * t639;
1136   t2117 = t2114 * t985 * t290 * t65;
1137   t2120 = t691 * t277;
1138   t2122 = t2120 * t372 * t820;
1139   t2125 = t2104 * t998;
1140   t2128 = t993 * t277;
1141   t2129 = t992 * t2128;
1142   t2130 = t76 * t13;
1143   t2131 = t940 * t311;
1144   t2132 = t2130 * t2131;
1145   t2135 = t956 * t303;
1146   t2136 = t2135 * t639;
1147   t2137 = t992 * t2136;
1148   t2138 = t940 * t306;
1149   t2139 = t2130 * t2138;
1150   t2143 = t277 * t223 * t75;
1151   t2144 = t2143 * t79;
1152   t2147 = -t2076 * t2079 / 0.1536e4 - 0.7e1 / 0.2304e4 * t2083 * t982 - t980 * t2088 / 0.1536e4 - 0.4e1 * t2092 * t840 + 0.4e1 * t987 * t2095 * t67 * t311 + 0.2e1 * t2100 * t834 * t306 + 0.2e1 * t2105 * t995 - 0.6e1 * t2108 * t2111 - 0.4e1 * t2108 * t2117 + 0.4e1 * t2108 * t2122 - t2125 * t1002 / 0.1536e4 + t2129 * t2132 / 0.768e3 + t2137 * t2139 / 0.768e3 + 0.7e1 / 0.2304e4 * t999 * t2144;
1153   t2151 = t389 * t48 * t2147 * t315 + 0.2e1 * t860 * t1007 - 0.2e1 * t860 * t1010 + 0.4e1 * t1020 * t844 + 0.4e1 * t1055 * t854 - 0.4e1 * t2072 * t1910 + 0.4e1 * t2055 * t383 + 0.4e1 * t2058 * t383 - t866 * t2066 - 0.2e1 * t866 * t2068 + t2048 + t2052;
1154   t2152 = t384 * t764;
1155   t2157 = t849 * t339;
1156   t2165 = t756 * t933;
1157   t2166 = 0.2e1 * t2165;
1158   t2167 = t319 * t932;
1159   t2168 = t150 * t2167;
1160   t2169 = 0.2e1 * t2168;
1161   t2170 = t1008 * t1621;
1162   t2171 = t2170 * t314;
1163   t2176 = t2075 * t966;
1164   t2179 = t79 * t131 * t215 * t118;
1165   t2185 = t18 * t233;
1166   t2186 = t2185 * t241;
1167   t2190 = t353 * t350;
1168   t2191 = t2190 * t356;
1169   t2194 = t358 * t554;
1170   t2199 = t946 * t789;
1171   t2203 = t951 * t228;
1172   t2204 = t2203 * t954;
1173   t2207 = t952 * t962;
1174   t2208 = t1316 * t202;
1175   t2210 = t2208 * t945 * t241;
1176   t2213 = t554 * t499;
1177   t2216 = t2213 * t945 * t215 * t118;
1178   t2219 = t554 * t202;
1179   t2221 = t2219 * t350 * t781;
1180   t2224 = t2203 * t963;
1181   t2227 = t957 * t202;
1182   t2228 = t955 * t2227;
1183   t2229 = t940 * t241;
1184   t2230 = t2130 * t2229;
1185   t2233 = t956 * t233;
1186   t2234 = t2233 * t499;
1187   t2235 = t955 * t2234;
1188   t2236 = t940 * t236;
1189   t2237 = t2130 * t2236;
1190   t2240 = t965 * t223;
1191   t2241 = t2240 * t79;
1192   t2244 = -t2176 * t2179 / 0.384e3 - 0.7e1 / 0.576e3 * t939 * t510 * t941 - t939 * t207 * t2186 / 0.384e3 - 0.4e1 * t2191 * t802 + 0.4e1 * t947 * t2194 * t120 * t241 + 0.2e1 * t2199 * t796 * t236 + 0.2e1 * t2204 * t959 - 0.6e1 * t2207 * t2210 - 0.4e1 * t2207 * t2216 + 0.4e1 * t2207 * t2221 - t2224 * t967 / 0.384e3 + t2228 * t2230 / 0.192e3 + t2235 * t2237 / 0.192e3 + 0.7e1 / 0.576e3 * t964 * t2241;
1193   t2248 = t970 * t586;
1194   t2254 = t973 * t1382;
1195   t2259 = t49 * t2147 * t315;
1196   t2266 = my_piecewise3(t139, t49 * t2244 * t245 / 0.2e1 - t49 * t2248 * t244 / 0.2e1 - t49 * t807 * t804 + t49 * t2254 * t244, -t49 * t2066 - 0.2e1 * t49 * t2068 + 0.2e1 * t49 * t2171 + t2259);
1197   t2270 = -0.2e1 * t150 * t1012 * t155 + 0.2e1 * t1014 * t318 - 0.4e1 * t1046 * t765 - t12 * t2266 - 0.4e1 * t150 * t2152 - 0.4e1 * t150 * t2157 + 0.2e1 * t866 * t2171 - 0.2e1 * t926 * t319 - 0.4e1 * t756 * t929 + t1019 - t2166 - t2169 - t935;
1198   t2271 = t2151 + t2270;
1199   t2272 = rho[0] * t2271;
1200   t2283 = params->d * t2271;
1201   t2295 = t155 * t925;
1202   t2298 = t880 * t764;
1203   t2301 = t330 * t1041;
1204   t2302 = 0.3e1 * t2301;
1205   t2303 = t10 * t932;
1206   t2304 = t2303 * t155;
1207   t2305 = t146 * t2304;
1208   t2306 = 0.6e1 * t2305;
1209   t2307 = 0.3e1 * t1034 * t332 + 0.6e1 * t330 * t1038 + 0.6e1 * t146 * t2295 + 0.12e2 * t146 * t2298 + t2283 * t147 + 0.12e2 * t396 * t881 + 0.6e1 * t396 * t884 + 0.6e1 * t874 * t398 + t1043 + t2302 + t2306;
1210   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1211     v3rhosigma2[0] = t1029 * t149 + t1030 * t335 + t145 * t1044 + t327 * t1044 + t2272 * t149 + t329 * t2307 + 0.2e1 * t393 * t401 + 0.2e1 * t394 * t887 + 0.2e1 * t869 * t401;
1212 
1213   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1214     v3rhosigmalapl[0] = 0.0e0;
1215 
1216   t2310 = t3 * t764;
1217   t2315 = t849 * t407;
1218   t2317 = t384 * t895;
1219   t2320 = t319 * t1052;
1220   t2324 = my_piecewise3(t9, 0, t151 * t404 / 0.8e1);
1221   t2325 = t140 * t2324;
1222   t2327 = t2 * t764;
1223   t2332 = t2324 * t95;
1224   t2334 = t1052 * t318;
1225   t2336 = t851 * t407;
1226   t2338 = t321 * t895;
1227   t2341 = t407 * t46;
1228   t2342 = t321 * t2341;
1229   t2344 = -t1046 * t891 - t1046 * t896 - t756 * t1048 - t756 * t1053 + t1055 * t899 + t1055 * t901 + t851 * t1057 + t1059 * t844 - t150 * t2315 - t150 * t2317 - t150 * t2320 - t150 * t2325 - t2342 * t1910 - t2310 * t408 + t2327 * t410 + t321 * t2332 + t321 * t2334 + t2336 * t383 + t2338 * t383;
1230   t2345 = 0.2e1 * t2344;
1231   t2346 = rho[0] * t2345;
1232   t2357 = params->d * t2345;
1233   t2375 = t155 * t407;
1234   t2376 = t2375 * t339;
1235   t2379 = t2033 * t339;
1236   t2382 = t916 * t764;
1237   t2387 = t10 * t1052;
1238   t2388 = t2387 * t155;
1239   t2391 = t11 * t2324;
1240   t2394 = 0.3e1 * t1067 * t332 + 0.6e1 * t330 * t1073 + 0.3e1 * t330 * t1076 + 0.6e1 * t146 * t2376 + 0.6e1 * t146 * t2379 + 0.6e1 * t146 * t2382 + 0.6e1 * t146 * t2388 + 0.3e1 * t146 * t2391 + t2357 * t147 + 0.6e1 * t396 * t917 + 0.3e1 * t396 * t920 + 0.3e1 * t910 * t398 + 0.6e1 * t416 * t881 + 0.3e1 * t416 * t884 + 0.3e1 * t874 * t418;
1241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1242     v3rhosigmatau[0] = t1062 * t149 + t1063 * t335 + t145 * t1079 + t327 * t1079 + t2346 * t149 + t329 * t2394 + t393 * t421 + t394 * t923 + t413 * t401 + t905 * t401 + t414 * t887 + t869 * t421;
1243 
1244   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1245     v3rholapl2[0] = 0.0e0;
1246 
1247   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1248     v3rholapltau[0] = 0.0e0;
1249 
1250   t2397 = t3 * t407;
1251   t2404 = t319 * t1088;
1252   t2409 = my_piecewise3(t9, 0, -t152 * t1085 / 0.4e1);
1253   t2410 = t140 * t2409;
1254   t2413 = t2 * t407;
1255   t2420 = t2409 * t95;
1256   t2423 = t1088 * t318;
1257   t2426 = -0.2e1 * t1082 * t319 - 0.2e1 * t756 * t1089 + 0.2e1 * t1091 * t318 + 0.2e1 * t851 * t1093 - 0.2e1 * t150 * t2404 - 0.2e1 * t150 * t2410 - 0.4e1 * t2397 * t896 + 0.4e1 * t2413 * t899 + 0.2e1 * t321 * t2420 + 0.2e1 * t321 * t2423;
1258   t2427 = rho[0] * t2426;
1259   t2438 = params->d * t2426;
1260   t2450 = t155 * t1081;
1261   t2453 = t916 * t895;
1262   t2458 = t10 * t1088;
1263   t2459 = t2458 * t155;
1264   t2462 = t11 * t2409;
1265   t2465 = 0.3e1 * t1101 * t332 + 0.6e1 * t330 * t1105 + 0.3e1 * t330 * t1108 + 0.6e1 * t146 * t2450 + 0.12e2 * t146 * t2453 + 0.6e1 * t146 * t2459 + 0.3e1 * t146 * t2462 + t2438 * t147 + 0.12e2 * t416 * t917 + 0.6e1 * t416 * t920 + 0.6e1 * t910 * t418;
1266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1267     v3rhotau2[0] = t1096 * t149 + t1097 * t335 + t145 * t1111 + t327 * t1111 + t2427 * t149 + t329 * t2465 + 0.2e1 * t413 * t421 + 0.2e1 * t414 * t923 + 0.2e1 * t905 * t421;
1268 
1269   t2467 = t951 * t954;
1270   t2468 = t956 * t277;
1271   t2470 = t2467 * t2468 * t74;
1272   t2472 = t282 * t2086 * t372;
1273   t2475 = t985 * t372;
1274   t2476 = t951 * t2475;
1275   t2477 = t2476 * t954;
1276   t2480 = t353 * t353;
1277   t2481 = t2480 * t83;
1278   t2482 = t355 * t355;
1279   t2483 = 0.1e1 / t2482;
1280   t2484 = t2481 * t2483;
1281   t2485 = t358 * t358;
1282   t2486 = t2485 * t1556;
1283   t2488 = t2486 * t639 * t2475;
1284   t2491 = t2485 * t691;
1285   t2492 = t2491 * t639;
1286   t2493 = t2484 * t2492;
1287   t2495 = t372 * t74 * t75;
1288   t2496 = t2495 * t79;
1289   t2499 = -t2470 * t2472 / 0.256e3 + 0.6e1 * t2477 * t2128 - 0.6e1 * t2484 * t2488 + t2493 * t2496 / 0.256e3;
1290   t2503 = t2065 * t381;
1291   t2506 = t1008 * t381;
1292   t2511 = t1046 * t933;
1293   t2512 = 0.6e1 * t2511;
1294   t2513 = t1012 * t339;
1295   t2516 = t384 * t932;
1296   t2517 = t150 * t2516;
1297   t2518 = 0.6e1 * t2517;
1298   t2519 = t1055 * t1017;
1299   t2520 = 0.6e1 * t2519;
1300   t2521 = t1014 * t46;
1301   t2528 = t2467 * t956 * t202 * t75;
1302   t2529 = t2185 * t350;
1303   t2533 = t945 * t350;
1304   t2534 = t951 * t2533;
1305   t2535 = t2534 * t954;
1306   t2538 = t2480 * t126;
1307   t2539 = t2538 * t2483;
1308   t2540 = t2485 * t1316;
1309   t2542 = t2540 * t499 * t2533;
1310   t2545 = t2485 * t554;
1311   t2546 = t2545 * t499;
1312   t2547 = t2539 * t2546;
1313   t2548 = t350 * t75;
1314   t2549 = t2548 * t74;
1315   t2550 = t2549 * t79;
1316   t2553 = -t2528 * t207 * t2529 / 0.64e2 + 0.6e1 * t2535 * t2227 - 0.6e1 * t2539 * t2542 + t2547 * t2550 / 0.64e2;
1317   t2560 = t973 * t363;
1318   t2565 = t49 * t2499 * t315;
1319   t2569 = t49 * t2506 * t1621;
1320   t2572 = my_piecewise3(t139, t49 * t2553 * t245 / 0.2e1 - 0.3e1 / 0.2e1 * t49 * t2248 * t363 + t49 * t2560 * t1382, -0.3e1 * t49 * t2503 + t2565 + 0.2e1 * t2569);
1321   t2574 = t321 * t932;
1322   t2575 = t2574 * t383;
1323   t2576 = 0.6e1 * t2575;
1324   t2581 = 0.2e1 * t389 * t48 * t2506 * t1621 + t389 * t48 * t2499 * t315 + 0.6e1 * t1020 * t1007 - 0.6e1 * t1020 * t1010 - t12 * t2572 - 0.6e1 * t150 * t2513 - 0.3e1 * t866 * t2503 + 0.6e1 * t2521 * t391 - 0.6e1 * t926 * t384 + t1019 - t2512 - t2518 + t2520 + t2576 - t935;
1325   t2582 = rho[0] * t2581;
1326   t2588 = params->d * t2581;
1327   t2594 = t396 * t1041;
1328   t2595 = 0.9e1 * t2594;
1329   t2596 = t925 * t339;
1330   t2599 = t880 * t932;
1331   t2600 = t146 * t2599;
1332   t2601 = 0.18e2 * t2600;
1333   t2602 = 0.9e1 * t1034 * t398 + 0.18e2 * t396 * t1038 + 0.6e1 * t146 * t2596 + t2588 * t147 + t1043 + t2595 + t2601;
1334   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1335     v3sigma3[0] = 0.3e1 * t1030 * t401 + 0.3e1 * t394 * t1044 + t2582 * t149 + t329 * t2602;
1336 
1337   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1338     v3sigma2lapl[0] = 0.0e0;
1339 
1340   t2604 = t3 * t932;
1341   t2605 = t2604 * t408;
1342   t2606 = 0.2e1 * t2605;
1343   t2611 = t1012 * t407;
1344   t2614 = t384 * t1052;
1345   t2617 = t2 * t932;
1346   t2618 = t2617 * t410;
1347   t2619 = 0.2e1 * t2618;
1348   t2622 = t1055 * t407;
1349   t2625 = t321 * t1052;
1350   t2632 = 0.2e1 * t1059 * t1007 - 0.2e1 * t1059 * t1010 - 0.4e1 * t1046 * t1048 - 0.4e1 * t1046 * t1053 + 0.4e1 * t1055 * t1057 - 0.2e1 * t150 * t2611 - 0.4e1 * t150 * t2614 + 0.4e1 * t2622 * t383 + 0.4e1 * t2625 * t383 + t1019 - t2606 + t2619 - t935;
1351   t2633 = rho[0] * t2632;
1352   t2641 = params->d * t2632;
1353   t2647 = t416 * t1041;
1354   t2648 = 0.3e1 * t2647;
1355   t2655 = t925 * t407;
1356   t2658 = t2387 * t339;
1357   t2661 = t916 * t932;
1358   t2662 = t146 * t2661;
1359   t2663 = 0.6e1 * t2662;
1360   t2664 = 0.3e1 * t1034 * t418 + 0.6e1 * t416 * t1038 + 0.6e1 * t1067 * t398 + 0.12e2 * t396 * t1073 + 0.6e1 * t396 * t1076 + 0.6e1 * t146 * t2655 + 0.12e2 * t146 * t2658 + t2641 * t147 + t1043 + t2648 + t2663;
1361   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1362     v3sigma2tau[0] = t1030 * t421 + t414 * t1044 + 0.2e1 * t1063 * t401 + 0.2e1 * t394 * t1079 + t2633 * t149 + t329 * t2664;
1363 
1364   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1365     v3sigmalapl2[0] = 0.0e0;
1366 
1367   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1368     v3sigmalapltau[0] = 0.0e0;
1369 
1370   t2672 = t384 * t1088;
1371   t2677 = my_piecewise3(t9, 0, t4 * t1085 / 0.4e1);
1372   t2678 = t140 * t2677;
1373   t2683 = t1091 * t46;
1374   t2688 = t2677 * t95;
1375   t2691 = t321 * t1088;
1376   t2694 = -0.2e1 * t1046 * t1089 - 0.4e1 * t2397 * t1053 + 0.2e1 * t1055 * t1093 + 0.4e1 * t2413 * t1057 - 0.2e1 * t1082 * t384 - 0.2e1 * t150 * t2672 - 0.2e1 * t150 * t2678 + 0.2e1 * t2683 * t391 + 0.2e1 * t321 * t2688 + 0.2e1 * t2691 * t383;
1377   t2695 = rho[0] * t2694;
1378   t2703 = params->d * t2694;
1379   t2715 = t339 * t1081;
1380   t2718 = t916 * t1052;
1381   t2723 = t2458 * t339;
1382   t2726 = t11 * t2677;
1383   t2729 = 0.6e1 * t1067 * t418 + 0.12e2 * t416 * t1073 + 0.6e1 * t416 * t1076 + 0.3e1 * t1101 * t398 + 0.6e1 * t396 * t1105 + 0.3e1 * t396 * t1108 + 0.6e1 * t146 * t2715 + 0.12e2 * t146 * t2718 + 0.6e1 * t146 * t2723 + 0.3e1 * t146 * t2726 + t2703 * t147;
1384   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1385     v3sigmatau2[0] = 0.2e1 * t1063 * t421 + 0.2e1 * t414 * t1079 + t1097 * t401 + t394 * t1111 + t2695 * t149 + t329 * t2729;
1386 
1387   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1388     v3lapl3[0] = 0.0e0;
1389 
1390   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1391     v3lapl2tau[0] = 0.0e0;
1392 
1393   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1394     v3lapltau2[0] = 0.0e0;
1395 
1396   t2733 = t403 * t403;
1397   t2734 = 0.1e1 / t2733;
1398   t2737 = my_piecewise3(t9, 0, -0.3e1 / 0.4e1 * t5 * t2734);
1399   t2738 = t140 * t2737;
1400   t2743 = t2737 * t95;
1401   t2746 = -0.6e1 * t2397 * t1089 + 0.6e1 * t2413 * t1093 - 0.2e1 * t150 * t2738 + 0.2e1 * t321 * t2743;
1402   t2747 = rho[0] * t2746;
1403   t2753 = params->d * t2746;
1404   t2761 = t1081 * t407;
1405   t2764 = t916 * t1088;
1406   t2767 = t11 * t2737;
1407   t2770 = 0.9e1 * t1101 * t418 + 0.18e2 * t416 * t1105 + 0.9e1 * t416 * t1108 + 0.6e1 * t146 * t2761 + 0.18e2 * t146 * t2764 + 0.3e1 * t146 * t2767 + t2753 * t147;
1408   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1409     v3tau3[0] = 0.3e1 * t1097 * t421 + 0.3e1 * t414 * t1111 + t2747 * t149 + t329 * t2770;
1410 
1411 #ifndef XC_DONT_COMPILE_LXC
1412 
1413   if(order < 4) return;
1414 
1415 
1416   t2782 = t438 * t438;
1417   t2812 = t601 * t601;
1418   t2813 = t2812 * t633;
1419   t2816 = t717 * t717;
1420   t2831 = t625 * t625;
1421   t2832 = t2831 * t271;
1422   t2835 = t2812 * t271;
1423   t2845 = t629 * t629;
1424   t2847 = t24 / t2845;
1425   t2848 = t632 * t632;
1426   t2850 = t2812 / t2848;
1427   t2873 = t2831 * t633;
1428   t2878 = t1453 * t61;
1429   t2882 = t14 * t4;
1430   t2890 = 0.1e1 / t221;
1431   t2893 = t608 * t74;
1432   t2896 = t258 * t494;
1433   t2899 = t18 * t494;
1434   t2902 = pow(t22, -0.25e1);
1435   t2913 = t17 * t74;
1436   t2917 = (-0.43956597222222222223e-1 / t25 / t2882 * t14 * t1211 * t159 + 0.20255200000000000000e2 * t1420 * t2890 - 0.75019259259259259258e1 * t607 * t2893 + 0.65641851851851851850e1 * t257 * t2896 + 0.31003950617283950618e1 * t16 * t2899 + 0.68258333333333333335e-1 * t2902 * t14 * t1211 * t159 - 0.10921333333333333333e1 * t1432 * t2890 + 0.12134814814814814815e1 * t618 * t2893 + 0.10617962962962962963e1 * t265 * t2896 + 0.13388493827160493828e1 * t32 * t2913) * t271;
1437   t2927 = -0.63489110255409872532e3 * t631 * t1441 * t1523 + 0.78956835208714868956e2 * t1513 * t1519 + 0.57140199229868885279e4 * t1413 * t601 * t1506 * t625 + 0.59217626406536151717e2 * t600 * t2832 * t61 + 0.23687050562614460687e3 * t1413 * t2835 * t61 - 0.35530575843921691030e3 * t631 * t601 * t666 - 0.47616832691557404399e3 * t631 * t2873 * t61 - 0.30630917085531946466e5 * t1451 * t625 * t2878 * t601 - 0.98696044010893586193e1 * t255 * t2917 * t61 - 0.24630289029783782986e6 * t2847 * t2850 * t61 - 0.57140199229868885279e4 * t1451 * t2813 * t61;
1438   t2932 = t599 * t270;
1439   t2936 = t630 * t625;
1440   t2966 = t24 / t629 / t598;
1441   t2967 = t2812 * t1453;
1442   t2971 = 0.42182689210255918737e1 * t262 * t630 * t1404 * t659 - 0.42182689210255918737e1 * t262 * t2932 * t666 + 0.33919057153952724399e2 * t262 * t2936 * t1523 + 0.21872505516428994901e1 * t1429 * t660 - 0.14060896403418639579e1 * t615 * t1502 - 0.22612704769301816266e2 * t615 * t1507 - 0.67838114307905448798e2 * t262 * t1412 * t1404 * t1506 + 0.70304482017093197896e0 * t262 * t254 * t1441 * t659 + 0.36365705450989871998e3 * t262 * t1450 * t1404 * t2878 + 0.28121792806837279158e1 * t615 * t1498 + 0.11333858454327315863e0 * t159 * t494 * t42 * t61 + 0.61261834171063892932e5 * t2966 * t2967 * t61;
1443   t2972 = t2927 + t2971;
1444   t2982 = t672 * t672;
1445   t2983 = t18 * t2982;
1446   t2988 = t645 * t1529;
1447   t2997 = t643 * t643;
1448   t2998 = t18 * t2997;
1449   t3009 = t72 * t72;
1450   t3013 = 0.1e1 / t33 / t3009 * t75 * t79;
1451   t3020 = 0.7e1 / 0.1152e4 * t651 * t1532 - t280 * t282 * t18 * t2972 * t65 / 0.3072e4 - 0.119e3 / 0.2304e4 * t1484 * t675 - 0.7e1 / 0.192e3 * t1471 * t1476 + t642 * t282 * t2983 * t645 / 0.512e3 + t642 * t282 * t291 * t2988 / 0.384e3 - t280 * t282 * t673 * t709 / 0.512e3 + 0.7e1 / 0.1536e4 * t642 * t282 * t2998 * t645 + 0.3e1 / 0.256e3 * t642 * t282 * t644 * t1474 - 0.7e1 / 0.192e3 * t1471 * t1480 + 0.13685e5 / 0.31104e5 * t71 * t3013 + 0.7e1 / 0.192e3 * t200 * t1460 * t223 * t1467;
1452   t3021 = t1465 * t672;
1453   t3053 = 0.1e1 / t1458 / t66;
1454   t3057 = t645 * t645;
1455   t3069 = t51 / t19 / t540 * t58;
1456   t3071 = -0.3e1 / 0.256e3 * t1462 * t282 * t644 * t3021 + 0.119e3 / 0.1152e4 * t200 * t640 * t542 * t647 - t280 * t282 * t2998 * t65 / 0.3072e4 - t280 * t282 * t1530 * t306 / 0.768e3 - t280 * t282 * t2983 * t65 / 0.1024e4 + 0.7e1 / 0.384e3 * t651 * t1536 + 0.7e1 / 0.1152e4 * t651 * t1540 + 0.595e3 / 0.2592e4 * t200 * t278 * t1300 * t293 - 0.119e3 / 0.2304e4 * t1484 * t679 + t200 * t3053 * t69 * t74 * t282 * t2998 * t3057 / 0.128e3 - 0.3e1 / 0.256e3 * t1462 * t282 * t2998 * t1465 + 0.455e3 / 0.243e3 * t3069;
1457   t3072 = t3020 + t3071;
1458   t3089 = 0.1e1 / t1555 / t88;
1459   t3091 = t693 * t693;
1460   t3099 = t714 * t714;
1461   t3141 = t83 * t643;
1462   t3149 = -0.4e1 * t200 * t702 * t1595 - t200 * t305 * t2997 * t65 - 0.6e1 * t1599 * t1600 * t709 + 0.12e2 * t200 * t639 * t684 * t698 - 0.4e1 * t1599 * t83 * t1529 * t306 - 0.3e1 * t200 * t305 * t2982 * t65 - 0.4e1 * t200 * t277 * t1545 * t306 - 0.6e1 * t200 * t1585 * t706 + 0.14e2 * t200 * t697 * t2997 * t645 - 0.36e2 * t62 * t47 * t1459 * t3141 * t3021 + 0.24e2 * t1576 * t298 * t290 * t1474;
1463   t3191 = 0.6e1 * t200 * t697 * t2982 * t645 + t62 * t68 * t3072 + 0.8e1 * t1576 * t1577 * t2988 - 0.24e2 * t200 * t1459 * t298 * t1567 + 0.36e2 * t1576 * t3141 * t1474 - 0.4e1 * t200 * t702 * t1604 - 0.6e1 * t200 * t1585 * t709 - 0.12e2 * t1599 * t298 * t672 * t306 - t200 * t305 * t2972 * t65 + 0.24e2 * t200 * t3053 * t83 * t2997 * t3057 - 0.36e2 * t200 * t1566 * t2997 * t1465 + 0.24e2 * t200 * t1571 * t1581;
1464   t3195 = params->beta * t3072 * t90 - 0.4e1 * t1546 * t61 * t312 + 0.12e2 * t1548 * t694 - 0.6e1 * t1548 * t715 - 0.24e2 * t687 * t1559 + 0.24e2 * t687 * t1563 - 0.4e1 * t687 * t1610 + 0.24e2 * t301 * t47 * t3089 * t3091 - 0.36e2 * t301 * t1557 * t693 * t714 + 0.6e1 * t301 * t692 * t3099 + 0.8e1 * t301 * t692 * t311 * t1609 - t301 * t304 * (t3149 + t3191);
1465   t3200 = -0.80000000000000000000e1 * t600 * t272 * t1441 + 0.36000000000000000000e2 * t631 * t602 * t625 + 0.57895126195293126241e3 * t1451 * t2813 - 0.3e1 * t49 * t2816 * t722 + 0.12e2 * t49 * t717 * t1621 * t720 + 0.64327917994770140268e2 * t631 * t1441 * t633 * t270 - 0.57895126195293126241e3 * t1413 * t634 * t625 - 0.60000000000000000000e1 * t600 * t2832 - 0.24000000000000000000e2 * t1413 * t2835 - 0.71233333333333333332e-1 * t159 * t594 * t1442 - 0.36846163202829085480e2 * t159 * t161 * t1450 * t1454 + 0.24955700379505800916e5 * t2847 * t2850 + t49 * t3195 * t315 + 0.48245938496077605201e2 * t631 * t2873;
1466   t3212 = t720 * t720;
1467   t3213 = t721 * t721;
1468   t3214 = 0.1e1 / t3213;
1469   t3251 = -0.4e1 * t49 * t1612 * t722 * t314 + 0.42740000000000000000e0 * t262 * t2932 * t626 - 0.34367190188705947437e1 * t262 * t2936 * t633 * t270 - 0.6e1 * t49 * t3212 * t3214 - 0.28493333333333333333e0 * t159 * t54 * t599 * t602 - 0.42740000000000000000e0 * t159 * t1400 * t1405 - 0.22161481481481481481e0 * t159 * t196 * t254 * t272 + 0.14246666666666666666e0 * t159 * t1389 * t626 + 0.22911460125803964958e1 * t159 * t54 * t630 * t634 + 0.68734380377411894876e1 * t159 * t161 * t1412 * t1414 + 0.31035607751564040180e4 * t1451 * t625 * t1453 * t601 - 0.11483599538271604938e-1 * t16 * t2899 * t42 - 0.62071215503128080361e4 * t2966 * t2967 + 0.10000000000000000000e1 * t255 * t2917;
1470   t3252 = t3200 + t3251;
1471   t3262 = my_piecewise3(t9, 0, 0.3e1 * sigma[0] * t2890 * t6);
1472   t3275 = t580 * t580;
1473   t3279 = t481 * t481;
1474   t3280 = t3279 * t489;
1475   t3283 = t584 * t584;
1476   t3284 = t585 * t585;
1477   t3285 = 0.1e1 / t3284;
1478   t3295 = t16 * t18 * t50;
1479   t3300 = t2913 * t75;
1480   t3303 = t2899 * t50;
1481   t3308 = pow(t97, -0.25e1);
1482   t3322 = (-0.81706597222222222222e-1 / t100 / t2882 * t14 * t1211 * t3295 + 0.75300800000000000001e2 * t1169 * t2890 - 0.13944592592592592593e2 * t459 * t3300 + 0.12201518518518518519e2 * t171 * t3303 + 0.53560370370370370370e1 * t16 * t3303 + 0.28051666666666666666e0 * t3308 * t14 * t1211 * t3295 - 0.44882666666666666666e1 * t1185 * t2890 + 0.24934814814814814815e1 * t474 * t3300 + 0.21817962962962962963e1 * t180 * t3303 + 0.16979925925925925926e1 * t32 * t3300) * t190;
1483   t3328 = t530 * t530;
1484   t3329 = t18 * t3328;
1485   t3334 = t503 * t503;
1486   t3335 = t18 * t3334;
1487   t3351 = 0.1e1 / t1215 / t119;
1488   t3355 = t505 * t505;
1489   t3367 = t505 * t1284;
1490   t3377 = t1222 * t530;
1491   t3385 = -t205 * t207 * t3329 * t118 / 0.256e3 - t205 * t207 * t3335 * t118 / 0.768e3 + 0.13685e5 / 0.7776e4 * t123 * t3013 - t205 * t207 * t531 * t572 / 0.128e3 + 0.7e1 / 0.384e3 * t502 * t207 * t3335 * t505 + t200 * t3351 * t69 * t75 * t207 * t3335 * t3355 / 0.32e2 - 0.3e1 / 0.64e2 * t1219 * t207 * t3335 * t1222 - 0.7e1 / 0.48e2 * t502 * t511 * t1235 + t502 * t207 * t216 * t3367 / 0.96e2 + 0.595e3 / 0.648e3 * t205 * t1300 * t13 * t77 * t217 - 0.3e1 / 0.64e2 * t1219 * t207 * t504 * t3377 + 0.119e3 / 0.288e3 * t502 * t1240 * t506;
1492   t3400 = t452 * t452;
1493   t3401 = t3400 * t190;
1494   t3428 = t99 / t485 / t449;
1495   t3429 = t3400 * t1206;
1496   t3436 = t3400 * t489;
1497   t3440 = 0.47374101125228921372e3 * t1162 * t3401 * t61 - 0.25395644102163949012e4 * t487 * t1194 * t1278 + 0.54080168328955770909e1 * t615 * t1255 + 0.81120252493433656363e1 * t262 * t1149 * t1264 - 0.81120252493433656362e1 * t176 * t450 * t189 * t524 - 0.71061151687843382058e3 * t487 * t452 * t524 + 0.15791367041742973791e3 * t1267 * t1273 + 0.22856079691947554112e5 * t1162 * t452 * t1277 * t481 + 0.49009467336851114346e6 * t3428 * t3429 * t61 - 0.19739208802178717239e2 * t168 * t3322 * t61 - 0.22856079691947554112e5 * t1204 * t3436 * t61;
1498   t3441 = t485 * t485;
1499   t3443 = t99 / t3441;
1500   t3444 = t488 * t488;
1501   t3446 = t3400 / t3444;
1502   t3461 = t50 * t1161;
1503   t3468 = t50 * t1203;
1504   t3478 = t3279 * t190;
1505   t3486 = -0.39408462447654052777e7 * t3443 * t3446 * t61 - 0.24504733668425557172e6 * t1204 * t481 * t1206 * t61 * t452 + 0.42062353144743377373e1 * t1429 * t518 - 0.27040084164477885454e1 * t615 * t1258 - 0.86971615835210804049e2 * t615 * t1261 - 0.26091484750563241216e3 * t262 * t3461 * t1270 + 0.13520042082238942727e1 * t262 * t445 * t1273 + 0.27973514856600463821e4 * t262 * t3468 * t1281 - 0.19046733076622961759e4 * t487 * t3280 * t61 + 0.10897900024310607691e0 * t159 * t1673 * t208 + 0.11843525281307230343e3 * t451 * t3478 * t61 + 0.13045742375281620607e3 * t176 * t486 * t481 * t1278;
1506   t3487 = t3440 + t3486;
1507   t3513 = -0.7e1 / 0.48e2 * t502 * t511 * t1231 + t502 * t207 * t3329 * t505 / 0.128e3 + 0.7e1 / 0.288e3 * t205 * t511 * t1294 - t205 * t207 * t1285 * t236 / 0.192e3 - t205 * t207 * t18 * t3487 * t118 / 0.768e3 - 0.119e3 / 0.576e3 * t205 * t1240 * t536 + 0.7e1 / 0.96e2 * t205 * t511 * t1290 + 0.7e1 / 0.48e2 * t1219 * t511 * t1223 + 0.3e1 / 0.64e2 * t502 * t207 * t504 * t1230 + 0.910e3 / 0.243e3 * t3069 + 0.7e1 / 0.288e3 * t205 * t511 * t1286 - 0.119e3 / 0.576e3 * t205 * t1240 * t532;
1508   t3514 = t3385 + t3513;
1509   t3531 = 0.1e1 / t1315 / t130;
1510   t3533 = t556 * t556;
1511   t3541 = t577 * t577;
1512   t3549 = t126 * t503;
1513   t3586 = -0.3e1 * t200 * t235 * t3328 * t118 - t200 * t235 * t3334 * t118 - t200 * t235 * t3487 * t118 + 0.24e2 * t1336 * t228 * t215 * t1230 - 0.4e1 * t200 * t202 * t1305 * t236 - 0.12e2 * t1359 * t228 * t530 * t236 + t62 * t121 * t3514 + 0.36e2 * t1336 * t3549 * t1230 - 0.6e1 * t200 * t1345 * t572 - 0.4e1 * t200 * t565 * t1355 - 0.4e1 * t200 * t565 * t1364;
1514   t3633 = 0.12e2 * t200 * t499 * t547 * t561 - 0.4e1 * t1359 * t126 * t1284 * t236 + 0.6e1 * t200 * t560 * t3328 * t505 + 0.8e1 * t1336 * t1337 * t3367 - 0.6e1 * t1359 * t1360 * t572 - 0.36e2 * t62 * t47 * t1216 * t3549 * t3377 - 0.24e2 * t200 * t1216 * t228 * t1327 + 0.24e2 * t200 * t3351 * t126 * t3334 * t3355 - 0.36e2 * t200 * t1326 * t3334 * t1222 + 0.14e2 * t200 * t560 * t3334 * t505 + 0.24e2 * t200 * t1331 * t1341 - 0.6e1 * t200 * t1345 * t569;
1515   t3637 = params->beta * t3514 * t132 - 0.4e1 * t1306 * t61 * t242 + 0.12e2 * t1308 * t557 - 0.6e1 * t1308 * t578 - 0.24e2 * t550 * t1319 + 0.24e2 * t550 * t1323 - 0.4e1 * t550 * t1370 + 0.24e2 * t231 * t47 * t3531 * t3533 - 0.36e2 * t231 * t1317 * t556 * t577 + 0.6e1 * t231 * t555 * t3541 + 0.8e1 * t231 * t555 * t241 * t1369 - t231 * t234 * (t3586 + t3633);
1516   t3655 = 0.41096000000000000000e0 * t262 * t1142 * t1157 - 0.66090502947826842110e1 * t262 * t1149 * t1199 - 0.3e1 / 0.2e1 * t49 * t3275 * t586 + 0.96491876992155210402e2 * t487 * t3280 - 0.3e1 * t49 * t3283 * t3285 + 0.10000000000000000000e1 * t168 * t3322 - 0.80000000000000000000e1 * t451 * t191 * t1194 + t49 * t3637 * t245 / 0.2e1 + 0.11579025239058625248e4 * t1204 * t3436 - 0.24828486201251232145e5 * t3428 * t3429 + 0.6e1 * t49 * t580 * t1382 * t584 - 0.21309037037037037036e0 * t1429 * t446 + 0.13698666666666666666e0 * t615 * t1146 + 0.44060335298551228073e1 * t615 * t1150;
1517   t3697 = 0.13218100589565368422e2 * t262 * t3461 * t1163 - 0.2e1 * t49 * t1372 * t586 * t244 - 0.11579025239058625248e4 * t1162 * t490 * t481 + 0.12414243100625616072e5 * t1204 * t481 * t1206 * t452 - 0.24000000000000000000e2 * t1162 * t3401 - 0.60000000000000000000e1 * t451 * t3478 - 0.55209406483950617283e-2 * t159 * t1673 * t112 + 0.12865583598954028054e3 * t487 * t1194 * t489 * t189 + 0.19964560303604640732e6 * t3443 * t3446 + 0.36000000000000000000e2 * t487 * t453 * t481 - 0.14171548179536397724e3 * t262 * t3468 * t1207 - 0.27397333333333333333e0 * t615 * t1143 - 0.41096000000000000000e0 * t262 * t1149 * t1154 - 0.68493333333333333332e-1 * t262 * t445 * t1195;
1518   t3699 = my_piecewise3(t139, t3655 + t3697, t3252);
1519   t3707 = -0.8e1 * t150 * t319 * t1133 + 0.8e1 * t321 * t1133 * t318 - 0.2e1 * t150 * t140 * t3262 - 0.6e1 * t3 * t2782 * t140 - 0.8e1 * t150 * t1626 * t155 - 0.12e2 * t150 * t726 * t438 + 0.8e1 * t321 * t155 * t1625 + 0.6e1 * t2 * t2782 * t95 + 0.2e1 * t321 * t3262 * t95 + 0.12e2 * t321 * t438 * t725 - 0.24e2 * t756 * t1126 - 0.8e1 * t756 * t1134 - t12 * t3699 + t143 * t3252 + 0.8e1 * t851 * t1632 + 0.24e2 * t851 * t1635 - 0.12e2 * t428 * t726 + 0.12e2 * t728 * t725;
1520   t3742 = 0.18e2 * t146 * t10 * t2782 + 0.3e1 * t146 * t11 * t3262 + 0.24e2 * t146 * t1660 * t1133 + 0.36e2 * t146 * t427 * t438 + params->d * t3707 * t147 + 0.12e2 * t1649 * t332 + 0.24e2 * t330 * t1657 + 0.72e2 * t330 * t1661 + 0.12e2 * t330 * t1664 + 0.36e2 * t743 * t747 + 0.18e2 * t743 * t750;
1521   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1522     v4rho4[0] = rho[0] * t3707 * t149 + 0.4e1 * t145 * t1667 + 0.4e1 * t1642 * t149 + 0.4e1 * t1643 * t335 + 0.4e1 * t327 * t1667 + 0.12e2 * t326 * t753 + t329 * t3742 + 0.12e2 * t738 * t335 + 0.6e1 * t739 * t753;
1523 
1524   t3779 = my_piecewise3(t9, 0, -0.3e1 / 0.4e1 * t1129 * t6);
1525   t3783 = t3 * t1133;
1526   t3806 = t381 * t3214 * t1619;
1527   t3817 = t1700 * t789;
1528   t3821 = t50 * t1211 * t58;
1529   t3852 = -0.455e3 / 0.1296e4 * t3821 - t200 * t1459 * sigma[0] * t74 * t1467 / 0.256e3 - 0.7e1 / 0.384e3 * t200 * t1676 * t223 * t647 + t1678 * t1476 / 0.256e3 + t1678 * t1480 / 0.256e3 - 0.119e3 / 0.2304e4 * t200 * t813 * t542 * t293 + 0.7e1 / 0.768e3 * t1682 * t675 + 0.7e1 / 0.768e3 * t1682 * t679 - t815 * t1532 / 0.1536e4 - t815 * t1536 / 0.512e3 - t815 * t1540 / 0.1536e4 - 0.595e3 / 0.5184e4 * t369 * t1302;
1530   t3856 = t375 * t789 * t303;
1531   t3862 = t639 * t372;
1532   t3878 = t311 * t643;
1533   t3914 = 0.24e2 * t828 * t3089 * t67 * t372 * t1558 - t353 * t1545 * t356 * t379 + 0.6e1 * t828 * t829 * t1691 * t311 - 0.18e2 * t828 * t1710 * t820 * t693 - 0.6e1 * t1716 * t1717 * t3878 * t65 + 0.12e2 * t1716 * t3862 * t3878 * t645 - 0.3e1 * t1692 * t61 * t312 - 0.18e2 * t1703 * t1712 + 0.12e2 * t1703 * t1724 + 0.6e1 * t1703 * t1728 + 0.6e1 * t3817 * t831;
1534   t3920 = t372 * t1463;
1535   t3924 = t820 * t643;
1536   t3954 = 0.6e1 * t828 * t303 * t1459 * t3920 * t1465 + t828 * t834 * t372 * t1529 * t65 - 0.18e2 * t828 * t1710 * t830 * t714 - t376 * t377 * t67 * t3852 + t828 * t834 * t3920 * t65 + 0.3e1 * t828 * t834 * t3924 * t65 + 0.6e1 * t828 * t829 * t820 * t714 - 0.12e2 * t825 * t1715 * t1720 - 0.3e1 * t1701 * t840 + 0.3e1 * t1703 * t1747 - 0.3e1 * t826 * t1750;
1537   t3987 = t277 * t820;
1538   t3996 = 0.18e2 * t375 * t789 * t1556 * t1717 * t693 * t290 * t65 + 0.3e1 * t828 * t834 * t1691 * t290 * t65 - 0.6e1 * t1716 * t1717 * t714 * t290 * t65 + 0.3e1 * t828 * t834 * t820 * t672 * t65 - 0.6e1 * t828 * t1731 * t3920 * t645 - 0.6e1 * t828 * t1731 * t3924 * t645 - 0.12e2 * t1716 * t3987 * t1719 - 0.6e1 * t823 * t1559 - t823 * t1610 - 0.3e1 * t1694 * t715 - 0.6e1 * t1703 * t1734;
1539   t3998 = -0.6e1 * t1716 * t1717 * t311 * t672 * t65 + 0.3e1 * t3856 * t1717 * t672 * t290 * t65 - 0.6e1 * t3856 * t3862 * t290 * t645 * t672 + 0.2e1 * t828 * t829 * t372 * t1609 + params->beta * t3852 * t90 + 0.6e1 * t823 * t1563 + 0.6e1 * t1694 * t694 + 0.6e1 * t1703 * t1739 + 0.3e1 * t1703 * t1744 + 0.3e1 * t3817 * t837 + t3914 + t3954 + t3996;
1540   t4007 = t2 * t1133;
1541   t4012 = t845 * t1612;
1542   t4019 = t389 * t48 * t3998 * t315 + 0.2e1 * t321 * t1133 * t383 - 0.6e1 * t150 * t849 * t438 + 0.6e1 * t321 * t764 * t725 + 0.6e1 * t1768 * t854 - 0.6e1 * t756 * t1781 - 0.6e1 * t1891 * t1910 - 0.6e1 * t756 * t1913 - 0.6e1 * t866 * t3806 + 0.2e1 * t4007 * t386 - t866 * t4012;
1543   t4039 = t1752 * t722 * t314;
1544   t4042 = t842 * t1621;
1545   t4043 = t4042 * t720;
1546   t4046 = t1777 * t717;
1547   t4052 = -0.2e1 * t150 * t384 * t1133 - 0.2e1 * t150 * t140 * t3779 - 0.2e1 * t150 * t1626 * t339 - 0.6e1 * t150 * t726 * t764 + 0.12e2 * t851 * t1762 - 0.12e2 * t756 * t1901 - 0.6e1 * t1916 * t765 - 0.3e1 * t866 * t4039 + 0.6e1 * t866 * t4043 - 0.3e1 * t866 * t4046 - 0.6e1 * t428 * t849;
1548   t4085 = -0.455e3 / 0.648e3 * t3821 - t200 * t1216 * sigma[0] * t75 * t1224 / 0.64e2 - 0.7e1 / 0.96e2 * t1793 * t1227 + t1793 * t1232 / 0.64e2 + t1793 * t1236 / 0.64e2 - 0.119e3 / 0.576e3 * t776 * t1241 + 0.7e1 / 0.192e3 * t776 * t1244 + 0.7e1 / 0.192e3 * t776 * t1247 - t776 * t1287 / 0.384e3 - t776 * t1291 / 0.128e3 - t776 * t1295 / 0.384e3 - 0.595e3 / 0.1296e4 * t347 * t1302;
1549   t4125 = t354 * t789 * t233;
1550   t4132 = t350 * t1220;
1551   t4141 = t781 * t503;
1552   t4159 = t202 * t781;
1553   t4166 = t1813 * t789;
1554   t4169 = 0.2e1 * t790 * t791 * t350 * t1369 + 0.3e1 * t4125 * t1830 * t530 * t215 * t118 + 0.6e1 * t790 * t233 * t1216 * t4132 * t1222 - 0.6e1 * t790 * t1844 * t4132 * t505 - 0.6e1 * t790 * t1844 * t4141 * t505 - 0.18e2 * t790 * t1823 * t792 * t577 + 0.12e2 * t1816 * t1837 + 0.18e2 * t354 * t789 * t1316 * t1830 * t556 * t215 * t118 - 0.12e2 * t1829 * t4159 * t1832 - 0.3e1 * t1805 * t61 * t242 + 0.3e1 * t4166 * t799;
1555   t4177 = t241 * t503;
1556   t4194 = t499 * t350;
1557   t4204 = -0.6e1 * t1829 * t1830 * t577 * t215 * t118 - 0.6e1 * t4125 * t4194 * t215 * t505 * t530 - 0.6e1 * t1829 * t1830 * t4177 * t118 + 0.12e2 * t1829 * t4194 * t4177 * t505 - t784 * t1370 + 0.6e1 * t1807 * t557 - 0.3e1 * t1807 * t578 - 0.3e1 * t1814 * t802 - 0.18e2 * t1816 * t1825 - 0.3e1 * t787 * t1863 + 0.6e1 * t4166 * t793;
1558   t4240 = t790 * t796 * t350 * t1284 * t118 + 0.3e1 * t790 * t796 * t1804 * t215 * t118 + 0.3e1 * t790 * t796 * t781 * t530 * t118 + t790 * t796 * t4132 * t118 + 0.3e1 * t790 * t796 * t4141 * t118 - 0.18e2 * t790 * t1823 * t781 * t556 - 0.6e1 * t784 * t1319 - 0.6e1 * t1816 * t1847 + 0.6e1 * t1816 * t1852 + 0.3e1 * t1816 * t1857 + 0.3e1 * t1816 * t1860;
1559   t4250 = t804 * t1382;
1560   t4261 = t49 * t363;
1561   t4280 = t49 * t381;
1562   t4281 = t1621 * t314;
1563   t4287 = my_piecewise3(t139, t49 * (-0.6e1 * t1829 * t1830 * t241 * t530 * t118 + 0.24e2 * t790 * t3531 * t120 * t350 * t1318 - t357 * t359 * t120 * t4085 - t353 * t1305 * t356 * t361 + 0.6e1 * t790 * t791 * t1804 * t241 + 0.6e1 * t790 * t791 * t781 * t577 + params->beta * t4085 * t132 - 0.12e2 * t786 * t1828 * t1833 + 0.6e1 * t784 * t1323 + 0.6e1 * t1816 * t1841 + t4169 + t4204 + t4240) * t245 / 0.2e1 - 0.3e1 / 0.2e1 * t49 * t1865 * t586 * t244 + 0.3e1 * t49 * t4250 * t584 - 0.3e1 / 0.2e1 * t49 * t1869 * t580 - 0.3e1 * t49 * t363 * t3285 * t1380 + 0.3e1 * t4261 * t1382 * t244 * t580 - t49 * t807 * t1372 / 0.2e1, t49 * t3998 * t315 + 0.6e1 * t4280 * t4281 * t717 - 0.6e1 * t49 * t3806 - t49 * t4012 - 0.3e1 * t49 * t4039 + 0.6e1 * t49 * t4043 - 0.3e1 * t49 * t4046);
1564   t4298 = t390 * t1621 * t720;
1565   t4301 = t863 * t1909;
1566   t4304 = t390 * t1615;
1567   t4313 = 0.6e1 * t866 * t1883 * t717 * t314 - 0.6e1 * t150 * t1889 * t155 - 0.6e1 * t150 * t319 * t1758 + 0.2e1 * t321 * t339 * t1625 + 0.6e1 * t321 * t1758 * t318 - t12 * t4287 + 0.6e1 * t860 * t1880 + 0.6e1 * t1891 * t864 + 0.12e2 * t1908 * t4298 - 0.12e2 * t1908 * t4301 - 0.6e1 * t1908 * t4304;
1568   t4315 = 0.6e1 * t851 * t46 * t390 * t315 * t438 - 0.6e1 * t321 * t438 * t46 * t1910 + 0.2e1 * t321 * t3779 * t95 + 0.6e1 * t851 * t1759 + 0.6e1 * t851 * t1765 + 0.6e1 * t1768 * t857 + 0.6e1 * t1894 * t844 - 0.6e1 * t756 * t1904 - 0.6e1 * t1916 * t759 - 0.2e1 * t3783 * t340 + t4019 + t4052 + t4313;
1569   t4341 = t155 * t339;
1570   t4354 = 0.3e1 * t396 * t1664 + 0.18e2 * t743 * t881 + 0.9e1 * t330 * t1961 + 0.18e2 * t874 * t747 + 0.3e1 * t1649 * t398 + params->d * t4315 * t147 + 0.18e2 * t146 * t427 * t764 + 0.9e1 * t874 * t750 + 0.6e1 * t396 * t1657 + 0.6e1 * t146 * t880 * t1133 + 0.18e2 * t330 * t1951 + 0.36e2 * t330 * t1955 + 0.18e2 * t330 * t1958 + 0.18e2 * t146 * t10 * t1758 * t155 + 0.18e2 * t146 * t1954 * t438 + 0.18e2 * t146 * t4341 * t438 + 0.18e2 * t396 * t1661 + 0.9e1 * t743 * t884 + 0.9e1 * t1937 * t332 + 0.3e1 * t146 * t11 * t3779;
1571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1572     v4rho3sigma[0] = rho[0] * t4315 * t149 + 0.3e1 * t145 * t1964 + 0.3e1 * t1924 * t149 + t1643 * t401 + t394 * t1667 + 0.3e1 * t1925 * t335 + 0.3e1 * t327 * t1964 + 0.6e1 * t326 * t887 + t329 * t4354 + 0.6e1 * t868 * t335 + 0.3e1 * t393 * t753 + 0.3e1 * t738 * t401 + 0.3e1 * t739 * t887 + 0.3e1 * t869 * t753;
1573 
1574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1575     v4rho3lapl[0] = 0.0e0;
1576 
1577   t4371 = my_piecewise3(t9, 0, 0.3e1 / 0.4e1 * t1130 * t404);
1578   t4420 = -0.2e1 * t150 * t140 * t4371 - 0.2e1 * t3783 * t408 - 0.6e1 * t1916 * t891 + 0.6e1 * t321 * t895 * t725 + 0.2e1 * t321 * t407 * t1625 - 0.2e1 * t150 * t1626 * t407 + 0.2e1 * t4007 * t410 + 0.6e1 * t1768 * t899 + 0.6e1 * t1768 * t901 + 0.2e1 * t321 * t4371 * t95 + 0.6e1 * t321 * t1984 * t318 + 0.6e1 * t851 * t2000 + 0.6e1 * t851 * t1994 + 0.12e2 * t851 * t1997 - 0.6e1 * t756 * t1976 - 0.6e1 * t1916 * t896 - 0.6e1 * t150 * t319 * t1984 - 0.6e1 * t756 * t1985 - 0.6e1 * t150 * t726 * t895 - 0.12e2 * t756 * t1979;
1579   t4465 = t10 * t1984;
1580   t4488 = 0.18e2 * t330 * t2030 + 0.36e2 * t330 * t2034 + 0.18e2 * t330 * t2037 + 0.6e1 * t416 * t1657 + 0.18e2 * t910 * t747 + 0.18e2 * t416 * t1661 + 0.18e2 * t146 * t2375 * t438 + 0.9e1 * t330 * t2040 + 0.18e2 * t146 * t427 * t895 + 0.3e1 * t416 * t1664 + 0.3e1 * t1649 * t418 + 0.18e2 * t146 * t4465 * t155 + 0.18e2 * t146 * t2033 * t438 + 0.18e2 * t743 * t917 + 0.9e1 * t743 * t920 + 0.9e1 * t2016 * t332 + 0.3e1 * t146 * t11 * t4371 + 0.9e1 * t910 * t750 + 0.6e1 * t146 * t916 * t1133 + params->d * t4420 * t147;
1581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1582     v4rho3tau[0] = rho[0] * t4420 * t149 + 0.3e1 * t145 * t2043 + 0.3e1 * t2003 * t149 + t1643 * t421 + t414 * t1667 + 0.3e1 * t2004 * t335 + 0.3e1 * t327 * t2043 + 0.6e1 * t326 * t923 + t329 * t4488 + 0.6e1 * t904 * t335 + 0.3e1 * t413 * t753 + 0.3e1 * t738 * t421 + 0.3e1 * t739 * t923 + 0.3e1 * t905 * t753;
1583 
1584   t4494 = t842 * t842;
1585   t4519 = t845 * t1752;
1586   t4530 = 0.8e1 * t866 * t1883 * t314 * t842 - 0.2e1 * t389 * t48 * t4494 * t722 - 0.2e1 * t150 * t1012 * t438 - 0.4e1 * t150 * t2266 * t155 + 0.4e1 * t321 * t1758 * t383 + 0.2e1 * t321 * t932 * t725 + 0.2e1 * t1891 * t1024 - 0.2e1 * t1891 * t1027 - 0.2e1 * t1916 * t933 + 0.8e1 * t2058 * t844 - 0.4e1 * t756 * t2167 - 0.2e1 * t866 * t4519 + 0.4e1 * t2047 + 0.4e1 * t2051;
1587   t4548 = t781 * t781;
1588   t4553 = t2203 * t962;
1589   t4558 = t2190 * t789;
1590   t4567 = t956 * t1316;
1591   t4574 = t224 * t13;
1592   t4586 = t951 * t547;
1593   t4590 = 0.4e1 * t955 * t957 * t202 * t4548 - 0.12e2 * t4553 * t2210 + 0.8e1 * t4553 * t2221 + 0.16e2 * t4558 * t1837 + 0.2e1 * t2199 * t796 * t569 + 0.7e1 / 0.288e3 * t939 * t511 * t2186 - t955 * t4567 * t202 * t2130 * t940 * t556 / 0.64e2 - 0.7e1 / 0.144e3 * t2228 * t4574 * t2229 + 0.4e1 * t947 * t2194 * t120 * t577 - t939 * t207 * t2185 * t577 / 0.384e3 - t4586 * t963 * t967 / 0.384e3;
1594   t4623 = t945 * t503;
1595   t4635 = t499 * t75;
1596   t4638 = t18 * t241;
1597   t4643 = 0.24e2 * t952 * t962 * t1316 * t499 * t945 * t1832 - 0.16e2 * t952 * t962 * t554 * t4194 * t1851 + 0.119e3 / 0.1728e4 * t939 * t1239 * t941 - t2176 * t79 * t131 * t530 * t118 / 0.384e3 + t2204 * t2227 * t2230 / 0.96e2 - 0.8e1 * t2199 * t2219 * t1832 - 0.8e1 * t4553 * t2216 - 0.24e2 * t2207 * t2208 * t792 * t781 + 0.12e2 * t2207 * t554 * t1216 * t4623 * t505 - 0.4e1 * t2199 * t1844 * t561 - 0.6e1 * t2207 * t2208 * t945 * t577 - t955 * t957 * t4635 * t207 * t4638 * t236 / 0.48e2;
1598   t4645 = t4635 * t74;
1599   t4647 = t131 * t503;
1600   t4693 = t2075 * t4645 * t79 * t4647 * t505 / 0.192e3 - 0.4e1 * t353 * t4548 * t356 * t948 + 0.2e1 * t2199 * t796 * t572 + 0.24e2 * t2207 * t3531 * t202 * t945 * t556 + 0.7e1 / 0.288e3 * t2075 * t2240 * t2179 - t2176 * t79 * t4647 * t118 / 0.384e3 + t2228 * t2130 * t940 * t577 / 0.192e3 - 0.12e2 * t947 * t358 * t1316 * t120 * t556 + t2235 * t2130 * t940 * t569 / 0.192e3 + t2204 * t2234 * t2237 / 0.96e2 - t955 * t2233 * t1216 * t2130 * t940 * t561 / 0.64e2;
1601   t4733 = t18 * t554;
1602   t4738 = 0.4e1 * t2207 * t2219 * t350 * t1804 + 0.2e1 * t4586 * t954 * t959 - 0.4e1 * t2191 * t1863 + t2176 * t79 * t233 * t215 * t118 * t241 / 0.192e3 - 0.7e1 / 0.144e3 * t2235 * t4574 * t2236 + t2235 * t2130 * t940 * t572 / 0.192e3 - 0.4e1 * t2207 * t2213 * t4623 * t118 + 0.8e1 * t4558 * t1852 - 0.4e1 * t2207 * t2213 * t945 * t530 * t118 - 0.119e3 / 0.1728e4 * t964 * t965 * t542 * t79 + 0.7e1 / 0.288e3 * t2224 * t2241 + t939 * t207 * t4733 * t556 / 0.192e3;
1603   t4744 = t2244 * t586;
1604   t4747 = t970 * t1382;
1605   t4753 = t804 * t804;
1606   t4768 = t18 * t691;
1607   t4783 = t2104 * t962;
1608   t4795 = t2091 * t789;
1609   t4807 = t980 * t282 * t4768 * t693 / 0.768e3 + t2137 * t2130 * t940 * t709 / 0.768e3 + t2137 * t2130 * t940 * t706 / 0.768e3 + 0.7e1 / 0.1152e4 * t2125 * t2144 - 0.8e1 * t4783 * t2117 - 0.24e2 * t2108 * t2109 * t830 * t820 - 0.4e1 * t2108 * t2114 * t985 * t672 * t65 + 0.8e1 * t4795 * t1739 - 0.8e1 * t2100 * t2120 * t1719 + 0.4e1 * t987 * t2095 * t67 * t714 - 0.4e1 * t2092 * t1750;
1610   t4813 = t820 * t820;
1611   t4825 = t956 * t1556;
1612   t4836 = t951 * t684;
1613   t4846 = t639 * t74;
1614   t4847 = t4846 * t75;
1615   t4849 = t89 * t643;
1616   t4863 = -0.12e2 * t987 * t358 * t1556 * t67 * t693 + 0.4e1 * t992 * t993 * t277 * t4813 + t2129 * t2130 * t940 * t714 / 0.768e3 + t2105 * t2128 * t2132 / 0.384e3 - t992 * t4825 * t277 * t2130 * t940 * t693 / 0.256e3 + 0.119e3 / 0.6912e4 * t936 * t978 * t542 * t982 + 0.2e1 * t4836 * t954 * t995 - 0.7e1 / 0.576e3 * t2137 * t4574 * t2138 - 0.7e1 / 0.576e3 * t2129 * t4574 * t2131 + t2075 * t4847 * t79 * t4849 * t645 / 0.768e3 - t2076 * t79 * t89 * t672 * t65 / 0.1536e4 - t2076 * t79 * t4849 * t65 / 0.1536e4;
1617   t4904 = 0.7e1 / 0.1152e4 * t2075 * t2143 * t2079 - 0.4e1 * t353 * t4813 * t356 * t988 - t980 * t282 * t2086 * t714 / 0.1536e4 + 0.24e2 * t991 * t962 * t1556 * t639 * t985 * t1719 + 0.16e2 * t4795 * t1724 - 0.4e1 * t2100 * t1731 * t698 - 0.12e2 * t4783 * t2111 + 0.8e1 * t4783 * t2122 - 0.6e1 * t2108 * t2109 * t985 * t714 + 0.4e1 * t2108 * t2120 * t372 * t1691 - 0.119e3 / 0.6912e4 * t999 * t277 * t542 * t75 * t79;
1618   t4939 = t985 * t643;
1619   t4950 = t18 * t311;
1620   t4958 = 0.2e1 * t2100 * t834 * t709 + 0.24e2 * t2108 * t3089 * t277 * t985 * t693 + 0.2e1 * t2100 * t834 * t706 - 0.16e2 * t991 * t962 * t691 * t3862 * t1738 + 0.7e1 / 0.1152e4 * t2083 * t2088 + t2076 * t79 * t303 * t290 * t65 * t311 / 0.768e3 - t992 * t2135 * t1459 * t2130 * t940 * t698 / 0.256e3 + t2105 * t2136 * t2139 / 0.384e3 + 0.12e2 * t2108 * t691 * t1459 * t4939 * t645 - 0.4e1 * t2108 * t2114 * t4939 * t65 - t992 * t993 * t4846 * t282 * t4950 * t306 / 0.192e3 - t4836 * t998 * t1002 / 0.1536e4;
1621   t4960 = t4807 + t4863 + t4904 + t4958;
1622   t4963 = t2147 * t722;
1623   t4964 = t4963 * t314;
1624   t4967 = t1005 * t1621;
1625   t4968 = t4967 * t720;
1626   t4971 = t2065 * t717;
1627   t4982 = t1008 * t3214 * t720;
1628   t4985 = t2170 * t717;
1629   t4989 = my_piecewise3(t139, t49 * (t4590 + t4643 + t4693 + t4738) * t245 / 0.2e1 - t49 * t4744 * t244 + t49 * t4747 * t584 - t49 * t2248 * t580 / 0.2e1 - t49 * t4753 * t586 + 0.4e1 * t4261 * t4250 * t244 - t49 * t807 * t1865 - 0.3e1 * t49 * t973 * t3285 * t584 + t49 * t2254 * t580, 0.8e1 * t4280 * t4042 * t314 + t49 * t4960 * t315 - 0.2e1 * t49 * t4494 * t722 - 0.2e1 * t49 * t4519 - 0.2e1 * t49 * t4964 + 0.2e1 * t49 * t4968 - t49 * t4971 - 0.6e1 * t49 * t4982 + 0.2e1 * t49 * t4985);
1630   t5001 = 0.4e1 * t1768 * t339 * t383 + 0.8e1 * t851 * t764 * t383 + 0.2e1 * t1894 * t1007 - 0.2e1 * t1894 * t1010 - 0.2e1 * t428 * t1012 + 0.4e1 * t1020 * t1880 - t12 * t4989 + 0.8e1 * t2055 * t844 + 0.8e1 * t2072 * t4298 - 0.4e1 * t2072 * t4304 + 0.4e1 * t860 * t2259 - t866 * t4971 - 0.2e1 * t926 * t726 - 0.4e1 * t2165 - 0.4e1 * t2168;
1631   t5020 = t764 * t764;
1632   t5032 = -0.4e1 * t3 * t5020 * t140 - 0.4e1 * t150 * t384 * t1758 - 0.2e1 * t150 * t726 * t932 + 0.4e1 * t2 * t5020 * t95 + 0.2e1 * t1014 * t725 + 0.2e1 * t1768 * t1017 - 0.4e1 * t1046 * t1904 + 0.8e1 * t1055 * t1762 - 0.4e1 * t1916 * t929 + 0.4e1 * t851 * t2046 - 0.8e1 * t756 * t2157 + 0.2e1 * t866 * t4985 + t1019 - t935;
1633   t5047 = t1023 * t1909;
1634   t5050 = t390 * t1777;
1635   t5053 = t1026 * t4281;
1636   t5072 = -0.8e1 * t321 * t764 * t46 * t1910 + t389 * t48 * t4960 * t315 - 0.4e1 * t150 * t1889 * t339 - 0.8e1 * t150 * t849 * t764 - 0.8e1 * t851 * t2071 * t1910 - 0.8e1 * t1046 * t1901 + 0.4e1 * t1055 * t1759 - 0.4e1 * t1908 * t5047 - 0.8e1 * t1908 * t5050 + 0.8e1 * t1908 * t5053 - 0.8e1 * t2072 * t4301 - 0.8e1 * t756 * t2152 - 0.2e1 * t866 * t4964 + 0.2e1 * t866 * t4968 - 0.6e1 * t866 * t4982;
1637   t5074 = t4530 + t5001 + t5032 + t5072;
1638   t5122 = 0.6e1 * t146 * t2303 * t438 + 0.24e2 * t146 * t4341 * t764 + params->d * t5074 * t147 + 0.3e1 * t1034 * t750 + 0.6e1 * t743 * t1038 + 0.3e1 * t743 * t1041 + 0.6e1 * t396 * t1961 + 0.12e2 * t330 * t2295 + 0.12e2 * t330 * t2304 + 0.24e2 * t874 * t881 + 0.12e2 * t874 * t884 + 0.6e1 * t2301;
1639   t5150 = 0.12e2 * t146 * t10 * t5020 + 0.12e2 * t146 * t880 * t1758 + 0.6e1 * t146 * t427 * t932 + 0.6e1 * t146 * t438 * t925 + 0.6e1 * t1034 * t747 + 0.6e1 * t1937 * t398 + 0.12e2 * t396 * t1951 + 0.24e2 * t396 * t1955 + 0.12e2 * t396 * t1958 + 0.6e1 * t2283 * t332 + 0.24e2 * t330 * t2298 + t1043 + 0.12e2 * t2305;
1640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1641     v4rho2sigma2[0] = 0.2e1 * t2271 * t149 + 0.2e1 * t1029 * t335 + rho[0] * t5074 * t149 + 0.2e1 * t2272 * t335 + t1030 * t753 + 0.4e1 * t868 * t401 + 0.4e1 * t393 * t887 + 0.2e1 * t1925 * t401 + 0.4e1 * t869 * t887 + 0.2e1 * t394 * t1964 + 0.2e1 * t326 * t1044 + 0.2e1 * t145 * t2307 + t739 * t1044 + 0.2e1 * t327 * t2307 + t329 * (t5122 + t5150);
1642 
1643   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1644     v4rho2sigmalapl[0] = 0.0e0;
1645 
1646   t5162 = my_piecewise3(t9, 0, -t434 * t404 / 0.4e1);
1647   t5205 = 0.4e1 * t321 * t2324 * t318 - 0.4e1 * t2310 * t896 - 0.2e1 * t1046 * t1976 + 0.2e1 * t321 * t5162 * t95 + 0.4e1 * t2338 * t844 + 0.4e1 * t851 * t2334 - 0.4e1 * t150 * t849 * t895 - 0.2e1 * t3 * t1758 * t408 - 0.4e1 * t2310 * t891 - 0.2e1 * t1916 * t1048 - 0.4e1 * t756 * t2315 + 0.4e1 * t2327 * t901 - 0.4e1 * t851 * t2341 * t1910 - 0.4e1 * t321 * t895 * t46 * t1910 - 0.4e1 * t1046 * t1979 + 0.2e1 * t321 * t1052 * t725 - 0.4e1 * t756 * t2317 + 0.4e1 * t1055 * t1997 - 0.2e1 * t150 * t726 * t1052 - 0.2e1 * t1916 * t1053;
1648   t5257 = -0.2e1 * t150 * t140 * t5162 - 0.4e1 * t150 * t319 * t2324 + 0.2e1 * t2 * t1758 * t410 + 0.2e1 * t1768 * t407 * t383 + 0.4e1 * t851 * t895 * t383 + 0.2e1 * t1055 * t1994 + 0.2e1 * t1055 * t2000 + 0.2e1 * t1059 * t1880 + 0.4e1 * t2327 * t899 - 0.4e1 * t2342 * t4301 - 0.2e1 * t2342 * t4304;
1649   t5259 = -0.2e1 * t150 * t1889 * t407 - 0.2e1 * t150 * t384 * t1984 + 0.2e1 * t321 * t1984 * t383 - 0.2e1 * t1046 * t1985 + 0.2e1 * t1768 * t1057 - 0.4e1 * t756 * t2320 - 0.4e1 * t756 * t2325 + 0.4e1 * t851 * t2332 + 0.4e1 * t2336 * t844 + 0.4e1 * t2342 * t4298 + t5205 + t5257;
1650   t5311 = t10 * t2324;
1651   t5320 = 0.12e2 * t146 * t155 * t895 * t339 + 0.6e1 * t146 * t438 * t407 * t339 + 0.3e1 * t146 * t11 * t5162 + 0.12e2 * t146 * t5311 * t155 + 0.6e1 * t146 * t916 * t1758 + 0.12e2 * t146 * t2033 * t764 + 0.12e2 * t146 * t2375 * t764 + 0.6e1 * t146 * t2387 * t438 + 0.6e1 * t146 * t4465 * t339 + 0.6e1 * t1067 * t747 + 0.6e1 * t743 * t1073 + 0.3e1 * t743 * t1076 + 0.12e2 * t416 * t1955 + 0.6e1 * t416 * t1958 + 0.12e2 * t874 * t917 + 0.12e2 * t910 * t881 + 0.6e1 * t910 * t884;
1652   t5358 = 0.6e1 * t146 * t427 * t1052 + params->d * t5259 * t147 + 0.3e1 * t1067 * t750 + 0.3e1 * t1937 * t418 + 0.6e1 * t416 * t1951 + 0.3e1 * t416 * t1961 + 0.3e1 * t2016 * t398 + 0.6e1 * t396 * t2030 + 0.12e2 * t396 * t2034 + 0.6e1 * t396 * t2037 + 0.3e1 * t396 * t2040 + 0.6e1 * t2357 * t332 + 0.12e2 * t330 * t2376 + 0.12e2 * t330 * t2379 + 0.12e2 * t330 * t2382 + 0.12e2 * t330 * t2388 + 0.6e1 * t330 * t2391 + 0.6e1 * t874 * t920;
1653   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1654     v4rho2sigmatau[0] = rho[0] * t5259 * t149 + t394 * t2043 + 0.2e1 * t868 * t421 + t1925 * t421 + t739 * t1079 + 0.2e1 * t2346 * t335 + 0.2e1 * t2345 * t149 + t414 * t1964 + 0.2e1 * t145 * t2394 + t329 * (t5320 + t5358) + 0.2e1 * t326 * t1079 + t2004 * t401 + 0.2e1 * t393 * t923 + 0.2e1 * t413 * t887 + 0.2e1 * t905 * t887 + 0.2e1 * t1062 * t335 + 0.2e1 * t327 * t2394 + t1063 * t753 + 0.2e1 * t904 * t401 + 0.2e1 * t869 * t923;
1655 
1656   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1657     v4rho2lapl2[0] = 0.0e0;
1658 
1659   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1660     v4rho2lapltau[0] = 0.0e0;
1661 
1662   t5391 = t895 * t895;
1663   t5401 = my_piecewise3(t9, 0, t435 * t1085 / 0.2e1);
1664   t5435 = -0.2e1 * t1082 * t726 + 0.2e1 * t1768 * t1093 + 0.4e1 * t851 * t2420 + 0.4e1 * t851 * t2423 + 0.4e1 * t2 * t5391 * t95 + 0.8e1 * t2413 * t1997 + 0.4e1 * t2413 * t1994 - 0.2e1 * t150 * t140 * t5401 + 0.2e1 * t1091 * t725 - 0.4e1 * t150 * t319 * t2409 - 0.4e1 * t2397 * t1985 - 0.4e1 * t3 * t5391 * t140 - 0.8e1 * t2397 * t1979 + 0.2e1 * t321 * t5401 * t95 + 0.4e1 * t321 * t2409 * t318 + 0.2e1 * t321 * t1088 * t725 - 0.4e1 * t756 * t2410 - 0.2e1 * t150 * t726 * t1088 - 0.2e1 * t1916 * t1089 - 0.4e1 * t756 * t2404;
1665   t5463 = t10 * t2409;
1666   t5487 = 0.6e1 * t146 * t438 * t1081 + 0.12e2 * t146 * t5463 * t155 + 0.24e2 * t146 * t2375 * t895 + 0.6e1 * t146 * t2458 * t438 + params->d * t5435 * t147 + 0.3e1 * t1101 * t750 + 0.6e1 * t743 * t1105 + 0.3e1 * t743 * t1108 + 0.6e1 * t2016 * t418 + 0.24e2 * t416 * t2034 + 0.12e2 * t416 * t2037 + 0.6e1 * t2438 * t332;
1667   t5518 = 0.12e2 * t146 * t10 * t5391 + 0.6e1 * t146 * t427 * t1088 + 0.3e1 * t146 * t11 * t5401 + 0.12e2 * t146 * t916 * t1984 + 0.6e1 * t1101 * t747 + 0.12e2 * t416 * t2030 + 0.6e1 * t416 * t2040 + 0.12e2 * t330 * t2450 + 0.24e2 * t330 * t2453 + 0.12e2 * t330 * t2459 + 0.6e1 * t330 * t2462 + 0.24e2 * t910 * t917 + 0.12e2 * t910 * t920;
1668   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1669     v4rho2tau2[0] = 0.2e1 * t2426 * t149 + 0.2e1 * t1096 * t335 + rho[0] * t5435 * t149 + 0.2e1 * t2427 * t335 + t1097 * t753 + 0.4e1 * t904 * t421 + 0.4e1 * t413 * t923 + 0.2e1 * t2004 * t421 + 0.4e1 * t905 * t923 + 0.2e1 * t414 * t2043 + 0.2e1 * t326 * t1111 + 0.2e1 * t145 * t2465 + t739 * t1111 + 0.2e1 * t327 * t2465 + t329 * (t5487 + t5518);
1670 
1671   t5523 = t2506 * t3214 * t314;
1672   t5537 = t4963 * t381;
1673   t5540 = -0.6e1 * t150 * t2266 * t339 - 0.12e2 * t1046 * t2152 + 0.6e1 * t1055 * t2046 - 0.6e1 * t756 * t2513 + 0.6e1 * t2521 * t864 - 0.6e1 * t866 * t5523 - 0.3e1 * t866 * t5537 + t2048 + t2052 - t2512 - t2518;
1674   t5549 = t1055 * t46;
1675   t5559 = t2467 * t956;
1676   t5593 = t2480 * t228 * t2483;
1677   t5596 = t2483 * t2485;
1678   t5597 = t2538 * t5596;
1679   t5617 = t2540 * t499;
1680   t5637 = t5559 * t4645 * t79 * t233 * t350 * t236 / 0.32e2 + 0.7e1 / 0.96e2 * t2528 * t511 * t2529 + t5559 * t966 * t79 * t554 * t350 * t241 / 0.32e2 - t2528 * t207 * t2185 * t781 / 0.64e2 + 0.18e2 * t951 * t945 * t954 * t957 * t4159 - 0.18e2 * t2535 * t4567 * t202 * t241 - 0.12e2 * t2534 * t962 * t2213 * t236 - 0.6e1 * t5593 * t2542 + 0.24e2 * t5597 * t3531 * t499 * t2533 * t241 + 0.18e2 * t5597 * t1316 * t1216 * t2533 * t215 * t118 - 0.18e2 * t5597 * t1316 * t499 * t945 * t781 + t5593 * t2546 * t2550 / 0.64e2 - 0.3e1 / 0.64e2 * t2539 * t5617 * t2549 * t78 * t4638 - 0.3e1 / 0.64e2 * t2539 * t2545 * t1216 * t350 * t2237 + t2547 * t781 * t75 * t74 * t79 / 0.64e2 - 0.7e1 / 0.96e2 * t2547 * t2548 * t223 * t79;
1681   t5641 = t2553 * t586;
1682   t5697 = t2480 * t298 * t2483;
1683   t5700 = t2481 * t5596;
1684   t5720 = t2486 * t639;
1685   t5741 = t5559 * t4847 * t79 * t303 * t372 * t306 / 0.128e3 + 0.7e1 / 0.384e3 * t2467 * t2468 * t223 * t2472 + t5559 * t1001 * t79 * t691 * t372 * t311 / 0.128e3 - t2470 * t282 * t2086 * t820 / 0.256e3 + 0.18e2 * t951 * t985 * t954 * t993 * t3987 - 0.18e2 * t2477 * t4825 * t277 * t311 - 0.12e2 * t2476 * t962 * t2114 * t306 - 0.6e1 * t5697 * t2488 + 0.24e2 * t5700 * t3089 * t639 * t2475 * t311 + 0.18e2 * t5700 * t1556 * t1459 * t2475 * t290 * t65 - 0.18e2 * t5700 * t1556 * t639 * t985 * t820 + t5697 * t2492 * t2496 / 0.256e3 - 0.3e1 / 0.256e3 * t2484 * t5720 * t2495 * t78 * t4950 - 0.3e1 / 0.256e3 * t2484 * t2491 * t1459 * t372 * t2139 + t2493 * t820 * t74 * t75 * t79 / 0.256e3 - 0.7e1 / 0.384e3 * t2493 * t372 * t223 * t75 * t79;
1686   t5744 = t2499 * t722;
1687   t5745 = t5744 * t314;
1688   t5753 = t2065 * t842;
1689   t5756 = t2170 * t842;
1690   t5762 = my_piecewise3(t139, t49 * t5637 * t245 / 0.2e1 - t49 * t5641 * t244 / 0.2e1 - 0.3e1 / 0.2e1 * t49 * t4744 * t363 + 0.3e1 * t49 * t970 * t1872 * t244 - 0.3e1 / 0.2e1 * t49 * t2248 * t804 + 0.3e1 * t49 * t2254 * t804 - 0.3e1 * t49 * t2560 * t3285 * t244, 0.6e1 * t49 * t1005 * t1883 * t314 + t49 * t5741 * t315 - 0.6e1 * t49 * t5523 - 0.3e1 * t49 * t5537 - t49 * t5745 - 0.3e1 * t49 * t5753 + 0.6e1 * t49 * t5756);
1691   t5770 = 0.12e2 * t5549 * t390 * t315 * t764 - 0.2e1 * t150 * t2572 * t155 + 0.6e1 * t2055 * t1007 + 0.6e1 * t2058 * t1007 - 0.6e1 * t2055 * t1010 - 0.6e1 * t2058 * t1010 + 0.6e1 * t2327 * t1017 + 0.6e1 * t1020 * t2259 - t12 * t5762 - 0.6e1 * t2521 * t1910 - 0.6e1 * t926 * t849 + t2520;
1692   t5789 = t1023 * t845;
1693   t5798 = 0.6e1 * t866 * t4967 * t381 * t314 + 0.6e1 * t851 * t932 * t383 - 0.6e1 * t1046 * t2167 - 0.6e1 * t1908 * t5789 - 0.12e2 * t2072 * t5050 + 0.12e2 * t2072 * t5053 - 0.6e1 * t2310 * t933 + 0.2e1 * t860 * t2565 + 0.6e1 * t2574 * t844 - 0.3e1 * t866 * t5753 + 0.6e1 * t866 * t5756 + t2576;
1694   t5819 = -0.6e1 * t321 * t932 * t46 * t1910 + t389 * t48 * t5741 * t315 - 0.6e1 * t150 * t1012 * t764 - 0.6e1 * t150 * t849 * t932 - 0.6e1 * t2072 * t5047 - 0.6e1 * t756 * t2516 + 0.4e1 * t860 * t2569 - t866 * t5745 + t1019 - t2166 - t2169 - t935;
1695   t5821 = t5540 + t5770 + t5798 + t5819;
1696   t5872 = 0.18e2 * t146 * t1954 * t932 + 0.18e2 * t146 * t4341 * t932 + 0.18e2 * t146 * t925 * t764 + params->d * t5821 * t147 + 0.18e2 * t1034 * t881 + 0.9e1 * t1034 * t884 + 0.18e2 * t874 * t1038 + 0.9e1 * t874 * t1041 + 0.9e1 * t2283 * t398 + 0.18e2 * t396 * t2295 + 0.36e2 * t396 * t2298 + 0.18e2 * t396 * t2304 + 0.3e1 * t2588 * t332 + 0.6e1 * t330 * t2596 + 0.18e2 * t330 * t2599 + t1043 + t2302 + t2306 + t2595 + t2601;
1697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1698     v4rhosigma3[0] = rho[0] * t5821 * t149 + 0.3e1 * t1029 * t401 + 0.3e1 * t1030 * t887 + 0.3e1 * t393 * t1044 + 0.3e1 * t869 * t1044 + t145 * t2602 + t2581 * t149 + 0.3e1 * t2272 * t401 + 0.3e1 * t394 * t2307 + t2582 * t335 + t327 * t2602 + t329 * t5872;
1699 
1700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1701     v4rhosigma2lapl[0] = 0.0e0;
1702 
1703   t5921 = 0.4e1 * t851 * t1052 * t383 + 0.4e1 * t1055 * t895 * t383 + 0.4e1 * t321 * t2324 * t383 + 0.4e1 * t2327 * t407 * t383 - 0.2e1 * t2338 * t1010 - 0.4e1 * t1046 * t2317 - 0.4e1 * t2310 * t1048 - 0.2e1 * t2604 * t896 + 0.2e1 * t2617 * t899 + 0.4e1 * t2622 * t844 + 0.4e1 * t2625 * t844;
1704   t5944 = -0.4e1 * t321 * t1052 * t46 * t1910 - 0.4e1 * t1055 * t2341 * t1910 + 0.2e1 * t2336 * t1007 + 0.2e1 * t2338 * t1007 - 0.2e1 * t2336 * t1010 + 0.4e1 * t1055 * t2332 + 0.4e1 * t2327 * t1057 + 0.2e1 * t1059 * t2259 + 0.2e1 * t2617 * t901 - t2606 + t2619;
1705   t5960 = -0.2e1 * t150 * t2266 * t407 + 0.4e1 * t1055 * t2334 - 0.2e1 * t2342 * t5047 - 0.4e1 * t2342 * t5050 + 0.4e1 * t2342 * t5053 - 0.2e1 * t2604 * t891 - 0.2e1 * t756 * t2611 + t1019 - t2166 - t2169 - t935;
1706   t5962 = -0.2e1 * t150 * t1012 * t895 - 0.4e1 * t150 * t849 * t1052 - 0.4e1 * t150 * t384 * t2324 - 0.4e1 * t1046 * t2315 - 0.4e1 * t1046 * t2320 - 0.4e1 * t1046 * t2325 - 0.4e1 * t2310 * t1053 - 0.4e1 * t756 * t2614 + t2048 + t2052 + t5921 + t5944 + t5960;
1707   t6025 = 0.6e1 * t146 * t2375 * t932 + 0.6e1 * t146 * t2033 * t932 + 0.6e1 * t396 * t2391 + 0.12e2 * t146 * t155 * t1052 * t339 + 0.12e2 * t146 * t5311 * t339 + 0.12e2 * t146 * t2387 * t764 + 0.6e1 * t330 * t2661 + 0.6e1 * t910 * t1038 + 0.3e1 * t2641 * t332 + 0.3e1 * t1034 * t920 + t2663 + 0.6e1 * t146 * t925 * t895 + 0.3e1 * t910 * t1041 + params->d * t5962 * t147 + 0.12e2 * t396 * t2388 + 0.3e1 * t2283 * t418 + 0.12e2 * t396 * t2376;
1708   t6040 = t339 * t407;
1709   t6056 = 0.12e2 * t146 * t6040 * t764 + 0.6e1 * t1034 * t917 + 0.12e2 * t1067 * t881 + 0.6e1 * t1067 * t884 + 0.12e2 * t874 * t1073 + 0.6e1 * t874 * t1076 + 0.6e1 * t416 * t2295 + 0.12e2 * t416 * t2298 + 0.6e1 * t416 * t2304 + 0.6e1 * t2357 * t398 + 0.12e2 * t396 * t2379 + 0.12e2 * t396 * t2382 + 0.6e1 * t330 * t2655 + 0.12e2 * t330 * t2658 + t1043 + t2302 + t2306 + t2648;
1710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1711     v4rhosigma2tau[0] = t2632 * t149 + rho[0] * t5962 * t149 + t2633 * t335 + 0.2e1 * t1062 * t401 + 0.2e1 * t2346 * t401 + 0.2e1 * t1063 * t887 + t413 * t1044 + t905 * t1044 + t414 * t2307 + t1029 * t421 + t2272 * t421 + t1030 * t923 + 0.2e1 * t393 * t1079 + 0.2e1 * t869 * t1079 + 0.2e1 * t394 * t2394 + t145 * t2664 + t327 * t2664 + t329 * (t6025 + t6056);
1712 
1713   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1714     v4rhosigmalapl2[0] = 0.0e0;
1715 
1716   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1717     v4rhosigmalapltau[0] = 0.0e0;
1718 
1719   t6070 = my_piecewise3(t9, 0, -t151 * t1085 / 0.4e1);
1720   t6083 = t3 * t895;
1721   t6099 = -0.2e1 * t150 * t140 * t6070 - 0.2e1 * t150 * t384 * t2409 - 0.2e1 * t150 * t319 * t2677 + 0.2e1 * t321 * t2677 * t318 + 0.2e1 * t321 * t6070 * t95 - 0.2e1 * t1046 * t2404 - 0.2e1 * t1046 * t2410 - 0.4e1 * t6083 * t1053 - 0.2e1 * t2310 * t1089 - 0.4e1 * t2397 * t2320 - 0.4e1 * t2397 * t2325 + 0.4e1 * t2413 * t2332 + 0.4e1 * t2413 * t2334 - 0.2e1 * t756 * t2678 + 0.2e1 * t851 * t2688;
1722   t6104 = t2 * t895;
1723   t6122 = t2413 * t46;
1724   t6139 = -0.2e1 * t321 * t1088 * t46 * t1910 + 0.4e1 * t6122 * t390 * t315 * t895 - 0.2e1 * t150 * t849 * t1088 + 0.2e1 * t851 * t1088 * t383 + 0.2e1 * t321 * t2409 * t383 + 0.2e1 * t1055 * t2420 + 0.2e1 * t1055 * t2423 + 0.4e1 * t6104 * t1057 - 0.2e1 * t1082 * t849 + 0.2e1 * t2327 * t1093 - 0.2e1 * t2683 * t1910 - 0.4e1 * t2397 * t2317 - 0.2e1 * t756 * t2672 + 0.2e1 * t2683 * t864 + 0.2e1 * t2691 * t844;
1725   t6140 = t6099 + t6139;
1726   t6176 = t10 * t2677;
1727   t6207 = 0.3e1 * t1101 * t884 + 0.12e2 * t910 * t1073 + 0.12e2 * t146 * t6040 * t895 + 0.6e1 * t396 * t2459 + 0.6e1 * t146 * t764 * t1081 + 0.6e1 * t146 * t6176 * t155 + 0.6e1 * t146 * t155 * t1088 * t339 + 0.6e1 * t146 * t5463 * t339 + 0.6e1 * t146 * t2458 * t764 + 0.6e1 * t874 * t1105 + 0.3e1 * t146 * t11 * t6070 + 0.3e1 * t2438 * t398 + 0.6e1 * t416 * t2391 + 0.12e2 * t416 * t2388 + 0.3e1 * t874 * t1108 + 0.6e1 * t396 * t2450 + params->d * t6140 * t147;
1728   t6247 = 0.12e2 * t146 * t2033 * t1052 + 0.12e2 * t146 * t2375 * t1052 + 0.12e2 * t146 * t916 * t2324 + 0.12e2 * t1067 * t917 + 0.6e1 * t1067 * t920 + 0.6e1 * t910 * t1076 + 0.6e1 * t1101 * t881 + 0.6e1 * t2357 * t418 + 0.12e2 * t416 * t2376 + 0.12e2 * t416 * t2379 + 0.12e2 * t416 * t2382 + 0.12e2 * t396 * t2453 + 0.3e1 * t396 * t2462 + 0.3e1 * t2703 * t332 + 0.6e1 * t330 * t2715 + 0.12e2 * t330 * t2718 + 0.6e1 * t330 * t2723 + 0.3e1 * t330 * t2726;
1729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1730     v4rhosigmatau2[0] = t2694 * t149 + rho[0] * t6140 * t149 + t2695 * t335 + t1096 * t401 + t2427 * t401 + t1097 * t887 + 0.2e1 * t1062 * t421 + 0.2e1 * t2346 * t421 + 0.2e1 * t1063 * t923 + 0.2e1 * t413 * t1079 + 0.2e1 * t905 * t1079 + 0.2e1 * t414 * t2394 + t393 * t1111 + t869 * t1111 + t394 * t2465 + t145 * t2729 + t327 * t2729 + t329 * (t6207 + t6247);
1731 
1732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1733     v4rholapl3[0] = 0.0e0;
1734 
1735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1736     v4rholapl2tau[0] = 0.0e0;
1737 
1738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1739     v4rholapltau2[0] = 0.0e0;
1740 
1741   t6264 = my_piecewise3(t9, 0, 0.3e1 / 0.4e1 * t152 * t2734);
1742   t6282 = -0.2e1 * t150 * t140 * t6264 - 0.2e1 * t150 * t319 * t2737 + 0.2e1 * t321 * t2737 * t318 + 0.2e1 * t321 * t6264 * t95 - 0.6e1 * t6083 * t1089 + 0.6e1 * t6104 * t1093 - 0.6e1 * t2397 * t2404 - 0.6e1 * t2397 * t2410 + 0.6e1 * t2413 * t2420 + 0.6e1 * t2413 * t2423 - 0.2e1 * t756 * t2738 + 0.2e1 * t851 * t2743;
1743   t6340 = t10 * t2737;
1744   t6347 = params->d * t6282 * t147 + 0.3e1 * t2753 * t332 + 0.9e1 * t2438 * t418 + 0.18e2 * t1101 * t917 + 0.9e1 * t1101 * t920 + 0.18e2 * t910 * t1105 + 0.18e2 * t416 * t2450 + 0.36e2 * t416 * t2453 + 0.9e1 * t910 * t1108 + 0.18e2 * t416 * t2459 + 0.9e1 * t416 * t2462 + 0.6e1 * t330 * t2761 + 0.18e2 * t146 * t1081 * t895 + 0.18e2 * t330 * t2764 + 0.18e2 * t146 * t2375 * t1088 + 0.18e2 * t146 * t2033 * t1088 + 0.18e2 * t146 * t916 * t2409 + 0.3e1 * t330 * t2767 + 0.6e1 * t146 * t6340 * t155 + 0.3e1 * t146 * t11 * t6264;
1745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1746     v4rhotau3[0] = rho[0] * t6282 * t149 + 0.3e1 * t1096 * t421 + 0.3e1 * t1097 * t923 + 0.3e1 * t413 * t1111 + 0.3e1 * t905 * t1111 + t145 * t2770 + t2746 * t149 + 0.3e1 * t2427 * t421 + 0.3e1 * t414 * t2465 + t2747 * t335 + t327 * t2770 + t329 * t6347;
1747 
1748   t6353 = t932 * t932;
1749   t6359 = t5744 * t381;
1750   t6375 = -0.6e1 * t3 * t6353 * t140 + 0.6e1 * t2 * t6353 * t95 - 0.12e2 * t2574 * t1010 + 0.8e1 * t1020 * t2565 + 0.16e2 * t1020 * t2569 + 0.12e2 * t2521 * t1024 - 0.12e2 * t2521 * t1027 - 0.24e2 * t1046 * t2516 - 0.4e1 * t866 * t6359 - 0.8e1 * t2511 - 0.8e1 * t2517 + 0.8e1 * t2519 + 0.8e1 * t2575;
1751   t6376 = t2480 * t2483;
1752   t6377 = t2485 * t499;
1753   t6388 = 0.1e1 / t19 / t3009 / rho[0];
1754   t6391 = 0.1e1 / t15 / t14;
1755   t6392 = t6391 * t17;
1756   t6397 = t945 * t945;
1757   t6402 = t2480 * params->beta;
1758   t6403 = t6402 * t126;
1759   t6405 = 0.1e1 / t2482 / t46;
1760   t6406 = t6403 * t6405;
1761   t6407 = t2485 * t47;
1762   t6421 = t6405 * t6407;
1763   t6427 = t30 * t6391 * t17;
1764   t6441 = t970 * t970;
1765   t6445 = t973 * t973;
1766   t6450 = t2485 * t639;
1767   t6464 = t985 * t985;
1768   t6469 = t6402 * t83;
1769   t6470 = t6469 * t6405;
1770   t6491 = 0.3e1 / 0.128e3 * t6376 * t6450 * t74 * t282 * t4768 * t985 - t6376 * t6450 * t6388 * t50 * t30 * t6392 * t303 / 0.49152e5 - 0.24e2 * t2480 * t6464 * t2483 * t5720 + 0.24e2 * t6470 * t6407 * t3089 * t1459 * t6464 - 0.3e1 / 0.128e3 * t6470 * t6407 * t1556 * t1459 * t985 * t74 * t75 * t79 + t6469 * t6421 * t691 * t1459 * t6388 * t50 * t6427 / 0.49152e5;
1771   t6496 = t4967 * t1008;
1772   t6499 = t1005 * t1005;
1773   t6503 = t1008 * t1008;
1774   t6508 = my_piecewise3(t139, t49 * (0.3e1 / 0.32e2 * t6376 * t6377 * t75 * t207 * t4733 * t945 - t6376 * t6377 * t50 * t6388 * t30 * t6392 * t233 / 0.3072e4 - 0.24e2 * t2480 * t6397 * t2483 * t5617 + 0.24e2 * t6406 * t6407 * t3531 * t1216 * t6397 - 0.3e1 / 0.32e2 * t6406 * t6407 * t1316 * t1216 * t945 * t75 * t74 * t79 + t6403 * t6421 * t554 * t1216 * t50 * t6388 * t6427 / 0.3072e4) * t245 / 0.2e1 - 0.2e1 * t49 * t5641 * t363 + 0.6e1 * t49 * t4747 * t973 - 0.3e1 / 0.2e1 * t49 * t6441 * t586 - 0.3e1 * t49 * t6445 * t3285, t49 * t6491 * t315 - 0.6e1 * t49 * t6503 * t3214 - 0.3e1 * t49 * t6499 * t722 - 0.4e1 * t49 * t6359 + 0.12e2 * t49 * t6496);
1775   t6539 = t389 * t48 * t6491 * t315 + 0.24e2 * t5549 * t390 * t315 * t932 - 0.6e1 * t389 * t48 * t6503 * t3214 - 0.3e1 * t389 * t48 * t6499 * t722 - 0.12e2 * t150 * t1012 * t932 - 0.8e1 * t150 * t2572 * t339 + 0.12e2 * t2574 * t1007 - 0.12e2 * t926 * t1012 - t12 * t6508 - 0.24e2 * t2072 * t5789 + 0.12e2 * t866 * t6496 + t1019 - t935;
1776   t6540 = t6375 + t6539;
1777   t6569 = 0.18e2 * t146 * t10 * t6353 + 0.36e2 * t146 * t925 * t932 + params->d * t6540 * t147 + 0.36e2 * t1034 * t1038 + 0.18e2 * t1034 * t1041 + 0.12e2 * t2588 * t398 + 0.24e2 * t396 * t2596 + 0.72e2 * t396 * t2599 + t1043 + 0.12e2 * t2594 + 0.24e2 * t2600;
1778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1779     v4sigma4[0] = rho[0] * t6540 * t149 + 0.6e1 * t1030 * t1044 + 0.4e1 * t2582 * t401 + 0.4e1 * t394 * t2602 + t329 * t6569;
1780 
1781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1782     v4sigma3lapl[0] = 0.0e0;
1783 
1784   t6587 = -0.6e1 * t150 * t1012 * t1052 - 0.2e1 * t150 * t2572 * t407 - 0.6e1 * t1046 * t2611 - 0.12e2 * t1046 * t2614 - 0.6e1 * t2604 * t1048 - 0.6e1 * t2604 * t1053 + 0.6e1 * t2617 * t1057 + t1019 - t2512 - t2518 + t2520 - t935;
1785   t6608 = 0.12e2 * t1055 * t1052 * t383 + 0.6e1 * t2617 * t407 * t383 + 0.6e1 * t2622 * t1007 + 0.6e1 * t2625 * t1007 - 0.6e1 * t2622 * t1010 - 0.6e1 * t2625 * t1010 + 0.2e1 * t1059 * t2565 + 0.4e1 * t1059 * t2569 - 0.6e1 * t2342 * t5789 + t2576 - t2606 + t2619;
1786   t6609 = t6587 + t6608;
1787   t6655 = 0.18e2 * t146 * t925 * t1052 + 0.18e2 * t146 * t2387 * t932 + 0.18e2 * t146 * t6040 * t932 + params->d * t6609 * t147 + 0.18e2 * t1034 * t1073 + 0.9e1 * t1034 * t1076 + 0.18e2 * t1067 * t1038 + 0.9e1 * t1067 * t1041 + 0.3e1 * t2588 * t418 + 0.6e1 * t416 * t2596 + 0.18e2 * t416 * t2599 + 0.9e1 * t2641 * t398 + 0.18e2 * t396 * t2655 + 0.36e2 * t396 * t2658 + 0.18e2 * t396 * t2661 + t1043 + t2595 + t2601 + t2648 + t2663;
1788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1789     v4sigma3tau[0] = rho[0] * t6609 * t149 + 0.3e1 * t1030 * t1079 + 0.3e1 * t1063 * t1044 + t2582 * t421 + t414 * t2602 + 0.3e1 * t2633 * t401 + 0.3e1 * t394 * t2664 + t329 * t6655;
1790 
1791   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1792     v4sigma2lapl2[0] = 0.0e0;
1793 
1794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1795     v4sigma2lapltau[0] = 0.0e0;
1796 
1797   t6660 = t1052 * t1052;
1798   t6676 = -0.2e1 * t150 * t1012 * t1088 - 0.4e1 * t3 * t6660 * t140 - 0.2e1 * t1082 * t1012 - 0.4e1 * t1046 * t2672 - 0.4e1 * t1046 * t2678 - 0.2e1 * t2604 * t1089 - 0.8e1 * t2397 * t2614 + t1019 - 0.4e1 * t2605 + 0.4e1 * t2618 - t935;
1799   t6705 = 0.8e1 * t6122 * t390 * t315 * t1052 + 0.4e1 * t1055 * t1088 * t383 - 0.4e1 * t150 * t384 * t2677 + 0.4e1 * t2 * t6660 * t95 + 0.4e1 * t321 * t2677 * t383 + 0.2e1 * t2691 * t1007 - 0.2e1 * t2691 * t1010 + 0.2e1 * t2683 * t1024 - 0.2e1 * t2683 * t1027 + 0.4e1 * t1055 * t2688 + 0.2e1 * t2617 * t1093;
1800   t6706 = t6676 + t6705;
1801   t6748 = 0.12e2 * t146 * t10 * t6660 + 0.24e2 * t146 * t6040 * t1052 + 0.6e1 * t146 * t2458 * t932 + 0.12e2 * t146 * t6176 * t339 + 0.6e1 * t1034 * t1105 + 0.3e1 * t1101 * t1041 + 0.12e2 * t1067 * t1076 + 0.6e1 * t2641 * t418 + 0.24e2 * t396 * t2718 + 0.12e2 * t396 * t2723 + 0.6e1 * t396 * t2726 + 0.12e2 * t2662;
1802   t6774 = 0.6e1 * t146 * t932 * t1081 + 0.6e1 * t146 * t925 * t1088 + params->d * t6706 * t147 + 0.3e1 * t1034 * t1108 + 0.6e1 * t1101 * t1038 + 0.24e2 * t1067 * t1073 + 0.12e2 * t416 * t2655 + 0.24e2 * t416 * t2658 + 0.12e2 * t416 * t2661 + 0.6e1 * t2703 * t398 + 0.12e2 * t396 * t2715 + t1043 + 0.6e1 * t2647;
1803   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1804     v4sigma2tau2[0] = rho[0] * t6706 * t149 + 0.2e1 * t2695 * t401 + t1097 * t1044 + 0.2e1 * t2633 * t421 + 0.4e1 * t1063 * t1079 + 0.2e1 * t414 * t2664 + t1030 * t1111 + 0.2e1 * t394 * t2729 + t329 * (t6748 + t6774);
1805 
1806   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1807     v4sigmalapl3[0] = 0.0e0;
1808 
1809   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1810     v4sigmalapl2tau[0] = 0.0e0;
1811 
1812   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1813     v4sigmalapltau2[0] = 0.0e0;
1814 
1815   t6791 = my_piecewise3(t9, 0, -0.3e1 / 0.4e1 * t4 * t2734);
1816   t6812 = 0.6e1 * t6122 * t390 * t315 * t1088 - 0.6e1 * t3 * t1052 * t1089 + 0.6e1 * t2 * t1052 * t1093 - 0.2e1 * t150 * t140 * t6791 - 0.2e1 * t150 * t384 * t2737 + 0.2e1 * t321 * t2737 * t383 + 0.2e1 * t321 * t6791 * t95 - 0.2e1 * t1046 * t2738 + 0.2e1 * t1055 * t2743 - 0.6e1 * t2397 * t2672 - 0.6e1 * t2397 * t2678 + 0.6e1 * t2413 * t2688;
1817   t6871 = params->d * t6812 * t147 + 0.3e1 * t2753 * t398 + 0.9e1 * t2703 * t418 + 0.18e2 * t1101 * t1073 + 0.9e1 * t1101 * t1076 + 0.18e2 * t1067 * t1105 + 0.18e2 * t416 * t2715 + 0.36e2 * t416 * t2718 + 0.9e1 * t1067 * t1108 + 0.18e2 * t416 * t2723 + 0.9e1 * t416 * t2726 + 0.6e1 * t396 * t2761 + 0.18e2 * t146 * t1081 * t1052 + 0.18e2 * t396 * t2764 + 0.18e2 * t146 * t6040 * t1088 + 0.18e2 * t146 * t2387 * t1088 + 0.18e2 * t146 * t916 * t2677 + 0.3e1 * t396 * t2767 + 0.6e1 * t146 * t6340 * t339 + 0.3e1 * t146 * t11 * t6791;
1818   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1819     v4sigmatau3[0] = rho[0] * t6812 * t149 + 0.3e1 * t1063 * t1111 + 0.3e1 * t1097 * t1079 + 0.3e1 * t2695 * t421 + 0.3e1 * t414 * t2729 + t2747 * t401 + t394 * t2770 + t329 * t6871;
1820 
1821   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1822     v4lapl4[0] = 0.0e0;
1823 
1824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1825     v4lapl3tau[0] = 0.0e0;
1826 
1827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1828     v4lapl2tau2[0] = 0.0e0;
1829 
1830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1831     v4lapltau3[0] = 0.0e0;
1832 
1833   t6873 = t1088 * t1088;
1834   t6883 = my_piecewise3(t9, 0, 0.3e1 * t5 / t2733 / tau[0]);
1835   t6895 = -0.2e1 * t150 * t140 * t6883 - 0.6e1 * t3 * t6873 * t140 + 0.6e1 * t2 * t6873 * t95 + 0.2e1 * t321 * t6883 * t95 - 0.8e1 * t2397 * t2738 + 0.8e1 * t2413 * t2743;
1836   t6930 = 0.18e2 * t146 * t10 * t6873 + 0.36e2 * t146 * t1081 * t1088 + 0.3e1 * t146 * t11 * t6883 + 0.24e2 * t146 * t916 * t2737 + params->d * t6895 * t147 + 0.36e2 * t1101 * t1105 + 0.18e2 * t1101 * t1108 + 0.12e2 * t2753 * t418 + 0.24e2 * t416 * t2761 + 0.72e2 * t416 * t2764 + 0.12e2 * t416 * t2767;
1837   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1838     v4tau4[0] = rho[0] * t6895 * t149 + 0.6e1 * t1097 * t1111 + 0.4e1 * t2747 * t421 + 0.4e1 * t414 * t2770 + t329 * t6930;
1839 
1840 #ifndef XC_DONT_COMPILE_MXC
1841 
1842   if(order < 5) return;
1843 
1844 
1845 #endif
1846 
1847 #endif
1848 
1849 #endif
1850 
1851 #endif
1852 
1853 #endif
1854 
1855 
1856 }
1857 
1858 
1859 static inline void
func_ferr(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))1860 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
1861 {
1862 
1863 #ifndef XC_DONT_COMPILE_EXC
1864   double t2, t3, t4, t6, t7, t8, t9, t10;
1865   double t11, t12, t13, t14, t15, t16, t19, t21;
1866   double t22, t25, t27, t28, t29, t30, t33, t35;
1867   double t38, t39, t40, t42, t43, t44, t45, t46;
1868   double t47, t49, t51, t53, t56, t57, t60, t61;
1869   double t62, t63, t64, t65, t66, t68, t70, t71;
1870   double t72, t76, t77, t81, t82, t83, t85, t86;
1871   double t89, t90, t91, t92, t93, t94, t95;
1872 
1873 #ifndef XC_DONT_COMPILE_VXC
1874   double t97, t98, t99, t100, t103, t107, t109, t110;
1875   double t114, t115, t116, t118, t119, t120, t123, t125;
1876   double t126, t134, t135, t136, t139, t141, t145, t146;
1877   double t147, t149, t150, t151, t152, t160, t162, t163;
1878   double t166, t168, t173, t174, t176, t177, t178, t179;
1879   double t180, t181, t182, t187, t188, t190, t191, t195;
1880   double t196, t198, t199, t203, t204, t208, t209, t212;
1881   double t214, t221, t222, t224, t225, t226, t227, t228;
1882   double t229, t230, t232, t234, t235, t236, t237, t240;
1883   double t243, t244, t247, t248, t250, t251, t254, t255;
1884   double t258, t259, t260, t261;
1885 
1886 #ifndef XC_DONT_COMPILE_FXC
1887   double t265, t266, t269, t274, t275, t284, t285, t288;
1888   double t289, t292, t296, t300, t301, t302, t303, t304;
1889   double t309, t310, t312, t313, t316, t319, t321, t322;
1890   double t330, t331, t334, t335, t336, t337, t338, t339;
1891   double t343, t348, t349, t351, t352, t353, t354, t355;
1892   double t356, t359, t360, t361, t369, t370, t376, t382;
1893   double t384, t385, t388, t389, t392, t394, t399, t400;
1894   double t402, t406, t407, t408, t409, t412, t413, t417;
1895   double t421, t424, t429, t430, t432, t436, t437, t438;
1896   double t442, t443, t445, t448, t449, t450, t453, t456;
1897   double t460, t461, t463, t466, t469, t472, t477, t478;
1898   double t482, t483, t484, t487, t488, t494, t501, t502;
1899   double t504, t506, t507, t509, t510, t511, t512, t513;
1900   double t516, t518, t519, t522, t524, t525, t526, t529;
1901   double t530, t531, t532, t535, t536, t543, t548, t551;
1902   double t554, t555, t559, t562, t566, t567, t569, t574;
1903   double t577, t582, t583, t586, t587, t590, t591, t592;
1904   double t595, t596, t602, t603, t606, t609, t612, t613;
1905   double t615, t616, t617, t618, t619, t620, t624, t625;
1906   double t626, t627, t630, t631, t633, t634, t635, t636;
1907   double t638, t641, t642, t643, t644, t645, t648, t649;
1908   double t650, t653, t654, t655, t656, t659, t660, t662;
1909   double t665, t669, t671, t672, t675, t678, t679, t681;
1910   double t684, t686, t691, t692, t695, t698, t699, t700;
1911   double t701, t707, t708, t715, t718, t719;
1912 
1913 #ifndef XC_DONT_COMPILE_KXC
1914   double t725, t728, t731, t732, t735, t736, t739, t742;
1915   double t746, t757, t761, t762, t769, t770, t771, t777;
1916   double t781, t782, t785, t788, t790, t791, t801, t802;
1917   double t810, t811, t813, t814, t818, t822, t823, t824;
1918   double t826, t827, t828, t829, t830, t831, t834, t837;
1919   double t839, t840, t841, t842, t845, t846, t849, t850;
1920   double t851, t854, t857, t867, t871, t875, t876, t882;
1921   double t888, t892, t898, t900, t901, t904, t906, t908;
1922   double t909, t912, t913, t918, t923, t924, t926, t933;
1923   double t934, t935, t936, t937, t941, t944, t945, t949;
1924   double t953, t954, t955, t959, t963, t973, t976, t977;
1925   double t981, t986, t987, t989, t993, t997, t999, t1002;
1926   double t1003, t1008, t1027, t1030, t1035, t1038, t1041, t1042;
1927   double t1046, t1052, t1055, t1062, t1063, t1065, t1070, t1071;
1928   double t1074, t1078, t1080, t1085, t1088, t1091, t1092, t1095;
1929   double t1099, t1102, t1105, t1109, t1114, t1117, t1124, t1140;
1930   double t1143, t1146, t1149, t1150, t1157, t1158, t1162, t1170;
1931   double t1183, t1184, t1186, t1192, t1193, t1195, t1202, t1204;
1932   double t1207, t1208, t1209, t1211, t1212, t1216, t1220, t1223;
1933   double t1224, t1226, t1230, t1231, t1236, t1239, t1242, t1244;
1934   double t1245, t1246, t1251, t1257, t1258, t1273, t1274, t1275;
1935   double t1277, t1280, t1283, t1285, t1286, t1288, t1289, t1291;
1936   double t1292, t1295, t1298, t1303, t1308, t1309, t1310, t1311;
1937   double t1316, t1323, t1326, t1327, t1330, t1331, t1335, t1338;
1938   double t1341, t1344, t1347, t1352, t1357, t1358, t1361, t1364;
1939   double t1368, t1373, t1376, t1379, t1387, t1388, t1389, t1392;
1940   double t1401, t1404, t1406, t1415, t1417, t1420, t1427, t1428;
1941   double t1430, t1433, t1434, t1437, t1442, t1446, t1447, t1450;
1942   double t1451, t1453, t1456, t1459, t1462, t1464, t1467, t1470;
1943   double t1471, t1472, t1473, t1474, t1477, t1478, t1479, t1482;
1944   double t1483, t1486, t1487, t1494, t1497, t1501, t1510, t1516;
1945   double t1517, t1524, t1528, t1533, t1534, t1535, t1536, t1537;
1946   double t1541, t1556, t1557, t1561, t1565, t1568, t1569, t1570;
1947   double t1571, t1572, t1573, t1574, t1575, t1576, t1579, t1582;
1948   double t1590, t1591, t1592, t1593, t1596, t1598, t1599, t1602;
1949   double t1604, t1605, t1607, t1608, t1610, t1613, t1614, t1616;
1950   double t1617, t1622, t1626, t1635, t1640, t1643, t1646, t1649;
1951   double t1652, t1658, t1661, t1668, t1669, t1674, t1681, t1683;
1952   double t1685, t1688, t1689, t1692, t1693, t1696, t1697, t1699;
1953   double t1702, t1705, t1706, t1709, t1710, t1711, t1712, t1715;
1954   double t1716, t1717, t1720, t1723, t1724, t1727, t1734, t1737;
1955   double t1740, t1743, t1746, t1751, t1754, t1759, t1760, t1763;
1956   double t1766, t1769, t1775, t1778, t1779, t1780, t1781, t1784;
1957   double t1785, t1786, t1787, t1790, t1795, t1796, t1804, t1806;
1958   double t1807, t1808, t1809, t1811, t1813, t1816, t1817, t1818;
1959   double t1822, t1823, t1824, t1825, t1826, t1827, t1828, t1830;
1960   double t1833, t1834, t1835, t1836, t1838, t1841, t1842, t1843;
1961   double t1849, t1850, t1851, t1853, t1854, t1861, t1864, t1865;
1962   double t1866, t1867, t1868, t1871, t1878, t1882, t1893, t1894;
1963   double t1897, t1900, t1903, t1904, t1905, t1906, t1909, t1910;
1964   double t1911, t1916, t1917, t1920, t1923, t1925, t1926, t1929;
1965   double t1932, t1935, t1937, t1940, t1943, t1944, t1945, t1946;
1966   double t1951, t1955, t1958, t1959, t1960, t1963, t1968, t1970;
1967   double t1975, t1976, t1979, t1982, t1983, t1991, t1992, t1993;
1968   double t1996, t1999, t2000, t2003, t2004;
1969 
1970 #ifndef XC_DONT_COMPILE_LXC
1971   double t2016, t2020, t2026, t2034, t2041, t2052, t2063, t2074;
1972   double t2100, t2101, t2104, t2110, t2111, t2124, t2127, t2130;
1973   double t2133, t2148, t2154, t2157, t2158, t2161, t2162, t2175;
1974   double t2176, t2181, t2182, t2226, t2250, t2278, t2288, t2290;
1975   double t2291, t2293, t2300, t2304, t2311, t2333, t2345, t2346;
1976   double t2358, t2362, t2371, t2372, t2389, t2391, t2399, t2420;
1977   double t2446, t2492, t2496, t2524, t2525, t2526, t2532, t2533;
1978   double t2561, t2562, t2597, t2600, t2603, t2617, t2620, t2623;
1979   double t2635, t2650, t2658, t2667, t2713, t2724, t2731, t2757;
1980   double t2759, t2792, t2805, t2843, t2846, t2856, t2873, t2888;
1981   double t2889, t2903, t2929, t2940, t2967, t2975, t2979, t3029;
1982   double t3035, t3066, t3067, t3098, t3122, t3133, t3137, t3159;
1983   double t3171, t3181, t3199, t3207, t3210, t3216, t3220, t3248;
1984   double t3255, t3291, t3299, t3309, t3324, t3329, t3352, t3355;
1985   double t3367, t3383, t3384, t3418, t3424, t3431, t3440, t3465;
1986   double t3469, t3487, t3493, t3506, t3514, t3535, t3540, t3581;
1987   double t3584, t3595, t3617, t3618, t3622, t3654, t3659, t3660;
1988   double t3688, t3721, t3730, t3744, t3769, t3817, t3830, t3842;
1989   double t3847, t3852, t3861, t3879, t3890, t3930, t3955, t3972;
1990   double t3982, t4007, t4016, t4046, t4049, t4052, t4060, t4061;
1991   double t4094, t4105, t4122, t4131, t4163, t4167, t4168, t4176;
1992   double t4196, t4208, t4222, t4264, t4299, t4308, t4314, t4334;
1993   double t4341, t4368, t4371, t4375, t4404, t4430, t4435, t4465;
1994   double t4481, t4485, t4488, t4497, t4537, t4541, t4561, t4564;
1995   double t4584, t4585, t4596, t4618, t4626, t4642, t4672, t4688;
1996   double t4706, t4711, t4714, t4720, t4739, t4768, t4801, t4837;
1997   double t4866, t4896, t4903, t4904, t4908, t4941, t4962, t4977;
1998   double t4995, t5009, t5015, t5020, t5043, t5081, t5119, t5151;
1999   double t5156, t5187, t5194, t5228, t5231, t5232, t5235, t5242;
2000   double t5257, t5274, t5289, t5314, t5325, t5332, t5347, t5355;
2001   double t5365, t5376, t5389, t5393, t5405, t5422, t5423, t5433;
2002   double t5436, t5442, t5448, t5450, t5452, t5458, t5475, t5487;
2003   double t5488, t5492, t5493, t5506, t5510, t5563, t5568, t5619;
2004   double t5636, t5651, t5683, t5706, t5738, t5755, t5788, t5831;
2005   double t5873, t5887, t5896, t5911;
2006 #endif
2007 
2008 #endif
2009 
2010 #endif
2011 
2012 #endif
2013 
2014 #endif
2015 
2016 
2017   mgga_c_tpss_params *params;
2018 
2019   assert(p->params != NULL);
2020   params = (mgga_c_tpss_params * )(p->params);
2021 
2022   t2 = 0.1e1 / rho[0];
2023   t3 = sigma[0] * t2;
2024   t4 = 0.1e1 / tau[0];
2025   t6 = t3 * t4 / 0.8e1;
2026   t7 = 0.1e1 < t6;
2027   t8 = my_piecewise3(t7, 1, t6);
2028   t9 = t8 * t8;
2029   t10 = M_CBRT3;
2030   t11 = 0.1e1 / M_PI;
2031   t12 = POW_1_3(t11);
2032   t13 = t10 * t12;
2033   t14 = M_CBRT4;
2034   t15 = t14 * t14;
2035   t16 = POW_1_3(rho[0]);
2036   t19 = t13 * t15 / t16;
2037   t21 = 0.1e1 + 0.51370000000000000000e-1 * t19;
2038   t22 = sqrt(t19);
2039   t25 = POW_3_2(t19);
2040   t27 = t10 * t10;
2041   t28 = t12 * t12;
2042   t29 = t27 * t28;
2043   t30 = t16 * t16;
2044   t33 = t29 * t14 / t30;
2045   t35 = 0.70594500000000000000e1 * t22 + 0.15494250000000000000e1 * t19 + 0.42077500000000000000e0 * t25 + 0.15629250000000000000e0 * t33;
2046   t38 = 0.1e1 + 0.32163958997385070134e2 / t35;
2047   t39 = log(t38);
2048   t40 = t21 * t39;
2049   t42 = log(0.2e1);
2050   t43 = 0.1e1 - t42;
2051   t44 = M_PI * M_PI;
2052   t45 = 0.1e1 / t44;
2053   t46 = t43 * t45;
2054   t47 = rho[0] * rho[0];
2055   t49 = 0.1e1 / t16 / t47;
2056   t51 = 0.1e1 / t12;
2057   t53 = t27 * t51 * t14;
2058   t56 = 0.1e1 / t43;
2059   t57 = params->beta * t56;
2060   t60 = exp(0.61370581910589784405e0 * t40 * t56);
2061   t61 = t60 - 0.1e1;
2062   t62 = 0.1e1 / t61;
2063   t63 = t44 * t62;
2064   t64 = t57 * t63;
2065   t65 = sigma[0] * sigma[0];
2066   t66 = t47 * t47;
2067   t68 = 0.1e1 / t30 / t66;
2068   t70 = 0.1e1 / t28;
2069   t71 = t10 * t70;
2070   t72 = t71 * t15;
2071   t76 = sigma[0] * t49 * t53 / 0.48e2 + t64 * t65 * t68 * t72 / 0.768e3;
2072   t77 = params->beta * t76;
2073   t81 = t57 * t63 * t76 + 0.1e1;
2074   t82 = 0.1e1 / t81;
2075   t83 = t56 * t44 * t82;
2076   t85 = t77 * t83 + 0.1e1;
2077   t86 = log(t85);
2078   t89 = -0.3109070e-1 * t40 + t46 * t86 / 0.2e1;
2079   t90 = t9 * t89;
2080   t91 = t9 * t9;
2081   t92 = t91 * t8;
2082   t93 = params->d * t92;
2083   t94 = t93 * t89;
2084   t95 = 0.1e1 - t94;
2085   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2086     zk[0] = -t90 * t95;
2087 
2088 #ifndef XC_DONT_COMPILE_VXC
2089 
2090   if(order < 1) return;
2091 
2092 
2093   t97 = rho[0] * t8;
2094   t98 = t89 * t95;
2095   t99 = 0.1e1 / t47;
2096   t100 = sigma[0] * t99;
2097   t103 = my_piecewise3(t7, 0, -t100 * t4 / 0.8e1);
2098   t107 = rho[0] * t9;
2099   t109 = 0.1e1 / t16 / rho[0];
2100   t110 = t15 * t109;
2101   t114 = t35 * t35;
2102   t115 = 0.1e1 / t114;
2103   t116 = t21 * t115;
2104   t118 = 0.1e1 / t22 * t10;
2105   t119 = t12 * t15;
2106   t120 = t119 * t109;
2107   t123 = t13 * t110;
2108   t125 = sqrt(t19);
2109   t126 = t125 * t10;
2110   t134 = -0.11765750000000000000e1 * t118 * t120 - 0.51647500000000000000e0 * t123 - 0.21038750000000000000e0 * t126 * t120 - 0.10419500000000000000e0 * t29 * t14 / t30 / rho[0];
2111   t135 = 0.1e1 / t38;
2112   t136 = t134 * t135;
2113   t139 = t47 * rho[0];
2114   t141 = 0.1e1 / t16 / t139;
2115   t145 = t61 * t61;
2116   t146 = 0.1e1 / t145;
2117   t147 = t44 * t146;
2118   t149 = t57 * t147 * t65;
2119   t150 = t68 * t10;
2120   t151 = t150 * t70;
2121   t152 = t13 * t15;
2122   t160 = -0.10508689309156657416e-1 * t152 * t109 * t39 * t56 - 0.19739208802178717239e2 * t116 * t136 * t56;
2123   t162 = t15 * t160 * t60;
2124   t163 = t151 * t162;
2125   t166 = t66 * rho[0];
2126   t168 = 0.1e1 / t30 / t166;
2127   t173 = -0.7e1 / 0.144e3 * sigma[0] * t141 * t53 - t149 * t163 / 0.768e3 - 0.7e1 / 0.1152e4 * t64 * t65 * t168 * t72;
2128   t174 = params->beta * t173;
2129   t176 = t77 * t56;
2130   t177 = t81 * t81;
2131   t178 = 0.1e1 / t177;
2132   t179 = t44 * t178;
2133   t180 = t57 * t44;
2134   t181 = t146 * t76;
2135   t182 = t160 * t60;
2136   t187 = t57 * t63 * t173 - t180 * t181 * t182;
2137   t188 = t179 * t187;
2138   t190 = t174 * t83 - t176 * t188;
2139   t191 = 0.1e1 / t85;
2140   t195 = 0.53237641966666666666e-3 * t13 * t110 * t39 + 0.10000000000000000000e1 * t116 * t136 + t46 * t190 * t191 / 0.2e1;
2141   t196 = t195 * t95;
2142   t198 = params->d * t91;
2143   t199 = t89 * t103;
2144   t203 = -t93 * t195 - 0.5e1 * t198 * t199;
2145   t204 = t89 * t203;
2146   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2147     vrho[0] = -0.2e1 * t97 * t98 * t103 - t107 * t196 - t107 * t204 + (-t90 * t95);
2148 
2149   t208 = my_piecewise3(t7, 0, t2 * t4 / 0.8e1);
2150   t209 = t98 * t208;
2151   t212 = t107 * t43;
2152   t214 = t51 * t14;
2153   t221 = t49 * t27 * t214 / 0.48e2 + t64 * sigma[0] * t68 * t72 / 0.384e3;
2154   t222 = params->beta * t221;
2155   t224 = params->beta * params->beta;
2156   t225 = t224 * t76;
2157   t226 = t43 * t43;
2158   t227 = 0.1e1 / t226;
2159   t228 = t225 * t227;
2160   t229 = t44 * t44;
2161   t230 = t229 * t178;
2162   t232 = t230 * t62 * t221;
2163   t234 = t222 * t83 - t228 * t232;
2164   t235 = t45 * t234;
2165   t236 = t191 * t95;
2166   t237 = t235 * t236;
2167   t240 = t89 * t208;
2168   t243 = t93 * t43;
2169   t244 = t235 * t191;
2170   t247 = -0.5e1 * t198 * t240 - t243 * t244 / 0.2e1;
2171   t248 = t89 * t247;
2172   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2173     vsigma[0] = -0.2e1 * t97 * t209 - t212 * t237 / 0.2e1 - t107 * t248;
2174 
2175   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
2176     vlapl[0] = 0.0e0;
2177 
2178   t250 = tau[0] * tau[0];
2179   t251 = 0.1e1 / t250;
2180   t254 = my_piecewise3(t7, 0, -t3 * t251 / 0.8e1);
2181   t255 = t98 * t254;
2182   t258 = t91 * t9;
2183   t259 = rho[0] * t258;
2184   t260 = t89 * t89;
2185   t261 = t260 * params->d;
2186   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2187     vtau[0] = 0.5e1 * t259 * t261 * t254 - 0.2e1 * t97 * t255;
2188 
2189 #ifndef XC_DONT_COMPILE_FXC
2190 
2191   if(order < 2) return;
2192 
2193 
2194   t265 = t8 * t89;
2195   t266 = t95 * t103;
2196   t269 = t9 * t195;
2197   t274 = t103 * t103;
2198   t275 = rho[0] * t274;
2199   t284 = 0.1e1 / t139;
2200   t285 = sigma[0] * t284;
2201   t288 = my_piecewise3(t7, 0, t285 * t4 / 0.4e1);
2202   t289 = t98 * t288;
2203   t292 = t15 * t49;
2204   t296 = t109 * t115;
2205   t300 = t114 * t35;
2206   t301 = 0.1e1 / t300;
2207   t302 = t21 * t301;
2208   t303 = t134 * t134;
2209   t304 = t303 * t135;
2210   t309 = 0.1e1 / t22 / t19 * t27;
2211   t310 = t28 * t14;
2212   t312 = 0.1e1 / t30 / t47;
2213   t313 = t310 * t312;
2214   t316 = t119 * t49;
2215   t319 = t13 * t292;
2216   t321 = 0.1e1/sqrt(t19);
2217   t322 = t321 * t27;
2218   t330 = -0.78438333333333333333e0 * t309 * t313 + 0.15687666666666666667e1 * t118 * t316 + 0.68863333333333333333e0 * t319 + 0.14025833333333333333e0 * t322 * t313 + 0.28051666666666666667e0 * t126 * t316 + 0.17365833333333333333e0 * t29 * t14 * t312;
2219   t331 = t330 * t135;
2220   t334 = t114 * t114;
2221   t335 = 0.1e1 / t334;
2222   t336 = t21 * t335;
2223   t337 = t38 * t38;
2224   t338 = 0.1e1 / t337;
2225   t339 = t303 * t338;
2226   t343 = 0.1e1 / t16 / t66;
2227   t348 = 0.1e1 / t145 / t61;
2228   t349 = t44 * t348;
2229   t351 = t57 * t349 * t65;
2230   t352 = t160 * t160;
2231   t353 = t15 * t352;
2232   t354 = t60 * t60;
2233   t355 = t353 * t354;
2234   t356 = t151 * t355;
2235   t359 = t168 * t10;
2236   t360 = t359 * t70;
2237   t361 = t360 * t162;
2238   t369 = t135 * t56;
2239   t370 = t115 * t134 * t369;
2240   t376 = t331 * t56;
2241   t382 = 0.14011585745542209888e-1 * t152 * t49 * t39 * t56 + 0.67600210411194713636e0 * t123 * t370 + 0.39478417604357434478e2 * t302 * t304 * t56 - 0.19739208802178717239e2 * t116 * t376 - 0.63489110255409872532e3 * t336 * t339 * t56;
2242   t384 = t15 * t382 * t60;
2243   t385 = t151 * t384;
2244   t388 = t353 * t60;
2245   t389 = t151 * t388;
2246   t392 = t66 * t47;
2247   t394 = 0.1e1 / t30 / t392;
2248   t399 = 0.35e2 / 0.216e3 * sigma[0] * t343 * t53 + t351 * t356 / 0.384e3 + 0.7e1 / 0.576e3 * t149 * t361 - t149 * t385 / 0.768e3 - t149 * t389 / 0.768e3 + 0.119e3 / 0.3456e4 * t64 * t65 * t394 * t72;
2249   t400 = params->beta * t399;
2250   t402 = t174 * t56;
2251   t406 = 0.1e1 / t177 / t81;
2252   t407 = t44 * t406;
2253   t408 = t187 * t187;
2254   t409 = t407 * t408;
2255   t412 = t348 * t76;
2256   t413 = t352 * t354;
2257   t417 = t146 * t173;
2258   t421 = t382 * t60;
2259   t424 = t352 * t60;
2260   t429 = -t180 * t181 * t421 - t180 * t181 * t424 - 0.2e1 * t180 * t417 * t182 + 0.2e1 * t180 * t412 * t413 + t57 * t63 * t399;
2261   t430 = t179 * t429;
2262   t432 = 0.2e1 * t176 * t409 - t176 * t430 - 0.2e1 * t402 * t188 + t400 * t83;
2263   t436 = t190 * t190;
2264   t437 = t85 * t85;
2265   t438 = 0.1e1 / t437;
2266   t442 = -0.70983522622222222221e-3 * t13 * t292 * t39 - 0.34246666666666666666e-1 * t152 * t296 * t136 - 0.20000000000000000000e1 * t302 * t304 + 0.10000000000000000000e1 * t116 * t331 + 0.32163958997385070134e2 * t336 * t339 + t46 * t432 * t191 / 0.2e1 - t46 * t436 * t438 / 0.2e1;
2267   t443 = t442 * t95;
2268   t445 = t195 * t203;
2269   t448 = t9 * t8;
2270   t449 = params->d * t448;
2271   t450 = t89 * t274;
2272   t453 = t195 * t103;
2273   t456 = t89 * t288;
2274   t460 = -0.10e2 * t198 * t453 - 0.5e1 * t198 * t456 - t93 * t442 - 0.20e2 * t449 * t450;
2275   t461 = t89 * t460;
2276   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2277     v2rho2[0] = -0.4e1 * t97 * t196 * t103 - 0.4e1 * t97 * t204 * t103 - t107 * t443 - 0.2e1 * t107 * t445 - t107 * t461 - 0.2e1 * t90 * t203 - 0.4e1 * t265 * t266 - 0.2e1 * t269 * t95 - 0.2e1 * t275 * t98 - 0.2e1 * t97 * t289;
2278 
2279   t463 = t95 * t208;
2280   t466 = rho[0] * t103;
2281   t469 = t196 * t208;
2282   t472 = t204 * t208;
2283   t477 = my_piecewise3(t7, 0, -t99 * t4 / 0.8e1);
2284   t478 = t98 * t477;
2285   t482 = t9 * t43 * t45;
2286   t483 = t234 * t191;
2287   t484 = t483 * t95;
2288   t487 = t97 * t46;
2289   t488 = t483 * t266;
2290   t494 = t57 * t147 * sigma[0];
2291   t501 = -0.7e1 / 0.144e3 * t141 * t27 * t214 - t494 * t163 / 0.384e3 - 0.7e1 / 0.576e3 * t64 * sigma[0] * t168 * t72;
2292   t502 = params->beta * t501;
2293   t504 = t222 * t56;
2294   t506 = t224 * t173;
2295   t507 = t506 * t227;
2296   t509 = t227 * t229;
2297   t510 = t225 * t509;
2298   t511 = t406 * t62;
2299   t512 = t221 * t187;
2300   t513 = t511 * t512;
2301   t516 = t178 * t146;
2302   t518 = t221 * t160 * t60;
2303   t519 = t516 * t518;
2304   t522 = t230 * t62 * t501;
2305   t524 = -t504 * t188 - t228 * t522 - t507 * t232 + t502 * t83 + 0.2e1 * t510 * t513 + t510 * t519;
2306   t525 = t45 * t524;
2307   t526 = t525 * t236;
2308   t529 = t107 * t46;
2309   t530 = t234 * t438;
2310   t531 = t95 * t190;
2311   t532 = t530 * t531;
2312   t535 = t191 * t203;
2313   t536 = t235 * t535;
2314   t543 = t195 * t247;
2315   t548 = t195 * t208;
2316   t551 = t89 * t477;
2317   t554 = t198 * t43;
2318   t555 = t191 * t103;
2319   t559 = t525 * t191;
2320   t562 = t438 * t190;
2321   t566 = -0.20e2 * t449 * t240 * t103 - 0.5e1 * t198 * t548 - 0.5e1 * t198 * t551 - 0.5e1 / 0.2e1 * t554 * t235 * t555 - t243 * t559 / 0.2e1 + t243 * t235 * t562 / 0.2e1;
2322   t567 = t89 * t566;
2323   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2324     v2rhosigma[0] = -0.2e1 * t265 * t463 - 0.2e1 * t466 * t209 - 0.2e1 * t97 * t469 - 0.2e1 * t97 * t472 - 0.2e1 * t97 * t478 - t482 * t484 / 0.2e1 - t487 * t488 - t212 * t526 / 0.2e1 + t529 * t532 / 0.2e1 - t212 * t536 / 0.2e1 - t90 * t247 - 0.2e1 * t97 * t248 * t103 - t107 * t543 - t107 * t567;
2325 
2326   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2327     v2rholapl[0] = 0.0e0;
2328 
2329   t569 = t95 * t254;
2330   t574 = t196 * t254;
2331   t577 = t204 * t254;
2332   t582 = my_piecewise3(t7, 0, t100 * t251 / 0.8e1);
2333   t583 = t98 * t582;
2334   t586 = t258 * t260;
2335   t587 = params->d * t254;
2336   t590 = rho[0] * t92;
2337   t591 = t590 * t260;
2338   t592 = t587 * t103;
2339   t595 = t259 * t89;
2340   t596 = t587 * t195;
2341   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2342     v2rhotau[0] = 0.5e1 * t259 * t261 * t582 - 0.2e1 * t466 * t255 - 0.2e1 * t265 * t569 - 0.2e1 * t97 * t574 - 0.2e1 * t97 * t577 - 0.2e1 * t97 * t583 + 0.5e1 * t586 * t587 + 0.30e2 * t591 * t592 + 0.10e2 * t595 * t596;
2343 
2344   t602 = t208 * t208;
2345   t603 = rho[0] * t602;
2346   t606 = t483 * t463;
2347   t609 = t248 * t208;
2348   t612 = my_piecewise3(t7, 0, 0);
2349   t613 = t98 * t612;
2350   t615 = 0.2e1 * t97 * t613;
2351   t616 = t224 * t227;
2352   t617 = t229 * t62;
2353   t618 = t616 * t617;
2354   t619 = t70 * t15;
2355   t620 = t619 * t82;
2356   t624 = t221 * t221;
2357   t625 = t224 * t624;
2358   t626 = t625 * t227;
2359   t627 = t230 * t62;
2360   t630 = t224 * params->beta;
2361   t631 = t630 * t76;
2362   t633 = 0.1e1 / t226 / t43;
2363   t634 = t631 * t633;
2364   t635 = t229 * t44;
2365   t636 = t635 * t406;
2366   t638 = t636 * t146 * t624;
2367   t641 = t633 * t635;
2368   t642 = t641 * t178;
2369   t643 = t631 * t642;
2370   t644 = t146 * t68;
2371   t645 = t644 * t72;
2372   t648 = t618 * t150 * t620 / 0.384e3 - 0.2e1 * t626 * t627 + 0.2e1 * t634 * t638 - t643 * t645 / 0.384e3;
2373   t649 = t45 * t648;
2374   t650 = t649 * t236;
2375   t653 = t234 * t234;
2376   t654 = t45 * t653;
2377   t655 = t438 * t95;
2378   t656 = t654 * t655;
2379   t659 = t191 * t247;
2380   t660 = t235 * t659;
2381   t662 = t89 * t602;
2382   t665 = t191 * t208;
2383   t669 = t89 * t612;
2384   t671 = 0.5e1 * t198 * t669;
2385   t672 = t649 * t191;
2386   t675 = t654 * t438;
2387   t678 = -0.20e2 * t449 * t662 - 0.5e1 * t554 * t235 * t665 - t671 - t243 * t672 / 0.2e1 + t243 * t675 / 0.2e1;
2388   t679 = t89 * t678;
2389   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2390     v2sigma2[0] = -0.2e1 * t603 * t98 - 0.2e1 * t487 * t606 - 0.4e1 * t97 * t609 - t615 - t212 * t650 / 0.2e1 + t212 * t656 / 0.2e1 - t212 * t660 - t107 * t679;
2391 
2392   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2393     v2sigmalapl[0] = 0.0e0;
2394 
2395   t681 = rho[0] * t208;
2396   t684 = t483 * t569;
2397   t686 = t248 * t254;
2398   t691 = my_piecewise3(t7, 0, -t2 * t251 / 0.8e1);
2399   t692 = t98 * t691;
2400   t695 = t587 * t208;
2401   t698 = t89 * params->d;
2402   t699 = t259 * t698;
2403   t700 = t254 * t43;
2404   t701 = t700 * t244;
2405   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2406     v2sigmatau[0] = 0.5e1 * t259 * t261 * t691 - 0.2e1 * t681 * t255 - t487 * t684 + 0.30e2 * t591 * t695 - 0.2e1 * t97 * t686 - 0.2e1 * t97 * t692 + 0.5e1 * t699 * t701;
2407 
2408   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2409     v2lapl2[0] = 0.0e0;
2410 
2411   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2412     v2lapltau[0] = 0.0e0;
2413 
2414   t707 = t254 * t254;
2415   t708 = rho[0] * t707;
2416   t715 = 0.1e1 / t250 / tau[0];
2417   t718 = my_piecewise3(t7, 0, t3 * t715 / 0.4e1);
2418   t719 = t98 * t718;
2419   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2420     v2tau2[0] = 0.5e1 * t259 * t261 * t718 + 0.40e2 * t590 * t261 * t707 - 0.2e1 * t708 * t98 - 0.2e1 * t97 * t719;
2421 
2422 #ifndef XC_DONT_COMPILE_KXC
2423 
2424   if(order < 3) return;
2425 
2426 
2427   t725 = t195 * t460;
2428   t728 = t442 * t203;
2429   t731 = 0.1e1 / t66;
2430   t732 = sigma[0] * t731;
2431   t735 = my_piecewise3(t7, 0, -0.3e1 / 0.4e1 * t732 * t4);
2432   t736 = t98 * t735;
2433   t739 = t204 * t288;
2434   t742 = t15 * t141;
2435   t746 = t49 * t115;
2436   t757 = t109 * t335;
2437   t761 = t303 * t134;
2438   t762 = t761 * t135;
2439   t769 = 0.1e1 / t334 / t35;
2440   t770 = t21 * t769;
2441   t771 = t761 * t338;
2442   t777 = 0.1e1 / t22 / t33 * t11 / 0.4e1;
2443   t781 = 0.1e1 / t30 / t139;
2444   t782 = t310 * t781;
2445   t785 = t119 * t141;
2446   t788 = t13 * t742;
2447   t790 = 0.1e1/POW_3_2(t19);
2448   t791 = t790 * t11;
2449   t801 = -0.47063000000000000000e1 * t777 * t731 + 0.31375333333333333334e1 * t309 * t782 - 0.36604555555555555556e1 * t118 * t785 - 0.16068111111111111111e1 * t788 + 0.28051666666666666666e0 * t791 * t731 - 0.56103333333333333332e0 * t322 * t782 - 0.65453888888888888890e0 * t126 * t785 - 0.46308888888888888888e0 * t29 * t14 * t781;
2450   t802 = t801 * t135;
2451   t810 = 0.1e1 / t334 / t114;
2452   t811 = t21 * t810;
2453   t813 = 0.1e1 / t337 / t38;
2454   t814 = t761 * t813;
2455   t818 = 0.1e1 / t16 / t166;
2456   t822 = t145 * t145;
2457   t823 = 0.1e1 / t822;
2458   t824 = t44 * t823;
2459   t826 = t57 * t824 * t65;
2460   t827 = t352 * t160;
2461   t828 = t15 * t827;
2462   t829 = t354 * t60;
2463   t830 = t828 * t829;
2464   t831 = t151 * t830;
2465   t834 = t360 * t355;
2466   t837 = t348 * t65;
2467   t839 = t180 * t837 * t68;
2468   t840 = t160 * t354;
2469   t841 = t840 * t382;
2470   t842 = t72 * t841;
2471   t845 = t828 * t354;
2472   t846 = t151 * t845;
2473   t849 = t394 * t10;
2474   t850 = t849 * t70;
2475   t851 = t850 * t162;
2476   t854 = t360 * t384;
2477   t857 = t360 * t388;
2478   t867 = t301 * t303 * t369;
2479   t871 = t115 * t330 * t369;
2480   t875 = t338 * t56;
2481   t876 = t335 * t303 * t875;
2482   t882 = t302 * t134;
2483   t888 = t802 * t56;
2484   t892 = t875 * t134;
2485   t898 = -0.32693700072931823072e-1 * t152 * t141 * t39 * t56 - 0.13520042082238942727e1 * t319 * t370 - 0.20280063123358414091e1 * t123 * t867 + 0.10140031561679207045e1 * t123 * t871 + 0.32614355938204051519e2 * t123 * t876 - 0.11843525281307230343e3 * t336 * t762 * t56 + 0.11843525281307230343e3 * t882 * t376 + 0.38093466153245923519e4 * t770 * t771 * t56 - 0.19739208802178717239e2 * t116 * t888 - 0.19046733076622961759e4 * t336 * t330 * t892 - 0.40841222780709261955e5 * t811 * t814 * t56;
2486   t900 = t15 * t898 * t60;
2487   t901 = t151 * t900;
2488   t904 = t146 * t65;
2489   t906 = t180 * t904 * t68;
2490   t908 = t382 * t160 * t60;
2491   t909 = t72 * t908;
2492   t912 = t828 * t60;
2493   t913 = t151 * t912;
2494   t918 = 0.1e1 / t30 / t66 / t139;
2495   t923 = -0.455e3 / 0.648e3 * sigma[0] * t818 * t53 - t826 * t831 / 0.128e3 - 0.7e1 / 0.192e3 * t351 * t834 + t839 * t842 / 0.128e3 + t351 * t846 / 0.128e3 - 0.119e3 / 0.1152e4 * t149 * t851 + 0.7e1 / 0.384e3 * t149 * t854 + 0.7e1 / 0.384e3 * t149 * t857 - t149 * t901 / 0.768e3 - t906 * t909 / 0.256e3 - t149 * t913 / 0.768e3 - 0.595e3 / 0.2592e4 * t64 * t65 * t918 * t72;
2496   t924 = params->beta * t923;
2497   t926 = t400 * t56;
2498   t933 = t177 * t177;
2499   t934 = 0.1e1 / t933;
2500   t935 = t44 * t934;
2501   t936 = t408 * t187;
2502   t937 = t935 * t936;
2503   t941 = t407 * t187 * t429;
2504   t944 = t823 * t76;
2505   t945 = t827 * t829;
2506   t949 = t348 * t173;
2507   t953 = t57 * t349;
2508   t954 = t76 * t160;
2509   t955 = t354 * t382;
2510   t959 = t827 * t354;
2511   t963 = t146 * t399;
2512   t973 = t898 * t60;
2513   t976 = t57 * t147;
2514   t977 = t76 * t382;
2515   t981 = t827 * t60;
2516   t986 = -t180 * t181 * t973 - t180 * t181 * t981 - 0.3e1 * t180 * t963 * t182 + 0.6e1 * t180 * t412 * t959 + 0.6e1 * t180 * t949 * t413 - 0.3e1 * t180 * t417 * t421 - 0.3e1 * t180 * t417 * t424 - 0.6e1 * t180 * t944 * t945 - 0.3e1 * t976 * t977 * t182 + t57 * t63 * t923 + 0.6e1 * t953 * t954 * t955;
2517   t987 = t179 * t986;
2518   t989 = -0.6e1 * t176 * t937 + 0.6e1 * t176 * t941 - t176 * t987 - 0.3e1 * t926 * t188 + 0.6e1 * t402 * t409 - 0.3e1 * t402 * t430 + t924 * t83;
2519   t993 = t432 * t438;
2520   t997 = t436 * t190;
2521   t999 = 0.1e1 / t437 / t85;
2522   t1002 = 0.16562821945185185185e-2 * t13 * t742 * t39 + 0.68493333333333333332e-1 * t152 * t746 * t136 + 0.10274000000000000000e0 * t152 * t109 * t301 * t304 - 0.51369999999999999999e-1 * t152 * t296 * t331 - 0.16522625736956710527e1 * t152 * t757 * t339 + 0.60000000000000000000e1 * t336 * t762 - 0.60000000000000000000e1 * t302 * t136 * t330 - 0.19298375398431042081e3 * t770 * t771 + 0.10000000000000000000e1 * t116 * t802 + 0.96491876992155210402e2 * t336 * t330 * t338 * t134 + 0.20690405167709360120e4 * t811 * t814 + t46 * t989 * t191 / 0.2e1 - 0.3e1 / 0.2e1 * t46 * t993 * t190 + t46 * t997 * t999;
2523   t1003 = t1002 * t95;
2524   t1008 = t196 * t288;
2525   t1027 = t9 * t442;
2526   t1030 = t95 * t288;
2527   t1035 = t8 * t195;
2528   t1038 = t203 * t103;
2529   t1041 = params->d * t9;
2530   t1042 = t274 * t103;
2531   t1046 = t195 * t274;
2532   t1052 = t442 * t103;
2533   t1055 = t195 * t288;
2534   t1062 = -0.60e2 * t1041 * t89 * t1042 - 0.5e1 * t198 * t89 * t735 - 0.60e2 * t449 * t199 * t288 - t93 * t1002 - 0.60e2 * t449 * t1046 - 0.15e2 * t198 * t1052 - 0.15e2 * t198 * t1055;
2535   t1063 = t89 * t1062;
2536   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2537     v3rho3[0] = -0.6e1 * t97 * t443 * t103 - 0.12e2 * t97 * t445 * t103 - 0.6e1 * t97 * t461 * t103 - t107 * t1003 - 0.6e1 * t97 * t1008 - 0.3e1 * t1027 * t95 - 0.6e1 * t265 * t1030 - 0.12e2 * t1035 * t266 - 0.12e2 * t265 * t1038 - t107 * t1063 - 0.3e1 * t107 * t725 - 0.3e1 * t107 * t728 - 0.6e1 * t275 * t196 - 0.6e1 * t269 * t203 - 0.6e1 * t275 * t204 - 0.6e1 * t466 * t289 - 0.6e1 * t450 * t95 - 0.3e1 * t90 * t460 - 0.2e1 * t97 * t736 - 0.6e1 * t97 * t739;
2538 
2539   t1065 = t204 * t477;
2540   t1070 = my_piecewise3(t7, 0, t284 * t4 / 0.4e1);
2541   t1071 = t98 * t1070;
2542   t1074 = t191 * t460;
2543   t1078 = t442 * t247;
2544   t1080 = t247 * t103;
2545   t1085 = t195 * t566;
2546   t1088 = t248 * t288;
2547   t1091 = t8 * t43;
2548   t1092 = t1091 * t45;
2549   t1095 = t275 * t43;
2550   t1099 = t196 * t477;
2551   t1102 = t461 * t208;
2552   t1105 = t266 * t190;
2553   t1109 = t524 * t191;
2554   t1114 = rho[0] * t288;
2555   t1117 = t443 * t208;
2556   t1124 = -0.4e1 * t97 * t1065 - 0.2e1 * t97 * t1071 - t212 * t235 * t1074 / 0.2e1 - t107 * t1078 - 0.4e1 * t265 * t1080 - 0.4e1 * t466 * t478 - 0.2e1 * t107 * t1085 - 0.2e1 * t97 * t1088 - 0.2e1 * t1092 * t488 - t1095 * t237 - 0.4e1 * t466 * t469 - 0.4e1 * t97 * t1099 - 0.2e1 * t97 * t1102 + 0.2e1 * t487 * t530 * t1105 - t482 * t1109 * t95 - 0.4e1 * t466 * t472 - 0.2e1 * t1114 * t209 - 0.2e1 * t97 * t1117 - t212 * t525 * t535 - 0.2e1 * t275 * t248;
2557   t1140 = t442 * t208;
2558   t1143 = t195 * t477;
2559   t1146 = t89 * t1070;
2560   t1149 = t449 * t43;
2561   t1150 = t191 * t274;
2562   t1157 = t198 * t46;
2563   t1158 = t103 * t190;
2564   t1162 = t191 * t288;
2565   t1170 = t57 * t349 * sigma[0];
2566   t1183 = 0.35e2 / 0.216e3 * t343 * t27 * t214 + t1170 * t356 / 0.192e3 + 0.7e1 / 0.288e3 * t494 * t361 - t494 * t385 / 0.384e3 - t494 * t389 / 0.384e3 + 0.119e3 / 0.1728e4 * t64 * sigma[0] * t394 * t72;
2567   t1184 = params->beta * t1183;
2568   t1186 = t502 * t56;
2569   t1192 = t224 * t399;
2570   t1193 = t1192 * t227;
2571   t1195 = t506 * t509;
2572   t1202 = t934 * t62;
2573   t1204 = t1202 * t221 * t408;
2574   t1207 = t509 * t406;
2575   t1208 = t225 * t1207;
2576   t1209 = t146 * t221;
2577   t1211 = t187 * t160 * t60;
2578   t1212 = t1209 * t1211;
2579   t1216 = t511 * t501 * t187;
2580   t1220 = t511 * t221 * t429;
2581   t1223 = t178 * t348;
2582   t1224 = t221 * t352;
2583   t1226 = t1223 * t1224 * t354;
2584   t1230 = t501 * t160 * t60;
2585   t1231 = t516 * t1230;
2586   t1236 = t516 * t221 * t382 * t60;
2587   t1239 = t516 * t1224 * t60;
2588   t1242 = t230 * t62 * t1183;
2589   t1244 = t1184 * t83 - 0.2e1 * t1186 * t188 - t1193 * t232 + 0.4e1 * t1195 * t513 + 0.2e1 * t1195 * t519 - 0.6e1 * t510 * t1204 - 0.4e1 * t1208 * t1212 + 0.4e1 * t510 * t1216 + 0.2e1 * t510 * t1220 - 0.2e1 * t510 * t1226 + 0.2e1 * t510 * t1231 + t510 * t1236 + t510 * t1239 - t228 * t1242 + 0.2e1 * t504 * t409 - t504 * t430 - 0.2e1 * t507 * t522;
2590   t1245 = t45 * t1244;
2591   t1246 = t1245 * t191;
2592   t1251 = t999 * t436;
2593   t1257 = -0.60e2 * t1041 * t240 * t274 - 0.40e2 * t449 * t548 * t103 - 0.40e2 * t449 * t551 * t103 - 0.20e2 * t449 * t240 * t288 - 0.5e1 * t198 * t1140 - 0.10e2 * t198 * t1143 - 0.5e1 * t198 * t1146 - 0.10e2 * t1149 * t235 * t1150 - 0.5e1 * t554 * t525 * t555 + 0.5e1 * t1157 * t530 * t1158 - 0.5e1 / 0.2e1 * t554 * t235 * t1162 - t243 * t1246 / 0.2e1 + t243 * t525 * t562 - t243 * t235 * t1251 + t243 * t235 * t993 / 0.2e1;
2594   t1258 = t89 * t1257;
2595   t1273 = t234 * t999;
2596   t1274 = t95 * t436;
2597   t1275 = t1273 * t1274;
2598   t1277 = t1109 * t266;
2599   t1280 = t483 * t1038;
2600   t1283 = t483 * t1030;
2601   t1285 = t524 * t438;
2602   t1286 = t1285 * t531;
2603   t1288 = t203 * t190;
2604   t1289 = t530 * t1288;
2605   t1291 = t95 * t432;
2606   t1292 = t530 * t1291;
2607   t1295 = t445 * t208;
2608   t1298 = t203 * t208;
2609   t1303 = t95 * t477;
2610   t1308 = -0.4e1 * t97 * t543 * t103 - t107 * t1258 - t212 * t1245 * t236 / 0.2e1 + t482 * t532 - 0.4e1 * t97 * t567 * t103 - t482 * t483 * t203 - 0.2e1 * t90 * t566 - 0.2e1 * t269 * t247 - t529 * t1275 - 0.2e1 * t487 * t1277 - 0.2e1 * t487 * t1280 - t487 * t1283 + t529 * t1286 + t529 * t1289 + t529 * t1292 / 0.2e1 - 0.4e1 * t97 * t1295 - 0.4e1 * t265 * t1298 - 0.4e1 * t1035 * t463 - 0.4e1 * t265 * t1303 - 0.4e1 * t199 * t463;
2611   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2612     v3rho2sigma[0] = t1124 + t1308;
2613 
2614   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2615     v3rho2lapl[0] = 0.0e0;
2616 
2617   t1309 = rho[0] * t91;
2618   t1310 = t1309 * t260;
2619   t1311 = t587 * t274;
2620   t1316 = t203 * t254;
2621   t1323 = t95 * t582;
2622   t1326 = params->d * t582;
2623   t1327 = t1326 * t195;
2624   t1330 = t195 * t195;
2625   t1331 = t1330 * params->d;
2626   t1335 = t196 * t582;
2627   t1338 = t461 * t254;
2628   t1341 = t204 * t582;
2629   t1344 = t258 * t89;
2630   t1347 = 0.10e2 * t259 * t1331 * t254 - 0.4e1 * t1035 * t569 + 0.150e3 * t1310 * t1311 - 0.4e1 * t265 * t1316 - 0.4e1 * t265 * t1323 + 0.20e2 * t595 * t1327 - 0.4e1 * t97 * t1335 - 0.2e1 * t97 * t1338 - 0.4e1 * t97 * t1341 + 0.20e2 * t1344 * t596 - 0.4e1 * t199 * t569 - 0.4e1 * t466 * t574;
2631   t1352 = t443 * t254;
2632   t1357 = my_piecewise3(t7, 0, -t285 * t251 / 0.4e1);
2633   t1358 = t98 * t1357;
2634   t1361 = t92 * t260;
2635   t1364 = t590 * t89;
2636   t1368 = t445 * t254;
2637   t1373 = t587 * t442;
2638   t1376 = t1326 * t103;
2639   t1379 = t587 * t288;
2640   t1387 = 0.5e1 * t259 * t261 * t1357 + 0.120e3 * t1364 * t587 * t453 - 0.2e1 * t1114 * t255 + 0.10e2 * t586 * t1326 - 0.2e1 * t97 * t1352 - 0.2e1 * t97 * t1358 + 0.60e2 * t1361 * t592 - 0.4e1 * t97 * t1368 + 0.10e2 * t595 * t1373 + 0.60e2 * t591 * t1376 + 0.30e2 * t591 * t1379 - 0.4e1 * t466 * t577 - 0.4e1 * t466 * t583;
2641   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2642     v3rho2tau[0] = t1347 + t1387;
2643 
2644   t1388 = t463 * t190;
2645   t1389 = t530 * t1388;
2646   t1392 = t543 * t208;
2647   t1401 = t247 * t208;
2648   t1404 = t195 * t678;
2649   t1406 = t191 * t566;
2650   t1415 = t229 * t146;
2651   t1417 = t616 * t1415 * t68;
2652   t1420 = t72 * t82 * t160 * t60;
2653   t1427 = t616 * t617 * t68;
2654   t1428 = t15 * t178;
2655   t1430 = t71 * t1428 * t187;
2656   t1433 = t224 * t221;
2657   t1434 = t1433 * t227;
2658   t1437 = t229 * t406;
2659   t1442 = t625 * t509;
2660   t1446 = t630 * t173;
2661   t1447 = t1446 * t633;
2662   t1450 = t631 * t641;
2663   t1451 = t934 * t146;
2664   t1453 = t1451 * t624 * t187;
2665   t1456 = t406 * t348;
2666   t1459 = t1456 * t624 * t160 * t60;
2667   t1462 = t406 * t146;
2668   t1464 = t1462 * t221 * t501;
2669   t1467 = t1446 * t642;
2670   t1470 = t641 * t406;
2671   t1471 = t631 * t1470;
2672   t1472 = t644 * t10;
2673   t1473 = t619 * t187;
2674   t1474 = t1472 * t1473;
2675   t1477 = t635 * t178;
2676   t1478 = t1477 * t348;
2677   t1479 = t634 * t1478;
2678   t1482 = t146 * t168;
2679   t1483 = t1482 * t72;
2680   t1486 = -t1417 * t1420 / 0.384e3 - 0.7e1 / 0.576e3 * t618 * t359 * t620 - t1427 * t1430 / 0.384e3 - 0.4e1 * t1434 * t522 + 0.4e1 * t626 * t1437 * t62 * t187 + 0.2e1 * t1442 * t516 * t182 + 0.2e1 * t1447 * t638 - 0.6e1 * t1450 * t1453 - 0.4e1 * t1450 * t1459 + 0.4e1 * t1450 * t1464 - t1467 * t645 / 0.384e3 + t1471 * t1474 / 0.192e3 + t1479 * t163 / 0.192e3 + 0.7e1 / 0.576e3 * t643 * t1483;
2681   t1487 = t45 * t1486;
2682   t1494 = t567 * t208;
2683   t1497 = t648 * t191;
2684   t1501 = t653 * t438;
2685   t1510 = t195 * t602;
2686   t1516 = t449 * t46;
2687   t1517 = t208 * t103;
2688   t1524 = t208 * t190;
2689   t1528 = t191 * t477;
2690   t1533 = t449 * t669 * t103;
2691   t1534 = 0.20e2 * t1533;
2692   t1535 = t195 * t612;
2693   t1536 = t198 * t1535;
2694   t1537 = 0.5e1 * t1536;
2695   t1541 = t1487 * t191;
2696   t1556 = -0.60e2 * t1041 * t662 * t103 - 0.20e2 * t449 * t1510 - 0.40e2 * t449 * t240 * t477 - 0.20e2 * t1516 * t483 * t1517 - 0.5e1 * t554 * t525 * t665 + 0.5e1 * t1157 * t530 * t1524 - 0.5e1 * t554 * t235 * t1528 - t1534 - t1537 - t671 - 0.5e1 / 0.2e1 * t554 * t649 * t555 - t243 * t1541 / 0.2e1 + t243 * t649 * t562 / 0.2e1 + 0.5e1 / 0.2e1 * t554 * t654 * t438 * t103 + t243 * t235 * t1285 - t243 * t654 * t999 * t190;
2697   t1557 = t89 * t1556;
2698   t1561 = 0.2e1 * t487 * t1389 - 0.4e1 * t97 * t1392 - 0.4e1 * t681 * t478 - 0.4e1 * t466 * t609 - 0.2e1 * t603 * t196 - 0.4e1 * t265 * t1401 - t107 * t1404 - t615 - t212 * t235 * t1406 + t212 * t654 * t438 * t203 / 0.2e1 - 0.2e1 * t1092 * t606 - t212 * t1487 * t236 / 0.2e1 - 0.2e1 * t97 * t679 * t103 - 0.4e1 * t97 * t1494 - t482 * t1497 * t95 / 0.2e1 + t482 * t1501 * t95 / 0.2e1 - t482 * t483 * t247 - t107 * t1557 - t212 * t525 * t659;
2699   t1565 = t248 * t477;
2700   t1568 = t196 * t612;
2701   t1569 = t97 * t1568;
2702   t1570 = 0.2e1 * t1569;
2703   t1571 = t204 * t612;
2704   t1572 = t97 * t1571;
2705   t1573 = 0.2e1 * t1572;
2706   t1574 = t466 * t613;
2707   t1575 = 0.2e1 * t1574;
2708   t1576 = t1109 * t463;
2709   t1579 = t483 * t1298;
2710   t1582 = t483 * t1303;
2711   t1590 = t95 * t612;
2712   t1591 = t265 * t1590;
2713   t1592 = 0.2e1 * t1591;
2714   t1593 = t466 * t46;
2715   t1596 = t1497 * t266;
2716   t1598 = t648 * t438;
2717   t1599 = t1598 * t531;
2718   t1602 = t1501 * t266;
2719   t1604 = t95 * t524;
2720   t1605 = t530 * t1604;
2721   t1607 = t653 * t999;
2722   t1608 = t1607 * t531;
2723   t1610 = t483 * t1080;
2724   t1613 = t247 * t190;
2725   t1614 = t530 * t1613;
2726   t1616 = -t212 * t649 * t535 / 0.2e1 - 0.4e1 * t97 * t1565 - t1570 - t1573 - t1575 - 0.2e1 * t487 * t1576 - 0.2e1 * t487 * t1579 - 0.2e1 * t487 * t1582 - 0.2e1 * t603 * t204 - t90 * t678 - 0.2e1 * t662 * t95 - t1592 - 0.2e1 * t1593 * t606 - t487 * t1596 + t529 * t1599 / 0.2e1 + t487 * t1602 + t529 * t1605 - t529 * t1608 - 0.2e1 * t487 * t1610 + t529 * t1614;
2727   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2728     v3rhosigma2[0] = t1561 + t1616;
2729 
2730   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2731     v3rhosigmalapl[0] = 0.0e0;
2732 
2733   t1617 = t204 * t691;
2734   t1622 = my_piecewise3(t7, 0, t99 * t251 / 0.8e1);
2735   t1626 = t98 * t1622;
2736   t1635 = t543 * t254;
2737   t1640 = t567 * t254;
2738   t1643 = params->d * t691;
2739   t1646 = t1643 * t195;
2740   t1649 = t247 * t254;
2741   t1652 = t248 * t582;
2742   t1658 = t1326 * t208;
2743   t1661 = t587 * t477;
2744   t1668 = -0.2e1 * t97 * t1617 + 0.5e1 * t259 * t261 * t1622 - 0.2e1 * t97 * t1626 + 0.150e3 * t1310 * t587 * t1517 + 0.60e2 * t1364 * t587 * t548 - 0.2e1 * t97 * t1635 - 0.2e1 * t466 * t686 - 0.2e1 * t97 * t1640 + 0.5e1 * t586 * t1643 + 0.10e2 * t595 * t1646 - 0.2e1 * t265 * t1649 - 0.2e1 * t97 * t1652 - 0.2e1 * t466 * t692 - t1092 * t684 + 0.30e2 * t591 * t1658 + 0.30e2 * t591 * t1661 - 0.2e1 * t681 * t574 + 0.30e2 * t1361 * t695;
2745   t1669 = rho[0] * t477;
2746   t1674 = t1643 * t103;
2747   t1681 = t1109 * t569;
2748   t1683 = t483 * t1316;
2749   t1685 = t483 * t1323;
2750   t1688 = t1344 * t587;
2751   t1689 = t46 * t483;
2752   t1692 = t195 * params->d;
2753   t1693 = t259 * t1692;
2754   t1696 = t569 * t190;
2755   t1697 = t530 * t1696;
2756   t1699 = t700 * t559;
2757   t1702 = t196 * t691;
2758   t1705 = t582 * t43;
2759   t1706 = t1705 * t244;
2760   t1709 = t698 * t254;
2761   t1710 = t259 * t1709;
2762   t1711 = t530 * t190;
2763   t1712 = t46 * t1711;
2764   t1715 = t590 * t1709;
2765   t1716 = t483 * t103;
2766   t1717 = t46 * t1716;
2767   t1720 = t95 * t691;
2768   t1723 = -t1593 * t684 - 0.2e1 * t1669 * t255 + 0.30e2 * t591 * t1674 - t487 * t1681 - t487 * t1683 - t487 * t1685 + 0.5e1 * t1688 * t1689 + 0.5e1 * t1693 * t701 + t487 * t1697 + 0.5e1 * t699 * t1699 - 0.2e1 * t97 * t1702 + 0.5e1 * t699 * t1706 - 0.5e1 * t1710 * t1712 + 0.30e2 * t1715 * t1717 - 0.2e1 * t265 * t1720 - 0.2e1 * t240 * t569 - 0.2e1 * t681 * t577 - 0.2e1 * t681 * t583;
2769   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2770     v3rhosigmatau[0] = t1668 + t1723;
2771 
2772   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2773     v3rholapl2[0] = 0.0e0;
2774 
2775   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2776     v3rholapltau[0] = 0.0e0;
2777 
2778   t1724 = t707 * t89;
2779   t1727 = rho[0] * t254;
2780   t1734 = params->d * t707;
2781   t1737 = t1734 * t103;
2782   t1740 = t1734 * t195;
2783   t1743 = t587 * t582;
2784   t1746 = t95 * t718;
2785   t1751 = t196 * t718;
2786   t1754 = t204 * t718;
2787   t1759 = my_piecewise3(t7, 0, -t100 * t715 / 0.4e1);
2788   t1760 = t98 * t1759;
2789   t1763 = params->d * t718;
2790   t1766 = t1763 * t103;
2791   t1769 = t1763 * t195;
2792   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2793     v3rhotau2[0] = 0.5e1 * t259 * t261 * t1759 + 0.200e3 * t1310 * t1737 + 0.40e2 * t1361 * t1734 + 0.80e2 * t1364 * t1740 - 0.2e1 * t1724 * t95 - 0.4e1 * t1727 * t583 + 0.80e2 * t591 * t1743 - 0.2e1 * t265 * t1746 - 0.2e1 * t97 * t1751 - 0.2e1 * t97 * t1754 - 0.2e1 * t97 * t1760 + 0.5e1 * t586 * t1763 + 0.30e2 * t591 * t1766 + 0.10e2 * t595 * t1769 - 0.2e1 * t708 * t196 - 0.2e1 * t708 * t204 - 0.2e1 * t466 * t719;
2794 
2795   t1775 = t1501 * t463;
2796   t1778 = t248 * t612;
2797   t1779 = t97 * t1778;
2798   t1780 = 0.6e1 * t1779;
2799   t1781 = t679 * t208;
2800   t1784 = t681 * t613;
2801   t1785 = 0.6e1 * t1784;
2802   t1786 = t602 * t208;
2803   t1787 = t89 * t1786;
2804   t1790 = t191 * t602;
2805   t1795 = t449 * t240 * t612;
2806   t1796 = 0.60e2 * t1795;
2807   t1804 = t191 * t612;
2808   t1806 = t554 * t235 * t1804;
2809   t1807 = 0.15e2 / 0.2e1 * t1806;
2810   t1808 = t630 * t633;
2811   t1809 = t635 * t146;
2812   t1811 = t1808 * t1809 * t68;
2813   t1813 = t71 * t1428 * t221;
2814   t1816 = t624 * t221;
2815   t1817 = t630 * t1816;
2816   t1818 = t1817 * t633;
2817   t1822 = t224 * t224;
2818   t1823 = t1822 * t76;
2819   t1824 = t226 * t226;
2820   t1825 = 0.1e1 / t1824;
2821   t1826 = t1823 * t1825;
2822   t1827 = t229 * t229;
2823   t1828 = t1827 * t934;
2824   t1830 = t1828 * t348 * t1816;
2825   t1833 = t1825 * t1827;
2826   t1834 = t1833 * t406;
2827   t1835 = t1823 * t1834;
2828   t1836 = t348 * t221;
2829   t1838 = t1836 * t68 * t72;
2830   t1841 = -t1811 * t1813 / 0.64e2 + 0.6e1 * t1818 * t636 * t146 - 0.6e1 * t1826 * t1830 + t1835 * t1838 / 0.64e2;
2831   t1842 = t45 * t1841;
2832   t1843 = t1842 * t191;
2833   t1849 = t653 * t234;
2834   t1850 = t45 * t1849;
2835   t1851 = t1850 * t999;
2836   t1853 = -0.60e2 * t1041 * t1787 - 0.30e2 * t1149 * t235 * t1790 - t1796 - 0.15e2 / 0.2e1 * t554 * t649 * t665 + 0.15e2 / 0.2e1 * t554 * t654 * t438 * t208 - t1807 - t671 - t243 * t1843 / 0.2e1 + 0.3e1 / 0.2e1 * t243 * t649 * t530 - t243 * t1851;
2837   t1854 = t89 * t1853;
2838   t1861 = t483 * t1401;
2839   t1864 = t483 * t1590;
2840   t1865 = t487 * t1864;
2841   t1866 = 0.3e1 * t1865;
2842   t1867 = t95 * t234;
2843   t1868 = t1598 * t1867;
2844   t1871 = t1497 * t463;
2845   t1878 = t191 * t678;
2846   t1882 = t603 * t43;
2847   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2848     v3sigma3[0] = 0.3e1 * t487 * t1775 - t615 - t1780 - 0.6e1 * t97 * t1781 - t1785 - t107 * t1854 - 0.6e1 * t603 * t248 - t212 * t1850 * t999 * t95 - 0.6e1 * t487 * t1861 - t1866 + 0.3e1 / 0.2e1 * t529 * t1868 - 0.3e1 * t487 * t1871 + 0.3e1 / 0.2e1 * t212 * t654 * t438 * t247 - 0.3e1 / 0.2e1 * t212 * t235 * t1878 - 0.3e1 * t1882 * t237 - t212 * t1842 * t236 / 0.2e1 - 0.3e1 / 0.2e1 * t212 * t649 * t659;
2849 
2850   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2851     v3sigma2lapl[0] = 0.0e0;
2852 
2853   t1893 = 0.5e1 * t259 * t261 * t612;
2854   t1894 = t248 * t691;
2855   t1897 = t679 * t254;
2856   t1900 = t1643 * t208;
2857   t1903 = t587 * t612;
2858   t1904 = t591 * t1903;
2859   t1905 = 0.30e2 * t1904;
2860   t1906 = t587 * t602;
2861   t1909 = rho[0] * t612;
2862   t1910 = t1909 * t255;
2863   t1911 = 0.2e1 * t1910;
2864   t1916 = t691 * t43;
2865   t1917 = t1916 * t244;
2866   t1920 = t700 * t672;
2867   t1923 = t1501 * t569;
2868   t1925 = t208 * t43;
2869   t1926 = t1925 * t244;
2870   t1929 = t700 * t675;
2871   t1932 = t681 * t46;
2872   t1935 = t1497 * t569;
2873   t1937 = t483 * t1649;
2874   t1940 = t483 * t1720;
2875   t1943 = 0.1e1 / t229;
2876   t1944 = t226 * t1943;
2877   t1945 = t259 * t1944;
2878   t1946 = t1501 * t587;
2879   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2880     v3sigma2tau[0] = t1893 - 0.4e1 * t97 * t1894 - 0.2e1 * t97 * t1897 + 0.60e2 * t591 * t1900 + t1905 + 0.150e3 * t1310 * t1906 - t615 - t1911 - 0.4e1 * t681 * t686 - 0.4e1 * t681 * t692 + 0.10e2 * t699 * t1917 + 0.5e1 * t699 * t1920 + t487 * t1923 + 0.60e2 * t1715 * t1926 - 0.5e1 * t699 * t1929 - 0.2e1 * t1932 * t684 - t487 * t1935 - 0.2e1 * t487 * t1937 - 0.2e1 * t487 * t1940 + 0.5e1 / 0.2e1 * t1945 * t1946;
2881 
2882   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2883     v3sigmalapl2[0] = 0.0e0;
2884 
2885   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2886     v3sigmalapltau[0] = 0.0e0;
2887 
2888   t1951 = t708 * t43;
2889   t1955 = t1734 * t208;
2890   t1958 = t590 * t698;
2891   t1959 = t707 * t43;
2892   t1960 = t1959 * t244;
2893   t1963 = t587 * t691;
2894   t1968 = t483 * t1746;
2895   t1970 = t248 * t718;
2896   t1975 = my_piecewise3(t7, 0, t2 * t715 / 0.4e1);
2897   t1976 = t98 * t1975;
2898   t1979 = t1763 * t208;
2899   t1982 = t718 * t43;
2900   t1983 = t1982 * t244;
2901   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2902     v3sigmatau2[0] = 0.5e1 * t259 * t261 * t1975 + 0.200e3 * t1310 * t1955 - 0.4e1 * t1727 * t692 - t1951 * t237 + 0.40e2 * t1958 * t1960 + 0.80e2 * t591 * t1963 - t487 * t1968 - 0.2e1 * t97 * t1970 - 0.2e1 * t97 * t1976 + 0.30e2 * t591 * t1979 + 0.5e1 * t699 * t1983 - 0.2e1 * t708 * t248 - 0.2e1 * t681 * t719;
2903 
2904   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2905     v3lapl3[0] = 0.0e0;
2906 
2907   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2908     v3lapl2tau[0] = 0.0e0;
2909 
2910   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2911     v3lapltau2[0] = 0.0e0;
2912 
2913   t1991 = t707 * t254;
2914   t1992 = rho[0] * t1991;
2915   t1993 = t261 * t91;
2916   t1996 = t587 * t718;
2917   t1999 = t250 * t250;
2918   t2000 = 0.1e1 / t1999;
2919   t2003 = my_piecewise3(t7, 0, -0.3e1 / 0.4e1 * t3 * t2000);
2920   t2004 = t98 * t2003;
2921   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2922     v3tau3[0] = 0.5e1 * t259 * t261 * t2003 - 0.6e1 * t1727 * t719 + 0.210e3 * t1992 * t1993 + 0.120e3 * t591 * t1996 - 0.2e1 * t97 * t2004;
2923 
2924 #ifndef XC_DONT_COMPILE_LXC
2925 
2926   if(order < 4) return;
2927 
2928 
2929   t2016 = 0.1e1 / t166;
2930   t2020 = my_piecewise3(t7, 0, 0.3e1 * sigma[0] * t2016 * t4);
2931   t2026 = t8 * t442;
2932   t2034 = t288 * t288;
2933   t2041 = t203 * t288;
2934   t2052 = t460 * t103;
2935   t2063 = -0.6e1 * rho[0] * t2034 * t98 - 0.4e1 * t107 * t1002 * t203 - 0.8e1 * t97 * t1063 * t103 - 0.24e2 * t97 * t728 * t103 - 0.6e1 * t107 * t442 * t460 - 0.8e1 * t97 * t196 * t735 - 0.2e1 * t97 * t98 * t2020 - 0.8e1 * t97 * t204 * t735 - 0.24e2 * t97 * t445 * t288 - 0.12e2 * t97 * t461 * t288 - 0.24e2 * t199 * t1030 - 0.48e2 * t1035 * t1038 - 0.24e2 * t2026 * t266 - 0.24e2 * t265 * t2041 - 0.24e2 * t265 * t2052 - 0.8e1 * t466 * t736 - 0.24e2 * t466 * t739;
2936   t2074 = t989 * t438;
2937   t2100 = t303 * t303;
2938   t2101 = t2100 * t338;
2939   t2104 = t432 * t999;
2940   t2110 = t21 / t334 / t300;
2941   t2111 = t2100 * t813;
2942   t2124 = t310 * t68;
2943   t2127 = t119 * t343;
2944   t2130 = t15 * t343;
2945   t2133 = pow(t19, -0.25e1);
2946   t2148 = (-0.81706597222222222223e-1 / t22 / t2 * t818 * t152 + 0.37650400000000000000e2 * t777 * t2016 - 0.13944592592592592593e2 * t309 * t2124 + 0.12201518518518518519e2 * t118 * t2127 + 0.53560370370370370370e1 * t13 * t2130 + 0.14025833333333333333e0 * t2133 * t11 * t818 * t152 - 0.22441333333333333332e1 * t791 * t2016 + 0.24934814814814814815e1 * t322 * t2124 + 0.21817962962962962963e1 * t126 * t2127 + 0.16979925925925925926e1 * t29 * t14 * t68) * t135;
2947   t2154 = t2100 * t135;
2948   t2157 = t330 * t330;
2949   t2158 = t2157 * t338;
2950   t2161 = -0.2e1 * t46 * t2074 * t190 - 0.14171548179536397724e3 * t152 * t109 * t810 * t814 - 0.21309037037037037036e0 * t152 * t141 * t115 * t136 + 0.13698666666666666666e0 * t152 * t746 * t331 + 0.44060335298551228073e1 * t152 * t49 * t335 * t339 + 0.13218100589565368422e2 * t152 * t109 * t769 * t771 - 0.68493333333333333332e-1 * t152 * t296 * t802 + 0.11579025239058625248e4 * t811 * t2101 + 0.6e1 * t46 * t2104 * t436 - 0.24828486201251232145e5 * t2110 * t2111 + 0.10000000000000000000e1 * t116 * t2148 - 0.55209406483950617283e-2 * t13 * t2130 * t39 - 0.24000000000000000000e2 * t770 * t2154 + 0.96491876992155210402e2 * t336 * t2158;
2951   t2162 = t432 * t432;
2952   t2175 = t382 * t382;
2953   t2176 = t15 * t2175;
2954   t2181 = t352 * t352;
2955   t2182 = t15 * t2181;
2956   t2226 = -t149 * t151 * t2176 * t60 / 0.256e3 - t149 * t151 * t2182 * t60 / 0.768e3 - t906 * t72 * t382 * t352 * t60 / 0.128e3 + 0.7e1 / 0.384e3 * t351 * t151 * t2182 * t354 - 0.3e1 / 0.64e2 * t826 * t151 * t2182 * t829 - 0.7e1 / 0.48e2 * t351 * t360 * t845 + 0.7e1 / 0.96e2 * t180 * t904 * t168 * t909 + 0.7e1 / 0.288e3 * t149 * t360 * t912 - t906 * t72 * t898 * t160 * t60 / 0.192e3 + 0.595e3 / 0.648e3 * t149 * t918 * t10 * t70 * t162 - 0.119e3 / 0.576e3 * t149 * t850 * t388 + 0.119e3 / 0.288e3 * t351 * t850 * t355;
2957   t2250 = t66 * t66;
2958   t2278 = t813 * t56;
2959   t2288 = t334 * t334;
2960   t2290 = t21 / t2288;
2961   t2291 = t337 * t337;
2962   t2293 = t2100 / t2291;
2963   t2300 = t335 * t330;
2964   t2304 = 0.42062353144743377373e1 * t788 * t370 - 0.27040084164477885454e1 * t319 * t871 - 0.86971615835210804049e2 * t319 * t876 - 0.26091484750563241216e3 * t123 * t769 * t761 * t875 + 0.13520042082238942727e1 * t123 * t115 * t801 * t369 + 0.27973514856600463821e4 * t123 * t810 * t761 * t2278 - 0.19739208802178717239e2 * t116 * t2148 * t56 + 0.49009467336851114346e6 * t2110 * t2111 * t56 - 0.39408462447654052777e7 * t2290 * t2293 * t56 - 0.22856079691947554112e5 * t811 * t2101 * t56 + 0.13045742375281620607e3 * t123 * t2300 * t892;
2965   t2311 = t301 * t134;
2966   t2333 = t2157 * t135;
2967   t2345 = 0.54080168328955770909e1 * t319 * t867 + 0.81120252493433656363e1 * t123 * t335 * t761 * t369 - 0.81120252493433656362e1 * t123 * t2311 * t376 + 0.10897900024310607691e0 * t152 * t343 * t39 * t56 - 0.19046733076622961759e4 * t336 * t2158 * t56 - 0.24504733668425557172e6 * t811 * t330 * t2278 * t303 - 0.25395644102163949012e4 * t336 * t801 * t892 + 0.22856079691947554112e5 * t770 * t303 * t875 * t330 + 0.11843525281307230343e3 * t302 * t2333 * t56 + 0.15791367041742973791e3 * t882 * t888 + 0.47374101125228921372e3 * t770 * t2154 * t56 - 0.71061151687843382058e3 * t336 * t303 * t376;
2968   t2346 = t2304 + t2345;
2969   t2358 = 0.1e1 / t822 / t61;
2970   t2362 = t354 * t354;
2971   t2371 = -0.7e1 / 0.48e2 * t180 * t837 * t168 * t842 + t351 * t151 * t2176 * t354 / 0.128e3 + t839 * t72 * t840 * t898 / 0.96e2 + 0.7e1 / 0.48e2 * t826 * t360 * t830 - 0.3e1 / 0.64e2 * t180 * t823 * t65 * t68 * t72 * t352 * t829 * t382 + 0.13685e5 / 0.7776e4 * t64 * t65 / t30 / t2250 * t72 - 0.119e3 / 0.576e3 * t149 * t850 * t384 + 0.7e1 / 0.288e3 * t149 * t360 * t900 - t149 * t151 * t15 * t2346 * t60 / 0.768e3 + 0.910e3 / 0.243e3 * sigma[0] / t16 / t392 * t53 + t57 * t44 * t2358 * t65 * t151 * t2182 * t2362 / 0.32e2 + 0.3e1 / 0.64e2 * t839 * t72 * t413 * t382;
2972   t2372 = t2226 + t2371;
2973   t2389 = 0.1e1 / t933 / t81;
2974   t2391 = t408 * t408;
2975   t2399 = t429 * t429;
2976   t2420 = t76 * t352;
2977   t2446 = 0.12e2 * t180 * t348 * t399 * t413 - t180 * t181 * t2346 * t60 - 0.4e1 * t180 * t417 * t973 - 0.6e1 * t976 * t977 * t424 + 0.36e2 * t953 * t2420 * t955 - 0.6e1 * t180 * t963 * t421 - 0.4e1 * t180 * t146 * t923 * t182 - 0.24e2 * t180 * t823 * t173 * t945 + t57 * t63 * t2372 + 0.14e2 * t180 * t412 * t2181 * t354 + 0.24e2 * t180 * t2358 * t76 * t2181 * t2362;
2978   t2492 = -0.36e2 * t57 * t824 * t2420 * t829 * t382 + 0.24e2 * t953 * t173 * t160 * t955 - 0.12e2 * t976 * t173 * t382 * t182 - 0.3e1 * t180 * t181 * t2175 * t60 - t180 * t181 * t2181 * t60 + 0.6e1 * t180 * t412 * t2175 * t354 - 0.36e2 * t180 * t944 * t2181 * t829 - 0.4e1 * t976 * t76 * t898 * t182 + 0.8e1 * t953 * t954 * t354 * t898 - 0.4e1 * t180 * t417 * t981 - 0.6e1 * t180 * t963 * t424 + 0.24e2 * t180 * t949 * t959;
2979   t2496 = params->beta * t2372 * t83 - 0.4e1 * t924 * t56 * t188 + 0.12e2 * t926 * t409 - 0.6e1 * t926 * t430 - 0.24e2 * t402 * t937 + 0.24e2 * t402 * t941 - 0.4e1 * t402 * t987 + 0.24e2 * t176 * t44 * t2389 * t2391 - 0.36e2 * t176 * t935 * t408 * t429 + 0.6e1 * t176 * t407 * t2399 + 0.8e1 * t176 * t407 * t187 * t986 - t176 * t179 * (t2446 + t2492);
2980   t2524 = t436 * t436;
2981   t2525 = t437 * t437;
2982   t2526 = 0.1e1 / t2525;
2983   t2532 = -0.3e1 / 0.2e1 * t46 * t2162 * t438 + 0.36000000000000000000e2 * t336 * t304 * t330 - 0.11579025239058625248e4 * t770 * t339 * t330 - 0.80000000000000000000e1 * t302 * t136 * t801 + t46 * t2496 * t191 / 0.2e1 + 0.12865583598954028054e3 * t336 * t801 * t338 * t134 + 0.12414243100625616072e5 * t811 * t330 * t813 * t303 - 0.27397333333333333333e0 * t152 * t49 * t301 * t304 - 0.41096000000000000000e0 * t152 * t757 * t762 - 0.66090502947826842110e1 * t123 * t2300 * t338 * t134 + 0.41096000000000000000e0 * t123 * t2311 * t331 + 0.19964560303604640732e6 * t2290 * t2293 - 0.3e1 * t46 * t2524 * t2526 - 0.60000000000000000000e1 * t302 * t2333;
2984   t2533 = t2161 + t2532;
2985   t2561 = params->d * t8;
2986   t2562 = t274 * t274;
2987   t2597 = -0.20e2 * t198 * t1002 * t103 - 0.240e3 * t1041 * t195 * t1042 - 0.360e3 * t1041 * t450 * t288 - 0.20e2 * t198 * t195 * t735 - 0.5e1 * t198 * t89 * t2020 - 0.30e2 * t198 * t442 * t288 - 0.80e2 * t449 * t199 * t735 - 0.60e2 * t449 * t89 * t2034 - 0.120e3 * t2561 * t89 * t2562 - 0.120e3 * t449 * t442 * t274 - 0.240e3 * t449 * t453 * t288 - t93 * t2533;
2988   t2600 = t95 * t735;
2989   t2603 = -0.4e1 * t9 * t1002 * t95 - 0.8e1 * t97 * t1003 * t103 - 0.24e2 * t97 * t725 * t103 - 0.4e1 * t107 * t195 * t1062 - t107 * t2533 * t95 - t107 * t89 * t2597 - 0.12e2 * t97 * t443 * t288 - 0.24e2 * t466 * t1008 - 0.12e2 * t1027 * t203 - 0.24e2 * t1035 * t1030 - 0.24e2 * t1046 * t95 - 0.4e1 * t90 * t1062 - 0.24e2 * t450 * t203 - 0.8e1 * t265 * t2600 - 0.12e2 * t269 * t460 - 0.12e2 * t275 * t443 - 0.24e2 * t275 * t445 - 0.12e2 * t275 * t461;
2990   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2991     v4rho4[0] = t2063 + t2603;
2992 
2993   t2617 = t203 * t477;
2994   t2620 = t95 * t1070;
2995   t2623 = t1244 * t191;
2996   t2635 = -0.6e1 * t97 * t567 * t288 - 0.3e1 * t482 * t1109 * t203 - 0.3e1 / 0.2e1 * t482 * t483 * t460 + 0.3e1 * t482 * t1289 - 0.12e2 * t466 * t1065 - 0.12e2 * t265 * t2617 - 0.6e1 * t265 * t2620 - 0.3e1 / 0.2e1 * t482 * t2623 * t95 - 0.6e1 * t466 * t1102 - 0.6e1 * t97 * t461 * t477 - 0.2e1 * t97 * t1063 * t208;
2997   t2650 = t460 * t208;
2998   t2658 = t221 * t827;
2999   t2667 = t146 * t501;
3000   t2713 = -0.455e3 / 0.648e3 * t818 * t27 * t214 - t57 * t824 * sigma[0] * t831 / 0.64e2 - 0.7e1 / 0.96e2 * t1170 * t834 + t180 * t348 * sigma[0] * t68 * t842 / 0.64e2 + t1170 * t846 / 0.64e2 - 0.119e3 / 0.576e3 * t494 * t851 + 0.7e1 / 0.192e3 * t494 * t854 + 0.7e1 / 0.192e3 * t494 * t857 - t494 * t901 / 0.384e3 - t180 * t146 * sigma[0] * t68 * t909 / 0.128e3 - t494 * t913 / 0.384e3 - 0.595e3 / 0.1296e4 * t64 * sigma[0] * t918 * t72;
3001   t2724 = t225 * t509 * t178;
3002   t2731 = t1192 * t509;
3003   t2757 = -0.18e2 * t510 * t1202 * t512 * t429 - t224 * t923 * t227 * t232 - 0.12e2 * t506 * t1207 * t1212 + params->beta * t2713 * t83 + 0.6e1 * t1186 * t409 + 0.6e1 * t1195 * t1231 + 0.3e1 * t1195 * t1236 + 0.3e1 * t1195 * t1239 + 0.3e1 * t2731 * t519 - 0.6e1 * t504 * t937 - t504 * t987;
3004   t2759 = t187 * t352;
3005   t2792 = t501 * t352;
3006   t2805 = 0.3e1 * t510 * t516 * t1183 * t160 * t60 + 0.6e1 * t510 * t178 * t823 * t2658 * t829 + t510 * t516 * t221 * t898 * t60 + 0.3e1 * t510 * t516 * t501 * t382 * t60 - 0.6e1 * t1208 * t1209 * t2759 * t60 + 0.12e2 * t1208 * t1836 * t2759 * t354 - 0.6e1 * t510 * t1223 * t2658 * t354 - 0.6e1 * t510 * t1223 * t2792 * t354 + 0.3e1 * t510 * t516 * t2792 * t60 - 0.3e1 * t1184 * t56 * t188 - 0.3e1 * t1186 * t430;
3007   t2843 = -0.6e1 * t1208 * t1209 * t429 * t160 * t60 + 0.24e2 * t510 * t2389 * t62 * t221 * t936 + 0.6e1 * t510 * t511 * t1183 * t187 - 0.18e2 * t510 * t1202 * t501 * t408 + 0.2e1 * t510 * t511 * t221 * t986 + 0.6e1 * t510 * t511 * t501 * t429 - 0.6e1 * t2724 * t1836 * t841 - 0.18e2 * t1195 * t1204 + 0.12e2 * t1195 * t1216 + 0.6e1 * t1195 * t1220 + 0.6e1 * t2731 * t513;
3008   t2846 = t45 * (0.18e2 * t225 * t509 * t934 * t1209 * t408 * t160 * t60 - 0.6e1 * t1208 * t1209 * t187 * t382 * t60 - t228 * t230 * t62 * t2713 + t510 * t516 * t2658 * t60 - 0.12e2 * t1208 * t2667 * t1211 + 0.3e1 * t2724 * t1209 * t908 - 0.3e1 * t1193 * t522 - 0.6e1 * t1195 * t1226 - 0.3e1 * t507 * t1242 + 0.6e1 * t504 * t941 + t2757 + t2805 + t2843);
3009   t2856 = 0.3e1 * t482 * t1286 - 0.6e1 * t1092 * t1277 + 0.3e1 / 0.2e1 * t529 * t530 * t460 * t190 - t212 * t235 * t191 * t1062 / 0.2e1 - 0.6e1 * t466 * t1117 - 0.6e1 * t265 * t2650 - 0.6e1 * t97 * t443 * t477 - 0.12e2 * t199 * t1303 - t212 * t2846 * t236 / 0.2e1 - 0.2e1 * t97 * t1003 * t208 - 0.6e1 * t97 * t725 * t208;
3010   t2873 = t566 * t103;
3011   t2888 = -0.6e1 * t487 * t1273 * t266 * t436 - 0.3e1 * t529 * t1273 * t531 * t432 - 0.12e2 * t97 * t1085 * t103 - 0.6e1 * t97 * t728 * t208 - 0.12e2 * t97 * t445 * t477 - 0.12e2 * t1035 * t1080 - 0.12e2 * t1035 * t1303 - 0.6e1 * t1092 * t1280 - 0.12e2 * t265 * t2873 - 0.12e2 * t453 * t463 - 0.6e1 * t456 * t463;
3012   t2889 = t1244 * t438;
3013   t2903 = my_piecewise3(t7, 0, -0.3e1 / 0.4e1 * t731 * t4);
3014   t2929 = t1041 * t43;
3015   t2940 = t1041 * t89;
3016   t2967 = t103 * t288;
3017   t2975 = -0.60e2 * t449 * t551 * t288 - 0.60e2 * t449 * t1146 * t103 - 0.120e3 * t449 * t1143 * t103 - 0.30e2 * t2929 * t235 * t191 * t1042 - 0.30e2 * t1149 * t525 * t1150 - 0.15e2 / 0.2e1 * t554 * t525 * t1162 - 0.180e3 * t2940 * t1517 * t288 - 0.3e1 * t243 * t525 * t1251 - 0.180e3 * t1041 * t548 * t274 - 0.60e2 * t449 * t548 * t288 - 0.15e2 * t198 * t195 * t1070 + 0.15e2 * t1157 * t1285 * t1158 + 0.15e2 / 0.2e1 * t1157 * t530 * t288 * t190 + 0.15e2 / 0.2e1 * t1157 * t530 * t103 * t432 - 0.30e2 * t1516 * t483 * t2967 - 0.5e1 / 0.2e1 * t554 * t235 * t191 * t735;
3018   t2979 = t93 * t46;
3019   t3029 = -0.5e1 * t198 * t89 * t2903 - 0.3e1 * t2979 * t1273 * t190 * t432 - 0.5e1 * t198 * t1002 * t208 + t243 * t235 * t2074 / 0.2e1 + 0.3e1 * t243 * t235 * t2526 * t997 - 0.20e2 * t449 * t240 * t735 + 0.30e2 * t1516 * t530 * t274 * t190 + 0.3e1 / 0.2e1 * t243 * t525 * t993 - t243 * t2846 * t191 / 0.2e1 - 0.15e2 / 0.2e1 * t554 * t1245 * t555 + 0.3e1 / 0.2e1 * t243 * t1245 * t562 - 0.180e3 * t1041 * t551 * t274 - 0.15e2 * t1157 * t1273 * t103 * t436 - 0.15e2 * t198 * t442 * t477 - 0.120e3 * t2561 * t240 * t1042 - 0.60e2 * t449 * t1140 * t103;
3020   t3035 = 0.3e1 / 0.2e1 * t529 * t2889 * t531 - 0.3e1 * t107 * t195 * t1257 - 0.6e1 * t275 * t543 - 0.6e1 * t97 * t196 * t1070 - 0.2e1 * t97 * t98 * t2903 - 0.6e1 * t466 * t1071 - 0.3e1 / 0.2e1 * t212 * t525 * t1074 - 0.3e1 * t487 * t2623 * t266 - 0.3e1 * t107 * t442 * t566 - 0.12e2 * t199 * t1298 - t107 * t89 * (t2975 + t3029) - 0.12e2 * t1035 * t1298;
3021   t3066 = -0.6e1 * t1114 * t472 - 0.6e1 * t1114 * t478 - 0.6e1 * t275 * t567 - 0.6e1 * t97 * t204 * t1070 - 0.3e1 * t274 * t43 * t45 * t484 - 0.3e1 * t487 * t483 * t2052 - 0.6e1 * t1114 * t469 - 0.12e2 * t466 * t1295 - 0.6e1 * t97 * t543 * t288 - 0.3e1 / 0.2e1 * t212 * t1245 * t535 + 0.3e1 / 0.2e1 * t482 * t1292;
3022   t3067 = rho[0] * t735;
3023   t3098 = -0.6e1 * t97 * t1258 * t103 - 0.3e1 * t487 * t1109 * t1030 - 0.6e1 * t487 * t1109 * t1038 + 0.3e1 * t529 * t1285 * t1288 - 0.3e1 * t487 * t483 * t2041 - 0.2e1 * t97 * t248 * t735 - t487 * t483 * t2600 - 0.6e1 * t466 * t1088 - 0.3e1 * t482 * t1275 - 0.3e1 * t1593 * t1283 - 0.6e1 * t2026 * t463 - 0.2e1 * t3067 * t209;
3024   t3122 = t1091 * t235;
3025   t3133 = 0.3e1 * t487 * t530 * t1030 * t190 + 0.6e1 * t487 * t530 * t1038 * t190 + 0.3e1 * t487 * t530 * t266 * t432 - 0.6e1 * t97 * t1078 * t103 + 0.6e1 * t487 * t1285 * t1105 + 0.6e1 * t3122 * t655 * t1158 + 0.3e1 * t275 * t46 * t532 - 0.3e1 * t1092 * t1283 - 0.3e1 * t1095 * t526 - 0.3e1 * t1095 * t536 - 0.12e2 * t466 * t1099;
3026   t3137 = t247 * t288;
3027   t3159 = t524 * t999;
3028   t3171 = 0.3e1 / 0.2e1 * t529 * t1285 * t1291 - 0.6e1 * t265 * t3137 - 0.3e1 * t1027 * t247 - 0.3e1 * t529 * t1273 * t203 * t436 + t529 * t530 * t95 * t989 / 0.2e1 + 0.3e1 / 0.2e1 * t529 * t530 * t203 * t432 + 0.3e1 * t529 * t234 * t2526 * t95 * t997 - 0.3e1 * t529 * t3159 * t1274 - 0.6e1 * t269 * t566 - 0.6e1 * t450 * t247 - 0.3e1 * t90 * t1257 - t107 * t1002 * t247;
3029   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3030     v4rho3sigma[0] = t2635 + t2856 + t2888 + t3035 + t3066 + t3098 + t3133 + t3171;
3031 
3032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3033     v4rho3lapl[0] = 0.0e0;
3034 
3035   t3181 = params->d * t1357;
3036   t3199 = t95 * t1357;
3037   t3207 = t460 * t254;
3038   t3210 = -0.2e1 * t97 * t1003 * t254 + 0.90e2 * t591 * t3181 * t103 - 0.2e1 * t97 * t1063 * t254 + 0.30e2 * t595 * t1326 * t442 + 0.30e2 * t258 * t1330 * t587 + 0.30e2 * t595 * t3181 * t195 - 0.6e1 * t97 * t461 * t582 - 0.6e1 * t1114 * t577 - 0.12e2 * t466 * t1341 - 0.12e2 * t466 * t1368 - 0.2e1 * t3067 * t255 - 0.6e1 * t265 * t3199 - 0.6e1 * t265 * t3207;
3039   t3216 = my_piecewise3(t7, 0, 0.3e1 / 0.4e1 * t732 * t251);
3040   t3220 = t203 * t582;
3041   t3248 = t1309 * t89;
3042   t3255 = 0.360e3 * t94 * t254 * t103 * t195 + 0.900e3 * t3248 * t587 * t1046 + 0.180e3 * t1364 * t587 * t1052 + 0.180e3 * t1364 * t587 * t1055 + 0.450e3 * t1310 * t587 * t2967 - 0.6e1 * t97 * t196 * t1357 - 0.6e1 * t97 * t728 * t254 + 0.5e1 * t259 * t261 * t3216 - 0.6e1 * t97 * t443 * t582 + 0.30e2 * t591 * t587 * t735 - 0.12e2 * t199 * t1323 - 0.12e2 * t466 * t1335 - 0.6e1 * t466 * t1352 - 0.12e2 * t265 * t3220;
3043   t3291 = 0.10e2 * t595 * t587 * t1002 + 0.360e3 * t1364 * t1326 * t453 + 0.90e2 * t591 * t1326 * t288 - 0.6e1 * t97 * t204 * t1357 - 0.6e1 * t97 * t725 * t254 - 0.2e1 * t97 * t98 * t3216 - 0.12e2 * t1035 * t1323 - 0.12e2 * t199 * t1316 + 0.60e2 * t1344 * t1327 + 0.30e2 * t1344 * t1373 - 0.6e1 * t466 * t1358 + 0.180e3 * t1361 * t1376 + 0.90e2 * t1361 * t1379 + 0.15e2 * t586 * t3181;
3044   t3299 = t590 * t1330;
3045   t3309 = rho[0] * t448 * t260;
3046   t3324 = t91 * t260;
3047   t3329 = 0.600e3 * t3309 * t587 * t1042 + 0.450e3 * t1310 * t1326 * t274 + 0.30e2 * t259 * t1331 * t582 + 0.30e2 * t259 * t195 * t1373 - 0.12e2 * t97 * t445 * t582 - 0.12e2 * t1035 * t1316 - 0.6e1 * t1114 * t574 - 0.6e1 * t1114 * t583 + 0.450e3 * t3324 * t1311 - 0.6e1 * t466 * t1338 - 0.6e1 * t2026 * t569 + 0.180e3 * t3299 * t592 - 0.12e2 * t453 * t569 - 0.6e1 * t456 * t569;
3048   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3049     v4rho3tau[0] = t3210 + t3255 + t3291 + t3329;
3050 
3051   t3352 = t247 * t477;
3052   t3355 = t203 * t612;
3053   t3367 = -t212 * t1487 * t535 - 0.4e1 * t1092 * t1576 - 0.4e1 * t1092 * t1579 + 0.4e1 * t487 * t530 * t1080 * t190 - t212 * t649 * t1074 / 0.2e1 - 0.4e1 * t97 * t1404 * t103 + 0.2e1 * t487 * t1598 * t1105 - 0.2e1 * t603 * t461 - 0.8e1 * t265 * t3352 - 0.4e1 * t265 * t3355 - 0.2e1 * t97 * t461 * t612 - 0.4e1 * t466 * t1568 - 0.2e1 * t1114 * t613 - 0.8e1 * t681 * t1099;
3054   t3383 = t524 * t524;
3055   t3384 = t45 * t3383;
3056   t3418 = t1433 * t509;
3057   t3424 = t1446 * t641;
3058   t3431 = t15 * t406;
3059   t3440 = 0.7e1 / 0.288e3 * t1467 * t1483 + 0.7e1 / 0.288e3 * t616 * t617 * t168 * t1430 - t1427 * t71 * t1428 * t429 / 0.384e3 - t634 * t636 * t348 * t151 * t15 * t187 * t182 / 0.48e2 + 0.8e1 * t3418 * t1231 - 0.8e1 * t1442 * t1462 * t1211 - 0.8e1 * t3424 * t1459 - 0.24e2 * t1450 * t1451 * t512 * t501 + t1427 * t71 * t3431 * t408 / 0.192e3 - 0.12e2 * t3424 * t1453 + 0.8e1 * t3424 * t1464;
3060   t3465 = t630 * t399;
3061   t3469 = t624 * t352;
3062   t3487 = -0.6e1 * t1450 * t1451 * t624 * t429 + 0.2e1 * t1442 * t516 * t421 + 0.16e2 * t3418 * t1216 + 0.2e1 * t1442 * t516 * t424 + 0.24e2 * t1450 * t2389 * t146 * t624 * t408 + 0.4e1 * t1450 * t1462 * t221 * t1183 - 0.4e1 * t1442 * t1223 * t413 - t3465 * t642 * t645 / 0.384e3 - 0.4e1 * t1450 * t1456 * t3469 * t60 - 0.4e1 * t1450 * t1456 * t624 * t382 * t60 + 0.119e3 / 0.1728e4 * t618 * t849 * t620 + 0.12e2 * t1450 * t406 * t823 * t3469 * t354;
3063   t3493 = t501 * t501;
3064   t3506 = t619 * t178;
3065   t3514 = t82 * t352;
3066   t3535 = -0.119e3 / 0.1728e4 * t643 * t146 * t394 * t72 - 0.4e1 * t224 * t3493 * t227 * t627 - t634 * t1477 * t823 * t356 / 0.64e2 + t1479 * t389 / 0.192e3 + t616 * t229 * t1472 * t3506 * t1211 / 0.192e3 + 0.7e1 / 0.288e3 * t616 * t1415 * t168 * t1420 - t1417 * t72 * t3514 * t60 / 0.384e3 - t1417 * t72 * t82 * t382 * t60 / 0.384e3 + 0.4e1 * t634 * t636 * t146 * t3493 + 0.2e1 * t3465 * t633 * t638 + 0.4e1 * t626 * t1437 * t62 * t429;
3067   t3540 = t631 * t641 * t934;
3068   t3581 = -0.16e2 * t1471 * t1836 * t1230 + 0.24e2 * t3540 * t348 * t624 * t1211 - 0.12e2 * t626 * t229 * t934 * t62 * t408 - 0.7e1 / 0.144e3 * t1479 * t361 + t1479 * t385 / 0.192e3 + t1447 * t1478 * t163 / 0.96e2 + t1471 * t1472 * t619 * t429 / 0.192e3 + t1446 * t1470 * t1474 / 0.96e2 + t616 * t229 * t348 * t68 * t72 * t3514 * t354 / 0.192e3 - 0.7e1 / 0.144e3 * t1471 * t1482 * t10 * t1473 - t3540 * t1472 * t619 * t408 / 0.64e2 - 0.4e1 * t1434 * t1242;
3069   t3584 = t45 * (t3440 + t3487 + t3535 + t3581);
3070   t3595 = t477 * t477;
3071   t3617 = -0.120e3 * t2561 * t662 * t274 - t243 * t3584 * t191 / 0.2e1 - 0.4e1 * t2979 * t1273 * t524 * t190 - t671 - 0.60e2 * t1041 * t669 * t274 - 0.40e2 * t449 * t89 * t3595 + 0.10e2 * t1149 * t654 * t438 * t274 + 0.10e2 * t1157 * t530 * t103 * t524 - 0.10e2 * t1157 * t1607 * t1158 + 0.5e1 * t1157 * t530 * t208 * t432 + 0.10e2 * t1157 * t1285 * t1524;
3072   t3618 = t477 * t103;
3073   t3622 = t208 * t288;
3074   t3654 = -0.40e2 * t1516 * t483 * t3618 - 0.20e2 * t1516 * t483 * t3622 - 0.10e2 * t1157 * t1273 * t208 * t436 + 0.5e1 * t1157 * t1598 * t1158 + 0.10e2 * t1157 * t530 * t477 * t190 + t243 * t3384 * t438 - 0.5e1 / 0.2e1 * t554 * t649 * t1162 + 0.3e1 * t243 * t654 * t2526 * t436 - 0.10e2 * t554 * t525 * t1528 - t243 * t649 * t1251 + t243 * t649 * t993 / 0.2e1;
3075   t3659 = t1041 * t46;
3076   t3660 = t208 * t274;
3077   t3688 = 0.40e2 * t1516 * t530 * t1517 * t190 - 0.40e2 * t449 * t1535 * t103 - 0.40e2 * t1516 * t1109 * t1517 + t243 * t1487 * t562 - 0.240e3 * t2940 * t1517 * t477 - 0.5e1 * t198 * t442 * t612 + t243 * t235 * t2889 - 0.20e2 * t449 * t669 * t288 - 0.60e2 * t3659 * t483 * t3660 - 0.20e2 * t449 * t442 * t602 - 0.10e2 * t1536;
3078   t3721 = -0.5e1 * t554 * t1245 * t665 + 0.5e1 / 0.2e1 * t554 * t654 * t438 * t288 - 0.5e1 * t554 * t1487 * t555 - 0.5e1 * t554 * t235 * t191 * t1070 - 0.10e2 * t1149 * t649 * t1150 - 0.120e3 * t1041 * t1510 * t103 - 0.60e2 * t1041 * t662 * t288 - 0.40e2 * t1533 - t243 * t654 * t2104 - 0.40e2 * t449 * t240 * t1070 - 0.80e2 * t449 * t548 * t477;
3079   t3730 = -0.8e1 * t681 * t1065 - 0.2e1 * t1095 * t660 - 0.4e1 * t97 * t445 * t612 - 0.4e1 * t466 * t1571 - 0.4e1 * t97 * t248 * t1070 - 0.2e1 * t212 * t525 * t1406 + t212 * t3384 * t655 + t1095 * t656 - 0.8e1 * t199 * t1401 - 0.2e1 * t97 * t443 * t612 - 0.4e1 * t97 * t1258 * t208 - t615 - 0.4e1 * t1035 * t1590 - t107 * t89 * (t3617 + t3654 + t3688 + t3721) + 0.4e1 * t487 * t530 * t1303 * t190;
3080   t3744 = t103 * t43 * t45;
3081   t3769 = 0.4e1 * t487 * t1285 * t1388 + 0.4e1 * t487 * t530 * t1298 * t190 - 0.2e1 * t603 * t443 - 0.4e1 * t1092 * t1582 - 0.4e1 * t3744 * t606 - t482 * t1497 * t203 - t212 * t3584 * t236 / 0.2e1 + 0.2e1 * t1092 * t1602 + 0.2e1 * t482 * t1605 - 0.2e1 * t482 * t1608 - 0.2e1 * t1092 * t1596 - 0.4e1 * t97 * t1557 * t103 - 0.8e1 * t1035 * t1401 - 0.2e1 * t90 * t1556 - 0.2e1 * t269 * t678;
3082   t3817 = -0.2e1 * t487 * t2623 * t463 - 0.4e1 * t487 * t1109 * t1298 - 0.4e1 * t487 * t1109 * t1303 - 0.4e1 * t681 * t1071 + t212 * t654 * t438 * t460 / 0.2e1 - 0.4e1 * t487 * t1607 * t1105 + 0.4e1 * t487 * t530 * t266 * t524 - 0.2e1 * t487 * t483 * t2650 - 0.4e1 * t487 * t483 * t2617 - 0.2e1 * t487 * t483 * t2620 - 0.4e1 * t529 * t1273 * t1604 * t190 - t212 * t235 * t191 * t1257 + 0.2e1 * t487 * t530 * t463 * t432 + 0.4e1 * t1593 * t1389 - 0.4e1 * t97 * t1078 * t208;
3083   t3830 = t566 * t208;
3084   t3842 = t678 * t103;
3085   t3847 = t1486 * t191;
3086   t3852 = -t487 * t1497 * t1030 - 0.2e1 * t107 * t195 * t1556 - 0.2e1 * t482 * t1109 * t247 - t482 * t3847 * t95 - 0.8e1 * t97 * t543 * t477 - 0.2e1 * t482 * t483 * t566 - t1095 * t650 - 0.4e1 * t199 * t1590 - 0.8e1 * t265 * t3830 - 0.4e1 * t265 * t3842 - 0.2e1 * t275 * t679 - 0.4e1 * t603 * t445 - 0.4e1 * t1569 - 0.4e1 * t1572;
3087   t3861 = t1114 * t46;
3088   t3879 = t1486 * t438;
3089   t3890 = -0.4e1 * t1574 - 0.2e1 * t97 * t679 * t288 - 0.8e1 * t466 * t1565 - 0.4e1 * t1593 * t1582 - 0.2e1 * t3861 * t606 - 0.4e1 * t1593 * t1576 - 0.4e1 * t1593 * t1579 + t529 * t530 * t247 * t432 - t529 * t1607 * t1291 - 0.2e1 * t487 * t483 * t3137 + t529 * t1598 * t1291 / 0.2e1 + t529 * t3879 * t531 + t487 * t1501 * t1030 + t529 * t530 * t95 * t1244 - 0.8e1 * t97 * t1085 * t208;
3090   t3930 = -t212 * t1245 * t659 - 0.4e1 * t1092 * t1610 + 0.2e1 * t482 * t1614 - 0.8e1 * t97 * t567 * t477 - 0.4e1 * t487 * t1273 * t463 * t436 - 0.8e1 * t466 * t1392 + t482 * t1599 - 0.4e1 * t1114 * t609 - t107 * t442 * t678 + t482 * t1501 * t203 - 0.4e1 * t487 * t1109 * t1080 + 0.2e1 * t487 * t1501 * t1038 + 0.2e1 * t529 * t530 * t203 * t524 - 0.2e1 * t529 * t1607 * t1288 + 0.2e1 * t529 * t1285 * t1613;
3091   t3955 = t648 * t999;
3092   t3972 = -0.2e1 * t487 * t1497 * t1038 + 0.4e1 * t3122 * t655 * t1524 - 0.2e1 * t529 * t1273 * t247 * t436 - 0.4e1 * t1591 - 0.8e1 * t240 * t1303 - 0.4e1 * rho[0] * t3595 * t98 + 0.2e1 * t529 * t530 * t566 * t190 + 0.3e1 * t529 * t653 * t2526 * t1274 - t529 * t3955 * t1274 - 0.2e1 * t487 * t3847 * t266 + t529 * t1598 * t1288 - 0.4e1 * t487 * t483 * t2873 - 0.4e1 * t662 * t203 - 0.4e1 * t1510 * t95 - 0.8e1 * t466 * t1494;
3093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3094     v4rho2sigma2[0] = t3367 + t3730 + t3769 + t3817 + t3852 + t3890 + t3930 + t3972;
3095 
3096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3097     v4rho2sigmalapl[0] = 0.0e0;
3098 
3099   t3982 = t247 * t582;
3100   t4007 = t254 * t208;
3101   t4016 = -0.4e1 * t1035 * t1649 - 0.4e1 * t97 * t1085 * t254 - 0.2e1 * t1114 * t692 - 0.4e1 * t265 * t3982 - 0.2e1 * t97 * t248 * t1357 + 0.2e1 * t487 * t530 * t1316 * t190 + 0.120e3 * t1364 * t1326 * t548 + 0.120e3 * t1364 * t587 * t1143 - 0.2e1 * t1092 * t1685 + 0.5e1 * t259 * t442 * params->d * t701 - t487 * t483 * t3207 + 0.600e3 * t1309 * t698 * t4007 * t453 - 0.2e1 * t487 * t1109 * t1316 - 0.4e1 * t681 * t1341;
3102   t4046 = t590 * t596;
3103   t4049 = t566 * t254;
3104   t4052 = 0.150e3 * t1310 * t1643 * t274 - 0.4e1 * t97 * t196 * t1622 - 0.4e1 * t97 * t204 * t1622 - 0.4e1 * t97 * t445 * t691 - 0.4e1 * t97 * t543 * t582 + 0.20e2 * t1344 * t1646 - 0.2e1 * t681 * t1358 + 0.60e2 * t1361 * t1661 - 0.4e1 * t466 * t1626 - 0.4e1 * t199 * t1649 - 0.4e1 * t466 * t1652 + 0.60e2 * t4046 * t1717 - 0.4e1 * t199 * t1720 - 0.4e1 * t265 * t4049;
3105   t4060 = t698 * t582;
3106   t4061 = t590 * t4060;
3107   t4094 = 0.10e2 * t1693 * t1699 + 0.60e2 * t1715 * t46 * t1109 * t103 + 0.60e2 * t4061 * t1717 + 0.10e2 * t1710 * t46 * t1273 * t436 + 0.60e2 * t1364 * t587 * t1140 + 0.300e3 * t1310 * t1326 * t1517 + 0.300e3 * t1310 * t587 * t3618 + 0.150e3 * t1310 * t587 * t3622 + 0.10e2 * t1688 * t46 * t1109 - 0.2e1 * t1114 * t686 + 0.60e2 * t3299 * t695 - 0.2e1 * t97 * t1078 * t254 - 0.4e1 * t466 * t1617 - 0.4e1 * t681 * t1368;
3108   t4105 = params->d * t1622;
3109   t4122 = t1309 * t1709;
3110   t4131 = 0.150e3 * t4122 * t46 * t483 * t274 + 0.5e1 * t699 * t700 * t1246 - 0.10e2 * t259 * t4060 * t1712 - 0.10e2 * t259 * t596 * t1712 - 0.4e1 * t97 * t567 * t582 - 0.2e1 * t1092 * t1681 - 0.2e1 * t1092 * t1683 - 0.4e1 * t681 * t1335 + 0.60e2 * t1361 * t1658 - 0.2e1 * t1593 * t1683 - 0.4e1 * t466 * t1635 - 0.4e1 * t1669 * t583 - 0.2e1 * t3744 * t684 + 0.10e2 * t586 * t4105;
3111   t4163 = my_piecewise3(t7, 0, -t284 * t251 / 0.4e1);
3112   t4167 = t92 * t89;
3113   t4168 = t4167 * t587;
3114   t4176 = -0.10e2 * t1688 * t1712 + 0.30e2 * t591 * t587 * t1070 - 0.2e1 * rho[0] * t1070 * t255 - 0.2e1 * t681 * t1338 + 0.10e2 * t699 * t1705 * t559 + 0.5e1 * t699 * t1357 * t43 * t244 + 0.2e1 * t487 * t1285 * t1696 + 0.2e1 * t1593 * t1697 + 0.10e2 * t1693 * t1706 - 0.2e1 * t97 * t461 * t691 - 0.2e1 * t97 * t98 * t4163 + 0.60e2 * t4168 * t1717 + 0.120e3 * t1364 * t1643 * t453 - 0.4e1 * t240 * t1323;
3115   t4196 = t95 * t1622;
3116   t4208 = t203 * t691;
3117   t4222 = -0.5e1 * t1710 * t46 * t530 * t432 + 0.30e2 * t591 * t3181 * t208 + 0.60e2 * t591 * t1326 * t477 + 0.2e1 * t3122 * t655 * t254 * t190 + 0.120e3 * t94 * t4007 * t195 - 0.4e1 * t1669 * t577 - 0.4e1 * t265 * t4196 + 0.10e2 * t595 * t1643 * t442 + 0.30e2 * t591 * t1643 * t288 - 0.2e1 * t97 * t443 * t691 - 0.4e1 * t265 * t4208 - 0.2e1 * t97 * t1258 * t254 - 0.60e2 * t1715 * t46 * t234 * t562 * t103 + 0.60e2 * t591 * t4105 * t103;
3118   t4264 = 0.20e2 * t595 * t4105 * t195 - 0.2e1 * t681 * t1352 + 0.5e1 * t259 * t261 * t4163 + 0.60e2 * t1361 * t1674 - 0.4e1 * t466 * t1702 - 0.4e1 * t1669 * t574 + 0.2e1 * t487 * t530 * t1323 * t190 + t487 * t530 * t569 * t432 - 0.2e1 * t487 * t1273 * t569 * t436 + 0.600e3 * t3309 * t587 * t3660 - 0.4e1 * t548 * t569 - 0.4e1 * t240 * t1316 + 0.30e2 * t1715 * t46 * t483 * t288 - 0.10e2 * t1710 * t46 * t1285 * t190;
3119   t4299 = 0.10e2 * t258 * t195 * t587 * t1689 + 0.300e3 * t1993 * t4007 * t103 - 0.2e1 * t487 * t1109 * t1323 + 0.10e2 * t1344 * t1326 * t1689 + 0.10e2 * t259 * t1331 * t691 - t487 * t2623 * t569 - t487 * t483 * t3199 - 0.2e1 * t487 * t483 * t3220 - 0.4e1 * t1035 * t1720 - 0.2e1 * t1593 * t1681 - 0.2e1 * t1593 * t1685 - 0.4e1 * t466 * t1640 - t3861 * t684 - 0.4e1 * t551 * t569;
3120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3121     v4rho2sigmatau[0] = t4016 + t4052 + t4094 + t4131 + t4176 + t4222 + t4264 + t4299;
3122 
3123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3124     v4rho2lapl2[0] = 0.0e0;
3125 
3126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3127     v4rho2lapltau[0] = 0.0e0;
3128 
3129   t4308 = my_piecewise3(t7, 0, t285 * t715 / 0.2e1);
3130   t4314 = params->d * t1759;
3131   t4334 = 0.60e2 * t591 * t4314 * t103 + 0.80e2 * t591 * t587 * t1357 + 0.80e2 * t1364 * t1734 * t442 + 0.30e2 * t591 * t1763 * t288 + 0.10e2 * t595 * t1763 * t442 + 0.5e1 * t259 * t261 * t4308 - 0.4e1 * t1035 * t1746 - 0.4e1 * t1727 * t1358 + 0.160e3 * t1361 * t1743 - 0.4e1 * t466 * t1751 - 0.2e1 * t708 * t461;
3132   t4341 = t582 * t582;
3133   t4368 = t95 * t1759;
3134   t4371 = 0.800e3 * t1310 * t587 * t103 * t582 + 0.320e3 * t1364 * t587 * t195 * t582 + 0.200e3 * t1310 * t1734 * t288 + 0.800e3 * t3248 * t1734 * t453 - 0.4e1 * t97 * t196 * t1759 - 0.4e1 * t97 * t204 * t1759 - 0.4e1 * t707 * t195 * t95 + 0.80e2 * t590 * t261 * t4341 - 0.4e1 * t1724 * t203 - 0.4e1 * t466 * t1760 - 0.4e1 * t265 * t4368 + 0.10e2 * t586 * t4314;
3135   t4375 = t254 * t89;
3136   t4404 = 0.150e3 * t1310 * t1763 * t274 + 0.10e2 * t259 * t1331 * t718 + 0.80e2 * t590 * t1331 * t707 + 0.800e3 * t3309 * t1734 * t274 + 0.20e2 * t595 * t4314 * t195 - 0.4e1 * t97 * t445 * t718 - 0.8e1 * t4375 * t1323 - 0.8e1 * t1727 * t1335 - 0.8e1 * t1727 * t1341 + 0.400e3 * t3324 * t1737 + 0.160e3 * t4167 * t1740 - 0.4e1 * t199 * t1746;
3137   t4430 = t203 * t718;
3138   t4435 = -0.4e1 * rho[0] * t4341 * t98 + 0.120e3 * t1364 * t1763 * t453 - 0.2e1 * t97 * t98 * t4308 - 0.2e1 * t97 * t443 * t718 - 0.2e1 * t97 * t461 * t718 - 0.2e1 * t1114 * t719 + 0.20e2 * t1344 * t1769 + 0.60e2 * t1361 * t1766 - 0.4e1 * t466 * t1754 - 0.4e1 * t265 * t4430 - 0.2e1 * t708 * t443 - 0.4e1 * t708 * t445;
3139   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3140     v4rho2tau2[0] = t4334 + t4371 + t4404 + t4435;
3141 
3142   t4465 = -0.6e1 * t466 * t1781 - 0.3e1 * t1092 * t1871 - 0.6e1 * t97 * t1557 * t208 - t107 * t195 * t1853 - 0.6e1 * t487 * t1607 * t1388 - 0.3e1 * t1092 * t1864 + 0.3e1 / 0.2e1 * t482 * t1868 - 0.6e1 * t662 * t247 + 0.3e1 / 0.2e1 * t212 * t654 * t438 * t566 - 0.3e1 / 0.2e1 * t482 * t1497 * t247 - 0.3e1 / 0.2e1 * t212 * t1487 * t659;
3143   t4481 = t1841 * t438;
3144   t4485 = t678 * t208;
3145   t4488 = t1841 * t191;
3146   t4497 = -t212 * t1850 * t999 * t203 - 0.6e1 * t97 * t543 * t612 - t615 - 0.3e1 * t529 * t3955 * t1867 * t190 + 0.3e1 * t1593 * t1775 + 0.3e1 / 0.2e1 * t529 * t1598 * t1613 + t529 * t4481 * t531 / 0.2e1 - 0.6e1 * t265 * t4485 - t482 * t4488 * t95 / 0.2e1 - t90 * t1853 + 0.3e1 * t487 * t1598 * t1867 * t103;
3147   t4537 = t1822 * t173;
3148   t4541 = t1823 * t1833;
3149   t4561 = t1828 * t348;
3150   t4564 = t221 * t68 * t10;
3151   t4584 = t1808 * t635 * t348 * t68 * t10 * t3506 * t518 / 0.32e2 + 0.7e1 / 0.96e2 * t1808 * t1809 * t168 * t1813 + t1811 * t72 * t406 * t221 * t187 / 0.32e2 - t1811 * t71 * t1428 * t501 / 0.64e2 + 0.18e2 * t630 * t624 * t633 * t636 * t2667 - 0.18e2 * t1818 * t635 * t934 * t146 * t187 - 0.12e2 * t1817 * t641 * t1456 * t182 - 0.6e1 * t4537 * t1825 * t1830 + 0.24e2 * t4541 * t2389 * t348 * t1816 * t187 + 0.18e2 * t4541 * t934 * t823 * t1816 * t160 * t60 - 0.18e2 * t4541 * t934 * t348 * t624 * t501 + t4537 * t1834 * t1838 / 0.64e2 - 0.3e1 / 0.64e2 * t1826 * t4561 * t4564 * t1473 - 0.3e1 / 0.64e2 * t1826 * t1827 * t406 * t823 * t4564 * t619 * t182 + t1835 * t348 * t501 * t68 * t72 / 0.64e2 - 0.7e1 / 0.96e2 * t1835 * t1836 * t168 * t72;
3152   t4585 = t45 * t4584;
3153   t4596 = t612 * t103;
3154   t4618 = t602 * t103;
3155   t4626 = t208 * t477;
3156   t4642 = 0.3e1 * t243 * t1850 * t2526 * t190 - t243 * t4585 * t191 / 0.2e1 + 0.15e2 * t1157 * t530 * t208 * t524 - 0.15e2 * t1157 * t1607 * t1524 - 0.30e2 * t1516 * t483 * t4596 + 0.15e2 / 0.2e1 * t1157 * t530 * t612 * t190 + 0.15e2 / 0.2e1 * t1157 * t1598 * t234 * t103 - 0.3e1 * t2979 * t3955 * t234 * t190 - t671 - 0.60e2 * t449 * t548 * t612 - 0.60e2 * t1041 * t195 * t1786 - 0.90e2 * t3659 * t483 * t4618 + 0.30e2 * t1516 * t530 * t602 * t190 - 0.60e2 * t1516 * t483 * t4626 - 0.30e2 * t1516 * t1497 * t1517 + 0.15e2 / 0.2e1 * t1157 * t1598 * t1524 + 0.30e2 * t1516 * t1501 * t1517 + 0.3e1 / 0.2e1 * t243 * t1487 * t530;
3157   t4672 = t208 * t612;
3158   t4688 = t243 * t1842 * t562 / 0.2e1 + 0.15e2 / 0.2e1 * t554 * t654 * t438 * t477 - 0.3e1 * t243 * t654 * t3159 - 0.15e2 / 0.2e1 * t554 * t1487 * t665 + 0.3e1 / 0.2e1 * t243 * t649 * t1285 - 0.5e1 * t554 * t1850 * t999 * t103 - 0.15e2 / 0.2e1 * t554 * t649 * t1528 - t1537 - t1796 - 0.60e2 * t449 * t551 * t612 - 0.30e2 * t1149 * t525 * t1790 - 0.180e3 * t2940 * t4672 * t103 - 0.180e3 * t1041 * t662 * t477 - 0.120e3 * t2561 * t1787 * t103 - 0.15e2 / 0.2e1 * t554 * t525 * t1804 - 0.5e1 / 0.2e1 * t554 * t1842 * t555 - t1807 - t1534;
3159   t4706 = t247 * t612;
3160   t4711 = t1849 * t999;
3161   t4714 = t602 * t43;
3162   t4720 = -t107 * t89 * (t4642 + t4688) + 0.6e1 * t487 * t530 * t463 * t524 + 0.3e1 * t487 * t530 * t1590 * t190 + 0.6e1 * t487 * t530 * t1401 * t190 - 0.6e1 * t1092 * t1861 - 0.6e1 * t265 * t4706 - 0.6e1 * t603 * t543 - t482 * t4711 * t95 - 0.3e1 * t4714 * t45 * t484 - t1785 - 0.6e1 * t240 * t1590;
3163   t4739 = -0.6e1 * t603 * t567 - 0.6e1 * t681 * t1568 - t1570 + 0.3e1 * t487 * t1598 * t1388 - t1573 - t1575 - 0.6e1 * t97 * t679 * t477 - 0.6e1 * t1669 * t613 - 0.6e1 * t97 * t567 * t612 - t1866 - 0.3e1 / 0.2e1 * t212 * t649 * t1406;
3164   t4768 = -0.12e2 * t681 * t1565 - t1780 - 0.3e1 * t1882 * t526 - 0.3e1 * t1882 * t536 + 0.3e1 * t1092 * t1775 - 0.3e1 / 0.2e1 * t212 * t235 * t191 * t1556 - 0.6e1 * t466 * t1778 - t212 * t1842 * t535 / 0.2e1 - 0.3e1 / 0.2e1 * t482 * t483 * t678 + 0.3e1 / 0.2e1 * t482 * t1501 * t247 - 0.3e1 / 0.2e1 * t212 * t525 * t1878;
3165   t4801 = 0.3e1 * t529 * t1849 * t2526 * t531 - 0.3e1 * t487 * t1497 * t1080 - 0.6e1 * t487 * t1109 * t1401 - 0.3e1 * t487 * t1109 * t1590 - 0.3e1 * t529 * t1607 * t1604 - 0.2e1 * t487 * t4711 * t266 - 0.6e1 * t487 * t483 * t3352 - 0.3e1 * t487 * t483 * t3355 - 0.6e1 * t487 * t483 * t3830 - 0.6e1 * t1593 * t1861 - 0.3e1 * t1593 * t1864;
3166   t4837 = 0.3e1 / 0.2e1 * t529 * t3879 * t1867 + 0.3e1 / 0.2e1 * t529 * t1598 * t203 * t234 + 0.3e1 / 0.2e1 * t529 * t1598 * t1604 - 0.3e1 * t1593 * t1871 - 0.3e1 * t487 * t3847 * t463 - 0.3e1 * t487 * t1497 * t1298 - 0.3e1 * t487 * t1497 * t1303 + 0.3e1 * t487 * t1501 * t1080 + 0.3e1 * t529 * t530 * t247 * t524 - 0.3e1 * t529 * t1607 * t1613 - 0.3e1 * t487 * t483 * t3842;
3167   t4866 = 0.3e1 / 0.2e1 * t529 * t530 * t678 * t190 - 0.6e1 * t1932 * t1582 + 0.3e1 * t603 * t46 * t532 - t487 * t4488 * t266 - t212 * t4585 * t236 / 0.2e1 + 0.3e1 * t487 * t1501 * t1298 + 0.3e1 * t487 * t1501 * t1303 - 0.2e1 * t97 * t1854 * t103 - t1592 - 0.6e1 * t681 * t1571 - 0.6e1 * t97 * t1404 * t208;
3168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3169     v4rhosigma3[0] = t4465 + t4497 + t4720 + t4739 + t4768 + t4801 + t4837 + t4866;
3170 
3171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3172     v4rhosigma2lapl[0] = 0.0e0;
3173 
3174   t4896 = t1925 * t45;
3175   t4903 = -0.4e1 * t240 * t1720 - 0.2e1 * t97 * t1557 * t254 + 0.150e3 * t1310 * t1326 * t602 + 0.60e2 * t1715 * t1925 * t559 - 0.4e1 * t681 * t1702 + 0.60e2 * t1361 * t1900 + 0.5e1 * t699 * t1705 * t672 - 0.2e1 * t1909 * t583 - 0.4e1 * t1669 * t686 + 0.60e2 * t1715 * t477 * t43 * t244 - t1092 * t1935 - 0.2e1 * t4896 * t684 + 0.10e2 * t1710 * t46 * t1607 * t190;
3176   t4904 = t698 * t691;
3177   t4908 = t590 * t1944;
3178   t4941 = -0.30e2 * t1715 * t46 * t1501 * t103 - 0.5e1 * t1945 * t1607 * t587 * t190 + 0.5e1 * t1945 * t530 * t587 * t524 + 0.15e2 * t4908 * t1501 * t592 - 0.4e1 * t97 * t248 * t1622 - 0.10e2 * t259 * t4904 * t1712 - 0.4e1 * t681 * t1617 - 0.4e1 * t681 * t1635 + 0.5e1 * t1693 * t1920 - 0.2e1 * t466 * t1897 + 0.60e2 * t4046 * t1926 + 0.60e2 * t4061 * t1926 + 0.60e2 * t4168 * t1926 - t615;
3179   t4962 = t590 * t4904;
3180   t4977 = 0.2e1 * t487 * t530 * t1649 * t190 + t487 * t1598 * t1696 - 0.2e1 * t1909 * t574 - 0.2e1 * t1909 * t577 - 0.2e1 * t1092 * t1937 + 0.5e1 / 0.2e1 * t258 * t226 * t1943 * t1946 - 0.2e1 * t1092 * t1940 + t1092 * t1923 + 0.60e2 * t4962 * t1717 - 0.10e2 * t1710 * t46 * t530 * t524 - 0.4e1 * t97 * t567 * t691 - 0.4e1 * t97 * t543 * t691 - 0.4e1 * t466 * t1894;
3181   t4995 = t678 * t254;
3182   t5009 = -0.2e1 * t97 * t679 * t582 - 0.4e1 * t681 * t1626 + 0.30e2 * t1361 * t1903 + 0.150e3 * t3324 * t1906 - t1911 + 0.30e2 * t1715 * t46 * t1497 * t103 + 0.10e2 * t699 * t1622 * t43 * t244 - 0.2e1 * t265 * t4995 + 0.2e1 * t1932 * t1697 + 0.60e2 * t591 * t4105 * t208 + 0.60e2 * t591 * t1643 * t477 + 0.30e2 * t591 * t1326 * t612 - t1570 - t1573;
3183   t5015 = params->d * t612;
3184   t5020 = t247 * t691;
3185   t5043 = -0.2e1 * t487 * t1109 * t1649 - 0.2e1 * t487 * t1109 * t1720 - t487 * t1497 * t1316 - t487 * t1497 * t1323 + 0.5e1 * t699 * t700 * t1541 - t487 * t3847 * t569 - 0.2e1 * t487 * t483 * t4196 - 0.2e1 * t487 * t483 * t4208 - 0.2e1 * t1593 * t1937 - 0.4e1 * t265 * t5020 + 0.5e1 * t586 * t5015 - 0.2e1 * t669 * t569 - t1575;
3186   t5081 = -t1593 * t1935 - 0.2e1 * t487 * t483 * t4049 - 0.2e1 * t487 * t483 * t3982 - 0.2e1 * t1593 * t1940 + 0.2e1 * t487 * t530 * t569 * t524 - 0.5e1 * t1693 * t1929 - 0.5e1 * t699 * t1705 * t675 - 0.2e1 * t487 * t1607 * t1696 - 0.4e1 * t681 * t1640 - 0.60e2 * t1715 * t4896 * t1711 + 0.300e3 * t4122 * t4896 * t1716 - 0.2e1 * t97 * t1404 * t254 + 0.10e2 * t1693 * t1917 + 0.120e3 * t1364 * t1643 * t548;
3187   t5119 = 0.30e2 * t591 * t5015 * t103 + 0.300e3 * t1310 * t1643 * t1517 + 0.150e3 * t1310 * t587 * t4596 + 0.300e3 * t1310 * t587 * t4626 + 0.60e2 * t1364 * t587 * t1535 + 0.300e3 * t3248 * t587 * t1510 - 0.2e1 * t1669 * t46 * t684 + 0.10e2 * t699 * t1916 * t559 + 0.10e2 * t595 * t5015 * t195 + 0.600e3 * t3309 * t587 * t4618 - 0.2e1 * t1932 * t1681 - 0.2e1 * t1932 * t1683 - 0.2e1 * t1932 * t1685 + t1905;
3188   t5151 = 0.5e1 * t1688 * t46 * t1497 - 0.4e1 * t240 * t1649 - t1592 + t1893 + t1593 * t1923 + t487 * t1501 * t1316 + t487 * t1501 * t1323 - 0.5e1 * t1688 * t46 * t1501 + 0.10e2 * t1344 * t1643 * t1689 + 0.5e1 / 0.2e1 * t1945 * t1501 * t1326 - 0.5e1 * t1710 * t46 * t1598 * t190 + 0.2e1 * t487 * t530 * t1720 * t190 - 0.4e1 * t681 * t1652 - 0.4e1 * t1669 * t692;
3189   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3190     v4rhosigma2tau[0] = t4903 + t4941 + t4977 + t5009 + t5043 + t5081 + t5119 + t5151;
3191 
3192   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3193     v4rhosigmalapl2[0] = 0.0e0;
3194 
3195   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3196     v4rhosigmalapltau[0] = 0.0e0;
3197 
3198   t5156 = my_piecewise3(t7, 0, -t99 * t715 / 0.4e1);
3199   t5187 = rho[0] * t582;
3200   t5194 = -0.2e1 * t97 * t98 * t5156 - 0.2e1 * t681 * t1754 - t1951 * t536 - t1959 * t45 * t484 - t487 * t1109 * t1746 - t487 * t483 * t4430 - t487 * t483 * t4368 - t1593 * t1968 - 0.2e1 * t240 * t1746 + 0.5e1 * t699 * t1982 * t559 - 0.2e1 * t681 * t1751 + 0.400e3 * t1310 * t587 * t691 * t103 + 0.160e3 * t1364 * t587 * t691 * t195 - 0.4e1 * t5187 * t692 - 0.4e1 * t1727 * t1617 - 0.2e1 * t681 * t1760;
3201   t5228 = t95 * t1975;
3202   t5231 = t698 * t718;
3203   t5232 = t590 * t5231;
3204   t5235 = t698 * t707;
3205   t5242 = 0.5e1 * t259 * t261 * t5156 + 0.150e3 * t1310 * t1763 * t1517 + 0.60e2 * t1364 * t1763 * t548 + 0.800e3 * t3309 * t1734 * t1517 + 0.400e3 * t3248 * t1734 * t548 + 0.400e3 * t1310 * t587 * t208 * t582 - t1092 * t1968 - 0.4e1 * t1727 * t1626 - 0.2e1 * t1669 * t719 + 0.200e3 * t3324 * t1955 - 0.2e1 * t97 * t204 * t1975 - 0.2e1 * t466 * t1976 - 0.2e1 * t708 * t567 - 0.2e1 * t265 * t5228 + 0.30e2 * t5232 * t1717 - 0.40e2 * t590 * t5235 * t1712 + 0.30e2 * t591 * t4314 * t208;
3206   t5257 = t1727 * t46;
3207   t5274 = params->d * t1975;
3208   t5289 = 0.30e2 * t591 * t1763 * t477 - 0.2e1 * t708 * t543 - t1951 * t526 - 0.2e1 * t97 * t567 * t718 + 0.5e1 * t699 * t1759 * t43 * t244 - 0.2e1 * t5257 * t1685 + t708 * t46 * t532 + 0.40e2 * t4167 * t1734 * t1689 - 0.5e1 * t259 * t5231 * t1712 - 0.2e1 * t97 * t196 * t1975 + 0.5e1 * t1344 * t1763 * t1689 + 0.30e2 * t591 * t5274 * t103 + 0.10e2 * t595 * t5274 * t195 - 0.4e1 * t1727 * t1702 + 0.80e2 * t591 * t1326 * t691 + 0.80e2 * t591 * t587 * t1622;
3209   t5314 = t247 * t718;
3210   t5325 = t1309 * t5235;
3211   t5332 = 0.200e3 * t1310 * t1734 * t477 + 0.80e2 * t1715 * t1706 + 0.5e1 * t1693 * t1983 + t487 * t530 * t1746 * t190 + 0.5e1 * t586 * t5274 + 0.80e2 * t1361 * t1963 - 0.4e1 * t1727 * t1652 - 0.2e1 * t97 * t543 * t718 - 0.2e1 * t466 * t1970 + 0.40e2 * t590 * t1692 * t1960 - 0.2e1 * t265 * t5314 + 0.40e2 * t1958 * t1959 * t559 - 0.2e1 * t97 * t248 * t1759 + 0.30e2 * t1361 * t1979 + 0.200e3 * t5325 * t1717 - 0.2e1 * t1724 * t247 - 0.4e1 * t4375 * t1720;
3212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3213     v4rhosigmatau2[0] = t5194 + t5242 + t5289 + t5332;
3214 
3215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3216     v4rholapl3[0] = 0.0e0;
3217 
3218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3219     v4rholapl2tau[0] = 0.0e0;
3220 
3221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3222     v4rholapltau2[0] = 0.0e0;
3223 
3224   t5347 = t708 * t260;
3225   t5355 = t1992 * t260;
3226   t5365 = 0.600e3 * t1310 * t587 * t718 * t103 + 0.420e3 * t1992 * t89 * t198 * t195 + 0.840e3 * t5355 * t449 * t103 + 0.210e3 * t1991 * t260 * t198 + 0.630e3 * t5347 * t198 * t582 + 0.120e3 * t1361 * t1996 - 0.6e1 * t1727 * t1751 - 0.6e1 * t1727 * t1754 - 0.6e1 * t1727 * t1760 - 0.6e1 * t4375 * t1746 - 0.6e1 * t5187 * t719;
3227   t5376 = t95 * t2003;
3228   t5389 = my_piecewise3(t7, 0, 0.3e1 / 0.4e1 * t100 * t2000);
3229   t5393 = params->d * t2003;
3230   t5405 = 0.240e3 * t1364 * t587 * t718 * t195 + 0.30e2 * t591 * t5393 * t103 + 0.120e3 * t591 * t1326 * t718 + 0.120e3 * t591 * t587 * t1759 + 0.10e2 * t595 * t5393 * t195 - 0.2e1 * t97 * t196 * t2003 - 0.2e1 * t97 * t204 * t2003 + 0.5e1 * t259 * t261 * t5389 - 0.2e1 * t97 * t98 * t5389 - 0.2e1 * t466 * t2004 - 0.2e1 * t265 * t5376 + 0.5e1 * t586 * t5393;
3231   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3232     v4rhotau3[0] = t5365 + t5405;
3233 
3234   t5422 = t1822 * t1825;
3235   t5423 = t1827 * t348;
3236   t5433 = 0.1e1 / t16 / t2250 / rho[0];
3237   t5436 = 0.1e1 / t12 / t11;
3238   t5442 = t624 * t624;
3239   t5448 = t1822 * params->beta * t76;
3240   t5450 = 0.1e1 / t1824 / t43;
3241   t5452 = t1827 * t44;
3242   t5458 = t5450 * t5452;
3243   t5475 = t45 * (0.3e1 / 0.32e2 * t5422 * t5423 * t68 * t71 * t3431 * t624 - t5422 * t5423 * t5433 * t27 * t5436 * t14 * t178 / 0.6144e4 - 0.24e2 * t1822 * t5442 * t1825 * t4561 + 0.24e2 * t5448 * t5450 * t5452 * t2389 * t823 * t5442 - 0.3e1 / 0.32e2 * t5448 * t5458 * t934 * t823 * t624 * t68 * t72 + t5448 * t5458 * t406 * t823 * t5433 * t27 * t5436 * t14 / 0.6144e4);
3244   t5487 = t648 * t648;
3245   t5488 = t45 * t5487;
3246   t5492 = t653 * t653;
3247   t5493 = t45 * t5492;
3248   t5506 = t612 * t612;
3249   t5510 = t602 * t602;
3250   t5563 = -t243 * t5475 * t191 / 0.2e1 - 0.60e2 * t449 * t89 * t5506 - t671 - 0.120e3 * t2561 * t89 * t5510 - 0.360e3 * t1041 * t662 * t612 - 0.80e2 * t1795 - 0.6e1 * t243 * t649 * t1607 - 0.20e2 * t554 * t1850 * t999 * t208 + 0.60e2 * t1149 * t654 * t438 * t602 - 0.120e3 * t1516 * t483 * t4672 + 0.30e2 * t1157 * t1598 * t208 * t234 - 0.10e2 * t1806 + 0.2e1 * t243 * t1842 * t530 + 0.3e1 / 0.2e1 * t243 * t5488 * t438 + 0.3e1 * t243 * t5493 * t2526 - 0.15e2 * t554 * t649 * t1804 + 0.15e2 * t554 * t654 * t438 * t612 - 0.120e3 * t2929 * t235 * t191 * t1786 - 0.60e2 * t1149 * t649 * t1790 - 0.10e2 * t554 * t1842 * t665;
3251   t5568 = 0.6e1 * t1882 * t656 - 0.2e1 * t212 * t235 * t191 * t1853 - t615 - 0.8e1 * t487 * t4711 * t463 + 0.6e1 * t529 * t1598 * t247 * t234 - 0.6e1 * t487 * t1497 * t1590 - t212 * t5475 * t236 / 0.2e1 - 0.2e1 * t212 * t1842 * t659 - 0.3e1 * t212 * t649 * t1878 - 0.6e1 * t1882 * t650 + 0.3e1 / 0.2e1 * t212 * t5488 * t655 + 0.3e1 * t212 * t5493 * t2526 * t95 + 0.12e2 * t487 * t530 * t463 * t648 - 0.8e1 * t1784 - t107 * t89 * t5563 - 0.4e1 * t1865 - 0.8e1 * t1779;
3252   t5619 = -0.12e2 * t603 * t679 + 0.3e1 * t212 * t654 * t438 * t678 - 0.12e2 * t1882 * t660 - 0.4e1 * t212 * t1850 * t999 * t247 + 0.2e1 * t529 * t4481 * t1867 - 0.6e1 * t529 * t1607 * t95 * t648 - 0.12e2 * t487 * t1497 * t1401 - 0.4e1 * t487 * t4488 * t463 - 0.12e2 * t487 * t483 * t4485 - 0.12e2 * t1932 * t1864 + 0.12e2 * t487 * t1501 * t1401 + 0.6e1 * t487 * t1501 * t1590 - 0.12e2 * t487 * t483 * t4706 - 0.6e1 * rho[0] * t5506 * t98 - 0.12e2 * t97 * t679 * t612 - 0.24e2 * t681 * t1778 - 0.8e1 * t97 * t1854 * t208;
3253   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3254     v4sigma4[0] = t5568 + t5619;
3255 
3256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3257     v4sigma3lapl[0] = 0.0e0;
3258 
3259   t5636 = t612 * t43 * t244;
3260   t5651 = -0.15e2 * t1710 * t46 * t1598 * t234 + 0.450e3 * t1310 * t587 * t4672 + 0.45e2 * t4908 * t1501 * t695 + 0.90e2 * t591 * t1643 * t612 - 0.90e2 * t1715 * t1925 * t675 + 0.5e1 * t699 * t700 * t1843 + 0.10e2 * t699 * t700 * t1851 - 0.6e1 * t97 * t679 * t691 - 0.12e2 * t681 * t1894 + 0.15e2 * t699 * t5636 - t615;
3261   t5683 = 0.450e3 * t4122 * t4714 * t244 + 0.15e2 * t699 * t1916 * t672 - 0.15e2 * t699 * t1916 * t675 + 0.90e2 * t1715 * t46 * t1497 * t208 - 0.2e1 * t97 * t1854 * t254 + 0.90e2 * t591 * t5015 * t208 + 0.600e3 * t3309 * t587 * t1786 + 0.450e3 * t1310 * t1643 * t602 + 0.15e2 / 0.2e1 * t1945 * t530 * t587 * t648 - 0.6e1 * t681 * t1897 - t1785 - t1911;
3262   t5706 = 0.180e3 * t4962 * t1926 + 0.90e2 * t1715 * t5636 - 0.6e1 * t1909 * t686 - 0.6e1 * t1909 * t692 + 0.3e1 * t487 * t530 * t569 * t648 - t1866 - t1780 + t1905 - 0.15e2 / 0.2e1 * t1945 * t4711 * t587 - 0.3e1 * t1932 * t1935 - t487 * t4488 * t569 + 0.3e1 * t1932 * t1923;
3263   t5738 = 0.3e1 * t487 * t1501 * t1649 + 0.3e1 * t487 * t1501 * t1720 - 0.3e1 * t487 * t1497 * t1649 - 0.3e1 * t487 * t1497 * t1720 - 0.6e1 * t487 * t483 * t5020 - 0.3e1 * t487 * t483 * t4995 - 0.3e1 * t1909 * t46 * t684 + t1893 - 0.6e1 * t1932 * t1937 - 0.6e1 * t1932 * t1940 + 0.15e2 / 0.2e1 * t1945 * t1501 * t1643 - 0.2e1 * t487 * t4711 * t569;
3264   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3265     v4sigma3tau[0] = t5651 + t5683 + t5706 + t5738;
3266 
3267   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3268     v4sigma2lapl2[0] = 0.0e0;
3269 
3270   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3271     v4sigma2lapltau[0] = 0.0e0;
3272 
3273   t5755 = t691 * t691;
3274   t5788 = 0.200e3 * t1310 * t1734 * t612 + 0.150e3 * t1310 * t1763 * t602 + 0.60e2 * t591 * t5274 * t208 + 0.30e2 * t591 * t1763 * t612 + 0.800e3 * t3309 * t1734 * t602 + 0.80e2 * t590 * t261 * t5755 - 0.8e1 * t1727 * t1894 - 0.2e1 * t97 * t679 * t718 - 0.4e1 * t97 * t248 * t1975 - 0.4e1 * t681 * t1976 - 0.4e1 * t681 * t1970 - 0.2e1 * t1909 * t719 - 0.2e1 * t708 * t679 - 0.4e1 * rho[0] * t5755 * t98 + 0.60e2 * t5232 * t1926 - t615 - 0.5e1 * t699 * t1982 * t675 + 0.40e2 * t1958 * t1959 * t672 + 0.160e3 * t1715 * t1917;
3275   t5831 = 0.400e3 * t5325 * t1926 - 0.4e1 * t1910 + 0.5e1 * t699 * t1982 * t672 - t1951 * t650 + t1951 * t656 - 0.2e1 * t1951 * t660 + 0.800e3 * t1310 * t587 * t208 * t691 + 0.80e2 * t1904 + t1893 + t487 * t1501 * t1746 - 0.4e1 * t5257 * t1940 + 0.20e2 * t4908 * t1501 * t1734 - 0.2e1 * t1932 * t1968 - t487 * t1497 * t1746 - 0.2e1 * t487 * t483 * t5314 - 0.2e1 * t487 * t483 * t5228 + 0.5e1 / 0.2e1 * t1945 * t1501 * t1763 - 0.40e2 * t1958 * t1959 * t675 + 0.10e2 * t699 * t1975 * t43 * t244;
3276   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3277     v4sigma2tau2[0] = t5788 + t5831;
3278 
3279   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3280     v4sigmalapl3[0] = 0.0e0;
3281 
3282   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3283     v4sigmalapl2tau[0] = 0.0e0;
3284 
3285   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3286     v4sigmalapltau2[0] = 0.0e0;
3287 
3288   t5873 = my_piecewise3(t7, 0, -0.3e1 / 0.4e1 * t2 * t2000);
3289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3290     v4sigmatau3[0] = -0.6e1 * rho[0] * t691 * t719 - 0.3e1 * t5257 * t1968 - 0.6e1 * t1727 * t1970 - 0.6e1 * t1727 * t1976 + 0.630e3 * t5347 * t198 * t691 + 0.210e3 * t1992 * t698 * t91 * t43 * t244 + 0.840e3 * t5355 * t449 * t208 + 0.600e3 * t1310 * t587 * t718 * t208 + 0.120e3 * t1715 * t1983 + 0.120e3 * t591 * t1643 * t718 + 0.120e3 * t591 * t587 * t1975 - 0.2e1 * t681 * t2004 - t487 * t483 * t5376 - 0.2e1 * t97 * t248 * t2003 - 0.2e1 * t97 * t98 * t5873 + 0.30e2 * t591 * t5393 * t208 + 0.5e1 * t699 * t2003 * t43 * t244 + 0.5e1 * t259 * t261 * t5873;
3291 
3292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3293     v4lapl4[0] = 0.0e0;
3294 
3295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3296     v4lapl3tau[0] = 0.0e0;
3297 
3298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3299     v4lapl2tau2[0] = 0.0e0;
3300 
3301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3302     v4lapltau3[0] = 0.0e0;
3303 
3304   t5887 = t718 * t718;
3305   t5896 = t707 * t707;
3306   t5911 = my_piecewise3(t7, 0, 0.3e1 * t3 / t1999 / tau[0]);
3307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3308     v4tau4[0] = 0.840e3 * rho[0] * t5896 * t261 * t448 - 0.6e1 * rho[0] * t5887 * t98 + 0.1260e4 * t5347 * t198 * t718 + 0.160e3 * t591 * t587 * t2003 + 0.5e1 * t259 * t261 * t5911 + 0.120e3 * t590 * t261 * t5887 - 0.2e1 * t97 * t98 * t5911 - 0.8e1 * t1727 * t2004;
3309 
3310 #ifndef XC_DONT_COMPILE_MXC
3311 
3312   if(order < 5) return;
3313 
3314 
3315 #endif
3316 
3317 #endif
3318 
3319 #endif
3320 
3321 #endif
3322 
3323 #endif
3324 
3325 
3326 }
3327 
3328 
3329 static inline void
func_pol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))3330 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
3331 {
3332 
3333 #ifndef XC_DONT_COMPILE_EXC
3334   double t3, t4, t5, t6, t7, t8, t9, t11;
3335   double t12, t13, t14, t15, t17, t19, t20, t21;
3336   double t23, t25, t26, t27, t28, t30, t31, t32;
3337   double t33, t34, t35, t36, t37, t38, t40, t41;
3338   double t42, t44, t45, t46, t47, t48, t49, t50;
3339   double t53, t54, t55, t57, t58, t59, t60, t61;
3340   double t62, t63, t64, t65, t66, t67, t68, t69;
3341   double t70, t71, t72, t73, t74, t77, t78, t79;
3342   double t80, t81, t82, t84, t85, t88, t89, t91;
3343   double t92, t94, t95, t96, t97, t98, t99, t100;
3344   double t101, t102, t103, t104, t105, t106, t108, t109;
3345   double t112, t114, t115, t116, t117, t118, t119, t121;
3346   double t124, t125, t127, t128, t129, t130, t133, t134;
3347   double t136, t141, t144, t145, t149, t154, t157, t158;
3348   double t159, t161, t162, t163, t165, t166, t167, t168;
3349   double t169, t170, t171, t173, t174, t175, t177, t178;
3350   double t180, t182, t183, t184, t187, t188, t190, t191;
3351   double t192, t194, t195, t196, t197, t198, t200, t202;
3352   double t203, t204, t205, t206, t207, t208, t209, t210;
3353   double t211, t214, t215, t216, t219, t220, t221, t223;
3354   double t224, t227, t228, t229, t230, t231, t233, t235;
3355   double t236, t239, t241, t242, t243, t245, t247, t250;
3356   double t251, t252, t254, t255, t256, t257, t258, t259;
3357   double t262, t265, t266, t267, t268, t269, t270, t271;
3358   double t273, t275, t276, t277, t279, t282, t283, t284;
3359   double t287, t288, t289, t291, t292, t295, t296, t297;
3360   double t299, t300, t302, t304, t305, t308, t310, t312;
3361   double t314, t317, t318, t319, t321, t322, t323, t324;
3362   double t329, t330, t331, t332, t333, t334, t335, t337;
3363   double t339, t340, t342, t345, t346, t347, t350, t351;
3364   double t352, t354, t355, t358, t359, t360, t363, t366;
3365   double t368, t369, t370, t372;
3366 
3367 #ifndef XC_DONT_COMPILE_VXC
3368   double t373, t375, t376, t377, t379, t380, t381, t383;
3369   double t384, t385, t387, t389, t391, t392, t393, t395;
3370   double t396, t397, t399, t400, t401, t402, t404, t405;
3371   double t407, t409, t410, t413, t414, t415, t418, t419;
3372   double t423, t424, t425, t426, t427, t429, t431, t433;
3373   double t435, t436, t439, t440, t443, t446, t447, t449;
3374   double t451, t452, t453, t454, t459, t460, t464, t465;
3375   double t468, t469, t470, t472, t473, t474, t475, t476;
3376   double t477, t478, t480, t481, t483, t484, t485, t486;
3377   double t488, t491, t493, t497, t498, t501, t502, t505;
3378   double t506, t507, t510, t513, t515, t516, t517, t518;
3379   double t520, t521, t522, t523, t526, t527, t528, t529;
3380   double t531, t532, t533, t536, t539, t540, t541, t542;
3381   double t545, t547, t549, t553, t555, t557, t559, t560;
3382   double t561, t562, t565, t566, t568, t569, t570, t571;
3383   double t572, t577, t578, t580, t581, t586, t589, t590;
3384   double t591, t592, t594, t595, t596, t597, t599, t601;
3385   double t602, t603, t605, t606, t608, t609, t610, t612;
3386   double t613, t615, t616, t618, t623, t624, t625, t629;
3387   double t630, t631, t636, t637, t638, t644, t645, t646;
3388   double t651, t652, t653, t656, t657, t658, t660, t661;
3389   double t663, t665, t666, t668, t670, t671, t672, t674;
3390   double t677, t682, t683, t686, t687, t688, t689, t690;
3391   double t693, t694, t695, t697, t698, t699, t701, t703;
3392   double t704, t707, t708, t709, t710, t714, t715, t716;
3393   double t717, t719, t720, t722, t724, t725, t726, t728;
3394   double t731, t732, t734, t735, t736, t737, t738, t743;
3395   double t744, t746, t748, t751, t752, t756, t757, t758;
3396   double t759, t760, t761, t762, t764, t765, t767, t768;
3397   double t769, t770, t772, t775, t777, t782, t783, t786;
3398   double t787, t788, t791, t793, t794, t796, t797, t798;
3399   double t799, t802, t803, t804, t805, t807, t810, t813;
3400   double t814, t815, t816, t820, t822, t824, t826, t827;
3401   double t828, t829, t832, t833, t835, t836, t837, t838;
3402   double t839, t844, t845, t847, t848, t853, t857, t860;
3403   double t863, t866, t869, t870, t872, t873, t875, t878;
3404   double t880, t881, t883, t884, t886, t887, t888, t891;
3405   double t893, t894, t897, t898, t901, t902, t904, t905;
3406   double t906, t908, t909, t912, t915, t916, t919, t923;
3407   double t924, t928, t929, t932, t933, t934, t936, t937;
3408   double t940, t946, t949, t950, t953, t954, t959, t962;
3409   double t963, t964, t965, t968, t969, t972, t973, t979;
3410   double t980, t982, t991, t992, t993, t995, t999, t1003;
3411   double t1004, t1008, t1010, t1013, t1014, t1015, t1016, t1020;
3412   double t1023, t1024, t1030, t1031, t1033, t1037, t1038, t1041;
3413   double t1042, t1043, t1045, t1046, t1049, t1055, t1058, t1059;
3414   double t1062, t1065, t1066, t1071, t1074, t1075, t1076, t1077;
3415   double t1080, t1082, t1084, t1087, t1088, t1091, t1092, t1098;
3416   double t1099, t1101, t1106, t1110, t1113, t1116, t1119, t1122;
3417   double t1123, t1125, t1127, t1130, t1132, t1133, t1134, t1135;
3418   double t1136, t1137, t1138, t1141, t1143, t1144, t1146, t1147;
3419   double t1148, t1151, t1153, t1156, t1157, t1159, t1160, t1161;
3420   double t1162, t1163, t1164, t1165, t1167, t1169, t1173, t1175;
3421   double t1178, t1179, t1181, t1182, t1184, t1185, t1186, t1188;
3422   double t1190, t1191, t1192, t1193, t1194, t1196, t1199, t1201;
3423   double t1202, t1203, t1204, t1205, t1208, t1210, t1211, t1213;
3424   double t1214, t1215, t1216, t1217, t1219, t1221, t1223, t1224;
3425   double t1226, t1227, t1231, t1232, t1237, t1238, t1241, t1243;
3426   double t1244, t1245, t1246, t1247, t1249, t1252, t1254, t1255;
3427   double t1258, t1261, t1264, t1265, t1267, t1269, t1272, t1274;
3428   double t1275, t1276, t1277, t1280, t1282, t1283, t1286, t1288;
3429   double t1291, t1292, t1294, t1295, t1296, t1298, t1300, t1304;
3430   double t1307, t1309, t1310, t1313, t1315, t1316, t1318, t1320;
3431   double t1322, t1323, t1326, t1327, t1329, t1330, t1333, t1334;
3432   double t1336, t1338, t1341, t1343, t1344, t1347, t1348, t1350;
3433   double t1351, t1354, t1355, t1357, t1359, t1362;
3434 
3435 #ifndef XC_DONT_COMPILE_FXC
3436   double t1364, t1366, t1369, t1371, t1373, t1374, t1376, t1378;
3437   double t1380, t1381, t1383, t1385, t1386, t1387, t1389, t1390;
3438   double t1391, t1392, t1396, t1397, t1398, t1401, t1402, t1403;
3439   double t1404, t1405, t1406, t1407, t1410, t1416, t1417, t1422;
3440   double t1423, t1424, t1427, t1428, t1431, t1432, t1433, t1436;
3441   double t1437, t1440, t1441, t1442, t1443, t1448, t1450, t1451;
3442   double t1454, t1457, t1459, t1460, t1463, t1466, t1467, t1470;
3443   double t1473, t1474, t1476, t1481, t1482, t1485, t1489, t1490;
3444   double t1493, t1494, t1495, t1498, t1511, t1512, t1516, t1517;
3445   double t1521, t1522, t1523, t1525, t1526, t1527, t1528, t1529;
3446   double t1531, t1532, t1533, t1534, t1536, t1537, t1538, t1540;
3447   double t1541, t1543, t1546, t1547, t1548, t1549, t1550, t1554;
3448   double t1555, t1558, t1563, t1566, t1571, t1576, t1579, t1580;
3449   double t1582, t1583, t1586, t1589, t1592, t1593, t1596, t1597;
3450   double t1598, t1599, t1600, t1601, t1604, t1607, t1609, t1611;
3451   double t1612, t1613, t1616, t1617, t1618, t1620, t1621, t1622;
3452   double t1623, t1626, t1628, t1631, t1634, t1635, t1637, t1638;
3453   double t1642, t1643, t1644, t1645, t1648, t1649, t1650, t1651;
3454   double t1655, t1657, t1660, t1662, t1665, t1668, t1669, t1671;
3455   double t1672, t1673, t1674, t1675, t1679, t1680, t1681, t1682;
3456   double t1683, t1684, t1685, t1686, t1689, t1690, t1692, t1693;
3457   double t1697, t1698, t1699, t1700, t1707, t1710, t1713, t1716;
3458   double t1717, t1718, t1719, t1723, t1726, t1727, t1728, t1730;
3459   double t1734, t1735, t1736, t1737, t1740, t1744, t1754, t1755;
3460   double t1757, t1761, t1762, t1763, t1768, t1769, t1773, t1774;
3461   double t1775, t1776, t1777, t1779, t1780, t1785, t1791, t1793;
3462   double t1796, t1797, t1798, t1799, t1801, t1802, t1804, t1805;
3463   double t1807, t1808, t1809, t1811, t1813, t1814, t1816, t1817;
3464   double t1819, t1820, t1821, t1822, t1823, t1824, t1825, t1827;
3465   double t1828, t1829, t1830, t1831, t1832, t1833, t1834, t1836;
3466   double t1837, t1838, t1839, t1846, t1848, t1850, t1851, t1852;
3467   double t1854, t1856, t1858, t1859, t1862, t1863, t1864, t1866;
3468   double t1867, t1868, t1869, t1870, t1881, t1883, t1887, t1888;
3469   double t1890, t1891, t1892, t1893, t1895, t1899, t1900, t1903;
3470   double t1904, t1905, t1906, t1907, t1908, t1909, t1912, t1914;
3471   double t1916, t1917, t1919, t1920, t1921, t1922, t1923, t1924;
3472   double t1927, t1929, t1931, t1932, t1933, t1935, t1939, t1943;
3473   double t1944, t1945, t1946, t1947, t1956, t1957, t1960, t1961;
3474   double t1962, t1963, t1964, t1965, t1970, t1974, t1978, t1979;
3475   double t1982, t1985, t1986, t1989, t1990, t1991, t1992, t1993;
3476   double t1994, t1995, t1996, t1997, t1998, t2000, t2001, t2002;
3477   double t2004, t2005, t2007, t2011, t2012, t2015, t2018, t2019;
3478   double t2021, t2024, t2026, t2030, t2031, t2033, t2035, t2037;
3479   double t2038, t2041, t2042, t2043, t2045, t2049, t2052, t2053;
3480   double t2055, t2059, t2060, t2061, t2062, t2065, t2069, t2079;
3481   double t2080, t2082, t2086, t2090, t2092, t2093, t2096, t2100;
3482   double t2101, t2102, t2109, t2110, t2111, t2113, t2114, t2115;
3483   double t2116, t2117, t2119, t2120, t2121, t2122, t2124, t2125;
3484   double t2126, t2128, t2129, t2131, t2134, t2135, t2136, t2137;
3485   double t2138, t2142, t2143, t2146, t2151, t2154, t2159, t2166;
3486   double t2167, t2169, t2170, t2173, t2176, t2179, t2180, t2183;
3487   double t2184, t2185, t2186, t2187, t2188, t2191, t2193, t2194;
3488   double t2195, t2198, t2199, t2200, t2201, t2204, t2205, t2206;
3489   double t2209, t2210, t2214, t2215, t2217, t2218, t2219, t2220;
3490   double t2221, t2222, t2225, t2226, t2229, t2230, t2231, t2232;
3491   double t2233, t2234, t2235, t2242, t2245, t2248, t2251, t2252;
3492   double t2253, t2254, t2257, t2258, t2259, t2263, t2265, t2266;
3493   double t2267, t2270, t2271, t2272, t2273, t2276, t2277, t2280;
3494   double t2281, t2284, t2285, t2287, t2291, t2292, t2293, t2294;
3495   double t2297, t2301, t2311, t2312, t2314, t2318, t2319, t2320;
3496   double t2325, t2331, t2338, t2341, t2342, t2345, t2350, t2353;
3497   double t2358, t2359, t2363, t2367, t2370, t2373, t2375, t2376;
3498   double t2377, t2378, t2383, t2386, t2387, t2389, t2392, t2396;
3499   double t2397, t2400, t2401, t2406, t2407, t2410, t2411, t2414;
3500   double t2415, t2420, t2423, t2426, t2429, t2432, t2433, t2436;
3501   double t2439, t2440, t2442, t2448, t2451, t2455, t2457, t2458;
3502   double t2473, t2474, t2478, t2479, t2483, t2487, t2489, t2490;
3503   double t2491, t2492, t2494, t2495, t2496, t2497, t2499, t2500;
3504   double t2501, t2502, t2503, t2505, t2506, t2508, t2513, t2516;
3505   double t2524, t2532, t2538, t2540, t2543, t2546, t2547, t2548;
3506   double t2551, t2552, t2555, t2556, t2563, t2564, t2566, t2567;
3507   double t2570, t2571, t2574, t2575, t2578, t2579, t2580, t2581;
3508   double t2582, t2587, t2588, t2590, t2591, t2594, t2601, t2604;
3509   double t2607, t2608, t2609, t2612, t2613, t2614, t2615, t2618;
3510   double t2619, t2625, t2626, t2631, t2632, t2634, t2635, t2636;
3511   double t2637, t2640, t2641, t2642, t2645, t2646, t2647, t2650;
3512   double t2651, t2652, t2654, t2657, t2658, t2662, t2663, t2673;
3513   double t2678, t2679, t2681, t2685, t2690, t2691, t2692, t2693;
3514   double t2694, t2695, t2696, t2697, t2700, t2703, t2706, t2710;
3515   double t2711, t2712, t2713, t2714, t2715, t2716, t2719, t2722;
3516   double t2725, t2728, t2733, t2736, t2739, t2740, t2744, t2745;
3517   double t2746, t2747, t2748, t2749, t2750, t2753, t2755, t2756;
3518   double t2759, t2760, t2761, t2762, t2764, t2765, t2766, t2767;
3519   double t2768, t2770, t2776, t2777, t2778, t2781, t2784, t2785;
3520   double t2787, t2790, t2791, t2796, t2797, t2798, t2801, t2803;
3521   double t2805, t2809, t2812, t2813, t2815, t2818, t2819, t2823;
3522   double t2824, t2833, t2836, t2841, t2842, t2844, t2848, t2849;
3523   double t2850, t2853, t2857, t2858, t2862, t2865, t2866, t2867;
3524   double t2874, t2877, t2879, t2880, t2881, t2882, t2884, t2885;
3525   double t2886, t2887, t2889, t2890, t2891, t2893, t2894, t2896;
3526   double t2901, t2904, t2912, t2920, t2926, t2928, t2931, t2934;
3527   double t2937, t2938, t2941, t2942, t2945, t2947, t2951, t2952;
3528   double t2954, t2955, t2958, t2959, t2962, t2963, t2966, t2967;
3529   double t2968, t2969, t2972, t2973, t2975, t2976, t2985, t2988;
3530   double t2991, t2992, t2993, t2996, t2997, t2998, t2999, t3002;
3531   double t3003, t3004, t3007, t3009, t3012, t3015, t3020, t3021;
3532   double t3024, t3025, t3027, t3028, t3029, t3030, t3033, t3034;
3533   double t3035, t3038, t3039, t3042, t3043, t3044, t3046, t3049;
3534   double t3050, t3054, t3055, t3065, t3070, t3071, t3073, t3077;
3535   double t3082, t3089, t3091, t3100, t3103, t3104, t3107, t3112;
3536   double t3115, t3118, t3121, t3126, t3127, t3130, t3132, t3138;
3537   double t3141, t3144, t3148, t3149, t3152, t3155, t3156, t3159;
3538   double t3164, t3165, t3168, t3169, t3173, t3174, t3179, t3180;
3539   double t3183, t3184, t3187, t3188, t3193, t3194, t3196, t3197;
3540   double t3199, t3200, t3202, t3203, t3205, t3206, t3209, t3212;
3541   double t3213, t3219, t3220, t3223, t3227, t3228, t3235, t3244;
3542   double t3245, t3249, t3250, t3254, t3255, t3256, t3258, t3259;
3543   double t3260, t3262, t3263, t3264, t3266, t3267, t3271, t3272;
3544   double t3275, t3282, t3294, t3297, t3300, t3303, t3304, t3307;
3545   double t3311, t3312, t3315, t3316, t3319, t3320, t3323, t3324;
3546   double t3325, t3326, t3330, t3331, t3338, t3341, t3344, t3347;
3547   double t3348, t3349, t3350, t3353, t3354, t3355, t3359, t3360;
3548   double t3363, t3364, t3367, t3368, t3371, t3372, t3376, t3377;
3549   double t3392, t3393, t3395, t3399, t3413, t3415, t3416, t3417;
3550   double t3418, t3419, t3420, t3423, t3424, t3425, t3426, t3427;
3551   double t3431, t3436, t3437, t3448, t3449, t3450, t3453, t3454;
3552   double t3456, t3460, t3461, t3462, t3465, t3466, t3468, t3472;
3553   double t3475, t3478, t3479, t3481, t3484, t3486, t3491, t3495;
3554   double t3498, t3499, t3503, t3504, t3519, t3520, t3522, t3529;
3555   double t3530, t3531, t3538, t3539, t3540, t3542, t3543, t3544;
3556   double t3546, t3547, t3548, t3550, t3551, t3555, t3556, t3559;
3557   double t3566, t3578, t3581, t3584, t3587, t3588, t3591, t3597;
3558   double t3599, t3603, t3604, t3607, t3608, t3609, t3610, t3615;
3559   double t3616, t3617, t3620, t3621, t3624, t3627, t3630, t3631;
3560   double t3634, t3635, t3638, t3639, t3646, t3647, t3650, t3651;
3561   double t3658, t3661, t3664, t3667, t3668, t3669, t3670, t3674;
3562   double t3675, t3676, t3680, t3681, t3696, t3697, t3699, t3703;
3563   double t3708, t3714, t3721, t3724, t3727, t3732, t3735, t3740;
3564   double t3741, t3745, t3749, t3752, t3755, t3757, t3758, t3761;
3565   double t3762, t3763, t3764, t3765, t3768, t3769, t3772, t3774;
3566   double t3775, t3777, t3778, t3779, t3780, t3783, t3784, t3785;
3567   double t3788, t3789, t3790, t3791, t3795, t3799, t3801, t3802;
3568   double t3804, t3805, t3806, t3807, t3808, t3811, t3812, t3814;
3569   double t3816, t3819, t3820, t3824, t3825, t3828, t3830, t3834;
3570   double t3838, t3840, t3843, t3844, t3846, t3848, t3849, t3851;
3571   double t3852, t3853, t3854, t3855, t3858, t3861, t3864, t3866;
3572   double t3869, t3874, t3875, t3878, t3880, t3881, t3882, t3883;
3573   double t3885, t3887, t3888, t3890, t3891, t3892, t3894, t3895;
3574   double t3897, t3898, t3900, t3902, t3903, t3905, t3906, t3907;
3575   double t3908, t3911, t3913, t3914, t3917, t3919, t3920, t3921;
3576   double t3922, t3923, t3924, t3926, t3927, t3930, t3934, t3936;
3577   double t3939, t3940, t3941, t3944, t3945, t3946, t3947, t3950;
3578   double t3951, t3954, t3955, t3958, t3959, t3963, t3964, t3966;
3579   double t3967, t3969, t3970, t3972, t3973, t3976, t3977, t3978;
3580   double t3979, t3980, t3981, t3983, t3984, t3985, t3986, t3987;
3581   double t3988, t3989, t3992, t3994, t3999, t4000, t4002, t4003;
3582   double t4005, t4006, t4008, t4009, t4012, t4013, t4016, t4017;
3583   double t4020, t4021, t4023, t4026, t4035, t4038, t4041, t4042;
3584   double t4046, t4049, t4050, t4053, t4056, t4058, t4059, t4061;
3585   double t4064, t4065, t4070, t4073, t4075, t4076, t4077, t4078;
3586   double t4079, t4080, t4082, t4083, t4086, t4090, t4094, t4097;
3587   double t4102, t4103, t4105, t4106, t4111, t4114, t4117, t4120;
3588   double t4124, t4125, t4129, t4131, t4132, t4135, t4137, t4143;
3589   double t4146, t4149, t4151, t4152, t4155, t4156, t4159, t4160;
3590   double t4163, t4164, t4166, t4167, t4168, t4173, t4179, t4182;
3591   double t4186, t4187, t4190, t4192, t4196, t4198, t4201, t4202;
3592   double t4204, t4206, t4207, t4209, t4210, t4211, t4212, t4215;
3593   double t4218, t4221, t4223, t4226, t4231, t4235, t4239, t4242;
3594   double t4247, t4248, t4251, t4254, t4257, t4258, t4261, t4263;
3595   double t4267, t4269, t4272, t4273, t4276, t4277, t4280, t4282;
3596   double t4283, t4284, t4287, t4288, t4289, t4292, t4293, t4297;
3597   double t4301, t4302, t4304, t4305, t4307, t4308, t4311, t4312;
3598   double t4314, t4316, t4325, t4326, t4329, t4330, t4332, t4333;
3599   double t4338, t4341, t4343, t4350, t4353, t4355, t4357, t4359;
3600   double t4360, t4363, t4364, t4366, t4367, t4371, t4372, t4375;
3601   double t4377, t4378, t4379, t4380, t4381, t4383, t4384, t4387;
3602   double t4391, t4393, t4396, t4397, t4400, t4401, t4404, t4405;
3603   double t4408, t4409, t4412, t4413, t4417, t4418, t4420, t4421;
3604   double t4423, t4424, t4426, t4427, t4430, t4431, t4432, t4433;
3605   double t4434, t4436, t4437, t4438, t4439, t4440, t4441, t4445;
3606   double t4450, t4451, t4453, t4454, t4456, t4457, t4459, t4464;
3607   double t4465, t4478, t4483, t4484, t4488, t4491, t4497, t4498;
3608   double t4502, t4503, t4508, t4511, t4513, t4514, t4515, t4516;
3609   double t4517, t4519, t4520, t4523, t4527, t4531, t4534, t4539;
3610   double t4544, t4547, t4550, t4553, t4557, t4561, t4563, t4564;
3611   double t4568, t4574, t4577, t4580, t4582, t4587, t4588, t4591;
3612   double t4593, t4595, t4596, t4597, t4607, t4610, t4613, t4614;
3613   double t4622, t4627, t4628, t4631, t4632, t4634, t4635, t4640;
3614   double t4643, t4645, t4652, t4656, t4660, t4663, t4668, t4669;
3615   double t4672, t4675, t4678, t4679, t4683, t4687, t4689, t4694;
3616   double t4698, t4699, t4700, t4701, t4705, t4708, t4709, t4710;
3617   double t4714, t4715, t4720, t4721, t4722, t4725, t4726, t4729;
3618   double t4730, t4733, t4736, t4737, t4740, t4742, t4748, t4751;
3619   double t4754, t4756, t4761, t4765, t4766, t4767, t4770, t4771;
3620   double t4775, t4776, t4781, t4782, t4785, t4786, t4789, t4790;
3621   double t4793, t4796, t4797, t4800, t4802, t4808, t4811, t4814;
3622   double t4820, t4823, t4826, t4830, t4831, t4836, t4839, t4840;
3623   double t4843, t4844, t4847, t4850, t4851, t4855, t4861, t4864;
3624   double t4867, t4873, t4876, t4880, t4883, t4887, t4888, t4893;
3625   double t4896, t4897, t4900, t4901, t4904, t4907, t4908, t4912;
3626   double t4918, t4921, t4924, t4926, t4927, t4928, t4929, t4931;
3627   double t4932, t4933, t4934, t4935, t4936, t4939, t4940, t4941;
3628   double t4944, t4947, t4948, t4950, t4951, t4952, t4954, t4955;
3629   double t4956, t4957, t4958, t4959, t4960, t4962, t4963, t4964;
3630   double t4967, t4968, t4969, t4970, t4973, t4974, t4976, t4977;
3631   double t4978, t4979, t4981, t4984, t4985, t4986, t4987, t4988;
3632   double t4989, t4992, t4995, t5000, t5004, t5005, t5007, t5008;
3633   double t5009, t5010, t5013, t5014, t5015, t5017, t5020, t5021;
3634   double t5022, t5023, t5025, t5026, t5027, t5028, t5029, t5030;
3635   double t5031, t5032, t5033, t5034, t5036, t5037, t5039, t5041;
3636   double t5042, t5043, t5044, t5045, t5048, t5049, t5050, t5053;
3637   double t5054, t5055, t5056, t5057, t5059, t5060, t5061, t5063;
3638   double t5064, t5065, t5066, t5070, t5072, t5074, t5076, t5077;
3639   double t5079, t5080, t5082, t5083, t5084, t5085, t5086, t5090;
3640   double t5093, t5094, t5097, t5099, t5100, t5104, t5107, t5109;
3641   double t5111, t5112, t5115, t5116, t5117, t5118, t5119, t5123;
3642   double t5124, t5125, t5126, t5127, t5129, t5130, t5132, t5135;
3643   double t5136, t5137, t5138, t5139, t5142, t5144, t5145, t5146;
3644   double t5149, t5151, t5152, t5154, t5155, t5156, t5158, t5159;
3645   double t5160, t5161, t5162, t5166, t5169, t5172, t5174, t5175;
3646   double t5177, t5178, t5179, t5182, t5189, t5192, t5193, t5195;
3647   double t5196, t5198, t5200, t5201, t5204, t5205, t5208, t5210;
3648   double t5211, t5212, t5213, t5214, t5218, t5220, t5223, t5226;
3649   double t5227, t5228, t5235, t5236, t5239, t5243, t5244, t5245;
3650   double t5249, t5253, t5254, t5255, t5256, t5257, t5258, t5259;
3651   double t5260, t5261, t5262, t5264, t5267, t5269, t5270, t5273;
3652   double t5274, t5279, t5285, t5286, t5290, t5294, t5297, t5299;
3653   double t5300, t5309, t5312, t5313, t5316, t5319, t5322, t5323;
3654   double t5327, t5331, t5333, t5334, t5335, t5342, t5344, t5345;
3655   double t5346, t5349, t5350, t5351, t5352, t5355, t5356, t5357;
3656   double t5359, t5362, t5363, t5364, t5365, t5366, t5367, t5370;
3657   double t5373, t5378, t5381, t5383, t5384, t5388, t5391, t5392;
3658   double t5396, t5399, t5401, t5402, t5406, t5407, t5410, t5412;
3659   double t5413, t5415, t5416, t5419, t5420, t5422, t5423, t5424;
3660   double t5426, t5427, t5429, t5430, t5431, t5435, t5438, t5441;
3661   double t5443, t5444, t5446, t5447, t5449, t5450, t5454, t5455;
3662   double t5458, t5460, t5461, t5463, t5464, t5467, t5468, t5470;
3663   double t5471, t5472, t5474, t5475, t5477, t5478, t5479, t5483;
3664   double t5486, t5489, t5491, t5492, t5494, t5495, t5499, t5502;
3665   double t5506, t5507, t5510, t5513, t5514, t5517, t5518, t5523;
3666   double t5524, t5528, t5534, t5537, t5540, t5546, t5550, t5551;
3667   double t5556, t5557, t5560, t5561, t5566, t5567, t5571, t5577;
3668   double t5580, t5583, t5587, t5590, t5593, t5594, t5598, t5602;
3669   double t5606, t5611, t5612, t5616, t5620, t5622, t5623, t5626;
3670   double t5628, t5630, t5631, t5634, t5635, t5637, t5639, t5640;
3671   double t5643, t5644, t5648, t5652, t5655, t5658, t5660, t5662;
3672   double t5665, t5666, t5668, t5669, t5671, t5672, t5675, t5676;
3673   double t5680, t5686, t5689, t5692, t5694, t5695, t5698, t5700;
3674   double t5702, t5703, t5706, t5707, t5709, t5711, t5712, t5715;
3675   double t5716, t5720, t5724, t5727, t5730;
3676 
3677 #ifndef XC_DONT_COMPILE_KXC
3678   double t5732, t5734, t5736, t5742, t5744, t5745, t5747, t5749;
3679   double t5750, t5751, t5752, t5753, t5756, t5757, t5760, t5769;
3680   double t5770, t5771, t5772, t5775, t5776, t5779, t5780, t5781;
3681   double t5782, t5785, t5786, t5787, t5788, t5791, t5792, t5795;
3682   double t5796, t5799, t5800, t5804, t5805, t5808, t5813, t5817;
3683   double t5818, t5820, t5821, t5823, t5824, t5827, t5828, t5829;
3684   double t5831, t5833, t5836, t5837, t5839, t5840, t5841, t5842;
3685   double t5843, t5844, t5845, t5846, t5848, t5849, t5850, t5852;
3686   double t5853, t5855, t5856, t5861, t5862, t5865, t5868, t5872;
3687   double t5873, t5876, t5879, t5883, t5885, t5886, t5889, t5893;
3688   double t5894, t5897, t5899, t5900, t5901, t5903, t5905, t5906;
3689   double t5909, t5910, t5912, t5913, t5914, t5915, t5916, t5917;
3690   double t5920, t5923, t5931, t5938, t5942, t5949, t5953, t5954;
3691   double t5955, t5959, t5960, t5961, t5981, t5982, t5985, t5987;
3692   double t5988, t5991, t5992, t5993, t5996, t6007, t6008, t6012;
3693   double t6013, t6015, t6016, t6020, t6021, t6022, t6027, t6028;
3694   double t6034, t6035, t6036, t6037, t6038, t6039, t6040, t6041;
3695   double t6043, t6044, t6045, t6047, t6049, t6050, t6051, t6053;
3696   double t6054, t6055, t6056, t6057, t6061, t6062, t6063, t6064;
3697   double t6065, t6066, t6067, t6071, t6076, t6081, t6083, t6085;
3698   double t6087, t6088, t6089, t6090, t6092, t6093, t6094, t6095;
3699   double t6096, t6098, t6099, t6101, t6102, t6104, t6105, t6106;
3700   double t6107, t6108, t6109, t6110, t6111, t6112, t6113, t6114;
3701   double t6117, t6121, t6123, t6124, t6125, t6126, t6127, t6128;
3702   double t6129, t6130, t6132, t6135, t6142, t6147, t6152, t6156;
3703   double t6159, t6161, t6163, t6166, t6168, t6171, t6173, t6176;
3704   double t6178, t6182, t6183, t6185, t6186, t6188, t6191, t6192;
3705   double t6194, t6198, t6199, t6201, t6204, t6205, t6207, t6209;
3706   double t6210, t6212, t6213, t6214, t6215, t6217, t6219, t6221;
3707   double t6223, t6224, t6225, t6227, t6229, t6230, t6233, t6241;
3708   double t6242, t6245, t6246, t6249, t6252, t6253, t6255, t6258;
3709   double t6259, t6260, t6262, t6263, t6264, t6266, t6269, t6270;
3710   double t6272, t6275, t6277, t6280, t6283, t6285, t6287, t6290;
3711   double t6293, t6297, t6298, t6300, t6301, t6302, t6304, t6308;
3712   double t6312, t6315, t6316, t6318, t6319, t6321, t6324, t6325;
3713   double t6327, t6329, t6332, t6333, t6334, t6335, t6337, t6344;
3714   double t6345, t6346, t6347, t6348, t6351, t6352, t6355, t6359;
3715   double t6363, t6370, t6382, t6390, t6391, t6393, t6397, t6401;
3716   double t6405, t6407, t6409, t6414, t6415, t6416, t6417, t6419;
3717   double t6420, t6422, t6423, t6424, t6425, t6426, t6428, t6429;
3718   double t6431, t6432, t6433, t6434, t6435, t6436, t6437, t6439;
3719   double t6440, t6441, t6442, t6445, t6452, t6453, t6454, t6457;
3720   double t6460, t6461, t6462, t6463, t6464, t6467, t6472, t6480;
3721   double t6481, t6502, t6503, t6504, t6512, t6515, t6521, t6524;
3722   double t6529, t6530, t6533, t6536, t6537, t6539, t6542, t6545;
3723   double t6548, t6549, t6552, t6562, t6573, t6576, t6577, t6580;
3724   double t6583, t6587, t6593, t6594, t6595, t6597, t6599, t6601;
3725   double t6604, t6605, t6606, t6607, t6609, t6610, t6611, t6612;
3726   double t6613, t6615, t6616, t6617, t6618, t6620, t6621, t6622;
3727   double t6624, t6625, t6626, t6627, t6629, t6630, t6631, t6633;
3728   double t6634, t6636, t6639, t6644, t6647, t6648, t6651, t6655;
3729   double t6656, t6657, t6666, t6667, t6670, t6673, t6674, t6676;
3730   double t6678, t6680, t6681, t6684, t6687, t6689, t6692, t6695;
3731   double t6698, t6701, t6702, t6713, t6730, t6733, t6734, t6735;
3732   double t6736, t6740, t6744, t6745, t6747, t6748, t6754, t6755;
3733   double t6756, t6757, t6760, t6763, t6765, t6766, t6768, t6769;
3734   double t6770, t6773, t6774, t6775, t6778, t6779, t6785, t6786;
3735   double t6788, t6789, t6791, t6792, t6795, t6798, t6801, t6802;
3736   double t6805, t6807, t6809, t6811, t6812, t6813, t6816, t6817;
3737   double t6818, t6820, t6821, t6822, t6823, t6824, t6825, t6828;
3738   double t6829, t6830, t6833, t6834, t6837, t6838, t6841, t6842;
3739   double t6843, t6856, t6859, t6862, t6865, t6871, t6874, t6875;
3740   double t6876, t6877, t6882, t6883, t6884, t6887, t6889, t6892;
3741   double t6894, t6896, t6897, t6898, t6900, t6903, t6905, t6906;
3742   double t6908, t6910, t6913, t6915, t6916, t6917, t6920, t6921;
3743   double t6924, t6925, t6927, t6928, t6929, t6932, t6933, t6936;
3744   double t6937, t6938, t6941, t6942, t6946, t6947, t6950, t6951;
3745   double t6952, t6954, t6955, t6958, t6959, t6960, t6966, t6967;
3746   double t6969, t6970, t6971, t6975, t6978, t6979, t6981, t6983;
3747   double t6984, t6986, t6987, t6989, t6990, t6994, t6995, t6996;
3748   double t6997, t7002, t7003, t7006, t7011, t7013, t7014, t7016;
3749   double t7023, t7024, t7025, t7026, t7027, t7030, t7031, t7034;
3750   double t7038, t7042, t7049, t7061, t7069, t7070, t7072, t7080;
3751   double t7082, t7085, t7086, t7096, t7097, t7098, t7100, t7102;
3752   double t7104, t7107, t7108, t7109, t7110, t7112, t7113, t7114;
3753   double t7115, t7116, t7118, t7119, t7120, t7121, t7123, t7124;
3754   double t7125, t7127, t7128, t7129, t7130, t7132, t7133, t7134;
3755   double t7136, t7137, t7139, t7142, t7147, t7150, t7151, t7154;
3756   double t7158, t7159, t7160, t7163, t7166, t7169, t7172, t7177;
3757   double t7179, t7181, t7183, t7185, t7186, t7189, t7192, t7193;
3758   double t7196, t7197, t7204, t7211, t7212, t7217, t7220, t7231;
3759   double t7236, t7237, t7238, t7242, t7246, t7247, t7249, t7250;
3760   double t7253, t7255, t7256, t7259, t7262, t7263, t7264, t7267;
3761   double t7268, t7270, t7271, t7272, t7275, t7276, t7278, t7279;
3762   double t7281, t7282, t7285, t7286, t7287, t7288, t7291, t7292;
3763   double t7305, t7308, t7311, t7314, t7320, t7323, t7324, t7325;
3764   double t7326, t7329, t7330, t7332, t7333, t7336, t7337, t7340;
3765   double t7341, t7343, t7344, t7345, t7346, t7349, t7350, t7352;
3766   double t7353, t7355, t7356, t7357, t7359, t7360, t7361, t7365;
3767   double t7366, t7367, t7370, t7371, t7374, t7376, t7377, t7378;
3768   double t7379, t7381, t7382, t7383, t7384, t7385, t7388, t7389;
3769   double t7390, t7393, t7394, t7395, t7398, t7399, t7402, t7403;
3770   double t7406, t7407, t7408, t7409, t7412, t7413, t7416, t7417;
3771   double t7419, t7420, t7423, t7424, t7427, t7428, t7429, t7431;
3772   double t7432, t7435, t7436, t7439, t7440, t7441, t7444, t7445;
3773   double t7446, t7449, t7450, t7451, t7453, t7460, t7461, t7462;
3774   double t7463, t7464, t7467, t7468, t7471, t7475, t7479, t7486;
3775   double t7498, t7506, t7507, t7509, t7517, t7519, t7522, t7523;
3776   double t7532, t7534, t7543, t7544, t7550, t7558, t7561, t7564;
3777   double t7567, t7571, t7573, t7578, t7583, t7586, t7591, t7594;
3778   double t7603, t7608, t7611, t7616, t7626, t7629, t7630, t7633;
3779   double t7636, t7639, t7647, t7650, t7651, t7654, t7657, t7660;
3780   double t7663, t7664, t7681, t7684, t7685, t7694, t7697, t7698;
3781   double t7707, t7708, t7711, t7712, t7713, t7714, t7717, t7722;
3782   double t7729, t7732, t7737, t7738, t7747, t7750, t7751, t7754;
3783   double t7757, t7758, t7763, t7768, t7769, t7770, t7771, t7772;
3784   double t7773, t7774, t7775, t7777, t7780, t7786, t7789, t7791;
3785   double t7793, t7796, t7797, t7800, t7811, t7826, t7835, t7836;
3786   double t7839, t7840, t7841, t7844, t7845, t7847, t7852, t7855;
3787   double t7858, t7859, t7860, t7861, t7862, t7863, t7864, t7865;
3788   double t7869, t7870, t7874, t7875, t7879, t7881, t7882, t7889;
3789   double t7893, t7896, t7897, t7900, t7902, t7903, t7904, t7905;
3790   double t7909, t7910, t7911, t7912, t7916, t7918, t7922, t7923;
3791   double t7924, t7931, t7932, t7934, t7936, t7937, t7938, t7939;
3792   double t7940, t7941, t7942, t7943, t7946, t7955, t7958, t7968;
3793   double t7969, t7970, t7971, t7972, t7977, t7978, t7979, t7980;
3794   double t7981, t7982, t7983, t7984, t7985, t7986, t7988, t7991;
3795   double t8002, t8011, t8016, t8018, t8022, t8026, t8029, t8031;
3796   double t8034, t8037, t8039, t8043, t8044, t8045, t8049, t8050;
3797   double t8051, t8052, t8053, t8056, t8057, t8058, t8060, t8067;
3798   double t8069, t8073, t8077, t8079, t8081, t8085, t8086, t8088;
3799   double t8092, t8096, t8099, t8102, t8106, t8110, t8114, t8117;
3800   double t8127, t8130, t8132, t8134, t8135, t8137, t8140, t8143;
3801   double t8144, t8146, t8149, t8151, t8155, t8156, t8157, t8159;
3802   double t8160, t8161, t8162, t8163, t8164, t8167, t8177, t8182;
3803   double t8183, t8186, t8187, t8190, t8193, t8196, t8197, t8199;
3804   double t8202, t8204, t8208, t8211, t8213, t8216, t8218, t8219;
3805   double t8221, t8233, t8236, t8237, t8241, t8245, t8249, t8253;
3806   double t8280, t8284, t8294, t8295, t8297, t8301, t8303, t8305;
3807   double t8308, t8328, t8331, t8334, t8339, t8340, t8342, t8345;
3808   double t8356, t8359, t8367, t8374, t8377, t8380, t8385, t8392;
3809   double t8393, t8396, t8397, t8398, t8401, t8402, t8405, t8406;
3810   double t8407, t8410, t8411, t8412, t8413, t8416, t8417, t8419;
3811   double t8420, t8423, t8424, t8425, t8428, t8430, t8433, t8441;
3812   double t8443, t8444, t8445, t8446, t8447, t8448, t8449, t8451;
3813   double t8452, t8455, t8456, t8458, t8459, t8461, t8462, t8464;
3814   double t8465, t8467, t8468, t8471, t8474, t8477, t8485, t8487;
3815   double t8495, t8498, t8506, t8509, t8513, t8514, t8522, t8524;
3816   double t8525, t8528, t8529, t8535, t8536, t8538, t8539, t8542;
3817   double t8543, t8551, t8552, t8553, t8556, t8557, t8558, t8561;
3818   double t8562, t8565, t8566, t8568, t8569, t8571, t8572, t8574;
3819   double t8579, t8581, t8582, t8583, t8586, t8587, t8590, t8591;
3820   double t8594, t8598, t8600, t8601, t8602, t8605, t8606, t8611;
3821   double t8613, t8616, t8617, t8622, t8623, t8625, t8626, t8627;
3822   double t8630, t8631, t8632, t8635, t8636, t8639, t8640, t8641;
3823   double t8642, t8643, t8646, t8647, t8651, t8652, t8653, t8656;
3824   double t8657, t8658, t8661, t8668, t8678, t8679, t8684, t8693;
3825   double t8698, t8703, t8706, t8711, t8714, t8717, t8718, t8719;
3826   double t8722, t8725, t8726, t8727, t8728, t8731, t8734, t8735;
3827   double t8736, t8746, t8747, t8748, t8749, t8750, t8753, t8754;
3828   double t8755, t8758, t8759, t8760, t8763, t8764, t8765, t8766;
3829   double t8767, t8770, t8771, t8777, t8778, t8781, t8782, t8783;
3830   double t8786, t8787, t8790, t8791, t8794, t8795, t8798, t8799;
3831   double t8800, t8805, t8807, t8809, t8810, t8813, t8816, t8817;
3832   double t8820, t8825, t8826, t8828, t8829, t8830, t8832, t8833;
3833   double t8836, t8837, t8840, t8841, t8844, t8847, t8849, t8862;
3834   double t8865, t8866, t8868, t8880, t8883, t8884, t8888, t8892;
3835   double t8896, t8900, t8927, t8931, t8941, t8942, t8944, t8959;
3836   double t8962, t8965, t8968, t8969, t8972, t8975, t8976, t8979;
3837   double t8982, t8984, t8992, t9000, t9007, t9010, t9012, t9018;
3838   double t9020, t9022, t9024, t9032, t9033, t9034, t9035, t9037;
3839   double t9038, t9039, t9040, t9042, t9043, t9044, t9045, t9047;
3840   double t9048, t9049, t9050, t9052, t9053, t9054, t9056, t9057;
3841   double t9058, t9060, t9061, t9062, t9063, t9065, t9066, t9067;
3842   double t9070, t9073, t9083, t9088, t9090, t9093, t9096, t9099;
3843   double t9104, t9107, t9110, t9113, t9124, t9125, t9127, t9132;
3844   double t9133, t9135, t9136, t9139, t9141, t9146, t9149, t9152;
3845   double t9153, t9155, t9156, t9157, t9159, t9160, t9163, t9164;
3846   double t9167, t9168, t9171, t9174, t9175, t9182, t9183, t9184;
3847   double t9185, t9186, t9189, t9191, t9193, t9198, t9207, t9217;
3848   double t9218, t9221, t9224, t9233, t9238, t9243, t9246, t9251;
3849   double t9254, t9257, t9258, t9259, t9262, t9265, t9266, t9267;
3850   double t9268, t9274, t9275, t9276, t9281, t9284, t9285, t9286;
3851   double t9289, t9290, t9293, t9295, t9296, t9297, t9300, t9302;
3852   double t9303, t9306, t9307, t9308, t9311, t9313, t9314, t9315;
3853   double t9318, t9319, t9325, t9329, t9330, t9331, t9332, t9335;
3854   double t9336, t9338, t9339, t9341, t9342, t9343, t9346, t9347;
3855   double t9348, t9351, t9352, t9353, t9356, t9357, t9361, t9363;
3856   double t9364, t9365, t9369, t9370, t9373, t9374, t9377, t9378;
3857   double t9381, t9383, t9384, t9385, t9388, t9389, t9392, t9393;
3858   double t9396, t9397, t9402, t9403, t9405, t9406, t9409, t9410;
3859   double t9413, t9414, t9417, t9418, t9419, t9422, t9423, t9426;
3860   double t9428, t9429, t9431, t9432, t9434, t9435, t9436, t9439;
3861   double t9440, t9443, t9445, t9446, t9447, t9452, t9453, t9454;
3862   double t9458, t9460, t9461, t9463, t9475, t9478, t9479, t9483;
3863   double t9487, t9491, t9495, t9522, t9526, t9536, t9537, t9539;
3864   double t9551, t9554, t9557, t9560, t9561, t9564, t9567, t9568;
3865   double t9571, t9579, t9582, t9585, t9587, t9595, t9601, t9603;
3866   double t9604, t9605, t9611, t9613, t9617, t9631, t9634, t9637;
3867   double t9640, t9643, t9645, t9652, t9655, t9656, t9657, t9668;
3868   double t9671, t9676, t9679, t9680, t9683, t9688, t9691, t9702;
3869   double t9707, t9708, t9711, t9712, t9717, t9718, t9722, t9723;
3870   double t9732, t9733, t9736, t9737, t9740, t9741, t9744, t9745;
3871   double t9748, t9749, t9764, t9769, t9774, t9777, t9782, t9785;
3872   double t9788, t9789, t9792, t9795, t9796, t9802, t9804, t9805;
3873   double t9808, t9811, t9813, t9814, t9843, t9844, t9847, t9848;
3874   double t9849, t9854, t9859, t9866, t9869, t9871, t9872, t9873;
3875   double t9877, t9878, t9879, t9880, t9881, t9882, t9886, t9887;
3876   double t9892, t9897, t9902, t9908, t9910, t9911, t9912, t9913;
3877   double t9914, t9915, t9919, t9921, t9922, t9923, t9924, t9927;
3878   double t9928, t9929, t9930, t9931, t9932, t9933, t9934, t9938;
3879   double t9939, t9940, t9943, t9944, t9948, t9952, t9953, t9955;
3880   double t9956, t9957, t9958, t9959, t9960, t9961, t9962, t9963;
3881   double t9964, t9967, t9973, t9980, t9981, t9984, t9989, t9990;
3882   double t9993, t9998, t10003, t10008, t10013, t10014, t10017, t10018;
3883   double t10020, t10023, t10025, t10028, t10030, t10033, t10035, t10038;
3884   double t10040, t10042, t10045, t10047, t10051, t10055, t10059, t10063;
3885   double t10066, t10067, t10069, t10072, t10074, t10078, t10081, t10083;
3886   double t10086, t10090, t10094, t10097, t10099, t10101, t10102, t10106;
3887   double t10109, t10111, t10113, t10118, t10122, t10125, t10128, t10131;
3888   double t10135, t10140, t10143, t10145, t10147, t10150, t10152, t10156;
3889   double t10159, t10161, t10162, t10164, t10175, t10179, t10183, t10184;
3890   double t10187, t10200, t10213, t10230, t10235, t10236, t10238, t10242;
3891   double t10258, t10265, t10267, t10271, t10278, t10285, t10287, t10288;
3892   double t10289, t10290, t10292, t10293, t10294, t10295, t10297, t10298;
3893   double t10299, t10301, t10303, t10304, t10305, t10307, t10308, t10309;
3894   double t10311, t10313, t10314, t10315, t10316, t10318, t10319, t10320;
3895   double t10321, t10323, t10324, t10325, t10327, t10328, t10330, t10343;
3896   double t10346, t10349, t10355, t10359, t10376, t10385, t10388, t10390;
3897   double t10392, t10402, t10409, t10412, t10415, t10421, t10424, t10429;
3898   double t10432, t10437, t10440, t10443, t10446, t10448, t10449, t10452;
3899   double t10453, t10458, t10461, t10462, t10467, t10468, t10471, t10472;
3900   double t10473, t10476, t10477, t10480, t10481, t10485, t10486, t10492;
3901   double t10495, t10498, t10499, t10500, t10503, t10504, t10505, t10508;
3902   double t10509, t10512, t10513, t10514, t10515, t10518, t10519, t10522;
3903   double t10525, t10528, t10531, t10534, t10538, t10539, t10542, t10543;
3904   double t10546, t10547, t10550, t10551, t10554, t10555, t10560, t10562;
3905   double t10563, t10568, t10569, t10573, t10574, t10578, t10579, t10581;
3906   double t10582, t10585, t10586, t10595, t10600, t10605, t10610, t10615;
3907   double t10618, t10621, t10626, t10629, t10630, t10633, t10634, t10635;
3908   double t10636, t10640, t10641, t10644, t10645, t10648, t10649, t10652;
3909   double t10653, t10656, t10657, t10660, t10661, t10664, t10665, t10666;
3910   double t10667, t10672, t10673, t10679, t10680, t10682, t10683, t10686;
3911   double t10687, t10692, t10693, t10694, t10695, t10698, t10699, t10700;
3912   double t10703, t10704, t10707, t10708, t10711, t10712, t10715, t10716;
3913   double t10717, t10721, t10723, t10724, t10726, t10737, t10741, t10745;
3914   double t10746, t10749, t10762, t10775, t10792, t10797, t10798, t10800;
3915   double t10804, t10810, t10813, t10815, t10821, t10832, t10834, t10835;
3916   double t10836, t10837, t10839, t10840, t10841, t10842, t10844, t10845;
3917   double t10846, t10848, t10850, t10851, t10852, t10854, t10855, t10856;
3918   double t10858, t10860, t10861, t10862, t10863, t10865, t10866, t10867;
3919   double t10868, t10870, t10871, t10872, t10874, t10875, t10877, t10890;
3920   double t10893, t10896, t10902, t10905, t10912, t10914, t10916, t10932;
3921   double t10941, t10944, t10949, t10957, t10965, t10968, t10971, t10975;
3922   double t10978, t10981, t10984, t10990, t10993, t10995, t10996, t10999;
3923   double t11000, t11005, t11008, t11009, t11012, t11015, t11017, t11018;
3924   double t11020, t11021, t11026, t11027, t11029, t11030, t11032, t11034;
3925   double t11036, t11038, t11041, t11046, t11047, t11048, t11051, t11052;
3926   double t11053, t11056, t11058, t11059, t11068, t11071, t11074, t11077;
3927   double t11080, t11083, t11084, t11085, t11086, t11089, t11090, t11093;
3928   double t11094, t11097, t11098, t11099, t11102, t11103, t11106, t11107;
3929   double t11110, t11111, t11112, t11115, t11116, t11117, t11122, t11123;
3930   double t11125, t11127, t11130, t11135, t11136, t11138, t11139, t11142;
3931   double t11143, t11144, t11149, t11152, t11154, t11155, t11160, t11161;
3932   double t11170, t11175, t11180, t11185, t11190, t11193, t11196, t11201;
3933   double t11204, t11205, t11208, t11209, t11210, t11211, t11214, t11215;
3934   double t11217, t11219, t11220, t11222, t11223, t11224, t11227, t11228;
3935   double t11231, t11232, t11235, t11237, t11238, t11241, t11242, t11246;
3936   double t11247, t11249, t11250, t11252, t11253, t11260, t11263, t11264;
3937   double t11269, t11270, t11271, t11274, t11275, t11278, t11279, t11282;
3938   double t11283, t11286, t11291, t11292, t11295, t11296, t11299, t11302;
3939   double t11303, t11305, t11316, t11320, t11324, t11325, t11328, t11341;
3940   double t11354, t11371, t11376, t11377, t11379, t11383, t11389, t11392;
3941   double t11394, t11400, t11407, t11409, t11414, t11419, t11422, t11425;
3942   double t11430, t11431, t11434, t11437, t11448, t11455, t11458, t11459;
3943   double t11462, t11467, t11470, t11471, t11482, t11483, t11486, t11490;
3944   double t11491, t11497, t11505, t11506, t11507, t11510, t11516, t11518;
3945   double t11530, t11533, t11538, t11541, t11544, t11549, t11552, t11553;
3946   double t11560, t11563, t11566, t11567, t11570, t11575, t11582, t11583;
3947   double t11586, t11589, t11590, t11591, t11595, t11596, t11605, t11606;
3948   double t11609, t11612, t11613, t11616, t11617, t11624, t11629, t11632;
3949   double t11637, t11640, t11641, t11644, t11647, t11648, t11656, t11657;
3950   double t11658, t11660, t11661, t11662, t11664, t11665, t11666, t11668;
3951   double t11669, t11670, t11672, t11673, t11674, t11676, t11677, t11678;
3952   double t11680, t11681, t11691, t11692, t11695, t11698, t11701, t11704;
3953   double t11711, t11714, t11717, t11720, t11729, t11734, t11749, t11758;
3954   double t11759, t11760, t11763, t11766, t11771, t11772, t11775, t11776;
3955   double t11779, t11780, t11783, t11784, t11797, t11802, t11805, t11808;
3956   double t11811, t11814, t11815, t11816, t11817, t11822, t11823, t11824;
3957   double t11827, t11828, t11831, t11832, t11835, t11836, t11837, t11840;
3958   double t11841, t11844, t11845, t11846, t11847, t11850, t11851, t11854;
3959   double t11855, t11856, t11859, t11860, t11861, t11864, t11865, t11866;
3960   double t11869, t11870, t11879, t11880, t11884, t11885, t11889, t11892;
3961   double t11896, t11897, t11900, t11901, t11904, t11905, t11908, t11909;
3962   double t11912, t11913, t11914, t11922, t11923, t11927, t11960, t11961;
3963   double t11963, t11970, t11973, t11974, t11975, t11985, t11986, t11990;
3964   double t11993, t11996, t11997, t11998, t12012, t12014, t12015, t12016;
3965   double t12018, t12019, t12035, t12036, t12037, t12044, t12049, t12050;
3966   double t12053, t12055, t12059, t12062, t12064, t12067, t12069, t12072;
3967   double t12074, t12077, t12079, t12083, t12087, t12091, t12094, t12095;
3968   double t12097, t12098, t12099, t12100, t12101, t12102, t12103, t12104;
3969   double t12105, t12106, t12107, t12108, t12111, t12119, t12122, t12125;
3970   double t12128, t12129, t12131, t12134, t12136, t12139, t12140, t12142;
3971   double t12145, t12147, t12150, t12152, t12158, t12159, t12160, t12168;
3972   double t12169, t12173, t12206, t12207, t12209, t12219, t12220, t12225;
3973   double t12227, t12228, t12241, t12242, t12243, t12245, t12246, t12247;
3974   double t12249, t12250, t12251, t12253, t12254, t12255, t12257, t12258;
3975   double t12259, t12261, t12262, t12263, t12265, t12266, t12276, t12277;
3976   double t12280, t12283, t12294, t12299, t12302, t12307, t12326, t12331;
3977   double t12334, t12337, t12340, t12343, t12344, t12345, t12348, t12351;
3978   double t12356, t12363, t12364, t12371, t12376, t12377, t12378, t12379;
3979   double t12382, t12385, t12390, t12391, t12399, t12400, t12401, t12406;
3980   double t12407, t12420, t12425, t12428, t12431, t12434, t12437, t12438;
3981   double t12439, t12440, t12447, t12448, t12449, t12453, t12455, t12456;
3982   double t12459, t12460, t12463, t12464, t12472, t12474, t12476, t12479;
3983   double t12480, t12485, t12486, t12489, t12490, t12493, t12494, t12497;
3984   double t12498, t12501, t12502, t12503, t12506, t12510, t12511, t12514;
3985   double t12515, t12518, t12519, t12520, t12523, t12524, t12535, t12536;
3986   double t12539, t12540, t12543, t12545, t12546, t12554, t12555, t12559;
3987   double t12592, t12593, t12595, t12602, t12605, t12606, t12615, t12621;
3988   double t12628, t12629, t12632, t12641, t12656, t12657, t12661, t12662;
3989   double t12665, t12668, t12671, t12678, t12681, t12684, t12692, t12695;
3990   double t12704, t12707, t12718, t12723, t12724, t12730, t12738, t12741;
3991   double t12744, t12747, t12749, t12751, t12753, t12754, t12757, t12758;
3992   double t12761, t12764, t12765, t12768, t12771, t12772, t12773, t12776;
3993   double t12777, t12780, t12781, t12782, t12785, t12788, t12791, t12792;
3994   double t12793, t12794, t12798, t12799, t12802, t12805, t12806, t12808;
3995   double t12812, t12813, t12821, t12824, t12830, t12832, t12835, t12840;
3996   double t12843, t12846, t12851, t12854, t12858, t12859, t12860, t12862;
3997   double t12868, t12869, t12871, t12878, t12880, t12883, t12884, t12885;
3998   double t12887, t12888, t12892, t12896, t12899, t12900, t12902, t12906;
3999   double t12907, t12912, t12915, t12918, t12920, t12924, t12927, t12934;
4000   double t12937, t12938, t12941, t12944, t12947, t12949, t12950, t12951;
4001   double t12952, t12953, t12954, t12955, t12957, t12959, t12961, t12962;
4002   double t12965, t12966, t12967, t12969, t12970, t12972, t12974, t12976;
4003   double t12977, t12979, t12980, t12981, t12982, t12984, t12986, t12987;
4004   double t12989, t12995, t12996, t12998, t13005, t13007, t13010, t13011;
4005   double t13012, t13014, t13015, t13019, t13023, t13026, t13027, t13028;
4006   double t13029, t13033, t13034, t13038, t13039, t13041, t13042, t13045;
4007   double t13047, t13048, t13049, t13050, t13051, t13052, t13055, t13056;
4008   double t13059, t13061, t13062, t13068, t13074, t13079, t13080, t13082;
4009   double t13085, t13088, t13091, t13092, t13093, t13096, t13097, t13101;
4010   double t13102, t13104, t13105, t13106, t13107, t13109, t13110, t13111;
4011   double t13114, t13115, t13123, t13124, t13125, t13127, t13129, t13130;
4012   double t13131, t13133, t13134, t13137, t13138, t13139, t13141, t13143;
4013   double t13144, t13145, t13146, t13147, t13148, t13149, t13150, t13152;
4014   double t13155, t13156, t13158, t13159, t13160, t13161, t13164, t13167;
4015   double t13171, t13173, t13174, t13175, t13180, t13182, t13185, t13186;
4016   double t13188, t13189, t13191, t13193, t13194, t13195, t13196, t13201;
4017   double t13205, t13208, t13210, t13214, t13215, t13216, t13222, t13223;
4018   double t13229, t13230, t13232, t13233, t13235, t13236, t13238, t13240;
4019   double t13241, t13243, t13244, t13245, t13246, t13248, t13251, t13252;
4020   double t13253, t13256, t13257, t13260, t13263, t13266, t13269, t13272;
4021   double t13273, t13276, t13277, t13280, t13281, t13284, t13287, t13288;
4022   double t13291, t13292, t13294, t13296, t13298, t13299, t13301, t13302;
4023   double t13304, t13306, t13307, t13308, t13311, t13314, t13321, t13322;
4024   double t13329, t13330, t13333, t13336, t13337, t13340, t13341, t13343;
4025   double t13344, t13345, t13347, t13349, t13350, t13353, t13355, t13356;
4026   double t13361, t13363, t13368, t13377, t13379, t13381, t13382, t13384;
4027   double t13385, t13387, t13388, t13390, t13391, t13393, t13394, t13396;
4028   double t13398, t13401, t13402, t13409, t13412, t13415, t13418, t13419;
4029   double t13420, t13424, t13427, t13430, t13435, t13436, t13445, t13448;
4030   double t13453, t13454, t13456, t13459, t13460, t13463, t13466, t13469;
4031   double t13478, t13482, t13483, t13485, t13499, t13502, t13503, t13507;
4032   double t13511, t13514, t13516, t13520, t13521, t13526, t13529, t13532;
4033   double t13534, t13535, t13536, t13537, t13538, t13539, t13542, t13543;
4034   double t13546, t13548, t13549, t13555, t13561, t13563, t13565, t13575;
4035   double t13580, t13585, t13588, t13592, t13593, t13595, t13604, t13605;
4036   double t13612, t13617, t13618, t13625, t13626, t13628, t13629, t13636;
4037   double t13638, t13639, t13640, t13642, t13645, t13656, t13659, t13662;
4038   double t13663, t13672, t13675, t13678, t13681, t13682, t13684, t13685;
4039   double t13687, t13692, t13697, t13700, t13703, t13704, t13716, t13717;
4040   double t13719, t13724, t13726, t13727, t13729, t13736, t13739, t13742;
4041   double t13745, t13746, t13748, t13749, t13755, t13757, t13758, t13763;
4042   double t13765, t13770, t13784, t13787, t13790, t13793, t13796, t13798;
4043   double t13800, t13808, t13811, t13814, t13817, t13818, t13820, t13822;
4044   double t13823, t13824, t13833, t13836, t13845, t13850, t13851, t13854;
4045   double t13855, t13862, t13867, t13869, t13870, t13875, t13876, t13879;
4046   double t13882, t13889, t13892, t13895, t13904, t13907, t13910, t13915;
4047   double t13918, t13921, t13926, t13929, t13930, t13933, t13942, t13943;
4048   double t13946, t13949, t13960, t13961, t13969, t13976, t13977, t13985;
4049   double t13987, t13990, t13993, t13994, t14002, t14003, t14011, t14012;
4050   double t14014, t14020, t14021, t14023, t14030, t14032, t14035, t14036;
4051   double t14037, t14039, t14040, t14044, t14048, t14051, t14052, t14054;
4052   double t14058, t14059, t14064, t14067, t14070, t14072, t14076, t14079;
4053   double t14086, t14092, t14094, t14096, t14097, t14102, t14104, t14109;
4054   double t14117, t14119, t14120, t14122, t14123, t14125, t14127, t14131;
4055   double t14133, t14134, t14136, t14139, t14140, t14142, t14144, t14146;
4056   double t14147, t14149, t14151, t14152, t14155, t14156, t14159, t14162;
4057   double t14163, t14164, t14177, t14179, t14180, t14181, t14184, t14193;
4058   double t14197, t14209, t14217, t14218, t14219, t14221, t14227, t14228;
4059   double t14230, t14238, t14242, t14243, t14246, t14247, t14248, t14251;
4060   double t14252, t14256, t14257, t14260, t14261, t14262, t14263, t14264;
4061   double t14268, t14269, t14273, t14275, t14276, t14280, t14284, t14285;
4062   double t14288, t14290, t14291, t14295, t14302, t14303, t14309, t14312;
4063   double t14315, t14318, t14321, t14322, t14326, t14328, t14329, t14330;
4064   double t14331, t14333, t14336, t14337, t14339, t14341, t14343, t14345;
4065   double t14349, t14351, t14353, t14355, t14357, t14358, t14360, t14366;
4066   double t14367, t14369, t14376, t14377, t14381, t14382, t14385, t14386;
4067   double t14387, t14390, t14391, t14395, t14396, t14399, t14400, t14401;
4068   double t14402, t14403, t14407, t14408, t14411, t14412, t14414, t14415;
4069   double t14419, t14423, t14424, t14427, t14429, t14430, t14431, t14432;
4070   double t14433, t14434, t14435, t14437, t14438, t14441, t14443, t14444;
4071   double t14447, t14449, t14450, t14457, t14459, t14466, t14468, t14471;
4072   double t14473, t14475, t14476, t14477, t14478, t14482, t14483, t14484;
4073   double t14486, t14487, t14489, t14490, t14492, t14493, t14494, t14495;
4074   double t14497, t14499, t14500, t14501, t14502, t14503, t14507, t14510;
4075   double t14512, t14515, t14517, t14519, t14521, t14522, t14524, t14525;
4076   double t14527, t14528, t14530, t14531, t14533, t14534, t14537, t14542;
4077   double t14545, t14548, t14549, t14560, t14562, t14563, t14567, t14568;
4078   double t14569, t14572, t14579, t14582, t14583, t14586, t14587, t14589;
4079   double t14590, t14593, t14595, t14597, t14599, t14601, t14602, t14604;
4080   double t14605, t14607, t14608, t14610, t14611, t14613, t14614, t14617;
4081   double t14618, t14623, t14624, t14629, t14630, t14633, t14634, t14637;
4082   double t14638, t14641, t14644, t14645, t14648, t14651, t14654, t14655;
4083   double t14658, t14659, t14662, t14669, t14672, t14673, t14676, t14678;
4084   double t14680, t14682, t14683, t14686, t14689, t14692, t14699, t14700;
4085   double t14702, t14703, t14704, t14705, t14706, t14709, t14710, t14713;
4086   double t14714, t14715, t14718, t14719, t14720, t14725, t14728, t14729;
4087   double t14732, t14733, t14736, t14743, t14749, t14755, t14757, t14758;
4088   double t14760, t14761, t14762, t14763, t14766, t14771, t14774, t14775;
4089   double t14778, t14780, t14782, t14783, t14785, t14786, t14790, t14791;
4090   double t14793, t14794, t14798, t14801, t14802, t14803, t14806, t14807;
4091   double t14810, t14811, t14812, t14813, t14815, t14817, t14819, t14820;
4092   double t14821, t14823, t14824, t14827, t14830, t14832, t14835, t14838;
4093   double t14839, t14841, t14844, t14847, t14848, t14851, t14854, t14855;
4094   double t14858, t14863, t14864, t14867, t14870, t14871, t14874, t14877;
4095   double t14880, t14882, t14893, t14895, t14897, t14899, t14900, t14902;
4096   double t14903, t14905, t14906, t14908, t14910, t14911, t14913, t14914;
4097   double t14916, t14917, t14919, t14920, t14927, t14929, t14943, t14966;
4098   double t14967, t14970, t14972, t14975, t14978, t14992, t14995, t14996;
4099   double t15001, t15011, t15014, t15015, t15022, t15025, t15028, t15031;
4100   double t15045, t15052, t15055, t15056, t15058, t15061, t15068, t15071;
4101   double t15080, t15083, t15088, t15095, t15096, t15098, t15099, t15108;
4102   double t15119, t15135, t15138, t15139, t15141, t15143, t15149, t15152;
4103   double t15153, t15159, t15160, t15163, t15166, t15169, t15172, t15176;
4104   double t15177, t15182, t15185, t15190, t15192, t15194, t15195, t15198;
4105   double t15203, t15206, t15207, t15210, t15214, t15219, t15222, t15223;
4106   double t15225, t15239, t15242, t15245, t15246, t15247, t15250, t15251;
4107   double t15255, t15258, t15259, t15263, t15264, t15268, t15270, t15274;
4108   double t15278, t15279, t15282, t15284, t15285, t15286, t15287, t15288;
4109   double t15289, t15290, t15294, t15298, t15300, t15301, t15308, t15310;
4110   double t15317, t15319, t15323, t15326, t15334, t15341, t15343, t15346;
4111   double t15348, t15354, t15355, t15356, t15367, t15374, t15376, t15378;
4112   double t15382, t15384, t15385, t15388, t15389, t15397, t15400, t15401;
4113   double t15404, t15407, t15410, t15412, t15430, t15433, t15436, t15441;
4114   double t15444, t15447, t15449, t15452, t15455, t15458, t15461, t15472;
4115   double t15475, t15476, t15479, t15480, t15482, t15483, t15487, t15488;
4116   double t15489, t15495, t15500, t15503, t15506, t15508, t15515, t15516;
4117   double t15523, t15530, t15535, t15538, t15541, t15550, t15553, t15556;
4118   double t15563, t15566, t15568, t15571, t15578, t15587, t15588, t15590;
4119   double t15594, t15596, t15598, t15601, t15605, t15609, t15610, t15629;
4120   double t15634, t15637, t15638, t15641, t15642, t15651, t15655, t15659;
4121   double t15675, t15682, t15683, t15686, t15699, t15702, t15709, t15711;
4122   double t15713, t15717, t15719, t15720, t15723, t15730, t15736, t15740;
4123   double t15743, t15746, t15753, t15761, t15762, t15763, t15765, t15771;
4124   double t15772, t15774, t15782, t15786, t15787, t15790, t15791, t15792;
4125   double t15795, t15796, t15800, t15801, t15804, t15805, t15806, t15807;
4126   double t15808, t15812, t15813, t15817, t15819, t15820, t15824, t15828;
4127   double t15829, t15832, t15834, t15835, t15839, t15846, t15847, t15853;
4128   double t15860, t15862, t15864, t15867, t15868, t15871, t15874, t15877;
4129   double t15879, t15889, t15895, t15896, t15899, t15900, t15909, t15912;
4130   double t15913, t15916, t15918, t15921, t15922, t15924, t15925, t15928;
4131   double t15931, t15938, t15939, t15942, t15943, t15945, t15947, t15948;
4132   double t15949, t15957, t15960, t15962, t15964, t15967, t15970, t15971;
4133   double t15972, t15975, t15976, t15979, t15980, t15983, t15984, t15993;
4134   double t15996, t15998, t16000, t16002, t16003, t16005, t16010, t16011;
4135   double t16013, t16015, t16016, t16018, t16020, t16021, t16022, t16024;
4136   double t16026, t16027, t16028, t16030, t16031, t16033, t16034, t16036;
4137   double t16038, t16040, t16042, t16044, t16046, t16048, t16050, t16051;
4138   double t16058, t16059, t16067, t16068, t16072, t16073, t16076, t16077;
4139   double t16080, t16081, t16084, t16085, t16086, t16090, t16091, t16095;
4140   double t16096, t16098, t16099, t16102, t16104, t16105, t16106, t16107;
4141   double t16108, t16112, t16113, t16118, t16119, t16122, t16127, t16130;
4142   double t16131, t16134, t16135, t16140, t16143, t16144, t16147, t16148;
4143   double t16151, t16152, t16156, t16157, t16159, t16160, t16162, t16163;
4144   double t16165, t16167, t16169, t16176, t16178, t16179, t16181, t16182;
4145   double t16184, t16186, t16189, t16191, t16192, t16194, t16195, t16198;
4146   double t16205, t16206, t16213, t16214, t16217, t16220, t16221, t16224;
4147   double t16225, t16228, t16229, t16232, t16233, t16235, t16236, t16238;
4148   double t16240, t16241, t16242, t16244, t16245, t16246, t16247, t16249;
4149   double t16275, t16276, t16283, t16284, t16292, t16293, t16297, t16298;
4150   double t16301, t16302, t16305, t16306, t16309, t16311, t16315, t16316;
4151   double t16321, t16324, t16327, t16329, t16341, t16344, t16349, t16352;
4152   double t16353, t16356, t16359, t16361, t16362, t16368, t16374, t16376;
4153   double t16378, t16379, t16389, t16398, t16400, t16402, t16403, t16405;
4154   double t16406, t16408, t16409, t16411, t16412, t16414, t16415, t16438;
4155   double t16441, t16448, t16449, t16450, t16474, t16475, t16489, t16490;
4156   double t16493, t16496, t16497, t16500, t16501, t16504, t16506, t16510;
4157   double t16511, t16516, t16519, t16522, t16524, t16525, t16526, t16528;
4158   double t16533, t16538, t16541, t16550, t16553, t16556, t16563, t16564;
4159   double t16570, t16573, t16590, t16593, t16600, t16605, t16608, t16609;
4160   double t16611, t16617, t16619, t16624, t16629, t16641, t16654, t16658;
4161   double t16659, t16662, t16667, t16670, t16671, t16674, t16677, t16679;
4162   double t16680, t16686, t16692, t16703, t16706, t16709, t16716, t16719;
4163   double t16723, t16728, t16730, t16731, t16741, t16755, t16758, t16761;
4164   double t16764, t16767, t16771, t16776, t16777, t16780, t16781, t16800;
4165   double t16803, t16806, t16807, t16826, t16837, t16838, t16843, t16852;
4166   double t16872, t16873, t16874, t16881, t16882, t16890, t16891, t16895;
4167   double t16896, t16899, t16900, t16903, t16904, t16907, t16909, t16913;
4168   double t16914, t16919, t16922, t16925, t16927, t16939, t16945, t16949;
4169   double t16951, t16971, t16974, t16977, t16982, t16985, t16988, t16991;
4170   double t17002, t17009, t17011, t17013, t17015, t17016, t17017, t17020;
4171   double t17023, t17030, t17031, t17033, t17042, t17043, t17051, t17053;
4172   double t17054, t17064, t17072, t17074, t17076, t17080, t17083, t17084;
4173   double t17087, t17088, t17091, t17094, t17097, t17098, t17101, t17106;
4174   double t17109, t17112, t17113, t17116, t17119, t17120, t17124, t17125;
4175   double t17126, t17128, t17130, t17131, t17133, t17134, t17137, t17140;
4176   double t17141, t17144, t17148, t17153, t17154, t17157, t17160, t17161;
4177   double t17162, t17163, t17166, t17177, t17190, t17191, t17192, t17197;
4178   double t17199, t17204, t17218, t17221, t17224, t17227, t17230, t17232;
4179   double t17234, t17236, t17237, t17242, t17245, t17248, t17252, t17253;
4180   double t17255, t17257, t17260, t17261, t17264, t17267, t17268, t17271;
4181   double t17275, t17276, t17281, t17292, t17293, t17296, t17297, t17298;
4182   double t17301, t17310, t17311, t17314, t17323, t17328, t17329, t17332;
4183   double t17333, t17334, t17339, t17341, t17346, t17360, t17363, t17366;
4184   double t17369, t17372, t17374, t17383, t17391, t17393, t17396, t17399;
4185   double t17400, t17403, t17406, t17408, t17409, t17414, t17417, t17418;
4186   double t17421, t17422, t17423, t17426, t17438, t17441, t17444, t17447;
4187   double t17448, t17451, t17452, t17457, t17460, t17461, t17464, t17465;
4188   double t17468, t17470, t17471, t17480, t17485, t17486, t17489, t17499;
4189   double t17502, t17509, t17512, t17515, t17518, t17525, t17527, t17528;
4190   double t17531, t17534, t17537, t17539, t17557, t17560, t17563, t17568;
4191   double t17571, t17574, t17576, t17581, t17588, t17593, t17594, t17599;
4192   double t17603, t17608, t17611, t17614, t17615, t17618, t17619, t17630;
4193   double t17633, t17638, t17639, t17641, t17645, t17647, t17650, t17651;
4194   double t17654, t17657, t17659, t17664, t17666, t17667, t17670, t17673;
4195   double t17676, t17677, t17678, t17679, t17681, t17685, t17689, t17696;
4196   double t17707, t17710, t17711, t17716, t17718, t17719, t17722, t17725;
4197   double t17728, t17730, t17748, t17751, t17754, t17759, t17762, t17765;
4198   double t17769, t17774, t17777, t17778, t17781, t17784, t17787, t17791;
4199   double t17792, t17793, t17796, t17797, t17800, t17801, t17810, t17821;
4200   double t17824, t17831, t17836, t17839, t17844, t17847, t17850, t17855;
4201   double t17858, t17859, t17860, t17870, t17884, t17887, t17890, t17893;
4202   double t17896, t17900, t17909, t17910, t17913, t17914, t17917, t17925;
4203   double t17928, t17931, t17932, t17935, t17939, t17944, t17947, t17950;
4204   double t17951, t17952, t17957, t17960, t17963, t17966, t17967, t17978;
4205   double t17979, t17982, t17991, t17994, t17999, t18000, t18001, t18011;
4206   double t18025, t18028, t18031, t18034, t18037, t18039, t18040, t18044;
4207   double t18048, t18049, t18050, t18051, t18054, t18055, t18056, t18057;
4208   double t18060, t18063, t18064, t18065, t18067, t18069, t18071, t18072;
4209   double t18074, t18075, t18076, t18078, t18079, t18080, t18082, t18083;
4210   double t18086, t18088, t18089, t18090, t18091, t18094, t18095, t18096;
4211   double t18097, t18098, t18099, t18100, t18101, t18103, t18104, t18105;
4212   double t18107, t18108, t18109, t18110, t18111, t18112, t18114, t18115;
4213   double t18119, t18120, t18123, t18125, t18126, t18128, t18130, t18131;
4214   double t18133, t18134, t18137, t18139, t18142, t18143, t18146, t18147;
4215   double t18150, t18152, t18155, t18157, t18158, t18162, t18165, t18166;
4216   double t18168, t18169, t18170, t18171, t18172, t18173, t18175, t18176;
4217   double t18177, t18178, t18180, t18181, t18182, t18184, t18185, t18186;
4218   double t18188, t18189, t18190, t18191, t18192, t18194, t18195, t18197;
4219   double t18198, t18199, t18201, t18202, t18203, t18205, t18206, t18207;
4220   double t18210, t18211, t18212, t18215, t18218, t18219, t18220, t18222;
4221   double t18223, t18224, t18225, t18226, t18227, t18228, t18229, t18232;
4222   double t18234, t18237, t18239, t18241, t18242, t18243, t18244, t18248;
4223   double t18249, t18252, t18253, t18256, t18261, t18265, t18266, t18269;
4224   double t18270, t18272, t18275, t18278, t18281, t18283, t18286, t18289;
4225   double t18290, t18291, t18292, t18293, t18296, t18297, t18298, t18299;
4226   double t18300, t18303, t18304, t18307, t18308, t18310, t18311, t18312;
4227   double t18313, t18316, t18320, t18326, t18330, t18331, t18334, t18335;
4228   double t18336, t18338, t18339, t18342, t18345, t18346, t18349, t18350;
4229   double t18353, t18354, t18355, t18357, t18359, t18362, t18363, t18364;
4230   double t18367, t18368, t18369, t18370, t18373, t18374, t18377, t18378;
4231   double t18379, t18382, t18383, t18386, t18388, t18390, t18391, t18393;
4232   double t18395, t18397, t18398, t18400, t18401, t18402, t18404, t18405;
4233   double t18406, t18409, t18410, t18412, t18413, t18415, t18416, t18417;
4234   double t18418, t18419, t18420, t18421, t18422, t18423, t18424, t18426;
4235   double t18428, t18430, t18431, t18433, t18435, t18436, t18437, t18439;
4236   double t18440, t18442, t18443, t18445, t18448, t18455, t18456, t18460;
4237   double t18463, t18465, t18469, t18470, t18472, t18474, t18475, t18479;
4238   double t18484, t18486, t18490, t18492, t18494, t18497, t18498, t18500;
4239   double t18501, t18503, t18504, t18505, t18506, t18507, t18508, t18509;
4240   double t18511, t18513, t18515, t18516, t18518, t18520, t18521, t18522;
4241   double t18524, t18527, t18530, t18531, t18534, t18535, t18538, t18539;
4242   double t18542, t18543, t18544, t18545, t18546, t18549, t18550, t18551;
4243   double t18552, t18555, t18556, t18557, t18560, t18561, t18562, t18565;
4244   double t18568, t18569, t18570, t18574, t18577, t18578, t18581, t18588;
4245   double t18592, t18595, t18596, t18597, t18600, t18601, t18604, t18605;
4246   double t18611, t18613, t18614, t18615, t18616, t18617, t18618, t18622;
4247   double t18624, t18625, t18628, t18630, t18631, t18634, t18638, t18639;
4248   double t18640, t18642, t18645, t18646, t18650, t18651, t18653, t18654;
4249   double t18656, t18657, t18659, t18660, t18661, t18663, t18668, t18670;
4250   double t18672, t18674, t18676, t18678, t18679, t18681, t18683, t18690;
4251   double t18695, t18697, t18700, t18701, t18702, t18704, t18705, t18707;
4252   double t18715, t18718, t18719, t18722, t18723, t18724, t18727, t18728;
4253   double t18729, t18732, t18733, t18734, t18738, t18739, t18740, t18741;
4254   double t18742, t18744, t18745, t18746, t18753, t18754, t18758, t18762;
4255   double t18765, t18768, t18769, t18772, t18773, t18774, t18775, t18776;
4256   double t18781, t18785, t18787, t18789, t18790, t18792, t18793, t18795;
4257   double t18796, t18799, t18800, t18802, t18803, t18805, t18806, t18809;
4258   double t18812, t18813, t18816, t18819, t18822, t18823, t18825, t18828;
4259   double t18829, t18830, t18833, t18834, t18835, t18836, t18840, t18842;
4260   double t18843, t18845, t18846, t18848, t18849, t18851, t18852, t18853;
4261   double t18856, t18858, t18859, t18862, t18865, t18868, t18870, t18875;
4262   double t18877, t18879, t18887, t18888, t18890, t18891, t18893, t18894;
4263   double t18896, t18897, t18899, t18902, t18904, t18906, t18908, t18910;
4264   double t18912, t18918, t18919, t18920, t18923, t18924, t18925, t18934;
4265   double t18935, t18940, t18944, t18945, t18948, t18953, t18956, t18957;
4266   double t18964, t18965, t18967, t18969, t18978, t18979, t18980, t18983;
4267   double t18989, t18992, t18993, t18996, t18999, t19001, t19003, t19005;
4268   double t19006, t19008, t19009, t19011, t19012, t19017, t19022, t19023;
4269   double t19026, t19027, t19030, t19033, t19036, t19040, t19041, t19043;
4270   double t19044, t19046, t19047, t19049, t19055, t19056, t19058, t19066;
4271   double t19067, t19068, t19070, t19073, t19075, t19076, t19079, t19082;
4272   double t19085, t19087, t19091, t19093, t19095, t19100, t19102, t19113;
4273   double t19114, t19118, t19119, t19122, t19127, t19131, t19134, t19142;
4274   double t19143, t19144, t19146, t19147, t19148, t19153, t19154, t19162;
4275   double t19165, t19168, t19171, t19172, t19174, t19175, t19180, t19182;
4276   double t19189, t19191, t19192, t19193, t19196, t19197, t19202, t19205;
4277   double t19208, t19215, t19219, t19222, t19226, t19234, t19241, t19247;
4278   double t19252, t19256, t19262, t19264, t19265, t19266, t19268, t19271;
4279   double t19272, t19275, t19276, t19277, t19279, t19280, t19283, t19286;
4280   double t19287, t19290, t19291, t19294, t19298, t19300, t19301, t19309;
4281   double t19315, t19318, t19324, t19326, t19327, t19331, t19336, t19338;
4282   double t19350, t19353, t19356, t19358, t19359, t19360, t19361, t19364;
4283   double t19365, t19368, t19369, t19372, t19373, t19384, t19385, t19397;
4284   double t19398, t19411, t19420, t19423, t19426, t19429, t19430, t19431;
4285   double t19432, t19436, t19439, t19440, t19443, t19444, t19445, t19450;
4286   double t19451, t19453, t19454, t19455, t19463, t19464, t19466, t19475;
4287   double t19478, t19482, t19497, t19500, t19502, t19503, t19506, t19509;
4288   double t19512, t19514, t19524, t19526, t19527, t19528, t19531, t19532;
4289   double t19549, t19560, t19564, t19565, t19570, t19573, t19580, t19582;
4290   double t19589, t19590, t19591, t19592, t19593, t19594, t19597, t19599;
4291   double t19601, t19602, t19603, t19604, t19608, t19609, t19612, t19613;
4292   double t19616, t19621, t19625, t19626, t19629, t19630, t19632, t19635;
4293   double t19638, t19641, t19643, t19646, t19649, t19650, t19651, t19652;
4294   double t19653, t19656, t19657, t19658, t19659, t19662, t19663, t19665;
4295   double t19666, t19667, t19668, t19671, t19675, t19681, t19685, t19689;
4296   double t19693, t19696, t19699, t19702, t19703, t19706, t19716, t19718;
4297   double t19720, t19721, t19725, t19730, t19732, t19739, t19741, t19744;
4298   double t19745, t19747, t19748, t19749, t19750, t19751, t19752, t19753;
4299   double t19754, t19755, t19758, t19759, t19762, t19765, t19768, t19770;
4300   double t19771, t19772, t19773, t19775, t19777, t19778, t19779, t19781;
4301   double t19783, t19784, t19786, t19787, t19790, t19792, t19794, t19796;
4302   double t19797, t19799, t19800, t19801, t19803, t19804, t19805, t19808;
4303   double t19810, t19811, t19814, t19815, t19818, t19819, t19820, t19832;
4304   double t19833, t19836, t19837, t19842, t19845, t19846, t19849, t19852;
4305   double t19853, t19854, t19857, t19860, t19863, t19875, t19879, t19880;
4306   double t19883, t19884, t19887, t19888, t19893, t19896, t19899, t19900;
4307   double t19903, t19904, t19908, t19909, t19912, t19913, t19916, t19917;
4308   double t19919, t19920, t19921, t19922, t19924, t19926, t19927, t19928;
4309   double t19930, t19931, t19932, t19933, t19934, t19936, t19939, t19942;
4310   double t19945, t19946, t19949, t19950, t19951, t19953, t19955, t19958;
4311   double t19959, t19961, t19962, t19965, t19966, t19969, t19970, t19973;
4312   double t19974, t19977, t19978, t19981, t19982, t19985, t19988, t19989;
4313   double t19991, t19992, t19993, t19995, t19997, t19998, t20000, t20001;
4314   double t20002, t20004, t20005, t20006, t20009, t20010, t20012, t20013;
4315   double t20015, t20016, t20017, t20018, t20019, t20020, t20021, t20022;
4316   double t20023, t20024, t20027, t20029, t20030, t20033, t20035, t20037;
4317   double t20038, t20041, t20046, t20051, t20053, t20054, t20056, t20057;
4318   double t20058, t20062, t20065, t20066, t20067, t20069, t20070, t20071;
4319   double t20074, t20075, t20076, t20078, t20079, t20082, t20084, t20085;
4320   double t20093, t20097, t20099, t20101, t20104, t20105, t20107, t20108;
4321   double t20110, t20111, t20112, t20113, t20114, t20115, t20116, t20118;
4322   double t20119, t20122, t20123, t20132, t20135, t20136, t20139, t20140;
4323   double t20144, t20146, t20148, t20153, t20154, t20158, t20161, t20162;
4324   double t20165, t20166, t20170, t20171, t20173, t20175, t20176, t20178;
4325   double t20179, t20180, t20182, t20187, t20191, t20193, t20195, t20196;
4326   double t20198, t20199, t20201, t20202, t20205, t20208, t20211, t20214;
4327   double t20217, t20220, t20221, t20224, t20225, t20226, t20229, t20230;
4328   double t20231, t20234, t20235, t20238, t20239, t20242, t20243, t20256;
4329   double t20258, t20259, t20261, t20266, t20269, t20270, t20272, t20273;
4330   double t20275, t20276, t20278, t20281, t20283, t20284, t20286, t20288;
4331   double t20289, t20290, t20292, t20294, t20295, t20296, t20297, t20298;
4332   double t20302, t20305, t20309, t20310, t20319, t20323, t20326, t20329;
4333   double t20330, t20333, t20334, t20341, t20342, t20343, t20344, t20345;
4334   double t20348, t20349, t20352, t20353, t20356, t20357, t20358, t20361;
4335   double t20362, t20366, t20370, t20372, t20373, t20376, t20380, t20381;
4336   double t20391, t20393, t20395, t20396, t20397, t20398, t20399, t20400;
4337   double t20404, t20406, t20408, t20409, t20411, t20412, t20414, t20415;
4338   double t20418, t20419, t20421, t20422, t20430, t20435, t20437, t20439;
4339   double t20447, t20448, t20450, t20451, t20453, t20454, t20456, t20457;
4340   double t20459, t20462, t20468, t20472, t20473, t20479, t20480, t20485;
4341   double t20486, t20488, t20490, t20492, t20494, t20496, t20504, t20505;
4342   double t20506, t20508, t20518, t20519, t20522, t20525, t20528, t20531;
4343   double t20532, t20546, t20549, t20550, t20551, t20553, t20554, t20560;
4344   double t20561, t20562, t20564, t20565, t20567, t20583, t20587, t20588;
4345   double t20591, t20594, t20596, t20598, t20600, t20601, t20603, t20604;
4346   double t20606, t20607, t20609, t20617, t20618, t20621, t20623, t20624;
4347   double t20632, t20636, t20638, t20640, t20645, t20651, t20668, t20669;
4348   double t20674, t20677, t20678, t20685, t20686, t20687, t20691, t20712;
4349   double t20719, t20733, t20735, t20738, t20741, t20742, t20745, t20746;
4350   double t20748, t20751, t20754, t20757, t20758, t20761, t20765, t20770;
4351   double t20773, t20780, t20783, t20786, t20789, t20795, t20802, t20803;
4352   double t20806, t20807, t20812, t20815, t20818, t20820, t20825, t20828;
4353   double t20835, t20837, t20838, t20846, t20858, t20861, t20864, t20872;
4354   double t20873, t20876, t20877, t20880, t20881, t20884, t20885, t20893;
4355   double t20910, t20911, t20915, t20918, t20919, t20922, t20923, t20926;
4356   double t20929, t20938, t20941, t20944, t20947, t20948, t20956, t20958;
4357   double t20959, t20982, t20985, t20991, t20994, t20996, t20997, t21005;
4358   double t21015, t21027, t21028, t21031, t21042, t21052, t21059, t21060;
4359   double t21063, t21065, t21068, t21069, t21072, t21073, t21074, t21086;
4360   double t21087, t21090, t21091, t21096, t21099, t21100, t21103, t21106;
4361   double t21107, t21108, t21111, t21114, t21115, t21118, t21121, t21133;
4362   double t21137, t21140, t21145, t21149, t21152, t21155, t21158, t21159;
4363   double t21162, t21172, t21180, t21182, t21183, t21191, t21198, t21200;
4364   double t21201, t21203, t21204, t21206, t21207, t21209, t21210, t21211;
4365   double t21214, t21215, t21217, t21218, t21221, t21222, t21225, t21228;
4366   double t21235, t21238, t21239, t21241, t21243, t21244, t21245, t21247;
4367   double t21248, t21250, t21251, t21254, t21257, t21259, t21261, t21263;
4368   double t21265, t21267, t21268, t21271, t21272, t21274, t21279, t21282;
4369   double t21286, t21287, t21288, t21291, t21292, t21295, t21296, t21301;
4370   double t21306, t21307, t21308, t21310, t21312, t21315, t21316, t21318;
4371   double t21319, t21320, t21322, t21323, t21324, t21325, t21327, t21329;
4372   double t21330, t21332, t21333, t21335, t21337, t21338, t21339, t21341;
4373   double t21343, t21344, t21345, t21347, t21349, t21350, t21353, t21356;
4374   double t21359, t21361, t21366, t21368, t21370, t21378, t21379, t21381;
4375   double t21382, t21384, t21385, t21387, t21389, t21390, t21392, t21393;
4376   double t21395, t21396, t21398, t21402, t21404, t21405, t21407, t21408;
4377   double t21410, t21412, t21414, t21418, t21422, t21423, t21425, t21426;
4378   double t21428, t21430, t21431, t21434, t21435, t21438, t21440, t21441;
4379   double t21443, t21445, t21447, t21448, t21449, t21451, t21452, t21454;
4380   double t21455, t21456, t21458, t21461, t21462, t21463, t21464, t21465;
4381   double t21466, t21467, t21468, t21469, t21470, t21471, t21472, t21473;
4382   double t21474, t21475, t21477, t21478, t21479, t21480, t21482, t21483;
4383   double t21485, t21487, t21488, t21489, t21491, t21492, t21493, t21495;
4384   double t21497, t21501, t21502, t21504, t21507, t21510, t21513, t21514;
4385   double t21517, t21519, t21520, t21523, t21526, t21529, t21531, t21536;
4386   double t21538, t21540, t21548, t21549, t21551, t21552, t21554, t21555;
4387   double t21557, t21559, t21560, t21562, t21563, t21565, t21566, t21568;
4388   double t21570, t21587, t21590, t21593, t21595, t21598, t21603, t21608;
4389   double t21609, t21612, t21617, t21624, t21627, t21628, t21631, t21633;
4390   double t21634, t21637, t21640, t21643, t21644, t21649, t21652, t21661;
4391   double t21664, t21665, t21668, t21670, t21675, t21688, t21689, t21692;
4392   double t21693, t21696, t21698, t21699, t21702, t21705, t21708, t21710;
4393   double t21728, t21731, t21734, t21739, t21742, t21745, t21747, t21759;
4394   double t21770, t21786, t21787, t21791, t21792, t21795, t21800, t21802;
4395   double t21803, t21806, t21807, t21816, t21821, t21830, t21833, t21834;
4396   double t21837, t21838, t21845, t21854, t21857, t21858, t21863, t21865;
4397   double t21866, t21869, t21872, t21875, t21877, t21895, t21898, t21901;
4398   double t21906, t21909, t21912, t21914, t21915, t21916, t21927, t21930;
4399   double t21933, t21936, t21954, t21955, t21959, t21961, t21964, t21965;
4400   double t21968, t21971, t21974, t21976, t21986, t21988, t21993, t21996;
4401   double t21998, t22001, t22010, t22023, t22026, t22027, t22030, t22033;
4402   double t22036, t22038, t22048, t22050, t22052, t22053, t22056, t22058;
4403   double t22061, t22062, t22064, t22065, t22068, t22071, t22074, t22078;
4404   double t22085, t22087, t22089, t22090, t22092, t22093, t22095, t22102;
4405   double t22105, t22106, t22109, t22110, t22113, t22114, t22118, t22119;
4406   double t22121, t22123, t22124, t22125, t22127, t22128, t22129, t22131;
4407   double t22132, t22133, t22136, t22138, t22140, t22141, t22143, t22144;
4408   double t22146, t22148, t22151, t22153, t22154, t22155, t22156, t22157;
4409   double t22158, t22159, t22160, t22161, t22162, t22163, t22164, t22165;
4410   double t22166, t22167, t22168, t22169, t22172, t22174, t22177, t22178;
4411   double t22186, t22191, t22193, t22195, t22203, t22204, t22206, t22207;
4412   double t22209, t22210, t22212, t22214, t22215, t22217, t22218, t22220;
4413   double t22221, t22223, t22225, t22226, t22228, t22229, t22231, t22237;
4414   double t22239, t22241, t22242, t22243, t22246, t22247, t22250, t22251;
4415   double t22254, t22255, t22258, t22261, t22264, t22275, t22278, t22280;
4416   double t22282, t22283, t22285, t22287, t22288, t22290, t22292, t22295;
4417   double t22296, t22297, t22298, t22299, t22300, t22301, t22302, t22303;
4418   double t22304, t22305, t22306, t22307, t22308, t22309, t22310, t22311;
4419   double t22312, t22313, t22314, t22317, t22318, t22320, t22322, t22324;
4420   double t22326, t22331, t22335, t22336, t22337, t22339, t22342, t22343;
4421   double t22346, t22348, t22349, t22357, t22362, t22364, t22366, t22374;
4422   double t22375, t22377, t22378, t22380, t22381, t22383, t22385, t22386;
4423   double t22388, t22389, t22391, t22392, t22404, t22405, t22408, t22409;
4424   double t22412, t22415, t22419, t22422, t22423, t22426, t22437, t22442;
4425   double t22445, t22448, t22451, t22453, t22458, t22464, t22465, t22466;
4426   double t22475, t22484, t22493, t22498, t22505, t22506, t22509, t22512;
4427   double t22514, t22515, t22523, t22541, t22544, t22547, t22552, t22555;
4428   double t22558, t22566, t22567, t22574, t22575, t22576, t22581, t22588;
4429   double t22593, t22594, t22597, t22598, t22613, t22616, t22622, t22641;
4430   double t22642, t22653, t22664, t22667, t22670, t22672, t22673, t22681;
4431   double t22699, t22702, t22705, t22710, t22713, t22716, t22720, t22723;
4432   double t22736, t22739, t22752, t22755, t22757, t22764, t22767, t22768;
4433   double t22771, t22772, t22780, t22790, t22797, t22798, t22815, t22838;
4434   double t22841, t22848, t22850, t22851, t22859, t22869, t22871, t22872;
4435   double t22883, t22887, t22888, t22889, t22893, t22895, t22898, t22899;
4436   double t22900, t22904, t22905, t22910, t22913, t22916, t22921, t22922;
4437   double t22925, t22926, t22929, t22930, t22933, t22936, t22937, t22941;
4438   double t22946, t22948, t22960, t22963, t22968, t22971, t22974, t22976;
4439   double t22977, t22980, t22991, t22995, t22996, t22997, t22998, t22999;
4440   double t23000, t23003, t23004, t23005, t23006, t23007, t23010, t23013;
4441   double t23017, t23018, t23023, t23026, t23027, t23030, t23031, t23034;
4442   double t23039, t23040, t23043, t23044, t23047, t23048, t23051, t23054;
4443   double t23055, t23058, t23061, t23064, t23066, t23084, t23087, t23090;
4444   double t23095, t23098, t23101, t23103, t23104, t23107, t23116, t23120;
4445   double t23121, t23122, t23125, t23126, t23127, t23131, t23132, t23137;
4446   double t23140, t23143, t23148, t23149, t23152, t23153, t23156, t23157;
4447   double t23160, t23163, t23164, t23168, t23173, t23175, t23187, t23190;
4448   double t23195, t23198, t23201, t23203, t23214, t23217, t23220, t23224;
4449   double t23225, t23230, t23233, t23236, t23241, t23244, t23245, t23248;
4450   double t23249, t23252, t23255, t23256, t23264, t23276, t23279, t23284;
4451   double t23287, t23290, t23292, t23295, t23306, t23309, t23310, t23313;
4452   double t23316, t23317, t23320, t23324, t23325, t23332, t23333, t23336;
4453   double t23337, t23340, t23345, t23348, t23349, t23352, t23353, t23356;
4454   double t23359, t23360, t23368, t23386, t23389, t23392, t23397, t23400;
4455   double t23403, t23405, t23416, t23419, t23423, t23425, t23428, t23432;
4456   double t23433, t23438, t23441, t23444, t23449, t23452, t23453, t23456;
4457   double t23457, t23460, t23463, t23464, t23472, t23484, t23487, t23492;
4458   double t23495, t23498, t23501, t23504, t23505, t23506, t23507, t23508;
4459   double t23509, t23510, t23511, t23515, t23516, t23518, t23521, t23522;
4460   double t23524, t23525, t23527, t23528, t23529, t23532, t23533, t23534;
4461   double t23535, t23536, t23537, t23538, t23540, t23543, t23544, t23545;
4462   double t23548, t23549, t23550, t23552, t23553, t23554, t23555, t23557;
4463   double t23558, t23559, t23560, t23563, t23564, t23565, t23569, t23570;
4464   double t23571, t23573, t23576, t23577, t23578, t23581, t23588, t23592;
4465   double t23593, t23596, t23597, t23598, t23599, t23601, t23602, t23604;
4466   double t23605, t23607, t23610, t23613, t23615, t23617, t23618, t23619;
4467   double t23620, t23621, t23623, t23624, t23625, t23626, t23627, t23630;
4468   double t23631, t23632, t23634, t23635, t23636, t23637, t23638, t23639;
4469   double t23640, t23641, t23642, t23643, t23645, t23648, t23649, t23650;
4470   double t23652, t23654, t23655, t23656, t23657, t23658, t23660, t23661;
4471   double t23662, t23663, t23664, t23670, t23672, t23674, t23676, t23677;
4472   double t23678, t23680, t23681, t23682, t23683, t23684, t23686, t23687;
4473   double t23688, t23691, t23692, t23694, t23695, t23696, t23697, t23698;
4474   double t23701, t23704, t23705, t23707, t23708, t23709, t23710, t23711;
4475   double t23714, t23717, t23719, t23720, t23722, t23725, t23726, t23728;
4476   double t23729, t23730, t23733, t23734, t23735, t23737, t23738, t23739;
4477   double t23741, t23742, t23745, t23746, t23747, t23748, t23749, t23750;
4478   double t23751, t23755, t23756, t23759, t23760, t23761, t23762, t23764;
4479   double t23765, t23768, t23769, t23771, t23772, t23773, t23774, t23775;
4480   double t23776, t23779, t23781, t23782, t23785, t23790, t23791, t23793;
4481   double t23796, t23797, t23798, t23799, t23800, t23803, t23805, t23806;
4482   double t23807, t23809, t23811, t23812, t23814, t23817, t23819, t23820;
4483   double t23821, t23822, t23823, t23824, t23825, t23826, t23827, t23828;
4484   double t23831, t23833, t23835, t23836, t23838, t23839, t23840, t23842;
4485   double t23843, t23844, t23845, t23853, t23855, t23858, t23859, t23860;
4486   double t23863, t23865, t23866, t23868, t23869, t23870, t23871, t23872;
4487   double t23873, t23878, t23879, t23880, t23882, t23883, t23885, t23888;
4488   double t23889, t23893, t23894, t23896, t23897, t23898, t23901, t23904;
4489   double t23905, t23907, t23908, t23909, t23910, t23912, t23913, t23914;
4490   double t23916, t23917, t23918, t23919, t23922, t23925, t23929, t23931;
4491   double t23932, t23934, t23939, t23944, t23945, t23946, t23947, t23955;
4492   double t23958, t23959, t23961, t23962, t23965, t23967, t23968, t23972;
4493   double t23974, t23978, t23979, t23980, t23983, t23984, t23987, t23988;
4494   double t23990, t23992, t23994, t23995, t23999, t24000, t24004, t24005;
4495   double t24006, t24007, t24008, t24010, t24013, t24016, t24017, t24019;
4496   double t24022, t24023, t24027, t24028, t24029, t24030, t24035, t24036;
4497   double t24037, t24038, t24039, t24042, t24044, t24045, t24047, t24050;
4498   double t24051, t24053, t24054, t24055, t24056, t24059, t24060, t24061;
4499   double t24062, t24065, t24066, t24070, t24071, t24072, t24073, t24075;
4500   double t24079, t24082, t24083, t24084, t24086, t24087, t24088, t24090;
4501   double t24091, t24093, t24096, t24097, t24099, t24100, t24101, t24102;
4502   double t24110, t24113, t24117, t24118, t24121, t24123, t24124, t24125;
4503   double t24126, t24127, t24129, t24130, t24131, t24133, t24134, t24138;
4504   double t24142, t24143, t24146, t24147, t24148, t24150, t24153, t24154;
4505   double t24156, t24157, t24160, t24161, t24168, t24169, t24170, t24174;
4506   double t24175, t24179, t24183, t24186, t24189, t24190, t24192, t24194;
4507   double t24197, t24201, t24203, t24206, t24208, t24209, t24217, t24219;
4508   double t24223, t24227, t24229, t24231, t24232, t24235, t24236, t24239;
4509   double t24241, t24243, t24247, t24249, t24250, t24255, t24258, t24259;
4510   double t24269, t24270, t24271, t24272, t24274, t24275, t24276, t24284;
4511   double t24286, t24289, t24291, t24293, t24297, t24298, t24299, t24303;
4512   double t24307, t24308, t24309, t24315, t24316, t24325, t24326, t24327;
4513   double t24330, t24331, t24332, t24333, t24335, t24336, t24338, t24341;
4514   double t24349, t24350, t24353, t24354, t24359, t24360, t24361, t24366;
4515   double t24369, t24370, t24371, t24377, t24383, t24384, t24387, t24388;
4516   double t24390, t24391, t24398, t24401, t24402, t24407, t24408, t24412;
4517   double t24417, t24425, t24426, t24431, t24432, t24433, t24441, t24447;
4518   double t24452, t24453, t24458, t24461, t24466, t24472, t24477, t24482;
4519   double t24488, t24489, t24490, t24498, t24504, t24513, t24514, t24515;
4520   double t24516, t24519, t24520, t24521, t24525, t24526, t24527, t24529;
4521   double t24532, t24533, t24534, t24537, t24544, t24548, t24551, t24555;
4522   double t24556, t24557, t24558, t24562, t24566, t24570, t24571, t24577;
4523   double t24581, t24582, t24584, t24585, t24586, t24587, t24588, t24589;
4524   double t24591, t24592, t24593, t24594, t24595, t24596, t24598, t24599;
4525   double t24600, t24601, t24602, t24603, t24605, t24606, t24610, t24611;
4526   double t24612, t24614, t24615, t24619, t24620, t24621, t24623, t24627;
4527   double t24628, t24629, t24630, t24633, t24634, t24637, t24638, t24640;
4528   double t24642, t24643, t24645, t24647, t24648, t24649, t24650, t24658;
4529   double t24660, t24663, t24664, t24665, t24668, t24670, t24672, t24674;
4530   double t24675, t24677, t24678, t24679, t24680, t24681, t24683, t24684;
4531   double t24685, t24687, t24688, t24691, t24692, t24693, t24694, t24696;
4532   double t24698, t24699, t24701, t24703, t24704, t24705, t24706, t24708;
4533   double t24712, t24713, t24714, t24715, t24716, t24717, t24719, t24721;
4534   double t24722, t24723, t24725, t24726, t24731, t24732, t24735, t24736;
4535   double t24738, t24739, t24740, t24742, t24743, t24744, t24752, t24754;
4536   double t24757, t24758, t24759, t24762, t24764, t24766, t24768, t24769;
4537   double t24771, t24772, t24773, t24774, t24775, t24777, t24778, t24781;
4538   double t24784, t24787, t24789, t24790, t24791, t24794, t24795, t24799;
4539   double t24803, t24805, t24807, t24808, t24809, t24812, t24814, t24815;
4540   double t24816, t24819, t24822, t24824, t24825, t24826, t24827, t24828;
4541   double t24829, t24830, t24831, t24832, t24833, t24834, t24836, t24837;
4542   double t24838, t24839, t24840, t24841, t24843, t24844, t24845, t24846;
4543   double t24847, t24849, t24850, t24858, t24861, t24865, t24869, t24871;
4544   double t24874, t24876, t24877, t24879, t24882, t24884, t24885, t24887;
4545   double t24888, t24896, t24897, t24899, t24900, t24902, t24904, t24905;
4546   double t24908, t24909, t24912, t24913, t24917, t24919, t24921, t24924;
4547   double t24926, t24927, t24928, t24932, t24933, t24936, t24939, t24941;
4548   double t24942, t24944, t24946, t24948, t24950, t24954, t24956, t24957;
4549   double t24958, t24960, t24961, t24962, t24964, t24965, t24966, t24967;
4550   double t24975, t24978, t24982, t24986, t24988, t24991, t24993, t24994;
4551   double t24996, t24999, t25001, t25002, t25008, t25014, t25015, t25017;
4552   double t25018, t25019, t25021, t25023, t25026, t25030, t25032, t25033;
4553   double t25036, t25038, t25042, t25043, t25044, t25052, t25054, t25059;
4554   double t25061, t25065, t25067, t25068, t25071, t25073, t25075, t25079;
4555   double t25086, t25088, t25090, t25093, t25094, t25096, t25103, t25104;
4556   double t25105, t25113, t25115, t25120, t25122, t25126, t25128, t25137;
4557   double t25157, t25160, t25165, t25166, t25169, t25170, t25171, t25179;
4558   double t25191, t25194, t25197, t25201, t25202, t25209, t25212, t25238;
4559   double t25239, t25240, t25248, t25260, t25263, t25266, t25280, t25283;
4560   double t25284, t25287, t25294, t25299, t25307, t25308, t25309, t25317;
4561   double t25327, t25343, t25348, t25349, t25352, t25355, t25356, t25357;
4562   double t25365, t25375, t25377, t25383, t25395, t25396, t25397, t25405;
4563   double t25412, t25414, t25431, t25432, t25433, t25441, t25448, t25450;
4564   double t25452, t25456, t25459, t25460, t25464, t25465, t25468, t25470;
4565   double t25471, t25473, t25474, t25477, t25479, t25480, t25481, t25482;
4566   double t25484, t25485, t25488, t25489, t25491, t25492, t25493, t25495;
4567   double t25496, t25498, t25499, t25500, t25508, t25511, t25515, t25517;
4568   double t25520, t25522, t25523, t25525, t25528, t25530, t25531, t25533;
4569   double t25534, t25536, t25537, t25540, t25542, t25546, t25547, t25548;
4570   double t25552, t25553, t25556, t25557, t25558, t25560, t25561, t25563;
4571   double t25564, t25567, t25568, t25570, t25571, t25572, t25574, t25575;
4572   double t25577, t25578, t25581, t25582, t25584, t25585, t25586, t25588;
4573   double t25589, t25591, t25592, t25593, t25601, t25604, t25608, t25610;
4574   double t25614, t25616, t25619, t25621, t25622, t25624, t25625, t25627;
4575   double t25630, t25632, t25633, t25635, t25636, t25638, t25640, t25644;
4576   double t25647, t25648, t25652, t25653, t25656, t25658, t25659, t25661;
4577   double t25662, t25665, t25667, t25668, t25669, t25671, t25672, t25675;
4578   double t25676, t25678, t25679, t25680, t25682, t25683, t25685, t25686;
4579   double t25687, t25695, t25698, t25702, t25704, t25707, t25709, t25710;
4580   double t25712, t25715, t25717, t25718, t25720, t25721, t25733, t25737;
4581   double t25738, t25743, t25746, t25751, t25752, t25755, t25756, t25761;
4582   double t25762, t25770, t25782, t25785, t25790, t25793, t25796, t25800;
4583   double t25811, t25815, t25816, t25821, t25822, t25825, t25826, t25833;
4584   double t25834, t25837, t25838, t25843, t25844, t25852, t25870, t25873;
4585   double t25876, t25881, t25884, t25887, t25899, t25903, t25904, t25909;
4586   double t25916, t25917, t25920, t25921, t25926, t25927, t25935, t25947;
4587   double t25950, t25955, t25958, t25961, t25969, t25976, t25977, t25985;
4588   double t25993, t26001, t26008, t26009, t26017, t26027, t26035, t26042;
4589   double t26043, t26051, t26059, t26063, t26065, t26066, t26067, t26070;
4590   double t26071, t26074, t26077, t26078, t26081, t26082, t26088, t26096;
4591   double t26099, t26102, t26105, t26107, t26112, t26115, t26116, t26119;
4592   double t26120, t26123, t26124, t26127, t26128, t26131, t26132, t26140;
4593   double t26154, t26157, t26160, t26163, t26166, t26172, t26175, t26176;
4594   double t26179, t26182, t26183, t26186, t26187, t26190, t26191, t26199;
4595   double t26211, t26214, t26219, t26222, t26225, t26229, t26231, t26232;
4596   double t26233, t26236, t26237, t26240, t26243, t26244, t26247, t26248;
4597   double t26254, t26262, t26265, t26268, t26271;
4598 
4599 #ifndef XC_DONT_COMPILE_LXC
4600   double t26273, t26275, t26277, t26279, t26283, t26285, t26286, t26288;
4601   double t26290, t26292, t26294, t26296, t26299, t26300, t26308, t26320;
4602   double t26321, t26322, t26326, t26329, t26330, t26333, t26336, t26337;
4603   double t26338, t26342, t26345, t26346, t26349, t26352, t26353, t26354;
4604   double t26355, t26368, t26371, t26375, t26376, t26387, t26389, t26390;
4605   double t26398, t26416, t26417, t26423, t26429, t26433, t26434, t26440;
4606   double t26445, t26456, t26458, t26459, t26494, t26500, t26501, t26502;
4607   double t26503, t26525, t26535, t26543, t26544, t26545, t26546, t26548;
4608   double t26550, t26551, t26552, t26553, t26554, t26555, t26556, t26558;
4609   double t26561, t26562, t26563, t26564, t26565, t26566, t26567, t26568;
4610   double t26571, t26572, t26573, t26582, t26602, t26622, t26626, t26629;
4611   double t26647, t26657, t26667, t26671, t26692, t26694, t26696, t26698;
4612   double t26700, t26702, t26703, t26704, t26706, t26708, t26710, t26713;
4613   double t26714, t26716, t26719, t26721, t26723, t26725, t26728, t26730;
4614   double t26732, t26733, t26735, t26737, t26739, t26741, t26743, t26745;
4615   double t26747, t26749, t26752, t26753, t26754, t26756, t26758, t26760;
4616   double t26762, t26764, t26766, t26768, t26770, t26772, t26775, t26777;
4617   double t26785, t26792, t26798, t26800, t26805, t26808, t26812, t26814;
4618   double t26817, t26819, t26823, t26824, t26825, t26836, t26838, t26839;
4619   double t26845, t26848, t26849, t26850, t26857, t26861, t26867, t26870;
4620   double t26873, t26875, t26877, t26882, t26890, t26895, t26903, t26906;
4621   double t26909, t26922, t26923, t26928, t26931, t26939, t26940, t26941;
4622   double t26961, t26963, t26965, t26990, t26998, t27003, t27004, t27007;
4623   double t27008, t27013, t27025, t27030, t27032, t27034, t27043, t27045;
4624   double t27048, t27049, t27053, t27058, t27063, t27065, t27067, t27069;
4625   double t27088, t27090, t27093, t27097, t27099, t27100, t27101, t27102;
4626   double t27106, t27113, t27114, t27121, t27132, t27133, t27141, t27146;
4627   double t27149, t27154, t27157, t27167, t27169, t27181, t27188, t27189;
4628   double t27194, t27196, t27199, t27210, t27212, t27214, t27218, t27225;
4629   double t27228, t27231, t27233, t27243, t27245, t27252, t27258, t27260;
4630   double t27262, t27265, t27269, t27271, t27277, t27283, t27286, t27289;
4631   double t27292, t27294, t27309, t27318, t27324, t27331, t27336, t27337;
4632   double t27343, t27355, t27368, t27370, t27383, t27392, t27395, t27398;
4633   double t27401, t27408, t27414, t27416, t27418, t27421, t27424, t27427;
4634   double t27429, t27433, t27434, t27439, t27449, t27451, t27457, t27469;
4635   double t27475, t27478, t27513, t27525, t27528, t27530, t27536, t27538;
4636   double t27541, t27544, t27558, t27559, t27560, t27568, t27576, t27583;
4637   double t27587, t27612, t27613, t27629, t27645, t27652, t27656, t27668;
4638   double t27679, t27680, t27681, t27701, t27705, t27712, t27714, t27716;
4639   double t27717, t27719, t27720, t27723, t27726, t27728, t27730, t27732;
4640   double t27738, t27739, t27740, t27741, t27745, t27746, t27747, t27758;
4641   double t27762, t27763, t27766, t27767, t27770, t27771, t27775, t27776;
4642   double t27777, t27781, t27783, t27784, t27785, t27786, t27787, t27788;
4643   double t27789, t27793, t27796, t27797, t27801, t27805, t27809, t27813;
4644   double t27816, t27817, t27821, t27822, t27829, t27834, t27835, t27836;
4645   double t27837, t27838, t27839, t27840, t27841, t27843, t27844, t27845;
4646   double t27847, t27853, t27854, t27855, t27857, t27858, t27861, t27862;
4647   double t27863, t27864, t27865, t27866, t27867, t27870, t27871, t27872;
4648   double t27875, t27877, t27878, t27879, t27880, t27883, t27884, t27885;
4649   double t27888, t27891, t27892, t27897, t27898, t27899, t27900, t27901;
4650   double t27924, t27935, t27942, t27943, t27946, t27947, t27949, t27951;
4651   double t27956, t27957, t27959, t27961, t27971, t27976, t27981, t27982;
4652   double t27987, t27989, t27994, t27995, t28009, t28022, t28024, t28030;
4653   double t28040, t28042, t28047, t28049, t28051, t28054, t28055, t28057;
4654   double t28064, t28066, t28067, t28072, t28074, t28076, t28077, t28079;
4655   double t28080, t28085, t28090, t28096, t28098, t28104, t28105, t28107;
4656   double t28108, t28111, t28116, t28122, t28123, t28125, t28127, t28128;
4657   double t28133, t28139, t28140, t28142, t28144, t28145, t28147, t28148;
4658   double t28149, t28153, t28157, t28196, t28210, t28211, t28214, t28222;
4659   double t28226, t28230, t28234, t28244, t28258, t28279, t28306, t28323;
4660   double t28329, t28337, t28356, t28369, t28373, t28377, t28378, t28379;
4661   double t28380, t28381, t28382, t28383, t28385, t28398, t28411, t28413;
4662   double t28414, t28420, t28422, t28423, t28424, t28426, t28427, t28428;
4663   double t28429, t28430, t28431, t28434, t28437, t28441, t28442, t28444;
4664   double t28445, t28446, t28449, t28450, t28451, t28452, t28453, t28454;
4665   double t28455, t28456, t28457, t28458, t28459, t28460, t28461, t28462;
4666   double t28463, t28465, t28466, t28468, t28469, t28470, t28473, t28474;
4667   double t28475, t28476, t28477, t28478, t28479, t28483, t28486, t28489;
4668   double t28493, t28494, t28499, t28500, t28501, t28503, t28504, t28508;
4669   double t28509, t28510, t28513, t28514, t28515, t28518, t28521, t28524;
4670   double t28525, t28526, t28527, t28545, t28562, t28563, t28574, t28575;
4671   double t28577, t28578, t28579, t28584, t28589, t28594, t28612, t28613;
4672   double t28615, t28617, t28620, t28634, t28635, t28636, t28644, t28652;
4673   double t28656, t28669, t28679, t28689, t28711, t28724, t28728, t28732;
4674   double t28739, t28746, t28756, t28757, t28761, t28766, t28768, t28769;
4675   double t28773, t28788, t28792, t28795, t28796, t28807, t28812, t28815;
4676   double t28816, t28820, t28823, t28827, t28831, t28836, t28843, t28845;
4677   double t28851, t28854, t28857, t28859, t28860, t28865, t28866, t28867;
4678   double t28873, t28876, t28879, t28880, t28881, t28887, t28888, t28893;
4679   double t28894, t28906, t28909, t28914, t28923, t28929, t28930, t28934;
4680   double t28937, t28945, t28952, t28957, t28959, t28961, t28968, t28972;
4681   double t28976, t28978, t28979, t28981, t28983, t28985, t28986, t28987;
4682   double t28988, t28993, t28994, t28996, t28999, t29002, t29005, t29007;
4683   double t29010, t29012, t29014, t29016, t29018, t29020, t29022, t29024;
4684   double t29026, t29029, t29031, t29033, t29037, t29041, t29043, t29046;
4685   double t29048, t29056, t29060, t29061, t29065, t29068, t29071, t29073;
4686   double t29076, t29078, t29080, t29085, t29096, t29109, t29110, t29123;
4687   double t29126, t29130, t29132, t29133, t29134, t29135, t29139, t29154;
4688   double t29161, t29172, t29185, t29187, t29190, t29192, t29202, t29205;
4689   double t29208, t29218, t29223, t29226, t29229, t29232, t29235, t29244;
4690   double t29246, t29252, t29258, t29268, t29270, t29272, t29275, t29277;
4691   double t29282, t29287, t29293, t29295, t29301, t29303, t29309, t29312;
4692   double t29315, t29317, t29321, t29324, t29327, t29328, t29349, t29355;
4693   double t29357, t29362, t29371, t29376, t29394, t29397, t29414, t29419;
4694   double t29421, t29423, t29426, t29437, t29438, t29448, t29451, t29453;
4695   double t29470, t29472, t29474, t29476, t29479, t29493, t29498, t29509;
4696   double t29511, t29514, t29516, t29519, t29522, t29536, t29537, t29538;
4697   double t29546, t29554, t29573, t29591, t29602, t29612, t29616, t29626;
4698   double t29630, t29634, t29656, t29660, t29661, t29662, t29667, t29668;
4699   double t29672, t29701, t29703, t29748, t29751, t29752, t29787, t29791;
4700   double t29795, t29798, t29803, t29806, t29840, t29850, t29853, t29874;
4701   double t29887, t29888, t29903, t29910, t29931, t29938, t29951, t29955;
4702   double t29956, t29963, t29967, t29968, t29969, t29971, t29973, t29975;
4703   double t29978, t29980, t29991, t29992, t29994, t29996, t29998, t30000;
4704   double t30001, t30002, t30003, t30005, t30007, t30018, t30024, t30026;
4705   double t30031, t30034, t30038, t30042, t30043, t30045, t30047, t30051;
4706   double t30056, t30060, t30065, t30069, t30073, t30077, t30083, t30092;
4707   double t30095, t30098, t30100, t30103, t30105, t30107, t30110, t30113;
4708   double t30116, t30119, t30122, t30125, t30127, t30135, t30136, t30147;
4709   double t30162, t30164, t30167, t30170, t30171, t30174, t30177, t30179;
4710   double t30181, t30182, t30191, t30195, t30196, t30197, t30198, t30201;
4711   double t30212, t30217, t30219, t30232, t30233, t30235, t30239, t30245;
4712   double t30251, t30270, t30271, t30282, t30303, t30305, t30311, t30345;
4713   double t30366, t30368, t30374, t30378, t30385, t30401, t30409, t30428;
4714   double t30433, t30434, t30460, t30462, t30464, t30469, t30471, t30472;
4715   double t30473, t30479, t30480, t30482, t30483, t30484, t30494, t30496;
4716   double t30505, t30508, t30518, t30523, t30525, t30528, t30531, t30533;
4717   double t30535, t30543, t30553, t30554, t30559, t30566, t30571, t30582;
4718   double t30589, t30601, t30606, t30610, t30612, t30617, t30629, t30631;
4719   double t30635, t30640, t30642, t30644, t30651, t30654, t30663, t30665;
4720   double t30669, t30686, t30688, t30689, t30692, t30697, t30714, t30719;
4721   double t30722, t30725, t30726, t30731, t30738, t30745, t30753, t30758;
4722   double t30763, t30778, t30779, t30781, t30795, t30797, t30817, t30832;
4723   double t30834, t30847, t30855, t30862, t30868, t30886, t30892, t30899;
4724   double t30901, t30910, t30916, t30920, t30921, t30929, t30931, t30933;
4725   double t30935, t30937, t30944, t30947, t30961, t30969, t30970, t30976;
4726   double t30977, t30983, t31000, t31002, t31011, t31016, t31018, t31027;
4727   double t31032, t31037, t31042, t31043, t31044, t31048, t31052, t31057;
4728   double t31060, t31066, t31071, t31078, t31085, t31096, t31099, t31100;
4729   double t31110, t31113, t31116, t31119, t31121, t31123, t31126, t31159;
4730   double t31160, t31165, t31169, t31172, t31176, t31196, t31213, t31214;
4731   double t31221, t31222, t31246, t31274, t31280, t31305, t31311, t31314;
4732   double t31315, t31316, t31317, t31321, t31322, t31323, t31324, t31325;
4733   double t31326, t31330, t31331, t31332, t31336, t31337, t31338, t31339;
4734   double t31341, t31342, t31343, t31344, t31345, t31346, t31347, t31348;
4735   double t31351, t31352, t31353, t31354, t31355, t31359, t31360, t31372;
4736   double t31374, t31375, t31376, t31377, t31378, t31379, t31380, t31381;
4737   double t31382, t31383, t31384, t31386, t31387, t31391, t31392, t31393;
4738   double t31394, t31395, t31397, t31398, t31399, t31406, t31409, t31413;
4739   double t31414, t31415, t31416, t31417, t31432, t31438, t31442, t31449;
4740   double t31455, t31459, t31460, t31463, t31466, t31467, t31469, t31471;
4741   double t31472, t31473, t31474, t31475, t31476, t31482, t31483, t31484;
4742   double t31497, t31510, t31523, t31539, t31541, t31542, t31543, t31545;
4743   double t31547, t31549, t31551, t31552, t31565, t31575, t31580, t31582;
4744   double t31584, t31589, t31611, t31612, t31615, t31616, t31620, t31621;
4745   double t31622, t31624, t31626, t31628, t31645, t31695, t31696, t31698;
4746   double t31699, t31702, t31703, t31704, t31706, t31707, t31708, t31710;
4747   double t31711, t31712, t31713, t31715, t31716, t31717, t31718, t31719;
4748   double t31720, t31721, t31723, t31724, t31725, t31726, t31727, t31729;
4749   double t31730, t31732, t31733, t31734, t31735, t31736, t31737, t31738;
4750   double t31739, t31740, t31741, t31742, t31743, t31744, t31745, t31746;
4751   double t31747, t31748, t31750, t31751, t31752, t31753, t31754, t31755;
4752   double t31756, t31757, t31758, t31759, t31760, t31770, t31772, t31777;
4753   double t31807, t31816, t31822, t31830, t31839, t31845, t31854, t31859;
4754   double t31880, t31881, t31886, t31895, t31897, t31898, t31899, t31901;
4755   double t31902, t31907, t31913, t31916, t31925, t31926, t31932, t31944;
4756   double t31945, t31946, t31947, t31948, t31950, t31952, t31970, t31979;
4757   double t31993, t32002, t32012, t32014, t32019, t32028, t32046, t32059;
4758   double t32063, t32064, t32065, t32067, t32070, t32092, t32107, t32118;
4759   double t32128, t32135, t32157, t32178, t32189, t32196, t32213, t32217;
4760   double t32224, t32234, t32235, t32243, t32248, t32250, t32262, t32266;
4761   double t32275, t32282, t32286, t32289, t32294, t32297, t32301, t32306;
4762   double t32329, t32333, t32334, t32338, t32348, t32349, t32356, t32362;
4763   double t32366, t32375, t32376, t32381, t32385, t32388, t32393, t32411;
4764   double t32431, t32433, t32435, t32437, t32439, t32441, t32443, t32445;
4765   double t32447, t32449, t32451, t32453, t32455, t32457, t32459, t32461;
4766   double t32463, t32465, t32466, t32467, t32468, t32469, t32471, t32473;
4767   double t32474, t32476, t32478, t32480, t32499, t32502, t32504, t32506;
4768   double t32508, t32510, t32512, t32513, t32514, t32515, t32516, t32517;
4769   double t32519, t32521, t32523, t32525, t32528, t32531, t32533, t32535;
4770   double t32538, t32541, t32543, t32545, t32548, t32554, t32556, t32557;
4771   double t32572, t32575, t32590, t32591, t32594, t32615, t32621, t32625;
4772   double t32627, t32636, t32648, t32652, t32655, t32675, t32676, t32677;
4773   double t32695, t32697, t32701, t32706, t32711, t32729, t32747, t32748;
4774   double t32786, t32788, t32839, t32840, t32854, t32893, t32899, t32903;
4775   double t32905, t32911, t32915, t32919, t32922, t32926, t32936, t32938;
4776   double t32940, t32942, t32959, t32962, t32972, t32973, t32976, t32977;
4777   double t32979, t32981, t32983, t32999, t33000, t33001, t33005, t33006;
4778   double t33010, t33012, t33015, t33023, t33027, t33028, t33040, t33045;
4779   double t33046, t33048, t33049, t33050, t33054, t33055, t33060, t33066;
4780   double t33073, t33078, t33079, t33081, t33085, t33113, t33114, t33128;
4781   double t33132, t33134, t33135, t33140, t33145, t33150, t33158, t33167;
4782   double t33169, t33174, t33180, t33190, t33200, t33203, t33216, t33218;
4783   double t33238, t33243, t33244, t33253, t33254, t33270, t33274, t33283;
4784   double t33288, t33291, t33293, t33302, t33310, t33320, t33325, t33327;
4785   double t33339, t33342, t33356, t33367, t33371, t33374, t33384, t33392;
4786   double t33406, t33408, t33412, t33417, t33431, t33436, t33441, t33445;
4787   double t33448, t33465, t33479, t33485, t33488, t33490, t33492, t33497;
4788   double t33498, t33503, t33509, t33512, t33519, t33538, t33559, t33560;
4789   double t33566, t33574, t33577, t33578, t33582, t33586, t33589, t33590;
4790   double t33591, t33592, t33602, t33605, t33608, t33614, t33622, t33632;
4791   double t33671, t33675, t33687, t33691, t33702, t33709, t33741, t33746;
4792   double t33789, t33796, t33803, t33809, t33813, t33841, t33848, t33877;
4793   double t33880, t33887, t33891, t33919, t33922, t33931, t33932, t33933;
4794   double t33938, t33943, t33954, t33959, t33963, t33966, t33968, t33969;
4795   double t33971, t33975, t33978, t33980, t33986, t33989, t33992, t33993;
4796   double t33996, t33999, t34000, t34003, t34006, t34009, t34012, t34015;
4797   double t34018, t34023, t34025, t34026, t34027, t34029, t34052, t34061;
4798   double t34063, t34069, t34134, t34140, t34143, t34158, t34161, t34168;
4799   double t34175, t34182, t34207, t34222, t34235, t34239, t34263, t34264;
4800   double t34273, t34292, t34303, t34304, t34305, t34306, t34307, t34309;
4801   double t34310, t34313, t34320, t34326, t34366, t34409, t34416, t34457;
4802   double t34464, t34467, t34481, t34500, t34508, t34538, t34540, t34547;
4803   double t34549, t34553, t34601, t34606, t34632, t34641, t34651, t34672;
4804   double t34682, t34684, t34686, t34702, t34707, t34711, t34717, t34721;
4805   double t34723, t34727, t34733, t34736, t34741, t34745, t34749, t34752;
4806   double t34755, t34759, t34763, t34767, t34770, t34774, t34777, t34783;
4807   double t34798, t34801, t34806, t34809, t34812, t34815, t34830, t34832;
4808   double t34850, t34851, t34852, t34853, t34854, t34855, t34856, t34857;
4809   double t34859, t34860, t34861, t34868, t34891, t34911, t34912, t34914;
4810   double t34916, t34917, t34919, t34924, t34925, t34926, t34927, t34929;
4811   double t34930, t34932, t34933, t34934, t34935, t34936, t34937, t34938;
4812   double t34939, t34940, t34941, t34942, t34943, t34944, t34945, t34946;
4813   double t34947, t34950, t34951, t34952, t34953, t34954, t34957, t34958;
4814   double t34959, t34963, t34964, t34965, t34966, t34967, t34968, t34969;
4815   double t34972, t34974, t34975, t34976, t34977, t34978, t34979, t34980;
4816   double t34981, t34982, t34989, t34990, t34991, t34992, t34999, t35003;
4817   double t35004, t35008, t35012, t35013, t35014, t35015, t35059, t35063;
4818   double t35064, t35068, t35069, t35070, t35071, t35087, t35092, t35093;
4819   double t35094, t35097, t35101, t35105, t35112, t35113, t35114, t35115;
4820   double t35118, t35121, t35125, t35128, t35129, t35130, t35131, t35135;
4821   double t35136, t35140, t35144, t35151, t35152, t35153, t35154, t35155;
4822   double t35160, t35192, t35212, t35213, t35215, t35216, t35219, t35220;
4823   double t35223, t35224, t35225, t35226, t35227, t35228, t35229, t35230;
4824   double t35231, t35232, t35233, t35234, t35235, t35237, t35238, t35239;
4825   double t35240, t35241, t35242, t35274, t35304, t35306, t35312, t35319;
4826   double t35334, t35338, t35342, t35343, t35364, t35366, t35388, t35394;
4827   double t35405, t35407, t35454, t35457, t35459, t35468, t35471, t35472;
4828   double t35477, t35482, t35484, t35494, t35513, t35518, t35528, t35530;
4829   double t35543, t35558, t35565, t35568, t35585, t35591, t35593, t35600;
4830   double t35625, t35635, t35653, t35671, t35678, t35680, t35682, t35696;
4831   double t35703, t35719, t35723, t35732, t35753, t35763, t35773, t35780;
4832   double t35782, t35784, t35786, t35788, t35817, t35820, t35826, t35828;
4833   double t35846, t35850, t35859, t35868, t35875, t35880, t35901, t35905;
4834   double t35915, t35953, t35970, t35978, t35989, t36003, t36010, t36014;
4835   double t36018, t36025, t36029, t36041, t36048, t36125, t36150, t36205;
4836   double t36214, t36239, t36259, t36260, t36274, t36282, t36289, t36291;
4837   double t36316, t36335, t36343, t36376, t36409, t36427, t36442, t36458;
4838   double t36470, t36473, t36497, t36501, t36536, t36564, t36593, t36594;
4839   double t36597, t36600, t36627, t36634, t36635, t36643, t36644, t36646;
4840   double t36648, t36650, t36652, t36654, t36657, t36659, t36661, t36663;
4841   double t36665, t36667, t36669, t36671, t36674, t36677, t36681, t36686;
4842   double t36688, t36691, t36693, t36695, t36697, t36699, t36701, t36703;
4843   double t36705, t36706, t36708, t36710, t36712, t36714, t36717, t36719;
4844   double t36721, t36723, t36725, t36726, t36728, t36731, t36733, t36735;
4845   double t36737, t36744, t36747, t36750, t36752, t36755, t36756, t36758;
4846   double t36760, t36762, t36764, t36766, t36769, t36774, t36777, t36789;
4847   double t36813, t36815, t36830, t36847, t36859, t36861, t36868, t36872;
4848   double t36879, t36886, t36897, t36904, t36913, t36915, t36926, t36931;
4849   double t36944, t36959, t36972, t36985, t36999, t37001, t37016, t37018;
4850   double t37020, t37046, t37050, t37054, t37060, t37092, t37097, t37102;
4851   double t37114, t37124, t37136, t37140, t37144, t37163, t37164, t37180;
4852   double t37182, t37211, t37214, t37239, t37246, t37248, t37267, t37278;
4853   double t37312, t37315, t37318, t37324, t37334, t37344, t37348, t37352;
4854   double t37359, t37362, t37369, t37372, t37381, t37383, t37407, t37409;
4855   double t37419, t37429, t37432, t37437, t37439, t37454, t37457, t37471;
4856   double t37475, t37478, t37484, t37502, t37504, t37528, t37530, t37547;
4857   double t37549, t37558, t37562, t37565, t37567, t37575, t37581, t37604;
4858   double t37607, t37610, t37626, t37628, t37635, t37637, t37643, t37647;
4859   double t37654, t37671, t37672, t37674, t37676, t37682, t37692, t37697;
4860   double t37737, t37738, t37742, t37746, t37747, t37748, t37753, t37756;
4861   double t37764, t37781, t37797, t37800, t37803, t37806, t37816, t37821;
4862   double t37824, t37826, t37847, t37854, t37861, t37863, t37877, t37891;
4863   double t37911, t37914, t37917, t37923, t37929, t37931, t37933, t37936;
4864   double t37948, t37962, t37970, t37982, t37984, t37985, t37994, t38006;
4865   double t38013, t38020, t38043, t38045, t38061, t38085, t38096, t38109;
4866   double t38111, t38117, t38120, t38153, t38155, t38185, t38193, t38196;
4867   double t38211, t38251, t38255, t38279, t38286, t38295, t38317, t38322;
4868   double t38333, t38370, t38381, t38384, t38389, t38406, t38409, t38412;
4869   double t38416, t38417, t38420, t38425, t38430, t38448, t38462, t38464;
4870   double t38467, t38469, t38472, t38474, t38477, t38479, t38481, t38483;
4871   double t38485, t38489, t38491, t38500, t38504, t38506, t38516, t38520;
4872   double t38535, t38538, t38541, t38544, t38546, t38548, t38549, t38551;
4873   double t38553, t38555, t38557, t38559, t38561, t38563, t38566, t38568;
4874   double t38570, t38572, t38574, t38576, t38579, t38582, t38584, t38586;
4875   double t38589, t38592, t38595, t38597, t38599, t38609, t38613, t38616;
4876   double t38618, t38620, t38622, t38624, t38626, t38628, t38630, t38634;
4877   double t38636, t38639, t38649, t38654, t38660, t38666, t38671, t38676;
4878   double t38682, t38698, t38717, t38721, t38723, t38725, t38750, t38767;
4879   double t38794, t38798, t38801, t38831, t38836, t38843, t38863, t38873;
4880   double t38894, t38897, t38912, t38925, t38939, t38952, t38955, t38966;
4881   double t38969, t38991, t39000, t39003, t39005, t39006, t39015, t39024;
4882   double t39028, t39036, t39038, t39055, t39066, t39072, t39074, t39086;
4883   double t39093, t39115, t39118, t39123, t39147, t39152, t39160, t39163;
4884   double t39172, t39180, t39182, t39186, t39216, t39219, t39226, t39229;
4885   double t39243, t39260, t39278, t39293, t39296, t39314, t39317, t39321;
4886   double t39324, t39330, t39345, t39349, t39352, t39368, t39372, t39375;
4887   double t39388, t39403, t39406, t39409, t39420, t39425, t39427, t39435;
4888   double t39437, t39444, t39446, t39452, t39498, t39500, t39501, t39502;
4889   double t39504, t39510, t39520, t39541, t39549, t39552, t39565, t39568;
4890   double t39571, t39581, t39593, t39608, t39616, t39618, t39627, t39635;
4891   double t39639, t39645, t39669, t39675, t39686, t39698, t39708, t39738;
4892   double t39769, t39777, t39782, t39806, t39830, t39833, t39843, t39868;
4893   double t39894, t39903, t39931, t39938, t39941, t39962, t39965, t39970;
4894   double t39988, t39991, t40000, t40004, t40008, t40013, t40036, t40040;
4895   double t40044, t40048, t40052, t40053, t40066, t40083, t40093, t40128;
4896   double t40134, t40167, t40192, t40199, t40202, t40226, t40228, t40230;
4897   double t40233, t40240, t40244, t40246, t40248, t40284, t40316, t40321;
4898   double t40328, t40329, t40353, t40391, t40400, t40415, t40427, t40436;
4899   double t40438, t40448, t40457, t40461, t40466, t40467, t40470, t40473;
4900   double t40479, t40484, t40485, t40492, t40504, t40508, t40511, t40512;
4901   double t40515, t40518, t40522, t40526, t40529, t40534, t40536, t40560;
4902   double t40570, t40630, t40652, t40662, t40672, t40680, t40683, t40714;
4903   double t40739, t40761, t40762, t40772, t40780, t40809, t40819, t40827;
4904   double t40845, t40847, t40849, t40851, t40853, t40855, t40857, t40859;
4905   double t40861, t40863, t40865, t40867, t40869, t40871, t40874, t40876;
4906   double t40879, t40881, t40883, t40885, t40887, t40889, t40891, t40915;
4907   double t40922, t40926, t40928, t40931, t40933, t40936, t40938, t40958;
4908   double t40960, t40963, t40968, t40974, t40976, t40978, t40980, t40982;
4909   double t40984, t40986, t40988, t40996, t40997, t41004, t41015, t41033;
4910   double t41035, t41037, t41039, t41051, t41068, t41072, t41075, t41083;
4911   double t41097, t41102, t41106, t41117, t41132, t41139, t41185, t41203;
4912   double t41205, t41211, t41217, t41227, t41230, t41283, t41285, t41302;
4913   double t41308, t41317, t41338, t41350, t41355, t41375, t41379, t41384;
4914   double t41389, t41398, t41403, t41406, t41411, t41419, t41422, t41447;
4915   double t41460, t41467, t41472, t41478, t41484, t41486, t41493, t41496;
4916   double t41498, t41524, t41537, t41542, t41547, t41566, t41570, t41582;
4917   double t41605, t41643, t41657, t41659, t41675, t41680, t41690, t41702;
4918   double t41707, t41712, t41715, t41727, t41768, t41789, t41798, t41810;
4919   double t41840, t41847, t41890, t41892, t41896, t41899, t41957, t41966;
4920   double t41978, t41991, t42009, t42013, t42029, t42057, t42068, t42071;
4921   double t42075, t42087, t42104, t42133, t42162, t42166, t42167, t42168;
4922   double t42169, t42174, t42175, t42176, t42209, t42210, t42212, t42214;
4923   double t42218, t42222, t42223, t42224, t42225, t42226, t42227, t42235;
4924   double t42236, t42240, t42243, t42244, t42247, t42248, t42249, t42250;
4925   double t42254, t42259, t42260, t42261, t42265, t42266, t42270, t42272;
4926   double t42273, t42277, t42281, t42283, t42284, t42285, t42286, t42287;
4927   double t42288, t42292, t42296, t42300, t42305, t42309, t42314, t42315;
4928   double t42317, t42327, t42328, t42330, t42333, t42334, t42335, t42336;
4929   double t42339, t42340, t42344, t42345, t42353, t42354, t42358, t42368;
4930   double t42370, t42374, t42375, t42376, t42409, t42419, t42424, t42426;
4931   double t42431, t42436, t42438, t42443, t42445, t42447, t42448, t42450;
4932   double t42475, t42500, t42526, t42532, t42549, t42556, t42557, t42559;
4933   double t42560, t42563, t42564, t42566, t42567, t42569, t42570, t42571;
4934   double t42572, t42629, t42631, t42636, t42638, t42640, t42642, t42657;
4935   double t42676, t42703, t42705, t42707, t42734, t42752, t42797, t42817;
4936   double t42835, t42846, t42848, t42850, t42853, t42856, t42910, t42925;
4937   double t42932, t42950, t42957, t42966, t42972, t42986, t43006, t43028;
4938   double t43032, t43046, t43050, t43051, t43082, t43086, t43088, t43090;
4939   double t43092, t43094, t43096, t43098, t43103, t43105, t43108, t43110;
4940   double t43112, t43114, t43116, t43118, t43120, t43122, t43124, t43126;
4941   double t43128, t43130, t43132, t43135, t43137, t43140, t43142, t43145;
4942   double t43147, t43150, t43152, t43154, t43156, t43158, t43160, t43162;
4943   double t43164, t43168, t43170, t43172, t43174, t43179, t43192, t43213;
4944   double t43242, t43252, t43262, t43266, t43269, t43281, t43293, t43304;
4945   double t43309, t43315, t43317, t43319, t43323, t43345, t43366, t43367;
4946   double t43378, t43393, t43395, t43399, t43404, t43422, t43458, t43465;
4947   double t43493, t43495, t43499, t43502, t43514, t43522, t43530, t43535;
4948   double t43541, t43547, t43557, t43561, t43563, t43568, t43574, t43576;
4949   double t43587, t43589, t43591, t43637, t43645, t43658, t43660, t43667;
4950   double t43684, t43697, t43699, t43701, t43704, t43707, t43716, t43719;
4951   double t43721, t43727, t43775, t43781, t43809, t43814, t43817, t43828;
4952   double t43837, t43839, t43846, t43852, t43862, t43864, t43871, t43881;
4953   double t43885, t43887, t43889, t43892, t43894, t43897, t43902, t43925;
4954   double t43942, t43948, t43958, t43960, t43990, t44014, t44020, t44041;
4955   double t44069, t44071, t44108, t44131, t44152, t44160, t44202, t44218;
4956   double t44221, t44240, t44252, t44261, t44294, t44296, t44300, t44303;
4957   double t44358, t44377, t44394, t44398, t44413, t44425, t44434, t44453;
4958   double t44464, t44475, t44479, t44489, t44492, t44510, t44525, t44549;
4959   double t44557, t44622, t44633, t44635, t44639, t44645, t44651, t44699;
4960   double t44716, t44717, t44718, t44719, t44720, t44721, t44722, t44723;
4961   double t44724, t44725, t44727, t44728, t44729, t44730, t44766, t44771;
4962   double t44776, t44777, t44780, t44785, t44790, t44793, t44804, t44820;
4963   double t44825, t44857, t44893, t44906, t44907, t44912, t44917, t44938;
4964   double t44943, t44944, t44949, t44954, t44955, t44957, t44958, t44959;
4965   double t44960, t44961, t44962, t44963, t44966, t44967, t44968, t44969;
4966   double t44970, t44971, t44972, t44973, t44974, t44975, t44997, t44999;
4967   double t45000, t45002, t45003, t45004, t45005, t45006, t45007, t45008;
4968   double t45009, t45010, t45011, t45012, t45014, t45015, t45016, t45017;
4969   double t45050, t45051, t45058, t45060, t45075, t45083, t45123, t45159;
4970   double t45163, t45173, t45174, t45190, t45194, t45205, t45215, t45219;
4971   double t45230, t45233, t45239, t45240, t45253, t45259, t45271, t45272;
4972   double t45275, t45278, t45279, t45282, t45291, t45292, t45295, t45298;
4973   double t45299, t45302, t45305, t45306, t45310, t45311, t45321, t45324;
4974   double t45377, t45380, t45383, t45428, t45457, t45464, t45505, t45509;
4975   double t45510, t45533, t45538, t45556, t45557, t45560, t45563, t45571;
4976   double t45572, t45587, t45588, t45591, t45597, t45599, t45601, t45603;
4977   double t45605, t45607, t45612, t45615, t45624, t45626, t45628, t45630;
4978   double t45641, t45643, t45645, t45647, t45649, t45651, t45653, t45655;
4979   double t45657, t45659, t45661, t45664, t45666, t45669, t45671, t45674;
4980   double t45675, t45678, t45699, t45715, t45749, t45752, t45755, t45770;
4981   double t45771, t45781, t45787, t45788, t45813, t45816, t45821, t45841;
4982   double t45867, t45873, t45914, t45953, t45965, t45967, t45970, t45972;
4983   double t45985, t45986, t46011, t46047, t46052, t46092, t46107, t46128;
4984   double t46131, t46146, t46154, t46195, t46229, t46233, t46257, t46261;
4985   double t46263, t46274, t46278, t46282, t46286, t46290, t46294, t46298;
4986   double t46302, t46306, t46315, t46317, t46320, t46323, t46325, t46327;
4987   double t46330, t46335, t46337, t46339, t46341, t46344, t46346, t46348;
4988   double t46351, t46353, t46356, t46359, t46378, t46387, t46390, t46411;
4989   double t46423, t46424, t46433, t46436, t46439, t46440, t46447, t46450;
4990   double t46451, t46454, t46468, t46471, t46472, t46488, t46489, t46494;
4991   double t46521, t46537, t46538, t46547, t46576, t46608, t46620, t46622;
4992   double t46630, t46632, t46659, t46686, t46697, t46703, t46723, t46748;
4993   double t46789, t46813, t46822, t46840, t46869, t46896, t46907, t46960;
4994   double t46963, t46978, t46986, t47025, t47061, t47065, t47093, t47095;
4995   double t47127, t47128, t47163, t47165, t47167, t47169, t47173, t47178;
4996   double t47181, t47186, t47189, t47192, t47197, t47199, t47204, t47209;
4997   double t47214, t47217, t47221, t47223, t47226, t47229, t47232, t47235;
4998   double t47236, t47239, t47240, t47244, t47248, t47250, t47251, t47254;
4999   double t47257, t47265, t47269, t47272, t47274, t47276, t47277, t47280;
5000   double t47283, t47290, t47291, t47297, t47300, t47311, t47315, t47319;
5001   double t47324, t47327, t47329, t47355, t47358, t47364, t47368, t47371;
5002   double t47373, t47375, t47377, t47378, t47380, t47381, t47383, t47386;
5003   double t47388, t47389, t47392, t47394, t47397, t47404, t47406, t47413;
5004   double t47417, t47420, t47422, t47426, t47428, t47443, t47446, t47451;
5005   double t47454, t47459, t47460, t47474, t47475, t47477, t47478, t47481;
5006   double t47485, t47488, t47489, t47491, t47494, t47495, t47500, t47505;
5007   double t47507, t47508, t47511, t47515, t47518, t47522, t47526, t47531;
5008   double t47536, t47540, t47544, t47545, t47548, t47551, t47556, t47565;
5009   double t47566, t47567, t47568, t47569, t47571, t47572, t47574, t47575;
5010   double t47576, t47578, t47579, t47581, t47584, t47587, t47589, t47591;
5011   double t47593, t47595, t47596, t47600, t47602, t47605, t47608, t47611;
5012   double t47616, t47626, t47639, t47643, t47646, t47650, t47653, t47654;
5013   double t47660, t47669, t47673, t47677, t47681, t47682, t47688, t47691;
5014   double t47694, t47696, t47697, t47701, t47704, t47706, t47708, t47710;
5015   double t47721, t47724, t47726, t47731, t47735, t47744, t47747, t47753;
5016   double t47760, t47763, t47768, t47769, t47772, t47782, t47785, t47788;
5017   double t47790, t47791, t47798, t47804, t47810, t47814, t47818, t47820;
5018   double t47822, t47826, t47827, t47831, t47833, t47835, t47839, t47841;
5019   double t47847, t47849, t47853, t47857, t47858, t47861, t47876, t47878;
5020   double t47881, t47884, t47887, t47889, t47895, t47900, t47903, t47904;
5021   double t47921, t47925, t47928, t47930, t47943, t47948, t47952, t47955;
5022   double t47959, t47963, t47966, t47969, t47971, t47975, t47981, t47985;
5023   double t47991, t47998, t48000, t48007, t48011, t48014, t48020, t48022;
5024   double t48025, t48026, t48028, t48030, t48035, t48046, t48053, t48059;
5025   double t48065, t48067, t48102, t48107, t48114, t48123, t48135, t48150;
5026   double t48174, t48181, t48186, t48192, t48196, t48203, t48237, t48243;
5027   double t48244, t48249, t48253, t48254, t48263, t48266, t48271, t48287;
5028   double t48289, t48293, t48297, t48299, t48302, t48303, t48305, t48307;
5029   double t48310, t48311, t48314, t48315, t48317, t48319, t48321, t48323;
5030   double t48324, t48326, t48328, t48330, t48332, t48335, t48337, t48338;
5031   double t48339, t48340, t48342, t48345, t48346, t48348, t48350, t48352;
5032   double t48356, t48357, t48358, t48360, t48362, t48363, t48365, t48366;
5033   double t48368, t48369, t48371, t48373, t48375, t48376, t48379, t48404;
5034   double t48409, t48411, t48416, t48438, t48454, t48468, t48472, t48474;
5035   double t48478, t48488, t48492, t48493, t48502, t48515, t48518, t48522;
5036   double t48529, t48531, t48533, t48539, t48540, t48541, t48544, t48546;
5037   double t48549, t48551, t48553, t48555, t48556, t48560, t48564, t48570;
5038   double t48572, t48574, t48577, t48580, t48582, t48584, t48588, t48595;
5039   double t48596, t48598, t48600, t48610, t48616, t48621, t48625, t48629;
5040   double t48631, t48636, t48648, t48656, t48675, t48676, t48687, t48688;
5041   double t48690, t48694, t48695, t48696, t48704, t48705, t48706, t48715;
5042   double t48716, t48720, t48724, t48741, t48758, t48761, t48763, t48768;
5043   double t48775, t48778, t48793, t48796, t48797, t48807, t48809, t48811;
5044   double t48814, t48816, t48818, t48820, t48832, t48842, t48845, t48850;
5045   double t48852, t48854, t48856, t48867, t48890, t48896, t48902, t48909;
5046   double t48912, t48916, t48929, t48934, t48948, t48953, t48960, t48961;
5047   double t48964, t48967, t48969, t48974, t48976, t48990, t48993, t48999;
5048   double t49005, t49014, t49024, t49067, t49077, t49095, t49114, t49115;
5049   double t49122, t49130, t49131, t49158, t49184, t49187, t49191, t49193;
5050   double t49194, t49203, t49228, t49234, t49235, t49244, t49247, t49251;
5051   double t49267, t49269, t49273, t49281, t49311, t49337, t49349, t49351;
5052   double t49353, t49355, t49357, t49359, t49360, t49363, t49365, t49367;
5053   double t49372, t49375, t49379, t49383, t49391, t49422, t49424, t49427;
5054   double t49430, t49433, t49443, t49454, t49456, t49461, t49462, t49474;
5055   double t49489, t49493, t49497, t49500, t49501, t49539, t49543, t49566;
5056   double t49572, t49574, t49594, t49597, t49608, t49609, t49619, t49622;
5057   double t49623, t49626, t49629, t49630, t49634, t49660, t49672, t49681;
5058   double t49685, t49706, t49725, t49732, t49733, t49753, t49758, t49764;
5059   double t49786, t49788, t49790, t49796, t49801, t49804, t49805, t49813;
5060   double t49820, t49822, t49824, t49826, t49827, t49829, t49835, t49843;
5061   double t49845, t49852, t49869, t49870, t49873, t49876, t49883, t49915;
5062   double t49921, t49925, t49932, t49942, t49957, t49960, t49961, t49971;
5063   double t49974, t49979, t49992, t50000, t50027, t50038, t50053, t50061;
5064   double t50066, t50070, t50074, t50087, t50114, t50128, t50151, t50171;
5065   double t50183, t50203, t50219, t50239, t50264, t50266, t50269, t50272;
5066   double t50280, t50297, t50301, t50306, t50311, t50313, t50315, t50317;
5067   double t50329, t50339, t50341, t50344, t50345, t50348, t50350, t50351;
5068   double t50352, t50353, t50354, t50355, t50357, t50358, t50360, t50361;
5069   double t50363, t50365, t50366, t50369, t50371, t50373, t50375, t50380;
5070   double t50383, t50386, t50388, t50390, t50392, t50393, t50397, t50399;
5071   double t50406, t50409, t50412, t50423, t50434, t50438, t50441, t50442;
5072   double t50445, t50450, t50460, t50469, t50473, t50476, t50479, t50482;
5073   double t50485, t50499, t50511, t50515, t50520, t50521, t50526, t50529;
5074   double t50539, t50541, t50544, t50546, t50550, t50561, t50577, t50586;
5075   double t50592, t50596, t50600, t50603, t50604, t50608, t50611, t50612;
5076   double t50615, t50619, t50624, t50629, t50639, t50644, t50645, t50650;
5077   double t50651, t50652, t50654, t50655, t50660, t50661, t50679, t50680;
5078   double t50683, t50691, t50694, t50695, t50702, t50705, t50708, t50715;
5079   double t50720, t50723, t50725, t50729, t50731, t50748, t50752, t50753;
5080   double t50755, t50765, t50767, t50770, t50771, t50773, t50775, t50784;
5081   double t50788, t50789, t50790, t50793, t50807, t50814, t50821, t50844;
5082   double t50849, t50860, t50867, t50886, t50895, t50896, t50898, t50900;
5083   double t50901, t50908, t50921, t50929, t50931, t50933, t50940, t50941;
5084   double t50945, t50955, t50973, t50992, t50994, t50998, t51003, t51005;
5085   double t51015, t51016, t51018, t51023, t51027, t51035, t51038, t51057;
5086   double t51060, t51063, t51099, t51125, t51137, t51162, t51184, t51220;
5087   double t51226, t51229, t51253, t51254, t51255, t51258, t51259, t51262;
5088   double t51265, t51268, t51275, t51280, t51281, t51286, t51292, t51295;
5089   double t51302, t51311, t51315, t51321, t51325, t51329, t51333, t51339;
5090   double t51342, t51343, t51347, t51359, t51368, t51374, t51387, t51390;
5091   double t51391, t51411, t51419, t51423, t51428, t51444, t51445, t51449;
5092   double t51453, t51455, t51476, t51479, t51482, t51485, t51486, t51487;
5093   double t51488, t51489, t51491, t51493, t51494, t51496, t51498, t51500;
5094   double t51502, t51504, t51506, t51508, t51509, t51510, t51512, t51516;
5095   double t51517, t51518, t51520, t51522, t51525, t51526, t51528, t51531;
5096   double t51532, t51533, t51535, t51537, t51538, t51539, t51541, t51543;
5097   double t51546, t51547, t51548, t51550, t51553, t51555, t51557, t51558;
5098   double t51560, t51562, t51564, t51566, t51569, t51571, t51573, t51574;
5099   double t51575, t51577, t51579, t51620, t51627, t51632, t51634, t51660;
5100   double t51671, t51675, t51677, t51680, t51683, t51684, t51687, t51693;
5101   double t51696, t51699, t51700, t51701, t51715, t51729, t51734, t51736;
5102   double t51741, t51744, t51748, t51750, t51752, t51770, t51774, t51778;
5103   double t51782, t51784, t51786, t51789, t51803, t51807, t51815, t51819;
5104   double t51824, t51828, t51832, t51835, t51842, t51847, t51848, t51851;
5105   double t51855, t51859, t51863, t51864, t51866, t51871, t51872, t51873;
5106   double t51876, t51877, t51881, t51884, t51888, t51899, t51901, t51903;
5107   double t51904, t51906, t51908, t51910, t51913, t51915, t51917, t51919;
5108   double t51922, t51924, t51927, t51932, t51935, t51944, t51947, t51964;
5109   double t51983, t51987, t52001, t52012, t52014, t52017, t52019, t52023;
5110   double t52029, t52038, t52041, t52044, t52048, t52052, t52056, t52061;
5111   double t52076, t52080, t52083, t52087, t52091, t52095, t52098, t52101;
5112   double t52121, t52126, t52127, t52133, t52137, t52148, t52151, t52153;
5113   double t52156, t52158, t52160, t52161, t52164, t52167, t52170, t52173;
5114   double t52182, t52193, t52195, t52199, t52208, t52212, t52216, t52225;
5115   double t52229, t52233, t52236, t52242, t52244, t52248, t52254, t52256;
5116   double t52259, t52269, t52270, t52272, t52275, t52277, t52279, t52281;
5117   double t52283, t52285, t52287, t52298, t52306, t52319, t52322, t52327;
5118   double t52330, t52333, t52338, t52341, t52350, t52354, t52356, t52358;
5119   double t52360, t52361, t52365, t52366, t52369, t52371, t52377, t52381;
5120   double t52383, t52385, t52392, t52397, t52404, t52419, t52437, t52450;
5121   double t52454, t52457, t52460, t52463, t52466, t52467, t52471, t52484;
5122   double t52490, t52493, t52495, t52497, t52500, t52503, t52506, t52508;
5123   double t52511, t52514, t52516, t52519, t52520, t52529, t52531, t52533;
5124   double t52535, t52536, t52539, t52541, t52543, t52546, t52547, t52550;
5125   double t52553, t52556, t52564, t52566, t52567, t52569, t52570, t52582;
5126   double t52584, t52585, t52587, t52611, t52615, t52616, t52633, t52638;
5127   double t52639, t52642, t52645, t52648, t52657, t52663, t52664, t52670;
5128   double t52672, t52675, t52676, t52678, t52680, t52682, t52687, t52689;
5129   double t52691, t52693, t52695, t52698, t52700, t52704, t52705, t52732;
5130   double t52734, t52738, t52743, t52745, t52747, t52751, t52752, t52754;
5131   double t52755, t52757, t52759, t52760, t52766, t52770, t52771, t52774;
5132   double t52778, t52781, t52783, t52785, t52787, t52788, t52791, t52792;
5133   double t52795, t52806, t52809, t52812, t52819, t52822, t52829, t52830;
5134   double t52833, t52844, t52846, t52847, t52849, t52852, t52856, t52859;
5135   double t52861, t52863, t52865, t52867, t52869, t52871, t52873, t52875;
5136   double t52877, t52878, t52883, t52888, t52891, t52893, t52895, t52897;
5137   double t52899, t52904, t52909, t52911, t52915, t52917, t52919, t52921;
5138   double t52923, t52935, t52936, t52941, t52961, t52962, t52963, t52986;
5139   double t52988, t52993, t52999, t53000, t53002, t53013, t53033, t53039;
5140   double t53041, t53059, t53065, t53071, t53073, t53074, t53079, t53082;
5141   double t53097, t53101, t53103, t53105, t53106, t53112, t53114, t53122;
5142   double t53123, t53124, t53128, t53129, t53140, t53141, t53159, t53168;
5143   double t53189, t53197, t53213, t53251, t53259, t53271, t53283, t53287;
5144   double t53289, t53293, t53295, t53302, t53305, t53307, t53309, t53310;
5145   double t53313, t53315, t53327, t53342, t53363, t53370, t53371, t53396;
5146   double t53409, t53420, t53443, t53471, t53488, t53502, t53504, t53507;
5147   double t53509, t53531, t53544, t53546, t53548, t53551, t53553, t53557;
5148   double t53559, t53561, t53565, t53567, t53569, t53571, t53590, t53613;
5149   double t53614, t53618, t53631, t53633, t53635, t53638, t53641, t53647;
5150   double t53684, t53703, t53708, t53711, t53713, t53715, t53729, t53732;
5151   double t53740, t53742, t53744, t53746, t53747, t53750, t53753, t53756;
5152   double t53757, t53764, t53767, t53769, t53771, t53773, t53775, t53776;
5153   double t53780, t53797, t53804, t53807, t53827, t53836, t53838, t53840;
5154   double t53842, t53854, t53862, t53871, t53876, t53879, t53881, t53903;
5155   double t53906, t53909, t53947, t53972, t53973, t53976, t53983, t53984;
5156   double t53987, t53990, t53995, t53998, t54000, t54002, t54003, t54007;
5157   double t54014, t54015, t54017, t54019, t54025, t54029, t54045, t54078;
5158   double t54080, t54089, t54095, t54141, t54191, t54195, t54204, t54209;
5159   double t54224, t54229, t54232, t54252, t54257, t54261, t54262, t54265;
5160   double t54267, t54273, t54274, t54283, t54310, t54326, t54334, t54343;
5161   double t54346, t54355, t54358, t54361, t54368, t54374, t54377, t54384;
5162   double t54387, t54390, t54399, t54409, t54413, t54416, t54417, t54418;
5163   double t54432, t54446, t54450, t54468, t54470, t54475, t54498, t54521;
5164   double t54543, t54560, t54563, t54570, t54595, t54600, t54608, t54610;
5165   double t54614, t54615, t54617, t54621, t54661, t54703, t54708, t54710;
5166   double t54718, t54719, t54757, t54778, t54782, t54785, t54802, t54811;
5167   double t54812, t54815, t54826, t54845, t54848, t54851, t54854, t54867;
5168   double t54885, t54888, t54889, t54892, t54893, t54896, t54903, t54906;
5169   double t54910, t54913, t54930, t54953, t54969, t54988, t55001, t55015;
5170   double t55032, t55037, t55052, t55070, t55087, t55088, t55093, t55101;
5171   double t55107, t55112, t55114, t55116, t55122, t55125, t55138, t55147;
5172   double t55155, t55160, t55178, t55188, t55189, t55194, t55199, t55205;
5173   double t55207, t55209, t55213, t55221, t55222, t55229, t55249, t55250;
5174   double t55252, t55256, t55261, t55271, t55306, t55308, t55369, t55388;
5175   double t55419, t55425, t55428, t55452, t55453, t55467, t55471, t55498;
5176   double t55516, t55533, t55542, t55545, t55548, t55555, t55576, t55592;
5177   double t55599, t55602, t55605, t55606, t55619, t55632, t55639, t55646;
5178   double t55655, t55672, t55694, t55707, t55712, t55714, t55715, t55729;
5179   double t55752, t55762, t55769, t55775, t55781, t55789, t55800, t55808;
5180   double t55815, t55822, t55833, t55866, t55881, t55911, t55941, t55962;
5181   double t55990, t56011, t56039, t56041, t56046, t56051, t56058, t56087;
5182   double t56108, t56131, t56158, t56160, t56161, t56179, t56196, t56213;
5183   double t56218, t56227, t56230, t56234, t56240, t56242, t56246, t56247;
5184   double t56251, t56256, t56261, t56265, t56266, t56270, t56276, t56278;
5185   double t56280, t56282, t56287, t56290, t56293, t56296, t56299, t56301;
5186   double t56303, t56322, t56326, t56332, t56348, t56351, t56358, t56362;
5187   double t56365, t56368, t56384, t56385, t56388, t56390, t56411, t56429;
5188   double t56430, t56435, t56438, t56440, t56444, t56448, t56467, t56469;
5189   double t56472, t56476, t56485, t56486, t56489, t56492, t56493, t56496;
5190   double t56501, t56519, t56524, t56532, t56545, t56549, t56552, t56555;
5191   double t56556, t56563, t56565, t56574, t56577, t56581, t56584, t56591;
5192   double t56594, t56597, t56600, t56601, t56604, t56609, t56611, t56614;
5193   double t56620, t56622, t56624, t56626, t56634, t56638, t56643, t56645;
5194   double t56649, t56652, t56656, t56659, t56661, t56668, t56673, t56675;
5195   double t56678, t56682, t56687, t56692, t56696, t56699, t56700, t56702;
5196   double t56703, t56706, t56710, t56711, t56712, t56714, t56715, t56718;
5197   double t56719, t56721, t56722, t56725, t56728, t56730, t56732, t56739;
5198   double t56743, t56746, t56749, t56753, t56763, t56771, t56777, t56795;
5199   double t56799, t56800, t56805, t56809, t56832, t56845, t56858, t56861;
5200   double t56863, t56865, t56867, t56869, t56871, t56873, t56876, t56878;
5201   double t56879, t56881, t56883, t56885, t56887, t56889, t56891, t56893;
5202   double t56895, t56897, t56899, t56901, t56903, t56905, t56908, t56911;
5203   double t56914, t56916, t56918, t56919, t56921, t56923, t56925, t56927;
5204   double t56929, t56931, t56933, t56936, t56938, t56940, t56969, t56993;
5205   double t56994, t57010, t57012, t57050, t57054, t57055, t57057, t57078;
5206   double t57086, t57090, t57116, t57123, t57129, t57149, t57155, t57156;
5207   double t57158, t57177, t57181, t57192, t57194, t57212, t57232, t57234;
5208   double t57255, t57257, t57284, t57320, t57380, t57381, t57428, t57434;
5209   double t57461, t57462, t57465, t57468, t57474, t57477, t57487, t57494;
5210   double t57495, t57504, t57505, t57508, t57516, t57527, t57530, t57531;
5211   double t57534, t57537, t57542, t57545, t57548, t57554, t57555, t57556;
5212   double t57569, t57582, t57585, t57586, t57589, t57590, t57592, t57596;
5213   double t57599, t57600, t57602, t57606, t57610, t57617, t57618, t57619;
5214   double t57621, t57625, t57629, t57631, t57632, t57638, t57645, t57648;
5215   double t57651, t57654, t57656, t57665, t57671, t57678, t57683, t57685;
5216   double t57687, t57689, t57690, t57692, t57694, t57696, t57700, t57701;
5217   double t57703, t57705, t57712, t57719, t57721, t57728, t57731, t57733;
5218   double t57735, t57737, t57741, t57744, t57752, t57756, t57762, t57769;
5219   double t57774, t57777, t57781, t57784, t57786, t57790, t57792, t57794;
5220   double t57796, t57798, t57799, t57801, t57802, t57804, t57806, t57807;
5221   double t57809, t57811, t57812, t57815, t57818, t57822, t57824, t57850;
5222   double t57855, t57868, t57885, t57887, t57890, t57893, t57896, t57898;
5223   double t57902, t57910, t57914, t57931, t57937, t57941, t57954, t57964;
5224   double t57970, t57999, t58007, t58011, t58015, t58032, t58044, t58048;
5225   double t58061, t58068, t58088, t58091, t58093, t58096, t58112, t58119;
5226   double t58124, t58140, t58143, t58144, t58151, t58154, t58158, t58170;
5227   double t58174, t58178, t58181, t58183, t58185, t58189, t58194, t58196;
5228   double t58199, t58202, t58204, t58207, t58210, t58212, t58215, t58218;
5229   double t58219, t58220, t58223, t58227, t58229, t58230, t58232, t58236;
5230   double t58238, t58240, t58242, t58244, t58247, t58249, t58251, t58254;
5231   double t58255, t58259, t58261, t58263, t58264, t58267, t58270, t58273;
5232   double t58276, t58280, t58285, t58288, t58291, t58292, t58294, t58296;
5233   double t58298, t58300, t58303, t58306, t58309, t58312, t58315, t58318;
5234   double t58321, t58323, t58325, t58326, t58329, t58331, t58333, t58345;
5235   double t58349, t58357, t58361, t58365, t58369, t58373, t58383, t58389;
5236   double t58391, t58394, t58395, t58402, t58404, t58407, t58408, t58412;
5237   double t58414, t58416, t58419, t58445, t58466, t58469, t58471, t58473;
5238   double t58475, t58476, t58482, t58485, t58487, t58494, t58496, t58499;
5239   double t58502, t58505, t58522, t58526, t58528, t58529, t58531, t58533;
5240   double t58535, t58536, t58540, t58549, t58554, t58557, t58561, t58581;
5241   double t58582, t58584, t58586, t58588, t58591, t58595, t58598, t58600;
5242   double t58601, t58603, t58605, t58606, t58608, t58609, t58630, t58634;
5243   double t58645, t58648, t58661, t58662, t58663, t58665, t58666, t58669;
5244   double t58671, t58672, t58677, t58680, t58684, t58686, t58691, t58696;
5245   double t58698, t58700, t58702, t58707, t58712, t58714, t58716, t58721;
5246   double t58722, t58731, t58736, t58737, t58738, t58739, t58742, t58743;
5247   double t58750, t58755, t58759, t58762, t58766, t58770, t58779, t58781;
5248   double t58792, t58808, t58815, t58836, t58858, t58869, t58881, t58882;
5249   double t58885, t58897, t58907, t58911, t58913, t58931, t58936, t58938;
5250   double t58942, t58953, t58955, t58965, t58968, t58971, t58981, t58986;
5251   double t58989, t59049, t59059, t59093, t59104, t59115, t59126, t59128;
5252   double t59145, t59194, t59198, t59226, t59251, t59255, t59257, t59262;
5253   double t59270, t59273, t59276, t59277, t59280, t59289, t59292, t59296;
5254   double t59302, t59311, t59314, t59319, t59322, t59325, t59326, t59327;
5255   double t59340, t59353, t59369, t59391, t59416, t59430, t59434, t59441;
5256   double t59442, t59449, t59456, t59464, t59481, t59498, t59519, t59532;
5257   double t59534, t59559, t59561, t59573, t59585, t59594, t59600, t59616;
5258   double t59619, t59639, t59663, t59669, t59681, t59697, t59699, t59701;
5259   double t59710, t59730, t59740, t59741, t59748, t59763, t59777, t59779;
5260   double t59789, t59813, t59817, t59832, t59849, t59871, t59873, t59895;
5261   double t59925, t59940, t59942, t59945, t59948, t59958, t59986, t60010;
5262   double t60022, t60024, t60026, t60027, t60061, t60091, t60107, t60133;
5263   double t60135, t60137, t60168, t60195, t60202, t60204, t60206, t60208;
5264   double t60211, t60213, t60215, t60223, t60239, t60249, t60276, t60281;
5265   double t60284, t60286, t60329, t60368, t60371, t60398, t60419, t60441;
5266   double t60462, t60485, t60502, t60503, t60506, t60524, t60525, t60532;
5267   double t60549, t60567, t60574, t60579, t60580, t60589, t60619, t60649;
5268   double t60678, t60708, t60719, t60739, t60767, t60777, t60802, t60806;
5269   double t60807, t60813, t60820, t60825, t60830, t60848, t60877, t60908;
5270   double t60931, t60957, t60976, t60994, t61015, t61042, t61063, t61083;
5271   double t61111, t61126, t61131, t61136, t61145, t61167, t61180, t61187;
5272   double t61190, t61203, t61253, t61265, t61322, t61357, t61379, t61380;
5273   double t61401, t61415, t61419, t61421, t61423, t61435, t61440, t61445;
5274   double t61458, t61463, t61476, t61477, t61481, t61497, t61506, t61508;
5275   double t61512, t61514, t61517, t61520, t61523, t61538, t61541, t61546;
5276   double t61549, t61555, t61568, t61578, t61581, t61605, t61611, t61638;
5277   double t61639, t61652, t61654, t61657, t61660, t61663, t61672, t61695;
5278   double t61703, t61706, t61720, t61728, t61742, t61747, t61758, t61769;
5279   double t61795, t61820, t61831, t61836, t61839, t61840, t61841, t61846;
5280   double t61847, t61858, t61871, t61875, t61882, t61884, t61892, t61895;
5281   double t61900, t61902, t61904, t61906, t61909, t61911, t61913, t61916;
5282   double t61919, t61921, t61924, t61944, t61948, t61952, t61967, t61976;
5283   double t61980, t61983, t61989, t61993, t62004, t62005, t62012, t62025;
5284   double t62047, t62085, t62123, t62156, t62157, t62168, t62188, t62223;
5285   double t62250, t62251, t62256, t62270, t62279, t62292, t62294, t62296;
5286   double t62299, t62304, t62306, t62308, t62310, t62312, t62314, t62316;
5287   double t62318, t62319, t62321, t62330, t62332, t62334, t62336, t62338;
5288   double t62339, t62342, t62362, t62366, t62370, t62398, t62402, t62407;
5289   double t62424, t62438, t62442, t62444, t62445, t62448, t62454, t62455;
5290   double t62458, t62467, t62471, t62477, t62478, t62487, t62488, t62499;
5291   double t62500, t62509, t62521, t62527, t62535, t62539, t62546, t62549;
5292   double t62552, t62559, t62560, t62562, t62565, t62568, t62588, t62590;
5293   double t62595, t62597, t62599, t62601, t62604, t62607, t62615, t62617;
5294   double t62618, t62621, t62623, t62626, t62629, t62632, t62641, t62646;
5295   double t62654, t62657, t62664, t62673, t62684, t62687, t62692, t62696;
5296   double t62699, t62701, t62704, t62707, t62709, t62712, t62714, t62717;
5297   double t62719, t62723, t62742, t62747, t62753, t62756, t62762, t62763;
5298   double t62767, t62773, t62782, t62786, t62790, t62794, t62806, t62809;
5299   double t62812, t62813, t62829, t62831, t62833, t62837, t62838, t62841;
5300   double t62851, t62854, t62856, t62858, t62862, t62864, t62868, t62871;
5301   double t62876, t62880, t62883, t62886, t62891, t62898, t62901, t62903;
5302   double t62907, t62909, t62913, t62921, t62923, t62925, t62930, t62933;
5303   double t62938, t62941, t62943, t62944, t62957, t62961, t62965, t62967;
5304   double t62969, t62971, t62975, t62980, t62982, t62984, t62985, t62989;
5305   double t62993, t62997, t63009, t63019, t63026, t63028, t63031, t63033;
5306   double t63035, t63039, t63040, t63043, t63044, t63046, t63047, t63049;
5307   double t63051, t63053, t63055, t63061, t63065, t63091, t63094, t63095;
5308   double t63099, t63106, t63109, t63111, t63113, t63118, t63189, t63223;
5309   double t63230, t63235, t63257, t63294, t63322, t63345, t63359, t63360;
5310   double t63381, t63410, t63414, t63435, t63439, t63442, t63481, t63504;
5311   double t63538, t63561, t63592, t63618, t63646, t63669, t63696, t63702;
5312   double t63719, t63729, t63761, t63771, t63797, t63843, t63856, t63857;
5313   double t63866, t63880, t63922, t63926, t63952, t64005, t64042, t64065;
5314   double t64108, t64132, t64148, t64175, t64184, t64242, t64270, t64294;
5315   double t64322, t64324, t64331, t64371, t64375, t64406, t64437, t64462;
5316   double t64473, t64495, t64515, t64540, t64546, t64560, t64580, t64611;
5317   double t64628, t64658, t64681, t64685, t64705, t64716, t64718, t64720;
5318   double t64722, t64733, t64737, t64745, t64761, t64768, t64781, t64800;
5319   double t64840, t64850, t64875, t64876, t64878, t64894, t64903, t64904;
5320   double t64906, t64908, t64910, t64912, t64926, t64927, t64938, t64942;
5321   double t64943, t64945, t64947, t64949, t64956, t64958, t64973, t64975;
5322   double t64980, t64984, t65036, t65040, t65051, t65052, t65054, t65056;
5323   double t65058, t65066, t65068, t65070, t65094, t65101, t65102, t65149;
5324   double t65153, t65190, t65229, t65257, t65269, t65275, t65277, t65301;
5325   double t65303, t65305, t65314, t65319, t65323, t65334, t65336, t65358;
5326   double t65360, t65379, t65381, t65388, t65395, t65403, t65404, t65412;
5327   double t65415, t65416, t65421, t65424, t65425, t65426, t65434, t65452;
5328   double t65456, t65457, t65476, t65479, t65498, t65557, t65567, t65589;
5329   double t65607, t65619, t65648, t65657, t65691, t65728, t65764, t65770;
5330   double t65805, t65810, t65813, t65824, t65845, t65848, t65865, t65869;
5331   double t65871, t65872, t65874, t65880, t65883, t65885, t65891, t65897;
5332   double t65901, t65904, t65909, t65945, t65964, t65986, t66021, t66027;
5333   double t66068, t66077, t66086, t66088, t66091, t66096, t66098, t66104;
5334   double t66113, t66115, t66137, t66139, t66155, t66157, t66172, t66174;
5335   double t66209, t66234, t66248, t66288, t66317, t66327, t66330, t66335;
5336   double t66337, t66339, t66341, t66344, t66388, t66429, t66432, t66440;
5337   double t66445, t66447, t66449, t66450, t66502, t66516, t66537, t66547;
5338   double t66587, t66590, t66628, t66646, t66651, t66665, t66670, t66675;
5339   double t66679, t66683, t66731, t66733, t66756, t66765, t66795, t66820;
5340   double t66838, t66847, t66874, t66877, t66897, t66942, t66945, t66948;
5341   double t66952, t66990, t67028, t67061, t67075, t67084, t67086, t67088;
5342   double t67090, t67092, t67094, t67101, t67124, t67161, t67163, t67166;
5343   double t67175, t67184, t67203, t67217, t67252, t67288, t67322, t67334;
5344   double t67374, t67377, t67424, t67464, t67467, t67469, t67472, t67475;
5345   double t67476, t67479, t67480, t67487, t67555, t67604, t67605, t67636;
5346   double t67675, t67718, t67720, t67745, t67826, t67852, t67854, t67885;
5347   double t67924, t67963, t68004, t68006, t68038, t68048, t68050, t68052;
5348   double t68054, t68056, t68058, t68060, t68063, t68067, t68070, t68072;
5349   double t68074, t68077, t68080, t68081, t68083, t68087, t68089, t68091;
5350   double t68094, t68095, t68101, t68102, t68104, t68108, t68111, t68114;
5351   double t68120, t68123, t68125, t68128, t68131, t68135, t68140, t68142;
5352   double t68144, t68145, t68148, t68149, t68152, t68155, t68156, t68158;
5353   double t68162, t68163, t68167, t68170, t68172, t68175, t68176, t68178;
5354   double t68179, t68181, t68182, t68184, t68188, t68194, t68195, t68197;
5355   double t68199, t68201, t68204, t68205, t68207, t68209, t68213, t68216;
5356   double t68218, t68221, t68223, t68224, t68227, t68229, t68233, t68237;
5357   double t68241, t68242, t68244, t68248, t68251, t68254, t68256, t68257;
5358   double t68261, t68266, t68269, t68272, t68274, t68276, t68277, t68280;
5359   double t68283, t68285, t68287, t68289, t68290, t68292, t68293, t68296;
5360   double t68297, t68300, t68301, t68302, t68305, t68306, t68309, t68310;
5361   double t68314, t68316, t68322, t68326, t68330, t68334, t68338, t68341;
5362   double t68342, t68344, t68346, t68351, t68354, t68357, t68361, t68364;
5363   double t68373, t68374, t68376, t68377, t68379, t68382, t68383, t68385;
5364   double t68390, t68392, t68394, t68396, t68398, t68399, t68400, t68403;
5365   double t68409, t68410, t68411, t68412, t68413, t68416, t68419, t68421;
5366   double t68423, t68425, t68427, t68430, t68436, t68440, t68441, t68443;
5367   double t68444, t68446, t68448, t68449, t68452, t68453, t68455, t68456;
5368   double t68457, t68459, t68463, t68464, t68468, t68469, t68471, t68473;
5369   double t68475, t68479, t68481, t68483, t68484, t68486, t68489, t68492;
5370   double t68495, t68496, t68498, t68501, t68502, t68505, t68508, t68509;
5371   double t68512, t68517, t68518, t68521, t68522, t68523, t68527, t68531;
5372   double t68538, t68542, t68543, t68548, t68551, t68554, t68556, t68558;
5373   double t68560, t68562, t68564, t68566, t68568, t68577, t68579, t68583;
5374   double t68585, t68587, t68590, t68592, t68595, t68596, t68598, t68602;
5375   double t68604, t68607, t68608, t68610, t68611, t68613, t68615, t68617;
5376   double t68619, t68621, t68623, t68625, t68627, t68629, t68630, t68632;
5377   double t68636, t68638, t68640, t68643, t68646, t68648, t68651, t68653;
5378   double t68655, t68656, t68660, t68664, t68668, t68671, t68675, t68677;
5379   double t68679, t68681, t68686, t68689, t68690, t68692, t68693, t68694;
5380   double t68697, t68702, t68705, t68706, t68707, t68711, t68717, t68720;
5381   double t68721, t68725, t68726, t68734, t68735, t68736, t68737, t68738;
5382   double t68739, t68740, t68743, t68747, t68751, t68752, t68754, t68755;
5383   double t68758, t68760, t68761, t68763, t68765, t68767, t68768, t68771;
5384   double t68772, t68775, t68780, t68784, t68792, t68793, t68796, t68800;
5385   double t68803, t68805, t68808, t68812, t68813, t68815, t68817, t68820;
5386   double t68822, t68825, t68828, t68830, t68833, t68835, t68837, t68841;
5387   double t68844, t68845, t68847, t68848, t68849, t68850, t68853, t68855;
5388   double t68856, t68859, t68861, t68864, t68866, t68873, t68877, t68879;
5389   double t68880, t68881, t68884, t68886, t68896, t68898, t68899, t68903;
5390   double t68907, t68910, t68922, t68925, t68934, t68939, t68943, t68944;
5391   double t68946, t68947, t68956, t68957, t68959, t68962, t68965, t68968;
5392   double t68969, t68972, t68984, t68992, t68993, t68995, t68997, t68999;
5393   double t69001, t69004, t69006, t69008, t69009, t69010, t69012, t69015;
5394   double t69016, t69017, t69019, t69022, t69023, t69024, t69027, t69029;
5395   double t69031, t69034, t69035, t69037, t69039, t69043, t69050, t69051;
5396   double t69060, t69068, t69070, t69077, t69081, t69087, t69090, t69094;
5397   double t69099, t69101, t69103, t69109, t69111, t69116, t69118, t69119;
5398   double t69124, t69129, t69133, t69151, t69160, t69161, t69162, t69167;
5399   double t69173, t69185, t69187, t69193, t69205, t69207, t69213, t69218;
5400   double t69226, t69230, t69237, t69241, t69253, t69254, t69258, t69259;
5401   double t69266, t69272, t69295, t69299, t69300, t69326, t69332, t69335;
5402   double t69341, t69349, t69359, t69369, t69373, t69396, t69403, t69404;
5403   double t69410, t69412, t69413, t69415, t69420, t69423, t69426, t69430;
5404   double t69436, t69438, t69446, t69448, t69453, t69456, t69459, t69461;
5405   double t69466, t69467, t69470, t69472, t69475, t69476, t69478, t69481;
5406   double t69484, t69488, t69491, t69494, t69498, t69499, t69500, t69502;
5407   double t69505, t69506, t69509, t69511, t69513, t69517, t69521, t69529;
5408   double t69531, t69533, t69537, t69539, t69543, t69544, t69547, t69550;
5409   double t69553, t69555, t69558, t69561, t69564, t69568, t69573, t69577;
5410   double t69581, t69590, t69593, t69597, t69599, t69601, t69603, t69607;
5411   double t69613, t69619, t69620, t69622, t69624, t69626, t69628, t69630;
5412   double t69636, t69638, t69640, t69642, t69648, t69653, t69657, t69665;
5413   double t69667, t69676, t69680, t69681, t69682, t69684, t69688, t69692;
5414   double t69708, t69709, t69711, t69728, t69729, t69732, t69734, t69739;
5415   double t69747, t69748, t69749, t69751, t69752, t69756, t69758, t69770;
5416   double t69773, t69777, t69779, t69785, t69789, t69795, t69796, t69798;
5417   double t69800, t69803, t69805, t69809, t69811, t69815, t69819, t69827;
5418   double t69828, t69833, t69839, t69840, t69849, t69850, t69853, t69855;
5419   double t69858, t69860, t69861, t69864, t69870, t69877, t69880, t69881;
5420   double t69882, t69883, t69884, t69885, t69886, t69887, t69888, t69889;
5421   double t69893, t69899, t69900, t69912, t69913, t69914, t69925, t69938;
5422   double t69954, t69965, t69970, t69988, t69989, t69991, t69992, t70008;
5423   double t70016, t70020, t70021, t70024, t70026, t70028, t70029, t70031;
5424   double t70032, t70034, t70037, t70039, t70040, t70045, t70047, t70050;
5425   double t70058, t70063, t70066, t70067, t70068, t70069, t70070, t70073;
5426   double t70074, t70075, t70076, t70080, t70081, t70082, t70085, t70086;
5427   double t70087, t70088, t70091, t70092, t70095, t70097, t70099, t70101;
5428   double t70104, t70106, t70108, t70114, t70120, t70122, t70131, t70133;
5429   double t70137, t70141, t70147, t70151, t70158, t70171, t70172, t70173;
5430   double t70174, t70175, t70176, t70179, t70181, t70183, t70185, t70190;
5431   double t70191, t70193, t70196, t70205, t70207, t70209, t70213, t70217;
5432   double t70220, t70221, t70222, t70224, t70225, t70227, t70228, t70231;
5433   double t70234, t70235, t70236, t70240, t70242, t70246, t70251, t70254;
5434   double t70257, t70259, t70263, t70267, t70270, t70271, t70272, t70275;
5435   double t70281, t70283, t70285, t70289, t70290, t70299, t70303, t70305;
5436   double t70306, t70309, t70311, t70314, t70315, t70319, t70322, t70325;
5437   double t70329, t70331, t70336, t70338, t70340, t70342, t70344, t70361;
5438   double t70364, t70365, t70366, t70370, t70371, t70372, t70373, t70374;
5439   double t70375, t70376, t70377, t70378, t70384, t70390, t70393, t70405;
5440   double t70411, t70413, t70415, t70418, t70421, t70422, t70425, t70429;
5441   double t70431, t70433, t70440, t70446, t70448, t70450, t70451, t70452;
5442   double t70455, t70458, t70461, t70465, t70467, t70469, t70472, t70473;
5443   double t70476, t70478, t70479, t70483, t70490, t70493, t70496, t70499;
5444   double t70502, t70508, t70513, t70514, t70517, t70520, t70524, t70526;
5445   double t70529, t70533, t70535, t70537, t70539, t70541, t70551, t70553;
5446   double t70557, t70558, t70562, t70564, t70567, t70569, t70572, t70573;
5447   double t70575, t70577, t70579, t70581, t70583, t70584, t70586, t70588;
5448   double t70590, t70592, t70593, t70603, t70606, t70611, t70615, t70621;
5449   double t70623, t70625, t70627, t70631, t70634, t70637, t70639, t70641;
5450   double t70643, t70645, t70646, t70648, t70651, t70653, t70654, t70656;
5451   double t70658, t70659, t70661, t70664, t70668, t70670, t70672, t70675;
5452   double t70677, t70679, t70682, t70691, t70710, t70729, t70730, t70736;
5453   double t70743, t70744, t70747, t70748, t70752, t70756, t70759, t70762;
5454   double t70764, t70768, t70770, t70774, t70788, t70790, t70792, t70794;
5455   double t70796, t70803, t70805, t70807, t70809, t70811, t70813, t70815;
5456   double t70817, t70820, t70827, t70832, t70854, t70855, t70858, t70861;
5457   double t70866, t70874, t70876, t70878, t70880, t70882, t70884, t70893;
5458   double t70894, t70901, t70903, t70905, t70910, t70912, t70920, t70935;
5459   double t70938, t70943, t70945, t70947, t70954, t70959, t70968, t70973;
5460   double t70986, t70988, t70990, t70992, t70995, t71001, t71005, t71011;
5461   double t71019, t71023, t71026, t71027, t71029, t71032, t71033, t71034;
5462   double t71036, t71038, t71040, t71047, t71050, t71066, t71075, t71078;
5463   double t71079, t71083, t71085, t71087, t71094, t71099, t71102, t71104;
5464   double t71106, t71108, t71110, t71116, t71118, t71136, t71139, t71142;
5465   double t71144, t71149, t71151, t71158, t71160, t71162, t71165, t71168;
5466   double t71170, t71179, t71181, t71184, t71187, t71196, t71206, t71208;
5467   double t71210, t71213, t71222, t71234, t71237, t71240, t71242, t71244;
5468   double t71246, t71248, t71250, t71253, t71255, t71257, t71261, t71274;
5469   double t71276, t71286, t71288, t71290, t71292, t71294, t71295, t71297;
5470   double t71305, t71310, t71312, t71322, t71331, t71334, t71337, t71340;
5471   double t71341, t71345, t71352, t71353, t71356, t71359, t71361, t71363;
5472   double t71366, t71369, t71372, t71380, t71382, t71384, t71386, t71388;
5473   double t71390, t71392, t71403, t71409, t71423, t71425, t71429, t71434;
5474   double t71436, t71442, t71444, t71445, t71447, t71457, t71459, t71463;
5475   double t71471, t71476, t71478, t71485, t71492, t71494, t71497, t71499;
5476   double t71508, t71511, t71513, t71515, t71518, t71520, t71536, t71540;
5477   double t71546, t71549, t71551, t71553, t71560, t71565, t71567, t71569;
5478   double t71579, t71583, t71621, t71627, t71628, t71631, t71636, t71647;
5479   double t71654, t71674, t71698, t71702, t71704, t71708, t71718, t71721;
5480   double t71727, t71729, t71733, t71739, t71746, t71747, t71753, t71770;
5481   double t71771, t71772, t71774, t71776, t71779, t71780, t71782, t71788;
5482   double t71798, t71808, t71811, t71844, t71856, t71863, t71864, t71872;
5483   double t71890, t71894, t71937, t71943, t71945, t71963, t71985, t71996;
5484   double t71998, t72001, t72005, t72008, t72018, t72031, t72041, t72043;
5485   double t72063, t72065, t72068, t72070, t72074, t72077, t72078, t72081;
5486   double t72084, t72085, t72088, t72089, t72093, t72100, t72103, t72105;
5487   double t72109, t72113, t72114, t72118, t72123, t72128, t72146, t72157;
5488   double t72168, t72178, t72183, t72187, t72198, t72210, t72213, t72216;
5489   double t72219, t72228, t72234, t72238, t72244, t72257, t72262, t72264;
5490   double t72268, t72272, t72278, t72280, t72288, t72290, t72316, t72336;
5491   double t72339, t72345, t72347, t72351, t72353, t72358, t72360, t72377;
5492   double t72395, t72402, t72404, t72418, t72436, t72447, t72474, t72479;
5493   double t72481, t72499, t72502, t72505, t72509, t72531, t72537, t72545;
5494   double t72546, t72550, t72554, t72558, t72573, t72574, t72578, t72582;
5495   double t72587, t72604, t72621, t72634, t72636, t72654, t72668, t72676;
5496   double t72681, t72687, t72708, t72711, t72726, t72741, t72744, t72746;
5497   double t72749, t72751, t72754, t72764, t72770, t72772, t72775, t72777;
5498   double t72800, t72830, t72851, t72886, t72887, t72899, t72911, t72926;
5499   double t72937, t72941, t72948, t72956, t72973, t72976, t72978, t72988;
5500   double t72999, t73012, t73019, t73024, t73036, t73049, t73070, t73087;
5501   double t73101, t73117, t73130, t73143, t73156, t73168, t73178, t73199;
5502   double t73203, t73206, t73212, t73223, t73228, t73229, t73233, t73234;
5503   double t73239, t73248, t73250, t73251, t73270, t73272, t73280, t73283;
5504   double t73289, t73293, t73299, t73303, t73307, t73310, t73315, t73320;
5505   double t73328, t73339, t73341, t73359, t73365, t73370, t73372, t73387;
5506   double t73395, t73396, t73397, t73401, t73408, t73424, t73430, t73436;
5507   double t73442, t73445, t73451, t73459, t73466, t73476, t73480, t73494;
5508   double t73530, t73531, t73535, t73538, t73543, t73544, t73572, t73576;
5509   double t73577, t73580, t73588, t73606, t73617, t73629, t73634, t73638;
5510   double t73644, t73646, t73654, t73656, t73667, t73677, t73680, t73686;
5511   double t73689, t73692, t73695, t73698, t73701, t73705, t73709, t73712;
5512   double t73715, t73720, t73721, t73723, t73725, t73729, t73732, t73734;
5513   double t73737, t73739, t73743, t73747, t73751, t73753, t73756, t73761;
5514   double t73766, t73769, t73776, t73778, t73779, t73781, t73783, t73785;
5515   double t73787, t73789, t73790, t73792, t73793, t73795, t73796, t73798;
5516   double t73801, t73805, t73812, t73816, t73820, t73821, t73824, t73825;
5517   double t73828, t73829, t73831, t73832, t73834, t73836, t73841, t73843;
5518   double t73844, t73847, t73848, t73858, t73861, t73863, t73865, t73867;
5519   double t73869, t73871, t73872, t73881, t73885, t73889, t73890, t73892;
5520   double t73894, t73896, t73898, t73900, t73902, t73903, t73905, t73906;
5521   double t73908, t73909, t73914, t73916, t73918, t73921, t73922, t73927;
5522   double t73932, t73934, t73937, t73939, t73942, t73944, t73949, t73952;
5523   double t73981, t73983, t73984, t73986, t73988, t73992, t73994, t73996;
5524   double t73999, t74002, t74006, t74008, t74011, t74013, t74021, t74024;
5525   double t74026, t74031, t74038, t74040, t74044, t74048, t74052, t74056;
5526   double t74058, t74061, t74064, t74068, t74072, t74076, t74079, t74083;
5527   double t74087, t74093, t74095, t74102, t74112, t74116, t74129, t74138;
5528   double t74139, t74147, t74150, t74151, t74159, t74163, t74165, t74167;
5529   double t74174, t74178, t74180, t74185, t74186, t74187, t74190, t74191;
5530   double t74199, t74201, t74209, t74211, t74216, t74220, t74221, t74224;
5531   double t74225, t74227, t74229, t74238, t74241, t74245, t74248, t74251;
5532   double t74255, t74256, t74258, t74276, t74279, t74282, t74294, t74296;
5533   double t74297, t74306, t74310, t74314, t74320, t74322, t74323, t74327;
5534   double t74328, t74329, t74331, t74332, t74338, t74342, t74347, t74349;
5535   double t74351, t74353, t74355, t74357, t74359, t74362, t74365, t74368;
5536   double t74370, t74373, t74376, t74377, t74379, t74380, t74412, t74416;
5537   double t74425, t74440, t74443, t74445, t74453, t74473, t74476, t74481;
5538   double t74484, t74486, t74495, t74500, t74507, t74510, t74518, t74524;
5539   double t74534, t74556, t74593, t74595, t74599, t74601, t74625, t74635;
5540   double t74637, t74668, t74673, t74680, t74687, t74708, t74709, t74715;
5541   double t74721, t74726, t74729, t74734, t74739, t74740, t74745, t74756;
5542   double t74757, t74763, t74766, t74767, t74770, t74776, t74777, t74778;
5543   double t74787, t74789, t74791, t74793, t74795, t74798, t74799, t74802;
5544   double t74804, t74805, t74809, t74810, t74812, t74813, t74815, t74816;
5545   double t74819, t74820, t74823, t74824, t74826, t74830, t74832, t74833;
5546   double t74837, t74841, t74845, t74848, t74853, t74855, t74857, t74859;
5547   double t74863, t74864, t74867, t74869, t74870, t74872, t74873, t74877;
5548   double t74878, t74881, t74887, t74890, t74892, t74895, t74897, t74899;
5549   double t74900, t74902, t74907, t74908, t74911, t74912, t74914, t74916;
5550   double t74919, t74927, t74929, t74931, t74933, t74935, t74938, t74941;
5551   double t74943, t74945, t74946, t74949, t74950, t74953, t74955, t74956;
5552   double t74957, t74958, t74960, t74962, t74965, t74967, t74969, t74971;
5553   double t74973, t74974, t74976, t74978, t74980, t74981, t74983, t74984;
5554   double t74986, t74990, t74994, t74998, t75001, t75004, t75006, t75007;
5555   double t75008, t75011, t75014, t75017, t75018, t75021, t75023, t75024;
5556   double t75027, t75029, t75033, t75037, t75038, t75041, t75043, t75045;
5557   double t75047, t75049, t75051, t75052, t75055, t75059, t75063, t75066;
5558   double t75067, t75069, t75071, t75075, t75078, t75081, t75084, t75085;
5559   double t75087, t75090, t75092, t75095, t75096, t75099, t75100, t75103;
5560   double t75105, t75106, t75109, t75110, t75112, t75114, t75116, t75117;
5561   double t75119, t75120, t75122, t75124, t75128, t75132, t75135, t75137;
5562   double t75141, t75145, t75150, t75154, t75158, t75160, t75162, t75164;
5563   double t75166, t75168, t75170, t75172, t75173, t75178, t75179, t75181;
5564   double t75182, t75184, t75186, t75190, t75194, t75198, t75200, t75203;
5565   double t75205, t75207, t75209, t75211, t75213, t75215, t75217, t75219;
5566   double t75221, t75224, t75229, t75231, t75235, t75236, t75239, t75240;
5567   double t75242, t75244, t75246, t75248, t75250, t75252, t75254, t75257;
5568   double t75259, t75261, t75263, t75265, t75267, t75270, t75273, t75276;
5569   double t75279, t75283, t75287, t75290, t75292, t75294, t75296, t75299;
5570   double t75301, t75305, t75309, t75313, t75317, t75320, t75321, t75323;
5571   double t75325, t75329, t75330, t75340, t75342, t75348, t75350, t75352;
5572   double t75353, t75355, t75357, t75360, t75362, t75364, t75366, t75368;
5573   double t75372, t75374, t75377, t75379, t75381, t75382, t75384, t75391;
5574   double t75397, t75398, t75401, t75410, t75413, t75415, t75418, t75421;
5575   double t75422, t75428, t75431, t75433, t75435, t75437, t75438, t75440;
5576   double t75442, t75446, t75450, t75454, t75458, t75463, t75467, t75470;
5577   double t75476, t75479, t75486, t75487, t75491, t75494, t75497, t75499;
5578   double t75501, t75504, t75505, t75507, t75510, t75512, t75513, t75515;
5579   double t75516, t75520, t75522, t75526, t75527, t75529, t75531, t75536;
5580   double t75538, t75542, t75545, t75548, t75549, t75552, t75556, t75558;
5581   double t75560, t75563, t75566, t75568, t75570, t75579, t75581, t75582;
5582   double t75585, t75588, t75595, t75599, t75603, t75607, t75611, t75617;
5583   double t75626, t75628, t75630, t75652, t75654, t75656, t75658, t75659;
5584   double t75683, t75686, t75691, t75692, t75696, t75701, t75706, t75707;
5585   double t75709, t75719, t75722, t75724, t75727, t75729, t75732, t75734;
5586   double t75740, t75745, t75749, t75753, t75760, t75763, t75766, t75776;
5587   double t75781, t75784, t75797, t75798, t75807, t75808, t75811, t75815;
5588   double t75817, t75819, t75821, t75827, t75829, t75832, t75838, t75841;
5589   double t75845, t75851, t75853, t75855, t75862, t75873, t75875, t75876;
5590   double t75878, t75880, t75886, t75888, t75889, t75892, t75893, t75896;
5591   double t75900, t75903, t75904, t75907, t75909, t75911, t75913, t75924;
5592   double t75925, t75927, t75928, t75930, t75931, t75932, t75935, t75936;
5593   double t75939, t75940, t75943, t75944, t75952, t75954, t75955, t75957;
5594   double t75968, t75978, t75982, t75987, t75988, t75989, t75990, t75991;
5595   double t75992, t75994, t75995, t75996, t75997, t75998, t75999, t76000;
5596   double t76002, t76004, t76007, t76008, t76011, t76015, t76017, t76018;
5597   double t76019, t76022, t76025, t76032, t76033, t76036, t76038, t76041;
5598   double t76043, t76047, t76049, t76051, t76053, t76055, t76058, t76060;
5599   double t76062, t76063, t76065, t76069, t76073, t76075, t76077, t76080;
5600   double t76082, t76084, t76087, t76088, t76090, t76096, t76097, t76102;
5601   double t76104, t76108, t76109, t76111, t76112, t76114, t76116, t76118;
5602   double t76129, t76145, t76151, t76154, t76157, t76164, t76175, t76185;
5603   double t76198, t76216, t76245, t76247, t76248, t76257, t76263, t76270;
5604   double t76271, t76272, t76280, t76285, t76288, t76304, t76326, t76353;
5605   double t76358, t76369, t76373, t76379, t76383, t76384, t76385, t76394;
5606   double t76404, t76406, t76408, t76410, t76413, t76416, t76418, t76421;
5607   double t76423, t76427, t76445, t76449, t76450, t76452, t76462, t76465;
5608   double t76467, t76468, t76469, t76473, t76477, t76481, t76486, t76492;
5609   double t76498, t76503, t76504, t76505, t76508, t76509, t76513, t76517;
5610   double t76522, t76532, t76534, t76535, t76537, t76539, t76541, t76543;
5611   double t76547, t76551, t76556, t76560, t76564, t76571, t76574, t76578;
5612   double t76579, t76582, t76584, t76586, t76587, t76590, t76591, t76593;
5613   double t76595, t76597, t76601, t76605, t76607, t76608, t76610, t76613;
5614   double t76615, t76635, t76642, t76644, t76646, t76648, t76649, t76654;
5615   double t76655, t76663, t76666, t76671, t76674, t76675, t76677, t76678;
5616   double t76682, t76686, t76689, t76694, t76695, t76696, t76698, t76701;
5617   double t76703, t76705, t76707, t76709, t76714, t76719, t76725, t76731;
5618   double t76732, t76735, t76737, t76742, t76745, t76747, t76751, t76757;
5619   double t76760, t76763, t76777, t76780, t76783, t76786, t76789, t76792;
5620   double t76794, t76798, t76807, t76809, t76812, t76814, t76823, t76824;
5621   double t76825, t76826, t76827, t76828, t76832, t76835, t76837, t76840;
5622   double t76841, t76844, t76845, t76848, t76849, t76850, t76853, t76854;
5623   double t76857, t76858, t76861, t76862, t76864, t76866, t76872, t76873;
5624   double t76884, t76885, t76890, t76893, t76896, t76898, t76900, t76902;
5625   double t76904, t76905, t76906, t76907, t76908, t76910, t76911, t76912;
5626   double t76915, t76916, t76919, t76928, t76931, t76935, t76936, t76937;
5627   double t76946, t76948, t76951, t76954, t76960, t76961, t76972, t76974;
5628   double t76977, t76978, t76981, t76986, t76988, t76989, t76993, t76995;
5629   double t76996, t76998, t77000, t77002, t77004, t77006, t77009, t77011;
5630   double t77013, t77016, t77019, t77021, t77027, t77030, t77033, t77036;
5631   double t77038, t77040, t77058, t77077, t77080, t77085, t77087, t77089;
5632   double t77090, t77092, t77094, t77096, t77099, t77100, t77101, t77104;
5633   double t77105, t77108, t77109, t77112, t77118, t77121, t77123, t77126;
5634   double t77128, t77130, t77132, t77135, t77137, t77138, t77140, t77141;
5635   double t77144, t77146, t77149, t77151, t77153, t77156, t77159, t77161;
5636   double t77162, t77167, t77168, t77169, t77173, t77175, t77176, t77178;
5637   double t77180, t77185, t77187, t77189, t77191, t77196, t77204, t77206;
5638   double t77208, t77210, t77217, t77227, t77234, t77235, t77237, t77239;
5639   double t77240, t77243, t77246, t77249, t77250, t77253, t77256, t77260;
5640   double t77261, t77264, t77267, t77269, t77271, t77272, t77275, t77277;
5641   double t77279, t77282, t77283, t77297, t77298, t77300, t77302, t77303;
5642   double t77306, t77309, t77310, t77311, t77314, t77330, t77331, t77332;
5643   double t77337, t77350, t77352, t77358, t77360, t77363, t77366, t77369;
5644   double t77370, t77373, t77377, t77381, t77384, t77389, t77394, t77397;
5645   double t77399, t77401, t77402, t77411, t77413, t77415, t77419, t77421;
5646   double t77423, t77424, t77426, t77428, t77436, t77438, t77439, t77443;
5647   double t77445, t77448, t77449, t77450, t77454, t77456, t77457, t77458;
5648   double t77460, t77464, t77466, t77468, t77472, t77476, t77478, t77480;
5649   double t77482, t77483, t77486, t77488, t77492, t77504, t77507, t77509;
5650   double t77511, t77515, t77517, t77521, t77522, t77524, t77530, t77532;
5651   double t77534, t77539, t77541, t77543, t77545, t77560, t77562, t77564;
5652   double t77569, t77572, t77582, t77584, t77586, t77592, t77594, t77598;
5653   double t77600, t77620, t77623, t77625, t77634, t77643, t77647, t77656;
5654   double t77662, t77678, t77682, t77686, t77691, t77693, t77703, t77705;
5655   double t77707, t77709, t77711, t77717, t77719, t77720, t77728, t77731;
5656   double t77733, t77735, t77741, t77745, t77755, t77759, t77768, t77774;
5657   double t77784, t77786, t77793, t77794, t77795, t77798, t77801, t77810;
5658   double t77818, t77824, t77827, t77835, t77837, t77839, t77841, t77843;
5659   double t77849, t77852, t77854, t77855, t77857, t77859, t77861, t77863;
5660   double t77865, t77869, t77876, t77877, t77885, t77887, t77889, t77890;
5661   double t77892, t77898, t77908, t77913, t77915, t77917, t77920, t77928;
5662   double t77937, t77944, t77957, t77967, t77969, t77971, t77973, t77976;
5663   double t77978, t77980, t77982, t77984, t77986, t77992, t77994, t77996;
5664   double t78000, t78004, t78020, t78022, t78024, t78028, t78035, t78040;
5665   double t78042, t78044, t78046, t78048, t78050, t78052, t78056, t78059;
5666   double t78060, t78062, t78064, t78066, t78068, t78070, t78072, t78075;
5667   double t78091, t78115, t78121, t78124, t78126, t78133, t78135, t78138;
5668   double t78142, t78147, t78150, t78157, t78160, t78162, t78165, t78172;
5669   double t78176, t78179, t78188, t78191, t78194, t78218, t78231, t78235;
5670   double t78250, t78253, t78256, t78259, t78261, t78264, t78271, t78274;
5671   double t78275, t78286, t78289, t78290, t78295, t78300, t78305, t78307;
5672   double t78309, t78311, t78313, t78316, t78319, t78322, t78324, t78326;
5673   double t78329, t78331, t78334, t78337, t78340, t78349, t78358, t78362;
5674   double t78364, t78366, t78367, t78368, t78369, t78370, t78371, t78372;
5675   double t78373, t78375, t78377, t78379, t78380, t78382, t78389, t78392;
5676   double t78401, t78403, t78405, t78409, t78411, t78417, t78421, t78423;
5677   double t78425, t78427, t78429, t78432, t78433, t78435, t78437, t78439;
5678   double t78441, t78444, t78451, t78454, t78459, t78473, t78475, t78486;
5679   double t78490, t78503, t78505, t78507, t78509, t78511, t78520, t78531;
5680   double t78535, t78538, t78539, t78541, t78544, t78546, t78551, t78560;
5681   double t78564, t78572, t78575, t78576, t78577, t78578, t78580, t78583;
5682   double t78586, t78589, t78592, t78593, t78604, t78630, t78633, t78653;
5683   double t78658, t78670, t78692, t78698, t78700, t78703, t78709, t78715;
5684   double t78733, t78748, t78772, t78773, t78782, t78786, t78791, t78796;
5685   double t78797, t78824, t78825, t78854, t78859, t78861, t78864, t78869;
5686   double t78874, t78875, t78879, t78882, t78889, t78896, t78902, t78906;
5687   double t78909, t78915, t78916, t78917, t78926, t78947, t78960, t78969;
5688   double t78989, t78991, t78993, t78997, t79001, t79011, t79037, t79039;
5689   double t79045, t79071, t79105, t79111, t79119, t79121, t79123, t79142;
5690   double t79175, t79185, t79202, t79206, t79207, t79219, t79221, t79223;
5691   double t79228, t79238, t79243, t79246, t79249, t79252, t79254, t79255;
5692   double t79260, t79267, t79291, t79295, t79318, t79325, t79333, t79335;
5693   double t79338, t79346, t79376, t79389, t79412, t79420, t79423, t79425;
5694   double t79439, t79446, t79450, t79454, t79478, t79483, t79502, t79534;
5695   double t79573, t79606, t79610, t79614, t79619, t79623, t79626, t79632;
5696   double t79635, t79671, t79693, t79696, t79707, t79729, t79732, t79740;
5697   double t79760, t79796, t79821, t79852, t79873, t79881, t79903, t79929;
5698   double t79961, t79980, t79981, t79985, t79989, t79993, t79999, t80022;
5699   double t80043, t80045, t80055, t80071, t80078, t80082, t80086, t80090;
5700   double t80100, t80111, t80115, t80119, t80133, t80136, t80158, t80170;
5701   double t80180, t80192, t80193, t80210, t80220, t80231, t80235, t80258;
5702   double t80259, t80260, t80274, t80278, t80289, t80291, t80295, t80301;
5703   double t80316, t80320, t80322, t80340, t80341, t80345, t80347, t80351;
5704   double t80355, t80371, t80396, t80403, t80407, t80417, t80420, t80436;
5705   double t80445, t80461, t80487, t80512, t80522, t80525, t80537, t80540;
5706   double t80542, t80558, t80580, t80590, t80604, t80606, t80616, t80622;
5707   double t80629, t80634, t80639, t80653, t80658, t80666, t80668, t80670;
5708   double t80671, t80672, t80675, t80676, t80678, t80679, t80683, t80684;
5709   double t80708, t80735, t80760, t80769, t80813, t80845, t80859, t80882;
5710   double t80908, t80923, t80940, t80962, t80981, t80995, t81023, t81028;
5711   double t81038, t81046, t81064, t81076, t81079, t81092, t81117, t81145;
5712   double t81160, t81182, t81192, t81211, t81226, t81227, t81244, t81248;
5713   double t81265, t81286, t81291, t81297, t81299, t81301, t81304, t81310;
5714   double t81317, t81321, t81328, t81342, t81356, t81382, t81388, t81398;
5715   double t81406, t81417, t81419, t81426, t81432, t81441, t81449, t81455;
5716   double t81458, t81460, t81464, t81485, t81493, t81518, t81527, t81529;
5717   double t81536, t81543, t81564, t81565, t81595, t81599, t81603, t81608;
5718   double t81612, t81615, t81621, t81624, t81642, t81647, t81650, t81659;
5719   double t81663, t81666, t81672, t81675, t81681, t81685, t81688, t81690;
5720   double t81692, t81695, t81699, t81703, t81704, t81712, t81714, t81718;
5721   double t81721, t81723, t81726, t81727, t81730, t81732, t81736, t81740;
5722   double t81742, t81743, t81745, t81748, t81751, t81754, t81755, t81756;
5723   double t81758, t81759, t81762, t81766, t81767, t81770, t81771, t81774;
5724   double t81775, t81778, t81779, t81781, t81784, t81785, t81787, t81788;
5725   double t81790, t81793, t81795, t81797, t81799, t81801, t81803, t81805;
5726   double t81807, t81809, t81810, t81812, t81818, t81822, t81826, t81830;
5727   double t81833, t81837, t81838, t81841, t81842, t81844, t81849, t81853;
5728   double t81857, t81868, t81869, t81872, t81874, t81876, t81878, t81879;
5729   double t81880, t81882, t81883, t81886, t81887, t81891, t81893, t81897;
5730   double t81900, t81904, t81908, t81914, t81936, t81963, t81991, t82011;
5731   double t82014, t82061, t82108, t82121, t82141, t82149, t82153, t82157;
5732   double t82164, t82169, t82172, t82174, t82177, t82179, t82181, t82184;
5733   double t82186, t82193, t82197, t82199, t82203, t82205, t82206, t82208;
5734   double t82210, t82218, t82221, t82226, t82231, t82233, t82251, t82253;
5735   double t82256, t82271, t82274, t82281, t82283, t82290, t82295, t82299;
5736   double t82301, t82308, t82312, t82318, t82322, t82335, t82336, t82339;
5737   double t82345, t82347, t82350, t82351, t82363, t82364, t82370, t82372;
5738   double t82373, t82375, t82379, t82380, t82382, t82384, t82388, t82391;
5739   double t82393, t82396, t82398, t82402, t82404, t82406, t82407, t82416;
5740   double t82420, t82423, t82429, t82432, t82435, t82448, t82450, t82454;
5741   double t82458, t82461, t82463, t82465, t82468, t82471, t82472, t82475;
5742   double t82479, t82480, t82484, t82489, t82490, t82494, t82496, t82498;
5743   double t82499, t82502, t82505, t82511, t82512, t82514, t82516, t82518;
5744   double t82522, t82523, t82527, t82528, t82531, t82533, t82534, t82537;
5745   double t82538, t82541, t82543, t82545, t82548, t82550, t82552, t82554;
5746   double t82555, t82558, t82560, t82563, t82565, t82569, t82570, t82571;
5747   double t82573, t82575, t82579, t82581, t82584, t82587, t82589, t82590;
5748   double t82593, t82594, t82596, t82598, t82602, t82605, t82608, t82612;
5749   double t82615, t82617, t82619, t82621, t82623, t82627, t82629, t82630;
5750   double t82632, t82635, t82636, t82639, t82640, t82643, t82647, t82652;
5751   double t82654, t82659, t82665, t82667, t82671, t82673, t82674, t82676;
5752   double t82678, t82682, t82686, t82692, t82695, t82696, t82698, t82700;
5753   double t82702, t82704, t82706, t82708, t82710, t82713, t82715, t82717;
5754   double t82719, t82722, t82723, t82727, t82732, t82735, t82739, t82746;
5755   double t82750, t82754, t82758, t82763, t82766, t82768, t82769, t82774;
5756   double t82775, t82777, t82780, t82781, t82783, t82784, t82785, t82788;
5757   double t82789, t82791, t82796, t82799, t82801, t82803, t82805, t82807;
5758   double t82811, t82813, t82814, t82818, t82839, t82840, t82844, t82847;
5759   double t82849, t82852, t82853, t82856, t82857, t82861, t82863, t82866;
5760   double t82867, t82870, t82871, t82873, t82880, t82882, t82884, t82887;
5761   double t82889, t82890, t82894, t82897, t82899, t82901, t82907, t82911;
5762   double t82915, t82916, t82922, t82926, t82930, t82932, t82934, t82939;
5763   double t82941, t82945, t82949, t82953, t82957, t82958, t82960, t82962;
5764   double t82977, t82981, t82985, t82990, t82992, t82995, t83007, t83011;
5765   double t83015, t83019, t83023, t83025, t83028, t83030, t83035, t83038;
5766   double t83040, t83053, t83057, t83062, t83066, t83080, t83084, t83089;
5767   double t83091, t83097, t83105, t83107, t83111, t83114, t83118, t83125;
5768   double t83127, t83131, t83133, t83135, t83137, t83139, t83143, t83147;
5769   double t83151, t83155, t83160, t83162, t83164, t83167, t83168, t83171;
5770   double t83173, t83176, t83183, t83185, t83189, t83197, t83201, t83206;
5771   double t83209, t83212, t83216, t83224, t83227, t83229, t83255, t83259;
5772   double t83262, t83265, t83268, t83278, t83283, t83289, t83323, t83352;
5773   double t83374, t83408, t83412, t83414, t83415, t83421, t83428, t83431;
5774   double t83433, t83435, t83437, t83438, t83444, t83450, t83452, t83460;
5775   double t83464, t83466, t83475, t83477, t83484, t83487, t83490, t83494;
5776   double t83495, t83499, t83503, t83507, t83508, t83510, t83515, t83517;
5777   double t83519, t83521, t83522, t83523, t83527, t83531, t83533, t83536;
5778   double t83537, t83540, t83541, t83545, t83547, t83548, t83553, t83561;
5779   double t83564, t83565, t83566, t83569, t83570, t83573, t83574, t83578;
5780   double t83581, t83582, t83583, t83584, t83588, t83592, t83596, t83598;
5781   double t83599, t83601, t83604, t83611, t83613, t83615, t83617, t83619;
5782   double t83621, t83622, t83624, t83626, t83628, t83630, t83638, t83640;
5783   double t83642, t83644, t83646, t83648, t83650, t83653, t83656, t83660;
5784   double t83668, t83672, t83675, t83678, t83679, t83682, t83685, t83688;
5785   double t83689, t83692, t83695, t83700, t83703, t83706, t83713, t83728;
5786   double t83729, t83730, t83742, t83745, t83748, t83755, t83757, t83759;
5787   double t83760, t83765, t83767, t83769, t83772, t83775, t83776, t83791;
5788   double t83794, t83807, t83817, t83824, t83825, t83828, t83831, t83834;
5789   double t83837, t83843, t83847, t83855, t83856, t83858, t83860, t83862;
5790   double t83863, t83865, t83868, t83870, t83877, t83879, t83883, t83889;
5791   double t83891, t83894, t83897, t83899, t83904, t83908, t83910, t83912;
5792   double t83915, t83917, t83923, t83925, t83936, t83938, t83940, t83943;
5793   double t83945, t83948, t83950, t83952, t83953, t83954, t83957, t83966;
5794   double t83972, t83976, t83978, t83979, t83983, t83988, t83991, t83993;
5795   double t83995, t83998, t84004, t84011, t84014, t84016, t84020, t84023;
5796   double t84062, t84066, t84068, t84070, t84072, t84088, t84092, t84099;
5797   double t84103, t84107, t84111, t84119, t84136, t84138, t84140, t84142;
5798   double t84144, t84146, t84151, t84157, t84165, t84170, t84179, t84182;
5799   double t84188, t84201, t84212, t84218, t84220, t84221, t84223, t84225;
5800   double t84227, t84231, t84233, t84237, t84239, t84241, t84246, t84251;
5801   double t84257, t84261, t84264, t84276, t84278, t84279, t84281, t84283;
5802   double t84285, t84287, t84293, t84297, t84298, t84308, t84309, t84313;
5803   double t84315, t84320, t84322, t84324, t84325, t84327, t84328, t84330;
5804   double t84354, t84361, t84363, t84365, t84367, t84369, t84371, t84373;
5805   double t84375, t84382, t84385, t84390, t84396, t84402, t84404, t84406;
5806   double t84408, t84415, t84426, t84445, t84448, t84450, t84458, t84464;
5807   double t84466, t84486, t84490, t84496, t84500, t84516, t84520, t84522;
5808   double t84528, t84537, t84539, t84541, t84547, t84549, t84551, t84556;
5809   double t84558, t84560, t84562, t84564, t84566, t84569, t84572, t84575;
5810   double t84578, t84581, t84583, t84585, t84601, t84606, t84622, t84624;
5811   double t84626, t84627, t84629, t84631, t84633, t84636, t84642, t84652;
5812   double t84658, t84662, t84680, t84692, t84694, t84696, t84700, t84704;
5813   double t84706, t84709, t84712, t84715, t84718, t84728, t84730, t84734;
5814   double t84772, t84783, t84806, t84823, t84869, t84893, t84912, t84958;
5815   double t84972, t84978, t84982, t84992, t85001, t85023, t85034, t85046;
5816   double t85073, t85104, t85108, t85128, t85130, t85134, t85146, t85147;
5817   double t85153, t85172, t85195, t85219, t85241, t85255, t85284, t85287;
5818   double t85291, t85295, t85313, t85325, t85337, t85341, t85351, t85389;
5819   double t85406, t85410, t85444, t85470, t85497, t85519, t85544, t85568;
5820   double t85590, t85605, t85619, t85626, t85659, t85662, t85698, t85711;
5821   double t85740, t85771, t85790, t85792, t85796, t85806, t85829, t85840;
5822   double t85844, t85848, t85855, t85864, t85870, t85900, t85921, t85950;
5823   double t85979, t85997, t86001, t86012, t86027, t86077, t86099, t86118;
5824   double t86138, t86152, t86158, t86173, t86185, t86215, t86228, t86238;
5825   double t86253, t86264, t86283, t86303, t86331, t86353, t86390, t86409;
5826   double t86446, t86462, t86480, t86509, t86554, t86609, t86622, t86636;
5827   double t86650, t86654, t86680, t86689, t86692, t86694, t86700, t86702;
5828   double t86726, t86728, t86730, t86732, t86733, t86735, t86736, t86737;
5829   double t86739, t86740, t86741, t86743, t86744, t86746, t86747, t86748;
5830   double t86750, t86751, t86753, t86755, t86756, t86758, t86759, t86761;
5831   double t86768, t86770, t86772, t86773, t86779, t86783, t86795, t86804;
5832   double t86807, t86811, t86815, t86817, t86818, t86821, t86824, t86827;
5833   double t86828, t86829, t86830, t86831, t86832, t86833, t86834, t86835;
5834   double t86837, t86839, t86841, t86842, t86844, t86846, t86848, t86850;
5835   double t86852, t86854, t86855, t86858, t86866, t86870, t86874, t86878;
5836   double t86883, t86889, t86892, t86894, t86896, t86897, t86899, t86900;
5837   double t86902, t86904, t86908, t86914, t86915, t86916, t86918, t86920;
5838   double t86924, t86925, t86927, t86929, t86935, t86939, t86943, t86944;
5839   double t86946, t86948, t86950, t86953, t86954, t86956, t86957, t86959;
5840   double t86962, t86964, t86967, t86971, t86974, t86983, t86986, t86989;
5841   double t86992, t87002, t87005, t87013, t87019, t87021, t87022, t87026;
5842   double t87028, t87029, t87030, t87034, t87038, t87045, t87047, t87053;
5843   double t87056, t87059, t87062, t87065, t87069, t87071, t87073, t87079;
5844   double t87080, t87083, t87084, t87089, t87091, t87093, t87096, t87097;
5845   double t87099, t87100, t87102, t87104, t87107, t87109, t87112, t87115;
5846   double t87120, t87123, t87125, t87127, t87128, t87131, t87135, t87137;
5847   double t87139, t87140, t87143, t87145, t87148, t87152, t87154, t87156;
5848   double t87158, t87162, t87164, t87165, t87167, t87169, t87171, t87172;
5849   double t87174, t87175, t87177, t87178, t87184, t87185, t87187, t87189;
5850   double t87191, t87193, t87195, t87197, t87198, t87202, t87208, t87211;
5851   double t87215, t87217, t87220, t87223, t87226, t87229, t87232, t87234;
5852   double t87236, t87239, t87243, t87245, t87246, t87255, t87257, t87269;
5853   double t87271, t87274, t87277, t87279, t87281, t87283, t87285, t87286;
5854   double t87289, t87294, t87301, t87304, t87306, t87310, t87316, t87324;
5855   double t87328, t87332, t87334, t87336, t87339, t87344, t87355, t87359;
5856   double t87371, t87378, t87385, t87387, t87388, t87389, t87391, t87392;
5857   double t87393, t87394, t87396, t87398, t87400, t87401, t87403, t87404;
5858   double t87406, t87409, t87414, t87417, t87433, t87436, t87439, t87445;
5859   double t87446, t87450, t87452, t87454, t87455, t87457, t87459, t87461;
5860   double t87463, t87467, t87469, t87472, t87474, t87476, t87478, t87480;
5861   double t87482, t87490, t87491, t87493, t87495, t87496, t87501, t87503;
5862   double t87504, t87508, t87510, t87512, t87513, t87515, t87516, t87518;
5863   double t87522, t87525, t87531, t87535, t87536, t87537, t87538, t87539;
5864   double t87540, t87541, t87542, t87546, t87548, t87550, t87552, t87555;
5865   double t87558, t87560, t87569, t87571, t87572, t87577, t87579, t87581;
5866   double t87583, t87589, t87591, t87593, t87594, t87597, t87603, t87605;
5867   double t87607, t87608, t87616, t87618, t87621, t87623, t87627, t87628;
5868   double t87633, t87636, t87639, t87644, t87647, t87653, t87656, t87663;
5869   double t87665, t87667, t87670, t87672, t87674, t87678, t87681, t87683;
5870   double t87686, t87689, t87692, t87693, t87699, t87701, t87710, t87712;
5871   double t87714, t87722, t87726, t87730, t87744, t87750, t87753, t87760;
5872   double t87762, t87764, t87765, t87770, t87772, t87775, t87779, t87783;
5873   double t87786, t87788, t87789, t87791, t87792, t87794, t87798, t87799;
5874   double t87802, t87804, t87806, t87807, t87811, t87814, t87817, t87819;
5875   double t87823, t87830, t87832, t87835, t87838, t87843, t87846, t87849;
5876   double t87851, t87853, t87855, t87856, t87858, t87863, t87866, t87871;
5877   double t87877, t87880, t87886, t87888, t87890, t87892, t87894, t87897;
5878   double t87901, t87905, t87907, t87914, t87944, t87946, t87948, t87950;
5879   double t87952, t87956, t87959, t87960, t87962, t87963, t87966, t87969;
5880   double t87971, t87975, t87976, t87978, t87979, t87989, t87990, t88002;
5881   double t88005, t88014, t88017, t88026, t88038, t88042, t88057, t88068;
5882   double t88070, t88071, t88074, t88078, t88079, t88112, t88123, t88131;
5883   double t88152, t88155, t88161, t88163, t88175, t88177, t88188, t88189;
5884   double t88216, t88218, t88221, t88229, t88234, t88246, t88247, t88270;
5885   double t88273, t88278, t88281, t88284, t88296, t88301, t88346, t88354;
5886   double t88358, t88362, t88367, t88369, t88371, t88411, t88454, t88460;
5887   double t88463, t88464, t88470, t88472, t88476, t88502, t88503, t88507;
5888   double t88517, t88532, t88543, t88544, t88546, t88551, t88559, t88561;
5889   double t88592, t88637, t88651, t88686, t88703, t88707, t88716, t88750;
5890   double t88798, t88806, t88856, t88860, t88864, t88867, t88870, t88909;
5891   double t88953, t88958, t88960, t88962, t88964, t88969, t88977, t88979;
5892   double t88981, t88985, t88988, t89003, t89037, t89048, t89051, t89054;
5893   double t89074, t89077, t89084, t89089, t89104, t89120, t89123, t89126;
5894   double t89129, t89134, t89167, t89187, t89194, t89198, t89201, t89203;
5895   double t89208, t89218, t89233, t89240, t89246, t89249, t89251, t89253;
5896   double t89256, t89258, t89305, t89349, t89373, t89376, t89388, t89407;
5897   double t89432, t89461, t89465, t89472, t89483, t89493, t89496, t89507;
5898   double t89510, t89511, t89515, t89518, t89521, t89524, t89527, t89529;
5899   double t89533, t89535, t89539, t89542, t89543, t89545, t89547, t89548;
5900   double t89550, t89552, t89554, t89555, t89557, t89560, t89562, t89563;
5901   double t89565, t89566, t89569, t89574, t89578, t89580, t89582, t89584;
5902   double t89590, t89592, t89595, t89598, t89601, t89604, t89609, t89613;
5903   double t89615, t89619, t89621, t89623, t89625, t89627, t89630, t89633;
5904   double t89634, t89637, t89640, t89645, t89648, t89651, t89654, t89672;
5905   double t89675, t89677, t89678, t89679, t89681, t89682, t89683, t89685;
5906   double t89686, t89711, t89712, t89718, t89720, t89721, t89723, t89724;
5907   double t89726, t89727, t89730, t89737, t89740, t89741, t89743, t89744;
5908   double t89747, t89757, t89766, t89770, t89774, t89777, t89792, t89793;
5909   double t89794, t89796, t89797, t89802, t89805, t89808, t89811, t89822;
5910   double t89840, t89842, t89848, t89853, t89854, t89855, t89857, t89859;
5911   double t89863, t89867, t89870, t89871, t89874, t89877, t89879, t89881;
5912   double t89882, t89883, t89885, t89886, t89888, t89890, t89892, t89894;
5913   double t89895, t89897, t89916, t89920, t89923, t89926, t89929, t89931;
5914   double t89935, t89937, t89939, t89941, t89943, t89945, t89946, t89949;
5915   double t89952, t89955, t89958, t89962, t89963, t89968, t89971, t89976;
5916   double t89977, t89980, t89984, t89988, t89991, t89993, t89994, t89996;
5917   double t89997, t89999, t90001, t90003, t90005, t90007, t90008, t90011;
5918   double t90015, t90018, t90020, t90022, t90024, t90027, t90028, t90032;
5919   double t90040, t90041, t90043, t90045, t90047, t90049, t90051, t90055;
5920   double t90059, t90060, t90063, t90064, t90066, t90067, t90077, t90079;
5921   double t90080, t90082, t90083, t90085, t90086, t90088, t90090, t90092;
5922   double t90096, t90098, t90100, t90102, t90103, t90116, t90119, t90122;
5923   double t90125, t90136, t90140, t90144, t90147, t90150, t90157, t90161;
5924   double t90165, t90168, t90169, t90171, t90173, t90177, t90179, t90181;
5925   double t90183, t90185, t90188, t90189, t90192, t90194, t90196, t90197;
5926   double t90201, t90204, t90205, t90207, t90219, t90221, t90224, t90227;
5927   double t90228, t90230, t90234, t90236, t90240, t90242, t90244, t90245;
5928   double t90247, t90249, t90252, t90253, t90254, t90258, t90260, t90263;
5929   double t90265, t90268, t90270, t90272, t90275, t90278, t90279, t90281;
5930   double t90282, t90284, t90285, t90287, t90289, t90293, t90294, t90299;
5931   double t90301, t90303, t90307, t90311, t90313, t90314, t90315, t90317;
5932   double t90319, t90320, t90322, t90323, t90327, t90329, t90331, t90334;
5933   double t90336, t90338, t90341, t90343, t90345, t90347, t90348, t90350;
5934   double t90352, t90354, t90356, t90358, t90359, t90361, t90362, t90364;
5935   double t90366, t90371, t90376, t90378, t90380, t90382, t90384, t90386;
5936   double t90389, t90392, t90393, t90397, t90401, t90407, t90409, t90414;
5937   double t90417, t90420, t90422, t90425, t90429, t90430, t90431, t90434;
5938   double t90435, t90438, t90443, t90446, t90450, t90453, t90456, t90464;
5939   double t90467, t90471, t90475, t90492, t90494, t90496, t90498, t90500;
5940   double t90501, t90502, t90504, t90506, t90508, t90512, t90516, t90519;
5941   double t90521, t90522, t90524, t90525, t90527, t90528, t90530, t90536;
5942   double t90539, t90542, t90545, t90548, t90550, t90560, t90561, t90580;
5943   double t90582, t90588, t90590, t90592, t90594, t90595, t90599, t90603;
5944   double t90606, t90609, t90612, t90623, t90625, t90626, t90628, t90629;
5945   double t90632, t90634, t90636, t90643, t90647, t90648, t90652, t90654;
5946   double t90655, t90659, t90663, t90665, t90667, t90672, t90676, t90678;
5947   double t90680, t90682, t90683, t90691, t90699, t90704, t90711, t90715;
5948   double t90728, t90730, t90732, t90737, t90744, t90747, t90750, t90756;
5949   double t90759, t90762, t90767, t90769, t90771, t90773, t90775, t90783;
5950   double t90785, t90787, t90791, t90795, t90796, t90798, t90799, t90801;
5951   double t90802, t90804, t90805, t90809, t90810, t90812, t90813, t90816;
5952   double t90819, t90828, t90834, t90836, t90846, t90848, t90849, t90852;
5953   double t90853, t90856, t90857, t90861, t90863, t90865, t90867, t90869;
5954   double t90875, t90881, t90883, t90885, t90888, t90890, t90893, t90896;
5955   double t90898, t90900, t90902, t90904, t90906, t90909, t90912, t90914;
5956   double t90916, t90917, t90920, t90922, t90923, t90926, t90928, t90931;
5957   double t90933, t90934, t90937, t90940, t90942, t90944, t90947, t90949;
5958   double t90951, t90953, t90956, t90958, t90960, t90962, t90964, t90965;
5959   double t90969, t90971, t90973, t90976, t90984, t90985, t90989, t90993;
5960   double t90997, t91007, t91010, t91012, t91014, t91015, t91019, t91021;
5961   double t91023, t91025, t91027, t91029, t91031, t91033, t91037, t91041;
5962   double t91044, t91055, t91068, t91070, t91071, t91073, t91075, t91077;
5963   double t91078, t91081, t91087, t91090, t91093, t91095, t91097, t91098;
5964   double t91101, t91103, t91107, t91111, t91112, t91115, t91118, t91121;
5965   double t91123, t91125, t91126, t91128, t91130, t91134, t91135, t91137;
5966   double t91139, t91145, t91147, t91148, t91150, t91159, t91162, t91165;
5967   double t91177, t91180, t91190, t91194, t91195, t91199, t91202, t91205;
5968   double t91207, t91208, t91209, t91213, t91219, t91223, t91225, t91227;
5969   double t91230, t91233, t91236, t91237, t91240, t91243, t91246, t91248;
5970   double t91250, t91252, t91254, t91257, t91260, t91263, t91265, t91267;
5971   double t91269, t91270, t91273, t91277, t91279, t91283, t91288, t91291;
5972   double t91294, t91296, t91300, t91301, t91304, t91316, t91320, t91322;
5973   double t91324, t91327, t91330, t91335, t91336, t91337, t91343, t91345;
5974   double t91347, t91354, t91356, t91359, t91360, t91377, t91381, t91383;
5975   double t91385, t91386, t91388, t91390, t91392, t91394, t91396, t91397;
5976   double t91398, t91400, t91424, t91426, t91429, t91455, t91458, t91463;
5977   double t91470, t91489, t91492, t91495, t91504, t91517, t91519, t91535;
5978   double t91539, t91542, t91545, t91559, t91587, t91607, t91612, t91617;
5979   double t91618, t91630, t91639, t91682, t91687, t91704, t91726, t91729;
5980   double t91751, t91772, t91780, t91783, t91788, t91811, t91812, t91816;
5981   double t91836, t91840, t91857, t91870, t91873, t91886, t91892, t91903;
5982   double t91904, t91919, t91937, t91940, t91945, t91947, t91950, t91953;
5983   double t91956, t91959, t91960, t91973, t91990, t92028, t92032, t92067;
5984   double t92094, t92126, t92156, t92162, t92163, t92164, t92165, t92167;
5985   double t92169, t92176, t92179, t92180, t92181, t92182, t92210, t92240;
5986   double t92275, t92276, t92302, t92339, t92341, t92343, t92345, t92357;
5987   double t92370, t92378, t92380, t92390, t92404, t92425, t92435, t92437;
5988   double t92441, t92474, t92478, t92491, t92509, t92517, t92556, t92595;
5989   double t92613, t92633, t92635, t92673, t92719, t92758, t92791, t92795;
5990   double t92798, t92802, t92803, t92817, t92861, t92903, t92907, t92935;
5991   double t92941, t92942, t92947, t92952, t92958, t92959, t92960, t92963;
5992   double t92964, t92967, t92976, t92986, t93025, t93028, t93029, t93032;
5993   double t93043, t93054, t93062, t93085, t93090, t93103, t93122, t93131;
5994   double t93134, t93141, t93144, t93147, t93150, t93155, t93164, t93185;
5995   double t93190, t93205, t93211, t93214, t93242, t93254, t93260, t93277;
5996   double t93310, t93319, t93327, t93333, t93336, t93340, t93343, t93347;
5997   double t93350, t93353, t93355, t93365, t93367, t93380, t93409, t93445;
5998   double t93464, t93493, t93520, t93544, t93576, t93580, t93611, t93633;
5999   double t93660, t93676, t93679, t93685, t93690, t93694, t93697, t93698;
6000   double t93699, t93702, t93703, t93715, t93722, t93726, t93739, t93744;
6001   double t93745, t93746, t93752, t93755, t93757, t93759, t93772, t93783;
6002   double t93787, t93789, t93791, t93793, t93795, t93797, t93799, t93801;
6003   double t93802, t93803, t93805, t93806, t93808, t93810, t93812, t93814;
6004   double t93815, t93817, t93818, t93821, t93826, t93830, t93833, t93841;
6005   double t93845, t93848, t93849, t93851, t93858, t93860, t93861, t93865;
6006   double t93868, t93871, t93891, t93893, t93894, t93895, t93897, t93899;
6007   double t93901, t93903, t93905, t93908, t93909, t93911, t93913, t93914;
6008   double t93915, t93917, t93918, t93920, t93922, t93923, t93925, t93927;
6009   double t93929, t93932, t93936, t93940, t93943, t93945, t93950, t93953;
6010   double t93956, t93961, t93963, t93965, t93968, t93970, t93972, t93975;
6011   double t93977, t93979, t93982, t93984, t93985, t93990, t93992, t94003;
6012   double t94006, t94010, t94015, t94019, t94021, t94025, t94026, t94029;
6013   double t94042, t94053, t94057, t94061, t94063, t94064, t94066, t94068;
6014   double t94072, t94076, t94083, t94084, t94086, t94088, t94090, t94093;
6015   double t94095, t94097, t94102, t94105, t94108, t94112, t94114, t94116;
6016   double t94119, t94120, t94122, t94123, t94125, t94126, t94128, t94129;
6017   double t94134, t94136, t94137, t94141, t94145, t94147, t94151, t94153;
6018   double t94160, t94161, t94165, t94167, t94171, t94173, t94176, t94179;
6019   double t94188, t94190, t94192, t94202, t94206, t94210, t94213, t94216;
6020   double t94220, t94228, t94230, t94233, t94237, t94241, t94246, t94248;
6021   double t94255, t94257, t94259, t94264, t94265, t94268, t94271, t94274;
6022   double t94277, t94279, t94288, t94291, t94293, t94297, t94299, t94301;
6023   double t94305, t94307, t94308, t94331, t94335, t94337, t94340, t94346;
6024   double t94355, t94358, t94361, t94363, t94366, t94369, t94370, t94372;
6025   double t94374, t94376, t94378, t94380, t94385, t94387, t94390, t94392;
6026   double t94394, t94396, t94398, t94400, t94402, t94403, t94406, t94408;
6027   double t94413, t94416, t94420, t94424, t94425, t94428, t94432, t94442;
6028   double t94444, t94450, t94455, t94462, t94464, t94467, t94468, t94472;
6029   double t94476, t94478, t94480, t94481, t94484, t94492, t94495, t94497;
6030   double t94499, t94506, t94510, t94514, t94518, t94520, t94523, t94527;
6031   double t94531, t94541, t94543, t94546, t94549, t94551, t94555, t94560;
6032   double t94564, t94568, t94570, t94572, t94574, t94577, t94578, t94581;
6033   double t94590, t94594, t94598, t94600, t94602, t94605, t94606, t94616;
6034   double t94617, t94620, t94629, t94637, t94640, t94646, t94650, t94659;
6035   double t94669, t94671, t94678, t94681, t94683, t94684, t94687, t94690;
6036   double t94693, t94696, t94701, t94704, t94714, t94727, t94729, t94734;
6037   double t94737, t94738, t94748, t94751, t94753, t94754, t94756, t94760;
6038   double t94764, t94766, t94769, t94771, t94773, t94775, t94776, t94778;
6039   double t94779, t94781, t94782, t94784, t94786, t94788, t94790, t94792;
6040   double t94793, t94796, t94798, t94800, t94802, t94804, t94806, t94809;
6041   double t94812, t94814, t94816, t94821, t94823, t94825, t94827, t94830;
6042   double t94836, t94839, t94841, t94842, t94846, t94851, t94853, t94855;
6043   double t94859, t94862, t94863, t94909, t94916, t94934, t94938, t94961;
6044   double t94966, t94969, t94989, t94992, t95013, t95015, t95022, t95060;
6045   double t95073, t95076, t95085, t95091, t95106, t95124, t95155, t95169;
6046   double t95177, t95205, t95217, t95231, t95234, t95236, t95240, t95249;
6047   double t95281, t95287, t95291, t95334, t95375, t95444, t95445, t95451;
6048   double t95489, t95534, t95584, t95632, t95684, t95733, t95787, t95791;
6049   double t95846, t95888, t95906, t95907, t95920, t95946, t95970, t95975;
6050   double t95992, t96007, t96010, t96013, t96016, t96023, t96038, t96043;
6051   double t96052, t96086, t96090, t96099, t96106, t96110, t96135, t96140;
6052   double t96196, t96238, t96284, t96311, t96324, t96338, t96349, t96361;
6053   double t96365, t96387, t96396, t96404, t96406, t96409, t96410, t96412;
6054   double t96414, t96419, t96433, t96437, t96444, t96445, t96480, t96506;
6055   double t96533, t96539, t96545, t96561, t96568, t96570, t96576, t96578;
6056   double t96586, t96588, t96620, t96652, t96658, t96663, t96666, t96669;
6057   double t96672, t96693, t96697, t96722, t96748, t96757, t96764, t96769;
6058   double t96782, t96783, t96784, t96786, t96787, t96789, t96791, t96810;
6059   double t96811, t96824, t96855, t96870, t96878, t96881, t96893, t96895;
6060   double t96926, t96966, t96969, t96974, t96978, t96980, t96982, t97001;
6061   double t97002, t97004, t97015, t97023, t97037, t97040, t97068, t97089;
6062   double t97093, t97099, t97115, t97129, t97132, t97134, t97140, t97142;
6063   double t97150, t97152, t97183, t97216, t97219, t97264, t97278, t97292;
6064   double t97306, t97307, t97345, t97350, t97360, t97389, t97404, t97434;
6065   double t97436, t97440, t97445, t97449, t97452, t97458, t97461, t97502;
6066   double t97544, t97547, t97553, t97602, t97610, t97642, t97660, t97663;
6067   double t97666, t97671, t97673, t97677, t97682, t97695, t97710, t97712;
6068   double t97720, t97728, t97748, t97770, t97799, t97842, t97846, t97870;
6069   double t97902, t97937, t97965, t97972, t97973, t97975, t97978, t97980;
6070   double t97981, t97982, t97985, t97988, t97989, t97992, t98003, t98005;
6071   double t98009, t98013, t98024, t98025, t98056, t98066, t98073, t98078;
6072   double t98092, t98114, t98157, t98207, t98209, t98213, t98218, t98222;
6073   double t98225, t98231, t98234, t98274, t98317, t98320, t98350, t98382;
6074   double t98409, t98418, t98440, t98462, t98464, t98510, t98542, t98586;
6075   double t98653, t98654, t98667, t98702, t98733, t98735, t98790, t98834;
6076   double t98872, t98895, t98904, t98932, t98967, t98968, t98992, t98994;
6077   double t99040, t99072, t99075, t99077, t99078, t99080, t99081, t99082;
6078   double t99086, t99089, t99090, t99091, t99094, t99095, t99097, t99098;
6079   double t99100, t99103, t99106, t99107, t99109, t99112, t99114, t99116;
6080   double t99119, t99120, t99121, t99123, t99124, t99126, t99127, t99128;
6081   double t99130, t99132, t99134, t99135, t99138, t99139, t99141, t99144;
6082   double t99145, t99147, t99148, t99150, t99152, t99153, t99156, t99157;
6083   double t99159, t99161, t99162, t99164, t99165, t99167, t99168, t99169;
6084   double t99170, t99171, t99172, t99173, t99175, t99176, t99178, t99180;
6085   double t99181, t99184, t99185, t99188, t99189, t99193, t99197, t99200;
6086   double t99202, t99203, t99205, t99207, t99208, t99210, t99212, t99223;
6087   double t99224, t99239, t99247, t99252, t99255, t99256, t99261, t99267;
6088   double t99276, t99280, t99282, t99292, t99294, t99297, t99301, t99317;
6089   double t99322, t99326, t99327, t99330, t99333, t99334, t99338, t99342;
6090   double t99346, t99349, t99350, t99354, t99357, t99358, t99361, t99362;
6091   double t99365, t99370, t99380, t99381, t99383, t99384, t99385, t99388;
6092   double t99389, t99390, t99391, t99396, t99401, t99402, t99404, t99405;
6093   double t99407, t99409, t99411, t99424, t99431, t99435, t99436, t99439;
6094   double t99440, t99441, t99448, t99451, t99453, t99454, t99455, t99458;
6095   double t99460, t99462, t99464, t99465, t99466, t99470, t99471, t99472;
6096   double t99476, t99480, t99481, t99485, t99489, t99490, t99492, t99493;
6097   double t99494, t99495, t99496, t99498, t99499, t99502, t99503, t99506;
6098   double t99507, t99510, t99511, t99513, t99515, t99516, t99519, t99520;
6099   double t99521, t99522, t99523, t99525, t99526, t99527, t99530, t99532;
6100   double t99534, t99536, t99538, t99539, t99541, t99543, t99544, t99545;
6101   double t99547, t99548, t99550, t99551, t99555, t99559, t99561, t99562;
6102   double t99565, t99568, t99569, t99573, t99574, t99578, t99579, t99582;
6103   double t99583, t99586, t99589, t99593, t99594, t99596, t99599, t99602;
6104   double t99603, t99606, t99608, t99610, t99614, t99617, t99623, t99627;
6105   double t99630, t99631, t99635, t99637, t99638, t99641, t99642, t99644;
6106   double t99648, t99649, t99651, t99652, t99655, t99656, t99658, t99660;
6107   double t99662, t99664, t99667, t99672, t99678, t99683, t99689, t99691;
6108   double t99693, t99695, t99697, t99699, t99701, t99703, t99706, t99709;
6109   double t99710, t99711, t99713, t99714, t99716, t99717, t99718, t99720;
6110   double t99722, t99724, t99726, t99728, t99729, t99732, t99735, t99736;
6111   double t99739, t99740, t99742, t99743, t99745, t99748, t99749, t99750;
6112   double t99751, t99754, t99755, t99759, t99760, t99763, t99770, t99772;
6113   double t99774, t99776, t99777, t99779, t99781, t99782, t99784, t99786;
6114   double t99788, t99790, t99792, t99793, t99796, t99797, t99800, t99801;
6115   double t99806, t99810, t99811, t99819, t99820, t99821, t99822, t99823;
6116   double t99825, t99827, t99829, t99832, t99833, t99835, t99836, t99837;
6117   double t99839, t99842, t99844, t99847, t99849, t99851, t99854, t99855;
6118   double t99856, t99858, t99859, t99861, t99862, t99865, t99866, t99868;
6119   double t99878, t99881, t99882, t99884, t99896, t99897, t99900, t99901;
6120   double t99903, t99904, t99909, t99912, t99915, t99916, t99918, t99920;
6121   double t99921, t99922, t99926, t99927, t99928, t99929, t99931, t99933;
6122   double t99934, t99935, t99938, t99939, t99941, t99943, t99944, t99945;
6123   double t99946, t99949, t99950, t99951, t99953, t99956, t99957, t99960;
6124   double t99963, t99964, t99965, t99966, t99967, t99969, t99970, t99973;
6125   double t99974, t99976, t99978, t99979, t99980, t99983, t99987, t99990;
6126   double t99991, t99996, t99998, t100003, t100004, t100006, t100010, t100013;
6127   double t100014, t100017, t100018, t100020, t100022, t100023, t100026, t100027;
6128   double t100033, t100037, t100038, t100039, t100041, t100045, t100048, t100053;
6129   double t100056, t100057, t100058, t100059, t100060, t100062, t100064, t100066;
6130   double t100067, t100069, t100071, t100076, t100077, t100079, t100082, t100085;
6131   double t100089, t100090, t100091, t100092, t100093, t100094, t100095, t100096;
6132   double t100097, t100098, t100099, t100100, t100101, t100102, t100104, t100108;
6133   double t100111, t100112, t100113, t100114, t100115, t100116, t100118, t100119;
6134   double t100120, t100122, t100123, t100124, t100126, t100128, t100129, t100130;
6135   double t100132, t100135, t100137, t100139, t100140, t100141, t100143, t100146;
6136   double t100149, t100150, t100154, t100155, t100156, t100157, t100158, t100162;
6137   double t100163, t100165, t100166, t100167, t100174, t100176, t100177, t100178;
6138   double t100180, t100182, t100185, t100186, t100188, t100199, t100202, t100204;
6139   double t100209, t100211, t100212, t100213, t100214, t100215, t100216, t100217;
6140   double t100219, t100220, t100221, t100222, t100224, t100225, t100227, t100231;
6141   double t100233, t100234, t100238, t100240, t100241, t100243, t100245, t100247;
6142   double t100249, t100251, t100252, t100253, t100254, t100256, t100257, t100258;
6143   double t100259, t100260, t100261, t100262, t100263, t100265, t100266, t100267;
6144   double t100271, t100278, t100280, t100281, t100285, t100287, t100289, t100290;
6145   double t100296, t100304, t100306, t100307, t100308, t100309, t100311, t100314;
6146   double t100316, t100320, t100322, t100323, t100326, t100328, t100329, t100333;
6147   double t100337, t100340, t100342, t100344, t100346, t100347, t100350, t100351;
6148   double t100353, t100356, t100357, t100360, t100361, t100363, t100364, t100366;
6149   double t100370, t100372, t100376, t100379, t100381, t100384, t100388, t100392;
6150   double t100396, t100398, t100399, t100400, t100401, t100402, t100404, t100408;
6151   double t100410, t100412, t100414, t100415, t100417, t100422, t100425, t100453;
6152   double t100454, t100457, t100462, t100464, t100467, t100469, t100478, t100482;
6153   double t100487, t100492, t100495, t100499, t100504, t100509, t100514, t100515;
6154   double t100516, t100517, t100519, t100520, t100525, t100526, t100528, t100529;
6155   double t100530, t100532, t100533, t100534, t100536, t100543, t100544, t100547;
6156   double t100549, t100550, t100551, t100553, t100554, t100555, t100557, t100559;
6157   double t100560, t100561, t100562, t100565, t100567, t100569, t100571, t100572;
6158   double t100574, t100576, t100579, t100581, t100583, t100585, t100587, t100588;
6159   double t100590, t100602, t100604, t100605, t100607, t100610, t100612, t100615;
6160   double t100619, t100622, t100625, t100628, t100631, t100635, t100637, t100639;
6161   double t100640, t100642, t100643, t100645, t100648, t100654, t100657, t100658;
6162   double t100662, t100664, t100674, t100678, t100683, t100694, t100695, t100696;
6163   double t100703, t100708, t100709, t100711, t100713, t100714, t100724, t100727;
6164   double t100731, t100733, t100735, t100738, t100740, t100742, t100743, t100744;
6165   double t100746, t100748, t100754, t100758, t100763, t100765, t100766, t100769;
6166   double t100771, t100773, t100775, t100776, t100777, t100778, t100781, t100782;
6167   double t100786, t100797, t100799, t100800, t100801, t100802, t100803, t100804;
6168   double t100805, t100806, t100807, t100808, t100809, t100810, t100811, t100813;
6169   double t100815, t100816, t100826, t100827, t100832, t100833, t100835, t100837;
6170   double t100840, t100844, t100845, t100848, t100851, t100854, t100855, t100856;
6171   double t100857, t100858, t100860, t100861, t100862, t100863, t100867, t100877;
6172   double t100879, t100881, t100883, t100885, t100886, t100887, t100889, t100890;
6173   double t100892, t100894, t100896, t100898, t100899, t100900, t100901, t100902;
6174   double t100903, t100905, t100906, t100908, t100909, t100912, t100916, t100918;
6175   double t100920, t100922, t100924, t100941, t100943, t100949, t100957, t100961;
6176   double t100966, t100971, t100974, t100978, t100983, t100985, t100986, t100990;
6177   double t100991, t100993, t100996, t101001, t101003, t101004, t101009, t101010;
6178   double t101012, t101015, t101017, t101021, t101028, t101030, t101034, t101040;
6179   double t101048, t101050, t101051, t101053, t101055, t101059, t101061, t101063;
6180   double t101065, t101066, t101067, t101068, t101072, t101076, t101078, t101079;
6181   double t101082, t101084, t101086, t101088, t101091, t101093, t101096, t101098;
6182   double t101110, t101111, t101115, t101119, t101121, t101123, t101125, t101127;
6183   double t101128, t101129, t101131, t101133, t101134, t101137, t101139, t101140;
6184   double t101141, t101142, t101151, t101155, t101161, t101162, t101170, t101173;
6185   double t101175, t101177, t101179, t101181, t101182, t101183, t101184, t101185;
6186   double t101188, t101190, t101191, t101194, t101200, t101201, t101204, t101205;
6187   double t101208, t101212, t101215, t101219, t101222, t101224, t101228, t101232;
6188   double t101236, t101238, t101240, t101241, t101242, t101243, t101245, t101248;
6189   double t101249, t101253, t101255, t101259, t101263, t101267, t101271, t101275;
6190   double t101278, t101280, t101282, t101284, t101286, t101291, t101293, t101294;
6191   double t101296, t101297, t101299, t101300, t101301, t101303, t101307, t101309;
6192   double t101311, t101314, t101318, t101322, t101323, t101325, t101327, t101329;
6193   double t101331, t101333, t101335, t101337, t101339, t101343, t101346, t101348;
6194   double t101349, t101352, t101353, t101354, t101355, t101356, t101357, t101358;
6195   double t101360, t101363, t101364, t101366, t101369, t101372, t101375, t101376;
6196   double t101380, t101383, t101408, t101413, t101415, t101424, t101427, t101430;
6197   double t101432, t101449, t101464, t101465, t101468, t101473, t101475, t101476;
6198   double t101477, t101478, t101479, t101480, t101484, t101486, t101487, t101490;
6199   double t101493, t101494, t101499, t101504, t101506, t101507, t101509, t101512;
6200   double t101513, t101514, t101518, t101522, t101523, t101524, t101527, t101528;
6201   double t101531, t101535, t101539, t101543, t101548, t101550, t101553, t101554;
6202   double t101556, t101557, t101558, t101559, t101560, t101564, t101566, t101568;
6203   double t101570, t101572, t101574, t101577, t101579, t101580, t101581, t101582;
6204   double t101583, t101584, t101585, t101586, t101587, t101589, t101591, t101593;
6205   double t101595, t101602, t101606, t101610, t101612, t101614, t101615, t101616;
6206   double t101617, t101618, t101619, t101620, t101621, t101622, t101626, t101632;
6207   double t101636, t101643, t101644, t101651, t101656, t101657, t101660, t101661;
6208   double t101664, t101667, t101673, t101677, t101681, t101685, t101691, t101696;
6209   double t101699, t101703, t101704, t101705, t101708, t101714, t101718, t101720;
6210   double t101721, t101723, t101724, t101726, t101727, t101730, t101731, t101739;
6211   double t101740, t101741, t101745, t101746, t101747, t101749, t101750, t101753;
6212   double t101757, t101758, t101760, t101776, t101778, t101780, t101782, t101783;
6213   double t101785, t101787, t101789, t101791, t101793, t101795, t101804, t101806;
6214   double t101810, t101814, t101820, t101821, t101822, t101823, t101824, t101828;
6215   double t101832, t101836, t101837, t101841, t101850, t101853, t101862, t101864;
6216   double t101866, t101869, t101871, t101873, t101879, t101882, t101886, t101890;
6217   double t101899, t101901, t101904, t101909, t101912, t101923, t101925, t101927;
6218   double t101929, t101931, t101933, t101935, t101941, t101944, t101947, t101952;
6219   double t101955, t101956, t101957, t101961, t101972, t101975, t101976, t101978;
6220   double t101980, t101982, t101984, t101986, t101992, t102005, t102018, t102019;
6221   double t102023, t102024, t102036, t102038, t102041, t102043, t102045, t102047;
6222   double t102049, t102050, t102054, t102056, t102058, t102062, t102064, t102075;
6223   double t102080, t102089, t102090, t102093, t102099, t102117, t102118, t102120;
6224   double t102124, t102126, t102129, t102131, t102138, t102140, t102144, t102148;
6225   double t102152, t102155, t102169, t102175, t102183, t102185, t102187, t102192;
6226   double t102194, t102198, t102199, t102200, t102204, t102205, t102214, t102216;
6227   double t102218, t102229, t102230, t102231, t102234, t102235, t102238, t102239;
6228   double t102242, t102259, t102261, t102263, t102264, t102265, t102269, t102273;
6229   double t102276, t102279, t102282, t102283, t102286, t102289, t102292, t102296;
6230   double t102298, t102303, t102306, t102310, t102312, t102314, t102316, t102322;
6231   double t102326, t102329, t102333, t102334, t102344, t102348, t102351, t102352;
6232   double t102357, t102358, t102360, t102378, t102381, t102383, t102386, t102388;
6233   double t102391, t102392, t102393, t102400, t102405, t102406, t102408, t102410;
6234   double t102412, t102414, t102416, t102421, t102432, t102437, t102439, t102441;
6235   double t102445, t102447, t102450, t102455, t102464, t102467, t102471, t102473;
6236   double t102476, t102478, t102480, t102481, t102486, t102490, t102492, t102500;
6237   double t102502, t102505, t102509, t102516, t102517, t102518, t102519, t102520;
6238   double t102521, t102524, t102525, t102533, t102535, t102560, t102561, t102564;
6239   double t102566, t102568, t102570, t102573, t102574, t102575, t102576, t102578;
6240   double t102579, t102586, t102588, t102590, t102593, t102600, t102605, t102606;
6241   double t102607, t102608, t102613, t102617, t102621, t102625, t102631, t102636;
6242   double t102639, t102641, t102646, t102649, t102651, t102652, t102654, t102660;
6243   double t102663, t102664, t102687, t102695, t102706, t102712, t102735, t102754;
6244   double t102771, t102778, t102800, t102802, t102804, t102809, t102813, t102818;
6245   double t102823, t102836, t102841, t102847, t102852, t102861, t102867, t102874;
6246   double t102878, t102879, t102882, t102888, t102891, t102906, t102911, t102915;
6247   double t102916, t102920, t102925, t102932, t102949, t102958, t102966, t102970;
6248   double t102974, t102977, t102980, t102983, t102986, t103000, t103003, t103008;
6249   double t103014, t103019, t103047, t103049, t103051, t103063, t103073, t103078;
6250   double t103079, t103091, t103096, t103105, t103120, t103124, t103128, t103132;
6251   double t103133, t103138, t103141, t103147, t103153, t103157, t103182, t103209;
6252   double t103213, t103214, t103223, t103240, t103253, t103260, t103274, t103278;
6253   double t103290, t103303, t103306, t103322, t103329, t103336, t103340, t103345;
6254   double t103350, t103353, t103357, t103362, t103372, t103381, t103384, t103392;
6255   double t103401, t103410, t103414, t103431, t103450, t103468, t103469, t103472;
6256   double t103478, t103484, t103485, t103491, t103516, t103531, t103544, t103552;
6257   double t103563, t103578, t103589, t103597, t103618, t103620, t103643, t103650;
6258   double t103656, t103660, t103666, t103670, t103674, t103678, t103684, t103689;
6259   double t103692, t103700, t103712, t103715, t103728, t103742, t103746, t103750;
6260   double t103761, t103769, t103783, t103794, t103796, t103818, t103825, t103836;
6261   double t103841, t103848, t103849, t103864, t103872, t103877, t103880, t103881;
6262   double t103886, t103892, t103901, t103905, t103907, t103915, t103917, t103920;
6263   double t103924, t103940, t103945, t103964, t103967, t103972, t103978, t103983;
6264   double t103997, t103999, t104000, t104001, t104003, t104005, t104006, t104009;
6265   double t104010, t104013, t104014, t104016, t104017, t104019, t104020, t104022;
6266   double t104025, t104054, t104084, t104112, t104117, t104121, t104125, t104127;
6267   double t104131, t104134, t104137, t104138, t104154, t104155, t104157, t104159;
6268   double t104160, t104165, t104167, t104169, t104171, t104175, t104181, t104196;
6269   double t104197, t104200, t104201, t104202, t104207, t104208, t104211, t104212;
6270   double t104214, t104216, t104217, t104221, t104225, t104227, t104229, t104230;
6271   double t104232, t104236, t104243, t104247, t104251, t104254, t104257, t104258;
6272   double t104260, t104261, t104262, t104265, t104266, t104270, t104271, t104274;
6273   double t104277, t104279, t104281, t104282, t104284, t104287, t104290, t104294;
6274   double t104295, t104297, t104298, t104300, t104301, t104303, t104306, t104307;
6275   double t104311, t104315, t104316, t104319, t104320, t104322, t104325, t104328;
6276   double t104331, t104336, t104337, t104339, t104341, t104343, t104345, t104347;
6277   double t104351, t104352, t104355, t104356, t104358, t104360, t104362, t104363;
6278   double t104364, t104366, t104367, t104369, t104371, t104372, t104375, t104376;
6279   double t104378, t104379, t104380, t104384, t104388, t104389, t104390, t104392;
6280   double t104393, t104394, t104395, t104396, t104400, t104404, t104409, t104410;
6281   double t104413, t104414, t104417, t104418, t104419, t104423, t104424, t104425;
6282   double t104427, t104428, t104429, t104431, t104433, t104435, t104438, t104440;
6283   double t104446, t104447, t104449, t104451, t104452, t104453, t104456, t104457;
6284   double t104459, t104460, t104461, t104462, t104463, t104465, t104468, t104471;
6285   double t104473, t104475, t104478, t104481, t104483, t104485, t104486, t104489;
6286   double t104493, t104494, t104497, t104498, t104499, t104502, t104503, t104506;
6287   double t104507, t104510, t104511, t104513, t104516, t104533, t104535, t104537;
6288   double t104539, t104541, t104543, t104545, t104547, t104550, t104553, t104554;
6289   double t104555, t104557, t104558, t104560, t104561, t104562, t104566, t104568;
6290   double t104572, t104573, t104581, t104582, t104585, t104587, t104590, t104591;
6291   double t104592, t104593, t104594, t104595, t104596, t104598, t104599, t104601;
6292   double t104602, t104605, t104606, t104608, t104609, t104611, t104612, t104614;
6293   double t104616, t104619, t104622, t104624, t104626, t104628, t104630, t104634;
6294   double t104637, t104640, t104644, t104648, t104651, t104652, t104655, t104660;
6295   double t104661, t104662, t104663, t104664, t104665, t104666, t104667, t104668;
6296   double t104669, t104670, t104671, t104673, t104674, t104676, t104680, t104681;
6297   double t104684, t104685, t104688, t104689, t104692, t104693, t104695, t104696;
6298   double t104699, t104703, t104707, t104711, t104715, t104717, t104718, t104721;
6299   double t104722, t104724, t104728, t104729, t104730, t104736, t104740, t104744;
6300   double t104747, t104750, t104753, t104754, t104755, t104759, t104763, t104767;
6301   double t104771, t104773, t104776, t104777, t104780, t104781, t104783, t104784;
6302   double t104787, t104791, t104793, t104795, t104796, t104799, t104800, t104802;
6303   double t104804, t104806, t104808, t104809, t104811, t104816, t104817, t104819;
6304   double t104821, t104822, t104823, t104824, t104825, t104827, t104828, t104831;
6305   double t104833, t104834, t104836, t104838, t104839, t104841, t104842, t104845;
6306   double t104848, t104852, t104854, t104856, t104859, t104860, t104861, t104862;
6307   double t104863, t104868, t104870, t104872, t104882, t104887, t104888, t104889;
6308   double t104890, t104891, t104892, t104894, t104897, t104904, t104905, t104907;
6309   double t104912, t104918, t104920, t104922, t104923, t104925, t104927, t104930;
6310   double t104939, t104955, t104964, t104965, t104968, t104973, t104974, t104978;
6311   double t104980, t104982, t104983, t104984, t104987, t104989, t104991, t104993;
6312   double t104995, t104997, t104998, t105001, t105002, t105004, t105006, t105008;
6313   double t105011, t105016, t105018, t105022, t105024, t105026, t105027, t105030;
6314   double t105033, t105034, t105037, t105038, t105040, t105042, t105043, t105045;
6315   double t105046, t105048, t105049, t105055, t105059, t105060, t105066, t105070;
6316   double t105074, t105078, t105081, t105084, t105086, t105088, t105090, t105092;
6317   double t105095, t105096, t105098, t105100, t105101, t105103, t105104, t105105;
6318   double t105107, t105108, t105109, t105111, t105112, t105113, t105115, t105116;
6319   double t105117, t105119, t105120, t105122, t105123, t105125, t105126, t105128;
6320   double t105131, t105132, t105134, t105137, t105138, t105141, t105142, t105143;
6321   double t105147, t105148, t105150, t105152, t105153, t105154, t105155, t105156;
6322   double t105157, t105158, t105159, t105160, t105164, t105168, t105169, t105171;
6323   double t105174, t105175, t105176, t105181, t105183, t105184, t105185, t105186;
6324   double t105187, t105188, t105189, t105191, t105192, t105193, t105194, t105195;
6325   double t105196, t105203, t105206, t105217, t105220, t105223, t105225, t105227;
6326   double t105229, t105233, t105237, t105247, t105250, t105253, t105256, t105260;
6327   double t105278, t105281, t105284, t105286, t105287, t105288, t105289, t105290;
6328   double t105291, t105292, t105295, t105296, t105297, t105301, t105302, t105304;
6329   double t105305, t105306, t105308, t105309, t105310, t105313, t105314, t105316;
6330   double t105320, t105321, t105322, t105324, t105328, t105333, t105336, t105343;
6331   double t105344, t105347, t105348, t105351, t105353, t105355, t105356, t105357;
6332   double t105360, t105362, t105364, t105366, t105368, t105370, t105373, t105375;
6333   double t105376, t105377, t105378, t105379, t105381, t105383, t105386, t105387;
6334   double t105388, t105394, t105398, t105399, t105403, t105405, t105407, t105409;
6335   double t105410, t105427, t105428, t105430, t105435, t105437, t105445, t105448;
6336   double t105449, t105450, t105451, t105452, t105453, t105454, t105457, t105463;
6337   double t105465, t105467, t105471, t105475, t105476, t105484, t105497, t105505;
6338   double t105509, t105516, t105517, t105531, t105533, t105535, t105536, t105537;
6339   double t105538, t105539, t105540, t105542, t105543, t105545, t105546, t105548;
6340   double t105550, t105552, t105554, t105557, t105561, t105563, t105565, t105567;
6341   double t105570, t105572, t105573, t105576, t105583, t105586, t105587, t105588;
6342   double t105594, t105599, t105601, t105602, t105605, t105609, t105611, t105613;
6343   double t105617, t105619, t105620, t105622, t105624, t105626, t105628, t105630;
6344   double t105632, t105634, t105637, t105643, t105645, t105648, t105649, t105652;
6345   double t105654, t105655, t105656, t105659, t105661, t105666, t105669, t105670;
6346   double t105671, t105672, t105673, t105675, t105676, t105677, t105683, t105687;
6347   double t105689, t105692, t105693, t105699, t105702, t105704, t105706, t105708;
6348   double t105709, t105710, t105712, t105714, t105719, t105724, t105728, t105748;
6349   double t105751, t105752, t105753, t105756, t105760, t105762, t105765, t105768;
6350   double t105769, t105770, t105772, t105775, t105776, t105777, t105778, t105785;
6351   double t105789, t105793, t105797, t105800, t105804, t105806, t105808, t105810;
6352   double t105812, t105813, t105816, t105819, t105822, t105826, t105828, t105829;
6353   double t105832, t105834, t105836, t105848, t105852, t105856, t105860, t105863;
6354   double t105865, t105870, t105872, t105874, t105875, t105878, t105880, t105881;
6355   double t105882, t105883, t105884, t105885, t105887, t105890, t105893, t105894;
6356   double t105896, t105898, t105900, t105901, t105905, t105907, t105909, t105912;
6357   double t105913, t105916, t105918, t105922, t105925, t105926, t105927, t105934;
6358   double t105938, t105941, t105942, t105946, t105949, t105950, t105951, t105953;
6359   double t105956, t105957, t105963, t105965, t105967, t105969, t105971, t105973;
6360   double t105974, t105976, t105980, t105982, t105984, t105985, t106002, t106023;
6361   double t106026, t106027, t106028, t106029, t106032, t106033, t106034, t106036;
6362   double t106038, t106039, t106040, t106044, t106047, t106050, t106053, t106055;
6363   double t106057, t106063, t106067, t106072, t106076, t106080, t106084, t106088;
6364   double t106092, t106094, t106096, t106100, t106103, t106105, t106112, t106117;
6365   double t106123, t106134, t106138, t106141, t106147, t106148, t106151, t106156;
6366   double t106159, t106167, t106171, t106175, t106176, t106178, t106180, t106190;
6367   double t106194, t106197, t106198, t106200, t106202, t106204, t106206, t106208;
6368   double t106210, t106212, t106215, t106217, t106219, t106221, t106228, t106232;
6369   double t106236, t106237, t106238, t106239, t106240, t106241, t106243, t106244;
6370   double t106245, t106246, t106250, t106254, t106258, t106263, t106265, t106268;
6371   double t106269, t106270, t106271, t106272, t106273, t106274, t106275, t106276;
6372   double t106280, t106281, t106282, t106285, t106286, t106289, t106290, t106293;
6373   double t106298, t106303, t106307, t106309, t106315, t106321, t106323, t106324;
6374   double t106331, t106333, t106345, t106346, t106348, t106349, t106351, t106352;
6375   double t106353, t106355, t106359, t106361, t106362, t106365, t106368, t106371;
6376   double t106375, t106377, t106378, t106382, t106402, t106404, t106405, t106406;
6377   double t106407, t106410, t106411, t106416, t106417, t106419, t106421, t106424;
6378   double t106426, t106427, t106430, t106431, t106433, t106438, t106442, t106443;
6379   double t106445, t106448, t106460, t106464, t106468, t106482, t106486, t106490;
6380   double t106497, t106501, t106515, t106517, t106519, t106525, t106527, t106534;
6381   double t106537, t106545, t106549, t106553, t106557, t106574, t106575, t106577;
6382   double t106579, t106584, t106586, t106588, t106590, t106592, t106594, t106604;
6383   double t106606, t106615, t106616, t106618, t106622, t106624, t106633, t106635;
6384   double t106637, t106641, t106643, t106645, t106654, t106657, t106663, t106664;
6385   double t106666, t106668, t106670, t106672, t106675, t106678, t106682, t106697;
6386   double t106703, t106705, t106707, t106710, t106717, t106729, t106731, t106733;
6387   double t106735, t106737, t106740, t106746, t106753, t106755, t106757, t106759;
6388   double t106770, t106774, t106776, t106778, t106780, t106782, t106793, t106795;
6389   double t106796, t106800, t106809, t106815, t106818, t106822, t106823, t106826;
6390   double t106828, t106830, t106832, t106834, t106837, t106839, t106843, t106850;
6391   double t106851, t106853, t106854, t106856, t106857, t106859, t106863, t106881;
6392   double t106885, t106898, t106901, t106910, t106914, t106919, t106923, t106933;
6393   double t106941, t106945, t106952, t106954, t106958, t106963, t106965, t106966;
6394   double t106969, t106971, t106976, t106980, t106982, t106984, t106986, t106988;
6395   double t106990, t106992, t106996, t106998, t107000, t107005, t107007, t107010;
6396   double t107014, t107017, t107026, t107027, t107028, t107040, t107049, t107051;
6397   double t107052, t107055, t107056, t107057, t107058, t107065, t107073, t107075;
6398   double t107079, t107081, t107083, t107100, t107104, t107105, t107107, t107110;
6399   double t107112, t107117, t107122, t107123, t107124, t107125, t107135, t107137;
6400   double t107141, t107143, t107144, t107148, t107150, t107153, t107155, t107161;
6401   double t107164, t107168, t107170, t107183, t107193, t107197, t107200, t107201;
6402   double t107202, t107204, t107213, t107215, t107216, t107224, t107233, t107234;
6403   double t107237, t107239, t107240, t107241, t107252, t107256, t107276, t107278;
6404   double t107281, t107283, t107285, t107290, t107292, t107317, t107332, t107356;
6405   double t107383, t107409, t107421, t107432, t107476, t107478, t107481, t107485;
6406   double t107489, t107499, t107508, t107533, t107540, t107559, t107579, t107580;
6407   double t107583, t107595, t107598, t107637, t107641, t107644, t107652, t107664;
6408   double t107684, t107693, t107711, t107713, t107717, t107721, t107737, t107756;
6409   double t107770, t107781, t107785, t107805, t107812, t107823, t107836, t107847;
6410   double t107859, t107866, t107897, t107901, t107924, t107935, t107942, t107949;
6411   double t107966, t107990, t108009, t108026, t108030, t108045, t108061, t108080;
6412   double t108089, t108108, t108121, t108126, t108138, t108147, t108156, t108190;
6413   double t108194, t108203, t108207, t108229, t108242, t108255, t108260, t108310;
6414   double t108342, t108365, t108374, t108405, t108414, t108417, t108433, t108452;
6415   double t108466, t108472, t108475, t108500, t108502, t108503, t108504, t108508;
6416   double t108509, t108511, t108512, t108513, t108515, t108516, t108517, t108519;
6417   double t108520, t108522, t108523, t108525, t108526, t108528, t108530, t108533;
6418   double t108535, t108536, t108544, t108548, t108552, t108555, t108556, t108557;
6419   double t108560, t108561, t108564, t108565, t108567, t108568, t108570, t108571;
6420   double t108573, t108574, t108576, t108577, t108579, t108583, t108585, t108587;
6421   double t108589, t108590, t108592, t108596, t108600, t108604, t108607, t108609;
6422   double t108610, t108611, t108612, t108613, t108616, t108618, t108619, t108620;
6423   double t108622, t108624, t108625, t108626, t108628, t108629, t108631, t108634;
6424   double t108635, t108638, t108640, t108642, t108644, t108645, t108647, t108648;
6425   double t108650, t108651, t108653, t108654, t108655, t108657, t108658, t108660;
6426   double t108661, t108662, t108664, t108666, t108667, t108670, t108671, t108673;
6427   double t108674, t108676, t108680, t108683, t108684, t108686, t108688, t108692;
6428   double t108693, t108696, t108698, t108700, t108704, t108707, t108710, t108711;
6429   double t108713, t108714, t108716, t108717, t108719, t108720, t108730, t108733;
6430   double t108736, t108739, t108740, t108743, t108744, t108747, t108750, t108751;
6431   double t108752, t108754, t108755, t108757, t108759, t108761, t108765, t108773;
6432   double t108777, t108778, t108781, t108783, t108786, t108788, t108790, t108791;
6433   double t108793, t108795, t108796, t108798, t108799, t108801, t108805, t108806;
6434   double t108810, t108812, t108815, t108819, t108822, t108824, t108826, t108828;
6435   double t108830, t108831, t108833, t108835, t108837, t108839, t108841, t108843;
6436   double t108845, t108847, t108848, t108850, t108852, t108854, t108856, t108858;
6437   double t108860, t108862, t108864, t108866, t108869, t108871, t108872, t108874;
6438   double t108875, t108877, t108878, t108881, t108886, t108891, t108894, t108898;
6439   double t108903, t108905, t108908, t108911, t108914, t108917, t108919, t108922;
6440   double t108925, t108930, t108932, t108937, t108939, t108941, t108943, t108944;
6441   double t108947, t108950, t108951, t108955, t108958, t108959, t108964, t108965;
6442   double t108967, t108970, t108971, t108973, t108976, t108977, t108979, t108981;
6443   double t108983, t108985, t108986, t108988, t108989, t108993, t108997, t109001;
6444   double t109002, t109006, t109009, t109012, t109016, t109018, t109019, t109021;
6445   double t109023, t109026, t109027, t109029, t109031, t109033, t109035, t109036;
6446   double t109037, t109039, t109040, t109042, t109043, t109045, t109046, t109048;
6447   double t109050, t109052, t109054, t109056, t109058, t109059, t109061, t109062;
6448   double t109064, t109065, t109067, t109068, t109070, t109071, t109073, t109075;
6449   double t109077, t109087, t109089, t109091, t109093, t109095, t109097, t109098;
6450   double t109100, t109102, t109104, t109105, t109106, t109109, t109110, t109113;
6451   double t109117, t109118, t109120, t109122, t109123, t109126, t109127, t109130;
6452   double t109131, t109133, t109134, t109136, t109137, t109139, t109140, t109142;
6453   double t109144, t109147, t109149, t109150, t109152, t109153, t109155, t109160;
6454   double t109161, t109164, t109165, t109167, t109168, t109171, t109175, t109177;
6455   double t109179, t109181, t109185, t109189, t109191, t109193, t109195, t109202;
6456   double t109204, t109205, t109216, t109220, t109224, t109228, t109233, t109236;
6457   double t109237, t109238, t109241, t109242, t109244, t109246, t109249, t109253;
6458   double t109255, t109257, t109258, t109261, t109263, t109264, t109266, t109269;
6459   double t109271, t109272, t109274, t109276, t109277, t109279, t109280, t109282;
6460   double t109283, t109285, t109287, t109297, t109298, t109300, t109301, t109303;
6461   double t109304, t109307, t109309, t109310, t109313, t109318, t109323, t109326;
6462   double t109330, t109335, t109337, t109341, t109344, t109346, t109348, t109349;
6463   double t109353, t109355, t109357, t109360, t109363, t109366, t109373, t109375;
6464   double t109376, t109379, t109383, t109384, t109387, t109390, t109393, t109394;
6465   double t109397, t109398, t109400, t109404, t109405, t109408, t109413, t109417;
6466   double t109421, t109425, t109427, t109428, t109430, t109431, t109433, t109435;
6467   double t109437, t109439, t109441, t109442, t109444, t109446, t109448, t109450;
6468   double t109453, t109455, t109456, t109458, t109459, t109461, t109464, t109467;
6469   double t109471, t109474, t109477, t109482, t109483, t109486, t109487, t109490;
6470   double t109493, t109496, t109498, t109501, t109502, t109505, t109506, t109507;
6471   double t109510, t109511, t109515, t109519, t109522, t109524, t109526, t109529;
6472   double t109531, t109534, t109535, t109537, t109538, t109539, t109544, t109546;
6473   double t109550, t109551, t109557, t109562, t109564, t109567, t109569, t109571;
6474   double t109573, t109575, t109577, t109580, t109581, t109584, t109586, t109592;
6475   double t109594, t109596, t109601, t109604, t109608, t109610, t109614, t109615;
6476   double t109617, t109618, t109619, t109620, t109621, t109622, t109623, t109625;
6477   double t109626, t109627, t109628, t109629, t109630, t109633, t109636, t109637;
6478   double t109639, t109640, t109642, t109644, t109645, t109646, t109648, t109649;
6479   double t109651, t109653, t109655, t109657, t109659, t109660, t109661, t109663;
6480   double t109666, t109669, t109678, t109682, t109683, t109684, t109688, t109690;
6481   double t109695, t109697, t109699, t109701, t109702, t109704, t109706, t109707;
6482   double t109709, t109710, t109712, t109728, t109729, t109732, t109733, t109736;
6483   double t109739, t109742, t109751, t109754, t109758, t109762, t109764, t109765;
6484   double t109767, t109769, t109771, t109773, t109775, t109777, t109779, t109780;
6485   double t109782, t109784, t109785, t109787, t109791, t109794, t109798, t109800;
6486   double t109801, t109803, t109805, t109806, t109809, t109812, t109822, t109824;
6487   double t109826, t109827, t109829, t109831, t109833, t109835, t109837, t109838;
6488   double t109840, t109841, t109843, t109847, t109849, t109851, t109853, t109854;
6489   double t109859, t109861, t109863, t109864, t109866, t109868, t109875, t109879;
6490   double t109883, t109887, t109889, t109891, t109893, t109898, t109903, t109907;
6491   double t109911, t109915, t109919, t109921, t109922, t109924, t109926, t109928;
6492   double t109930, t109932, t109934, t109935, t109937, t109941, t109945, t109948;
6493   double t109951, t109954, t109955, t109958, t109961, t109964, t109967, t109969;
6494   double t109971, t109979, t109981, t109983, t109986, t109989, t109990, t109992;
6495   double t109994, t109997, t110000, t110003, t110007, t110009, t110014, t110016;
6496   double t110017, t110020, t110022, t110024, t110037, t110040, t110043, t110045;
6497   double t110050, t110052, t110054, t110061, t110065, t110066, t110070, t110074;
6498   double t110076, t110078, t110080, t110082, t110084, t110086, t110091, t110095;
6499   double t110098, t110100, t110104, t110113, t110117, t110121, t110123, t110125;
6500   double t110127, t110129, t110131, t110133, t110134, t110137, t110139, t110141;
6501   double t110143, t110145, t110147, t110149, t110151, t110153, t110155, t110157;
6502   double t110161, t110163, t110164, t110166, t110176, t110182, t110186, t110188;
6503   double t110190, t110191, t110194, t110198, t110205, t110209, t110213, t110226;
6504   double t110229, t110230, t110236, t110238, t110240, t110244, t110250, t110251;
6505   double t110255, t110256, t110258, t110259, t110261, t110262, t110264, t110266;
6506   double t110268, t110272, t110277, t110282, t110285, t110286, t110288, t110289;
6507   double t110291, t110293, t110295, t110297, t110299, t110300, t110302, t110304;
6508   double t110306, t110308, t110310, t110312, t110314, t110316, t110318, t110320;
6509   double t110322, t110324, t110328, t110333, t110338, t110342, t110350, t110353;
6510   double t110356, t110357, t110359, t110361, t110363, t110364, t110365, t110367;
6511   double t110369, t110371, t110372, t110379, t110382, t110386, t110388, t110390;
6512   double t110391, t110393, t110395, t110397, t110399, t110401, t110408, t110411;
6513   double t110412, t110418, t110421, t110422, t110423, t110424, t110425, t110426;
6514   double t110427, t110429, t110430, t110431, t110433, t110434, t110435, t110436;
6515   double t110437, t110439, t110449, t110451, t110453, t110455, t110457, t110461;
6516   double t110465, t110466, t110469, t110471, t110473, t110475, t110479, t110481;
6517   double t110483, t110484, t110489, t110493, t110495, t110500, t110502, t110506;
6518   double t110510, t110516, t110517, t110519, t110520, t110522, t110523, t110525;
6519   double t110526, t110529, t110531, t110533, t110535, t110538, t110544, t110548;
6520   double t110551, t110553, t110554, t110557, t110561, t110565, t110568, t110571;
6521   double t110574, t110575, t110578, t110581, t110584, t110587, t110589, t110591;
6522   double t110602, t110608, t110611, t110614, t110617, t110620, t110624, t110627;
6523   double t110630, t110633, t110640, t110642, t110644, t110646, t110652, t110657;
6524   double t110660, t110661, t110663, t110668, t110670, t110672, t110674, t110676;
6525   double t110678, t110680, t110681, t110685, t110686, t110692, t110694, t110695;
6526   double t110707, t110713, t110715, t110721, t110723, t110726, t110728, t110737;
6527   double t110742, t110744, t110749, t110750, t110756, t110764, t110768, t110771;
6528   double t110773, t110775, t110777, t110779, t110781, t110783, t110785, t110786;
6529   double t110787, t110790, t110793, t110797, t110799, t110801, t110805, t110810;
6530   double t110820, t110822, t110830, t110833, t110839, t110841, t110843, t110844;
6531   double t110845, t110847, t110848, t110849, t110851, t110852, t110854, t110855;
6532   double t110857, t110859, t110865, t110867, t110869, t110872, t110874, t110876;
6533   double t110878, t110879, t110885, t110887, t110889, t110891, t110893, t110896;
6534   double t110899, t110900, t110902, t110905, t110923, t110925, t110927, t110929;
6535   double t110931, t110932, t110934, t110936, t110938, t110940, t110942, t110944;
6536   double t110950, t110953, t110957, t110961, t110964, t110967, t110970, t110971;
6537   double t110974, t110977, t110980, t110985, t110987, t110989, t110991, t110993;
6538   double t110995, t110997, t110999, t111005, t111008, t111010, t111016, t111024;
6539   double t111026, t111030, t111031, t111032, t111033, t111034, t111035, t111036;
6540   double t111037, t111038, t111039, t111040, t111041, t111042, t111043, t111048;
6541   double t111050, t111053, t111056, t111058, t111061, t111064, t111066, t111068;
6542   double t111080, t111081, t111083, t111092, t111099, t111108, t111111, t111118;
6543   double t111120, t111121, t111122, t111124, t111125, t111142, t111145, t111150;
6544   double t111161, t111164, t111165, t111176, t111179, t111187, t111195, t111198;
6545   double t111200, t111202, t111206, t111209, t111211, t111215, t111217, t111218;
6546   double t111220, t111222, t111224, t111226, t111228, t111232, t111237, t111239;
6547   double t111242, t111247, t111249, t111254, t111256, t111258, t111267, t111269;
6548   double t111271, t111273, t111277, t111281, t111284, t111287, t111290, t111291;
6549   double t111294, t111297, t111300, t111303, t111305, t111311, t111314, t111316;
6550   double t111318, t111320, t111322, t111324, t111326, t111334, t111335, t111344;
6551   double t111346, t111350, t111351, t111356, t111359, t111361, t111383, t111388;
6552   double t111409, t111411, t111413, t111415, t111420, t111434, t111437, t111458;
6553   double t111464, t111468, t111478, t111481, t111484, t111487, t111498, t111503;
6554   double t111506, t111508, t111510, t111519, t111522, t111525, t111528, t111529;
6555   double t111530, t111533, t111534, t111565, t111590, t111609, t111624, t111627;
6556   double t111632, t111637, t111640, t111644, t111649, t111684, t111707, t111710;
6557   double t111718, t111720, t111743, t111765, t111778, t111793, t111795, t111811;
6558   double t111812, t111814, t111845, t111876, t111909, t111932, t111934, t111961;
6559   double t111964, t111969, t111974, t111977, t111981, t111986, t112018, t112044;
6560   double t112047, t112059, t112074, t112085, t112113, t112118, t112120, t112127;
6561   double t112145, t112158, t112161, t112166, t112170, t112175, t112176, t112179;
6562   double t112181, t112182, t112185, t112188, t112190, t112197, t112213, t112220;
6563   double t112230, t112240, t112250, t112253, t112256, t112259, t112262, t112265;
6564   double t112266, t112276, t112283, t112287, t112291, t112294, t112297, t112300;
6565   double t112301, t112304, t112307, t112310, t112322, t112327, t112345, t112346;
6566   double t112350, t112351, t112352, t112355, t112383, t112401, t112408, t112412;
6567   double t112416, t112432, t112445, t112463, t112472, t112478, t112489, t112491;
6568   double t112508, t112517, t112535, t112542, t112563, t112574, t112578, t112582;
6569   double t112585, t112588, t112591, t112592, t112595, t112598, t112601, t112615;
6570   double t112622, t112630, t112637, t112641, t112642, t112652, t112655, t112658;
6571   double t112661, t112669, t112696, t112706, t112717, t112730, t112740, t112753;
6572   double t112768, t112771, t112776, t112781, t112784, t112788, t112793, t112804;
6573   double t112816, t112819, t112825, t112838, t112848, t112866, t112886, t112898;
6574   double t112909, t112926, t112929, t112934, t112939, t112942, t112946, t112951;
6575   double t112964, t112974, t112977, t112979, t112981, t112983, t112984, t112987;
6576   double t112988, t112991, t112992, t112995, t112996, t113004, t113008, t113012;
6577   double t113016, t113017, t113021, t113024, t113025, t113029, t113031, t113033;
6578   double t113035, t113042, t113044, t113046, t113048, t113049, t113052, t113053;
6579   double t113056, t113057, t113059, t113061, t113062, t113064, t113067, t113070;
6580   double t113072, t113073, t113075, t113076, t113078, t113079, t113081, t113083;
6581   double t113087, t113089, t113091, t113092, t113094, t113095, t113097, t113098;
6582   double t113099, t113101, t113102, t113104, t113105, t113109, t113110, t113112;
6583   double t113113, t113115, t113116, t113118, t113119, t113121, t113123, t113125;
6584   double t113126, t113128, t113129, t113131, t113132, t113135, t113137, t113139;
6585   double t113141, t113142, t113144, t113146, t113148, t113150, t113151, t113155;
6586   double t113157, t113158, t113163, t113165, t113166, t113169, t113172, t113175;
6587   double t113178, t113179, t113181, t113185, t113189, t113193, t113197, t113201;
6588   double t113205, t113206, t113215, t113218, t113220, t113225, t113227, t113230;
6589   double t113232, t113234, t113236, t113238, t113239, t113241, t113242, t113244;
6590   double t113246, t113247, t113250, t113252, t113253, t113254, t113257, t113258;
6591   double t113259, t113262, t113265, t113268, t113270, t113272, t113273, t113274;
6592   double t113276, t113277, t113281, t113282, t113285, t113290, t113291, t113292;
6593   double t113294, t113295, t113297, t113300, t113302, t113305, t113306, t113307;
6594   double t113308, t113310, t113312, t113314, t113316, t113319, t113322, t113323;
6595   double t113324, t113325, t113327, t113328, t113329, t113331, t113332, t113334;
6596   double t113335, t113337, t113340, t113359, t113362, t113365, t113368, t113371;
6597   double t113372, t113376, t113378, t113382, t113383, t113384, t113385, t113388;
6598   double t113389, t113391, t113393, t113394, t113396, t113400, t113404, t113407;
6599   double t113410, t113411, t113414, t113419, t113421, t113424, t113425, t113429;
6600   double t113431, t113432, t113434, t113438, t113442, t113445, t113449, t113451;
6601   double t113453, t113455, t113456, t113459, t113466, t113474, t113475, t113477;
6602   double t113479, t113481, t113482, t113485, t113486, t113489, t113490, t113493;
6603   double t113496, t113498, t113500, t113502, t113504, t113505, t113508, t113511;
6604   double t113513, t113523, t113524, t113528, t113529, t113531, t113533, t113535;
6605   double t113536, t113538, t113539, t113542, t113543, t113547, t113550, t113551;
6606   double t113555, t113559, t113561, t113563, t113565, t113567, t113569, t113571;
6607   double t113575, t113579, t113580, t113581, t113586, t113587, t113589, t113590;
6608   double t113592, t113593, t113595, t113597, t113598, t113602, t113604, t113606;
6609   double t113609, t113610, t113612, t113614, t113616, t113620, t113624, t113628;
6610   double t113631, t113632, t113634, t113635, t113640, t113642, t113644, t113646;
6611   double t113647, t113650, t113651, t113654, t113655, t113658, t113660, t113662;
6612   double t113664, t113666, t113668, t113670, t113671, t113674, t113675, t113677;
6613   double t113680, t113683, t113685, t113686, t113688, t113690, t113691, t113693;
6614   double t113694, t113696, t113697, t113699, t113700, t113702, t113704, t113705;
6615   double t113707, t113708, t113710, t113711, t113713, t113715, t113720, t113721;
6616   double t113723, t113725, t113726, t113728, t113729, t113731, t113733, t113735;
6617   double t113744, t113747, t113749, t113750, t113753, t113770, t113773, t113778;
6618   double t113782, t113783, t113788, t113789, t113791, t113795, t113796, t113798;
6619   double t113800, t113802, t113804, t113805, t113807, t113812, t113815, t113818;
6620   double t113819, t113824, t113826, t113829, t113832, t113835, t113836, t113838;
6621   double t113842, t113846, t113858, t113860, t113862, t113868, t113870, t113871;
6622   double t113873, t113877, t113880, t113884, t113888, t113891, t113895, t113899;
6623   double t113902, t113904, t113905, t113907, t113909, t113914, t113919, t113921;
6624   double t113923, t113925, t113932, t113936, t113940, t113944, t113946, t113947;
6625   double t113949, t113950, t113952, t113953, t113955, t113956, t113958, t113960;
6626   double t113962, t113968, t113970, t113973, t113975, t113977, t113978, t113982;
6627   double t113984, t113986, t113988, t113989, t113992, t113995, t113998, t114007;
6628   double t114010, t114013, t114014, t114017, t114027, t114029, t114031, t114033;
6629   double t114035, t114037, t114039, t114041, t114044, t114056, t114058, t114059;
6630   double t114061, t114062, t114064, t114065, t114067, t114069, t114070, t114071;
6631   double t114075, t114079, t114083, t114091, t114093, t114097, t114099, t114100;
6632   double t114101, t114104, t114107, t114110, t114115, t114117, t114123, t114127;
6633   double t114131, t114134, t114140, t114142, t114143, t114146, t114147, t114151;
6634   double t114153, t114155, t114159, t114163, t114165, t114168, t114170, t114172;
6635   double t114175, t114177, t114179, t114180, t114183, t114185, t114187, t114189;
6636   double t114190, t114193, t114195, t114196, t114198, t114199, t114201, t114202;
6637   double t114205, t114207, t114211, t114213, t114215, t114217, t114219, t114221;
6638   double t114223, t114225, t114226, t114228, t114229, t114231, t114234, t114238;
6639   double t114240, t114242, t114244, t114246, t114248, t114250, t114252, t114254;
6640   double t114256, t114258, t114260, t114263, t114264, t114265, t114268, t114271;
6641   double t114272, t114274, t114275, t114277, t114278, t114280, t114282, t114284;
6642   double t114288, t114290, t114294, t114301, t114305, t114307, t114309, t114313;
6643   double t114315, t114318, t114319, t114322, t114326, t114330, t114332, t114334;
6644   double t114336, t114339, t114345, t114346, t114350, t114360, t114371, t114373;
6645   double t114375, t114381, t114385, t114388, t114394, t114404, t114407, t114410;
6646   double t114411, t114414, t114415, t114416, t114417, t114418, t114419, t114421;
6647   double t114423, t114425, t114426, t114427, t114428, t114432, t114435, t114438;
6648   double t114441, t114445, t114451, t114452, t114456, t114460, t114462, t114464;
6649   double t114466, t114467, t114476, t114477, t114480, t114483, t114486, t114492;
6650   double t114500, t114504, t114506, t114508, t114510, t114511, t114514, t114516;
6651   double t114518, t114520, t114522, t114524, t114526, t114528, t114530, t114532;
6652   double t114536, t114538, t114539, t114541, t114555, t114558, t114560, t114562;
6653   double t114564, t114565, t114569, t114576, t114580, t114584, t114588, t114595;
6654   double t114598, t114599, t114602, t114612, t114616, t114618, t114620, t114622;
6655   double t114624, t114626, t114628, t114630, t114631, t114644, t114646, t114649;
6656   double t114651, t114653, t114655, t114656, t114658, t114660, t114662, t114664;
6657   double t114666, t114668, t114674, t114682, t114684, t114686, t114687, t114692;
6658   double t114694, t114698, t114700, t114702, t114704, t114706, t114708, t114712;
6659   double t114714, t114718, t114722, t114723, t114724, t114728, t114734, t114736;
6660   double t114740, t114744, t114746, t114753, t114755, t114757, t114760, t114766;
6661   double t114773, t114777, t114782, t114784, t114795, t114799, t114800, t114804;
6662   double t114807, t114811, t114815, t114818, t114822, t114824, t114826, t114828;
6663   double t114832, t114834, t114836, t114838, t114840, t114842, t114843, t114844;
6664   double t114846, t114847, t114849, t114850, t114852, t114854, t114855, t114857;
6665   double t114858, t114860, t114866, t114868, t114870, t114872, t114873, t114876;
6666   double t114878, t114880, t114882, t114884, t114886, t114888, t114890, t114892;
6667   double t114894, t114896, t114898, t114900, t114901, t114904, t114907, t114909;
6668   double t114910, t114912, t114916, t114920, t114924, t114931, t114935, t114945;
6669   double t114956, t114963, t114966, t114969, t114971, t114979, t114980, t114982;
6670   double t114984, t114986, t114988, t114990, t114992, t114995, t114998, t115001;
6671   double t115005, t115008, t115011, t115015, t115021, t115025, t115027, t115028;
6672   double t115030, t115032, t115037, t115040, t115043, t115048, t115052, t115053;
6673   double t115054, t115055, t115056, t115057, t115058, t115059, t115060, t115070;
6674   double t115073, t115075, t115077, t115083, t115087, t115090, t115092, t115107;
6675   double t115109, t115111, t115125, t115127, t115129, t115130, t115132, t115133;
6676   double t115135, t115136, t115140, t115142, t115144, t115153, t115155, t115163;
6677   double t115166, t115169, t115178, t115182, t115185, t115191, t115193, t115197;
6678   double t115199, t115206, t115208, t115210, t115215, t115217, t115219, t115221;
6679   double t115223, t115225, t115227, t115230, t115233, t115235, t115237, t115239;
6680   double t115241, t115247, t115250, t115253, t115257, t115259, t115261, t115263;
6681   double t115265, t115267, t115269, t115271, t115273, t115277, t115280, t115282;
6682   double t115283, t115285, t115286, t115288, t115292, t115295, t115298, t115299;
6683   double t115304, t115317, t115321, t115331, t115339, t115344, t115348, t115350;
6684   double t115352, t115354, t115356, t115358, t115362, t115366, t115370, t115372;
6685   double t115377, t115383, t115387, t115388, t115390, t115392, t115394, t115396;
6686   double t115398, t115400, t115402, t115404, t115407, t115409, t115413, t115417;
6687   double t115426, t115430, t115432, t115434, t115436, t115438, t115440, t115442;
6688   double t115444, t115446, t115448, t115450, t115452, t115454, t115455, t115456;
6689   double t115457, t115467, t115471, t115476, t115486, t115488, t115491, t115493;
6690   double t115495, t115496, t115504, t115506, t115508, t115509, t115512, t115519;
6691   double t115528, t115534, t115536, t115538, t115539, t115541, t115543, t115545;
6692   double t115547, t115559, t115561, t115563, t115572, t115574, t115583, t115587;
6693   double t115596, t115604, t115606, t115610, t115612, t115617, t115630, t115635;
6694   double t115637, t115640, t115644, t115654, t115663, t115665, t115667, t115669;
6695   double t115671, t115675, t115679, t115681, t115687, t115691, t115693, t115699;
6696   double t115702, t115706, t115710, t115716, t115719, t115738, t115743, t115746;
6697   double t115756, t115759, t115762, t115765, t115782, t115792, t115801, t115819;
6698   double t115831, t115846, t115851, t115864, t115874, t115877, t115882, t115903;
6699   double t115914, t115928, t115947, t115950, t116001, t116023, t116038, t116073;
6700   double t116106, t116142, t116176, t116215, t116235, t116260, t116263, t116306;
6701   double t116336, t116345, t116348, t116370, t116379, t116394, t116419, t116425;
6702   double t116430, t116441, t116449, t116464, t116477, t116498, t116499, t116502;
6703   double t116505, t116508, t116511, t116514, t116522, t116525, t116528, t116530;
6704   double t116537, t116540, t116545, t116546, t116550, t116560, t116582, t116589;
6705   double t116607, t116613, t116617, t116624, t116631, t116657, t116670, t116691;
6706   double t116704, t116723, t116728, t116736, t116753, t116773, t116784, t116798;
6707   double t116805, t116811, t116818, t116822, t116832, t116844, t116849, t116861;
6708   double t116874, t116878, t116890, t116908, t116925, t116931, t116934, t116937;
6709   double t116940, t116958, t116973, t116985, t116990, t117004, t117007, t117037;
6710   double t117045, t117059, t117078, t117087, t117103, t117123, t117143, t117153;
6711   double t117169, t117172, t117200, t117210, t117213, t117214, t117217, t117223;
6712   double t117226, t117227, t117229, t117234, t117236, t117241, t117245, t117249;
6713   double t117253, t117259, t117263, t117264, t117266, t117269, t117270, t117274;
6714   double t117275, t117278, t117284, t117286, t117287, t117289, t117290, t117292;
6715   double t117294, t117296, t117298, t117300, t117313, t117315, t117317, t117318;
6716   double t117320, t117324, t117335, t117339, t117342, t117343, t117344, t117346;
6717   double t117348, t117351, t117354, t117356, t117357, t117360, t117362, t117365;
6718   double t117370, t117371, t117373, t117374, t117383, t117384, t117386, t117390;
6719   double t117394, t117397, t117399, t117402, t117404, t117405, t117408, t117410;
6720   double t117415, t117417, t117418, t117420, t117421, t117425, t117426, t117428;
6721   double t117430, t117433, t117435, t117439, t117443, t117444, t117446, t117450;
6722   double t117454, t117460, t117465, t117468, t117472, t117477, t117480, t117483;
6723   double t117485, t117487, t117489, t117491, t117494, t117496, t117500, t117504;
6724   double t117506, t117509, t117510, t117513, t117516, t117518, t117520, t117523;
6725   double t117531, t117533, t117537, t117540, t117544, t117551, t117554, t117555;
6726   double t117559, t117562, t117565, t117569, t117572, t117573, t117575, t117576;
6727   double t117578, t117580, t117581, t117585, t117588, t117591, t117592, t117601;
6728   double t117602, t117604, t117605, t117607, t117609, t117610, t117619, t117621;
6729   double t117625, t117631, t117632, t117634, t117635, t117637, t117638, t117640;
6730   double t117649, t117650, t117654, t117656, t117658, t117659, t117662, t117663;
6731   double t117667, t117669, t117673, t117676, t117679, t117682, t117684, t117685;
6732   double t117687, t117690, t117691, t117693, t117695, t117696, t117699, t117700;
6733   double t117702, t117704, t117715, t117719, t117722, t117723, t117728, t117730;
6734   double t117733, t117736, t117740, t117742, t117744, t117748, t117750, t117754;
6735   double t117756, t117757, t117759, t117761, t117762, t117763, t117765, t117768;
6736   double t117770, t117773, t117775, t117777, t117778, t117779, t117780, t117782;
6737   double t117784, t117791, t117795, t117799, t117801, t117803, t117804, t117810;
6738   double t117814, t117818, t117819, t117822, t117826, t117829, t117832, t117835;
6739   double t117836, t117839, t117842, t117845, t117854, t117856, t117858, t117860;
6740   double t117862, t117864, t117871, t117872, t117877, t117879, t117881, t117883;
6741   double t117884, t117887, t117889, t117890, t117894, t117896, t117900, t117904;
6742   double t117910, t117912, t117915, t117917, t117919, t117920, t117923, t117926;
6743   double t117929, t117932, t117934, t117937, t117940, t117943, t117946, t117948;
6744   double t117950, t117952, t117954, t117955, t117959, t117960, t117961, t117962;
6745   double t117964, t117965, t117967, t117971, t117974, t117977, t117979, t117980;
6746   double t117982, t117983, t117987, t117994, t117998, t118001, t118004, t118015;
6747   double t118018, t118020, t118023, t118026, t118029, t118031, t118032, t118036;
6748   double t118038, t118039, t118041, t118043, t118047, t118048, t118049, t118050;
6749   double t118052, t118055, t118059, t118060, t118071, t118073, t118075, t118080;
6750   double t118084, t118086, t118090, t118093, t118094, t118099, t118103, t118105;
6751   double t118107, t118110, t118113, t118116, t118118, t118122, t118126, t118127;
6752   double t118129, t118131, t118133, t118138, t118141, t118142, t118144, t118146;
6753   double t118150, t118152, t118154, t118156, t118159, t118170, t118173, t118175;
6754   double t118177, t118179, t118185, t118187, t118188, t118190, t118194, t118198;
6755   double t118204, t118209, t118212, t118217, t118219, t118222, t118225, t118228;
6756   double t118230, t118239, t118248, t118250, t118252, t118253, t118256, t118260;
6757   double t118262, t118264, t118267, t118269, t118273, t118275, t118278, t118281;
6758   double t118283, t118288, t118290, t118294, t118295, t118298, t118300, t118329;
6759   double t118334, t118340, t118341, t118357, t118362, t118389, t118426, t118428;
6760   double t118435, t118486, t118488, t118492, t118496, t118502, t118507, t118510;
6761   double t118551, t118593, t118596, t118608, t118616, t118618, t118619, t118646;
6762   double t118654, t118673, t118683, t118689, t118707, t118717, t118732, t118756;
6763   double t118779, t118808, t118814, t118817, t118821, t118824, t118827, t118830;
6764   double t118831, t118834, t118837, t118840, t118868, t118898, t118932, t118962;
6765   double t118966, t118967, t118979, t118981, t118990, t119007, t119028, t119032;
6766   double t119054, t119063, t119101, t119146, t119153, t119155, t119159, t119163;
6767   double t119169, t119174, t119177, t119216, t119260, t119263, t119297, t119320;
6768   double t119336, t119345, t119347, t119351, t119355, t119361, t119366, t119369;
6769   double t119385, t119394, t119397, t119409, t119421, t119443, t119453, t119461;
6770   double t119463, t119478, t119487, t119490, t119494, t119497, t119500, t119503;
6771   double t119504, t119507, t119510, t119513, t119525, t119540, t119548, t119557;
6772   double t119561, t119562, t119594, t119605, t119626, t119644, t119646, t119650;
6773   double t119654, t119660, t119665, t119668, t119678, t119693, t119696, t119700;
6774   double t119703, t119706, t119723, t119726, t119728, t119735, t119739, t119743;
6775   double t119748, t119749, t119752, t119755, t119763, t119767, t119769, t119770;
6776   double t119775, t119777, t119781, t119783, t119791, t119794, t119796, t119800;
6777   double t119801, t119803, t119805, t119808, t119812, t119816, t119818, t119820;
6778   double t119822, t119825, t119827, t119828, t119830, t119831, t119833, t119836;
6779   double t119838, t119842, t119844, t119846, t119850, t119855, t119857, t119861;
6780   double t119862, t119864, t119867, t119872, t119875, t119877, t119879, t119881;
6781   double t119883, t119886, t119888, t119895, t119902, t119904, t119905, t119907;
6782   double t119910, t119911, t119913, t119931, t119935, t119937, t119939, t119942;
6783   double t119945, t119951, t119953, t119955, t119962, t119965, t119968, t119969;
6784   double t119972, t119974, t119979, t119983, t119985, t119988, t119993, t119998;
6785   double t120000, t120004, t120006, t120010, t120011, t120017, t120020, t120023;
6786   double t120026, t120030, t120033, t120036, t120038, t120041, t120043, t120044;
6787   double t120048, t120050, t120054, t120058, t120059, t120061, t120062, t120064;
6788   double t120065, t120067, t120068, t120070, t120073, t120075, t120077, t120080;
6789   double t120084, t120086, t120090, t120091, t120093, t120094, t120096, t120098;
6790   double t120101, t120103, t120106, t120107, t120110, t120113, t120116, t120120;
6791   double t120124, t120130, t120132, t120134, t120135, t120138, t120141, t120144;
6792   double t120147, t120157, t120158, t120164, t120167, t120170, t120172, t120175;
6793   double t120182, t120186, t120188, t120190, t120196, t120201, t120205, t120207;
6794   double t120209, t120212, t120214, t120217, t120221, t120223, t120226, t120229;
6795   double t120235, t120238, t120240, t120244, t120248, t120250, t120252, t120254;
6796   double t120257, t120259, t120263, t120264, t120267, t120277, t120286, t120290;
6797   double t120292, t120294, t120296, t120300, t120304, t120306, t120308, t120309;
6798   double t120311, t120313, t120316, t120318, t120321, t120326, t120329, t120332;
6799   double t120335, t120337, t120339, t120342, t120345, t120348, t120351, t120359;
6800   double t120362, t120364, t120366, t120369, t120372, t120375, t120385, t120387;
6801   double t120390, t120393, t120396, t120400, t120402, t120405, t120409, t120411;
6802   double t120417, t120420, t120421, t120423, t120425, t120428, t120431, t120433;
6803   double t120435, t120437, t120442, t120449, t120453, t120457, t120461, t120466;
6804   double t120473, t120475, t120477, t120481, t120486, t120490, t120495, t120497;
6805   double t120501, t120505, t120507, t120509, t120510, t120512, t120514, t120516;
6806   double t120519, t120520, t120523, t120527, t120531, t120534, t120535, t120537;
6807   double t120538, t120540, t120541, t120543, t120549, t120551, t120554, t120556;
6808   double t120558, t120562, t120564, t120568, t120570, t120571, t120574, t120577;
6809   double t120580, t120583, t120593, t120594, t120599, t120600, t120602, t120604;
6810   double t120615, t120619, t120624, t120627, t120629, t120654, t120660, t120662;
6811   double t120664, t120666, t120670, t120672, t120676, t120681, t120682, t120687;
6812   double t120690, t120693, t120696, t120700, t120703, t120706, t120708, t120710;
6813   double t120713, t120715, t120717, t120722, t120724, t120726, t120727, t120767;
6814   double t120808, t120810, t120823, t120865, t120906, t120908, t120963, t121006;
6815   double t121031, t121049, t121073, t121099, t121118, t121133, t121165, t121194;
6816   double t121225, t121228, t121238, t121275, t121290, t121325, t121354, t121358;
6817   double t121393, t121402, t121445, t121486, t121535, t121537, t121593, t121635;
6818   double t121667, t121701, t121711, t121719, t121721, t121748, t121761, t121770;
6819   double t121779, t121791, t121796, t121807, t121819, t121832, t121842, t121845;
6820   double t121855, t121875, t121878, t121888, t121897, t121901, t121931, t121943;
6821   double t121969, t121983, t121985, t122022, t122025, t122028, t122045, t122046;
6822   double t122055, t122060, t122079, t122094, t122099, t122105, t122110, t122158;
6823   double t122160, t122184, t122198, t122204, t122205, t122210, t122223, t122243;
6824   double t122259, t122260, t122265, t122270, t122273, t122277, t122282, t122325;
6825   double t122365, t122368, t122385, t122387, t122388, t122393, t122394, t122405;
6826   double t122417, t122421, t122463, t122464, t122468, t122472, t122478, t122483;
6827   double t122486, t122528, t122569, t122572, t122589, t122590, t122594, t122599;
6828   double t122618, t122633, t122638, t122644, t122649, t122697, t122721, t122754;
6829   double t122813, t122831, t122867, t122907, t122908, t122960, t123006, t123041;
6830   double t123084, t123094, t123095, t123150, t123193, t123223, t123256, t123315;
6831   double t123318, t123319, t123322, t123323, t123325, t123326, t123330, t123331;
6832   double t123334, t123337, t123338, t123340, t123341, t123344, t123345, t123347;
6833   double t123348, t123351, t123355, t123357, t123360, t123361, t123363, t123365;
6834   double t123367, t123370, t123372, t123373, t123377, t123380, t123384, t123385;
6835   double t123389, t123390, t123394, t123395, t123398, t123401, t123402, t123403;
6836   double t123407, t123408, t123411, t123417, t123418, t123421, t123423, t123426;
6837   double t123429, t123430, t123432, t123433, t123434, t123435, t123440, t123442;
6838   double t123446, t123447, t123456, t123460, t123461, t123462, t123473, t123477;
6839   double t123482, t123489, t123505, t123520, t123524, t123536, t123538, t123541;
6840   double t123543, t123546, t123547, t123549, t123550, t123555, t123558, t123560;
6841   double t123561, t123563, t123565, t123569, t123571, t123572, t123575, t123579;
6842   double t123580, t123583, t123585, t123586, t123588, t123590, t123591, t123602;
6843   double t123604, t123606, t123608, t123610, t123614, t123615, t123618, t123619;
6844   double t123620, t123622, t123623, t123625, t123626, t123628, t123629, t123632;
6845   double t123633, t123635, t123636, t123637, t123639, t123640, t123643, t123647;
6846   double t123649, t123650, t123652, t123654, t123656, t123660, t123661, t123663;
6847   double t123664, t123665, t123668, t123670, t123672, t123674, t123675, t123679;
6848   double t123681, t123682, t123685, t123687, t123688, t123690, t123694, t123698;
6849   double t123701, t123702, t123709, t123714, t123732, t123733, t123735, t123739;
6850   double t123741, t123743, t123746, t123747, t123750, t123751, t123755, t123756;
6851   double t123759, t123762, t123764, t123767, t123768, t123770, t123773, t123774;
6852   double t123775, t123777, t123780, t123782, t123783, t123785, t123786, t123789;
6853   double t123791, t123792, t123796, t123799, t123800, t123805, t123806, t123808;
6854   double t123809, t123810, t123811, t123812, t123814, t123817, t123818, t123819;
6855   double t123821, t123822, t123824, t123825, t123827, t123830, t123831, t123833;
6856   double t123837, t123838, t123841, t123844, t123845, t123846, t123847, t123848;
6857   double t123852, t123854, t123857, t123859, t123872, t123874, t123876, t123877;
6858   double t123879, t123880, t123881, t123883, t123888, t123890, t123891, t123892;
6859   double t123893, t123895, t123896, t123897, t123898, t123900, t123901, t123903;
6860   double t123904, t123907, t123908, t123909, t123910, t123914, t123915, t123916;
6861   double t123917, t123921, t123922, t123923, t123924, t123925, t123928, t123930;
6862   double t123934, t123938, t123939, t123941, t123942, t123944, t123945, t123947;
6863   double t123951, t123955, t123957, t123958, t123959, t123960, t123961, t123965;
6864   double t123968, t123973, t123976, t123977, t123979, t123980, t123982, t123983;
6865   double t123984, t123985, t123986, t123987, t123988, t123995, t123998, t124001;
6866   double t124005, t124006, t124009, t124011, t124024, t124025, t124026, t124032;
6867   double t124033, t124034, t124036, t124040, t124042, t124046, t124049, t124050;
6868   double t124051, t124053, t124054, t124055, t124056, t124059, t124060, t124062;
6869   double t124064, t124065, t124067, t124068, t124069, t124071, t124072, t124073;
6870   double t124074, t124079, t124080, t124083, t124084, t124085, t124087, t124089;
6871   double t124094, t124095, t124101, t124104, t124106, t124110, t124111, t124114;
6872   double t124115, t124120, t124122, t124123, t124124, t124127, t124131, t124133;
6873   double t124136, t124138, t124140, t124143, t124148, t124150, t124151, t124157;
6874   double t124162, t124172, t124178, t124191, t124203, t124204, t124206, t124210;
6875   double t124212, t124213, t124216, t124218, t124221, t124227, t124230, t124233;
6876   double t124235, t124238, t124241, t124243, t124246, t124249, t124250, t124251;
6877   double t124252, t124257, t124258, t124259, t124260, t124261, t124262, t124266;
6878   double t124269, t124274, t124275, t124279, t124280, t124282, t124285, t124286;
6879   double t124288, t124289, t124291, t124292, t124294, t124297, t124300, t124301;
6880   double t124302, t124306, t124309, t124310, t124313, t124315, t124317, t124320;
6881   double t124323, t124324, t124327, t124343, t124344, t124346, t124349, t124350;
6882   double t124351, t124353, t124355, t124356, t124362, t124363, t124364, t124365;
6883   double t124367, t124368, t124371, t124372, t124373, t124376, t124377, t124378;
6884   double t124386, t124388, t124390, t124393, t124399, t124406, t124409, t124411;
6885   double t124412, t124415, t124416, t124420, t124423, t124425, t124426, t124427;
6886   double t124429, t124431, t124434, t124437, t124440, t124444, t124446, t124450;
6887   double t124453, t124455, t124458, t124460, t124462, t124463, t124465, t124469;
6888   double t124471, t124472, t124473, t124477, t124480, t124485, t124486, t124488;
6889   double t124492, t124493, t124496, t124499, t124501, t124504, t124507, t124510;
6890   double t124513, t124514, t124518, t124520, t124523, t124532, t124534, t124537;
6891   double t124538, t124539, t124541, t124542, t124545, t124547, t124550, t124551;
6892   double t124555, t124557, t124558, t124561, t124562, t124564, t124567, t124584;
6893   double t124586, t124587, t124588, t124591, t124597, t124598, t124600, t124601;
6894   double t124604, t124609, t124610, t124618, t124621, t124622, t124623, t124626;
6895   double t124627, t124631, t124636, t124638, t124642, t124645, t124646, t124647;
6896   double t124649, t124656, t124660, t124662, t124665, t124666, t124670, t124672;
6897   double t124674, t124675, t124681, t124685, t124687, t124689, t124690, t124693;
6898   double t124695, t124697, t124710, t124711, t124713, t124715, t124717, t124733;
6899   double t124735, t124736, t124738, t124744, t124747, t124751, t124755, t124759;
6900   double t124761, t124762, t124763, t124766, t124771, t124772, t124776, t124778;
6901   double t124779, t124782, t124783, t124801, t124809, t124821, t124822, t124824;
6902   double t124828, t124830, t124833, t124837, t124843, t124845, t124846, t124850;
6903   double t124854, t124855, t124859, t124861, t124864, t124867, t124869, t124872;
6904   double t124874, t124877, t124879, t124881, t124883, t124884, t124891, t124893;
6905   double t124897, t124898, t124901, t124903, t124905, t124906, t124908, t124910;
6906   double t124914, t124915, t124920, t124923, t124924, t124928, t124930, t124931;
6907   double t124933, t124949, t124953, t124954, t124958, t124959, t124962, t124963;
6908   double t124966, t124968, t124970, t124974, t124981, t124982, t124990, t124993;
6909   double t125006, t125009, t125015, t125016, t125018, t125022, t125025, t125028;
6910   double t125032, t125037, t125044, t125046, t125047, t125050, t125052, t125054;
6911   double t125058, t125065, t125072, t125075, t125079, t125085, t125088, t125091;
6912   double t125093, t125095, t125096, t125099, t125102, t125111, t125114, t125115;
6913   double t125117, t125120, t125138, t125140, t125143, t125149, t125151, t125154;
6914   double t125158, t125167, t125174, t125177, t125181, t125185, t125189, t125192;
6915   double t125195, t125211, t125216, t125220, t125224, t125226, t125228, t125231;
6916   double t125238, t125242, t125247, t125253, t125258, t125259, t125262, t125268;
6917   double t125270, t125273, t125277, t125280, t125304, t125305, t125311, t125313;
6918   double t125317, t125319, t125322, t125325, t125326, t125328, t125329, t125333;
6919   double t125336, t125339, t125343, t125347, t125349, t125351, t125356, t125364;
6920   double t125370, t125374, t125383, t125385, t125400, t125404, t125409, t125415;
6921   double t125428, t125436, t125438, t125441, t125443, t125446, t125447, t125449;
6922   double t125458, t125496, t125527, t125528, t125550, t125568, t125570, t125580;
6923   double t125581, t125583, t125584, t125596, t125609, t125610, t125617, t125619;
6924   double t125638, t125639, t125642, t125664, t125668, t125681, t125695, t125708;
6925   double t125727, t125730, t125752, t125757, t125769, t125778, t125797, t125811;
6926   double t125819, t125821, t125842, t125846, t125876, t125888, t125896, t125903;
6927   double t125933, t125937, t125942, t125956, t125957, t125974, t125976, t125977;
6928   double t125978, t125980, t125981, t125982, t125983, t125986, t125987, t125989;
6929   double t125990, t125992, t125995, t125996, t125998, t125999, t126000, t126002;
6930   double t126005, t126006, t126008, t126010, t126011, t126015, t126016, t126018;
6931   double t126019, t126021, t126025, t126027, t126028, t126030, t126036, t126038;
6932   double t126039, t126041, t126044, t126046, t126048, t126049, t126050, t126054;
6933   double t126055, t126057, t126058, t126060, t126062, t126063, t126065, t126066;
6934   double t126067, t126069, t126070, t126073, t126075, t126076, t126077, t126078;
6935   double t126079, t126080, t126081, t126082, t126083, t126084, t126085, t126087;
6936   double t126088, t126089, t126091, t126104, t126105, t126106, t126108, t126110;
6937   double t126113, t126114, t126115, t126117, t126120, t126123, t126128, t126129;
6938   double t126132, t126133, t126135, t126137, t126139, t126141, t126142, t126143;
6939   double t126147, t126148, t126150, t126152, t126153, t126155, t126156, t126159;
6940   double t126160, t126162, t126163, t126166, t126168, t126169, t126172, t126173;
6941   double t126175, t126179, t126180, t126181, t126183, t126184, t126185, t126186;
6942   double t126188, t126190, t126191, t126195, t126197, t126198, t126201, t126203;
6943   double t126204, t126208, t126211, t126212, t126213, t126214, t126215, t126216;
6944   double t126218, t126220, t126221, t126222, t126223, t126225, t126231, t126233;
6945   double t126235, t126237, t126252, t126253, t126255, t126257, t126262, t126265;
6946   double t126266, t126267, t126270, t126271, t126272, t126275, t126276, t126277;
6947   double t126279, t126281, t126283, t126285, t126287, t126288, t126289, t126291;
6948   double t126292, t126295, t126296, t126300, t126301, t126304, t126306, t126308;
6949   double t126311, t126314, t126315, t126317, t126318, t126322, t126323, t126326;
6950   double t126327, t126330, t126331, t126333, t126336, t126337, t126338, t126339;
6951   double t126343, t126344, t126347, t126350, t126353, t126355, t126356, t126358;
6952   double t126360, t126361, t126362, t126365, t126370, t126372, t126373, t126375;
6953   double t126377, t126378, t126379, t126380, t126383, t126386, t126387, t126388;
6954   double t126390, t126391, t126392, t126396, t126398, t126399, t126401, t126402;
6955   double t126404, t126407, t126408, t126411, t126412, t126413, t126415, t126416;
6956   double t126420, t126421, t126424, t126425, t126426, t126427, t126430, t126433;
6957   double t126434, t126435, t126436, t126437, t126438, t126440, t126441, t126442;
6958   double t126444, t126446, t126447, t126448, t126449, t126451, t126453, t126454;
6959   double t126456, t126458, t126459, t126461, t126463, t126466, t126469, t126470;
6960   double t126471, t126472, t126477, t126479, t126480, t126482, t126483, t126486;
6961   double t126488, t126490, t126492, t126494, t126495, t126496, t126500, t126503;
6962   double t126520, t126521, t126522, t126524, t126525, t126528, t126530, t126532;
6963   double t126533, t126536, t126537, t126541, t126543, t126548, t126551, t126552;
6964   double t126553, t126555, t126557, t126562, t126563, t126564, t126566, t126567;
6965   double t126568, t126569, t126570, t126572, t126575, t126576, t126580, t126582;
6966   double t126585, t126588, t126591, t126592, t126596, t126597, t126600, t126601;
6967   double t126604, t126605, t126608, t126609, t126611, t126612, t126617, t126618;
6968   double t126619, t126622, t126623, t126624, t126626, t126627, t126630, t126632;
6969   double t126633, t126635, t126637, t126639, t126645, t126646, t126649, t126650;
6970   double t126651, t126652, t126654, t126656, t126657, t126659, t126661, t126662;
6971   double t126665, t126666, t126670, t126674, t126675, t126677, t126680, t126684;
6972   double t126686, t126688, t126690, t126692, t126696, t126697, t126700, t126701;
6973   double t126704, t126707, t126710, t126711, t126712, t126714, t126716, t126717;
6974   double t126718, t126719, t126724, t126726, t126728, t126729, t126732, t126733;
6975   double t126734, t126736, t126737, t126738, t126740, t126742, t126743, t126745;
6976   double t126746, t126748, t126750, t126753, t126755, t126756, t126758, t126760;
6977   double t126763, t126766, t126767, t126770, t126787, t126788, t126790, t126791;
6978   double t126792, t126793, t126795, t126797, t126799, t126800, t126803, t126804;
6979   double t126808, t126809, t126812, t126815, t126818, t126820, t126821, t126822;
6980   double t126825, t126828, t126833, t126834, t126836, t126837, t126839, t126841;
6981   double t126842, t126843, t126846, t126849, t126850, t126851, t126853, t126855;
6982   double t126859, t126861, t126863, t126864, t126866, t126867, t126868, t126869;
6983   double t126871, t126872, t126877, t126878, t126880, t126882, t126886, t126891;
6984   double t126892, t126899, t126902, t126908, t126910, t126912, t126917, t126918;
6985   double t126920, t126921, t126922, t126926, t126928, t126929, t126931, t126934;
6986   double t126937, t126938, t126940, t126959, t126963, t126965, t126966, t126971;
6987   double t126973, t126975, t126976, t126978, t126979, t126980, t126984, t126987;
6988   double t126989, t126991, t126993, t126995, t126996, t126998, t126999, t127004;
6989   double t127006, t127008, t127010, t127013, t127016, t127017, t127018, t127023;
6990   double t127025, t127028, t127040, t127043, t127045, t127049, t127053, t127054;
6991   double t127056, t127060, t127061, t127063, t127064, t127068, t127071, t127072;
6992   double t127074, t127092, t127093, t127094, t127095, t127101, t127104, t127105;
6993   double t127108, t127109, t127111, t127112, t127118, t127121, t127123, t127124;
6994   double t127126, t127128, t127130, t127132, t127136, t127140, t127143, t127147;
6995   double t127151, t127152, t127153, t127157, t127160, t127162, t127164, t127166;
6996   double t127167, t127168, t127174, t127176, t127178, t127180, t127181, t127184;
6997   double t127188, t127190, t127191, t127192, t127194, t127195, t127197, t127202;
6998   double t127203, t127206, t127207, t127209, t127210, t127211, t127215, t127217;
6999   double t127218, t127219, t127220, t127221, t127223, t127227, t127228, t127232;
7000   double t127234, t127238, t127241, t127244, t127246, t127249, t127251, t127253;
7001   double t127254, t127257, t127258, t127259, t127261, t127262, t127264, t127265;
7002   double t127266, t127267, t127268, t127271, t127274, t127278, t127282, t127284;
7003   double t127286, t127288, t127290, t127291, t127292, t127293, t127296, t127297;
7004   double t127298, t127299, t127301, t127302, t127304, t127306, t127307, t127310;
7005   double t127330, t127333, t127340, t127342, t127345, t127348, t127349, t127351;
7006   double t127355, t127358, t127360, t127361, t127362, t127364, t127366, t127369;
7007   double t127370, t127371, t127372, t127373, t127375, t127376, t127380, t127382;
7008   double t127384, t127385, t127389, t127390, t127394, t127395, t127398, t127399;
7009   double t127401, t127405, t127409, t127413, t127415, t127417, t127419, t127423;
7010   double t127425, t127426, t127429, t127431, t127432, t127434, t127436, t127438;
7011   double t127442, t127444, t127446, t127449, t127456, t127458, t127466, t127469;
7012   double t127470, t127475, t127477, t127480, t127481, t127482, t127484, t127486;
7013   double t127488, t127490, t127493, t127495, t127499, t127501, t127503, t127507;
7014   double t127511, t127512, t127513, t127514, t127516, t127517, t127522, t127523;
7015   double t127525, t127526, t127528, t127529, t127531, t127533, t127535, t127537;
7016   double t127539, t127541, t127542, t127543, t127546, t127567, t127568, t127569;
7017   double t127570, t127571, t127577, t127578, t127581, t127582, t127583, t127584;
7018   double t127586, t127590, t127592, t127594, t127596, t127599, t127602, t127604;
7019   double t127608, t127609, t127612, t127624, t127626, t127628, t127629, t127630;
7020   double t127637, t127639, t127642, t127650, t127659, t127662, t127663, t127664;
7021   double t127669, t127671, t127673, t127675, t127677, t127678, t127679, t127681;
7022   double t127682, t127685, t127688, t127692, t127696, t127699, t127708, t127710;
7023   double t127712, t127714, t127716, t127719, t127721, t127725, t127727, t127732;
7024   double t127737, t127742, t127747, t127750, t127771, t127776, t127780, t127782;
7025   double t127784, t127786, t127788, t127792, t127797, t127800, t127802, t127808;
7026   double t127810, t127812, t127814, t127816, t127818, t127824, t127829, t127831;
7027   double t127838, t127844, t127848, t127850, t127852, t127854, t127856, t127858;
7028   double t127860, t127862, t127866, t127871, t127886, t127892, t127900, t127902;
7029   double t127908, t127910, t127913, t127919, t127921, t127923, t127927, t127931;
7030   double t127934, t127951, t127955, t127960, t127965, t127971, t127974, t127976;
7031   double t127978, t127980, t127984, t127986, t127990, t127993, t127998, t128002;
7032   double t128003, t128005, t128007, t128009, t128011, t128014, t128018, t128022;
7033   double t128025, t128026, t128031, t128034, t128037, t128042, t128045, t128047;
7034   double t128049, t128067, t128070, t128073, t128075, t128077, t128081, t128085;
7035   double t128093, t128096, t128098, t128104, t128106, t128109, t128111, t128113;
7036   double t128115, t128119, t128121, t128125, t128128, t128131, t128133, t128138;
7037   double t128142, t128144, t128161, t128167, t128170, t128173, t128174, t128176;
7038   double t128180, t128187, t128190, t128193, t128198, t128201, t128203, t128226;
7039   double t128228, t128240, t128243, t128249, t128262, t128264, t128303, t128324;
7040   double t128349, t128361, t128375, t128377, t128416, t128428, t128430, t128441;
7041   double t128443, t128456, t128459, t128462, t128469, t128474, t128476, t128480;
7042   double t128483, t128486, t128505, t128520, t128529, t128550, t128558, t128563;
7043   double t128568, t128576, t128578, t128583, t128586, t128613, t128620, t128626;
7044   double t128629, t128632, t128643, t128650, t128664, t128665, t128669, t128675;
7045   double t128691, t128694, t128720, t128729, t128744, t128749, t128767, t128778;
7046   double t128787, t128788, t128795, t128797, t128800, t128825, t128835, t128848;
7047   double t128852, t128857, t128863, t128869, t128871, t128896, t128902, t128906;
7048   double t128919, t128927, t128929, t128954, t128958, t128959, t128962, t128963;
7049   double t128968, t128970, t128974, t128975, t128978, t128980, t128981, t128983;
7050   double t128987, t128990, t128994, t128998, t128999, t129001, t129002, t129005;
7051   double t129007, t129008, t129011, t129015, t129016, t129018, t129020, t129021;
7052   double t129023, t129026, t129027, t129029, t129030, t129034, t129036, t129038;
7053   double t129041, t129043, t129048, t129050, t129055, t129056, t129058, t129060;
7054   double t129061, t129062, t129063, t129079, t129081, t129082, t129086, t129089;
7055   double t129091, t129093, t129094, t129098, t129101, t129102, t129103, t129107;
7056   double t129108, t129112, t129115, t129119, t129122, t129123, t129127, t129128;
7057   double t129131, t129137, t129141, t129145, t129146, t129147, t129151, t129152;
7058   double t129155, t129156, t129159, t129164, t129167, t129170, t129172, t129173;
7059   double t129175, t129176, t129178, t129179, t129183, t129184, t129186, t129187;
7060   double t129190, t129194, t129195, t129197, t129199, t129205, t129206, t129209;
7061   double t129213, t129214, t129216, t129221, t129225, t129227, t129228, t129230;
7062   double t129232, t129233, t129235, t129236, t129238, t129240, t129241, t129243;
7063   double t129244, t129246, t129265, t129267, t129270, t129271, t129273, t129276;
7064   double t129282, t129285, t129286, t129289, t129290, t129292, t129295, t129296;
7065   double t129298, t129303, t129304, t129308, t129313, t129316, t129319, t129321;
7066   double t129322, t129325, t129328, t129329, t129331, t129336, t129337, t129340;
7067   double t129341, t129347, t129348, t129350, t129351, t129353, t129355, t129357;
7068   double t129362, t129366, t129367, t129370, t129371, t129374, t129379, t129381;
7069   double t129384, t129386, t129387, t129388, t129390, t129392, t129393, t129395;
7070   double t129396, t129399, t129400, t129405, t129406, t129409, t129413, t129414;
7071   double t129416, t129421, t129422, t129424, t129425, t129430, t129434, t129435;
7072   double t129438, t129439, t129454, t129457, t129460, t129463, t129466, t129467;
7073   double t129469, t129471, t129472, t129478, t129482, t129483, t129487, t129488;
7074   double t129489, t129493, t129495, t129497, t129500, t129504, t129505, t129507;
7075   double t129511, t129516, t129518, t129522, t129526, t129530, t129532, t129534;
7076   double t129538, t129542, t129545, t129547, t129552, t129554, t129555, t129557;
7077   double t129559, t129563, t129570, t129572, t129573, t129576, t129580, t129581;
7078   double t129584, t129588, t129592, t129594, t129596, t129601, t129605, t129606;
7079   double t129610, t129612, t129616, t129618, t129621, t129624, t129626, t129630;
7080   double t129632, t129636, t129640, t129642, t129644, t129645, t129647, t129669;
7081   double t129671, t129677, t129680, t129687, t129689, t129692, t129693, t129696;
7082   double t129699, t129702, t129704, t129706, t129712, t129714, t129716, t129722;
7083   double t129724, t129727, t129731, t129735, t129739, t129741, t129745, t129749;
7084   double t129753, t129755, t129756, t129760, t129762, t129764, t129766, t129767;
7085   double t129769, t129771, t129772, t129776, t129777, t129780, t129786, t129788;
7086   double t129792, t129794, t129800, t129802, t129807, t129808, t129812, t129813;
7087   double t129818, t129823, t129825, t129827, t129829, t129831, t129837, t129839;
7088   double t129842, t129845, t129847, t129848, t129855, t129859, t129863, t129865;
7089   double t129868, t129870, t129871, t129873, t129874, t129876, t129878, t129880;
7090   double t129882, t129884, t129885, t129887, t129909, t129913, t129918, t129922;
7091   double t129924, t129930, t129934, t129936, t129940, t129941, t129944, t129945;
7092   double t129948, t129949, t129952, t129955, t129957, t129959, t129961, t129963;
7093   double t129964, t129967, t129969, t129973, t129975, t129977, t129979, t129981;
7094   double t129984, t129987, t129992, t129996, t129998, t130002, t130004, t130009;
7095   double t130011, t130016, t130018, t130021, t130024, t130027, t130029, t130035;
7096   double t130038, t130040, t130044, t130046, t130052, t130056, t130058, t130059;
7097   double t130061, t130063, t130065, t130066, t130069, t130072, t130074, t130078;
7098   double t130080, t130083, t130086, t130088, t130093, t130097, t130100, t130102;
7099   double t130106, t130108, t130110, t130115, t130117, t130121, t130125, t130126;
7100   double t130128, t130146, t130148, t130152, t130164, t130173, t130175, t130177;
7101   double t130180, t130183, t130186, t130189, t130191, t130193, t130195, t130197;
7102   double t130199, t130202, t130205, t130208, t130211, t130216, t130220, t130222;
7103   double t130224, t130228, t130231, t130234, t130235, t130240, t130245, t130254;
7104   double t130256, t130262, t130264, t130266, t130275, t130277, t130294, t130299;
7105   double t130301, t130307, t130309, t130313, t130320, t130322, t130324, t130327;
7106   double t130329, t130333, t130335, t130341, t130343, t130346, t130349, t130351;
7107   double t130352, t130360, t130364, t130367, t130370, t130376, t130378, t130380;
7108   double t130384, t130396, t130399, t130401, t130418, t130420, t130430, t130432;
7109   double t130434, t130435, t130437, t130440, t130444, t130451, t130453, t130455;
7110   double t130457, t130462, t130466, t130470, t130473, t130477, t130484, t130488;
7111   double t130489, t130496, t130504, t130506, t130508, t130509, t130513, t130515;
7112   double t130521, t130525, t130530, t130532, t130552, t130554, t130556, t130558;
7113   double t130561, t130565, t130566, t130574, t130579, t130584, t130588, t130616;
7114   double t130635, t130643, t130656, t130657, t130688, t130713, t130759, t130794;
7115   double t130796, t130837, t130869, t130872, t130908, t130913, t130944, t130945;
7116   double t130980, t131001, t131013, t131034, t131043, t131052, t131054, t131081;
7117   double t131094, t131115, t131127, t131132, t131148, t131150, t131173, t131187;
7118   double t131202, t131211, t131232, t131233, t131245, t131263, t131265, t131300;
7119   double t131305, t131322, t131337, t131338, t131360, t131369, t131391, t131407;
7120   double t131409, t131439, t131447, t131468, t131479, t131480, t131504, t131511;
7121   double t131515, t131518, t131522, t131524, t131528, t131532, t131534, t131537;
7122   double t131538, t131542, t131546, t131549, t131550, t131556, t131560, t131561;
7123   double t131563, t131564, t131580, t131584, t131586, t131590, t131592, t131596;
7124   double t131598, t131603, t131608, t131611, t131614, t131619, t131622, t131623;
7125   double t131626, t131631, t131635, t131637, t131641, t131645, t131647, t131651;
7126   double t131656, t131658, t131661, t131662, t131663, t131669, t131673, t131674;
7127   double t131676, t131677, t131683, t131687, t131688, t131690, t131691, t131697;
7128   double t131701, t131702, t131704, t131705, t131706, t131726, t131731, t131735;
7129   double t131738, t131742, t131748, t131752, t131757, t131760, t131761, t131765;
7130   double t131767, t131770, t131774, t131776, t131779, t131782, t131785, t131788;
7131   double t131790, t131792, t131795, t131799, t131801, t131803, t131804, t131808;
7132   double t131812, t131816, t131818, t131822, t131826, t131828, t131832, t131838;
7133   double t131840, t131843, t131844, t131845, t131850, t131854, t131857, t131858;
7134   double t131864, t131868, t131869, t131871, t131872, t131878, t131882, t131883;
7135   double t131885, t131886, t131887, t131908, t131914, t131918, t131922, t131925;
7136   double t131927, t131929, t131932, t131938, t131940, t131941, t131943, t131945;
7137   double t131949, t131952, t131956, t131958, t131962, t131965, t131968, t131971;
7138   double t131976, t131979, t131981, t131984, t131985, t131989, t131992, t131996;
7139   double t131998, t132002, t132006, t132008, t132011, t132012, t132016, t132020;
7140   double t132023, t132024, t132030, t132034, t132035, t132037, t132038, t132054;
7141   double t132058, t132060, t132064, t132066, t132070, t132072, t132077, t132082;
7142   double t132085, t132088, t132093, t132096, t132097, t132115, t132143, t132202;
7143   double t132229, t132233, t132270, t132271, t132326, t132369, t132374, t132397;
7144   double t132401, t132438, t132439, t132493, t132537, t132556, t132584, t132643;
7145   double t132656, t132683, t132698, t132705, t132706, t132737, t132746, t132762;
7146   double t132769, t132770, t132793, t132810, t132824, t132851, t132853, t132865;
7147   double t132879, t132914, t132926, t132946, t133005, t133007, t133020, t133042;
7148   double t133086, t133116, t133129, t133147, t133206, t133208, t133220, t133234;
7149   double t133269;
7150 #endif
7151 
7152 #endif
7153 
7154 #endif
7155 
7156 #endif
7157 
7158 #endif
7159 
7160 
7161   mgga_c_tpss_params *params;
7162 
7163   assert(p->params != NULL);
7164   params = (mgga_c_tpss_params * )(p->params);
7165 
7166   t3 = params->C0_c[1];
7167   t4 = rho[0] - rho[1];
7168   t5 = t4 * t4;
7169   t6 = t3 * t5;
7170   t7 = rho[0] + rho[1];
7171   t8 = t7 * t7;
7172   t9 = 0.1e1 / t8;
7173   t11 = params->C0_c[2];
7174   t12 = t5 * t5;
7175   t13 = t11 * t12;
7176   t14 = t8 * t8;
7177   t15 = 0.1e1 / t14;
7178   t17 = params->C0_c[3];
7179   t19 = t17 * t12 * t5;
7180   t20 = t14 * t8;
7181   t21 = 0.1e1 / t20;
7182   t23 = t13 * t15 + t19 * t21 + t6 * t9 + params->C0_c[0];
7183   t25 = -t5 * t9 + 0.1e1;
7184   t26 = rho[0] * rho[0];
7185   t27 = POW_1_3(rho[0]);
7186   t28 = t27 * t27;
7187   t30 = 0.1e1 / t28 / t26;
7188   t31 = sigma[0] * t30;
7189   t32 = 0.1e1 / t7;
7190   t33 = t4 * t32;
7191   t34 = 0.1e1 + t33;
7192   t35 = t34 / 0.2e1;
7193   t36 = POW_1_3(t35);
7194   t37 = t36 * t36;
7195   t38 = t37 * t35;
7196   t40 = rho[1] * rho[1];
7197   t41 = POW_1_3(rho[1]);
7198   t42 = t41 * t41;
7199   t44 = 0.1e1 / t42 / t40;
7200   t45 = sigma[2] * t44;
7201   t46 = 0.1e1 - t33;
7202   t47 = t46 / 0.2e1;
7203   t48 = POW_1_3(t47);
7204   t49 = t48 * t48;
7205   t50 = t49 * t47;
7206   t53 = sigma[0] + 0.2e1 * sigma[1] + sigma[2];
7207   t54 = POW_1_3(t7);
7208   t55 = t54 * t54;
7209   t57 = 0.1e1 / t55 / t8;
7210   t58 = t53 * t57;
7211   t59 = t31 * t38 + t45 * t50 - t58;
7212   t60 = t25 * t59;
7213   t61 = M_CBRT3;
7214   t62 = M_PI * M_PI;
7215   t63 = POW_1_3(t62);
7216   t64 = t63 * t63;
7217   t65 = 0.1e1 / t64;
7218   t66 = t61 * t65;
7219   t67 = POW_1_3(t34);
7220   t68 = t67 * t34;
7221   t69 = 0.1e1 / t68;
7222   t70 = POW_1_3(t46);
7223   t71 = t70 * t46;
7224   t72 = 0.1e1 / t71;
7225   t73 = t69 + t72;
7226   t74 = t66 * t73;
7227   t77 = 0.1e1 + t60 * t74 / 0.24e2;
7228   t78 = t77 * t77;
7229   t79 = t78 * t78;
7230   t80 = 0.1e1 / t79;
7231   t81 = t23 * t80;
7232   t82 = 0.1e1 + t81;
7233   t84 = 0.1e1 / t28 / rho[0];
7234   t85 = tau[0] * t84;
7235   t88 = 0.1e1 / t42 / rho[1];
7236   t89 = tau[1] * t88;
7237   t91 = t38 * t85 + t50 * t89;
7238   t92 = 0.1e1 / t91;
7239   t94 = t58 * t92 / 0.8e1;
7240   t95 = 0.1e1 < t94;
7241   t96 = my_piecewise3(t95, 1, t94);
7242   t97 = t96 * t96;
7243   t98 = t82 * t97;
7244   t99 = 0.1e1 / M_PI;
7245   t100 = POW_1_3(t99);
7246   t101 = t61 * t100;
7247   t102 = M_CBRT4;
7248   t103 = t102 * t102;
7249   t104 = 0.1e1 / t54;
7250   t105 = t103 * t104;
7251   t106 = t101 * t105;
7252   t108 = 0.1e1 + 0.53425000000000000000e-1 * t106;
7253   t109 = sqrt(t106);
7254   t112 = POW_3_2(t106);
7255   t114 = t61 * t61;
7256   t115 = t100 * t100;
7257   t116 = t114 * t115;
7258   t117 = 0.1e1 / t55;
7259   t118 = t102 * t117;
7260   t119 = t116 * t118;
7261   t121 = 0.37978500000000000000e1 * t109 + 0.89690000000000000000e0 * t106 + 0.20477500000000000000e0 * t112 + 0.12323500000000000000e0 * t119;
7262   t124 = 0.1e1 + 0.16081979498692535067e2 / t121;
7263   t125 = log(t124);
7264   t127 = 0.621814e-1 * t108 * t125;
7265   t128 = t12 * t15;
7266   t129 = t68 + t71 - 0.2e1;
7267   t130 = M_CBRT2;
7268   t133 = 0.1e1 / (0.2e1 * t130 - 0.2e1);
7269   t134 = t129 * t133;
7270   t136 = 0.1e1 + 0.51370000000000000000e-1 * t106;
7271   t141 = 0.70594500000000000000e1 * t109 + 0.15494250000000000000e1 * t106 + 0.42077500000000000000e0 * t112 + 0.15629250000000000000e0 * t119;
7272   t144 = 0.1e1 + 0.32163958997385070134e2 / t141;
7273   t145 = log(t144);
7274   t149 = 0.1e1 + 0.27812500000000000000e-1 * t106;
7275   t154 = 0.51785000000000000000e1 * t109 + 0.90577500000000000000e0 * t106 + 0.11003250000000000000e0 * t112 + 0.12417750000000000000e0 * t119;
7276   t157 = 0.1e1 + 0.29608749977793437516e2 / t154;
7277   t158 = log(t157);
7278   t159 = t149 * t158;
7279   t161 = -0.3109070e-1 * t136 * t145 + t127 - 0.19751673498613801407e-1 * t159;
7280   t162 = t134 * t161;
7281   t163 = t128 * t162;
7282   t165 = 0.19751673498613801407e-1 * t134 * t159;
7283   t166 = log(0.2e1);
7284   t167 = 0.1e1 - t166;
7285   t168 = 0.1e1 / t62;
7286   t169 = t167 * t168;
7287   t170 = t67 * t67;
7288   t171 = t70 * t70;
7289   t173 = t170 / 0.2e1 + t171 / 0.2e1;
7290   t174 = t173 * t173;
7291   t175 = t174 * t173;
7292   t177 = 0.1e1 / t54 / t8;
7293   t178 = t53 * t177;
7294   t180 = 0.1e1 / t174;
7295   t182 = 0.1e1 / t100;
7296   t183 = t182 * t102;
7297   t184 = t180 * t114 * t183;
7298   t187 = 0.1e1 / t167;
7299   t188 = params->beta * t187;
7300   t190 = (-t127 + t163 + t165) * t187;
7301   t191 = 0.1e1 / t175;
7302   t192 = t62 * t191;
7303   t194 = exp(-t190 * t192);
7304   t195 = t194 - 0.1e1;
7305   t196 = 0.1e1 / t195;
7306   t197 = t62 * t196;
7307   t198 = t53 * t53;
7308   t200 = t188 * t197 * t198;
7309   t202 = 0.1e1 / t55 / t14;
7310   t203 = t130 * t130;
7311   t204 = t202 * t203;
7312   t205 = t174 * t174;
7313   t206 = 0.1e1 / t205;
7314   t207 = t204 * t206;
7315   t208 = 0.1e1 / t115;
7316   t209 = t61 * t208;
7317   t210 = t209 * t103;
7318   t211 = t207 * t210;
7319   t214 = t178 * t130 * t184 / 0.96e2 + t200 * t211 / 0.3072e4;
7320   t215 = params->beta * t214;
7321   t216 = t187 * t62;
7322   t219 = t188 * t197 * t214 + 0.1e1;
7323   t220 = 0.1e1 / t219;
7324   t221 = t216 * t220;
7325   t223 = t215 * t221 + 0.1e1;
7326   t224 = log(t223);
7327   t227 = t169 * t175 * t224 - t127 + t163 + t165;
7328   t228 = t101 * t103;
7329   t229 = t104 * t130;
7330   t230 = 0.1e1 / t34;
7331   t231 = POW_1_3(t230);
7332   t233 = t228 * t229 * t231;
7333   t235 = 0.1e1 + 0.51370000000000000000e-1 * t233;
7334   t236 = sqrt(t233);
7335   t239 = POW_3_2(t233);
7336   t241 = t116 * t102;
7337   t242 = t117 * t203;
7338   t243 = t231 * t231;
7339   t245 = t241 * t242 * t243;
7340   t247 = 0.70594500000000000000e1 * t236 + 0.15494250000000000000e1 * t233 + 0.42077500000000000000e0 * t239 + 0.15629250000000000000e0 * t245;
7341   t250 = 0.1e1 + 0.32163958997385070134e2 / t247;
7342   t251 = log(t250);
7343   t252 = t235 * t251;
7344   t254 = t114 * t182;
7345   t255 = t31 * t254;
7346   t256 = t102 * t54;
7347   t257 = 0.1e1 / t231;
7348   t258 = t203 * t257;
7349   t259 = t256 * t258;
7350   t262 = t188 * t62;
7351   t265 = exp(0.61370581910589784405e0 * t252 * t187);
7352   t266 = t265 - 0.1e1;
7353   t267 = 0.1e1 / t266;
7354   t268 = sigma[0] * sigma[0];
7355   t269 = t267 * t268;
7356   t270 = t26 * t26;
7357   t271 = t270 * rho[0];
7358   t273 = 0.1e1 / t27 / t271;
7359   t275 = t262 * t269 * t273;
7360   t276 = t55 * t130;
7361   t277 = 0.1e1 / t243;
7362   t279 = t210 * t276 * t277;
7363   t282 = t255 * t259 / 0.96e2 + t275 * t279 / 0.1536e4;
7364   t283 = params->beta * t282;
7365   t284 = t62 * t267;
7366   t287 = t188 * t282 * t284 + 0.1e1;
7367   t288 = 0.1e1 / t287;
7368   t289 = t216 * t288;
7369   t291 = t283 * t289 + 0.1e1;
7370   t292 = log(t291);
7371   t295 = -0.3109070e-1 * t252 + t169 * t292 / 0.2e1;
7372   t296 = t227 < t295;
7373   t297 = my_piecewise3(t296, t295, t227);
7374   t299 = 0.1e1 / t46;
7375   t300 = POW_1_3(t299);
7376   t302 = t228 * t229 * t300;
7377   t304 = 0.1e1 + 0.51370000000000000000e-1 * t302;
7378   t305 = sqrt(t302);
7379   t308 = POW_3_2(t302);
7380   t310 = t300 * t300;
7381   t312 = t241 * t242 * t310;
7382   t314 = 0.70594500000000000000e1 * t305 + 0.15494250000000000000e1 * t302 + 0.42077500000000000000e0 * t308 + 0.15629250000000000000e0 * t312;
7383   t317 = 0.1e1 + 0.32163958997385070134e2 / t314;
7384   t318 = log(t317);
7385   t319 = t304 * t318;
7386   t321 = t45 * t254;
7387   t322 = 0.1e1 / t300;
7388   t323 = t203 * t322;
7389   t324 = t256 * t323;
7390   t329 = exp(0.61370581910589784405e0 * t319 * t187);
7391   t330 = t329 - 0.1e1;
7392   t331 = 0.1e1 / t330;
7393   t332 = sigma[2] * sigma[2];
7394   t333 = t331 * t332;
7395   t334 = t40 * t40;
7396   t335 = t334 * rho[1];
7397   t337 = 0.1e1 / t41 / t335;
7398   t339 = t262 * t333 * t337;
7399   t340 = 0.1e1 / t310;
7400   t342 = t210 * t276 * t340;
7401   t345 = t321 * t324 / 0.96e2 + t339 * t342 / 0.1536e4;
7402   t346 = params->beta * t345;
7403   t347 = t62 * t331;
7404   t350 = t188 * t345 * t347 + 0.1e1;
7405   t351 = 0.1e1 / t350;
7406   t352 = t216 * t351;
7407   t354 = t346 * t352 + 0.1e1;
7408   t355 = log(t354);
7409   t358 = -0.3109070e-1 * t319 + t169 * t355 / 0.2e1;
7410   t359 = t227 < t358;
7411   t360 = my_piecewise3(t359, t358, t227);
7412   t363 = t297 * t34 / 0.2e1 + t360 * t46 / 0.2e1;
7413   t366 = t81 * t97 + 0.1e1;
7414   t368 = t227 * t366 - t363 * t98;
7415   t369 = params->d * t368;
7416   t370 = t97 * t96;
7417   t372 = t369 * t370 + 0.1e1;
7418   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
7419     zk[0] = t368 * t372;
7420 
7421 #ifndef XC_DONT_COMPILE_VXC
7422 
7423   if(order < 1) return;
7424 
7425 
7426   t373 = t3 * t4;
7427   t375 = 0.2e1 * t373 * t9;
7428   t376 = t8 * t7;
7429   t377 = 0.1e1 / t376;
7430   t379 = 0.2e1 * t6 * t377;
7431   t380 = t5 * t4;
7432   t381 = t11 * t380;
7433   t383 = 0.4e1 * t381 * t15;
7434   t384 = t14 * t7;
7435   t385 = 0.1e1 / t384;
7436   t387 = 0.4e1 * t13 * t385;
7437   t389 = t17 * t12 * t4;
7438   t391 = 0.6e1 * t389 * t21;
7439   t392 = t14 * t376;
7440   t393 = 0.1e1 / t392;
7441   t395 = 0.6e1 * t19 * t393;
7442   t396 = t375 - t379 + t383 - t387 + t391 - t395;
7443   t397 = t396 * t80;
7444   t399 = 0.1e1 / t79 / t77;
7445   t400 = t23 * t399;
7446   t401 = t4 * t9;
7447   t402 = t5 * t377;
7448   t404 = -0.2e1 * t401 + 0.2e1 * t402;
7449   t405 = t404 * t59;
7450   t407 = t26 * rho[0];
7451   t409 = 0.1e1 / t28 / t407;
7452   t410 = sigma[0] * t409;
7453   t413 = t32 - t401;
7454   t414 = t413 / 0.2e1;
7455   t415 = t37 * t414;
7456   t418 = -t414;
7457   t419 = t49 * t418;
7458   t423 = 0.1e1 / t55 / t376;
7459   t424 = t53 * t423;
7460   t425 = 0.8e1 / 0.3e1 * t424;
7461   t426 = -0.8e1 / 0.3e1 * t410 * t38 + 0.5e1 / 0.3e1 * t31 * t415 + 0.5e1 / 0.3e1 * t45 * t419 + t425;
7462   t427 = t25 * t426;
7463   t429 = t34 * t34;
7464   t431 = 0.1e1 / t67 / t429;
7465   t433 = t46 * t46;
7466   t435 = 0.1e1 / t70 / t433;
7467   t436 = -t413;
7468   t439 = -0.4e1 / 0.3e1 * t431 * t413 - 0.4e1 / 0.3e1 * t435 * t436;
7469   t440 = t66 * t439;
7470   t443 = t405 * t74 / 0.24e2 + t427 * t74 / 0.24e2 + t60 * t440 / 0.24e2;
7471   t446 = -0.4e1 * t400 * t443 + t397;
7472   t447 = t446 * t97;
7473   t449 = t82 * t96;
7474   t451 = t424 * t92 / 0.3e1;
7475   t452 = t91 * t91;
7476   t453 = 0.1e1 / t452;
7477   t454 = tau[0] * t30;
7478   t459 = -0.5e1 / 0.3e1 * t454 * t38 + 0.5e1 / 0.3e1 * t85 * t415 + 0.5e1 / 0.3e1 * t89 * t419;
7479   t460 = t453 * t459;
7480   t464 = my_piecewise3(t95, 0, -t451 - t58 * t460 / 0.8e1);
7481   t465 = t363 * t464;
7482   t468 = t54 * t7;
7483   t469 = 0.1e1 / t468;
7484   t470 = t469 * t130;
7485   t472 = t228 * t470 * t231;
7486   t473 = 0.17123333333333333333e-1 * t472;
7487   t474 = t130 * t277;
7488   t475 = 0.1e1 / t429;
7489   t476 = t475 * t413;
7490   t477 = t474 * t476;
7491   t478 = t106 * t477;
7492   t480 = -t473 - 0.17123333333333333333e-1 * t478;
7493   t481 = t480 * t251;
7494   t483 = t247 * t247;
7495   t484 = 0.1e1 / t483;
7496   t485 = t235 * t484;
7497   t486 = 0.1e1 / t236;
7498   t488 = -t472 / 0.3e1 - t478 / 0.3e1;
7499   t491 = 0.51647500000000000000e0 * t472;
7500   t493 = sqrt(t233);
7501   t497 = 0.1e1 / t55 / t7;
7502   t498 = t497 * t203;
7503   t501 = 0.10419500000000000000e0 * t241 * t498 * t243;
7504   t502 = t258 * t476;
7505   t505 = 0.35297250000000000000e1 * t486 * t488 - t491 - 0.51647500000000000000e0 * t478 + 0.63116250000000000000e0 * t493 * t488 - t501 - 0.10419500000000000000e0 * t119 * t502;
7506   t506 = 0.1e1 / t250;
7507   t507 = t505 * t506;
7508   t510 = t410 * t254;
7509   t513 = t118 * t258;
7510   t515 = t255 * t513 / 0.288e3;
7511   t516 = t254 * t102;
7512   t517 = t31 * t516;
7513   t518 = t54 * t203;
7514   t520 = 0.1e1 / t231 / t230;
7515   t521 = t520 * t475;
7516   t522 = t521 * t413;
7517   t523 = t518 * t522;
7518   t526 = t266 * t266;
7519   t527 = 0.1e1 / t526;
7520   t528 = t527 * t268;
7521   t529 = t273 * t61;
7522   t531 = t262 * t528 * t529;
7523   t532 = t208 * t103;
7524   t533 = t532 * t55;
7525   t536 = t507 * t187;
7526   t539 = 0.61370581910589784405e0 * t481 * t187 - 0.19739208802178717239e2 * t485 * t536;
7527   t540 = t539 * t265;
7528   t541 = t474 * t540;
7529   t542 = t533 * t541;
7530   t545 = t270 * t26;
7531   t547 = 0.1e1 / t27 / t545;
7532   t549 = t262 * t269 * t547;
7533   t553 = t210 * t229 * t277;
7534   t555 = t275 * t553 / 0.2304e4;
7535   t557 = t262 * t269 * t529;
7536   t559 = 0.1e1 / t243 / t230;
7537   t560 = t130 * t559;
7538   t561 = t560 * t476;
7539   t562 = t533 * t561;
7540   t565 = -t510 * t259 / 0.36e2 + t515 + t517 * t523 / 0.288e3 - t531 * t542 / 0.1536e4 - t549 * t279 / 0.288e3 + t555 + t557 * t562 / 0.2304e4;
7541   t566 = params->beta * t565;
7542   t568 = t283 * t187;
7543   t569 = t287 * t287;
7544   t570 = 0.1e1 / t569;
7545   t571 = t62 * t570;
7546   t572 = t527 * t282;
7547   t577 = t188 * t284 * t565 - t262 * t540 * t572;
7548   t578 = t571 * t577;
7549   t580 = t289 * t566 - t568 * t578;
7550   t581 = 0.1e1 / t291;
7551   t586 = t103 * t469;
7552   t589 = 0.11073470983333333333e-2 * t101 * t586 * t125;
7553   t590 = t121 * t121;
7554   t591 = 0.1e1 / t590;
7555   t592 = t108 * t591;
7556   t594 = 0.1e1 / t109 * t61;
7557   t595 = t100 * t103;
7558   t596 = t595 * t469;
7559   t597 = t594 * t596;
7560   t599 = t101 * t586;
7561   t601 = sqrt(t106);
7562   t602 = t601 * t61;
7563   t603 = t602 * t596;
7564   t605 = t102 * t497;
7565   t606 = t116 * t605;
7566   t608 = -0.63297500000000000000e0 * t597 - 0.29896666666666666667e0 * t599 - 0.10238750000000000000e0 * t603 - 0.82156666666666666667e-1 * t606;
7567   t609 = 0.1e1 / t124;
7568   t610 = t608 * t609;
7569   t612 = 0.10000000000000000000e1 * t592 * t610;
7570   t613 = t380 * t15;
7571   t615 = 0.4e1 * t613 * t162;
7572   t616 = t12 * t385;
7573   t618 = 0.4e1 * t616 * t162;
7574   t623 = (0.4e1 / 0.3e1 * t67 * t413 + 0.4e1 / 0.3e1 * t70 * t436) * t133;
7575   t624 = t623 * t161;
7576   t625 = t128 * t624;
7577   t629 = t141 * t141;
7578   t630 = 0.1e1 / t629;
7579   t631 = t136 * t630;
7580   t636 = -0.11765750000000000000e1 * t597 - 0.51647500000000000000e0 * t599 - 0.21038750000000000000e0 * t603 - 0.10419500000000000000e0 * t606;
7581   t637 = 0.1e1 / t144;
7582   t638 = t636 * t637;
7583   t644 = t154 * t154;
7584   t645 = 0.1e1 / t644;
7585   t646 = t149 * t645;
7586   t651 = -0.86308333333333333334e0 * t597 - 0.30192500000000000000e0 * t599 - 0.55016250000000000000e-1 * t603 - 0.82785000000000000000e-1 * t606;
7587   t652 = 0.1e1 / t157;
7588   t653 = t651 * t652;
7589   t656 = 0.53237641966666666666e-3 * t101 * t586 * t145 + 0.10000000000000000000e1 * t631 * t638 - t589 - t612 + 0.18311447306006545054e-3 * t101 * t586 * t158 + 0.58482236226346462070e0 * t646 * t653;
7590   t657 = t134 * t656;
7591   t658 = t128 * t657;
7592   t660 = 0.19751673498613801407e-1 * t623 * t159;
7593   t661 = t134 * t61;
7594   t663 = t595 * t469 * t158;
7595   t665 = 0.18311447306006545054e-3 * t661 * t663;
7596   t666 = t134 * t149;
7597   t668 = t645 * t651 * t652;
7598   t670 = 0.58482236226346462070e0 * t666 * t668;
7599   t671 = t174 * t224;
7600   t672 = 0.1e1 / t67;
7601   t674 = 0.1e1 / t70;
7602   t677 = t672 * t413 / 0.3e1 + t674 * t436 / 0.3e1;
7603   t682 = 0.1e1 / t54 / t376;
7604   t683 = t53 * t682;
7605   t686 = 0.7e1 / 0.288e3 * t683 * t130 * t184;
7606   t687 = t130 * t191;
7607   t688 = t178 * t687;
7608   t689 = t102 * t677;
7609   t690 = t254 * t689;
7610   t693 = t195 * t195;
7611   t694 = 0.1e1 / t693;
7612   t695 = t694 * t198;
7613   t697 = t262 * t695 * t202;
7614   t698 = t203 * t206;
7615   t699 = t698 * t61;
7616   t701 = (t589 + t612 + t615 - t618 + t625 + t658 + t660 - t665 - t670) * t187;
7617   t703 = t62 * t206;
7618   t704 = t703 * t677;
7619   t707 = 0.3e1 * t190 * t704 - t192 * t701;
7620   t708 = t707 * t194;
7621   t709 = t532 * t708;
7622   t710 = t699 * t709;
7623   t714 = 0.1e1 / t55 / t384;
7624   t715 = t714 * t203;
7625   t716 = t715 * t206;
7626   t717 = t716 * t210;
7627   t719 = 0.7e1 / 0.4608e4 * t200 * t717;
7628   t720 = t196 * t198;
7629   t722 = t262 * t720 * t202;
7630   t724 = 0.1e1 / t205 / t173;
7631   t725 = t203 * t724;
7632   t726 = t725 * t61;
7633   t728 = t726 * t532 * t677;
7634   t731 = -t686 - t688 * t690 / 0.48e2 - t697 * t710 / 0.3072e4 - t719 - t722 * t728 / 0.768e3;
7635   t732 = params->beta * t731;
7636   t734 = t215 * t187;
7637   t735 = t219 * t219;
7638   t736 = 0.1e1 / t735;
7639   t737 = t62 * t736;
7640   t738 = t694 * t214;
7641   t743 = t188 * t197 * t731 - t262 * t708 * t738;
7642   t744 = t737 * t743;
7643   t746 = t221 * t732 - t734 * t744;
7644   t748 = 0.1e1 / t223;
7645   t751 = t169 * t175 * t746 * t748 + 0.3e1 * t169 * t671 * t677 + t589 + t612 + t615 - t618 + t625 + t658 + t660 - t665 - t670;
7646   t752 = my_piecewise3(t296, -0.3109070e-1 * t481 + 0.10000000000000000000e1 * t485 * t507 + t169 * t580 * t581 / 0.2e1, t751);
7647   t756 = t228 * t470 * t300;
7648   t757 = 0.17123333333333333333e-1 * t756;
7649   t758 = t130 * t340;
7650   t759 = 0.1e1 / t433;
7651   t760 = t759 * t436;
7652   t761 = t758 * t760;
7653   t762 = t106 * t761;
7654   t764 = -t757 - 0.17123333333333333333e-1 * t762;
7655   t765 = t764 * t318;
7656   t767 = t314 * t314;
7657   t768 = 0.1e1 / t767;
7658   t769 = t304 * t768;
7659   t770 = 0.1e1 / t305;
7660   t772 = -t756 / 0.3e1 - t762 / 0.3e1;
7661   t775 = 0.51647500000000000000e0 * t756;
7662   t777 = sqrt(t302);
7663   t782 = 0.10419500000000000000e0 * t241 * t498 * t310;
7664   t783 = t323 * t760;
7665   t786 = 0.35297250000000000000e1 * t770 * t772 - t775 - 0.51647500000000000000e0 * t762 + 0.63116250000000000000e0 * t777 * t772 - t782 - 0.10419500000000000000e0 * t119 * t783;
7666   t787 = 0.1e1 / t317;
7667   t788 = t786 * t787;
7668   t791 = t118 * t323;
7669   t793 = t321 * t791 / 0.288e3;
7670   t794 = t45 * t516;
7671   t796 = 0.1e1 / t300 / t299;
7672   t797 = t796 * t759;
7673   t798 = t797 * t436;
7674   t799 = t518 * t798;
7675   t802 = t330 * t330;
7676   t803 = 0.1e1 / t802;
7677   t804 = t803 * t332;
7678   t805 = t337 * t61;
7679   t807 = t262 * t804 * t805;
7680   t810 = t788 * t187;
7681   t813 = 0.61370581910589784405e0 * t765 * t187 - 0.19739208802178717239e2 * t769 * t810;
7682   t814 = t813 * t329;
7683   t815 = t758 * t814;
7684   t816 = t533 * t815;
7685   t820 = t210 * t229 * t340;
7686   t822 = t339 * t820 / 0.2304e4;
7687   t824 = t262 * t333 * t805;
7688   t826 = 0.1e1 / t310 / t299;
7689   t827 = t130 * t826;
7690   t828 = t827 * t760;
7691   t829 = t533 * t828;
7692   t832 = t793 + t794 * t799 / 0.288e3 - t807 * t816 / 0.1536e4 + t822 + t824 * t829 / 0.2304e4;
7693   t833 = params->beta * t832;
7694   t835 = t346 * t187;
7695   t836 = t350 * t350;
7696   t837 = 0.1e1 / t836;
7697   t838 = t62 * t837;
7698   t839 = t803 * t345;
7699   t844 = t188 * t347 * t832 - t262 * t814 * t839;
7700   t845 = t838 * t844;
7701   t847 = t352 * t833 - t835 * t845;
7702   t848 = 0.1e1 / t354;
7703   t853 = my_piecewise3(t359, -0.3109070e-1 * t765 + 0.10000000000000000000e1 * t769 * t788 + t169 * t847 * t848 / 0.2e1, t751);
7704   t857 = t297 * t413 / 0.2e1 + t752 * t34 / 0.2e1 + t360 * t436 / 0.2e1 + t853 * t46 / 0.2e1;
7705   t860 = t97 * t443;
7706   t863 = t96 * t464;
7707   t866 = t397 * t97 - 0.4e1 * t400 * t860 + 0.2e1 * t81 * t863;
7708   t869 = t227 * t866 - t363 * t447 + t366 * t751 - 0.2e1 * t449 * t465 - t857 * t98;
7709   t870 = t7 * t869;
7710   t872 = t7 * t368;
7711   t873 = params->d * t869;
7712   t875 = t97 * t464;
7713   t878 = 0.3e1 * t369 * t875 + t370 * t873;
7714   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7715     vrho[0] = t372 * t870 + t872 * t878 + (t368 * t372);
7716 
7717   t880 = -t375 - t379 - t383 - t387 - t391 - t395;
7718   t881 = t880 * t80;
7719   t883 = 0.2e1 * t401 + 0.2e1 * t402;
7720   t884 = t883 * t59;
7721   t886 = -t32 - t401;
7722   t887 = t886 / 0.2e1;
7723   t888 = t37 * t887;
7724   t891 = t40 * rho[1];
7725   t893 = 0.1e1 / t42 / t891;
7726   t894 = sigma[2] * t893;
7727   t897 = -t887;
7728   t898 = t49 * t897;
7729   t901 = 0.5e1 / 0.3e1 * t31 * t888 - 0.8e1 / 0.3e1 * t894 * t50 + 0.5e1 / 0.3e1 * t45 * t898 + t425;
7730   t902 = t25 * t901;
7731   t904 = t431 * t886;
7732   t905 = -t886;
7733   t906 = t435 * t905;
7734   t908 = -0.4e1 / 0.3e1 * t904 - 0.4e1 / 0.3e1 * t906;
7735   t909 = t66 * t908;
7736   t912 = t60 * t909 / 0.24e2 + t884 * t74 / 0.24e2 + t902 * t74 / 0.24e2;
7737   t915 = -0.4e1 * t400 * t912 + t881;
7738   t916 = t915 * t97;
7739   t919 = tau[1] * t44;
7740   t923 = -0.5e1 / 0.3e1 * t919 * t50 + 0.5e1 / 0.3e1 * t85 * t888 + 0.5e1 / 0.3e1 * t89 * t898;
7741   t924 = t453 * t923;
7742   t928 = my_piecewise3(t95, 0, -t451 - t58 * t924 / 0.8e1);
7743   t929 = t363 * t928;
7744   t932 = t475 * t886;
7745   t933 = t474 * t932;
7746   t934 = t106 * t933;
7747   t936 = -t473 - 0.17123333333333333333e-1 * t934;
7748   t937 = t936 * t251;
7749   t940 = -t472 / 0.3e1 - t934 / 0.3e1;
7750   t946 = t258 * t932;
7751   t949 = 0.35297250000000000000e1 * t486 * t940 - t491 - 0.51647500000000000000e0 * t934 + 0.63116250000000000000e0 * t493 * t940 - t501 - 0.10419500000000000000e0 * t119 * t946;
7752   t950 = t949 * t506;
7753   t953 = t521 * t886;
7754   t954 = t518 * t953;
7755   t959 = t950 * t187;
7756   t962 = 0.61370581910589784405e0 * t937 * t187 - 0.19739208802178717239e2 * t485 * t959;
7757   t963 = t962 * t265;
7758   t964 = t474 * t963;
7759   t965 = t533 * t964;
7760   t968 = t560 * t932;
7761   t969 = t533 * t968;
7762   t972 = t515 + t517 * t954 / 0.288e3 - t531 * t965 / 0.1536e4 + t555 + t557 * t969 / 0.2304e4;
7763   t973 = params->beta * t972;
7764   t979 = t188 * t284 * t972 - t262 * t572 * t963;
7765   t980 = t571 * t979;
7766   t982 = t289 * t973 - t568 * t980;
7767   t991 = (0.4e1 / 0.3e1 * t67 * t886 + 0.4e1 / 0.3e1 * t70 * t905) * t133;
7768   t992 = t991 * t161;
7769   t993 = t128 * t992;
7770   t995 = 0.19751673498613801407e-1 * t991 * t159;
7771   t999 = t672 * t886 / 0.3e1 + t674 * t905 / 0.3e1;
7772   t1003 = t102 * t999;
7773   t1004 = t254 * t1003;
7774   t1008 = (t589 + t612 - t615 - t618 + t993 + t658 + t995 - t665 - t670) * t187;
7775   t1010 = t703 * t999;
7776   t1013 = -t1008 * t192 + 0.3e1 * t1010 * t190;
7777   t1014 = t1013 * t194;
7778   t1015 = t532 * t1014;
7779   t1016 = t699 * t1015;
7780   t1020 = t726 * t532 * t999;
7781   t1023 = -t686 - t688 * t1004 / 0.48e2 - t697 * t1016 / 0.3072e4 - t719 - t722 * t1020 / 0.768e3;
7782   t1024 = params->beta * t1023;
7783   t1030 = -t1014 * t262 * t738 + t1023 * t188 * t197;
7784   t1031 = t737 * t1030;
7785   t1033 = t1024 * t221 - t1031 * t734;
7786   t1037 = t1033 * t169 * t175 * t748 + 0.3e1 * t169 * t671 * t999 + t589 + t612 - t615 - t618 + t658 - t665 - t670 + t993 + t995;
7787   t1038 = my_piecewise3(t296, -0.3109070e-1 * t937 + 0.10000000000000000000e1 * t485 * t950 + t169 * t982 * t581 / 0.2e1, t1037);
7788   t1041 = t759 * t905;
7789   t1042 = t758 * t1041;
7790   t1043 = t106 * t1042;
7791   t1045 = -t757 - 0.17123333333333333333e-1 * t1043;
7792   t1046 = t1045 * t318;
7793   t1049 = -t756 / 0.3e1 - t1043 / 0.3e1;
7794   t1055 = t323 * t1041;
7795   t1058 = 0.35297250000000000000e1 * t770 * t1049 - t775 - 0.51647500000000000000e0 * t1043 + 0.63116250000000000000e0 * t777 * t1049 - t782 - 0.10419500000000000000e0 * t119 * t1055;
7796   t1059 = t1058 * t787;
7797   t1062 = t894 * t254;
7798   t1065 = t797 * t905;
7799   t1066 = t518 * t1065;
7800   t1071 = t1059 * t187;
7801   t1074 = 0.61370581910589784405e0 * t1046 * t187 - 0.19739208802178717239e2 * t769 * t1071;
7802   t1075 = t1074 * t329;
7803   t1076 = t758 * t1075;
7804   t1077 = t533 * t1076;
7805   t1080 = t334 * t40;
7806   t1082 = 0.1e1 / t41 / t1080;
7807   t1084 = t262 * t333 * t1082;
7808   t1087 = t827 * t1041;
7809   t1088 = t533 * t1087;
7810   t1091 = -t1062 * t324 / 0.36e2 + t793 + t794 * t1066 / 0.288e3 - t807 * t1077 / 0.1536e4 - t1084 * t342 / 0.288e3 + t822 + t824 * t1088 / 0.2304e4;
7811   t1092 = params->beta * t1091;
7812   t1098 = -t1075 * t262 * t839 + t1091 * t188 * t347;
7813   t1099 = t838 * t1098;
7814   t1101 = t1092 * t352 - t1099 * t835;
7815   t1106 = my_piecewise3(t359, -0.3109070e-1 * t1046 + 0.10000000000000000000e1 * t769 * t1059 + t169 * t1101 * t848 / 0.2e1, t1037);
7816   t1110 = t1038 * t34 / 0.2e1 + t1106 * t46 / 0.2e1 + t297 * t886 / 0.2e1 + t360 * t905 / 0.2e1;
7817   t1113 = t97 * t912;
7818   t1116 = t96 * t928;
7819   t1119 = -0.4e1 * t1113 * t400 + 0.2e1 * t1116 * t81 + t881 * t97;
7820   t1122 = t1037 * t366 - t1110 * t98 + t1119 * t227 - t363 * t916 - 0.2e1 * t449 * t929;
7821   t1123 = t7 * t1122;
7822   t1125 = params->d * t1122;
7823   t1127 = t97 * t928;
7824   t1130 = t1125 * t370 + 0.3e1 * t1127 * t369;
7825   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7826     vrho[1] = t1123 * t372 + t1130 * t872 + (t368 * t372);
7827 
7828   t1132 = t30 * t38;
7829   t1133 = t1132 - t57;
7830   t1134 = t25 * t1133;
7831   t1135 = t400 * t1134;
7832   t1136 = t73 * t97;
7833   t1137 = t1136 * t363;
7834   t1138 = t66 * t1137;
7835   t1141 = t57 * t92;
7836   t1143 = my_piecewise3(t95, 0, t1141 / 0.8e1);
7837   t1144 = t363 * t1143;
7838   t1146 = 0.2e1 * t449 * t1144;
7839   t1147 = t30 * t114;
7840   t1148 = t1147 * t182;
7841   t1151 = t267 * sigma[0];
7842   t1153 = t262 * t1151 * t273;
7843   t1156 = t1148 * t259 / 0.96e2 + t1153 * t279 / 0.768e3;
7844   t1157 = params->beta * t1156;
7845   t1159 = params->beta * params->beta;
7846   t1160 = t1159 * t282;
7847   t1161 = t167 * t167;
7848   t1162 = 0.1e1 / t1161;
7849   t1163 = t1160 * t1162;
7850   t1164 = t62 * t62;
7851   t1165 = t1164 * t570;
7852   t1167 = t1165 * t267 * t1156;
7853   t1169 = t1157 * t289 - t1163 * t1167;
7854   t1173 = t177 * t130;
7855   t1175 = t1173 * t180 * t516;
7856   t1178 = t188 * t197 * t53;
7857   t1179 = t1178 * t211;
7858   t1181 = t1175 / 0.96e2 + t1179 / 0.1536e4;
7859   t1182 = params->beta * t1181;
7860   t1184 = t1159 * t214;
7861   t1185 = t1184 * t1162;
7862   t1186 = t1164 * t736;
7863   t1188 = t1186 * t196 * t1181;
7864   t1190 = t1182 * t221 - t1185 * t1188;
7865   t1191 = t175 * t1190;
7866   t1192 = t1191 * t748;
7867   t1193 = t169 * t1192;
7868   t1194 = my_piecewise3(t296, t169 * t1169 * t581 / 0.2e1, t1193);
7869   t1196 = my_piecewise3(t359, 0, t1193);
7870   t1199 = t1194 * t34 / 0.2e1 + t1196 * t46 / 0.2e1;
7871   t1201 = t97 * t25;
7872   t1202 = t400 * t1201;
7873   t1203 = t1133 * t61;
7874   t1204 = t65 * t73;
7875   t1205 = t1203 * t1204;
7876   t1208 = t96 * t1143;
7877   t1210 = 0.2e1 * t81 * t1208;
7878   t1211 = -t1202 * t1205 / 0.6e1 + t1210;
7879   t1213 = t366 * t167;
7880   t1214 = t1213 * t168;
7881   t1215 = t1214 * t1192;
7882   t1216 = t1135 * t1138 / 0.6e1 - t1146 - t98 * t1199 + t1211 * t227 + t1215;
7883   t1217 = t7 * t1216;
7884   t1219 = params->d * t1216;
7885   t1221 = t97 * t1143;
7886   t1223 = 0.3e1 * t369 * t1221;
7887   t1224 = t1219 * t370 + t1223;
7888   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7889     vsigma[0] = t1217 * t372 + t1224 * t872;
7890 
7891   t1226 = t25 * t57;
7892   t1227 = t400 * t1226;
7893   t1231 = my_piecewise3(t95, 0, t1141 / 0.4e1);
7894   t1232 = t363 * t1231;
7895   t1237 = t1175 / 0.48e2 + t1179 / 0.768e3;
7896   t1238 = params->beta * t1237;
7897   t1241 = t1186 * t196 * t1237;
7898   t1243 = -t1185 * t1241 + t1238 * t221;
7899   t1244 = t175 * t1243;
7900   t1245 = t1244 * t748;
7901   t1246 = t169 * t1245;
7902   t1247 = my_piecewise3(t296, 0, t1246);
7903   t1249 = my_piecewise3(t359, 0, t1246);
7904   t1252 = t1247 * t34 / 0.2e1 + t1249 * t46 / 0.2e1;
7905   t1254 = t57 * t61;
7906   t1255 = t1254 * t1204;
7907   t1258 = t96 * t1231;
7908   t1261 = t1202 * t1255 / 0.3e1 + 0.2e1 * t81 * t1258;
7909   t1264 = -t1227 * t1138 / 0.3e1 - 0.2e1 * t449 * t1232 - t98 * t1252 + t1261 * t227 + t1214 * t1245;
7910   t1265 = t7 * t1264;
7911   t1267 = params->d * t1264;
7912   t1269 = t97 * t1231;
7913   t1272 = t1267 * t370 + 0.3e1 * t1269 * t369;
7914   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7915     vsigma[1] = t1265 * t372 + t1272 * t872;
7916 
7917   t1274 = t44 * t50;
7918   t1275 = t1274 - t57;
7919   t1276 = t25 * t1275;
7920   t1277 = t400 * t1276;
7921   t1280 = my_piecewise3(t296, 0, t1193);
7922   t1282 = t44 * t114;
7923   t1283 = t1282 * t182;
7924   t1286 = t331 * sigma[2];
7925   t1288 = t262 * t1286 * t337;
7926   t1291 = t1283 * t324 / 0.96e2 + t1288 * t342 / 0.768e3;
7927   t1292 = params->beta * t1291;
7928   t1294 = t1159 * t345;
7929   t1295 = t1294 * t1162;
7930   t1296 = t1164 * t837;
7931   t1298 = t1296 * t331 * t1291;
7932   t1300 = t1292 * t352 - t1295 * t1298;
7933   t1304 = my_piecewise3(t359, t169 * t1300 * t848 / 0.2e1, t1193);
7934   t1307 = t1280 * t34 / 0.2e1 + t1304 * t46 / 0.2e1;
7935   t1309 = t1275 * t61;
7936   t1310 = t1309 * t1204;
7937   t1313 = -t1202 * t1310 / 0.6e1 + t1210;
7938   t1315 = t1277 * t1138 / 0.6e1 - t1146 - t98 * t1307 + t1313 * t227 + t1215;
7939   t1316 = t7 * t1315;
7940   t1318 = params->d * t1315;
7941   t1320 = t1318 * t370 + t1223;
7942   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7943     vsigma[2] = t1316 * t372 + t1320 * t872;
7944 
7945   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
7946     vlapl[0] = 0.0e0;
7947 
7948   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
7949     vlapl[1] = 0.0e0;
7950 
7951   t1322 = t453 * t84;
7952   t1323 = t1322 * t38;
7953   t1326 = my_piecewise3(t95, 0, -t58 * t1323 / 0.8e1);
7954   t1327 = t363 * t1326;
7955   t1329 = t96 * t1326;
7956   t1330 = t1329 * t227;
7957   t1333 = -0.2e1 * t1327 * t449 + 0.2e1 * t1330 * t81;
7958   t1334 = t7 * t1333;
7959   t1336 = params->d * t1333;
7960   t1338 = t97 * t1326;
7961   t1341 = t1336 * t370 + 0.3e1 * t1338 * t369;
7962   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7963     vtau[0] = t1334 * t372 + t1341 * t872;
7964 
7965   t1343 = t453 * t88;
7966   t1344 = t1343 * t50;
7967   t1347 = my_piecewise3(t95, 0, -t58 * t1344 / 0.8e1);
7968   t1348 = t363 * t1347;
7969   t1350 = t96 * t1347;
7970   t1351 = t1350 * t227;
7971   t1354 = -0.2e1 * t1348 * t449 + 0.2e1 * t1351 * t81;
7972   t1355 = t7 * t1354;
7973   t1357 = params->d * t1354;
7974   t1359 = t97 * t1347;
7975   t1362 = t1357 * t370 + 0.3e1 * t1359 * t369;
7976   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
7977     vtau[1] = t1355 * t372 + t1362 * t872;
7978 
7979 #ifndef XC_DONT_COMPILE_FXC
7980 
7981   if(order < 2) return;
7982 
7983 
7984   t1364 = t869 * t372;
7985   t1366 = t368 * t878;
7986   t1369 = 0.2e1 * t3 * t9;
7987   t1371 = 0.8e1 * t373 * t377;
7988   t1373 = 0.6e1 * t6 * t15;
7989   t1374 = t11 * t5;
7990   t1376 = 0.12e2 * t1374 * t15;
7991   t1378 = 0.32e2 * t381 * t385;
7992   t1380 = 0.20e2 * t13 * t21;
7993   t1381 = t17 * t12;
7994   t1383 = 0.30e2 * t1381 * t21;
7995   t1385 = 0.72e2 * t389 * t393;
7996   t1386 = t14 * t14;
7997   t1387 = 0.1e1 / t1386;
7998   t1389 = 0.42e2 * t19 * t1387;
7999   t1390 = t1369 - t1371 + t1373 + t1376 - t1378 + t1380 + t1383 - t1385 + t1389;
8000   t1391 = t1390 * t80;
8001   t1392 = t396 * t399;
8002   t1396 = 0.1e1 / t79 / t78;
8003   t1397 = t23 * t1396;
8004   t1398 = t443 * t443;
8005   t1401 = 0.2e1 * t9;
8006   t1402 = t4 * t377;
8007   t1403 = 0.8e1 * t1402;
8008   t1404 = t5 * t15;
8009   t1405 = 0.6e1 * t1404;
8010   t1406 = -t1401 + t1403 - t1405;
8011   t1407 = t1406 * t59;
8012   t1410 = t404 * t426;
8013   t1416 = 0.1e1 / t28 / t270;
8014   t1417 = sigma[0] * t1416;
8015   t1422 = 0.1e1 / t36;
8016   t1423 = t414 * t414;
8017   t1424 = t1422 * t1423;
8018   t1427 = -t9 + t1402;
8019   t1428 = t37 * t1427;
8020   t1431 = 0.1e1 / t48;
8021   t1432 = t418 * t418;
8022   t1433 = t1431 * t1432;
8023   t1436 = -t1427;
8024   t1437 = t49 * t1436;
8025   t1440 = t53 * t202;
8026   t1441 = 0.88e2 / 0.9e1 * t1440;
8027   t1442 = 0.88e2 / 0.9e1 * t1417 * t38 - 0.80e2 / 0.9e1 * t410 * t415 + 0.10e2 / 0.9e1 * t31 * t1424 + 0.5e1 / 0.3e1 * t31 * t1428 + 0.10e2 / 0.9e1 * t45 * t1433 + 0.5e1 / 0.3e1 * t45 * t1437 - t1441;
8028   t1443 = t25 * t1442;
8029   t1448 = t429 * t34;
8030   t1450 = 0.1e1 / t67 / t1448;
8031   t1451 = t413 * t413;
8032   t1454 = 0.2e1 * t1427;
8033   t1457 = t433 * t46;
8034   t1459 = 0.1e1 / t70 / t1457;
8035   t1460 = t436 * t436;
8036   t1463 = -t1454;
8037   t1466 = 0.28e2 / 0.9e1 * t1450 * t1451 - 0.4e1 / 0.3e1 * t431 * t1454 + 0.28e2 / 0.9e1 * t1459 * t1460 - 0.4e1 / 0.3e1 * t435 * t1463;
8038   t1467 = t66 * t1466;
8039   t1470 = t1407 * t74 / 0.24e2 + t1410 * t74 / 0.12e2 + t405 * t440 / 0.12e2 + t1443 * t74 / 0.24e2 + t427 * t440 / 0.12e2 + t60 * t1467 / 0.24e2;
8040   t1473 = -0.8e1 * t1392 * t443 + 0.20e2 * t1397 * t1398 - 0.4e1 * t1470 * t400 + t1391;
8041   t1474 = t1473 * t97;
8042   t1476 = t446 * t96;
8043   t1481 = t464 * t464;
8044   t1482 = t82 * t1481;
8045   t1485 = t857 * t464;
8046   t1489 = 0.11e2 / 0.9e1 * t1440 * t92;
8047   t1490 = t424 * t460;
8048   t1493 = 0.1e1 / t452 / t91;
8049   t1494 = t459 * t459;
8050   t1495 = t1493 * t1494;
8051   t1498 = tau[0] * t409;
8052   t1511 = 0.40e2 / 0.9e1 * t1498 * t38 - 0.50e2 / 0.9e1 * t454 * t415 + 0.10e2 / 0.9e1 * t85 * t1424 + 0.5e1 / 0.3e1 * t85 * t1428 + 0.10e2 / 0.9e1 * t89 * t1433 + 0.5e1 / 0.3e1 * t89 * t1437;
8053   t1512 = t453 * t1511;
8054   t1516 = my_piecewise3(t95, 0, t1489 + 0.2e1 / 0.3e1 * t1490 + t58 * t1495 / 0.4e1 - t58 * t1512 / 0.8e1);
8055   t1517 = t363 * t1516;
8056   t1521 = t228 * t1173 * t231;
8057   t1522 = 0.22831111111111111111e-1 * t1521;
8058   t1523 = t599 * t477;
8059   t1525 = t429 * t429;
8060   t1526 = 0.1e1 / t1525;
8061   t1527 = t1526 * t1451;
8062   t1528 = t560 * t1527;
8063   t1529 = t106 * t1528;
8064   t1531 = 0.1e1 / t1448;
8065   t1532 = t1531 * t1451;
8066   t1533 = t474 * t1532;
8067   t1534 = t106 * t1533;
8068   t1536 = t475 * t1454;
8069   t1537 = t474 * t1536;
8070   t1538 = t106 * t1537;
8071   t1540 = t1522 + 0.11415555555555555555e-1 * t1523 - 0.11415555555555555555e-1 * t1529 + 0.34246666666666666666e-1 * t1534 - 0.17123333333333333333e-1 * t1538;
8072   t1541 = t1540 * t251;
8073   t1543 = t480 * t484;
8074   t1546 = t483 * t247;
8075   t1547 = 0.1e1 / t1546;
8076   t1548 = t235 * t1547;
8077   t1549 = t505 * t505;
8078   t1550 = t1549 * t506;
8079   t1554 = 0.1e1 / t236 / t233;
8080   t1555 = t488 * t488;
8081   t1558 = 0.4e1 / 0.9e1 * t1521;
8082   t1563 = t1558 + 0.2e1 / 0.9e1 * t1523 - 0.2e1 / 0.9e1 * t1529 + 0.2e1 / 0.3e1 * t1534 - t1538 / 0.3e1;
8083   t1566 = 0.68863333333333333333e0 * t1521;
8084   t1571 = 0.1e1/sqrt(t233);
8085   t1576 = t57 * t203;
8086   t1579 = 0.17365833333333333333e0 * t241 * t1576 * t243;
8087   t1580 = t606 * t502;
8088   t1582 = t203 * t520;
8089   t1583 = t1582 * t1527;
8090   t1586 = t258 * t1532;
8091   t1589 = t258 * t1536;
8092   t1592 = -0.17648625000000000000e1 * t1554 * t1555 + 0.35297250000000000000e1 * t486 * t1563 + t1566 + 0.34431666666666666666e0 * t1523 - 0.34431666666666666667e0 * t1529 + 0.10329500000000000000e1 * t1534 - 0.51647500000000000000e0 * t1538 + 0.31558125000000000000e0 * t1571 * t1555 + 0.63116250000000000000e0 * t493 * t1563 + t1579 + 0.13892666666666666667e0 * t1580 - 0.34731666666666666667e-1 * t119 * t1583 + 0.20839000000000000000e0 * t119 * t1586 - 0.10419500000000000000e0 * t119 * t1589;
8093   t1593 = t1592 * t506;
8094   t1596 = t483 * t483;
8095   t1597 = 0.1e1 / t1596;
8096   t1598 = t235 * t1597;
8097   t1599 = t250 * t250;
8098   t1600 = 0.1e1 / t1599;
8099   t1601 = t1549 * t1600;
8100   t1604 = t1417 * t254;
8101   t1607 = t510 * t513;
8102   t1609 = t605 * t258;
8103   t1611 = t255 * t1609 / 0.432e3;
8104   t1612 = t560 * t1532;
8105   t1613 = t533 * t1612;
8106   t1616 = t532 * t104;
8107   t1617 = t1616 * t541;
8108   t1618 = t531 * t1617;
8109   t1620 = t539 * t539;
8110   t1621 = t1620 * t265;
8111   t1622 = t474 * t1621;
8112   t1623 = t533 * t1622;
8113   t1626 = t547 * t61;
8114   t1628 = t262 * t528 * t1626;
8115   t1631 = t410 * t516;
8116   t1634 = t242 * t522;
8117   t1635 = t517 * t1634;
8118   t1637 = t521 * t1454;
8119   t1638 = t518 * t1637;
8120   t1642 = 0.1e1 / t231 / t475;
8121   t1643 = t1642 * t1526;
8122   t1644 = t1643 * t1451;
8123   t1645 = t518 * t1644;
8124   t1648 = 0.11e2 / 0.108e3 * t1604 * t259 - t1607 / 0.54e2 - t1611 - t557 * t1613 / 0.1152e4 - t1618 / 0.1152e4 - t531 * t1623 / 0.1536e4 + t1628 * t542 / 0.144e3 - t1631 * t523 / 0.54e2 + t1635 / 0.432e3 + t517 * t1638 / 0.288e3 + t517 * t1645 / 0.216e3;
8125   t1649 = t520 * t1531;
8126   t1650 = t1649 * t1451;
8127   t1651 = t518 * t1650;
8128   t1655 = t210 * t470 * t277;
8129   t1657 = t275 * t1655 / 0.6912e4;
8130   t1660 = 0.1e1 / t27 / t270 / t407;
8131   t1662 = t262 * t269 * t1660;
8132   t1665 = t549 * t553;
8133   t1668 = 0.1e1 / t526 / t266;
8134   t1669 = t1668 * t268;
8135   t1671 = t262 * t1669 * t529;
8136   t1672 = t265 * t265;
8137   t1673 = t1620 * t1672;
8138   t1674 = t474 * t1673;
8139   t1675 = t533 * t1674;
8140   t1679 = t188 * t62 * t527;
8141   t1680 = t268 * t273;
8142   t1681 = t1680 * t209;
8143   t1682 = t1679 * t1681;
8144   t1683 = t103 * t55;
8145   t1684 = t1683 * t560;
8146   t1685 = t540 * t476;
8147   t1686 = t1684 * t1685;
8148   t1689 = t1616 * t561;
8149   t1690 = t557 * t1689;
8150   t1692 = t560 * t1536;
8151   t1693 = t533 * t1692;
8152   t1697 = 0.1e1 / t243 / t475;
8153   t1698 = t130 * t1697;
8154   t1699 = t1698 * t1527;
8155   t1700 = t533 * t1699;
8156   t1707 = t1550 * t187;
8157   t1710 = t1593 * t187;
8158   t1713 = t1601 * t187;
8159   t1716 = 0.61370581910589784405e0 * t1541 * t187 - 0.39478417604357434478e2 * t1543 * t536 + 0.39478417604357434478e2 * t1548 * t1707 - 0.19739208802178717239e2 * t485 * t1710 - 0.63489110255409872532e3 * t1598 * t1713;
8160   t1717 = t1716 * t265;
8161   t1718 = t474 * t1717;
8162   t1719 = t533 * t1718;
8163   t1723 = t262 * t269 * t1626;
8164   t1726 = -t517 * t1651 / 0.144e3 - t1657 + 0.19e2 / 0.864e3 * t1662 * t279 - t1665 / 0.216e3 + t1671 * t1675 / 0.768e3 - t1682 * t1686 / 0.1152e4 + t1690 / 0.1728e4 + t557 * t1693 / 0.2304e4 + 0.5e1 / 0.6912e4 * t557 * t1700 - t531 * t1719 / 0.1536e4 - t1723 * t562 / 0.216e3;
8165   t1727 = t1648 + t1726;
8166   t1728 = params->beta * t1727;
8167   t1730 = t566 * t187;
8168   t1734 = 0.1e1 / t569 / t287;
8169   t1735 = t62 * t1734;
8170   t1736 = t577 * t577;
8171   t1737 = t1735 * t1736;
8172   t1740 = t1668 * t282;
8173   t1744 = t527 * t565;
8174   t1754 = -t1621 * t262 * t572 + 0.2e1 * t1673 * t1740 * t262 - t1717 * t262 * t572 + t1727 * t188 * t284 - 0.2e1 * t1744 * t262 * t540;
8175   t1755 = t571 * t1754;
8176   t1757 = t1728 * t289 - 0.2e1 * t1730 * t578 + 0.2e1 * t1737 * t568 - t1755 * t568;
8177   t1761 = t580 * t580;
8178   t1762 = t291 * t291;
8179   t1763 = 0.1e1 / t1762;
8180   t1768 = t169 * t174;
8181   t1769 = t746 * t748;
8182   t1773 = t590 * t121;
8183   t1774 = 0.1e1 / t1773;
8184   t1775 = t108 * t1774;
8185   t1776 = t608 * t608;
8186   t1777 = t1776 * t609;
8187   t1779 = 0.20000000000000000000e1 * t1775 * t1777;
8188   t1780 = 0.1e1 / t170;
8189   t1785 = 0.1e1 / t171;
8190   t1791 = (0.4e1 / 0.9e1 * t1780 * t1451 + 0.4e1 / 0.3e1 * t67 * t1454 + 0.4e1 / 0.9e1 * t1785 * t1460 + 0.4e1 / 0.3e1 * t70 * t1463) * t133;
8191   t1793 = 0.19751673498613801407e-1 * t1791 * t159;
8192   t1796 = 0.1e1 / t109 / t106 * t114;
8193   t1797 = t115 * t102;
8194   t1798 = t1797 * t57;
8195   t1799 = t1796 * t1798;
8196   t1801 = t595 * t177;
8197   t1802 = t594 * t1801;
8198   t1804 = t103 * t177;
8199   t1805 = t101 * t1804;
8200   t1807 = 0.1e1/sqrt(t106);
8201   t1808 = t1807 * t114;
8202   t1809 = t1808 * t1798;
8203   t1811 = t602 * t1801;
8204   t1813 = t102 * t57;
8205   t1814 = t116 * t1813;
8206   t1816 = -0.42198333333333333333e0 * t1799 + 0.84396666666666666666e0 * t1802 + 0.39862222222222222223e0 * t1805 + 0.68258333333333333333e-1 * t1809 + 0.13651666666666666667e0 * t1811 + 0.13692777777777777778e0 * t1814;
8207   t1817 = t1816 * t609;
8208   t1819 = 0.10000000000000000000e1 * t592 * t1817;
8209   t1820 = t590 * t590;
8210   t1821 = 0.1e1 / t1820;
8211   t1822 = t108 * t1821;
8212   t1823 = t124 * t124;
8213   t1824 = 0.1e1 / t1823;
8214   t1825 = t1776 * t1824;
8215   t1827 = 0.16081979498692535067e2 * t1822 * t1825;
8216   t1828 = t644 * t644;
8217   t1829 = 0.1e1 / t1828;
8218   t1830 = t651 * t651;
8219   t1831 = t1829 * t1830;
8220   t1832 = t157 * t157;
8221   t1833 = 0.1e1 / t1832;
8222   t1834 = t1831 * t1833;
8223   t1836 = 0.17315859105681463759e2 * t666 * t1834;
8224   t1837 = t623 * t149;
8225   t1838 = t1837 * t668;
8226   t1839 = 0.11696447245269292414e1 * t1838;
8227   t1846 = -0.57538888888888888889e0 * t1799 + 0.11507777777777777778e1 * t1802 + 0.40256666666666666667e0 * t1805 + 0.36677500000000000000e-1 * t1809 + 0.73355000000000000000e-1 * t1811 + 0.13797500000000000000e0 * t1814;
8228   t1848 = t645 * t1846 * t652;
8229   t1850 = 0.58482236226346462070e0 * t666 * t1848;
8230   t1851 = t644 * t154;
8231   t1852 = 0.1e1 / t1851;
8232   t1854 = t1852 * t1830 * t652;
8233   t1856 = 0.11696447245269292414e1 * t666 * t1854;
8234   t1858 = 0.1e1 / t54 / t14;
8235   t1859 = t53 * t1858;
8236   t1862 = 0.35e2 / 0.432e3 * t1859 * t130 * t184;
8237   t1863 = t683 * t687;
8238   t1864 = t1863 * t690;
8239   t1866 = t130 * t206;
8240   t1867 = t178 * t1866;
8241   t1868 = t677 * t677;
8242   t1869 = t102 * t1868;
8243   t1870 = t254 * t1869;
8244   t1881 = -t69 * t1451 / 0.9e1 + t672 * t1454 / 0.3e1 - t72 * t1460 / 0.9e1 + t674 * t1463 / 0.3e1;
8245   t1883 = t254 * t102 * t1881;
8246   t1887 = 0.1e1 / t693 / t195;
8247   t1888 = t1887 * t198;
8248   t1890 = t262 * t1888 * t202;
8249   t1891 = t707 * t707;
8250   t1892 = t194 * t194;
8251   t1893 = t1891 * t1892;
8252   t1895 = t699 * t532 * t1893;
8253   t1899 = t262 * t695 * t714;
8254   t1900 = t1899 * t710;
8255   t1903 = t262 * t695 * t204;
8256   t1904 = t724 * t61;
8257   t1905 = t1904 * t208;
8258   t1906 = t103 * t707;
8259   t1907 = t194 * t677;
8260   t1908 = t1906 * t1907;
8261   t1909 = t1905 * t1908;
8262   t1912 = t12 * t21;
8263   t1914 = 0.20e2 * t1912 * t162;
8264   t1916 = 0.12e2 * t1404 * t162;
8265   t1917 = t380 * t385;
8266   t1919 = 0.32e2 * t1917 * t162;
8267   t1920 = t623 * t61;
8268   t1921 = t1920 * t663;
8269   t1922 = 0.36622894612013090108e-3 * t1921;
8270   t1923 = t1827 + t1793 - t1836 - t1839 - t1850 + t1914 + t1916 - t1919 + t1819 - t1922 + t1856;
8271   t1924 = t469 * t591;
8272   t1927 = 0.35616666666666666666e-1 * t228 * t1924 * t610;
8273   t1929 = t595 * t177 * t158;
8274   t1931 = 0.24415263074675393405e-3 * t661 * t1929;
8275   t1932 = t134 * t101;
8276   t1933 = t586 * t668;
8277   t1935 = 0.10843581300301739842e-1 * t1932 * t1933;
8278   t1939 = t469 * t630;
8279   t1943 = t629 * t141;
8280   t1944 = 0.1e1 / t1943;
8281   t1945 = t136 * t1944;
8282   t1946 = t636 * t636;
8283   t1947 = t1946 * t637;
8284   t1956 = -0.78438333333333333333e0 * t1799 + 0.15687666666666666667e1 * t1802 + 0.68863333333333333333e0 * t1805 + 0.14025833333333333333e0 * t1809 + 0.28051666666666666667e0 * t1811 + 0.17365833333333333333e0 * t1814;
8285   t1957 = t1956 * t637;
8286   t1960 = t629 * t629;
8287   t1961 = 0.1e1 / t1960;
8288   t1962 = t136 * t1961;
8289   t1963 = t144 * t144;
8290   t1964 = 0.1e1 / t1963;
8291   t1965 = t1946 * t1964;
8292   t1970 = 0.14764627977777777777e-2 * t101 * t1804 * t125;
8293   t1974 = t469 * t645;
8294   t1978 = t149 * t1852;
8295   t1979 = t1830 * t652;
8296   t1982 = t1846 * t652;
8297   t1985 = t149 * t1829;
8298   t1986 = t1830 * t1833;
8299   t1989 = -0.70983522622222222221e-3 * t101 * t1804 * t145 - 0.34246666666666666666e-1 * t228 * t1939 * t638 - 0.20000000000000000000e1 * t1945 * t1947 + 0.10000000000000000000e1 * t631 * t1957 + 0.32163958997385070134e2 * t1962 * t1965 + t1970 + t1927 + t1779 - t1819 - t1827 - 0.24415263074675393405e-3 * t101 * t1804 * t158 - 0.10843581300301739842e-1 * t228 * t1974 * t653 - 0.11696447245269292414e1 * t1978 * t1979 + 0.58482236226346462070e0 * t646 * t1982 + 0.17315859105681463759e2 * t1985 * t1986;
8300   t1990 = t134 * t1989;
8301   t1991 = t128 * t1990;
8302   t1992 = t1791 * t161;
8303   t1993 = t128 * t1992;
8304   t1994 = t623 * t656;
8305   t1995 = t128 * t1994;
8306   t1996 = 0.2e1 * t1995;
8307   t1997 = t616 * t624;
8308   t1998 = 0.8e1 * t1997;
8309   t2000 = 0.8e1 * t616 * t657;
8310   t2001 = t613 * t624;
8311   t2002 = 0.8e1 * t2001;
8312   t2004 = 0.8e1 * t613 * t657;
8313   t2005 = -t1927 + t1931 + t1935 + t1991 + t1993 + t1996 - t1998 - t2000 + t2002 + t2004 - t1779 - t1970;
8314   t2007 = (t1923 + t2005) * t187;
8315   t2011 = t62 * t724;
8316   t2012 = t2011 * t1868;
8317   t2015 = t703 * t1881;
8318   t2018 = -0.12e2 * t190 * t2012 + 0.3e1 * t190 * t2015 - t192 * t2007 + 0.6e1 * t701 * t704;
8319   t2019 = t2018 * t194;
8320   t2021 = t699 * t532 * t2019;
8321   t2024 = t1891 * t194;
8322   t2026 = t699 * t532 * t2024;
8323   t2030 = 0.1e1 / t55 / t20;
8324   t2031 = t2030 * t203;
8325   t2033 = t2031 * t206 * t210;
8326   t2035 = 0.119e3 / 0.13824e5 * t200 * t2033;
8327   t2037 = t262 * t720 * t714;
8328   t2038 = t2037 * t728;
8329   t2041 = 0.1e1 / t205 / t174;
8330   t2042 = t203 * t2041;
8331   t2043 = t2042 * t61;
8332   t2045 = t2043 * t532 * t1868;
8333   t2049 = t726 * t532 * t1881;
8334   t2052 = t1862 + 0.7e1 / 0.72e2 * t1864 + t1867 * t1870 / 0.16e2 - t688 * t1883 / 0.48e2 + t1890 * t1895 / 0.1536e4 + 0.7e1 / 0.2304e4 * t1900 + t1903 * t1909 / 0.384e3 - t697 * t2021 / 0.3072e4 - t697 * t2026 / 0.3072e4 + t2035 + 0.7e1 / 0.576e3 * t2038 + 0.5e1 / 0.768e3 * t722 * t2045 - t722 * t2049 / 0.768e3;
8335   t2053 = params->beta * t2052;
8336   t2055 = t732 * t187;
8337   t2059 = 0.1e1 / t735 / t219;
8338   t2060 = t62 * t2059;
8339   t2061 = t743 * t743;
8340   t2062 = t2060 * t2061;
8341   t2065 = t1887 * t214;
8342   t2069 = t694 * t731;
8343   t2079 = t188 * t197 * t2052 + 0.2e1 * t1893 * t2065 * t262 - t2019 * t262 * t738 - t2024 * t262 * t738 - 0.2e1 * t2069 * t262 * t708;
8344   t2080 = t737 * t2079;
8345   t2082 = t2053 * t221 - 0.2e1 * t2055 * t744 + 0.2e1 * t2062 * t734 - t2080 * t734;
8346   t2086 = t169 * t175 * t2082 * t748 + 0.6e1 * t1768 * t1769 * t677 - t1779 + t1793 + t1819 + t1827 - t1836 - t1839 - t1850 + t1856 + t1914 + t1916 - t1919 + t1993;
8347   t2090 = t746 * t746;
8348   t2092 = t223 * t223;
8349   t2093 = 0.1e1 / t2092;
8350   t2096 = t173 * t224;
8351   t2100 = -t169 * t175 * t2090 * t2093 + 0.6e1 * t169 * t1868 * t2096 + 0.3e1 * t169 * t1881 * t671 - t1922 - t1927 + t1931 + t1935 - t1970 + t1991 + t1996 - t1998 - t2000 + t2002 + t2004;
8352   t2101 = t2086 + t2100;
8353   t2102 = my_piecewise3(t296, -0.3109070e-1 * t1541 + 0.20000000000000000000e1 * t1543 * t507 - 0.20000000000000000000e1 * t1548 * t1550 + 0.10000000000000000000e1 * t485 * t1593 + 0.32163958997385070134e2 * t1598 * t1601 + t169 * t1757 * t581 / 0.2e1 - t169 * t1761 * t1763 / 0.2e1, t2101);
8354   t2109 = t228 * t1173 * t300;
8355   t2110 = 0.22831111111111111111e-1 * t2109;
8356   t2111 = t599 * t761;
8357   t2113 = t433 * t433;
8358   t2114 = 0.1e1 / t2113;
8359   t2115 = t2114 * t1460;
8360   t2116 = t827 * t2115;
8361   t2117 = t106 * t2116;
8362   t2119 = 0.1e1 / t1457;
8363   t2120 = t2119 * t1460;
8364   t2121 = t758 * t2120;
8365   t2122 = t106 * t2121;
8366   t2124 = t759 * t1463;
8367   t2125 = t758 * t2124;
8368   t2126 = t106 * t2125;
8369   t2128 = t2110 + 0.11415555555555555555e-1 * t2111 - 0.11415555555555555555e-1 * t2117 + 0.34246666666666666666e-1 * t2122 - 0.17123333333333333333e-1 * t2126;
8370   t2129 = t2128 * t318;
8371   t2131 = t764 * t768;
8372   t2134 = t767 * t314;
8373   t2135 = 0.1e1 / t2134;
8374   t2136 = t304 * t2135;
8375   t2137 = t786 * t786;
8376   t2138 = t2137 * t787;
8377   t2142 = 0.1e1 / t305 / t302;
8378   t2143 = t772 * t772;
8379   t2146 = 0.4e1 / 0.9e1 * t2109;
8380   t2151 = t2146 + 0.2e1 / 0.9e1 * t2111 - 0.2e1 / 0.9e1 * t2117 + 0.2e1 / 0.3e1 * t2122 - t2126 / 0.3e1;
8381   t2154 = 0.68863333333333333333e0 * t2109;
8382   t2159 = 0.1e1/sqrt(t302);
8383   t2166 = 0.17365833333333333333e0 * t241 * t1576 * t310;
8384   t2167 = t606 * t783;
8385   t2169 = t203 * t796;
8386   t2170 = t2169 * t2115;
8387   t2173 = t323 * t2120;
8388   t2176 = t323 * t2124;
8389   t2179 = -0.17648625000000000000e1 * t2142 * t2143 + 0.35297250000000000000e1 * t770 * t2151 + t2154 + 0.34431666666666666666e0 * t2111 - 0.34431666666666666667e0 * t2117 + 0.10329500000000000000e1 * t2122 - 0.51647500000000000000e0 * t2126 + 0.31558125000000000000e0 * t2159 * t2143 + 0.63116250000000000000e0 * t777 * t2151 + t2166 + 0.13892666666666666667e0 * t2167 - 0.34731666666666666667e-1 * t119 * t2170 + 0.20839000000000000000e0 * t119 * t2173 - 0.10419500000000000000e0 * t119 * t2176;
8390   t2180 = t2179 * t787;
8391   t2183 = t767 * t767;
8392   t2184 = 0.1e1 / t2183;
8393   t2185 = t304 * t2184;
8394   t2186 = t317 * t317;
8395   t2187 = 0.1e1 / t2186;
8396   t2188 = t2137 * t2187;
8397   t2191 = t605 * t323;
8398   t2193 = t321 * t2191 / 0.432e3;
8399   t2194 = t242 * t798;
8400   t2195 = t794 * t2194;
8401   t2198 = 0.1e1 / t300 / t759;
8402   t2199 = t2198 * t2114;
8403   t2200 = t2199 * t1460;
8404   t2201 = t518 * t2200;
8405   t2204 = t796 * t2119;
8406   t2205 = t2204 * t1460;
8407   t2206 = t518 * t2205;
8408   t2209 = t797 * t1463;
8409   t2210 = t518 * t2209;
8410   t2214 = 0.1e1 / t802 / t330;
8411   t2215 = t2214 * t332;
8412   t2217 = t262 * t2215 * t805;
8413   t2218 = t813 * t813;
8414   t2219 = t329 * t329;
8415   t2220 = t2218 * t2219;
8416   t2221 = t758 * t2220;
8417   t2222 = t533 * t2221;
8418   t2225 = t1616 * t815;
8419   t2226 = t807 * t2225;
8420   t2229 = t188 * t62 * t803;
8421   t2230 = t332 * t337;
8422   t2231 = t2230 * t209;
8423   t2232 = t2229 * t2231;
8424   t2233 = t1683 * t827;
8425   t2234 = t814 * t760;
8426   t2235 = t2233 * t2234;
8427   t2242 = t2138 * t187;
8428   t2245 = t2180 * t187;
8429   t2248 = t2188 * t187;
8430   t2251 = 0.61370581910589784405e0 * t2129 * t187 - 0.39478417604357434478e2 * t2131 * t810 + 0.39478417604357434478e2 * t2136 * t2242 - 0.19739208802178717239e2 * t769 * t2245 - 0.63489110255409872532e3 * t2185 * t2248;
8431   t2252 = t2251 * t329;
8432   t2253 = t758 * t2252;
8433   t2254 = t533 * t2253;
8434   t2257 = t2218 * t329;
8435   t2258 = t758 * t2257;
8436   t2259 = t533 * t2258;
8437   t2263 = t210 * t470 * t340;
8438   t2265 = t339 * t2263 / 0.6912e4;
8439   t2266 = t1616 * t828;
8440   t2267 = t824 * t2266;
8441   t2270 = 0.1e1 / t310 / t759;
8442   t2271 = t130 * t2270;
8443   t2272 = t2271 * t2115;
8444   t2273 = t533 * t2272;
8445   t2276 = t827 * t2120;
8446   t2277 = t533 * t2276;
8447   t2280 = t827 * t2124;
8448   t2281 = t533 * t2280;
8449   t2284 = -t2193 + t2195 / 0.432e3 + t794 * t2201 / 0.216e3 - t794 * t2206 / 0.144e3 + t794 * t2210 / 0.288e3 + t2217 * t2222 / 0.768e3 - t2226 / 0.1152e4 - t2232 * t2235 / 0.1152e4 - t807 * t2254 / 0.1536e4 - t807 * t2259 / 0.1536e4 - t2265 + t2267 / 0.1728e4 + 0.5e1 / 0.6912e4 * t824 * t2273 - t824 * t2277 / 0.1152e4 + t824 * t2281 / 0.2304e4;
8450   t2285 = params->beta * t2284;
8451   t2287 = t833 * t187;
8452   t2291 = 0.1e1 / t836 / t350;
8453   t2292 = t62 * t2291;
8454   t2293 = t844 * t844;
8455   t2294 = t2292 * t2293;
8456   t2297 = t2214 * t345;
8457   t2301 = t803 * t832;
8458   t2311 = t188 * t2284 * t347 + 0.2e1 * t2220 * t2297 * t262 - t2252 * t262 * t839 - t2257 * t262 * t839 - 0.2e1 * t2301 * t262 * t814;
8459   t2312 = t838 * t2311;
8460   t2314 = t2285 * t352 - 0.2e1 * t2287 * t845 + 0.2e1 * t2294 * t835 - t2312 * t835;
8461   t2318 = t847 * t847;
8462   t2319 = t354 * t354;
8463   t2320 = 0.1e1 / t2319;
8464   t2325 = my_piecewise3(t359, -0.3109070e-1 * t2129 + 0.20000000000000000000e1 * t2131 * t788 - 0.20000000000000000000e1 * t2136 * t2138 + 0.10000000000000000000e1 * t769 * t2180 + 0.32163958997385070134e2 * t2185 * t2188 + t169 * t2314 * t848 / 0.2e1 - t169 * t2318 * t2320 / 0.2e1, t2101);
8465   t2331 = t2102 * t34 / 0.2e1 + t752 * t413 + t297 * t1454 / 0.2e1 + t2325 * t46 / 0.2e1 + t853 * t436 + t360 * t1463 / 0.2e1;
8466   t2338 = t97 * t1398;
8467   t2341 = t96 * t443;
8468   t2342 = t2341 * t464;
8469   t2345 = t97 * t1470;
8470   t2350 = t96 * t1516;
8471   t2353 = t1391 * t97 - 0.8e1 * t1392 * t860 + 0.20e2 * t1397 * t2338 + 0.2e1 * t1481 * t81 - 0.16e2 * t2342 * t400 - 0.4e1 * t2345 * t400 + 0.2e1 * t2350 * t81 + 0.4e1 * t397 * t863;
8472   t2358 = -t1474 * t363 - 0.4e1 * t1476 * t465 - 0.2e1 * t1482 * t363 - 0.4e1 * t1485 * t449 - 0.2e1 * t1517 * t449 + t2101 * t366 + t227 * t2353 - t2331 * t98 - 0.2e1 * t447 * t857 + 0.2e1 * t751 * t866;
8473   t2359 = t7 * t2358;
8474   t2363 = params->d * t2358;
8475   t2367 = t96 * t1481;
8476   t2370 = t97 * t1516;
8477   t2373 = t2363 * t370 + 0.6e1 * t2367 * t369 + 0.3e1 * t2370 * t369 + 0.6e1 * t873 * t875;
8478   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8479     v2rho2[0] = t2359 * t372 + t2373 * t872 + 0.2e1 * t870 * t878 + 0.2e1 * t1364 + 0.2e1 * t1366;
8480 
8481   t2375 = t1122 * t372;
8482   t2376 = -t1369 + t1373 - t1376 + t1380 - t1383 + t1389;
8483   t2377 = t2376 * t80;
8484   t2378 = t880 * t399;
8485   t2383 = t912 * t443;
8486   t2386 = t1401 - t1405;
8487   t2387 = t2386 * t59;
8488   t2389 = t883 * t426;
8489   t2392 = t404 * t901;
8490   t2396 = t1422 * t887;
8491   t2397 = t2396 * t414;
8492   t2400 = t37 * t4;
8493   t2401 = t2400 * t377;
8494   t2406 = t1431 * t897;
8495   t2407 = t2406 * t418;
8496   t2410 = t49 * t4;
8497   t2411 = t2410 * t377;
8498   t2414 = -0.40e2 / 0.9e1 * t410 * t888 + 0.10e2 / 0.9e1 * t31 * t2397 + 0.5e1 / 0.3e1 * t31 * t2401 - 0.40e2 / 0.9e1 * t894 * t419 + 0.10e2 / 0.9e1 * t45 * t2407 - 0.5e1 / 0.3e1 * t45 * t2411 - t1441;
8499   t2415 = t25 * t2414;
8500   t2420 = t1450 * t886;
8501   t2423 = t431 * t4;
8502   t2426 = t1459 * t905;
8503   t2429 = t435 * t4;
8504   t2432 = 0.28e2 / 0.9e1 * t2420 * t413 - 0.8e1 / 0.3e1 * t2423 * t377 + 0.28e2 / 0.9e1 * t2426 * t436 + 0.8e1 / 0.3e1 * t2429 * t377;
8505   t2433 = t66 * t2432;
8506   t2436 = t2387 * t74 / 0.24e2 + t2389 * t74 / 0.24e2 + t2392 * t74 / 0.24e2 + t2415 * t74 / 0.24e2 + t60 * t2433 / 0.24e2 + t405 * t909 / 0.24e2 + t427 * t909 / 0.24e2 + t884 * t440 / 0.24e2 + t902 * t440 / 0.24e2;
8507   t2439 = -0.4e1 * t1392 * t912 + 0.20e2 * t1397 * t2383 - 0.4e1 * t2378 * t443 - 0.4e1 * t2436 * t400 + t2377;
8508   t2440 = t2439 * t97;
8509   t2442 = t915 * t96;
8510   t2448 = t82 * t464;
8511   t2451 = t857 * t928;
8512   t2455 = t424 * t924;
8513   t2457 = t1493 * t923;
8514   t2458 = t2457 * t459;
8515   t2473 = -0.25e2 / 0.9e1 * t454 * t888 + 0.10e2 / 0.9e1 * t85 * t2397 + 0.5e1 / 0.3e1 * t85 * t2401 - 0.25e2 / 0.9e1 * t919 * t419 + 0.10e2 / 0.9e1 * t89 * t2407 - 0.5e1 / 0.3e1 * t89 * t2411;
8516   t2474 = t453 * t2473;
8517   t2478 = my_piecewise3(t95, 0, t1489 + t1490 / 0.3e1 + t2455 / 0.3e1 + t58 * t2458 / 0.4e1 - t58 * t2474 / 0.8e1);
8518   t2479 = t363 * t2478;
8519   t2483 = t1110 * t464;
8520   t2487 = t599 * t933;
8521   t2489 = t1526 * t886;
8522   t2490 = t2489 * t413;
8523   t2491 = t560 * t2490;
8524   t2492 = t106 * t2491;
8525   t2494 = t1531 * t886;
8526   t2495 = t2494 * t413;
8527   t2496 = t474 * t2495;
8528   t2497 = t106 * t2496;
8529   t2499 = t103 * t682;
8530   t2500 = t101 * t2499;
8531   t2501 = t475 * t4;
8532   t2502 = t474 * t2501;
8533   t2503 = t2500 * t2502;
8534   t2505 = t1522 + 0.57077777777777777777e-2 * t1523 + 0.57077777777777777777e-2 * t2487 - 0.11415555555555555555e-1 * t2492 + 0.34246666666666666666e-1 * t2497 - 0.34246666666666666666e-1 * t2503;
8535   t2506 = t2505 * t251;
8536   t2508 = t936 * t484;
8537   t2513 = t950 * t505;
8538   t2516 = t1554 * t940;
8539   t2524 = t1558 + t1523 / 0.9e1 + t2487 / 0.9e1 - 0.2e1 / 0.9e1 * t2492 + 0.2e1 / 0.3e1 * t2497 - 0.2e1 / 0.3e1 * t2503;
8540   t2532 = t1571 * t940;
8541   t2538 = t606 * t946;
8542   t2540 = t1582 * t2490;
8543   t2543 = t258 * t2495;
8544   t2546 = t102 * t423;
8545   t2547 = t116 * t2546;
8546   t2548 = t258 * t2501;
8547   t2551 = -0.17648625000000000000e1 * t2516 * t488 + 0.35297250000000000000e1 * t486 * t2524 + t1566 + 0.17215833333333333333e0 * t1523 + 0.17215833333333333333e0 * t2487 - 0.34431666666666666667e0 * t2492 + 0.10329500000000000000e1 * t2497 - 0.10329500000000000000e1 * t2503 + 0.31558125000000000000e0 * t2532 * t488 + 0.63116250000000000000e0 * t493 * t2524 + t1579 + 0.69463333333333333333e-1 * t1580 + 0.69463333333333333333e-1 * t2538 - 0.34731666666666666667e-1 * t119 * t2540 + 0.20839000000000000000e0 * t119 * t2543 - 0.20839000000000000000e0 * t2547 * t2548;
8548   t2552 = t2551 * t506;
8549   t2555 = t949 * t1600;
8550   t2556 = t2555 * t505;
8551   t2563 = t242 * t953;
8552   t2564 = t517 * t2563;
8553   t2566 = t518 * t1642;
8554   t2567 = t2566 * t2490;
8555   t2570 = t518 * t520;
8556   t2571 = t2570 * t2495;
8557   t2574 = t521 * t4;
8558   t2575 = t1576 * t2574;
8559   t2578 = t532 * t276;
8560   t2579 = t277 * t962;
8561   t2580 = t1672 * t539;
8562   t2581 = t2579 * t2580;
8563   t2582 = t2578 * t2581;
8564   t2587 = t1616 * t964;
8565   t2588 = t531 * t2587;
8566   t2590 = t963 * t476;
8567   t2591 = t1684 * t2590;
8568   t2594 = -t1607 / 0.108e3 - t1611 + t1635 / 0.864e3 - t1631 * t954 / 0.108e3 + t2564 / 0.864e3 + t517 * t2567 / 0.216e3 - t517 * t2571 / 0.144e3 + t517 * t2575 / 0.144e3 + t1671 * t2582 / 0.768e3 + t1628 * t965 / 0.288e3 - t2588 / 0.2304e4 - t1682 * t2591 / 0.2304e4;
8569   t2601 = t1548 * t949;
8570   t2604 = t2552 * t187;
8571   t2607 = t1598 * t949;
8572   t2608 = t1600 * t187;
8573   t2609 = t2608 * t505;
8574   t2612 = 0.61370581910589784405e0 * t2506 * t187 - 0.19739208802178717239e2 * t2508 * t536 - 0.19739208802178717239e2 * t1543 * t959 + 0.39478417604357434478e2 * t2601 * t536 - 0.19739208802178717239e2 * t485 * t2604 - 0.63489110255409872532e3 * t2607 * t2609;
8575   t2613 = t2612 * t265;
8576   t2614 = t474 * t2613;
8577   t2615 = t533 * t2614;
8578   t2618 = t2579 * t540;
8579   t2619 = t2578 * t2618;
8580   t2625 = t932 * t540;
8581   t2626 = t1684 * t2625;
8582   t2631 = t1616 * t968;
8583   t2632 = t557 * t2631;
8584   t2634 = t1697 * t1526;
8585   t2635 = t886 * t413;
8586   t2636 = t2634 * t2635;
8587   t2637 = t2578 * t2636;
8588   t2640 = t559 * t1531;
8589   t2641 = t2640 * t2635;
8590   t2642 = t2578 * t2641;
8591   t2645 = t532 * t177;
8592   t2646 = t560 * t2501;
8593   t2647 = t2645 * t2646;
8594   t2650 = -t531 * t2615 / 0.1536e4 - t531 * t2619 / 0.1536e4 - t1618 / 0.2304e4 - t1665 / 0.432e3 - t1657 + t1690 / 0.3456e4 - t1682 * t2626 / 0.2304e4 - t1723 * t969 / 0.432e3 + t2632 / 0.3456e4 + 0.5e1 / 0.6912e4 * t557 * t2637 - t557 * t2642 / 0.1152e4 + t557 * t2647 / 0.1152e4;
8595   t2651 = t2594 + t2650;
8596   t2652 = params->beta * t2651;
8597   t2654 = t973 * t187;
8598   t2657 = t979 * t577;
8599   t2658 = t1735 * t2657;
8600   t2662 = t188 * t62 * t1668;
8601   t2663 = t282 * t962;
8602   t2673 = t527 * t972;
8603   t2678 = -t1679 * t2663 * t540 - t1744 * t262 * t963 + t188 * t2651 * t284 + 0.2e1 * t2580 * t2662 * t2663 - t2613 * t262 * t572 - t262 * t2673 * t540;
8604   t2679 = t571 * t2678;
8605   t2681 = -t1730 * t980 + t2652 * t289 - t2654 * t578 + 0.2e1 * t2658 * t568 - t2679 * t568;
8606   t2685 = t982 * t1763;
8607   t2690 = t991 * t61;
8608   t2691 = t2690 * t663;
8609   t2692 = 0.18311447306006545054e-3 * t2691;
8610   t2693 = t613 * t992;
8611   t2694 = 0.4e1 * t2693;
8612   t2695 = t616 * t992;
8613   t2696 = 0.4e1 * t2695;
8614   t2697 = t1780 * t886;
8615   t2700 = t67 * t4;
8616   t2703 = t1785 * t905;
8617   t2706 = t70 * t4;
8618   t2710 = (0.4e1 / 0.9e1 * t2697 * t413 + 0.8e1 / 0.3e1 * t2700 * t377 + 0.4e1 / 0.9e1 * t2703 * t436 - 0.8e1 / 0.3e1 * t2706 * t377) * t133;
8619   t2711 = t2710 * t161;
8620   t2712 = t128 * t2711;
8621   t2713 = t991 * t656;
8622   t2714 = t128 * t2713;
8623   t2715 = 0.58482236226346462070e0 * t1838;
8624   t2716 = t69 * t886;
8625   t2719 = t672 * t4;
8626   t2722 = t72 * t905;
8627   t2725 = t674 * t4;
8628   t2728 = -t2716 * t413 / 0.9e1 + 0.2e1 / 0.3e1 * t2719 * t377 - t2722 * t436 / 0.9e1 - 0.2e1 / 0.3e1 * t2725 * t377;
8629   t2733 = t1863 * t1004;
8630   t2736 = t254 * t1003 * t677;
8631   t2739 = t102 * t2728;
8632   t2740 = t254 * t2739;
8633   t2744 = t262 * t1888 * t204;
8634   t2745 = t206 * t61;
8635   t2746 = t2745 * t208;
8636   t2747 = t103 * t1013;
8637   t2748 = t1892 * t707;
8638   t2749 = t2747 * t2748;
8639   t2750 = t2746 * t2749;
8640   t2753 = t1899 * t1016;
8641   t2755 = t2747 * t1907;
8642   t2756 = t1905 * t2755;
8643   t2759 = t991 * t149;
8644   t2760 = t2759 * t668;
8645   t2761 = 0.58482236226346462070e0 * t2760;
8646   t2762 = -t1779 - t2692 + t2694 - t2696 + t2712 + t2714 + t1819 + t1827 - t1836 - t2715 - t1850 + t1856 - t2761;
8647   t2764 = 0.19751673498613801407e-1 * t2710 * t159;
8648   t2765 = 0.4e1 * t2001;
8649   t2766 = 0.4e1 * t1997;
8650   t2767 = 0.18311447306006545054e-3 * t1921;
8651   t2768 = t2764 + t1914 - t1916 + t1991 - t1970 - t2000 - t2765 + t1935 + t1995 - t2766 - t2767 - t1927 + t1931;
8652   t2770 = (t2762 + t2768) * t187;
8653   t2776 = t190 * t62;
8654   t2777 = t724 * t999;
8655   t2778 = t2777 * t677;
8656   t2781 = t703 * t2728;
8657   t2784 = 0.3e1 * t1008 * t704 + 0.3e1 * t1010 * t701 + 0.3e1 * t190 * t2781 - t192 * t2770 - 0.12e2 * t2776 * t2778;
8658   t2785 = t2784 * t194;
8659   t2787 = t699 * t532 * t2785;
8660   t2790 = t2747 * t708;
8661   t2791 = t2746 * t2790;
8662   t2796 = t103 * t999;
8663   t2797 = t2796 * t708;
8664   t2798 = t1905 * t2797;
8665   t2801 = t2037 * t1020;
8666   t2803 = t999 * t677;
8667   t2805 = t2043 * t532 * t2803;
8668   t2809 = t726 * t532 * t2728;
8669   t2812 = t1862 + 0.7e1 / 0.144e3 * t1864 + 0.7e1 / 0.144e3 * t2733 + t1867 * t2736 / 0.16e2 - t688 * t2740 / 0.48e2 + t2744 * t2750 / 0.1536e4 + 0.7e1 / 0.4608e4 * t2753 + t1903 * t2756 / 0.768e3 - t697 * t2787 / 0.3072e4 - t1903 * t2791 / 0.3072e4 + 0.7e1 / 0.4608e4 * t1900 + t2035 + 0.7e1 / 0.1152e4 * t2038 + t1903 * t2798 / 0.768e3 + 0.7e1 / 0.1152e4 * t2801 + 0.5e1 / 0.768e3 * t722 * t2805 - t722 * t2809 / 0.768e3;
8670   t2813 = params->beta * t2812;
8671   t2815 = t1024 * t187;
8672   t2818 = t1030 * t743;
8673   t2819 = t2060 * t2818;
8674   t2823 = t188 * t62 * t1887;
8675   t2824 = t214 * t1013;
8676   t2833 = t188 * t62 * t694;
8677   t2836 = t694 * t1023;
8678   t2841 = -t1014 * t2069 * t262 + t188 * t197 * t2812 - t262 * t2785 * t738 - t262 * t2836 * t708 + 0.2e1 * t2748 * t2823 * t2824 - t2824 * t2833 * t708;
8679   t2842 = t737 * t2841;
8680   t2844 = -t1031 * t2055 + t221 * t2813 - t2815 * t744 + 0.2e1 * t2819 * t734 - t2842 * t734;
8681   t2848 = t169 * t175 * t2844 * t748 + 0.3e1 * t169 * t2728 * t671 - t1779 + t1819 + t1827 - t1836 - t1850 + t1856 - t2692 + t2694 - t2696 + t2712 + t2714 - t2715 - t2761 + t2764;
8682   t2849 = t169 * t175;
8683   t2850 = t1033 * t2093;
8684   t2853 = t1033 * t748;
8685   t2857 = t169 * t173;
8686   t2858 = t224 * t999;
8687   t2862 = t1769 * t999;
8688   t2865 = 0.3e1 * t1768 * t2853 * t677 - t2849 * t2850 * t746 + 0.6e1 * t2857 * t2858 * t677 + 0.3e1 * t1768 * t2862 + t1914 - t1916 - t1927 + t1931 + t1935 - t1970 + t1991 + t1995 - t2000 - t2765 - t2766 - t2767;
8689   t2866 = t2848 + t2865;
8690   t2867 = my_piecewise3(t296, -0.3109070e-1 * t2506 + 0.10000000000000000000e1 * t2508 * t507 + 0.10000000000000000000e1 * t1543 * t950 - 0.20000000000000000000e1 * t1548 * t2513 + 0.10000000000000000000e1 * t485 * t2552 + 0.32163958997385070134e2 * t1598 * t2556 + t169 * t2681 * t581 / 0.2e1 - t169 * t2685 * t580 / 0.2e1, t2866);
8691   t2874 = t297 * t4;
8692   t2877 = t599 * t1042;
8693   t2879 = t2114 * t905;
8694   t2880 = t2879 * t436;
8695   t2881 = t827 * t2880;
8696   t2882 = t106 * t2881;
8697   t2884 = t2119 * t905;
8698   t2885 = t2884 * t436;
8699   t2886 = t758 * t2885;
8700   t2887 = t106 * t2886;
8701   t2889 = t759 * t4;
8702   t2890 = t758 * t2889;
8703   t2891 = t2500 * t2890;
8704   t2893 = t2110 + 0.57077777777777777777e-2 * t2111 + 0.57077777777777777777e-2 * t2877 - 0.11415555555555555555e-1 * t2882 + 0.34246666666666666666e-1 * t2887 + 0.34246666666666666666e-1 * t2891;
8705   t2894 = t2893 * t318;
8706   t2896 = t1045 * t768;
8707   t2901 = t1059 * t786;
8708   t2904 = t2142 * t1049;
8709   t2912 = t2146 + t2111 / 0.9e1 + t2877 / 0.9e1 - 0.2e1 / 0.9e1 * t2882 + 0.2e1 / 0.3e1 * t2887 + 0.2e1 / 0.3e1 * t2891;
8710   t2920 = t2159 * t1049;
8711   t2926 = t606 * t1055;
8712   t2928 = t2169 * t2880;
8713   t2931 = t323 * t2885;
8714   t2934 = t323 * t2889;
8715   t2937 = -0.17648625000000000000e1 * t2904 * t772 + 0.35297250000000000000e1 * t770 * t2912 + t2154 + 0.17215833333333333333e0 * t2111 + 0.17215833333333333333e0 * t2877 - 0.34431666666666666667e0 * t2882 + 0.10329500000000000000e1 * t2887 + 0.10329500000000000000e1 * t2891 + 0.31558125000000000000e0 * t2920 * t772 + 0.63116250000000000000e0 * t777 * t2912 + t2166 + 0.69463333333333333333e-1 * t2167 + 0.69463333333333333333e-1 * t2926 - 0.34731666666666666667e-1 * t119 * t2928 + 0.20839000000000000000e0 * t119 * t2931 + 0.20839000000000000000e0 * t2547 * t2934;
8716   t2938 = t2937 * t787;
8717   t2941 = t1058 * t2187;
8718   t2942 = t2941 * t786;
8719   t2945 = t1062 * t791;
8720   t2947 = t894 * t516;
8721   t2951 = t242 * t1065;
8722   t2952 = t794 * t2951;
8723   t2954 = t518 * t2198;
8724   t2955 = t2954 * t2880;
8725   t2958 = t518 * t796;
8726   t2959 = t2958 * t2885;
8727   t2962 = t797 * t4;
8728   t2963 = t1576 * t2962;
8729   t2966 = t340 * t1074;
8730   t2967 = t2219 * t813;
8731   t2968 = t2966 * t2967;
8732   t2969 = t2578 * t2968;
8733   t2972 = t1616 * t1076;
8734   t2973 = t807 * t2972;
8735   t2975 = t1075 * t760;
8736   t2976 = t2233 * t2975;
8737   t2985 = t2136 * t1058;
8738   t2988 = t2938 * t187;
8739   t2991 = t2185 * t1058;
8740   t2992 = t2187 * t187;
8741   t2993 = t2992 * t786;
8742   t2996 = 0.61370581910589784405e0 * t2894 * t187 - 0.19739208802178717239e2 * t2896 * t810 - 0.19739208802178717239e2 * t2131 * t1071 + 0.39478417604357434478e2 * t2985 * t810 - 0.19739208802178717239e2 * t769 * t2988 - 0.63489110255409872532e3 * t2991 * t2993;
8743   t2997 = t2996 * t329;
8744   t2998 = t758 * t2997;
8745   t2999 = t533 * t2998;
8746   t3002 = -t2945 / 0.108e3 - t2947 * t799 / 0.108e3 - t2193 + t2195 / 0.864e3 + t2952 / 0.864e3 + t794 * t2955 / 0.216e3 - t794 * t2959 / 0.144e3 - t794 * t2963 / 0.144e3 + t2217 * t2969 / 0.768e3 - t2973 / 0.2304e4 - t2232 * t2976 / 0.2304e4 - t807 * t2999 / 0.1536e4;
8747   t3003 = t2966 * t814;
8748   t3004 = t2578 * t3003;
8749   t3007 = t1082 * t61;
8750   t3009 = t262 * t804 * t3007;
8751   t3012 = t1084 * t820;
8752   t3015 = t262 * t333 * t3007;
8753   t3020 = t1041 * t814;
8754   t3021 = t2233 * t3020;
8755   t3024 = t1616 * t1087;
8756   t3025 = t824 * t3024;
8757   t3027 = t2270 * t2114;
8758   t3028 = t905 * t436;
8759   t3029 = t3027 * t3028;
8760   t3030 = t2578 * t3029;
8761   t3033 = t826 * t2119;
8762   t3034 = t3033 * t3028;
8763   t3035 = t2578 * t3034;
8764   t3038 = t827 * t2889;
8765   t3039 = t2645 * t3038;
8766   t3042 = -t807 * t3004 / 0.1536e4 + t3009 * t816 / 0.288e3 - t3012 / 0.432e3 - t3015 * t829 / 0.432e3 - t2226 / 0.2304e4 - t2265 + t2267 / 0.3456e4 - t2232 * t3021 / 0.2304e4 + t3025 / 0.3456e4 + 0.5e1 / 0.6912e4 * t824 * t3030 - t824 * t3035 / 0.1152e4 - t824 * t3039 / 0.1152e4;
8767   t3043 = t3002 + t3042;
8768   t3044 = params->beta * t3043;
8769   t3046 = t1092 * t187;
8770   t3049 = t1098 * t844;
8771   t3050 = t2292 * t3049;
8772   t3054 = t188 * t62 * t2214;
8773   t3055 = t345 * t1074;
8774   t3065 = t803 * t1091;
8775   t3070 = -t1075 * t2301 * t262 + t188 * t3043 * t347 - t2229 * t3055 * t814 - t262 * t2997 * t839 - t262 * t3065 * t814 + 0.2e1 * t2967 * t3054 * t3055;
8776   t3071 = t838 * t3070;
8777   t3073 = -t1099 * t2287 + t3044 * t352 - t3046 * t845 + 0.2e1 * t3050 * t835 - t3071 * t835;
8778   t3077 = t1101 * t2320;
8779   t3082 = my_piecewise3(t359, -0.3109070e-1 * t2894 + 0.10000000000000000000e1 * t2896 * t788 + 0.10000000000000000000e1 * t2131 * t1059 - 0.20000000000000000000e1 * t2136 * t2901 + 0.10000000000000000000e1 * t769 * t2938 + 0.32163958997385070134e2 * t2185 * t2942 + t169 * t3073 * t848 / 0.2e1 - t169 * t3077 * t847 / 0.2e1, t2866);
8780   t3089 = t360 * t4;
8781   t3091 = t2867 * t34 / 0.2e1 + t1038 * t413 / 0.2e1 + t752 * t886 / 0.2e1 + t2874 * t377 + t3082 * t46 / 0.2e1 + t1106 * t436 / 0.2e1 + t853 * t905 / 0.2e1 - t3089 * t377;
8782   t3100 = t1113 * t443;
8783   t3103 = t96 * t912;
8784   t3104 = t3103 * t464;
8785   t3107 = t97 * t2436;
8786   t3112 = t1116 * t443;
8787   t3115 = t464 * t928;
8788   t3118 = t96 * t2478;
8789   t3121 = -0.4e1 * t1113 * t1392 + 0.2e1 * t1116 * t397 + 0.20e2 * t1397 * t3100 + t2377 * t97 - 0.4e1 * t2378 * t860 - 0.8e1 * t3104 * t400 - 0.4e1 * t3107 * t400 - 0.8e1 * t3112 * t400 + 0.2e1 * t3115 * t81 + 0.2e1 * t3118 * t81 + 0.2e1 * t863 * t881;
8790   t3126 = t1037 * t866 - t1110 * t447 + t1119 * t751 - 0.2e1 * t1476 * t929 + t227 * t3121 - t2440 * t363 - 0.2e1 * t2442 * t465 - 0.2e1 * t2448 * t929 - 0.2e1 * t2451 * t449 - 0.2e1 * t2479 * t449 - 0.2e1 * t2483 * t449 + t2866 * t366 - t3091 * t98 - t857 * t916;
8791   t3127 = t7 * t3126;
8792   t3130 = t368 * t1130;
8793   t3132 = params->d * t3126;
8794   t3138 = t1116 * t464;
8795   t3141 = t97 * t2478;
8796   t3144 = 0.3e1 * t1125 * t875 + 0.3e1 * t1127 * t873 + t3132 * t370 + 0.6e1 * t3138 * t369 + 0.3e1 * t3141 * t369;
8797   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8798     v2rho2[1] = t1123 * t878 + t1130 * t870 + t3127 * t372 + t3144 * t872 + t1364 + t1366 + t2375 + t3130;
8799 
8800   t3148 = t1369 + t1371 + t1373 + t1376 + t1378 + t1380 + t1383 + t1385 + t1389;
8801   t3149 = t3148 * t80;
8802   t3152 = t912 * t912;
8803   t3155 = -t1401 - t1403 - t1405;
8804   t3156 = t3155 * t59;
8805   t3159 = t883 * t901;
8806   t3164 = t887 * t887;
8807   t3165 = t1422 * t3164;
8808   t3168 = t9 + t1402;
8809   t3169 = t37 * t3168;
8810   t3173 = 0.1e1 / t42 / t334;
8811   t3174 = sigma[2] * t3173;
8812   t3179 = t897 * t897;
8813   t3180 = t1431 * t3179;
8814   t3183 = -t3168;
8815   t3184 = t49 * t3183;
8816   t3187 = 0.10e2 / 0.9e1 * t31 * t3165 + 0.5e1 / 0.3e1 * t31 * t3169 + 0.88e2 / 0.9e1 * t3174 * t50 - 0.80e2 / 0.9e1 * t894 * t898 + 0.10e2 / 0.9e1 * t45 * t3180 + 0.5e1 / 0.3e1 * t45 * t3184 - t1441;
8817   t3188 = t25 * t3187;
8818   t3193 = t886 * t886;
8819   t3194 = t1450 * t3193;
8820   t3196 = 0.2e1 * t3168;
8821   t3197 = t431 * t3196;
8822   t3199 = t905 * t905;
8823   t3200 = t1459 * t3199;
8824   t3202 = -t3196;
8825   t3203 = t435 * t3202;
8826   t3205 = 0.28e2 / 0.9e1 * t3194 - 0.4e1 / 0.3e1 * t3197 + 0.28e2 / 0.9e1 * t3200 - 0.4e1 / 0.3e1 * t3203;
8827   t3206 = t66 * t3205;
8828   t3209 = t3156 * t74 / 0.24e2 + t3159 * t74 / 0.12e2 + t884 * t909 / 0.12e2 + t3188 * t74 / 0.24e2 + t902 * t909 / 0.12e2 + t60 * t3206 / 0.24e2;
8829   t3212 = 0.20e2 * t1397 * t3152 - 0.8e1 * t2378 * t912 - 0.4e1 * t3209 * t400 + t3149;
8830   t3213 = t3212 * t97;
8831   t3219 = t928 * t928;
8832   t3220 = t82 * t3219;
8833   t3223 = t1110 * t928;
8834   t3227 = t923 * t923;
8835   t3228 = t1493 * t3227;
8836   t3235 = tau[1] * t893;
8837   t3244 = 0.10e2 / 0.9e1 * t85 * t3165 + 0.5e1 / 0.3e1 * t85 * t3169 + 0.40e2 / 0.9e1 * t3235 * t50 - 0.50e2 / 0.9e1 * t919 * t898 + 0.10e2 / 0.9e1 * t89 * t3180 + 0.5e1 / 0.3e1 * t89 * t3184;
8838   t3245 = t453 * t3244;
8839   t3249 = my_piecewise3(t95, 0, t1489 + 0.2e1 / 0.3e1 * t2455 + t58 * t3228 / 0.4e1 - t58 * t3245 / 0.8e1);
8840   t3250 = t363 * t3249;
8841   t3254 = t1526 * t3193;
8842   t3255 = t560 * t3254;
8843   t3256 = t106 * t3255;
8844   t3258 = t1531 * t3193;
8845   t3259 = t474 * t3258;
8846   t3260 = t106 * t3259;
8847   t3262 = t475 * t3196;
8848   t3263 = t474 * t3262;
8849   t3264 = t106 * t3263;
8850   t3266 = t1522 + 0.11415555555555555555e-1 * t2487 - 0.11415555555555555555e-1 * t3256 + 0.34246666666666666666e-1 * t3260 - 0.17123333333333333333e-1 * t3264;
8851   t3267 = t3266 * t251;
8852   t3271 = t949 * t949;
8853   t3272 = t3271 * t506;
8854   t3275 = t940 * t940;
8855   t3282 = t1558 + 0.2e1 / 0.9e1 * t2487 - 0.2e1 / 0.9e1 * t3256 + 0.2e1 / 0.3e1 * t3260 - t3264 / 0.3e1;
8856   t3294 = t1582 * t3254;
8857   t3297 = t258 * t3258;
8858   t3300 = t258 * t3262;
8859   t3303 = -0.17648625000000000000e1 * t1554 * t3275 + 0.35297250000000000000e1 * t486 * t3282 + t1566 + 0.34431666666666666666e0 * t2487 - 0.34431666666666666667e0 * t3256 + 0.10329500000000000000e1 * t3260 - 0.51647500000000000000e0 * t3264 + 0.31558125000000000000e0 * t1571 * t3275 + 0.63116250000000000000e0 * t493 * t3282 + t1579 + 0.13892666666666666667e0 * t2538 - 0.34731666666666666667e-1 * t119 * t3294 + 0.20839000000000000000e0 * t119 * t3297 - 0.10419500000000000000e0 * t119 * t3300;
8860   t3304 = t3303 * t506;
8861   t3307 = t3271 * t1600;
8862   t3311 = t1643 * t3193;
8863   t3312 = t518 * t3311;
8864   t3315 = t1649 * t3193;
8865   t3316 = t518 * t3315;
8866   t3319 = t521 * t3196;
8867   t3320 = t518 * t3319;
8868   t3323 = t962 * t962;
8869   t3324 = t3323 * t1672;
8870   t3325 = t474 * t3324;
8871   t3326 = t533 * t3325;
8872   t3330 = t963 * t932;
8873   t3331 = t1684 * t3330;
8874   t3338 = t3272 * t187;
8875   t3341 = t3304 * t187;
8876   t3344 = t3307 * t187;
8877   t3347 = 0.61370581910589784405e0 * t3267 * t187 - 0.39478417604357434478e2 * t2508 * t959 + 0.39478417604357434478e2 * t1548 * t3338 - 0.19739208802178717239e2 * t485 * t3341 - 0.63489110255409872532e3 * t1598 * t3344;
8878   t3348 = t3347 * t265;
8879   t3349 = t474 * t3348;
8880   t3350 = t533 * t3349;
8881   t3353 = t3323 * t265;
8882   t3354 = t474 * t3353;
8883   t3355 = t533 * t3354;
8884   t3359 = t1698 * t3254;
8885   t3360 = t533 * t3359;
8886   t3363 = t560 * t3258;
8887   t3364 = t533 * t3363;
8888   t3367 = t560 * t3262;
8889   t3368 = t533 * t3367;
8890   t3371 = -t1611 + t2564 / 0.432e3 + t517 * t3312 / 0.216e3 - t517 * t3316 / 0.144e3 + t517 * t3320 / 0.288e3 + t1671 * t3326 / 0.768e3 - t2588 / 0.1152e4 - t1682 * t3331 / 0.1152e4 - t531 * t3350 / 0.1536e4 - t531 * t3355 / 0.1536e4 - t1657 + t2632 / 0.1728e4 + 0.5e1 / 0.6912e4 * t557 * t3360 - t557 * t3364 / 0.1152e4 + t557 * t3368 / 0.2304e4;
8891   t3372 = params->beta * t3371;
8892   t3376 = t979 * t979;
8893   t3377 = t1735 * t3376;
8894   t3392 = 0.2e1 * t1740 * t262 * t3324 + t188 * t284 * t3371 - 0.2e1 * t262 * t2673 * t963 - t262 * t3348 * t572 - t262 * t3353 * t572;
8895   t3393 = t571 * t3392;
8896   t3395 = -0.2e1 * t2654 * t980 + t289 * t3372 + 0.2e1 * t3377 * t568 - t3393 * t568;
8897   t3399 = t982 * t982;
8898   t3413 = (0.4e1 / 0.9e1 * t1780 * t3193 + 0.4e1 / 0.3e1 * t67 * t3196 + 0.4e1 / 0.9e1 * t1785 * t3199 + 0.4e1 / 0.3e1 * t70 * t3202) * t133;
8899   t3415 = 0.19751673498613801407e-1 * t3413 * t159;
8900   t3416 = 0.36622894612013090108e-3 * t2691;
8901   t3417 = 0.8e1 * t2693;
8902   t3418 = 0.8e1 * t2695;
8903   t3419 = 0.2e1 * t2714;
8904   t3420 = t2853 * t999;
8905   t3423 = 0.11696447245269292414e1 * t2760;
8906   t3424 = 0.6e1 * t1768 * t3420 - t1779 + t1819 + t1827 - t1836 - t1850 + t1856 + t1914 + t3415 - t3416 - t3417 - t3418 + t3419 - t3423;
8907   t3425 = t3413 * t161;
8908   t3426 = t128 * t3425;
8909   t3427 = t999 * t999;
8910   t3431 = t1033 * t1033;
8911   t3436 = t102 * t3427;
8912   t3437 = t254 * t3436;
8913   t3448 = -t69 * t3193 / 0.9e1 + t672 * t3196 / 0.3e1 - t72 * t3199 / 0.9e1 + t674 * t3202 / 0.3e1;
8914   t3449 = t102 * t3448;
8915   t3450 = t254 * t3449;
8916   t3453 = t1013 * t1013;
8917   t3454 = t3453 * t1892;
8918   t3456 = t699 * t532 * t3454;
8919   t3460 = t194 * t999;
8920   t3461 = t2747 * t3460;
8921   t3462 = t1905 * t3461;
8922   t3465 = t1827 - t1836 - t1850 + t1914 + t1916 + t1919 + t3426 + t1819 + t1856 - t1927 + t1931;
8923   t3466 = -t3423 + t1935 + t3415 + t1991 + t3419 - t3417 - t3418 - t2000 - t2004 - t1779 - t1970 - t3416;
8924   t3468 = (t3465 + t3466) * t187;
8925   t3472 = t2011 * t3427;
8926   t3475 = t703 * t3448;
8927   t3478 = 0.6e1 * t1008 * t1010 - 0.12e2 * t190 * t3472 + 0.3e1 * t190 * t3475 - t192 * t3468;
8928   t3479 = t3478 * t194;
8929   t3481 = t699 * t532 * t3479;
8930   t3484 = t3453 * t194;
8931   t3486 = t699 * t532 * t3484;
8932   t3491 = t2043 * t532 * t3427;
8933   t3495 = t726 * t532 * t3448;
8934   t3498 = t1862 + 0.7e1 / 0.72e2 * t2733 + t1867 * t3437 / 0.16e2 - t688 * t3450 / 0.48e2 + t1890 * t3456 / 0.1536e4 + 0.7e1 / 0.2304e4 * t2753 + t1903 * t3462 / 0.384e3 - t697 * t3481 / 0.3072e4 - t697 * t3486 / 0.3072e4 + t2035 + 0.7e1 / 0.576e3 * t2801 + 0.5e1 / 0.768e3 * t722 * t3491 - t722 * t3495 / 0.768e3;
8935   t3499 = params->beta * t3498;
8936   t3503 = t1030 * t1030;
8937   t3504 = t2060 * t3503;
8938   t3519 = -0.2e1 * t1014 * t262 * t2836 + t188 * t197 * t3498 + 0.2e1 * t2065 * t262 * t3454 - t262 * t3479 * t738 - t262 * t3484 * t738;
8939   t3520 = t737 * t3519;
8940   t3522 = -0.2e1 * t1031 * t2815 + t221 * t3499 + 0.2e1 * t3504 * t734 - t3520 * t734;
8941   t3529 = -t169 * t175 * t2093 * t3431 + t169 * t175 * t3522 * t748 + 0.6e1 * t169 * t2096 * t3427 + 0.3e1 * t169 * t3448 * t671 + t1916 + t1919 - t1927 + t1931 + t1935 - t1970 + t1991 - t2000 - t2004 + t3426;
8942   t3530 = t3424 + t3529;
8943   t3531 = my_piecewise3(t296, -0.3109070e-1 * t3267 + 0.20000000000000000000e1 * t2508 * t950 - 0.20000000000000000000e1 * t1548 * t3272 + 0.10000000000000000000e1 * t485 * t3304 + 0.32163958997385070134e2 * t1598 * t3307 + t169 * t3395 * t581 / 0.2e1 - t169 * t3399 * t1763 / 0.2e1, t3530);
8944   t3538 = t2114 * t3199;
8945   t3539 = t827 * t3538;
8946   t3540 = t106 * t3539;
8947   t3542 = t2119 * t3199;
8948   t3543 = t758 * t3542;
8949   t3544 = t106 * t3543;
8950   t3546 = t759 * t3202;
8951   t3547 = t758 * t3546;
8952   t3548 = t106 * t3547;
8953   t3550 = t2110 + 0.11415555555555555555e-1 * t2877 - 0.11415555555555555555e-1 * t3540 + 0.34246666666666666666e-1 * t3544 - 0.17123333333333333333e-1 * t3548;
8954   t3551 = t3550 * t318;
8955   t3555 = t1058 * t1058;
8956   t3556 = t3555 * t787;
8957   t3559 = t1049 * t1049;
8958   t3566 = t2146 + 0.2e1 / 0.9e1 * t2877 - 0.2e1 / 0.9e1 * t3540 + 0.2e1 / 0.3e1 * t3544 - t3548 / 0.3e1;
8959   t3578 = t2169 * t3538;
8960   t3581 = t323 * t3542;
8961   t3584 = t323 * t3546;
8962   t3587 = -0.17648625000000000000e1 * t2142 * t3559 + 0.35297250000000000000e1 * t770 * t3566 + t2154 + 0.34431666666666666666e0 * t2877 - 0.34431666666666666667e0 * t3540 + 0.10329500000000000000e1 * t3544 - 0.51647500000000000000e0 * t3548 + 0.31558125000000000000e0 * t2159 * t3559 + 0.63116250000000000000e0 * t777 * t3566 + t2166 + 0.13892666666666666667e0 * t2926 - 0.34731666666666666667e-1 * t119 * t3578 + 0.20839000000000000000e0 * t119 * t3581 - 0.10419500000000000000e0 * t119 * t3584;
8963   t3588 = t3587 * t787;
8964   t3591 = t3555 * t2187;
8965   t3597 = 0.1e1 / t41 / t334 / t891;
8966   t3599 = t262 * t333 * t3597;
8967   t3603 = t827 * t3542;
8968   t3604 = t533 * t3603;
8969   t3607 = t1074 * t1074;
8970   t3608 = t3607 * t329;
8971   t3609 = t758 * t3608;
8972   t3610 = t533 * t3609;
8973   t3615 = t3607 * t2219;
8974   t3616 = t758 * t3615;
8975   t3617 = t533 * t3616;
8976   t3620 = t1075 * t1041;
8977   t3621 = t2233 * t3620;
8978   t3624 = t3174 * t254;
8979   t3627 = t2952 / 0.432e3 + 0.19e2 / 0.864e3 * t3599 * t342 - t3012 / 0.216e3 - t824 * t3604 / 0.1152e4 - t807 * t3610 / 0.1536e4 + t3009 * t1077 / 0.144e3 - t2265 + t2217 * t3617 / 0.768e3 - t2232 * t3621 / 0.1152e4 + 0.11e2 / 0.108e3 * t3624 * t324 - t2193;
8980   t3630 = t2204 * t3199;
8981   t3631 = t518 * t3630;
8982   t3634 = t797 * t3202;
8983   t3635 = t518 * t3634;
8984   t3638 = t2199 * t3199;
8985   t3639 = t518 * t3638;
8986   t3646 = t827 * t3546;
8987   t3647 = t533 * t3646;
8988   t3650 = t2271 * t3538;
8989   t3651 = t533 * t3650;
8990   t3658 = t3556 * t187;
8991   t3661 = t3588 * t187;
8992   t3664 = t3591 * t187;
8993   t3667 = 0.61370581910589784405e0 * t3551 * t187 - 0.39478417604357434478e2 * t2896 * t1071 + 0.39478417604357434478e2 * t2136 * t3658 - 0.19739208802178717239e2 * t769 * t3661 - 0.63489110255409872532e3 * t2185 * t3664;
8994   t3668 = t3667 * t329;
8995   t3669 = t758 * t3668;
8996   t3670 = t533 * t3669;
8997   t3674 = -t2973 / 0.1152e4 + t3025 / 0.1728e4 - t794 * t3631 / 0.144e3 + t794 * t3635 / 0.288e3 + t794 * t3639 / 0.216e3 - t2947 * t1066 / 0.54e2 - t3015 * t1088 / 0.216e3 + t824 * t3647 / 0.2304e4 + 0.5e1 / 0.6912e4 * t824 * t3651 - t807 * t3670 / 0.1536e4 - t2945 / 0.54e2;
8998   t3675 = t3627 + t3674;
8999   t3676 = params->beta * t3675;
9000   t3680 = t1098 * t1098;
9001   t3681 = t2292 * t3680;
9002   t3696 = -0.2e1 * t1075 * t262 * t3065 + t188 * t347 * t3675 + 0.2e1 * t2297 * t262 * t3615 - t262 * t3608 * t839 - t262 * t3668 * t839;
9003   t3697 = t838 * t3696;
9004   t3699 = -0.2e1 * t1099 * t3046 + t352 * t3676 + 0.2e1 * t3681 * t835 - t3697 * t835;
9005   t3703 = t1101 * t1101;
9006   t3708 = my_piecewise3(t359, -0.3109070e-1 * t3551 + 0.20000000000000000000e1 * t2896 * t1059 - 0.20000000000000000000e1 * t2136 * t3556 + 0.10000000000000000000e1 * t769 * t3588 + 0.32163958997385070134e2 * t2185 * t3591 + t169 * t3699 * t848 / 0.2e1 - t169 * t3703 * t2320 / 0.2e1, t3530);
9007   t3714 = t3531 * t34 / 0.2e1 + t1038 * t886 + t297 * t3196 / 0.2e1 + t3708 * t46 / 0.2e1 + t1106 * t905 + t360 * t3202 / 0.2e1;
9008   t3721 = t97 * t3152;
9009   t3724 = t3103 * t928;
9010   t3727 = t97 * t3209;
9011   t3732 = t96 * t3249;
9012   t3735 = -0.8e1 * t1113 * t2378 + 0.4e1 * t1116 * t881 + 0.20e2 * t1397 * t3721 + t3149 * t97 + 0.2e1 * t3219 * t81 - 0.16e2 * t3724 * t400 - 0.4e1 * t3727 * t400 + 0.2e1 * t3732 * t81;
9013   t3740 = 0.2e1 * t1037 * t1119 - 0.2e1 * t1110 * t916 + t227 * t3735 - 0.4e1 * t2442 * t929 - t3213 * t363 - 0.2e1 * t3220 * t363 - 0.4e1 * t3223 * t449 - 0.2e1 * t3250 * t449 + t3530 * t366 - t3714 * t98;
9014   t3741 = t7 * t3740;
9015   t3745 = params->d * t3740;
9016   t3749 = t96 * t3219;
9017   t3752 = t97 * t3249;
9018   t3755 = 0.6e1 * t1125 * t1127 + 0.6e1 * t369 * t3749 + 0.3e1 * t369 * t3752 + t370 * t3745;
9019   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9020     v2rho2[2] = 0.2e1 * t1123 * t1130 + t372 * t3741 + t3755 * t872 + 0.2e1 * t2375 + 0.2e1 * t3130;
9021 
9022   t3757 = t1216 * t372;
9023   t3758 = t1392 * t1134;
9024   t3761 = t1134 * t61;
9025   t3762 = t1397 * t3761;
9026   t3763 = t97 * t363;
9027   t3764 = t3763 * t443;
9028   t3765 = t1204 * t3764;
9029   t3768 = t404 * t1133;
9030   t3769 = t400 * t3768;
9031   t3772 = t409 * t38;
9032   t3774 = t30 * t37;
9033   t3775 = t3774 * t414;
9034   t3777 = 0.8e1 / 0.3e1 * t423;
9035   t3778 = -0.8e1 / 0.3e1 * t3772 + 0.5e1 / 0.3e1 * t3775 + t3777;
9036   t3779 = t25 * t3778;
9037   t3780 = t400 * t3779;
9038   t3783 = t439 * t97;
9039   t3784 = t3783 * t363;
9040   t3785 = t66 * t3784;
9041   t3788 = t400 * t3761;
9042   t3789 = t96 * t363;
9043   t3790 = t3789 * t464;
9044   t3791 = t1204 * t3790;
9045   t3795 = t66 * t1136 * t857;
9046   t3799 = 0.2e1 * t1476 * t1144;
9047   t3801 = 0.2e1 * t2448 * t1144;
9048   t3802 = t857 * t1143;
9049   t3804 = 0.2e1 * t449 * t3802;
9050   t3805 = t423 * t92;
9051   t3806 = t3805 / 0.3e1;
9052   t3807 = t57 * t453;
9053   t3808 = t3807 * t459;
9054   t3811 = my_piecewise3(t95, 0, -t3806 - t3808 / 0.8e1);
9055   t3812 = t363 * t3811;
9056   t3814 = 0.2e1 * t449 * t3812;
9057   t3816 = t1199 * t464;
9058   t3819 = t409 * t114;
9059   t3820 = t3819 * t182;
9060   t3824 = t1148 * t513 / 0.288e3;
9061   t3825 = t1147 * t183;
9062   t3828 = t527 * sigma[0];
9063   t3830 = t262 * t3828 * t529;
9064   t3834 = t262 * t1151 * t547;
9065   t3838 = t1153 * t553 / 0.1152e4;
9066   t3840 = t262 * t1151 * t529;
9067   t3843 = -t3820 * t259 / 0.36e2 + t3824 + t3825 * t523 / 0.288e3 - t3830 * t542 / 0.768e3 - t3834 * t279 / 0.144e3 + t3838 + t3840 * t562 / 0.1152e4;
9068   t3844 = params->beta * t3843;
9069   t3846 = t1157 * t187;
9070   t3848 = t1159 * t565;
9071   t3849 = t3848 * t1162;
9072   t3851 = t1162 * t1164;
9073   t3852 = t1160 * t3851;
9074   t3853 = t1734 * t267;
9075   t3854 = t1156 * t577;
9076   t3855 = t3853 * t3854;
9077   t3858 = t570 * t527;
9078   t3861 = t3858 * t1156 * t539 * t265;
9079   t3864 = t1165 * t267 * t3843;
9080   t3866 = -t1163 * t3864 - t1167 * t3849 + t289 * t3844 - t3846 * t578 + 0.2e1 * t3852 * t3855 + t3852 * t3861;
9081   t3869 = t1169 * t1763;
9082   t3874 = t1190 * t748;
9083   t3875 = t3874 * t677;
9084   t3878 = t682 * t130;
9085   t3880 = t3878 * t180 * t516;
9086   t3881 = 0.7e1 / 0.288e3 * t3880;
9087   t3882 = t1173 * t191;
9088   t3883 = t3882 * t690;
9089   t3885 = t694 * t53;
9090   t3887 = t262 * t3885 * t202;
9091   t3888 = t3887 * t710;
9092   t3890 = t1178 * t717;
9093   t3891 = 0.7e1 / 0.2304e4 * t3890;
9094   t3892 = t196 * t53;
9095   t3894 = t262 * t3892 * t202;
9096   t3895 = t3894 * t728;
9097   t3897 = -t3881 - t3883 / 0.48e2 - t3888 / 0.1536e4 - t3891 - t3895 / 0.384e3;
9098   t3898 = params->beta * t3897;
9099   t3900 = t1182 * t187;
9100   t3902 = t1159 * t731;
9101   t3903 = t3902 * t1162;
9102   t3905 = t1184 * t3851;
9103   t3906 = t2059 * t196;
9104   t3907 = t1181 * t743;
9105   t3908 = t3906 * t3907;
9106   t3911 = t736 * t694;
9107   t3913 = t1181 * t707 * t194;
9108   t3914 = t3911 * t3913;
9109   t3917 = t1186 * t196 * t3897;
9110   t3919 = -t1185 * t3917 - t1188 * t3903 + t221 * t3898 - t3900 * t744 + 0.2e1 * t3905 * t3908 + t3905 * t3914;
9111   t3920 = t175 * t3919;
9112   t3921 = t3920 * t748;
9113   t3922 = t169 * t3921;
9114   t3923 = t1190 * t2093;
9115   t3924 = t3923 * t746;
9116   t3926 = 0.3e1 * t1768 * t3875 - t2849 * t3924 + t3922;
9117   t3927 = my_piecewise3(t296, t169 * t3866 * t581 / 0.2e1 - t169 * t3869 * t580 / 0.2e1, t3926);
9118   t3930 = my_piecewise3(t359, 0, t3926);
9119   t3934 = t1194 * t413 / 0.2e1 + t1196 * t436 / 0.2e1 + t3927 * t34 / 0.2e1 + t3930 * t46 / 0.2e1;
9120   t3936 = t1392 * t1201;
9121   t3939 = t1397 * t1201;
9122   t3940 = t1204 * t443;
9123   t3941 = t1203 * t3940;
9124   t3944 = t96 * t25;
9125   t3945 = t400 * t3944;
9126   t3946 = t1204 * t464;
9127   t3947 = t1203 * t3946;
9128   t3950 = t97 * t404;
9129   t3951 = t400 * t3950;
9130   t3954 = t3778 * t61;
9131   t3955 = t3954 * t1204;
9132   t3958 = t65 * t439;
9133   t3959 = t1203 * t3958;
9134   t3963 = 0.2e1 * t397 * t1208;
9135   t3964 = t1208 * t443;
9136   t3966 = 0.8e1 * t400 * t3964;
9137   t3967 = t464 * t1143;
9138   t3969 = 0.2e1 * t81 * t3967;
9139   t3970 = t96 * t3811;
9140   t3972 = 0.2e1 * t81 * t3970;
9141   t3973 = -t3936 * t1205 / 0.6e1 + 0.5e1 / 0.6e1 * t3939 * t3941 - t3945 * t3947 / 0.3e1 - t3951 * t1205 / 0.6e1 - t1202 * t3955 / 0.6e1 - t1202 * t3959 / 0.6e1 + t3963 - t3966 + t3969 + t3972;
9142   t3976 = t866 * t167;
9143   t3977 = t3976 * t168;
9144   t3978 = t3977 * t1192;
9145   t3979 = t174 * t1190;
9146   t3980 = t748 * t677;
9147   t3981 = t3979 * t3980;
9148   t3983 = 0.3e1 * t1214 * t3981;
9149   t3984 = t1214 * t3921;
9150   t3985 = t2093 * t746;
9151   t3986 = t1191 * t3985;
9152   t3987 = t1214 * t3986;
9153   t3988 = t3758 * t1138 / 0.6e1 - 0.5e1 / 0.6e1 * t3762 * t3765 + t3769 * t1138 / 0.6e1 + t3780 * t1138 / 0.6e1 + t1135 * t3785 / 0.6e1 + t3788 * t3791 / 0.3e1 + t1135 * t3795 / 0.6e1 - t3799 - t3801 - t3804 - t3814 - t447 * t1199 - 0.2e1 * t449 * t3816 - t98 * t3934 + t3973 * t227 + t1211 * t751 + t3978 + t3983 + t3984 - t3987;
9154   t3989 = t7 * t3988;
9155   t3992 = t368 * t1224;
9156   t3994 = params->d * t3988;
9157   t3999 = 0.3e1 * t873 * t1221;
9158   t4000 = t1208 * t464;
9159   t4002 = 0.6e1 * t369 * t4000;
9160   t4003 = t97 * t3811;
9161   t4005 = 0.3e1 * t369 * t4003;
9162   t4006 = 0.3e1 * t1219 * t875 + t370 * t3994 + t3999 + t4002 + t4005;
9163   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9164     v2rhosigma[0] = t1217 * t878 + t1224 * t870 + t372 * t3989 + t4006 * t872 + t3757 + t3992;
9165 
9166   t4008 = t1264 * t372;
9167   t4009 = t1392 * t1226;
9168   t4012 = t1226 * t61;
9169   t4013 = t1397 * t4012;
9170   t4016 = t404 * t57;
9171   t4017 = t400 * t4016;
9172   t4020 = t25 * t423;
9173   t4021 = t400 * t4020;
9174   t4023 = 0.8e1 / 0.9e1 * t4021 * t1138;
9175   t4026 = t400 * t4012;
9176   t4035 = t857 * t1231;
9177   t4038 = 0.2e1 / 0.3e1 * t3805;
9178   t4041 = my_piecewise3(t95, 0, -t4038 - t3808 / 0.4e1);
9179   t4042 = t363 * t4041;
9180   t4046 = t1252 * t464;
9181   t4049 = t1243 * t748;
9182   t4050 = t4049 * t677;
9183   t4053 = 0.7e1 / 0.144e3 * t3880;
9184   t4056 = 0.7e1 / 0.1152e4 * t3890;
9185   t4058 = -t4053 - t3883 / 0.24e2 - t3888 / 0.768e3 - t4056 - t3895 / 0.192e3;
9186   t4059 = params->beta * t4058;
9187   t4061 = t1238 * t187;
9188   t4064 = t1237 * t743;
9189   t4065 = t3906 * t4064;
9190   t4070 = t3911 * t1237 * t707 * t194;
9191   t4073 = t1186 * t196 * t4058;
9192   t4075 = -t1185 * t4073 - t1241 * t3903 + t221 * t4059 + 0.2e1 * t3905 * t4065 + t3905 * t4070 - t4061 * t744;
9193   t4076 = t175 * t4075;
9194   t4077 = t4076 * t748;
9195   t4078 = t169 * t4077;
9196   t4079 = t1243 * t2093;
9197   t4080 = t4079 * t746;
9198   t4082 = 0.3e1 * t1768 * t4050 - t2849 * t4080 + t4078;
9199   t4083 = my_piecewise3(t296, 0, t4082);
9200   t4086 = my_piecewise3(t359, 0, t4082);
9201   t4090 = t1247 * t413 / 0.2e1 + t1249 * t436 / 0.2e1 + t4083 * t34 / 0.2e1 + t4086 * t46 / 0.2e1;
9202   t4094 = t1254 * t3940;
9203   t4097 = t1254 * t3946;
9204   t4102 = t423 * t61;
9205   t4103 = t4102 * t1204;
9206   t4105 = 0.8e1 / 0.9e1 * t1202 * t4103;
9207   t4106 = t1254 * t3958;
9208   t4111 = t1258 * t443;
9209   t4114 = t464 * t1231;
9210   t4117 = t96 * t4041;
9211   t4120 = t3936 * t1255 / 0.3e1 - 0.5e1 / 0.3e1 * t3939 * t4094 + 0.2e1 / 0.3e1 * t3945 * t4097 + t3951 * t1255 / 0.3e1 - t4105 + t1202 * t4106 / 0.3e1 + 0.2e1 * t397 * t1258 - 0.8e1 * t400 * t4111 + 0.2e1 * t81 * t4114 + 0.2e1 * t81 * t4117;
9212   t4124 = t174 * t1243;
9213   t4125 = t4124 * t3980;
9214   t4129 = t1244 * t3985;
9215   t4131 = -t4009 * t1138 / 0.3e1 + 0.5e1 / 0.3e1 * t4013 * t3765 - t4017 * t1138 / 0.3e1 + t4023 - t1227 * t3785 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t3791 - t1227 * t3795 / 0.3e1 - 0.2e1 * t1476 * t1232 - 0.2e1 * t2448 * t1232 - 0.2e1 * t449 * t4035 - 0.2e1 * t449 * t4042 - t447 * t1252 - 0.2e1 * t449 * t4046 - t98 * t4090 + t4120 * t227 + t1261 * t751 + t3977 * t1245 + 0.3e1 * t1214 * t4125 + t1214 * t4077 - t1214 * t4129;
9216   t4132 = t7 * t4131;
9217   t4135 = t368 * t1272;
9218   t4137 = params->d * t4131;
9219   t4143 = t1258 * t464;
9220   t4146 = t97 * t4041;
9221   t4149 = 0.3e1 * t1267 * t875 + 0.3e1 * t1269 * t873 + 0.6e1 * t369 * t4143 + 0.3e1 * t369 * t4146 + t370 * t4137;
9222   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9223     v2rhosigma[1] = t1265 * t878 + t1272 * t870 + t372 * t4132 + t4149 * t872 + t4008 + t4135;
9224 
9225   t4151 = t1315 * t372;
9226   t4152 = t1392 * t1276;
9227   t4155 = t1276 * t61;
9228   t4156 = t1397 * t4155;
9229   t4159 = t404 * t1275;
9230   t4160 = t400 * t4159;
9231   t4163 = t44 * t49;
9232   t4164 = t4163 * t418;
9233   t4166 = 0.5e1 / 0.3e1 * t4164 + t3777;
9234   t4167 = t25 * t4166;
9235   t4168 = t400 * t4167;
9236   t4173 = t400 * t4155;
9237   t4179 = t1307 * t464;
9238   t4182 = my_piecewise3(t296, 0, t3926);
9239   t4186 = t1283 * t791 / 0.288e3;
9240   t4187 = t1282 * t183;
9241   t4190 = t803 * sigma[2];
9242   t4192 = t262 * t4190 * t805;
9243   t4196 = t1288 * t820 / 0.1152e4;
9244   t4198 = t262 * t1286 * t805;
9245   t4201 = t4186 + t4187 * t799 / 0.288e3 - t4192 * t816 / 0.768e3 + t4196 + t4198 * t829 / 0.1152e4;
9246   t4202 = params->beta * t4201;
9247   t4204 = t1292 * t187;
9248   t4206 = t1159 * t832;
9249   t4207 = t4206 * t1162;
9250   t4209 = t1294 * t3851;
9251   t4210 = t2291 * t331;
9252   t4211 = t1291 * t844;
9253   t4212 = t4210 * t4211;
9254   t4215 = t837 * t803;
9255   t4218 = t4215 * t1291 * t813 * t329;
9256   t4221 = t1296 * t331 * t4201;
9257   t4223 = -t1295 * t4221 - t1298 * t4207 + t352 * t4202 - t4204 * t845 + 0.2e1 * t4209 * t4212 + t4209 * t4218;
9258   t4226 = t1300 * t2320;
9259   t4231 = my_piecewise3(t359, t169 * t4223 * t848 / 0.2e1 - t169 * t4226 * t847 / 0.2e1, t3926);
9260   t4235 = t1280 * t413 / 0.2e1 + t1304 * t436 / 0.2e1 + t4182 * t34 / 0.2e1 + t4231 * t46 / 0.2e1;
9261   t4239 = t1309 * t3940;
9262   t4242 = t1309 * t3946;
9263   t4247 = t4166 * t61;
9264   t4248 = t4247 * t1204;
9265   t4251 = t1309 * t3958;
9266   t4254 = -t3936 * t1310 / 0.6e1 + 0.5e1 / 0.6e1 * t3939 * t4239 - t3945 * t4242 / 0.3e1 - t3951 * t1310 / 0.6e1 - t1202 * t4248 / 0.6e1 - t1202 * t4251 / 0.6e1 + t3963 - t3966 + t3969 + t3972;
9267   t4257 = t4152 * t1138 / 0.6e1 - 0.5e1 / 0.6e1 * t4156 * t3765 + t4160 * t1138 / 0.6e1 + t4168 * t1138 / 0.6e1 + t1277 * t3785 / 0.6e1 + t4173 * t3791 / 0.3e1 + t1277 * t3795 / 0.6e1 - t3799 - t3801 - t3804 - t3814 - t447 * t1307 - 0.2e1 * t449 * t4179 - t98 * t4235 + t4254 * t227 + t1313 * t751 + t3978 + t3983 + t3984 - t3987;
9268   t4258 = t7 * t4257;
9269   t4261 = t368 * t1320;
9270   t4263 = params->d * t4257;
9271   t4267 = 0.3e1 * t1318 * t875 + t370 * t4263 + t3999 + t4002 + t4005;
9272   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9273     v2rhosigma[2] = t1316 * t878 + t1320 * t870 + t372 * t4258 + t4267 * t872 + t4151 + t4261;
9274 
9275   t4269 = t2378 * t1134;
9276   t4272 = t3763 * t912;
9277   t4273 = t1204 * t4272;
9278   t4276 = t883 * t1133;
9279   t4277 = t400 * t4276;
9280   t4280 = t3774 * t887;
9281   t4282 = 0.5e1 / 0.3e1 * t4280 + t3777;
9282   t4283 = t25 * t4282;
9283   t4284 = t400 * t4283;
9284   t4287 = t908 * t97;
9285   t4288 = t4287 * t363;
9286   t4289 = t66 * t4288;
9287   t4292 = t3789 * t928;
9288   t4293 = t1204 * t4292;
9289   t4297 = t66 * t1136 * t1110;
9290   t4301 = 0.2e1 * t2442 * t1144;
9291   t4302 = t82 * t928;
9292   t4304 = 0.2e1 * t4302 * t1144;
9293   t4305 = t1110 * t1143;
9294   t4307 = 0.2e1 * t449 * t4305;
9295   t4308 = t3807 * t923;
9296   t4311 = my_piecewise3(t95, 0, -t3806 - t4308 / 0.8e1);
9297   t4312 = t363 * t4311;
9298   t4314 = 0.2e1 * t449 * t4312;
9299   t4316 = t1199 * t928;
9300   t4325 = t3824 + t3825 * t954 / 0.288e3 - t3830 * t965 / 0.768e3 + t3838 + t3840 * t969 / 0.1152e4;
9301   t4326 = params->beta * t4325;
9302   t4329 = t1159 * t972;
9303   t4330 = t4329 * t1162;
9304   t4332 = t1156 * t979;
9305   t4333 = t3853 * t4332;
9306   t4338 = t3858 * t1156 * t962 * t265;
9307   t4341 = t1165 * t267 * t4325;
9308   t4343 = -t1163 * t4341 - t1167 * t4330 + t289 * t4326 - t3846 * t980 + 0.2e1 * t3852 * t4333 + t3852 * t4338;
9309   t4350 = t3874 * t999;
9310   t4353 = t3882 * t1004;
9311   t4355 = t3887 * t1016;
9312   t4357 = t3894 * t1020;
9313   t4359 = -t3881 - t4353 / 0.48e2 - t4355 / 0.1536e4 - t3891 - t4357 / 0.384e3;
9314   t4360 = params->beta * t4359;
9315   t4363 = t1159 * t1023;
9316   t4364 = t4363 * t1162;
9317   t4366 = t1181 * t1030;
9318   t4367 = t3906 * t4366;
9319   t4371 = t1181 * t1013 * t194;
9320   t4372 = t3911 * t4371;
9321   t4375 = t1186 * t196 * t4359;
9322   t4377 = -t1031 * t3900 - t1185 * t4375 - t1188 * t4364 + t221 * t4360 + 0.2e1 * t3905 * t4367 + t3905 * t4372;
9323   t4378 = t175 * t4377;
9324   t4379 = t4378 * t748;
9325   t4380 = t169 * t4379;
9326   t4381 = t3923 * t1033;
9327   t4383 = 0.3e1 * t1768 * t4350 - t2849 * t4381 + t4380;
9328   t4384 = my_piecewise3(t296, -t169 * t3869 * t982 / 0.2e1 + t169 * t4343 * t581 / 0.2e1, t4383);
9329   t4387 = my_piecewise3(t359, 0, t4383);
9330   t4391 = t1194 * t886 / 0.2e1 + t1196 * t905 / 0.2e1 + t4384 * t34 / 0.2e1 + t4387 * t46 / 0.2e1;
9331   t4393 = t2378 * t1201;
9332   t4396 = t1204 * t912;
9333   t4397 = t1203 * t4396;
9334   t4400 = t1204 * t928;
9335   t4401 = t1203 * t4400;
9336   t4404 = t97 * t883;
9337   t4405 = t400 * t4404;
9338   t4408 = t4282 * t61;
9339   t4409 = t4408 * t1204;
9340   t4412 = t65 * t908;
9341   t4413 = t1203 * t4412;
9342   t4417 = 0.2e1 * t881 * t1208;
9343   t4418 = t1208 * t912;
9344   t4420 = 0.8e1 * t400 * t4418;
9345   t4421 = t928 * t1143;
9346   t4423 = 0.2e1 * t81 * t4421;
9347   t4424 = t96 * t4311;
9348   t4426 = 0.2e1 * t81 * t4424;
9349   t4427 = -t4393 * t1205 / 0.6e1 + 0.5e1 / 0.6e1 * t3939 * t4397 - t3945 * t4401 / 0.3e1 - t4405 * t1205 / 0.6e1 - t1202 * t4409 / 0.6e1 - t1202 * t4413 / 0.6e1 + t4417 - t4420 + t4423 + t4426;
9350   t4430 = t1119 * t167;
9351   t4431 = t4430 * t168;
9352   t4432 = t4431 * t1192;
9353   t4433 = t748 * t999;
9354   t4434 = t3979 * t4433;
9355   t4436 = 0.3e1 * t1214 * t4434;
9356   t4437 = t1214 * t4379;
9357   t4438 = t1191 * t2850;
9358   t4439 = t1214 * t4438;
9359   t4440 = t4269 * t1138 / 0.6e1 - 0.5e1 / 0.6e1 * t3762 * t4273 + t4277 * t1138 / 0.6e1 + t4284 * t1138 / 0.6e1 + t1135 * t4289 / 0.6e1 + t3788 * t4293 / 0.3e1 + t1135 * t4297 / 0.6e1 - t4301 - t4304 - t4307 - t4314 - t916 * t1199 - 0.2e1 * t449 * t4316 - t98 * t4391 + t4427 * t227 + t1211 * t1037 + t4432 + t4436 + t4437 - t4439;
9360   t4441 = t7 * t4440;
9361   t4445 = params->d * t4440;
9362   t4450 = 0.3e1 * t1125 * t1221;
9363   t4451 = t1208 * t928;
9364   t4453 = 0.6e1 * t369 * t4451;
9365   t4454 = t97 * t4311;
9366   t4456 = 0.3e1 * t369 * t4454;
9367   t4457 = 0.3e1 * t1127 * t1219 + t370 * t4445 + t4450 + t4453 + t4456;
9368   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9369     v2rhosigma[3] = t1123 * t1224 + t1130 * t1217 + t372 * t4441 + t4457 * t872 + t3757 + t3992;
9370 
9371   t4459 = t2378 * t1226;
9372   t4464 = t883 * t57;
9373   t4465 = t400 * t4464;
9374   t4478 = t1110 * t1231;
9375   t4483 = my_piecewise3(t95, 0, -t4038 - t4308 / 0.4e1);
9376   t4484 = t363 * t4483;
9377   t4488 = t1252 * t928;
9378   t4491 = t4049 * t999;
9379   t4497 = -t4053 - t4353 / 0.24e2 - t4355 / 0.768e3 - t4056 - t4357 / 0.192e3;
9380   t4498 = params->beta * t4497;
9381   t4502 = t1237 * t1030;
9382   t4503 = t3906 * t4502;
9383   t4508 = t3911 * t1237 * t1013 * t194;
9384   t4511 = t1186 * t196 * t4497;
9385   t4513 = -t1031 * t4061 - t1185 * t4511 - t1241 * t4364 + t221 * t4498 + 0.2e1 * t3905 * t4503 + t3905 * t4508;
9386   t4514 = t175 * t4513;
9387   t4515 = t4514 * t748;
9388   t4516 = t169 * t4515;
9389   t4517 = t4079 * t1033;
9390   t4519 = 0.3e1 * t1768 * t4491 - t2849 * t4517 + t4516;
9391   t4520 = my_piecewise3(t296, 0, t4519);
9392   t4523 = my_piecewise3(t359, 0, t4519);
9393   t4527 = t1247 * t886 / 0.2e1 + t1249 * t905 / 0.2e1 + t4520 * t34 / 0.2e1 + t4523 * t46 / 0.2e1;
9394   t4531 = t1254 * t4396;
9395   t4534 = t1254 * t4400;
9396   t4539 = t1254 * t4412;
9397   t4544 = t1258 * t912;
9398   t4547 = t928 * t1231;
9399   t4550 = t96 * t4483;
9400   t4553 = t4393 * t1255 / 0.3e1 - 0.5e1 / 0.3e1 * t3939 * t4531 + 0.2e1 / 0.3e1 * t3945 * t4534 + t4405 * t1255 / 0.3e1 - t4105 + t1202 * t4539 / 0.3e1 + 0.2e1 * t881 * t1258 - 0.8e1 * t400 * t4544 + 0.2e1 * t81 * t4547 + 0.2e1 * t81 * t4550;
9401   t4557 = t4124 * t4433;
9402   t4561 = t1244 * t2850;
9403   t4563 = -t4459 * t1138 / 0.3e1 + 0.5e1 / 0.3e1 * t4013 * t4273 - t4465 * t1138 / 0.3e1 + t4023 - t1227 * t4289 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t4293 - t1227 * t4297 / 0.3e1 - 0.2e1 * t2442 * t1232 - 0.2e1 * t4302 * t1232 - 0.2e1 * t449 * t4478 - 0.2e1 * t449 * t4484 - t916 * t1252 - 0.2e1 * t449 * t4488 - t98 * t4527 + t4553 * t227 + t1261 * t1037 + t4431 * t1245 + 0.3e1 * t1214 * t4557 + t1214 * t4515 - t1214 * t4561;
9404   t4564 = t7 * t4563;
9405   t4568 = params->d * t4563;
9406   t4574 = t1258 * t928;
9407   t4577 = t97 * t4483;
9408   t4580 = 0.3e1 * t1125 * t1269 + 0.3e1 * t1127 * t1267 + 0.6e1 * t369 * t4574 + 0.3e1 * t369 * t4577 + t370 * t4568;
9409   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9410     v2rhosigma[4] = t1123 * t1272 + t1130 * t1265 + t372 * t4564 + t4580 * t872 + t4008 + t4135;
9411 
9412   t4582 = t2378 * t1276;
9413   t4587 = t883 * t1275;
9414   t4588 = t400 * t4587;
9415   t4591 = t893 * t50;
9416   t4593 = t4163 * t897;
9417   t4595 = -0.8e1 / 0.3e1 * t4591 + 0.5e1 / 0.3e1 * t4593 + t3777;
9418   t4596 = t25 * t4595;
9419   t4597 = t400 * t4596;
9420   t4607 = t1307 * t928;
9421   t4610 = my_piecewise3(t296, 0, t4383);
9422   t4613 = t893 * t114;
9423   t4614 = t4613 * t182;
9424   t4622 = t262 * t1286 * t1082;
9425   t4627 = -t4614 * t324 / 0.36e2 + t4186 + t4187 * t1066 / 0.288e3 - t4192 * t1077 / 0.768e3 - t4622 * t342 / 0.144e3 + t4196 + t4198 * t1088 / 0.1152e4;
9426   t4628 = params->beta * t4627;
9427   t4631 = t1159 * t1091;
9428   t4632 = t4631 * t1162;
9429   t4634 = t1291 * t1098;
9430   t4635 = t4210 * t4634;
9431   t4640 = t4215 * t1291 * t1074 * t329;
9432   t4643 = t1296 * t331 * t4627;
9433   t4645 = -t1099 * t4204 - t1295 * t4643 - t1298 * t4632 + t352 * t4628 + 0.2e1 * t4209 * t4635 + t4209 * t4640;
9434   t4652 = my_piecewise3(t359, -t169 * t4226 * t1101 / 0.2e1 + t169 * t4645 * t848 / 0.2e1, t4383);
9435   t4656 = t1280 * t886 / 0.2e1 + t1304 * t905 / 0.2e1 + t4610 * t34 / 0.2e1 + t4652 * t46 / 0.2e1;
9436   t4660 = t1309 * t4396;
9437   t4663 = t1309 * t4400;
9438   t4668 = t4595 * t61;
9439   t4669 = t4668 * t1204;
9440   t4672 = t1309 * t4412;
9441   t4675 = -t4393 * t1310 / 0.6e1 + 0.5e1 / 0.6e1 * t3939 * t4660 - t3945 * t4663 / 0.3e1 - t4405 * t1310 / 0.6e1 - t1202 * t4669 / 0.6e1 - t1202 * t4672 / 0.6e1 + t4417 - t4420 + t4423 + t4426;
9442   t4678 = t4582 * t1138 / 0.6e1 - 0.5e1 / 0.6e1 * t4156 * t4273 + t4588 * t1138 / 0.6e1 + t4597 * t1138 / 0.6e1 + t1277 * t4289 / 0.6e1 + t4173 * t4293 / 0.3e1 + t1277 * t4297 / 0.6e1 - t4301 - t4304 - t4307 - t4314 - t916 * t1307 - 0.2e1 * t449 * t4607 - t98 * t4656 + t4675 * t227 + t1313 * t1037 + t4432 + t4436 + t4437 - t4439;
9443   t4679 = t7 * t4678;
9444   t4683 = params->d * t4678;
9445   t4687 = 0.3e1 * t1127 * t1318 + t370 * t4683 + t4450 + t4453 + t4456;
9446   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9447     v2rhosigma[5] = t1123 * t1320 + t1130 * t1316 + t372 * t4679 + t4687 * t872 + t4151 + t4261;
9448 
9449   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9450     v2rholapl[0] = 0.0e0;
9451 
9452   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9453     v2rholapl[1] = 0.0e0;
9454 
9455   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9456     v2rholapl[2] = 0.0e0;
9457 
9458   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9459     v2rholapl[3] = 0.0e0;
9460 
9461   t4689 = t1333 * t372;
9462   t4694 = t857 * t1326;
9463   t4698 = t424 * t1323 / 0.3e1;
9464   t4699 = t58 * t1493;
9465   t4700 = t84 * t38;
9466   t4701 = t4700 * t459;
9467   t4705 = t453 * t30 * t38;
9468   t4708 = t58 * t453;
9469   t4709 = t84 * t37;
9470   t4710 = t4709 * t414;
9471   t4714 = my_piecewise3(t95, 0, t4698 + t4699 * t4701 / 0.4e1 + 0.5e1 / 0.24e2 * t58 * t4705 - 0.5e1 / 0.24e2 * t4708 * t4710);
9472   t4715 = t363 * t4714;
9473   t4720 = t400 * t96;
9474   t4721 = t1326 * t227;
9475   t4722 = t4721 * t443;
9476   t4725 = t464 * t1326;
9477   t4726 = t4725 * t227;
9478   t4729 = t96 * t4714;
9479   t4730 = t4729 * t227;
9480   t4733 = t1329 * t751;
9481   t4736 = -0.2e1 * t1327 * t1476 - 0.2e1 * t1327 * t2448 + 0.2e1 * t1330 * t397 - 0.2e1 * t449 * t4694 - 0.2e1 * t449 * t4715 - 0.8e1 * t4720 * t4722 + 0.2e1 * t4726 * t81 + 0.2e1 * t4730 * t81 + 0.2e1 * t4733 * t81;
9482   t4737 = t7 * t4736;
9483   t4740 = t368 * t1341;
9484   t4742 = params->d * t4736;
9485   t4748 = t1329 * t464;
9486   t4751 = t97 * t4714;
9487   t4754 = 0.3e1 * t1336 * t875 + 0.3e1 * t1338 * t873 + 0.6e1 * t369 * t4748 + 0.3e1 * t369 * t4751 + t370 * t4742;
9488   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9489     v2rhotau[0] = t1334 * t878 + t1341 * t870 + t372 * t4737 + t4754 * t872 + t4689 + t4740;
9490 
9491   t4756 = t1354 * t372;
9492   t4761 = t857 * t1347;
9493   t4765 = t424 * t1344 / 0.3e1;
9494   t4766 = t88 * t50;
9495   t4767 = t4766 * t459;
9496   t4770 = t88 * t49;
9497   t4771 = t4770 * t418;
9498   t4775 = my_piecewise3(t95, 0, t4765 + t4699 * t4767 / 0.4e1 - 0.5e1 / 0.24e2 * t4708 * t4771);
9499   t4776 = t363 * t4775;
9500   t4781 = t1347 * t227;
9501   t4782 = t4781 * t443;
9502   t4785 = t464 * t1347;
9503   t4786 = t4785 * t227;
9504   t4789 = t96 * t4775;
9505   t4790 = t4789 * t227;
9506   t4793 = t1350 * t751;
9507   t4796 = -0.2e1 * t1348 * t1476 - 0.2e1 * t1348 * t2448 + 0.2e1 * t1351 * t397 - 0.2e1 * t449 * t4761 - 0.2e1 * t449 * t4776 - 0.8e1 * t4720 * t4782 + 0.2e1 * t4786 * t81 + 0.2e1 * t4790 * t81 + 0.2e1 * t4793 * t81;
9508   t4797 = t7 * t4796;
9509   t4800 = t368 * t1362;
9510   t4802 = params->d * t4796;
9511   t4808 = t1350 * t464;
9512   t4811 = t97 * t4775;
9513   t4814 = 0.3e1 * t1357 * t875 + 0.3e1 * t1359 * t873 + 0.6e1 * t369 * t4808 + 0.3e1 * t369 * t4811 + t370 * t4802;
9514   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9515     v2rhotau[1] = t1355 * t878 + t1362 * t870 + t372 * t4797 + t4814 * t872 + t4756 + t4800;
9516 
9517   t4820 = t1110 * t1326;
9518   t4823 = t4700 * t923;
9519   t4826 = t4709 * t887;
9520   t4830 = my_piecewise3(t95, 0, t4698 + t4699 * t4823 / 0.4e1 - 0.5e1 / 0.24e2 * t4708 * t4826);
9521   t4831 = t363 * t4830;
9522   t4836 = t4721 * t912;
9523   t4839 = t928 * t1326;
9524   t4840 = t4839 * t227;
9525   t4843 = t96 * t4830;
9526   t4844 = t4843 * t227;
9527   t4847 = t1329 * t1037;
9528   t4850 = -0.2e1 * t1327 * t2442 - 0.2e1 * t1327 * t4302 + 0.2e1 * t1330 * t881 - 0.2e1 * t449 * t4820 - 0.2e1 * t449 * t4831 - 0.8e1 * t4720 * t4836 + 0.2e1 * t4840 * t81 + 0.2e1 * t4844 * t81 + 0.2e1 * t4847 * t81;
9529   t4851 = t7 * t4850;
9530   t4855 = params->d * t4850;
9531   t4861 = t1329 * t928;
9532   t4864 = t97 * t4830;
9533   t4867 = 0.3e1 * t1125 * t1338 + 0.3e1 * t1127 * t1336 + 0.6e1 * t369 * t4861 + 0.3e1 * t369 * t4864 + t370 * t4855;
9534   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9535     v2rhotau[2] = t1123 * t1341 + t1130 * t1334 + t372 * t4851 + t4867 * t872 + t4689 + t4740;
9536 
9537   t4873 = t1110 * t1347;
9538   t4876 = t4766 * t923;
9539   t4880 = t453 * t44 * t50;
9540   t4883 = t4770 * t897;
9541   t4887 = my_piecewise3(t95, 0, t4765 + t4699 * t4876 / 0.4e1 + 0.5e1 / 0.24e2 * t58 * t4880 - 0.5e1 / 0.24e2 * t4708 * t4883);
9542   t4888 = t363 * t4887;
9543   t4893 = t4781 * t912;
9544   t4896 = t928 * t1347;
9545   t4897 = t4896 * t227;
9546   t4900 = t96 * t4887;
9547   t4901 = t4900 * t227;
9548   t4904 = t1350 * t1037;
9549   t4907 = -0.2e1 * t1348 * t2442 - 0.2e1 * t1348 * t4302 + 0.2e1 * t1351 * t881 - 0.2e1 * t449 * t4873 - 0.2e1 * t449 * t4888 - 0.8e1 * t4720 * t4893 + 0.2e1 * t4897 * t81 + 0.2e1 * t4901 * t81 + 0.2e1 * t4904 * t81;
9550   t4908 = t7 * t4907;
9551   t4912 = params->d * t4907;
9552   t4918 = t1350 * t928;
9553   t4921 = t97 * t4887;
9554   t4924 = 0.3e1 * t1125 * t1359 + 0.3e1 * t1127 * t1357 + 0.6e1 * t369 * t4918 + 0.3e1 * t369 * t4921 + t370 * t4912;
9555   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9556     v2rhotau[3] = t1123 * t1362 + t1130 * t1355 + t372 * t4908 + t4924 * t872 + t4756 + t4800;
9557 
9558   t4926 = t25 * t25;
9559   t4927 = t1133 * t1133;
9560   t4928 = t4926 * t4927;
9561   t4929 = t1397 * t4928;
9562   t4931 = 0.1e1 / t63 / t62;
9563   t4932 = t114 * t4931;
9564   t4933 = t73 * t73;
9565   t4934 = t4933 * t97;
9566   t4935 = t4934 * t363;
9567   t4936 = t4932 * t4935;
9568   t4939 = t3789 * t1143;
9569   t4940 = t1204 * t4939;
9570   t4941 = t3788 * t4940;
9571   t4944 = t66 * t1136 * t1199;
9572   t4947 = t1143 * t1143;
9573   t4948 = t82 * t4947;
9574   t4950 = 0.2e1 * t4948 * t363;
9575   t4951 = t1199 * t1143;
9576   t4952 = t449 * t4951;
9577   t4954 = my_piecewise3(t95, 0, 0);
9578   t4955 = t363 * t4954;
9579   t4956 = t449 * t4955;
9580   t4957 = 0.2e1 * t4956;
9581   t4958 = t1159 * t1162;
9582   t4959 = t4958 * t1164;
9583   t4960 = t267 * t273;
9584   t4962 = t4959 * t4960 * t61;
9585   t4963 = t474 * t288;
9586   t4964 = t533 * t4963;
9587   t4967 = t1156 * t1156;
9588   t4968 = t1159 * t4967;
9589   t4969 = t4968 * t1162;
9590   t4970 = t1165 * t267;
9591   t4973 = t1159 * params->beta;
9592   t4974 = t4973 * t282;
9593   t4976 = 0.1e1 / t1161 / t167;
9594   t4977 = t4974 * t4976;
9595   t4978 = t1164 * t62;
9596   t4979 = t4978 * t1734;
9597   t4981 = t4979 * t527 * t4967;
9598   t4984 = t4978 * t570;
9599   t4985 = t4984 * t527;
9600   t4986 = t4977 * t4985;
9601   t4987 = t529 * t208;
9602   t4988 = t1683 * t474;
9603   t4989 = t4987 * t4988;
9604   t4992 = t4962 * t4964 / 0.768e3 - 0.2e1 * t4969 * t4970 + 0.2e1 * t4977 * t4981 - t4986 * t4989 / 0.768e3;
9605   t4995 = t1169 * t1169;
9606   t5000 = t1164 * t196;
9607   t5004 = t699 * t532 * t220;
9608   t5005 = t4958 * t5000 * t202 * t5004;
9609   t5007 = t1181 * t1181;
9610   t5008 = t1159 * t5007;
9611   t5009 = t5008 * t1162;
9612   t5010 = t1186 * t196;
9613   t5013 = t4973 * t214;
9614   t5014 = t5013 * t4976;
9615   t5015 = t4978 * t2059;
9616   t5017 = t5015 * t694 * t5007;
9617   t5020 = t4978 * t736;
9618   t5021 = t5020 * t694;
9619   t5022 = t5014 * t5021;
9620   t5023 = t5022 * t211;
9621   t5025 = t5005 / 0.1536e4 - 0.2e1 * t5009 * t5010 + 0.2e1 * t5014 * t5017 - t5023 / 0.1536e4;
9622   t5026 = t175 * t5025;
9623   t5027 = t5026 * t748;
9624   t5028 = t169 * t5027;
9625   t5029 = t1190 * t1190;
9626   t5030 = t175 * t5029;
9627   t5031 = t5030 * t2093;
9628   t5032 = t169 * t5031;
9629   t5033 = t5028 - t5032;
9630   t5034 = my_piecewise3(t296, -t169 * t4995 * t1763 / 0.2e1 + t169 * t4992 * t581 / 0.2e1, t5033);
9631   t5036 = my_piecewise3(t359, 0, t5033);
9632   t5037 = t5036 * t46;
9633   t5039 = t5034 * t34 / 0.2e1 + t5037 / 0.2e1;
9634   t5041 = t97 * t4926;
9635   t5042 = t1397 * t5041;
9636   t5043 = t4927 * t114;
9637   t5044 = t4931 * t4933;
9638   t5045 = t5043 * t5044;
9639   t5048 = t1204 * t1143;
9640   t5049 = t1203 * t5048;
9641   t5050 = t3945 * t5049;
9642   t5053 = 0.2e1 * t81 * t4947;
9643   t5054 = t96 * t4954;
9644   t5055 = t81 * t5054;
9645   t5056 = 0.2e1 * t5055;
9646   t5057 = 0.5e1 / 0.144e3 * t5042 * t5045 - 0.2e1 / 0.3e1 * t5050 + t5053 + t5056;
9647   t5059 = t1211 * t167;
9648   t5060 = t5059 * t168;
9649   t5061 = t5060 * t1192;
9650   t5063 = t1214 * t5027;
9651   t5064 = t1214 * t5031;
9652   t5065 = -0.5e1 / 0.144e3 * t4929 * t4936 + 0.2e1 / 0.3e1 * t4941 + t1135 * t4944 / 0.3e1 - t4950 - 0.4e1 * t4952 - t4957 - t98 * t5039 + t5057 * t227 + 0.2e1 * t5061 + t5063 - t5064;
9653   t5066 = t7 * t5065;
9654   t5070 = params->d * t5065;
9655   t5072 = t1219 * t1221;
9656   t5074 = t96 * t4947;
9657   t5076 = 0.6e1 * t369 * t5074;
9658   t5077 = t97 * t4954;
9659   t5079 = 0.3e1 * t369 * t5077;
9660   t5080 = t370 * t5070 + 0.6e1 * t5072 + t5076 + t5079;
9661   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9662     v2sigma2[0] = 0.2e1 * t1217 * t1224 + t372 * t5066 + t5080 * t872;
9663 
9664   t5082 = t4926 * t57;
9665   t5083 = t5082 * t114;
9666   t5084 = t1397 * t5083;
9667   t5085 = t3763 * t1133;
9668   t5086 = t5044 * t5085;
9669   t5090 = 0.2e1 / 0.3e1 * t4026 * t4940;
9670   t5093 = t3789 * t1231;
9671   t5094 = t1204 * t5093;
9672   t5097 = t82 * t1143;
9673   t5099 = 0.2e1 * t5097 * t1232;
9674   t5100 = t1199 * t1231;
9675   t5104 = t66 * t1136 * t1252;
9676   t5107 = t1252 * t1143;
9677   t5109 = 0.2e1 * t449 * t5107;
9678   t5111 = t1159 * t1237;
9679   t5112 = t5111 * t1162;
9680   t5115 = t4976 * t4978;
9681   t5116 = t5013 * t5115;
9682   t5117 = t2059 * t694;
9683   t5118 = t1237 * t1181;
9684   t5119 = t5117 * t5118;
9685   t5123 = t5005 / 0.768e3 - 0.2e1 * t5112 * t1188 + 0.2e1 * t5116 * t5119 - t5023 / 0.768e3;
9686   t5124 = t175 * t5123;
9687   t5125 = t5124 * t748;
9688   t5126 = t169 * t5125;
9689   t5127 = t4079 * t1190;
9690   t5129 = -t2849 * t5127 + t5126;
9691   t5130 = my_piecewise3(t296, 0, t5129);
9692   t5132 = my_piecewise3(t359, 0, t5129);
9693   t5135 = t5130 * t34 / 0.2e1 + t5132 * t46 / 0.2e1;
9694   t5136 = t98 * t5135;
9695   t5137 = t57 * t114;
9696   t5138 = t5044 * t1133;
9697   t5139 = t5137 * t5138;
9698   t5142 = t1254 * t5048;
9699   t5144 = 0.2e1 / 0.3e1 * t3945 * t5142;
9700   t5145 = t400 * t1258;
9701   t5146 = t1134 * t74;
9702   t5149 = t1143 * t1231;
9703   t5151 = 0.2e1 * t81 * t5149;
9704   t5152 = -0.5e1 / 0.72e2 * t5042 * t5139 + t5144 - t5145 * t5146 / 0.3e1 + t5151 + t5056;
9705   t5154 = t1261 * t167;
9706   t5155 = t5154 * t168;
9707   t5156 = t5155 * t1192;
9708   t5158 = t1214 * t5125;
9709   t5159 = t1244 * t3923;
9710   t5160 = t1214 * t5159;
9711   t5161 = 0.5e1 / 0.72e2 * t5084 * t5086 - t5090 - t1227 * t4944 / 0.3e1 + t3788 * t5094 / 0.3e1 - t5099 - 0.2e1 * t449 * t5100 - t4957 + t1135 * t5104 / 0.6e1 - t5109 - t5136 + t5152 * t227 + t5156 + t5060 * t1245 + t5158 - t5160;
9712   t5162 = t7 * t5161;
9713   t5166 = params->d * t5161;
9714   t5169 = 0.3e1 * t1267 * t1221;
9715   t5172 = t1258 * t1143;
9716   t5174 = 0.6e1 * t369 * t5172;
9717   t5175 = 0.3e1 * t1219 * t1269 + t370 * t5166 + t5079 + t5169 + t5174;
9718   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9719     v2sigma2[1] = t1217 * t1272 + t1224 * t1265 + t372 * t5162 + t5175 * t872;
9720 
9721   t5177 = t4926 * t1275;
9722   t5178 = t5177 * t114;
9723   t5179 = t1397 * t5178;
9724   t5182 = t4173 * t4940;
9725   t5189 = t66 * t1136 * t1307;
9726   t5192 = t1307 * t1143;
9727   t5193 = t449 * t5192;
9728   t5195 = my_piecewise3(t296, 0, t5033);
9729   t5196 = t5195 * t34;
9730   t5198 = t5196 / 0.2e1 + t5037 / 0.2e1;
9731   t5200 = t1275 * t114;
9732   t5201 = t5200 * t5138;
9733   t5204 = t1309 * t5048;
9734   t5205 = t3945 * t5204;
9735   t5208 = 0.5e1 / 0.144e3 * t5042 * t5201 - t5205 / 0.3e1 - t5050 / 0.3e1 + t5053 + t5056;
9736   t5210 = t1313 * t167;
9737   t5211 = t5210 * t168;
9738   t5212 = t5211 * t1192;
9739   t5213 = -0.5e1 / 0.144e3 * t5179 * t5086 + t5182 / 0.3e1 + t1277 * t4944 / 0.6e1 + t4941 / 0.3e1 - t4950 - 0.2e1 * t4952 - t4957 + t1135 * t5189 / 0.6e1 - 0.2e1 * t5193 - t98 * t5198 + t5208 * t227 + t5212 + t5061 + t5063 - t5064;
9740   t5214 = t7 * t5213;
9741   t5218 = params->d * t5213;
9742   t5220 = t1318 * t1221;
9743   t5223 = t370 * t5218 + 0.3e1 * t5072 + t5076 + t5079 + 0.3e1 * t5220;
9744   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9745     v2sigma2[2] = t1217 * t1320 + t1224 * t1316 + t372 * t5214 + t5223 * t872;
9746 
9747   t5226 = 0.1e1 / t54 / t384;
9748   t5227 = t4926 * t5226;
9749   t5228 = t1397 * t5227;
9750   t5235 = t1231 * t1231;
9751   t5236 = t82 * t5235;
9752   t5239 = t1252 * t1231;
9753   t5243 = t1237 * t1237;
9754   t5244 = t1159 * t5243;
9755   t5245 = t5244 * t1162;
9756   t5249 = t5015 * t694 * t5243;
9757   t5253 = t5005 / 0.384e3 - 0.2e1 * t5245 * t5010 + 0.2e1 * t5014 * t5249 - t5023 / 0.384e3;
9758   t5254 = t175 * t5253;
9759   t5255 = t5254 * t748;
9760   t5256 = t169 * t5255;
9761   t5257 = t1243 * t1243;
9762   t5258 = t175 * t5257;
9763   t5259 = t5258 * t2093;
9764   t5260 = t169 * t5259;
9765   t5261 = t5256 - t5260;
9766   t5262 = my_piecewise3(t296, 0, t5261);
9767   t5264 = my_piecewise3(t359, 0, t5261);
9768   t5267 = t5262 * t34 / 0.2e1 + t5264 * t46 / 0.2e1;
9769   t5269 = t5226 * t114;
9770   t5270 = t5269 * t5044;
9771   t5273 = t1204 * t1231;
9772   t5274 = t1254 * t5273;
9773   t5279 = 0.5e1 / 0.36e2 * t5042 * t5270 + 0.4e1 / 0.3e1 * t3945 * t5274 + 0.2e1 * t81 * t5235 + t5056;
9774   t5285 = -0.5e1 / 0.36e2 * t5228 * t4936 - 0.4e1 / 0.3e1 * t4026 * t5094 - 0.2e1 / 0.3e1 * t1227 * t5104 - 0.2e1 * t5236 * t363 - 0.4e1 * t449 * t5239 - t4957 - t98 * t5267 + t5279 * t227 + 0.2e1 * t5155 * t1245 + t1214 * t5255 - t1214 * t5259;
9775   t5286 = t7 * t5285;
9776   t5290 = params->d * t5285;
9777   t5294 = t96 * t5235;
9778   t5297 = 0.6e1 * t1267 * t1269 + 0.6e1 * t369 * t5294 + t370 * t5290 + t5079;
9779   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9780     v2sigma2[3] = 0.2e1 * t1265 * t1272 + t372 * t5286 + t5297 * t872;
9781 
9782   t5299 = t3763 * t57;
9783   t5300 = t5044 * t5299;
9784   t5309 = t1307 * t1231;
9785   t5312 = t5044 * t57;
9786   t5313 = t5200 * t5312;
9787   t5316 = t1309 * t5273;
9788   t5319 = -0.5e1 / 0.72e2 * t5042 * t5313 - t3945 * t5316 / 0.3e1 + t5144 + t5151 + t5056;
9789   t5322 = 0.5e1 / 0.72e2 * t5179 * t5300 + t4173 * t5094 / 0.3e1 + t1277 * t5104 / 0.6e1 - t5090 - t5099 - t5109 - t4957 - t1227 * t5189 / 0.3e1 - 0.2e1 * t449 * t5309 - t5136 + t5319 * t227 + t5211 * t1245 + t5156 + t5158 - t5160;
9790   t5323 = t7 * t5322;
9791   t5327 = params->d * t5322;
9792   t5331 = 0.3e1 * t1269 * t1318 + t370 * t5327 + t5079 + t5169 + t5174;
9793   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9794     v2sigma2[4] = t1265 * t1320 + t1272 * t1316 + t372 * t5323 + t5331 * t872;
9795 
9796   t5333 = t1275 * t1275;
9797   t5334 = t4926 * t5333;
9798   t5335 = t1397 * t5334;
9799   t5342 = t331 * t337;
9800   t5344 = t4959 * t5342 * t61;
9801   t5345 = t758 * t351;
9802   t5346 = t533 * t5345;
9803   t5349 = t1291 * t1291;
9804   t5350 = t1159 * t5349;
9805   t5351 = t5350 * t1162;
9806   t5352 = t1296 * t331;
9807   t5355 = t4973 * t345;
9808   t5356 = t5355 * t4976;
9809   t5357 = t4978 * t2291;
9810   t5359 = t5357 * t803 * t5349;
9811   t5362 = t4978 * t837;
9812   t5363 = t5362 * t803;
9813   t5364 = t5356 * t5363;
9814   t5365 = t805 * t208;
9815   t5366 = t1683 * t758;
9816   t5367 = t5365 * t5366;
9817   t5370 = t5344 * t5346 / 0.768e3 - 0.2e1 * t5351 * t5352 + 0.2e1 * t5356 * t5359 - t5364 * t5367 / 0.768e3;
9818   t5373 = t1300 * t1300;
9819   t5378 = my_piecewise3(t359, -t169 * t5373 * t2320 / 0.2e1 + t169 * t5370 * t848 / 0.2e1, t5033);
9820   t5381 = t5378 * t46 / 0.2e1 + t5196 / 0.2e1;
9821   t5383 = t5333 * t114;
9822   t5384 = t5383 * t5044;
9823   t5388 = 0.5e1 / 0.144e3 * t5042 * t5384 - 0.2e1 / 0.3e1 * t5205 + t5053 + t5056;
9824   t5391 = -0.5e1 / 0.144e3 * t5335 * t4936 + 0.2e1 / 0.3e1 * t5182 + t1277 * t5189 / 0.3e1 - t4950 - 0.4e1 * t5193 - t4957 - t98 * t5381 + t5388 * t227 + 0.2e1 * t5212 + t5063 - t5064;
9825   t5392 = t7 * t5391;
9826   t5396 = params->d * t5391;
9827   t5399 = t370 * t5396 + t5076 + t5079 + 0.6e1 * t5220;
9828   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9829     v2sigma2[5] = 0.2e1 * t1316 * t1320 + t372 * t5392 + t5399 * t872;
9830 
9831   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9832     v2sigmalapl[0] = 0.0e0;
9833 
9834   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9835     v2sigmalapl[1] = 0.0e0;
9836 
9837   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9838     v2sigmalapl[2] = 0.0e0;
9839 
9840   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9841     v2sigmalapl[3] = 0.0e0;
9842 
9843   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9844     v2sigmalapl[4] = 0.0e0;
9845 
9846   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9847     v2sigmalapl[5] = 0.0e0;
9848 
9849   t5401 = t3789 * t1326;
9850   t5402 = t1204 * t5401;
9851   t5406 = 0.2e1 * t5097 * t1327;
9852   t5407 = t1199 * t1326;
9853   t5410 = t3807 * t4700;
9854   t5412 = my_piecewise3(t95, 0, -t5410 / 0.8e1);
9855   t5413 = t363 * t5412;
9856   t5415 = 0.2e1 * t449 * t5413;
9857   t5416 = t400 * t1330;
9858   t5419 = t1143 * t1326;
9859   t5420 = t5419 * t227;
9860   t5422 = 0.2e1 * t81 * t5420;
9861   t5423 = t96 * t5412;
9862   t5424 = t5423 * t227;
9863   t5426 = 0.2e1 * t81 * t5424;
9864   t5427 = t81 * t1329;
9865   t5429 = 0.2e1 * t5427 * t1193;
9866   t5430 = t3788 * t5402 / 0.3e1 - t5406 - 0.2e1 * t449 * t5407 - t5415 - t5416 * t5146 / 0.3e1 + t5422 + t5426 + t5429;
9867   t5431 = t7 * t5430;
9868   t5435 = params->d * t5430;
9869   t5438 = 0.3e1 * t1336 * t1221;
9870   t5441 = t1329 * t1143;
9871   t5443 = 0.6e1 * t369 * t5441;
9872   t5444 = t97 * t5412;
9873   t5446 = 0.3e1 * t369 * t5444;
9874   t5447 = 0.3e1 * t1219 * t1338 + t370 * t5435 + t5438 + t5443 + t5446;
9875   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9876     v2sigmatau[0] = t1217 * t1341 + t1224 * t1334 + t372 * t5431 + t5447 * t872;
9877 
9878   t5449 = t3789 * t1347;
9879   t5450 = t1204 * t5449;
9880   t5454 = 0.2e1 * t5097 * t1348;
9881   t5455 = t1199 * t1347;
9882   t5458 = t3807 * t4766;
9883   t5460 = my_piecewise3(t95, 0, -t5458 / 0.8e1);
9884   t5461 = t363 * t5460;
9885   t5463 = 0.2e1 * t449 * t5461;
9886   t5464 = t400 * t1351;
9887   t5467 = t1143 * t1347;
9888   t5468 = t5467 * t227;
9889   t5470 = 0.2e1 * t81 * t5468;
9890   t5471 = t96 * t5460;
9891   t5472 = t5471 * t227;
9892   t5474 = 0.2e1 * t81 * t5472;
9893   t5475 = t81 * t1350;
9894   t5477 = 0.2e1 * t5475 * t1193;
9895   t5478 = t3788 * t5450 / 0.3e1 - t5454 - 0.2e1 * t449 * t5455 - t5463 - t5464 * t5146 / 0.3e1 + t5470 + t5474 + t5477;
9896   t5479 = t7 * t5478;
9897   t5483 = params->d * t5478;
9898   t5486 = 0.3e1 * t1357 * t1221;
9899   t5489 = t1350 * t1143;
9900   t5491 = 0.6e1 * t369 * t5489;
9901   t5492 = t97 * t5460;
9902   t5494 = 0.3e1 * t369 * t5492;
9903   t5495 = 0.3e1 * t1219 * t1359 + t370 * t5483 + t5486 + t5491 + t5494;
9904   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9905     v2sigmatau[1] = t1217 * t1362 + t1224 * t1355 + t372 * t5479 + t5495 * t872;
9906 
9907   t5499 = t82 * t1231;
9908   t5502 = t1252 * t1326;
9909   t5506 = my_piecewise3(t95, 0, -t5410 / 0.4e1);
9910   t5507 = t363 * t5506;
9911   t5510 = t1226 * t74;
9912   t5513 = t1231 * t1326;
9913   t5514 = t5513 * t227;
9914   t5517 = t96 * t5506;
9915   t5518 = t5517 * t227;
9916   t5523 = -0.2e1 / 0.3e1 * t4026 * t5402 - 0.2e1 * t5499 * t1327 - 0.2e1 * t449 * t5502 - 0.2e1 * t449 * t5507 + 0.2e1 / 0.3e1 * t5416 * t5510 + 0.2e1 * t81 * t5514 + 0.2e1 * t81 * t5518 + 0.2e1 * t5427 * t1246;
9917   t5524 = t7 * t5523;
9918   t5528 = params->d * t5523;
9919   t5534 = t1329 * t1231;
9920   t5537 = t97 * t5506;
9921   t5540 = 0.3e1 * t1267 * t1338 + 0.3e1 * t1269 * t1336 + 0.6e1 * t369 * t5534 + 0.3e1 * t369 * t5537 + t370 * t5528;
9922   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9923     v2sigmatau[2] = t1265 * t1341 + t1272 * t1334 + t372 * t5524 + t5540 * t872;
9924 
9925   t5546 = t1252 * t1347;
9926   t5550 = my_piecewise3(t95, 0, -t5458 / 0.4e1);
9927   t5551 = t363 * t5550;
9928   t5556 = t1231 * t1347;
9929   t5557 = t5556 * t227;
9930   t5560 = t96 * t5550;
9931   t5561 = t5560 * t227;
9932   t5566 = -0.2e1 / 0.3e1 * t4026 * t5450 - 0.2e1 * t5499 * t1348 - 0.2e1 * t449 * t5546 - 0.2e1 * t449 * t5551 + 0.2e1 / 0.3e1 * t5464 * t5510 + 0.2e1 * t81 * t5557 + 0.2e1 * t81 * t5561 + 0.2e1 * t5475 * t1246;
9933   t5567 = t7 * t5566;
9934   t5571 = params->d * t5566;
9935   t5577 = t1350 * t1231;
9936   t5580 = t97 * t5550;
9937   t5583 = 0.3e1 * t1267 * t1359 + 0.3e1 * t1269 * t1357 + 0.6e1 * t369 * t5577 + 0.3e1 * t369 * t5580 + t370 * t5571;
9938   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9939     v2sigmatau[3] = t1265 * t1362 + t1272 * t1355 + t372 * t5567 + t5583 * t872;
9940 
9941   t5587 = t1307 * t1326;
9942   t5590 = t1276 * t74;
9943   t5593 = t4173 * t5402 / 0.3e1 - t5406 - 0.2e1 * t449 * t5587 - t5415 - t5416 * t5590 / 0.3e1 + t5422 + t5426 + t5429;
9944   t5594 = t7 * t5593;
9945   t5598 = params->d * t5593;
9946   t5602 = 0.3e1 * t1318 * t1338 + t370 * t5598 + t5438 + t5443 + t5446;
9947   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9948     v2sigmatau[4] = t1316 * t1341 + t1320 * t1334 + t372 * t5594 + t5602 * t872;
9949 
9950   t5606 = t1307 * t1347;
9951   t5611 = t4173 * t5450 / 0.3e1 - t5454 - 0.2e1 * t449 * t5606 - t5463 - t5464 * t5590 / 0.3e1 + t5470 + t5474 + t5477;
9952   t5612 = t7 * t5611;
9953   t5616 = params->d * t5611;
9954   t5620 = 0.3e1 * t1318 * t1359 + t370 * t5616 + t5486 + t5491 + t5494;
9955   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9956     v2sigmatau[5] = t1316 * t1362 + t1320 * t1355 + t372 * t5612 + t5620 * t872;
9957 
9958   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9959     v2lapl2[0] = 0.0e0;
9960 
9961   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9962     v2lapl2[1] = 0.0e0;
9963 
9964   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9965     v2lapl2[2] = 0.0e0;
9966 
9967   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9968     v2lapltau[0] = 0.0e0;
9969 
9970   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9971     v2lapltau[1] = 0.0e0;
9972 
9973   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9974     v2lapltau[2] = 0.0e0;
9975 
9976   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
9977     v2lapltau[3] = 0.0e0;
9978 
9979   t5622 = t1326 * t1326;
9980   t5623 = t82 * t5622;
9981   t5626 = 0.1e1 / t27 / t407;
9982   t5628 = t35 * t35;
9983   t5630 = t36 * t5628 * t35;
9984   t5631 = t1493 * t5626 * t5630;
9985   t5634 = my_piecewise3(t95, 0, t58 * t5631 / 0.4e1);
9986   t5635 = t363 * t5634;
9987   t5637 = t5622 * t227;
9988   t5639 = t96 * t5634;
9989   t5640 = t5639 * t227;
9990   t5643 = -0.2e1 * t363 * t5623 - 0.2e1 * t449 * t5635 + 0.2e1 * t5637 * t81 + 0.2e1 * t5640 * t81;
9991   t5644 = t7 * t5643;
9992   t5648 = params->d * t5643;
9993   t5652 = t96 * t5622;
9994   t5655 = t97 * t5634;
9995   t5658 = 0.6e1 * t1336 * t1338 + 0.6e1 * t369 * t5652 + 0.3e1 * t369 * t5655 + t370 * t5648;
9996   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
9997     v2tau2[0] = 0.2e1 * t1334 * t1341 + t372 * t5644 + t5658 * t872;
9998 
9999   t5660 = t82 * t1326;
10000   t5662 = t4766 * t4700;
10001   t5665 = my_piecewise3(t95, 0, t4699 * t5662 / 0.4e1);
10002   t5666 = t363 * t5665;
10003   t5668 = t1326 * t1347;
10004   t5669 = t5668 * t227;
10005   t5671 = t96 * t5665;
10006   t5672 = t5671 * t227;
10007   t5675 = -0.2e1 * t1348 * t5660 - 0.2e1 * t449 * t5666 + 0.2e1 * t5669 * t81 + 0.2e1 * t5672 * t81;
10008   t5676 = t7 * t5675;
10009   t5680 = params->d * t5675;
10010   t5686 = t1350 * t1326;
10011   t5689 = t97 * t5665;
10012   t5692 = 0.3e1 * t1336 * t1359 + 0.3e1 * t1338 * t1357 + 0.6e1 * t369 * t5686 + 0.3e1 * t369 * t5689 + t370 * t5680;
10013   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
10014     v2tau2[1] = t1334 * t1362 + t1341 * t1355 + t372 * t5676 + t5692 * t872;
10015 
10016   t5694 = t1347 * t1347;
10017   t5695 = t82 * t5694;
10018   t5698 = 0.1e1 / t41 / t891;
10019   t5700 = t47 * t47;
10020   t5702 = t48 * t5700 * t47;
10021   t5703 = t1493 * t5698 * t5702;
10022   t5706 = my_piecewise3(t95, 0, t58 * t5703 / 0.4e1);
10023   t5707 = t363 * t5706;
10024   t5709 = t5694 * t227;
10025   t5711 = t96 * t5706;
10026   t5712 = t5711 * t227;
10027   t5715 = -0.2e1 * t363 * t5695 - 0.2e1 * t449 * t5707 + 0.2e1 * t5709 * t81 + 0.2e1 * t5712 * t81;
10028   t5716 = t7 * t5715;
10029   t5720 = params->d * t5715;
10030   t5724 = t96 * t5694;
10031   t5727 = t97 * t5706;
10032   t5730 = 0.6e1 * t1357 * t1359 + 0.6e1 * t369 * t5724 + 0.3e1 * t369 * t5727 + t370 * t5720;
10033   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
10034     v2tau2[2] = 0.2e1 * t1355 * t1362 + t372 * t5716 + t5730 * t872;
10035 
10036 #ifndef XC_DONT_COMPILE_KXC
10037 
10038   if(order < 3) return;
10039 
10040 
10041   t5732 = t2358 * t372;
10042   t5734 = t869 * t878;
10043   t5736 = t368 * t2373;
10044   t5742 = t53 * t714;
10045   t5744 = 0.154e3 / 0.27e2 * t5742 * t92;
10046   t5745 = t1440 * t460;
10047   t5747 = t424 * t1495;
10048   t5749 = t424 * t1512;
10049   t5750 = t452 * t452;
10050   t5751 = 0.1e1 / t5750;
10051   t5752 = t1494 * t459;
10052   t5753 = t5751 * t5752;
10053   t5756 = t1493 * t459;
10054   t5757 = t5756 * t1511;
10055   t5760 = tau[0] * t1416;
10056   t5769 = t36 * t35;
10057   t5770 = 0.1e1 / t5769;
10058   t5771 = t1423 * t414;
10059   t5772 = t5770 * t5771;
10060   t5775 = t1422 * t414;
10061   t5776 = t5775 * t1427;
10062   t5779 = t4 * t15;
10063   t5780 = t377 - t5779;
10064   t5781 = 0.3e1 * t5780;
10065   t5782 = t37 * t5781;
10066   t5785 = t48 * t47;
10067   t5786 = 0.1e1 / t5785;
10068   t5787 = t1432 * t418;
10069   t5788 = t5786 * t5787;
10070   t5791 = t1431 * t418;
10071   t5792 = t5791 * t1436;
10072   t5795 = -t5781;
10073   t5796 = t49 * t5795;
10074   t5799 = -0.440e3 / 0.27e2 * t5760 * t38 + 0.200e3 / 0.9e1 * t1498 * t415 - 0.50e2 / 0.9e1 * t454 * t1424 - 0.25e2 / 0.3e1 * t454 * t1428 - 0.10e2 / 0.27e2 * t85 * t5772 + 0.10e2 / 0.3e1 * t85 * t5776 + 0.5e1 / 0.3e1 * t85 * t5782 - 0.10e2 / 0.27e2 * t89 * t5788 + 0.10e2 / 0.3e1 * t89 * t5792 + 0.5e1 / 0.3e1 * t89 * t5796;
10075   t5800 = t453 * t5799;
10076   t5804 = my_piecewise3(t95, 0, -t5744 - 0.11e2 / 0.3e1 * t5745 - 0.2e1 * t5747 + t5749 - 0.3e1 / 0.4e1 * t58 * t5753 + 0.3e1 / 0.4e1 * t58 * t5757 - t58 * t5800 / 0.8e1);
10077   t5805 = t363 * t5804;
10078   t5808 = t2331 * t464;
10079   t5813 = 0.53424999999999999999e-1 * t228 * t1924 * t1817;
10080   t5817 = 0.1e1 / t109 / t119 * t99 / 0.4e1;
10081   t5818 = t5817 * t15;
10082   t5820 = t1797 * t423;
10083   t5821 = t1796 * t5820;
10084   t5823 = t595 * t682;
10085   t5824 = t594 * t5823;
10086   t5827 = 0.1e1/POW_3_2(t106);
10087   t5828 = t5827 * t99;
10088   t5829 = t5828 * t15;
10089   t5831 = t1808 * t5820;
10090   t5833 = t602 * t5823;
10091   t5836 = -0.25319000000000000000e1 * t5818 + 0.16879333333333333333e1 * t5821 - 0.19692555555555555555e1 * t5824 - 0.93011851851851851854e0 * t2500 + 0.13651666666666666667e0 * t5829 - 0.27303333333333333333e0 * t5831 - 0.31853888888888888890e0 * t5833 - 0.36514074074074074075e0 * t2547;
10092   t5837 = t5836 * t609;
10093   t5839 = 0.10000000000000000000e1 * t592 * t5837;
10094   t5840 = t1837 * t1848;
10095   t5841 = 0.17544670867903938621e1 * t5840;
10096   t5842 = t1791 * t149;
10097   t5843 = t5842 * t668;
10098   t5844 = 0.17544670867903938621e1 * t5843;
10099   t5845 = t1837 * t1834;
10100   t5846 = 0.51947577317044391276e2 * t5845;
10101   t5848 = 0.1e1 / t1820 / t590;
10102   t5849 = t108 * t5848;
10103   t5850 = t1776 * t608;
10104   t5852 = 0.1e1 / t1823 / t124;
10105   t5853 = t5850 * t5852;
10106   t5855 = 0.51726012919273400301e3 * t5849 * t5853;
10107   t5856 = t2082 * t2093;
10108   t5861 = 0.1e1 / t170 / t34;
10109   t5862 = t1451 * t413;
10110   t5865 = t1780 * t413;
10111   t5868 = 0.6e1 * t5780;
10112   t5872 = 0.1e1 / t171 / t46;
10113   t5873 = t1460 * t436;
10114   t5876 = t1785 * t436;
10115   t5879 = -t5868;
10116   t5883 = (-0.8e1 / 0.27e2 * t5861 * t5862 + 0.4e1 / 0.3e1 * t5865 * t1454 + 0.4e1 / 0.3e1 * t67 * t5868 - 0.8e1 / 0.27e2 * t5872 * t5873 + 0.4e1 / 0.3e1 * t5876 * t1463 + 0.4e1 / 0.3e1 * t70 * t5879) * t133;
10117   t5885 = 0.19751673498613801407e-1 * t5883 * t159;
10118   t5886 = t177 * t591;
10119   t5889 = 0.71233333333333333332e-1 * t228 * t5886 * t610;
10120   t5893 = 0.10685000000000000000e0 * t228 * t469 * t1774 * t1777;
10121   t5894 = t469 * t1821;
10122   t5897 = 0.85917975471764868594e0 * t228 * t5894 * t1825;
10123   t5899 = 0.1e1 / t1820 / t121;
10124   t5900 = t108 * t5899;
10125   t5901 = t5850 * t1824;
10126   t5903 = 0.96491876992155210402e2 * t5900 * t5901;
10127   t5905 = 0.1e1 / t1828 / t644;
10128   t5906 = t1830 * t651;
10129   t5909 = 0.1e1 / t1832 / t157;
10130   t5910 = t5905 * t5906 * t5909;
10131   t5912 = 0.10254018858216406658e4 * t666 * t5910;
10132   t5913 = t623 * t1989;
10133   t5914 = t128 * t5913;
10134   t5915 = 0.3e1 * t5914;
10135   t5916 = t1946 * t636;
10136   t5917 = t5916 * t637;
10137   t5920 = t5906 * t652;
10138   t5923 = t469 * t1852;
10139   t5931 = t177 * t630;
10140   t5938 = t469 * t1961;
10141   t5942 = t177 * t645;
10142   t5949 = t469 * t1829;
10143   t5953 = t5813 + 0.60000000000000000000e1 * t1962 * t5917 - t5839 - t5855 + 0.35089341735807877242e1 * t1985 * t5920 + 0.32530743900905219526e-1 * t228 * t5923 * t1979 - t5889 - t5893 + 0.10274000000000000000e0 * t228 * t469 * t1944 * t1947 + 0.68493333333333333332e-1 * t228 * t5931 * t638 - 0.51369999999999999999e-1 * t228 * t1939 * t1957 - 0.16522625736956710527e1 * t228 * t5938 * t1965 + 0.21687162600603479684e-1 * t228 * t5942 * t653 - 0.16265371950452609763e-1 * t228 * t1974 * t1982 - 0.48159733137676571078e0 * t228 * t5949 * t1986 + t5897;
10144   t5954 = t149 * t5905;
10145   t5955 = t5906 * t5909;
10146   t5959 = 0.1e1 / t1828 / t154;
10147   t5960 = t149 * t5959;
10148   t5961 = t5906 * t1833;
10149   t5981 = -0.34523333333333333333e1 * t5818 + 0.23015555555555555556e1 * t5821 - 0.26851481481481481482e1 * t5824 - 0.93932222222222222223e0 * t2500 + 0.73355000000000000000e-1 * t5829 - 0.14671000000000000000e0 * t5831 - 0.17116166666666666667e0 * t5833 - 0.36793333333333333333e0 * t2547;
10150   t5982 = t5981 * t652;
10151   t5985 = t5850 * t609;
10152   t5987 = 0.60000000000000000000e1 * t1822 * t5985;
10153   t5988 = t608 * t1824;
10154   t5991 = 0.48245938496077605201e2 * t1822 * t5988 * t1816;
10155   t5992 = t1846 * t1833;
10156   t5993 = t5992 * t651;
10157   t5996 = t653 * t1846;
10158   t6007 = -0.47063000000000000000e1 * t5818 + 0.31375333333333333334e1 * t5821 - 0.36604555555555555556e1 * t5824 - 0.16068111111111111111e1 * t2500 + 0.28051666666666666666e0 * t5829 - 0.56103333333333333332e0 * t5831 - 0.65453888888888888890e0 * t5833 - 0.46308888888888888888e0 * t2547;
10159   t6008 = t6007 * t637;
10160   t6012 = 0.1e1 / t1960 / t629;
10161   t6013 = t136 * t6012;
10162   t6015 = 0.1e1 / t1963 / t144;
10163   t6016 = t5916 * t6015;
10164   t6020 = 0.1e1 / t1960 / t141;
10165   t6021 = t136 * t6020;
10166   t6022 = t5916 * t1964;
10167   t6027 = 0.60000000000000000000e1 * t1775 * t1817 * t608;
10168   t6028 = t1956 * t1964;
10169   t6034 = 0.34450798614814814813e-2 * t101 * t2499 * t125;
10170   t6035 = t5903 + 0.10254018858216406658e4 * t5954 * t5955 - 0.10389515463408878255e3 * t5960 * t5961 + 0.16562821945185185185e-2 * t101 * t2499 * t145 + 0.56968947174242584612e-3 * t101 * t2499 * t158 - 0.60000000000000000000e1 * t1945 * t638 * t1956 + 0.58482236226346462070e0 * t646 * t5982 - t5987 - t5991 + 0.51947577317044391277e2 * t1985 * t5993 - 0.35089341735807877242e1 * t1978 * t5996 + 0.10000000000000000000e1 * t631 * t6008 + 0.20690405167709360120e4 * t6013 * t6016 - 0.19298375398431042081e3 * t6021 * t6022 + t6027 + 0.96491876992155210402e2 * t1962 * t6028 * t636 - t6034;
10171   t6036 = t5953 + t6035;
10172   t6037 = t134 * t6036;
10173   t6038 = t128 * t6037;
10174   t6039 = -0.3e1 * t2849 * t5856 * t746 - t5813 + t5839 - t5841 - t5844 - t5846 + t5855 + t5885 + t5889 + t5893 - t5897 - t5903 - t5912 + t5915 + t6038;
10175   t6040 = t613 * t1990;
10176   t6041 = 0.12e2 * t6040;
10177   t6043 = 0.12e2 * t616 * t1990;
10178   t6044 = t613 * t1994;
10179   t6045 = 0.24e2 * t6044;
10180   t6047 = t1829 * t5906 * t652;
10181   t6049 = 0.35089341735807877242e1 * t666 * t6047;
10182   t6050 = t1404 * t624;
10183   t6051 = 0.36e2 * t6050;
10184   t6053 = 0.60e2 * t1912 * t657;
10185   t6054 = t1917 * t624;
10186   t6055 = 0.96e2 * t6054;
10187   t6056 = t1917 * t657;
10188   t6057 = 0.96e2 * t6056;
10189   t6061 = t616 * t1994;
10190   t6062 = 0.24e2 * t6061;
10191   t6063 = t613 * t1992;
10192   t6064 = 0.12e2 * t6063;
10193   t6065 = t616 * t1992;
10194   t6066 = 0.12e2 * t6065;
10195   t6067 = t1868 * t677;
10196   t6071 = 0.6e1 * t169 * t224 * t6067 + 0.9e1 * t1768 * t1769 * t1881 + t5987 + t5991 + t6041 - t6043 + t6045 - t6049 + t6051 + t6053 - t6055 - t6057 - t6062 + t6064 - t6066;
10197   t6076 = t2082 * t748;
10198   t6081 = t645 * t5981 * t652;
10199   t6083 = 0.58482236226346462070e0 * t666 * t6081;
10200   t6085 = t5959 * t5906 * t1833;
10201   t6087 = 0.10389515463408878255e3 * t666 * t6085;
10202   t6088 = t1837 * t1854;
10203   t6089 = 0.35089341735807877242e1 * t6088;
10204   t6090 = t586 * t1834;
10205   t6092 = 0.48159733137676571078e0 * t1932 * t6090;
10206   t6093 = t623 * t101;
10207   t6094 = t6093 * t1933;
10208   t6095 = 0.32530743900905219526e-1 * t6094;
10209   t6096 = t586 * t1848;
10210   t6098 = 0.16265371950452609763e-1 * t1932 * t6096;
10211   t6099 = t586 * t1854;
10212   t6101 = 0.32530743900905219526e-1 * t1932 * t6099;
10213   t6102 = t1804 * t668;
10214   t6104 = 0.21687162600603479684e-1 * t1932 * t6102;
10215   t6105 = t5883 * t161;
10216   t6106 = t128 * t6105;
10217   t6107 = t1791 * t656;
10218   t6108 = t128 * t6107;
10219   t6109 = 0.3e1 * t6108;
10220   t6110 = t1404 * t657;
10221   t6111 = 0.36e2 * t6110;
10222   t6112 = t1912 * t624;
10223   t6113 = 0.60e2 * t6112;
10224   t6114 = t2090 * t746;
10225   t6117 = 0.1e1 / t2092 / t223;
10226   t6121 = 0.2e1 * t169 * t175 * t6114 * t6117 + 0.9e1 * t1768 * t6076 * t677 + 0.18e2 * t1769 * t1868 * t2857 - t6083 + t6087 + t6089 + t6092 + t6095 + t6098 - t6101 - t6104 + t6106 + t6109 + t6111 + t6113;
10227   t6123 = 0.24e2 * t5779 * t162;
10228   t6124 = t5 * t385;
10229   t6125 = t6124 * t162;
10230   t6126 = 0.144e3 * t6125;
10231   t6127 = t380 * t21;
10232   t6128 = t6127 * t162;
10233   t6129 = 0.240e3 * t6128;
10234   t6130 = t12 * t393;
10235   t6132 = 0.120e3 * t6130 * t162;
10236   t6135 = t69 * t413;
10237   t6142 = t72 * t436;
10238   t6147 = 0.4e1 / 0.27e2 * t431 * t5862 - t6135 * t1454 / 0.3e1 + t672 * t5868 / 0.3e1 + 0.4e1 / 0.27e2 * t435 * t5873 - t6142 * t1463 / 0.3e1 + t674 * t5879 / 0.3e1;
10239   t6152 = t254 * t689 * t1881;
10240   t6156 = 0.1e1 / t55 / t392;
10241   t6159 = t6156 * t203 * t206 * t210;
10242   t6161 = 0.595e3 / 0.10368e5 * t200 * t6159;
10243   t6163 = t254 * t102 * t6147;
10244   t6166 = t194 * t1881;
10245   t6168 = t1905 * t1906 * t6166;
10246   t6171 = t103 * t2018;
10247   t6173 = t2746 * t6171 * t708;
10248   t6176 = t1892 * t2018;
10249   t6178 = t2746 * t1906 * t6176;
10250   t6182 = t262 * t695 * t715;
10251   t6183 = t6182 * t1909;
10252   t6185 = t103 * t1891;
10253   t6186 = t1892 * t677;
10254   t6188 = t1905 * t6185 * t6186;
10255   t6191 = t1891 * t707;
10256   t6192 = t6191 * t194;
10257   t6194 = t699 * t532 * t6192;
10258   t6198 = t262 * t695 * t2030;
10259   t6199 = t6198 * t710;
10260   t6201 = t1899 * t2026;
10261   t6204 = t262 * t1888 * t714;
10262   t6205 = t6204 * t1895;
10263   t6207 = t1899 * t2021;
10264   t6209 = -t5813 + t5839 - t5841 - t5844 - t5846 + t5855 + t5885 + t5889 + t5893 - t5897 - t5903 - t5912;
10265   t6210 = t5915 + t6038 + t6041 - t6043 + t6045 - t6049 + t6051 + t5987 + t6053 - t6055 - t6057 - t6062 + t6064;
10266   t6212 = -t6066 + t5991 - t6083 + t6087 + t6089 + t6092 + t6095 + t6098 - t6101 - t6104 + t6106 + t6109;
10267   t6213 = t1791 * t61;
10268   t6214 = t6213 * t663;
10269   t6215 = 0.54934341918019635162e-3 * t6214;
10270   t6217 = t1829 * t651 * t5992;
10271   t6219 = 0.51947577317044391277e2 * t666 * t6217;
10272   t6221 = t1852 * t1846 * t653;
10273   t6223 = 0.35089341735807877242e1 * t666 * t6221;
10274   t6224 = t1920 * t1929;
10275   t6225 = 0.73245789224026180216e-3 * t6224;
10276   t6227 = t595 * t682 * t158;
10277   t6229 = 0.56968947174242584612e-3 * t661 * t6227;
10278   t6230 = t6111 + t6113 + t6123 - t6126 + t6129 - t6132 - t6027 + t6034 - t6215 - t6219 + t6223 + t6225 - t6229;
10279   t6233 = (t6209 + t6210 + t6212 + t6230) * t187;
10280   t6241 = t62 * t2041;
10281   t6242 = t6241 * t6067;
10282   t6245 = t724 * t677;
10283   t6246 = t6245 * t1881;
10284   t6249 = t703 * t6147;
10285   t6252 = 0.60e2 * t190 * t6242 + 0.3e1 * t190 * t6249 - t192 * t6233 + 0.9e1 * t2007 * t704 - 0.36e2 * t2012 * t701 + 0.9e1 * t2015 * t701 - 0.36e2 * t2776 * t6246;
10286   t6253 = t6252 * t194;
10287   t6255 = t699 * t532 * t6253;
10288   t6258 = t693 * t693;
10289   t6259 = 0.1e1 / t6258;
10290   t6260 = t6259 * t198;
10291   t6262 = t262 * t6260 * t202;
10292   t6263 = t1892 * t194;
10293   t6264 = t6191 * t6263;
10294   t6266 = t699 * t532 * t6264;
10295   t6269 = 0.3e1 / 0.16e2 * t1867 * t6152 - t6161 - t688 * t6163 / 0.48e2 + t1903 * t6168 / 0.256e3 - t1903 * t6173 / 0.1024e4 + t2744 * t6178 / 0.512e3 - 0.7e1 / 0.192e3 * t6183 - t2744 * t6188 / 0.128e3 - t697 * t6194 / 0.3072e4 - 0.119e3 / 0.4608e4 * t6199 + 0.7e1 / 0.1536e4 * t6201 - 0.7e1 / 0.768e3 * t6205 + 0.7e1 / 0.1536e4 * t6207 - t697 * t6255 / 0.3072e4 - t6262 * t6266 / 0.512e3;
10296   t6270 = t6191 * t1892;
10297   t6272 = t699 * t532 * t6270;
10298   t6275 = t677 * t1881;
10299   t6277 = t2043 * t532 * t6275;
10300   t6280 = t2037 * t2045;
10301   t6283 = 0.1e1 / t205 / t175;
10302   t6285 = t203 * t6283 * t61;
10303   t6287 = t6285 * t532 * t6067;
10304   t6290 = t2037 * t2049;
10305   t6293 = t726 * t532 * t6147;
10306   t6297 = t262 * t720 * t2030;
10307   t6298 = t6297 * t728;
10308   t6300 = t2041 * t61;
10309   t6301 = t6300 * t208;
10310   t6302 = t194 * t1868;
10311   t6304 = t6301 * t1906 * t6302;
10312   t6308 = t1905 * t6185 * t1907;
10313   t6312 = t1905 * t6171 * t1907;
10314   t6315 = t683 * t1866;
10315   t6316 = t6315 * t1870;
10316   t6318 = t130 * t724;
10317   t6319 = t178 * t6318;
10318   t6321 = t254 * t102 * t6067;
10319   t6324 = t1859 * t687;
10320   t6325 = t6324 * t690;
10321   t6327 = t1863 * t1883;
10322   t6329 = t53 * t5226;
10323   t6332 = 0.455e3 / 0.1296e4 * t6329 * t130 * t184;
10324   t6333 = t1890 * t6272 / 0.512e3 + 0.5e1 / 0.256e3 * t722 * t6277 - 0.35e2 / 0.384e3 * t6280 - 0.5e1 / 0.128e3 * t722 * t6287 + 0.7e1 / 0.384e3 * t6290 - t722 * t6293 / 0.768e3 - 0.119e3 / 0.1152e4 * t6298 - 0.5e1 / 0.256e3 * t1903 * t6304 + t1903 * t6308 / 0.256e3 + t1903 * t6312 / 0.256e3 - 0.7e1 / 0.16e2 * t6316 - t6319 * t6321 / 0.4e1 - 0.35e2 / 0.72e2 * t6325 + 0.7e1 / 0.48e2 * t6327 - t6332;
10325   t6334 = t6269 + t6333;
10326   t6335 = params->beta * t6334;
10327   t6337 = t2053 * t187;
10328   t6344 = t735 * t735;
10329   t6345 = 0.1e1 / t6344;
10330   t6346 = t62 * t6345;
10331   t6347 = t2061 * t743;
10332   t6348 = t6346 * t6347;
10333   t6351 = t743 * t2079;
10334   t6352 = t2060 * t6351;
10335   t6355 = t6259 * t214;
10336   t6359 = t1887 * t731;
10337   t6363 = t214 * t707;
10338   t6370 = t694 * t2052;
10339   t6382 = t214 * t2018;
10340   t6390 = t188 * t197 * t6334 + 0.6e1 * t1893 * t262 * t6359 - 0.3e1 * t2019 * t2069 * t262 - 0.3e1 * t2024 * t2069 * t262 + 0.6e1 * t2065 * t262 * t6270 - t262 * t6192 * t738 - t262 * t6253 * t738 - 0.6e1 * t262 * t6264 * t6355 - 0.3e1 * t262 * t6370 * t708 + 0.6e1 * t2823 * t6176 * t6363 - 0.3e1 * t2833 * t6382 * t708;
10341   t6391 = t737 * t6390;
10342   t6393 = 0.6e1 * t2055 * t2062 - 0.3e1 * t2055 * t2080 + t221 * t6335 - 0.3e1 * t6337 * t744 - 0.6e1 * t6348 * t734 + 0.6e1 * t6352 * t734 - t6391 * t734;
10343   t6397 = t224 * t1881;
10344   t6401 = t2090 * t2093;
10345   t6405 = t169 * t175 * t6393 * t748 + 0.3e1 * t169 * t6147 * t671 - 0.9e1 * t1768 * t6401 * t677 + 0.18e2 * t2857 * t6397 * t677 - t6027 + t6034 + t6123 - t6126 + t6129 - t6132 - t6215 - t6219 + t6223 + t6225 - t6229;
10346   t6407 = t6039 + t6071 + t6121 + t6405;
10347   t6409 = t446 * t1481;
10348   t6414 = t3 * t377;
10349   t6415 = 0.12e2 * t6414;
10350   t6416 = t373 * t15;
10351   t6417 = 0.36e2 * t6416;
10352   t6419 = 0.24e2 * t6 * t385;
10353   t6420 = t11 * t4;
10354   t6422 = 0.24e2 * t6420 * t15;
10355   t6423 = t1374 * t385;
10356   t6424 = 0.144e3 * t6423;
10357   t6425 = t381 * t21;
10358   t6426 = 0.240e3 * t6425;
10359   t6428 = 0.120e3 * t13 * t393;
10360   t6429 = t17 * t380;
10361   t6431 = 0.120e3 * t6429 * t21;
10362   t6432 = t1381 * t393;
10363   t6433 = 0.540e3 * t6432;
10364   t6434 = t389 * t1387;
10365   t6435 = 0.756e3 * t6434;
10366   t6436 = t1386 * t7;
10367   t6437 = 0.1e1 / t6436;
10368   t6439 = 0.336e3 * t19 * t6437;
10369   t6440 = -t6415 + t6417 - t6419 + t6422 - t6424 + t6426 - t6428 + t6431 - t6433 + t6435 - t6439;
10370   t6441 = t6440 * t80;
10371   t6442 = t1390 * t399;
10372   t6445 = t396 * t1396;
10373   t6452 = 0.1e1 / t79 / t78 / t77;
10374   t6453 = t23 * t6452;
10375   t6454 = t1398 * t443;
10376   t6457 = t443 * t1470;
10377   t6460 = 0.12e2 * t377;
10378   t6461 = 0.36e2 * t5779;
10379   t6462 = 0.24e2 * t6124;
10380   t6463 = t6460 - t6461 + t6462;
10381   t6464 = t6463 * t59;
10382   t6467 = t1406 * t426;
10383   t6472 = t404 * t1442;
10384   t6480 = 0.1e1 / t28 / t271;
10385   t6481 = sigma[0] * t6480;
10386   t6502 = 0.1232e4 / 0.27e2 * t5742;
10387   t6503 = -0.1232e4 / 0.27e2 * t6481 * t38 + 0.440e3 / 0.9e1 * t1417 * t415 - 0.80e2 / 0.9e1 * t410 * t1424 - 0.40e2 / 0.3e1 * t410 * t1428 - 0.10e2 / 0.27e2 * t31 * t5772 + 0.10e2 / 0.3e1 * t31 * t5776 + 0.5e1 / 0.3e1 * t31 * t5782 - 0.10e2 / 0.27e2 * t45 * t5788 + 0.10e2 / 0.3e1 * t45 * t5792 + 0.5e1 / 0.3e1 * t45 * t5796 + t6502;
10388   t6504 = t25 * t6503;
10389   t6512 = 0.1e1 / t67 / t1525;
10390   t6515 = t1450 * t413;
10391   t6521 = 0.1e1 / t70 / t2113;
10392   t6524 = t1459 * t436;
10393   t6529 = -0.280e3 / 0.27e2 * t6512 * t5862 + 0.28e2 / 0.3e1 * t6515 * t1454 - 0.4e1 / 0.3e1 * t431 * t5868 - 0.280e3 / 0.27e2 * t6521 * t5873 + 0.28e2 / 0.3e1 * t6524 * t1463 - 0.4e1 / 0.3e1 * t435 * t5879;
10394   t6530 = t66 * t6529;
10395   t6533 = t6464 * t74 / 0.24e2 + t6467 * t74 / 0.8e1 + t1407 * t440 / 0.8e1 + t6472 * t74 / 0.8e1 + t1410 * t440 / 0.4e1 + t405 * t1467 / 0.8e1 + t6504 * t74 / 0.24e2 + t1443 * t440 / 0.8e1 + t427 * t1467 / 0.8e1 + t60 * t6530 / 0.24e2;
10396   t6536 = -0.12e2 * t1392 * t1470 + 0.60e2 * t1397 * t6457 + 0.60e2 * t1398 * t6445 - 0.4e1 * t400 * t6533 - 0.12e2 * t443 * t6442 - 0.120e3 * t6453 * t6454 + t6441;
10397   t6537 = t6536 * t97;
10398   t6539 = t464 * t1516;
10399   t6542 = t96 * t5804;
10400   t6545 = t1481 * t443;
10401   t6548 = t96 * t1470;
10402   t6549 = t6548 * t464;
10403   t6552 = t2341 * t1516;
10404   t6562 = t97 * t6533;
10405   t6573 = t97 * t6454;
10406   t6576 = t96 * t1398;
10407   t6577 = t6576 * t464;
10408   t6580 = t860 * t1470;
10409   t6583 = 0.6e1 * t1391 * t863 - 0.48e2 * t1392 * t2342 - 0.12e2 * t1392 * t2345 + 0.120e3 * t1397 * t6577 + 0.60e2 * t1397 * t6580 + 0.6e1 * t1481 * t397 + 0.60e2 * t2338 * t6445 + 0.6e1 * t2350 * t397 - 0.24e2 * t400 * t6545 - 0.24e2 * t400 * t6549 - 0.24e2 * t400 * t6552 - 0.4e1 * t400 * t6562 + t6441 * t97 - 0.12e2 * t6442 * t860 - 0.120e3 * t6453 * t6573 + 0.6e1 * t6539 * t81 + 0.2e1 * t6542 * t81;
10410   t6587 = t1473 * t96;
10411   t6593 = t228 * t3878 * t231;
10412   t6594 = 0.53272592592592592592e-1 * t6593;
10413   t6595 = t1805 * t477;
10414   t6597 = t599 * t1528;
10415   t6599 = t599 * t1533;
10416   t6601 = t599 * t1537;
10417   t6604 = 0.1e1 / t1525 / t429;
10418   t6605 = t6604 * t5862;
10419   t6606 = t1698 * t6605;
10420   t6607 = t106 * t6606;
10421   t6609 = t1525 * t34;
10422   t6610 = 0.1e1 / t6609;
10423   t6611 = t6610 * t5862;
10424   t6612 = t560 * t6611;
10425   t6613 = t106 * t6612;
10426   t6615 = t1526 * t413;
10427   t6616 = t6615 * t1454;
10428   t6617 = t560 * t6616;
10429   t6618 = t106 * t6617;
10430   t6620 = t1526 * t5862;
10431   t6621 = t474 * t6620;
10432   t6622 = t106 * t6621;
10433   t6624 = t1531 * t413;
10434   t6625 = t6624 * t1454;
10435   t6626 = t474 * t6625;
10436   t6627 = t106 * t6626;
10437   t6629 = t475 * t5868;
10438   t6630 = t474 * t6629;
10439   t6631 = t106 * t6630;
10440   t6633 = -t6594 - 0.22831111111111111110e-1 * t6595 + 0.11415555555555555555e-1 * t6597 - 0.34246666666666666665e-1 * t6599 + 0.17123333333333333333e-1 * t6601 - 0.19025925925925925925e-1 * t6607 + 0.68493333333333333331e-1 * t6613 - 0.34246666666666666665e-1 * t6618 - 0.10274000000000000000e0 * t6622 + 0.10274000000000000000e0 * t6627 - 0.17123333333333333333e-1 * t6631;
10441   t6634 = t6633 * t251;
10442   t6636 = t1540 * t484;
10443   t6639 = t480 * t1547;
10444   t6644 = t480 * t1597;
10445   t6647 = t1549 * t505;
10446   t6648 = t6647 * t506;
10447   t6651 = t507 * t1592;
10448   t6655 = 0.1e1 / t1596 / t247;
10449   t6656 = t235 * t6655;
10450   t6657 = t6647 * t1600;
10451   t6666 = 0.1e1/POW_3_2(t233);
10452   t6667 = t1555 * t488;
10453   t6670 = t423 * t203;
10454   t6673 = 0.46308888888888888888e0 * t241 * t6670 * t243;
10455   t6674 = t1814 * t502;
10456   t6676 = t606 * t1589;
10457   t6678 = t606 * t1583;
10458   t6680 = t203 * t1642;
10459   t6681 = t6680 * t6605;
10460   t6684 = t258 * t6629;
10461   t6687 = t606 * t1586;
10462   t6689 = t1582 * t6611;
10463   t6692 = t258 * t6620;
10464   t6695 = t1582 * t6616;
10465   t6698 = t258 * t6625;
10466   t6701 = -0.52945875000000000000e1 * t1554 * t488 * t1563 + 0.94674375000000000000e0 * t1571 * t488 * t1563 - 0.15779062500000000000e0 * t6666 * t6667 - t6673 - 0.34731666666666666667e0 * t6674 + 0.20839000000000000000e0 * t6676 + 0.69463333333333333335e-1 * t6678 - 0.46308888888888888889e-1 * t119 * t6681 - 0.10419500000000000000e0 * t119 * t6684 - 0.41678000000000000001e0 * t6687 + 0.20839000000000000000e0 * t119 * t6689 - 0.62517000000000000000e0 * t119 * t6692 - 0.10419500000000000000e0 * t119 * t6695 + 0.62517000000000000000e0 * t119 * t6698;
10467   t6702 = 0.28e2 / 0.27e2 * t6593;
10468   t6713 = -t6702 - 0.4e1 / 0.9e1 * t6595 + 0.2e1 / 0.9e1 * t6597 - 0.2e1 / 0.3e1 * t6599 + t6601 / 0.3e1 - 0.10e2 / 0.27e2 * t6607 + 0.4e1 / 0.3e1 * t6613 - 0.2e1 / 0.3e1 * t6618 - 0.2e1 * t6622 + 0.2e1 * t6627 - t6631 / 0.3e1;
10469   t6730 = 0.1e1 / t236 / t245 / 0.4e1;
10470   t6733 = 0.16068111111111111111e1 * t6593;
10471   t6734 = 0.63116250000000000000e0 * t493 * t6713 + 0.35297250000000000000e1 * t486 * t6713 - 0.10329500000000000000e1 * t6618 + 0.30988500000000000000e1 * t6627 - 0.68863333333333333332e0 * t6595 + 0.34431666666666666666e0 * t6597 - 0.10329500000000000000e1 * t6599 + 0.51647499999999999999e0 * t6601 - 0.57386111111111111112e0 * t6607 + 0.20659000000000000000e1 * t6613 - 0.30988500000000000000e1 * t6622 - 0.51647500000000000000e0 * t6631 + 0.26472937500000000000e1 * t6730 * t6667 - t6733;
10472   t6735 = t6701 + t6734;
10473   t6736 = t6735 * t506;
10474   t6740 = t1592 * t1600 * t505;
10475   t6744 = 0.1e1 / t1596 / t483;
10476   t6745 = t235 * t6744;
10477   t6747 = 0.1e1 / t1599 / t250;
10478   t6748 = t6647 * t6747;
10479   t6754 = 0.1e1 / t231 / t1531;
10480   t6755 = t6754 * t6604;
10481   t6756 = t6755 * t5862;
10482   t6757 = t518 * t6756;
10483   t6760 = t1417 * t516;
10484   t6763 = t1631 * t1634;
10485   t6765 = t498 * t522;
10486   t6766 = t517 * t6765;
10487   t6768 = t1642 * t6610;
10488   t6769 = t6768 * t5862;
10489   t6770 = t518 * t6769;
10490   t6773 = t520 * t1526;
10491   t6774 = t6773 * t5862;
10492   t6775 = t518 * t6774;
10493   t6778 = t242 * t1650;
10494   t6779 = t517 * t6778;
10495   t6785 = t242 * t1637;
10496   t6786 = t517 * t6785;
10497   t6788 = t242 * t1644;
10498   t6789 = t517 * t6788;
10499   t6791 = t521 * t5868;
10500   t6792 = t518 * t6791;
10501   t6795 = t2570 * t6625;
10502   t6798 = t2566 * t6616;
10503   t6801 = t1631 * t1651 / 0.18e2 + 0.7e1 / 0.648e3 * t517 * t6757 + 0.11e2 / 0.108e3 * t6760 * t523 - t6763 / 0.54e2 - t6766 / 0.432e3 - t517 * t6770 / 0.36e2 + t517 * t6775 / 0.48e2 - t6779 / 0.144e3 - t1631 * t1638 / 0.36e2 - t1631 * t1645 / 0.27e2 + t6786 / 0.288e3 + t6789 / 0.216e3 + t517 * t6792 / 0.288e3 - t517 * t6795 / 0.48e2 + t517 * t6798 / 0.72e2;
10504   t6802 = t6481 * t254;
10505   t6805 = t1604 * t513;
10506   t6807 = t510 * t1609;
10507   t6809 = t1813 * t258;
10508   t6811 = 0.5e1 / 0.1296e4 * t255 * t6809;
10509   t6812 = t560 * t6620;
10510   t6813 = t533 * t6812;
10511   t6816 = t526 * t526;
10512   t6817 = 0.1e1 / t6816;
10513   t6818 = t6817 * t268;
10514   t6820 = t262 * t6818 * t529;
10515   t6821 = t1620 * t539;
10516   t6822 = t1672 * t265;
10517   t6823 = t6821 * t6822;
10518   t6824 = t474 * t6823;
10519   t6825 = t533 * t6824;
10520   t6828 = t2662 * t1681;
10521   t6829 = t1673 * t476;
10522   t6830 = t1684 * t6829;
10523   t6833 = t1717 * t476;
10524   t6834 = t1684 * t6833;
10525   t6837 = t540 * t1536;
10526   t6838 = t1684 * t6837;
10527   t6841 = t1683 * t1698;
10528   t6842 = t540 * t1527;
10529   t6843 = t6841 * t6842;
10530   t6856 = t6648 * t187;
10531   t6859 = t1548 * t505;
10532   t6862 = t6657 * t187;
10533   t6865 = t6736 * t187;
10534   t6871 = t6748 * t187;
10535   t6874 = 0.61370581910589784405e0 * t6634 * t187 - 0.59217626406536151717e2 * t6636 * t536 + 0.11843525281307230343e3 * t6639 * t1707 - 0.59217626406536151717e2 * t1543 * t1710 - 0.19046733076622961759e4 * t6644 * t1713 - 0.11843525281307230343e3 * t1598 * t6856 + 0.11843525281307230343e3 * t6859 * t1710 + 0.38093466153245923519e4 * t6656 * t6862 - 0.19739208802178717239e2 * t485 * t6865 - 0.19046733076622961759e4 * t1598 * t1592 * t2609 - 0.40841222780709261955e5 * t6745 * t6871;
10536   t6875 = t6874 * t265;
10537   t6876 = t474 * t6875;
10538   t6877 = t533 * t6876;
10539   t6882 = t6821 * t265;
10540   t6883 = t474 * t6882;
10541   t6884 = t533 * t6883;
10542   t6887 = t1660 * t61;
10543   t6889 = t262 * t528 * t6887;
10544   t6892 = t1628 * t1617;
10545   t6894 = -0.77e2 / 0.162e3 * t6802 * t259 + 0.11e2 / 0.108e3 * t6805 + t6807 / 0.54e2 + t6811 + t557 * t6813 / 0.384e3 - t6820 * t6825 / 0.256e3 + t6828 * t6830 / 0.384e3 - t1682 * t6834 / 0.768e3 - t1682 * t6838 / 0.768e3 - 0.5e1 / 0.2304e4 * t1682 * t6843 - t531 * t6877 / 0.1536e4 - 0.5e1 / 0.432e3 * t1723 * t1700 - t531 * t6884 / 0.1536e4 - 0.19e2 / 0.288e3 * t6889 * t542 + t6892 / 0.72e2;
10546   t6896 = t532 * t469;
10547   t6897 = t6896 * t541;
10548   t6898 = t531 * t6897;
10549   t6900 = t549 * t1655;
10550   t6903 = t210 * t1173 * t277;
10551   t6905 = t275 * t6903 / 0.5184e4;
10552   t6906 = t270 * t270;
10553   t6908 = 0.1e1 / t27 / t6906;
10554   t6910 = t262 * t269 * t6908;
10555   t6913 = t1662 * t553;
10556   t6915 = t413 * t1454;
10557   t6916 = t2640 * t6915;
10558   t6917 = t2578 * t6916;
10559   t6920 = t1698 * t6611;
10560   t6921 = t533 * t6920;
10561   t6924 = t1616 * t1718;
10562   t6925 = t531 * t6924;
10563   t6927 = t277 * t539;
10564   t6928 = t6927 * t1717;
10565   t6929 = t2578 * t6928;
10566   t6932 = t2634 * t6915;
10567   t6933 = t2578 * t6932;
10568   t6936 = t1672 * t1716;
10569   t6937 = t6927 * t6936;
10570   t6938 = t2578 * t6937;
10571   t6941 = t1621 * t476;
10572   t6942 = t1684 * t6941;
10573   t6946 = t268 * t547 * t209;
10574   t6947 = t1679 * t6946;
10575   t6950 = t105 * t560;
10576   t6951 = t6950 * t1685;
10577   t6952 = t1682 * t6951;
10578   t6954 = t1532 * t540;
10579   t6955 = t1684 * t6954;
10580   t6958 = t6898 / 0.2304e4 + t6900 / 0.432e3 + t6905 - 0.209e3 / 0.1296e4 * t6910 * t279 + 0.19e2 / 0.432e3 * t6913 - t557 * t6917 / 0.384e3 - 0.5e1 / 0.1152e4 * t557 * t6921 - t6925 / 0.768e3 - t531 * t6929 / 0.512e3 + 0.5e1 / 0.2304e4 * t557 * t6933 + t1671 * t6938 / 0.256e3 - t1682 * t6942 / 0.768e3 + t6947 * t1686 / 0.72e2 - t6952 / 0.576e3 + t1682 * t6955 / 0.384e3;
10581   t6959 = t1616 * t1622;
10582   t6960 = t531 * t6959;
10583   t6966 = t1616 * t1612;
10584   t6967 = t557 * t6966;
10585   t6969 = t6821 * t1672;
10586   t6970 = t474 * t6969;
10587   t6971 = t533 * t6970;
10588   t6975 = t262 * t1669 * t1626;
10589   t6978 = t1616 * t1674;
10590   t6979 = t1671 * t6978;
10591   t6981 = t1723 * t1689;
10592   t6983 = t1616 * t1692;
10593   t6984 = t557 * t6983;
10594   t6986 = t1616 * t1699;
10595   t6987 = t557 * t6986;
10596   t6989 = t560 * t6629;
10597   t6990 = t533 * t6989;
10598   t6994 = 0.1e1 / t243 / t1531;
10599   t6995 = t130 * t6994;
10600   t6996 = t6995 * t6605;
10601   t6997 = t533 * t6996;
10602   t7002 = t6896 * t561;
10603   t7003 = t557 * t7002;
10604   t7006 = t262 * t269 * t6887;
10605   t7011 = -t6960 / 0.768e3 + t1628 * t1623 / 0.96e2 + t1723 * t1613 / 0.72e2 - t6967 / 0.576e3 + t1671 * t6971 / 0.256e3 - t6975 * t1675 / 0.48e2 + t6979 / 0.384e3 - t6981 / 0.108e3 + t6984 / 0.1152e4 + 0.5e1 / 0.3456e4 * t6987 + t557 * t6990 / 0.2304e4 + 0.5e1 / 0.2592e4 * t557 * t6997 + t1628 * t1719 / 0.96e2 - t7003 / 0.3456e4 + 0.19e2 / 0.432e3 * t7006 * t562 - t1723 * t1693 / 0.144e3;
10606   t7013 = t6801 + t6894 + t6958 + t7011;
10607   t7014 = params->beta * t7013;
10608   t7016 = t1728 * t187;
10609   t7023 = t569 * t569;
10610   t7024 = 0.1e1 / t7023;
10611   t7025 = t62 * t7024;
10612   t7026 = t1736 * t577;
10613   t7027 = t7025 * t7026;
10614   t7030 = t577 * t1754;
10615   t7031 = t1735 * t7030;
10616   t7034 = t6817 * t282;
10617   t7038 = t1668 * t565;
10618   t7042 = t282 * t539;
10619   t7049 = t527 * t1727;
10620   t7061 = t282 * t1716;
10621   t7069 = -0.3e1 * t1621 * t1744 * t262 + 0.6e1 * t1673 * t262 * t7038 - 0.3e1 * t1679 * t540 * t7061 - 0.3e1 * t1717 * t1744 * t262 + 0.6e1 * t1740 * t262 * t6969 + t188 * t284 * t7013 - 0.3e1 * t262 * t540 * t7049 - t262 * t572 * t6875 - t262 * t572 * t6882 - 0.6e1 * t262 * t6823 * t7034 + 0.6e1 * t2662 * t6936 * t7042;
10622   t7070 = t571 * t7069;
10623   t7072 = 0.6e1 * t1730 * t1737 - 0.3e1 * t1730 * t1755 + t289 * t7014 - 0.6e1 * t568 * t7027 + 0.6e1 * t568 * t7031 - t568 * t7070 - 0.3e1 * t578 * t7016;
10624   t7080 = t1761 * t580;
10625   t7082 = 0.1e1 / t1762 / t291;
10626   t7085 = -0.3109070e-1 * t6634 + 0.30000000000000000000e1 * t6636 * t507 - 0.60000000000000000000e1 * t6639 * t1550 + 0.30000000000000000000e1 * t1543 * t1593 + 0.96491876992155210402e2 * t6644 * t1601 + 0.60000000000000000000e1 * t1598 * t6648 - 0.60000000000000000000e1 * t1548 * t6651 - 0.19298375398431042081e3 * t6656 * t6657 + 0.10000000000000000000e1 * t485 * t6736 + 0.96491876992155210402e2 * t1598 * t6740 + 0.20690405167709360120e4 * t6745 * t6748 + t169 * t7072 * t581 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t1757 * t1763 * t580 + t169 * t7080 * t7082;
10627   t7086 = my_piecewise3(t296, t7085, t6407);
10628   t7096 = t228 * t3878 * t300;
10629   t7097 = 0.53272592592592592592e-1 * t7096;
10630   t7098 = t1805 * t761;
10631   t7100 = t599 * t2116;
10632   t7102 = t599 * t2121;
10633   t7104 = t599 * t2125;
10634   t7107 = 0.1e1 / t2113 / t433;
10635   t7108 = t7107 * t5873;
10636   t7109 = t2271 * t7108;
10637   t7110 = t106 * t7109;
10638   t7112 = t2113 * t46;
10639   t7113 = 0.1e1 / t7112;
10640   t7114 = t7113 * t5873;
10641   t7115 = t827 * t7114;
10642   t7116 = t106 * t7115;
10643   t7118 = t2114 * t436;
10644   t7119 = t7118 * t1463;
10645   t7120 = t827 * t7119;
10646   t7121 = t106 * t7120;
10647   t7123 = t2114 * t5873;
10648   t7124 = t758 * t7123;
10649   t7125 = t106 * t7124;
10650   t7127 = t2119 * t436;
10651   t7128 = t7127 * t1463;
10652   t7129 = t758 * t7128;
10653   t7130 = t106 * t7129;
10654   t7132 = t759 * t5879;
10655   t7133 = t758 * t7132;
10656   t7134 = t106 * t7133;
10657   t7136 = -t7097 - 0.22831111111111111110e-1 * t7098 + 0.11415555555555555555e-1 * t7100 - 0.34246666666666666665e-1 * t7102 + 0.17123333333333333333e-1 * t7104 - 0.19025925925925925925e-1 * t7110 + 0.68493333333333333331e-1 * t7116 - 0.34246666666666666665e-1 * t7121 - 0.10274000000000000000e0 * t7125 + 0.10274000000000000000e0 * t7130 - 0.17123333333333333333e-1 * t7134;
10658   t7137 = t7136 * t318;
10659   t7139 = t2128 * t768;
10660   t7142 = t764 * t2135;
10661   t7147 = t764 * t2184;
10662   t7150 = t2137 * t786;
10663   t7151 = t7150 * t787;
10664   t7154 = t788 * t2179;
10665   t7158 = 0.1e1 / t2183 / t314;
10666   t7159 = t304 * t7158;
10667   t7160 = t7150 * t2187;
10668   t7163 = t2169 * t7114;
10669   t7166 = t323 * t7123;
10670   t7169 = t2142 * t772;
10671   t7172 = t2159 * t772;
10672   t7177 = t606 * t2173;
10673   t7179 = t1814 * t783;
10674   t7181 = t606 * t2176;
10675   t7183 = t606 * t2170;
10676   t7185 = t203 * t2198;
10677   t7186 = t7185 * t7108;
10678   t7189 = t323 * t7132;
10679   t7192 = 0.16068111111111111111e1 * t7096;
10680   t7193 = t323 * t7128;
10681   t7196 = 0.20839000000000000000e0 * t119 * t7163 - 0.62517000000000000000e0 * t119 * t7166 - 0.52945875000000000000e1 * t7169 * t2151 + 0.94674375000000000000e0 * t7172 * t2151 - 0.10329500000000000000e1 * t7121 + 0.30988500000000000000e1 * t7130 - 0.41678000000000000001e0 * t7177 - 0.34731666666666666667e0 * t7179 + 0.20839000000000000000e0 * t7181 + 0.69463333333333333335e-1 * t7183 - 0.46308888888888888889e-1 * t119 * t7186 - 0.10419500000000000000e0 * t119 * t7189 - t7192 + 0.62517000000000000000e0 * t119 * t7193;
10682   t7197 = t2169 * t7119;
10683   t7204 = 0.46308888888888888888e0 * t241 * t6670 * t310;
10684   t7211 = 0.1e1/POW_3_2(t302);
10685   t7212 = t2143 * t772;
10686   t7217 = 0.1e1 / t305 / t312 / 0.4e1;
10687   t7220 = 0.28e2 / 0.27e2 * t7096;
10688   t7231 = -t7220 - 0.4e1 / 0.9e1 * t7098 + 0.2e1 / 0.9e1 * t7100 - 0.2e1 / 0.3e1 * t7102 + t7104 / 0.3e1 - 0.10e2 / 0.27e2 * t7110 + 0.4e1 / 0.3e1 * t7116 - 0.2e1 / 0.3e1 * t7121 - 0.2e1 * t7125 + 0.2e1 * t7130 - t7134 / 0.3e1;
10689   t7236 = -0.10419500000000000000e0 * t119 * t7197 - 0.30988500000000000000e1 * t7125 - 0.51647500000000000000e0 * t7134 - t7204 - 0.68863333333333333332e0 * t7098 + 0.34431666666666666666e0 * t7100 - 0.10329500000000000000e1 * t7102 + 0.51647499999999999999e0 * t7104 - 0.57386111111111111112e0 * t7110 + 0.20659000000000000000e1 * t7116 - 0.15779062500000000000e0 * t7211 * t7212 + 0.26472937500000000000e1 * t7217 * t7212 + 0.35297250000000000000e1 * t770 * t7231 + 0.63116250000000000000e0 * t777 * t7231;
10690   t7237 = t7196 + t7236;
10691   t7238 = t7237 * t787;
10692   t7242 = t2179 * t2187 * t786;
10693   t7246 = 0.1e1 / t2183 / t767;
10694   t7247 = t304 * t7246;
10695   t7249 = 0.1e1 / t2186 / t317;
10696   t7250 = t7150 * t7249;
10697   t7253 = t1813 * t323;
10698   t7255 = 0.5e1 / 0.1296e4 * t321 * t7253;
10699   t7256 = t2958 * t7128;
10700   t7259 = t2954 * t7119;
10701   t7262 = t796 * t2114;
10702   t7263 = t7262 * t5873;
10703   t7264 = t518 * t7263;
10704   t7267 = t242 * t2205;
10705   t7268 = t794 * t7267;
10706   t7270 = t2198 * t7113;
10707   t7271 = t7270 * t5873;
10708   t7272 = t518 * t7271;
10709   t7275 = t498 * t798;
10710   t7276 = t794 * t7275;
10711   t7278 = t242 * t2209;
10712   t7279 = t794 * t7278;
10713   t7281 = t242 * t2200;
10714   t7282 = t794 * t7281;
10715   t7285 = 0.1e1 / t300 / t2119;
10716   t7286 = t7285 * t7107;
10717   t7287 = t7286 * t5873;
10718   t7288 = t518 * t7287;
10719   t7291 = t797 * t5879;
10720   t7292 = t518 * t7291;
10721   t7305 = t7151 * t187;
10722   t7308 = t2136 * t786;
10723   t7311 = t7160 * t187;
10724   t7314 = t7238 * t187;
10725   t7320 = t7250 * t187;
10726   t7323 = 0.61370581910589784405e0 * t7137 * t187 - 0.59217626406536151717e2 * t7139 * t810 + 0.11843525281307230343e3 * t7142 * t2242 - 0.59217626406536151717e2 * t2131 * t2245 - 0.19046733076622961759e4 * t7147 * t2248 - 0.11843525281307230343e3 * t2185 * t7305 + 0.11843525281307230343e3 * t7308 * t2245 + 0.38093466153245923519e4 * t7159 * t7311 - 0.19739208802178717239e2 * t769 * t7314 - 0.19046733076622961759e4 * t2185 * t2179 * t2993 - 0.40841222780709261955e5 * t7247 * t7320;
10727   t7324 = t7323 * t329;
10728   t7325 = t758 * t7324;
10729   t7326 = t533 * t7325;
10730   t7329 = t6896 * t828;
10731   t7330 = t824 * t7329;
10732   t7332 = t827 * t7123;
10733   t7333 = t533 * t7332;
10734   t7336 = t2271 * t7114;
10735   t7337 = t533 * t7336;
10736   t7340 = t1616 * t2276;
10737   t7341 = t824 * t7340;
10738   t7343 = t2218 * t813;
10739   t7344 = t7343 * t329;
10740   t7345 = t758 * t7344;
10741   t7346 = t533 * t7345;
10742   t7349 = t6896 * t815;
10743   t7350 = t807 * t7349;
10744   t7352 = t1616 * t2258;
10745   t7353 = t807 * t7352;
10746   t7355 = t7255 - t794 * t7256 / 0.48e2 + t794 * t7259 / 0.72e2 + t794 * t7264 / 0.48e2 - t7268 / 0.144e3 - t794 * t7272 / 0.36e2 - t7276 / 0.432e3 + t7279 / 0.288e3 + t7282 / 0.216e3 + 0.7e1 / 0.648e3 * t794 * t7288 + t794 * t7292 / 0.288e3 - t807 * t7326 / 0.1536e4 - t7330 / 0.3456e4 + t824 * t7333 / 0.384e3 - 0.5e1 / 0.1152e4 * t824 * t7337 - t7341 / 0.576e3 - t807 * t7346 / 0.1536e4 + t7350 / 0.2304e4 - t7353 / 0.768e3;
10747   t7356 = t1616 * t2221;
10748   t7357 = t2217 * t7356;
10749   t7359 = t340 * t2251;
10750   t7360 = t7359 * t814;
10751   t7361 = t2578 * t7360;
10752   t7365 = t2219 * t2251;
10753   t7366 = t340 * t813 * t7365;
10754   t7367 = t2578 * t7366;
10755   t7370 = t1616 * t2280;
10756   t7371 = t824 * t7370;
10757   t7374 = t210 * t1173 * t340;
10758   t7376 = t339 * t7374 / 0.5184e4;
10759   t7377 = t802 * t802;
10760   t7378 = 0.1e1 / t7377;
10761   t7379 = t7378 * t332;
10762   t7381 = t262 * t7379 * t805;
10763   t7382 = t2219 * t329;
10764   t7383 = t7343 * t7382;
10765   t7384 = t758 * t7383;
10766   t7385 = t533 * t7384;
10767   t7388 = t7343 * t2219;
10768   t7389 = t758 * t7388;
10769   t7390 = t533 * t7389;
10770   t7393 = t436 * t1463;
10771   t7394 = t3033 * t7393;
10772   t7395 = t2578 * t7394;
10773   t7398 = t3027 * t7393;
10774   t7399 = t2578 * t7398;
10775   t7402 = t1616 * t2272;
10776   t7403 = t824 * t7402;
10777   t7406 = 0.1e1 / t310 / t2119;
10778   t7407 = t130 * t7406;
10779   t7408 = t7407 * t7108;
10780   t7409 = t533 * t7408;
10781   t7412 = t827 * t7132;
10782   t7413 = t533 * t7412;
10783   t7416 = t1616 * t2253;
10784   t7417 = t807 * t7416;
10785   t7419 = t814 * t2120;
10786   t7420 = t2233 * t7419;
10787   t7423 = t2257 * t760;
10788   t7424 = t2233 * t7423;
10789   t7427 = t105 * t827;
10790   t7428 = t7427 * t2234;
10791   t7429 = t2232 * t7428;
10792   t7431 = t2252 * t760;
10793   t7432 = t2233 * t7431;
10794   t7435 = t814 * t2124;
10795   t7436 = t2233 * t7435;
10796   t7439 = t1683 * t2271;
10797   t7440 = t814 * t2115;
10798   t7441 = t7439 * t7440;
10799   t7444 = t3054 * t2231;
10800   t7445 = t2220 * t760;
10801   t7446 = t2233 * t7445;
10802   t7449 = t7357 / 0.384e3 - t807 * t7361 / 0.512e3 + t2217 * t7367 / 0.256e3 + t7371 / 0.1152e4 + t7376 - t7381 * t7385 / 0.256e3 + t2217 * t7390 / 0.256e3 - t824 * t7395 / 0.384e3 + 0.5e1 / 0.2304e4 * t824 * t7399 + 0.5e1 / 0.3456e4 * t7403 + 0.5e1 / 0.2592e4 * t824 * t7409 + t824 * t7413 / 0.2304e4 - t7417 / 0.768e3 + t2232 * t7420 / 0.384e3 - t2232 * t7424 / 0.768e3 - t7429 / 0.576e3 - t2232 * t7432 / 0.768e3 - t2232 * t7436 / 0.768e3 - 0.5e1 / 0.2304e4 * t2232 * t7441 + t7444 * t7446 / 0.384e3;
10803   t7450 = t7355 + t7449;
10804   t7451 = params->beta * t7450;
10805   t7453 = t2285 * t187;
10806   t7460 = t836 * t836;
10807   t7461 = 0.1e1 / t7460;
10808   t7462 = t62 * t7461;
10809   t7463 = t2293 * t844;
10810   t7464 = t7462 * t7463;
10811   t7467 = t844 * t2311;
10812   t7468 = t2292 * t7467;
10813   t7471 = t7378 * t345;
10814   t7475 = t2214 * t832;
10815   t7479 = t345 * t813;
10816   t7486 = t803 * t2284;
10817   t7498 = t345 * t2251;
10818   t7506 = t188 * t347 * t7450 + 0.6e1 * t2220 * t262 * t7475 - 0.3e1 * t2229 * t7498 * t814 - 0.3e1 * t2252 * t2301 * t262 - 0.3e1 * t2257 * t2301 * t262 + 0.6e1 * t2297 * t262 * t7388 - t262 * t7324 * t839 - t262 * t7344 * t839 - 0.6e1 * t262 * t7383 * t7471 - 0.3e1 * t262 * t7486 * t814 + 0.6e1 * t3054 * t7365 * t7479;
10819   t7507 = t838 * t7506;
10820   t7509 = 0.6e1 * t2287 * t2294 - 0.3e1 * t2287 * t2312 + t352 * t7451 - 0.3e1 * t7453 * t845 - 0.6e1 * t7464 * t835 + 0.6e1 * t7468 * t835 - t7507 * t835;
10821   t7517 = t2318 * t847;
10822   t7519 = 0.1e1 / t2319 / t354;
10823   t7522 = -0.3109070e-1 * t7137 + 0.30000000000000000000e1 * t7139 * t788 - 0.60000000000000000000e1 * t7142 * t2138 + 0.30000000000000000000e1 * t2131 * t2180 + 0.96491876992155210402e2 * t7147 * t2188 + 0.60000000000000000000e1 * t2185 * t7151 - 0.60000000000000000000e1 * t2136 * t7154 - 0.19298375398431042081e3 * t7159 * t7160 + 0.10000000000000000000e1 * t769 * t7238 + 0.96491876992155210402e2 * t2185 * t7242 + 0.20690405167709360120e4 * t7247 * t7250 + t169 * t7509 * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t2314 * t2320 * t847 + t169 * t7517 * t7519;
10824   t7523 = my_piecewise3(t359, t7522, t6407);
10825   t7532 = t7086 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t2102 * t413 + 0.3e1 / 0.2e1 * t752 * t1454 + t297 * t5868 / 0.2e1 + t7523 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t2325 * t436 + 0.3e1 / 0.2e1 * t853 * t1463 + t360 * t5879 / 0.2e1;
10826   t7534 = t857 * t1516;
10827   t7543 = -0.3e1 * t1474 * t857 - 0.12e2 * t1476 * t1485 - 0.6e1 * t1476 * t1517 - 0.6e1 * t1482 * t857 - 0.6e1 * t1517 * t2448 + 0.3e1 * t2101 * t866 + t227 * t6583 - 0.3e1 * t2331 * t447 + 0.3e1 * t2353 * t751 - 0.6e1 * t363 * t6409 - t363 * t6537 + t366 * t6407 - 0.2e1 * t449 * t5805 - 0.6e1 * t449 * t5808 - 0.6e1 * t449 * t7534 - 0.6e1 * t465 * t6587 - t7532 * t98;
10828   t7544 = t7 * t7543;
10829   t7550 = params->d * t7543;
10830   t7558 = t1481 * t464;
10831   t7561 = t863 * t1516;
10832   t7564 = t97 * t5804;
10833   t7567 = 0.9e1 * t2363 * t875 + 0.18e2 * t2367 * t873 + 0.9e1 * t2370 * t873 + 0.6e1 * t369 * t7558 + 0.18e2 * t369 * t7561 + 0.3e1 * t369 * t7564 + t370 * t7550;
10834   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10835     v3rho3[0] = 0.3e1 * t2359 * t878 + 0.3e1 * t2373 * t870 + t372 * t7544 + t7567 * t872 + 0.3e1 * t5732 + 0.6e1 * t5734 + 0.3e1 * t5736;
10836 
10837   t7571 = 0.2e1 * t3126 * t372;
10838   t7573 = 0.2e1 * t1122 * t878;
10839   t7578 = t1113 * t1398;
10840   t7583 = t3118 * t443;
10841   t7586 = t1116 * t1470;
10842   t7591 = t880 * t1396;
10843   t7594 = t1481 * t912;
10844   t7603 = t3103 * t1516;
10845   t7608 = t3107 * t443;
10846   t7611 = t1116 * t1398;
10847   t7616 = -0.16e2 * t1392 * t3104 - 0.16e2 * t1392 * t3112 + 0.40e2 * t1397 * t7608 + 0.40e2 * t1397 * t7611 + 0.2e1 * t1481 * t881 + 0.20e2 * t2338 * t7591 - 0.16e2 * t2342 * t2378 - 0.4e1 * t2345 * t2378 + 0.2e1 * t2350 * t881 + 0.40e2 * t3100 * t6445 - 0.16e2 * t400 * t7583 - 0.8e1 * t400 * t7586 - 0.8e1 * t400 * t7594 - 0.8e1 * t400 * t7603 - 0.120e3 * t6453 * t7578;
10848   t7626 = t5770 * t887 * t1423;
10849   t7629 = t31 * t1422;
10850   t7630 = t1402 * t414;
10851   t7633 = t2396 * t1427;
10852   t7636 = t37 * t377;
10853   t7639 = t2400 * t15;
10854   t7647 = t5786 * t897 * t1432;
10855   t7650 = t45 * t1431;
10856   t7651 = t1402 * t418;
10857   t7654 = t2406 * t1436;
10858   t7657 = t49 * t377;
10859   t7660 = t2410 * t15;
10860   t7663 = 0.440e3 / 0.27e2 * t1417 * t888 - 0.160e3 / 0.27e2 * t410 * t2397 - 0.80e2 / 0.9e1 * t410 * t2401 - 0.10e2 / 0.27e2 * t31 * t7626 + 0.20e2 / 0.9e1 * t7629 * t7630 + 0.10e2 / 0.9e1 * t31 * t7633 + 0.5e1 / 0.3e1 * t31 * t7636 - 0.5e1 * t31 * t7639 - 0.80e2 / 0.27e2 * t894 * t1433 - 0.40e2 / 0.9e1 * t894 * t1437 - 0.10e2 / 0.27e2 * t45 * t7647 - 0.20e2 / 0.9e1 * t7650 * t7651 + 0.10e2 / 0.9e1 * t45 * t7654 - 0.5e1 / 0.3e1 * t45 * t7657 + 0.5e1 * t45 * t7660 + t6502;
10861   t7664 = t25 * t7663;
10862   t7681 = t6512 * t886;
10863   t7684 = t1450 * t4;
10864   t7685 = t377 * t413;
10865   t7694 = t6521 * t905;
10866   t7697 = t1459 * t4;
10867   t7698 = t377 * t436;
10868   t7707 = -0.280e3 / 0.27e2 * t7681 * t1451 + 0.112e3 / 0.9e1 * t7684 * t7685 + 0.28e2 / 0.9e1 * t2420 * t1454 - 0.8e1 / 0.3e1 * t431 * t377 + 0.8e1 * t2423 * t15 - 0.280e3 / 0.27e2 * t7694 * t1460 - 0.112e3 / 0.9e1 * t7697 * t7698 + 0.28e2 / 0.9e1 * t2426 * t1463 + 0.8e1 / 0.3e1 * t435 * t377 - 0.8e1 * t2429 * t15;
10869   t7708 = t66 * t7707;
10870   t7711 = 0.4e1 * t377;
10871   t7712 = 0.12e2 * t5779;
10872   t7713 = -t7711 - t7712 + t6462;
10873   t7714 = t7713 * t59;
10874   t7717 = t2386 * t426;
10875   t7722 = t883 * t1442;
10876   t7729 = t1406 * t901;
10877   t7732 = t404 * t2414;
10878   t7737 = t7664 * t74 / 0.24e2 + t2415 * t440 / 0.12e2 + t902 * t1467 / 0.24e2 + t1407 * t909 / 0.24e2 + t1410 * t909 / 0.12e2 + t405 * t2433 / 0.12e2 + t1443 * t909 / 0.24e2 + t427 * t2433 / 0.12e2 + t60 * t7708 / 0.24e2 + t7714 * t74 / 0.24e2 + t7717 * t74 / 0.12e2 + t2387 * t440 / 0.12e2 + t7722 * t74 / 0.24e2 + t2389 * t440 / 0.12e2 + t884 * t1467 / 0.24e2 + t7729 * t74 / 0.24e2 + t7732 * t74 / 0.12e2 + t2392 * t440 / 0.12e2;
10879   t7738 = t97 * t7737;
10880   t7747 = t1113 * t1470;
10881   t7750 = t96 * t2436;
10882   t7751 = t7750 * t464;
10883   t7754 = t3115 * t443;
10884   t7757 = t1397 * t96;
10885   t7758 = t2383 * t464;
10886   t7763 = t2376 * t399;
10887   t7768 = 0.4e1 * t6414;
10888   t7769 = 0.12e2 * t6416;
10889   t7770 = 0.48e2 * t6423;
10890   t7771 = 0.80e2 * t6425;
10891   t7772 = 0.180e3 * t6432;
10892   t7773 = 0.252e3 * t6434;
10893   t7774 = t7768 + t7769 - t6419 - t6422 + t7770 + t7771 - t6428 - t6431 + t7772 + t7773 - t6439;
10894   t7775 = t7774 * t80;
10895   t7777 = t1516 * t928;
10896   t7780 = t464 * t2478;
10897   t7786 = t1440 * t924;
10898   t7789 = 0.4e1 / 0.3e1 * t424 * t2458;
10899   t7791 = 0.2e1 / 0.3e1 * t424 * t2474;
10900   t7793 = t5751 * t923 * t1494;
10901   t7796 = t1493 * t2473;
10902   t7797 = t7796 * t459;
10903   t7800 = t2457 * t1511;
10904   t7811 = t85 * t1422;
10905   t7826 = t89 * t1431;
10906   t7835 = 0.200e3 / 0.27e2 * t1498 * t888 - 0.100e3 / 0.27e2 * t454 * t2397 - 0.50e2 / 0.9e1 * t454 * t2401 - 0.10e2 / 0.27e2 * t85 * t7626 + 0.20e2 / 0.9e1 * t7811 * t7630 + 0.10e2 / 0.9e1 * t85 * t7633 + 0.5e1 / 0.3e1 * t85 * t7636 - 0.5e1 * t85 * t7639 - 0.50e2 / 0.27e2 * t919 * t1433 - 0.25e2 / 0.9e1 * t919 * t1437 - 0.10e2 / 0.27e2 * t89 * t7647 - 0.20e2 / 0.9e1 * t7826 * t7651 + 0.10e2 / 0.9e1 * t89 * t7654 - 0.5e1 / 0.3e1 * t89 * t7657 + 0.5e1 * t89 * t7660;
10907   t7836 = t453 * t7835;
10908   t7839 = -t5744 - 0.22e2 / 0.9e1 * t5745 - 0.2e1 / 0.3e1 * t5747 + t5749 / 0.3e1 - 0.11e2 / 0.9e1 * t7786 - t7789 + t7791 - 0.3e1 / 0.4e1 * t58 * t7793 + t58 * t7797 / 0.2e1 + t58 * t7800 / 0.4e1 - t58 * t7836 / 0.8e1;
10909   t7840 = my_piecewise3(t95, 0, t7839);
10910   t7841 = t96 * t7840;
10911   t7844 = -0.4e1 * t1113 * t6442 + 0.2e1 * t1116 * t1391 - 0.8e1 * t1392 * t3107 + 0.20e2 * t1397 * t7747 + 0.4e1 * t2377 * t863 + 0.4e1 * t3115 * t397 + 0.4e1 * t3118 * t397 - 0.4e1 * t400 * t7738 - 0.16e2 * t400 * t7751 - 0.16e2 * t400 * t7754 + 0.80e2 * t7757 * t7758 - 0.8e1 * t7763 * t860 + t7775 * t97 + 0.2e1 * t7777 * t81 + 0.4e1 * t7780 * t81 + 0.2e1 * t7841 * t81;
10912   t7845 = t7616 + t7844;
10913   t7847 = t446 * t464;
10914   t7852 = t1110 * t1516;
10915   t7855 = t2331 * t928;
10916   t7858 = 0.11696447245269292414e1 * t5840;
10917   t7859 = 0.58482236226346462070e0 * t5843;
10918   t7860 = 0.34631718211362927518e2 * t5845;
10919   t7861 = t991 * t101;
10920   t7862 = t7861 * t1933;
10921   t7863 = 0.10843581300301739842e-1 * t7862;
10922   t7864 = t2759 * t1848;
10923   t7865 = 0.58482236226346462070e0 * t7864;
10924   t7869 = 0.2e1 * t5914;
10925   t7870 = t746 * t677;
10926   t7874 = 0.4e1 * t6040;
10927   t7875 = -0.6e1 * t1768 * t2850 * t7870 - 0.3e1 * t1768 * t6401 * t999 - t5813 + t5839 + t5855 + t5889 + t5893 - t5897 - t5903 - t5912 + t6038 - t6043 - t6049 - t7858 - t7859 - t7860 + t7863 - t7865 + t7869 + t7874;
10928   t7879 = t2710 * t149;
10929   t7881 = 0.11696447245269292414e1 * t7879 * t668;
10930   t7882 = t1868 * t224;
10931   t7889 = t1033 * t6117;
10932   t7893 = t2858 * t1881;
10933   t7896 = 0.24e2 * t6050;
10934   t7897 = 0.32e2 * t6056;
10935   t7900 = t2710 * t61;
10936   t7902 = 0.36622894612013090108e-3 * t7900 * t663;
10937   t7903 = 0.16e2 * t6061;
10938   t7904 = 0.4e1 * t6063;
10939   t7905 = 0.4e1 * t6065;
10940   t7909 = t2759 * t1854;
10941   t7910 = 0.11696447245269292414e1 * t7909;
10942   t7911 = t613 * t2713;
10943   t7912 = 0.8e1 * t7911;
10944   t7916 = 0.6e1 * t169 * t7882 * t999 + 0.6e1 * t1768 * t1769 * t2728 + 0.3e1 * t1768 * t1881 * t2853 + 0.12e2 * t1769 * t2803 * t2857 + 0.6e1 * t1868 * t2853 * t2857 - t2082 * t2849 * t2850 + 0.2e1 * t2090 * t2849 * t7889 + 0.6e1 * t2857 * t7893 + t5987 + t5991 + t6053 - t7881 - t7896 - t7897 - t7902 - t7903 - t7904 - t7905 + t7910 + t7912;
10945   t7918 = t2844 * t748;
10946   t7922 = t2759 * t1834;
10947   t7923 = 0.17315859105681463759e2 * t7922;
10948   t7924 = t224 * t2728;
10949   t7931 = t616 * t2713;
10950   t7932 = 0.8e1 * t7931;
10951   t7934 = 0.8e1 * t613 * t2711;
10952   t7936 = 0.8e1 * t616 * t2711;
10953   t7937 = 0.23392894490538584828e1 * t6088;
10954   t7938 = 0.21687162600603479684e-1 * t6094;
10955   t7939 = t2690 * t1929;
10956   t7940 = 0.24415263074675393405e-3 * t7939;
10957   t7941 = 0.12e2 * t6110;
10958   t7942 = 0.40e2 * t6112;
10959   t7943 = t5861 * t886;
10960   t7946 = t1780 * t4;
10961   t7955 = t5872 * t905;
10962   t7958 = t1785 * t4;
10963   t7968 = (-0.8e1 / 0.27e2 * t7943 * t1451 + 0.16e2 / 0.9e1 * t7946 * t7685 + 0.4e1 / 0.9e1 * t2697 * t1454 + 0.8e1 / 0.3e1 * t67 * t377 - 0.8e1 * t2700 * t15 - 0.8e1 / 0.27e2 * t7955 * t1460 - 0.16e2 / 0.9e1 * t7958 * t7698 + 0.4e1 / 0.9e1 * t2703 * t1463 - 0.8e1 / 0.3e1 * t70 * t377 + 0.8e1 * t2706 * t15) * t133;
10964   t7969 = t7968 * t161;
10965   t7970 = t128 * t7969;
10966   t7971 = 0.3e1 * t1768 * t6076 * t999 + 0.6e1 * t1768 * t677 * t7918 + 0.12e2 * t2857 * t677 * t7924 - t6083 + t6087 + t6092 + t6098 - t6101 - t6104 + t6108 - t7923 - t7932 + t7934 - t7936 + t7937 + t7938 + t7940 - t7941 + t7942 + t7970;
10967   t7972 = t2844 * t2093;
10968   t7977 = 0.19751673498613801407e-1 * t7968 * t159;
10969   t7978 = t1912 * t992;
10970   t7979 = 0.20e2 * t7978;
10971   t7980 = t1404 * t992;
10972   t7981 = 0.12e2 * t7980;
10973   t7982 = t1917 * t992;
10974   t7983 = 0.32e2 * t7982;
10975   t7984 = 0.48e2 * t6125;
10976   t7985 = 0.80e2 * t6128;
10977   t7986 = t2710 * t656;
10978   t7988 = 0.2e1 * t128 * t7986;
10979   t7991 = t69 * t4;
10980   t8002 = t72 * t4;
10981   t8011 = 0.4e1 / 0.27e2 * t904 * t1451 - 0.4e1 / 0.9e1 * t7991 * t7685 - t2716 * t1454 / 0.9e1 + 0.2e1 / 0.3e1 * t672 * t377 - 0.2e1 * t2719 * t15 + 0.4e1 / 0.27e2 * t906 * t1460 + 0.4e1 / 0.9e1 * t8002 * t7698 - t2722 * t1463 / 0.9e1 - 0.2e1 / 0.3e1 * t674 * t377 + 0.2e1 * t2725 * t15;
10982   t8016 = 0.7e1 / 0.24e2 * t6315 * t2736;
10983   t8018 = t254 * t2739 * t677;
10984   t8022 = t254 * t1003 * t1881;
10985   t8026 = t254 * t1003 * t1868;
10986   t8029 = t103 * t2784;
10987   t8031 = t2746 * t8029 * t2748;
10988   t8034 = t6297 * t1020;
10989   t8037 = 0.7e1 / 0.576e3 * t2037 * t2809;
10990   t8039 = t726 * t532 * t8011;
10991   t8043 = 0.7e1 / 0.72e2 * t1863 * t2740;
10992   t8044 = t102 * t8011;
10993   t8045 = t254 * t8044;
10994   t8049 = -t8016 + t1867 * t8018 / 0.8e1 + t1867 * t8022 / 0.16e2 - t6319 * t8026 / 0.4e1 - t6161 + t2744 * t8031 / 0.768e3 - 0.119e3 / 0.3456e4 * t8034 + t8037 - t722 * t8039 / 0.768e3 + t8043 - t688 * t8045 / 0.48e2 - 0.7e1 / 0.576e3 * t6183;
10995   t8050 = t6300 * t532;
10996   t8051 = t999 * t707;
10997   t8052 = t8051 * t1907;
10998   t8053 = t8050 * t8052;
10999   t8056 = t1904 * t532;
11000   t8057 = t1013 * t1892;
11001   t8058 = t707 * t677;
11002   t8060 = t8056 * t8057 * t8058;
11003   t8067 = 0.7e1 / 0.576e3 * t6182 * t2798;
11004   t8069 = t1905 * t2796 * t2024;
11005   t8073 = t2746 * t2747 * t2024;
11006   t8077 = t262 * t1888 * t715;
11007   t8079 = 0.7e1 / 0.1152e4 * t8077 * t2750;
11008   t8081 = t1905 * t2796 * t1893;
11009   t8085 = t262 * t6260 * t204;
11010   t8086 = t6263 * t1891;
11011   t8088 = t2746 * t2747 * t8086;
11012   t8092 = t2746 * t2747 * t1893;
11013   t8096 = t2746 * t2747 * t2019;
11014   t8099 = -0.5e1 / 0.384e3 * t1903 * t8053 - t2744 * t8060 / 0.192e3 - 0.119e3 / 0.6912e4 * t6199 + 0.7e1 / 0.4608e4 * t6201 - 0.7e1 / 0.2304e4 * t6205 - t8067 + t1903 * t8069 / 0.768e3 - t1903 * t8073 / 0.3072e4 - t8079 - t2744 * t8081 / 0.384e3 - t8085 * t8088 / 0.512e3 + t2744 * t8092 / 0.512e3 - t1903 * t8096 / 0.3072e4;
11015   t8102 = t1905 * t8029 * t1907;
11016   t8106 = t1905 * t2747 * t6166;
11017   t8110 = t2746 * t8029 * t708;
11018   t8114 = t6301 * t2747 * t6302;
11019   t8117 = t6324 * t1004;
11020   t8127 = t2746 * t2747 * t6176;
11021   t8130 = t1903 * t8102 / 0.384e3 + t1903 * t8106 / 0.768e3 - t1903 * t8110 / 0.1536e4 - 0.5e1 / 0.768e3 * t1903 * t8114 - 0.35e2 / 0.216e3 * t8117 + 0.7e1 / 0.4608e4 * t6207 - 0.35e2 / 0.1152e4 * t6280 + 0.7e1 / 0.1152e4 * t6290 - 0.119e3 / 0.1728e4 * t6298 - 0.7e1 / 0.48e2 * t6316 - 0.35e2 / 0.108e3 * t6325 + 0.7e1 / 0.144e3 * t6327 + t2744 * t8127 / 0.1536e4;
11022   t8132 = 0.7e1 / 0.576e3 * t6182 * t2756;
11023   t8134 = 0.7e1 / 0.2304e4 * t6182 * t2791;
11024   t8135 = t999 * t1868;
11025   t8137 = t6285 * t532 * t8135;
11026   t8140 = t6198 * t1016;
11027   t8143 = 0.35e2 / 0.576e3 * t2037 * t2805;
11028   t8144 = t2728 * t677;
11029   t8146 = t2043 * t532 * t8144;
11030   t8149 = t999 * t1881;
11031   t8151 = t2043 * t532 * t8149;
11032   t8155 = 0.7e1 / 0.2304e4 * t1899 * t2787;
11033   t8156 = -t5813 + t5839 - t7858 - t7859 - t7860 + t5855 + t7863 + t5889 + t5893 - t5897 - t5903 - t5912 - t7865 + t7869 + t6038 + t7874;
11034   t8157 = -t6043 - t6049 - t7881 - t7896 + t5987 + t6053 - t7897 - t7902 - t7903 - t7904 - t7905 + t5991 + t7910 + t7912 - t7923 - t7932;
11035   t8159 = t7934 - t7936 - t6083 + t6087 + t7937 + t6092 + t7938 + t6098 - t6101 - t6104 + t6108 + t7940 - t7941 + t7942 + t7970 + t7977;
11036   t8160 = t991 * t1989;
11037   t8161 = t128 * t8160;
11038   t8162 = 0.18311447306006545054e-3 * t6214;
11039   t8163 = 0.48830526149350786810e-3 * t6224;
11040   t8164 = t7979 + t7981 - t7983 - t6123 + t7984 + t7985 - t6132 + t7988 + t8161 - t6027 + t6034 - t8162 - t6219 + t6223 + t8163 - t6229;
11041   t8167 = (t8156 + t8157 + t8159 + t8164) * t187;
11042   t8177 = t701 * t62;
11043   t8182 = t2041 * t999;
11044   t8183 = t8182 * t1868;
11045   t8186 = t724 * t2728;
11046   t8187 = t8186 * t677;
11047   t8190 = t2777 * t1881;
11048   t8193 = t703 * t8011;
11049   t8196 = -0.12e2 * t1008 * t2012 + 0.3e1 * t1008 * t2015 + 0.3e1 * t1010 * t2007 + 0.3e1 * t190 * t8193 - t192 * t8167 + 0.6e1 * t2770 * t704 + 0.60e2 * t2776 * t8183 - 0.24e2 * t2776 * t8187 - 0.12e2 * t2776 * t8190 - 0.24e2 * t2778 * t8177 + 0.6e1 * t2781 * t701;
11050   t8197 = t8196 * t194;
11051   t8199 = t699 * t532 * t8197;
11052   t8202 = t103 * t2728;
11053   t8204 = t1905 * t8202 * t708;
11054   t8208 = t1905 * t2796 * t2019;
11055   t8211 = t1013 * t707;
11056   t8213 = t8056 * t8211 * t1907;
11057   t8216 = -t8132 + t8134 - 0.5e1 / 0.128e3 * t722 * t8137 - 0.119e3 / 0.13824e5 * t8140 - t8143 + 0.5e1 / 0.384e3 * t722 * t8146 + 0.5e1 / 0.768e3 * t722 * t8151 + t8155 - t697 * t8199 / 0.3072e4 - t6332 + t1903 * t8204 / 0.384e3 + t1903 * t8208 / 0.768e3 + t1903 * t8213 / 0.384e3;
11058   t8218 = t8049 + t8099 + t8130 + t8216;
11059   t8219 = params->beta * t8218;
11060   t8221 = t2813 * t187;
11061   t8233 = t6346 * t1030 * t2061;
11062   t8236 = t2841 * t743;
11063   t8237 = t2060 * t8236;
11064   t8241 = t2060 * t1030 * t2079;
11065   t8245 = t188 * t62 * t6259;
11066   t8249 = t731 * t1013;
11067   t8253 = t214 * t2784;
11068   t8280 = t1887 * t1023;
11069   t8284 = t694 * t2812;
11070   t8294 = -t1014 * t262 * t6370 + t188 * t197 * t8218 + 0.2e1 * t1893 * t262 * t8280 + 0.6e1 * t1893 * t2823 * t2824 - t2019 * t262 * t2836 - t2019 * t2824 * t2833 - t2024 * t262 * t2836 - t2024 * t2824 * t2833 - 0.2e1 * t2069 * t262 * t2785 - 0.2e1 * t262 * t708 * t8284 - t262 * t738 * t8197 + 0.4e1 * t2748 * t2823 * t8249 + 0.4e1 * t2748 * t2823 * t8253 + 0.2e1 * t2823 * t2824 * t6176 - 0.6e1 * t2824 * t8086 * t8245 - 0.2e1 * t2833 * t708 * t8249 - 0.2e1 * t2833 * t708 * t8253;
11071   t8295 = t737 * t8294;
11072   t8297 = -t1031 * t6337 + 0.4e1 * t2055 * t2819 - 0.2e1 * t2055 * t2842 + 0.2e1 * t2062 * t2815 - t2080 * t2815 + t221 * t8219 - 0.6e1 * t734 * t8233 + 0.4e1 * t734 * t8237 + 0.2e1 * t734 * t8241 - t734 * t8295 - 0.2e1 * t744 * t8221;
11073   t8301 = t169 * t175 * t748 * t8297 + 0.3e1 * t169 * t671 * t8011 - 0.2e1 * t2849 * t746 * t7972 - t6027 + t6034 - t6123 - t6132 - t6219 + t6223 - t6229 + t7977 + t7979 + t7981 - t7983 + t7984 + t7985 + t7988 + t8161 - t8162 + t8163;
11074   t8303 = t7875 + t7916 + t7971 + t8301;
11075   t8305 = t3091 * t464;
11076   t8308 = t82 * t1516;
11077   t8328 = t912 * t1398;
11078   t8331 = t2436 * t443;
11079   t8334 = t912 * t1470;
11080   t8339 = -0.8e1 * t1392 * t2436 + 0.40e2 * t1397 * t8331 + 0.20e2 * t1397 * t8334 + 0.20e2 * t1398 * t7591 - 0.4e1 * t1470 * t2378 + 0.40e2 * t2383 * t6445 - 0.4e1 * t400 * t7737 - 0.8e1 * t443 * t7763 - 0.4e1 * t6442 * t912 - 0.120e3 * t6453 * t8328 + t7775;
11081   t8340 = t8339 * t97;
11082   t8342 = t2439 * t96;
11083   t8345 = -0.2e1 * t1110 * t1482 - 0.4e1 * t1476 * t2451 + t227 * t7845 - t2331 * t916 - 0.4e1 * t2448 * t2451 + 0.2e1 * t2866 * t866 + 0.2e1 * t3121 * t751 - t363 * t8340 + t366 * t8303 - 0.2e1 * t449 * t7852 - 0.2e1 * t449 * t7855 - 0.4e1 * t449 * t8305 - 0.4e1 * t465 * t8342 - 0.4e1 * t7847 * t929 - 0.2e1 * t8308 * t929;
11084   t8356 = t363 * t7840;
11085   t8359 = t857 * t2478;
11086   t8367 = t915 * t1481;
11087   t8374 = t950 * t1549;
11088   t8377 = t2681 * t1763;
11089   t8380 = t2505 * t484;
11090   t8385 = t936 * t1597;
11091   t8392 = t2489 * t1451;
11092   t8393 = t258 * t8392;
11093   t8396 = t1526 * t4;
11094   t8397 = t8396 * t413;
11095   t8398 = t1582 * t8397;
11096   t8401 = t2494 * t1454;
11097   t8402 = t258 * t8401;
11098   t8405 = t1531 * t4;
11099   t8406 = t8405 * t413;
11100   t8407 = t258 * t8406;
11101   t8410 = t6610 * t886;
11102   t8411 = t8410 * t1451;
11103   t8412 = t560 * t8411;
11104   t8413 = t106 * t8412;
11105   t8416 = 0.27785333333333333334e0 * t606 * t2543;
11106   t8417 = t606 * t2540;
11107   t8419 = t2489 * t1454;
11108   t8420 = t1582 * t8419;
11109   t8423 = t6604 * t886;
11110   t8424 = t8423 * t1451;
11111   t8425 = t6680 * t8424;
11112   t8428 = t277 * t475;
11113   t8430 = t228 * t3878 * t8428;
11114   t8433 = t257 * t475;
11115   t8441 = t1805 * t933;
11116   t8443 = t599 * t2491;
11117   t8444 = 0.4e1 / 0.27e2 * t8443;
11118   t8445 = t599 * t2496;
11119   t8446 = 0.4e1 / 0.9e1 * t8445;
11120   t8447 = t103 * t1858;
11121   t8448 = t101 * t8447;
11122   t8449 = t8448 * t2502;
11123   t8451 = t1698 * t8424;
11124   t8452 = t106 * t8451;
11125   t8455 = t560 * t8397;
11126   t8456 = t2500 * t8455;
11127   t8458 = t560 * t8419;
11128   t8459 = t106 * t8458;
11129   t8461 = t474 * t8392;
11130   t8462 = t106 * t8461;
11131   t8464 = t474 * t8406;
11132   t8465 = t2500 * t8464;
11133   t8467 = t474 * t8401;
11134   t8468 = t106 * t8467;
11135   t8471 = -t6702 - 0.8e1 / 0.27e2 * t6595 + 0.2e1 / 0.27e2 * t6597 - 0.2e1 / 0.9e1 * t6599 + t6601 / 0.9e1 - 0.4e1 / 0.27e2 * t8441 + t8444 - t8446 + 0.22e2 / 0.9e1 * t8449 - 0.10e2 / 0.27e2 * t8452 + 0.4e1 / 0.3e1 * t8413 - 0.8e1 / 0.9e1 * t8456 - 0.2e1 / 0.9e1 * t8459 - 0.2e1 * t8462 + 0.8e1 / 0.3e1 * t8465 + 0.2e1 / 0.3e1 * t8468 - 0.2e1 / 0.3e1 * t8430;
11136   t8474 = t1582 * t8411;
11137   t8477 = 0.22954444444444444444e0 * t8443;
11138   t8485 = -0.20839000000000000000e0 * t241 * t6670 * t8433 + 0.35297250000000000000e1 * t486 * t8471 + 0.20839000000000000000e0 * t119 * t8474 + t8477 - 0.68863333333333333333e0 * t8445 - 0.57386111111111111112e0 * t8452 - 0.13772666666666666667e1 * t8456 - 0.34431666666666666667e0 * t8459 - 0.30988500000000000000e1 * t8462 + 0.41318000000000000000e1 * t8465 + 0.10329500000000000000e1 * t8468;
11139   t8487 = t1814 * t946;
11140   t8495 = t6666 * t940;
11141   t8498 = t1571 * t2524;
11142   t8506 = t6730 * t940;
11143   t8509 = t1554 * t2524;
11144   t8513 = t116 * t102 * t202;
11145   t8514 = t8513 * t2548;
11146   t8522 = 0.31558125000000000000e0 * t2532 * t1563 - 0.17648625000000000000e1 * t2516 * t1563 + 0.26472937500000000000e1 * t8506 * t1555 - 0.35297250000000000000e1 * t8509 * t488 + 0.90302333333333333334e0 * t8514 - 0.45908888888888888888e0 * t6595 + 0.11477222222222222222e0 * t6597 - 0.34431666666666666666e0 * t6599 + 0.17215833333333333333e0 * t6601 + 0.63116250000000000000e0 * t493 * t8471 - t6733;
11147   t8524 = -0.62517000000000000000e0 * t119 * t8393 - 0.13892666666666666667e0 * t2547 * t8398 + 0.20839000000000000000e0 * t119 * t8402 + 0.83356000000000000000e0 * t2547 * t8407 + 0.20659000000000000000e1 * t8413 - t8416 + 0.46308888888888888889e-1 * t8417 - 0.34731666666666666667e-1 * t119 * t8420 - 0.46308888888888888889e-1 * t119 * t8425 - 0.10329500000000000000e1 * t8430 + t8485 - 0.11577222222222222222e0 * t8487 - 0.22954444444444444444e0 * t8441 + 0.37874833333333333334e1 * t8449 - t6673 - 0.23154444444444444444e0 * t6674 + 0.69463333333333333333e-1 * t6676 + 0.23154444444444444444e-1 * t6678 - 0.13892666666666666667e0 * t6687 - 0.15779062500000000000e0 * t8495 * t1555 + 0.63116250000000000000e0 * t8498 * t488 + t8522;
11148   t8525 = t8524 * t506;
11149   t8528 = t6670 * t2574;
11150   t8529 = t517 * t8528;
11151   t8535 = t498 * t953;
11152   t8536 = t517 * t8535;
11153   t8538 = t963 * t1527;
11154   t8539 = t6841 * t8538;
11155   t8542 = t1582 * t475;
11156   t8543 = t1813 * t8542;
11157   t8551 = -0.7e1 / 0.432e3 * t8529 + t1631 * t2571 / 0.27e2 - t1631 * t2575 / 0.27e2 - t8536 / 0.1296e4 - 0.5e1 / 0.6912e4 * t1682 * t8539 + t255 * t8543 / 0.144e3 - t6763 / 0.162e3 - t6766 / 0.648e3 - t6779 / 0.432e3 + t6786 / 0.864e3 + t6789 / 0.648e3;
11158   t8552 = t2579 * t6936;
11159   t8553 = t2578 * t8552;
11160   t8556 = t277 * t2612;
11161   t8557 = t8556 * t540;
11162   t8558 = t2578 * t8557;
11163   t8561 = t2579 * t1717;
11164   t8562 = t2578 * t8561;
11165   t8565 = t532 * t229;
11166   t8566 = t8565 * t2641;
11167   t8568 = t557 * t8566 / 0.864e3;
11168   t8569 = t8565 * t2636;
11169   t8571 = 0.5e1 / 0.5184e4 * t557 * t8569;
11170   t8572 = t559 * t475;
11171   t8574 = t210 * t1173 * t8572;
11172   t8579 = t6950 * t2590;
11173   t8581 = t1682 * t8579 / 0.1728e4;
11174   t8582 = t2613 * t476;
11175   t8583 = t1684 * t8582;
11176   t8586 = t963 * t1536;
11177   t8587 = t1684 * t8586;
11178   t8590 = t932 * t1621;
11179   t8591 = t1684 * t8590;
11180   t8594 = t1671 * t8553 / 0.768e3 - t531 * t8558 / 0.768e3 - t531 * t8562 / 0.1536e4 - t8568 + t8571 + t275 * t8574 / 0.1152e4 + t6947 * t2591 / 0.216e3 - t8581 - t1682 * t8583 / 0.1152e4 - t1682 * t8587 / 0.2304e4 - t1682 * t8591 / 0.2304e4;
11181   t8598 = t6950 * t2625;
11182   t8600 = t1682 * t8598 / 0.1728e4;
11183   t8601 = t963 * t1532;
11184   t8602 = t1684 * t8601;
11185   t8605 = t932 * t1673;
11186   t8606 = t1684 * t8605;
11187   t8611 = t1616 * t2614;
11188   t8613 = t531 * t8611 / 0.1152e4;
11189   t8616 = t932 * t1717;
11190   t8617 = t1684 * t8616;
11191   t8622 = t6947 * t2626 / 0.216e3 - t8600 + t1682 * t8602 / 0.1152e4 + t6828 * t8606 / 0.1152e4 + t1628 * t2615 / 0.144e3 - t8613 + 0.19e2 / 0.1296e4 * t7006 * t969 - t1682 * t8617 / 0.2304e4 + 0.11e2 / 0.324e3 * t6805 + t6807 / 0.81e2 + t6811;
11192   t8623 = t962 * t1672;
11193   t8625 = t539 * t475 * t413;
11194   t8626 = t8623 * t8625;
11195   t8627 = t1684 * t8626;
11196   t8630 = t540 * t413;
11197   t8631 = t2494 * t8630;
11198   t8632 = t1684 * t8631;
11199   t8635 = t2489 * t8630;
11200   t8636 = t6841 * t8635;
11201   t8639 = t962 * t539;
11202   t8640 = t265 * t475;
11203   t8641 = t8640 * t413;
11204   t8642 = t8639 * t8641;
11205   t8643 = t1684 * t8642;
11206   t8646 = t6896 * t968;
11207   t8647 = t557 * t8646;
11208   t8651 = t532 * t682;
11209   t8652 = t8651 * t2646;
11210   t8653 = t557 * t8652;
11211   t8656 = t1628 * t2587 / 0.216e3;
11212   t8657 = t6896 * t964;
11213   t8658 = t531 * t8657;
11214   t8661 = t1723 * t2631 / 0.324e3;
11215   t8668 = 0.22831111111111111110e-1 * t8445;
11216   t8678 = -t6594 - 0.15220740740740740740e-1 * t6595 + 0.38051851851851851851e-2 * t6597 - 0.11415555555555555555e-1 * t6599 + 0.57077777777777777777e-2 * t6601 - 0.76103703703703703702e-2 * t8441 + 0.76103703703703703701e-2 * t8443 - t8668 + 0.12557111111111111110e0 * t8449 - 0.19025925925925925925e-1 * t8452 + 0.68493333333333333331e-1 * t8413 - 0.45662222222222222221e-1 * t8456 - 0.11415555555555555555e-1 * t8459 - 0.10274000000000000000e0 * t8462 + 0.13698666666666666666e0 * t8465 + 0.34246666666666666666e-1 * t8468 - 0.34246666666666666666e-1 * t8430;
11217   t8679 = t8678 * t251;
11218   t8684 = t936 * t1547;
11219   t8693 = t6639 * t949;
11220   t8698 = t6644 * t949;
11221   t8703 = t1548 * t2551;
11222   t8706 = t6656 * t949;
11223   t8711 = t8525 * t187;
11224   t8714 = t1598 * t2551;
11225   t8717 = t6745 * t949;
11226   t8718 = t6747 * t187;
11227   t8719 = t8718 * t1549;
11228   t8722 = t2608 * t1592;
11229   t8725 = 0.61370581910589784405e0 * t8679 * t187 - 0.39478417604357434478e2 * t8380 * t536 + 0.39478417604357434478e2 * t8684 * t1707 - 0.19739208802178717239e2 * t2508 * t1710 - 0.63489110255409872532e3 * t8385 * t1713 - 0.19739208802178717239e2 * t6636 * t959 + 0.78956835208714868956e2 * t8693 * t536 - 0.39478417604357434478e2 * t1543 * t2604 - 0.12697822051081974506e4 * t8698 * t2609 - 0.11843525281307230343e3 * t2607 * t1707 + 0.78956835208714868956e2 * t8703 * t536 + 0.38093466153245923519e4 * t8706 * t1713 + 0.39478417604357434478e2 * t2601 * t1710 - 0.19739208802178717239e2 * t485 * t8711 - 0.12697822051081974506e4 * t8714 * t2609 - 0.40841222780709261955e5 * t8717 * t8719 - 0.63489110255409872532e3 * t2607 * t8722;
11230   t8726 = t8725 * t265;
11231   t8727 = t474 * t8726;
11232   t8728 = t533 * t8727;
11233   t8731 = t6828 * t8627 / 0.576e3 + t1682 * t8632 / 0.576e3 - 0.5e1 / 0.3456e4 * t1682 * t8636 - t1682 * t8643 / 0.1152e4 - t8647 / 0.10368e5 - t1723 * t2647 / 0.108e3 - 0.5e1 / 0.3456e4 * t8653 + t8656 + t8658 / 0.6912e4 - t8661 - t531 * t8728 / 0.1536e4;
11234   t8734 = t1804 * t560;
11235   t8735 = t2501 * t540;
11236   t8736 = t8734 * t8735;
11237   t8746 = t1631 * t2563 / 0.162e3;
11238   t8747 = t559 * t1526;
11239   t8748 = t886 * t1451;
11240   t8749 = t8747 * t8748;
11241   t8750 = t2578 * t8749;
11242   t8753 = t1697 * t6610;
11243   t8754 = t8753 * t8748;
11244   t8755 = t2578 * t8754;
11245   t8758 = t886 * t1454;
11246   t8759 = t2640 * t8758;
11247   t8760 = t2578 * t8759;
11248   t8763 = -t1682 * t8736 / 0.576e3 + t6892 / 0.216e3 + t6898 / 0.3456e4 + t6900 / 0.648e3 + t6905 + 0.19e2 / 0.1296e4 * t6913 + 0.11e2 / 0.324e3 * t6760 * t954 - t8746 + t557 * t8750 / 0.384e3 - 0.5e1 / 0.1152e4 * t557 * t8755 - t557 * t8760 / 0.1152e4;
11249   t8764 = t532 * t1173;
11250   t8765 = t4 * t413;
11251   t8766 = t2640 * t8765;
11252   t8767 = t8764 * t8766;
11253   t8770 = t8556 * t2580;
11254   t8771 = t2578 * t8770;
11255   t8777 = t2634 * t8758;
11256   t8778 = t2578 * t8777;
11257   t8781 = t6994 * t6604;
11258   t8782 = t8781 * t8748;
11259   t8783 = t2578 * t8782;
11260   t8786 = t2634 * t8765;
11261   t8787 = t8764 * t8786;
11262   t8790 = t2579 * t1673;
11263   t8791 = t2578 * t8790;
11264   t8794 = t2579 * t1621;
11265   t8795 = t2578 * t8794;
11266   t8798 = t6822 * t1620;
11267   t8799 = t2579 * t8798;
11268   t8800 = t2578 * t8799;
11269   t8805 = -t557 * t8767 / 0.288e3 + t1671 * t8771 / 0.384e3 - t6925 / 0.2304e4 - 0.19e2 / 0.864e3 * t6889 * t965 + 0.5e1 / 0.6912e4 * t557 * t8778 + 0.5e1 / 0.2592e4 * t557 * t8783 + 0.5e1 / 0.1728e4 * t557 * t8787 + t1671 * t8791 / 0.256e3 - t531 * t8795 / 0.1536e4 - t6820 * t8800 / 0.256e3 - t6975 * t2582 / 0.72e2;
11270   t8807 = t8565 * t2581;
11271   t8809 = t1671 * t8807 / 0.576e3;
11272   t8810 = t2570 * t8392;
11273   t8813 = t2570 * t8401;
11274   t8816 = t1576 * t520;
11275   t8817 = t8816 * t8406;
11276   t8820 = t2566 * t8411;
11277   t8825 = t242 * t520;
11278   t8826 = t8825 * t2495;
11279   t8828 = t517 * t8826 / 0.216e3;
11280   t8829 = t242 * t1642;
11281   t8830 = t8829 * t2490;
11282   t8832 = t517 * t8830 / 0.324e3;
11283   t8833 = t2566 * t8419;
11284   t8836 = t518 * t6754;
11285   t8837 = t8836 * t8424;
11286   t8840 = t1576 * t1642;
11287   t8841 = t8840 * t8397;
11288   t8844 = t8809 + t517 * t8810 / 0.48e2 - t517 * t8813 / 0.144e3 - t517 * t8817 / 0.36e2 - t517 * t8820 / 0.36e2 - 0.2e1 / 0.81e2 * t1631 * t2567 - t8828 + t8832 + t517 * t8833 / 0.216e3 + 0.7e1 / 0.648e3 * t517 * t8837 + t517 * t8841 / 0.54e2;
11289   t8847 = t8565 * t2618;
11290   t8849 = t531 * t8847 / 0.1152e4;
11291   t8862 = t1628 * t2619 / 0.144e3 - t8849 + t1723 * t2642 / 0.108e3 - 0.5e1 / 0.648e3 * t1723 * t2637 - t6952 / 0.1728e4 - t6960 / 0.2304e4 - t6967 / 0.1728e4 + t6979 / 0.1152e4 - t6981 / 0.324e3 + t6984 / 0.3456e4 + 0.5e1 / 0.10368e5 * t6987 - t7003 / 0.5184e4;
11292   t8865 = t8551 + t8594 + t8622 + t8731 + t8763 + t8805 + t8844 + t8862;
11293   t8866 = params->beta * t8865;
11294   t8868 = t2652 * t187;
11295   t8880 = t7025 * t979 * t1736;
11296   t8883 = t2678 * t577;
11297   t8884 = t1735 * t8883;
11298   t8888 = t1735 * t979 * t1754;
11299   t8892 = t188 * t62 * t6817;
11300   t8896 = t565 * t962;
11301   t8900 = t282 * t2612;
11302   t8927 = t1668 * t972;
11303   t8931 = t527 * t2651;
11304   t8941 = -t1621 * t1679 * t2663 - t1621 * t262 * t2673 + 0.2e1 * t1673 * t262 * t8927 + 0.6e1 * t1673 * t2662 * t2663 - t1679 * t1717 * t2663 - 0.2e1 * t1679 * t540 * t8896 - 0.2e1 * t1679 * t540 * t8900 - t1717 * t262 * t2673 - 0.2e1 * t1744 * t2613 * t262 + t188 * t284 * t8865 + 0.4e1 * t2580 * t2662 * t8896 + 0.4e1 * t2580 * t2662 * t8900 - 0.2e1 * t262 * t540 * t8931 - t262 * t572 * t8726 - t262 * t7049 * t963 + 0.2e1 * t2662 * t2663 * t6936 - 0.6e1 * t2663 * t8798 * t8892;
11305   t8942 = t571 * t8941;
11306   t8944 = 0.4e1 * t1730 * t2658 - 0.2e1 * t1730 * t2679 + 0.2e1 * t1737 * t2654 - t1755 * t2654 + t289 * t8866 - 0.6e1 * t568 * t8880 + 0.4e1 * t568 * t8884 + 0.2e1 * t568 * t8888 - t568 * t8942 - 0.2e1 * t578 * t8868 - t7016 * t980;
11307   t8959 = t2552 * t505;
11308   t8962 = t950 * t1592;
11309   t8965 = t2555 * t1549;
11310   t8968 = t2551 * t1600;
11311   t8969 = t8968 * t505;
11312   t8972 = t2555 * t1592;
11313   t8975 = t949 * t6747;
11314   t8976 = t8975 * t1549;
11315   t8979 = t982 * t7082;
11316   t8982 = -0.3109070e-1 * t8679 - 0.20000000000000000000e1 * t8684 * t1550 - 0.40000000000000000000e1 * t6639 * t2513 + 0.64327917994770140268e2 * t6644 * t2556 - 0.40000000000000000000e1 * t1548 * t8959 - 0.20000000000000000000e1 * t1548 * t8962 - 0.19298375398431042081e3 * t6656 * t8965 + 0.64327917994770140268e2 * t1598 * t8969 + 0.32163958997385070134e2 * t1598 * t8972 + 0.20690405167709360120e4 * t6745 * t8976 + t169 * t8979 * t1761;
11317   t8984 = my_piecewise3(t296, 0.60000000000000000000e1 * t1598 * t8374 - t169 * t8377 * t580 + 0.20000000000000000000e1 * t8380 * t507 + 0.10000000000000000000e1 * t2508 * t1593 + 0.32163958997385070134e2 * t8385 * t1601 + 0.10000000000000000000e1 * t6636 * t950 + 0.20000000000000000000e1 * t1543 * t2552 + 0.10000000000000000000e1 * t485 * t8525 + t169 * t8944 * t581 / 0.2e1 - t169 * t2685 * t1757 / 0.2e1 + t8982, t8303);
11318   t8992 = t752 * t4;
11319   t9000 = t1045 * t2184;
11320   t9007 = t2142 * t2912;
11321   t9010 = t340 * t759;
11322   t9012 = t228 * t3878 * t9010;
11323   t9018 = t8513 * t2934;
11324   t9020 = t1805 * t1042;
11325   t9022 = t8448 * t2890;
11326   t9024 = t1814 * t1055;
11327   t9032 = t599 * t2881;
11328   t9033 = 0.4e1 / 0.27e2 * t9032;
11329   t9034 = t599 * t2886;
11330   t9035 = 0.4e1 / 0.9e1 * t9034;
11331   t9037 = t7107 * t905;
11332   t9038 = t9037 * t1460;
11333   t9039 = t2271 * t9038;
11334   t9040 = t106 * t9039;
11335   t9042 = t7113 * t905;
11336   t9043 = t9042 * t1460;
11337   t9044 = t827 * t9043;
11338   t9045 = t106 * t9044;
11339   t9047 = t2114 * t4;
11340   t9048 = t9047 * t436;
11341   t9049 = t827 * t9048;
11342   t9050 = t2500 * t9049;
11343   t9052 = t2879 * t1463;
11344   t9053 = t827 * t9052;
11345   t9054 = t106 * t9053;
11346   t9056 = t2879 * t1460;
11347   t9057 = t758 * t9056;
11348   t9058 = t106 * t9057;
11349   t9060 = t2119 * t4;
11350   t9061 = t9060 * t436;
11351   t9062 = t758 * t9061;
11352   t9063 = t2500 * t9062;
11353   t9065 = t2884 * t1463;
11354   t9066 = t758 * t9065;
11355   t9067 = t106 * t9066;
11356   t9070 = -t7220 - 0.8e1 / 0.27e2 * t7098 + 0.2e1 / 0.27e2 * t7100 - 0.2e1 / 0.9e1 * t7102 + t7104 / 0.9e1 - 0.4e1 / 0.27e2 * t9020 + t9033 - t9035 - 0.22e2 / 0.9e1 * t9022 - 0.10e2 / 0.27e2 * t9040 + 0.4e1 / 0.3e1 * t9045 + 0.8e1 / 0.9e1 * t9050 - 0.2e1 / 0.9e1 * t9054 - 0.2e1 * t9058 - 0.8e1 / 0.3e1 * t9063 + 0.2e1 / 0.3e1 * t9067 + 0.2e1 / 0.3e1 * t9012;
11357   t9073 = t322 * t759;
11358   t9083 = t2159 * t2912;
11359   t9088 = -t7192 + 0.35297250000000000000e1 * t770 * t9070 + 0.20839000000000000000e0 * t241 * t6670 * t9073 - t7204 - 0.45908888888888888888e0 * t7098 + 0.11477222222222222222e0 * t7100 - 0.34431666666666666666e0 * t7102 + 0.17215833333333333333e0 * t7104 - 0.17648625000000000000e1 * t2904 * t2151 + 0.63116250000000000000e0 * t9083 * t772 + 0.31558125000000000000e0 * t2920 * t2151;
11360   t9090 = t323 * t9056;
11361   t9093 = t2169 * t9043;
11362   t9096 = t7217 * t1049;
11363   t9099 = t7211 * t1049;
11364   t9104 = t7185 * t9038;
11365   t9107 = t2169 * t9048;
11366   t9110 = t323 * t9065;
11367   t9113 = t323 * t9061;
11368   t9124 = 0.27785333333333333334e0 * t606 * t2931;
11369   t9125 = t606 * t2928;
11370   t9127 = t2169 * t9052;
11371   t9132 = 0.22954444444444444444e0 * t9032;
11372   t9133 = 0.13772666666666666667e1 * t9050 - 0.34431666666666666667e0 * t9054 - 0.30988500000000000000e1 * t9058 - 0.41318000000000000000e1 * t9063 + 0.10329500000000000000e1 * t9067 - t9124 + 0.46308888888888888889e-1 * t9125 - 0.34731666666666666667e-1 * t119 * t9127 - 0.68863333333333333333e0 * t9034 - 0.57386111111111111112e0 * t9040 + t9132;
11373   t9135 = -0.35297250000000000000e1 * t9007 * t772 + 0.10329500000000000000e1 * t9012 - 0.13892666666666666667e0 * t7177 - 0.23154444444444444444e0 * t7179 + 0.69463333333333333333e-1 * t7181 + 0.23154444444444444444e-1 * t7183 - 0.90302333333333333334e0 * t9018 - 0.22954444444444444444e0 * t9020 - 0.37874833333333333334e1 * t9022 - 0.11577222222222222222e0 * t9024 + t9088 - 0.62517000000000000000e0 * t119 * t9090 + 0.20839000000000000000e0 * t119 * t9093 + 0.26472937500000000000e1 * t9096 * t2143 - 0.15779062500000000000e0 * t9099 * t2143 + 0.63116250000000000000e0 * t777 * t9070 - 0.46308888888888888889e-1 * t119 * t9104 + 0.13892666666666666667e0 * t2547 * t9107 + 0.20839000000000000000e0 * t119 * t9110 - 0.83356000000000000000e0 * t2547 * t9113 + 0.20659000000000000000e1 * t9045 + t9133;
11374   t9136 = t9135 * t787;
11375   t9139 = t826 * t759;
11376   t9141 = t210 * t1173 * t9139;
11377   t9146 = t2954 * t9043;
11378   t9149 = t2958 * t9056;
11379   t9152 = t242 * t796;
11380   t9153 = t9152 * t2885;
11381   t9155 = t794 * t9153 / 0.216e3;
11382   t9156 = t242 * t2198;
11383   t9157 = t9156 * t2880;
11384   t9159 = t794 * t9157 / 0.324e3;
11385   t9160 = t2954 * t9052;
11386   t9163 = t518 * t7285;
11387   t9164 = t9163 * t9038;
11388   t9167 = t1576 * t2198;
11389   t9168 = t9167 * t9048;
11390   t9171 = t2958 * t9065;
11391   t9174 = t1576 * t796;
11392   t9175 = t9174 * t9061;
11393   t9182 = t1074 * t813;
11394   t9183 = t329 * t759;
11395   t9184 = t9183 * t436;
11396   t9185 = t9182 * t9184;
11397   t9186 = t2233 * t9185;
11398   t9189 = t1616 * t2998;
11399   t9191 = t807 * t9189 / 0.1152e4;
11400   t9193 = t262 * t2215 * t3007;
11401   t9198 = t7255 - t339 * t9141 / 0.1152e4 + t2947 * t2206 / 0.54e2 - t794 * t9146 / 0.36e2 + t794 * t9149 / 0.48e2 - t9155 + t9159 + t794 * t9160 / 0.216e3 + 0.7e1 / 0.648e3 * t794 * t9164 - t794 * t9168 / 0.54e2 - t794 * t9171 / 0.144e3 + t794 * t9175 / 0.36e2 - t7268 / 0.432e3 - t7276 / 0.648e3 + t7279 / 0.864e3 + t7282 / 0.648e3 - t2232 * t9186 / 0.1152e4 - t9191 - t9193 * t2222 / 0.144e3 - t3015 * t2281 / 0.432e3;
11402   t9207 = 0.22831111111111111110e-1 * t9034;
11403   t9217 = -t7097 - 0.15220740740740740740e-1 * t7098 + 0.38051851851851851851e-2 * t7100 - 0.11415555555555555555e-1 * t7102 + 0.57077777777777777777e-2 * t7104 - 0.76103703703703703702e-2 * t9020 + 0.76103703703703703701e-2 * t9032 - t9207 - 0.12557111111111111110e0 * t9022 - 0.19025925925925925925e-1 * t9040 + 0.68493333333333333331e-1 * t9045 + 0.45662222222222222221e-1 * t9050 - 0.11415555555555555555e-1 * t9054 - 0.10274000000000000000e0 * t9058 - 0.13698666666666666666e0 * t9063 + 0.34246666666666666666e-1 * t9067 + 0.34246666666666666666e-1 * t9012;
11404   t9218 = t9217 * t318;
11405   t9221 = t2893 * t768;
11406   t9224 = t1045 * t2135;
11407   t9233 = t7142 * t1058;
11408   t9238 = t7147 * t1058;
11409   t9243 = t2136 * t2937;
11410   t9246 = t7159 * t1058;
11411   t9251 = t9136 * t187;
11412   t9254 = t2185 * t2937;
11413   t9257 = t7247 * t1058;
11414   t9258 = t7249 * t187;
11415   t9259 = t9258 * t2137;
11416   t9262 = t2992 * t2179;
11417   t9265 = 0.61370581910589784405e0 * t9218 * t187 - 0.39478417604357434478e2 * t9221 * t810 + 0.39478417604357434478e2 * t9224 * t2242 - 0.19739208802178717239e2 * t2896 * t2245 - 0.63489110255409872532e3 * t9000 * t2248 - 0.19739208802178717239e2 * t7139 * t1071 + 0.78956835208714868956e2 * t9233 * t810 - 0.39478417604357434478e2 * t2131 * t2988 - 0.12697822051081974506e4 * t9238 * t2993 - 0.11843525281307230343e3 * t2991 * t2242 + 0.78956835208714868956e2 * t9243 * t810 + 0.38093466153245923519e4 * t9246 * t2248 + 0.39478417604357434478e2 * t2985 * t2245 - 0.19739208802178717239e2 * t769 * t9251 - 0.12697822051081974506e4 * t9254 * t2993 - 0.40841222780709261955e5 * t9257 * t9259 - 0.63489110255409872532e3 * t2991 * t9262;
11418   t9266 = t9265 * t329;
11419   t9267 = t758 * t9266;
11420   t9268 = t533 * t9267;
11421   t9274 = t3015 * t2266 / 0.324e3;
11422   t9275 = t6896 * t1087;
11423   t9276 = t824 * t9275;
11424   t9281 = t3009 * t2225 / 0.216e3;
11425   t9284 = t814 * t436;
11426   t9285 = t2884 * t9284;
11427   t9286 = t2233 * t9285;
11428   t9289 = t2879 * t9284;
11429   t9290 = t7439 * t9289;
11430   t9293 = t1074 * t2219;
11431   t9295 = t813 * t759 * t436;
11432   t9296 = t9293 * t9295;
11433   t9297 = t2233 * t9296;
11434   t9300 = t1062 * t2191;
11435   t9302 = t2966 * t2252;
11436   t9303 = t2578 * t9302;
11437   t9306 = t340 * t2996;
11438   t9307 = t9306 * t814;
11439   t9308 = t2578 * t9307;
11440   t9311 = t8565 * t3003;
11441   t9313 = t807 * t9311 / 0.1152e4;
11442   t9314 = t9306 * t2967;
11443   t9315 = t2578 * t9314;
11444   t9318 = t2966 * t7365;
11445   t9319 = t2578 * t9318;
11446   t9325 = -0.5e1 / 0.1296e4 * t3015 * t2273 - t807 * t9268 / 0.1536e4 + t3009 * t2254 / 0.288e3 - t9274 - t9276 / 0.10368e5 + t3015 * t2277 / 0.216e3 + t9281 + t3009 * t2259 / 0.288e3 + t2232 * t9286 / 0.576e3 - 0.5e1 / 0.3456e4 * t2232 * t9290 + t7444 * t9297 / 0.576e3 + t9300 / 0.162e3 - t807 * t9303 / 0.1536e4 - t807 * t9308 / 0.768e3 - t9313 + t2217 * t9315 / 0.384e3 + t2217 * t9319 / 0.768e3 - t7330 / 0.5184e4 - t7341 / 0.1728e4 + t7350 / 0.3456e4;
11447   t9329 = t826 * t2114;
11448   t9330 = t905 * t1460;
11449   t9331 = t9329 * t9330;
11450   t9332 = t2578 * t9331;
11451   t9335 = t6896 * t1076;
11452   t9336 = t807 * t9335;
11453   t9338 = t8651 * t3038;
11454   t9339 = t824 * t9338;
11455   t9341 = t7406 * t7107;
11456   t9342 = t9341 * t9330;
11457   t9343 = t2578 * t9342;
11458   t9346 = t4 * t436;
11459   t9347 = t3027 * t9346;
11460   t9348 = t8764 * t9347;
11461   t9351 = t905 * t1463;
11462   t9352 = t3033 * t9351;
11463   t9353 = t2578 * t9352;
11464   t9356 = t2966 * t2257;
11465   t9357 = t2578 * t9356;
11466   t9361 = t8565 * t2968;
11467   t9363 = t2217 * t9361 / 0.576e3;
11468   t9364 = t2966 * t2220;
11469   t9365 = t2578 * t9364;
11470   t9369 = t332 * t1082 * t209;
11471   t9370 = t2229 * t9369;
11472   t9373 = t1075 * t2124;
11473   t9374 = t2233 * t9373;
11474   t9377 = t1075 * t2115;
11475   t9378 = t7439 * t9377;
11476   t9381 = t7427 * t2975;
11477   t9383 = t2232 * t9381 / 0.1728e4;
11478   t9384 = t2997 * t760;
11479   t9385 = t2233 * t9384;
11480   t9388 = t1041 * t2220;
11481   t9389 = t2233 * t9388;
11482   t9392 = t6670 * t2962;
11483   t9393 = t794 * t9392;
11484   t9396 = t2947 * t2194 / 0.162e3;
11485   t9397 = -t7353 / 0.2304e4 + t7357 / 0.1152e4 + t824 * t9332 / 0.384e3 + t9336 / 0.6912e4 + 0.5e1 / 0.3456e4 * t9339 + 0.5e1 / 0.2592e4 * t824 * t9343 - 0.5e1 / 0.1728e4 * t824 * t9348 - t824 * t9353 / 0.1152e4 - t807 * t9357 / 0.1536e4 + t7371 / 0.3456e4 + t9363 + t2217 * t9365 / 0.256e3 + t9370 * t2235 / 0.216e3 - t2232 * t9374 / 0.2304e4 - 0.5e1 / 0.6912e4 * t2232 * t9378 - t9383 - t2232 * t9385 / 0.1152e4 + t7444 * t9389 / 0.1152e4 + 0.7e1 / 0.432e3 * t9393 - t9396;
11486   t9402 = t498 * t1065;
11487   t9403 = t794 * t9402;
11488   t9405 = t1041 * t2257;
11489   t9406 = t2233 * t9405;
11490   t9409 = t1041 * t2252;
11491   t9410 = t2233 * t9409;
11492   t9413 = t2169 * t759;
11493   t9414 = t1813 * t9413;
11494   t9417 = t1804 * t827;
11495   t9418 = t2889 * t814;
11496   t9419 = t9417 * t9418;
11497   t9422 = t1075 * t2120;
11498   t9423 = t2233 * t9422;
11499   t9426 = t7427 * t3020;
11500   t9428 = t2232 * t9426 / 0.1728e4;
11501   t9429 = t8565 * t3034;
11502   t9431 = t824 * t9429 / 0.864e3;
11503   t9432 = t1084 * t2263;
11504   t9434 = t2270 * t7113;
11505   t9435 = t9434 * t9330;
11506   t9436 = t2578 * t9435;
11507   t9439 = t3033 * t9346;
11508   t9440 = t8764 * t9439;
11509   t9443 = t8565 * t3029;
11510   t9445 = 0.5e1 / 0.5184e4 * t824 * t9443;
11511   t9446 = t3027 * t9351;
11512   t9447 = t2578 * t9446;
11513   t9452 = t7382 * t2218;
11514   t9453 = t2966 * t9452;
11515   t9454 = t2578 * t9453;
11516   t9458 = -t2947 * t2210 / 0.108e3 - t2947 * t2201 / 0.81e2 - t9403 / 0.1296e4 - t2232 * t9406 / 0.2304e4 - t2232 * t9410 / 0.2304e4 - t321 * t9414 / 0.144e3 + t2232 * t9419 / 0.576e3 + t2232 * t9423 / 0.1152e4 - t9428 - t9431 + t9432 / 0.1296e4 + t7376 - 0.5e1 / 0.1152e4 * t824 * t9436 + t824 * t9440 / 0.288e3 + t9445 + 0.5e1 / 0.6912e4 * t824 * t9447 + 0.5e1 / 0.10368e5 * t7403 - t7417 / 0.2304e4 - t7381 * t9454 / 0.256e3 - t7429 / 0.1728e4;
11517   t9460 = t9198 + t9325 + t9397 + t9458;
11518   t9461 = params->beta * t9460;
11519   t9463 = t3044 * t187;
11520   t9475 = t7462 * t1098 * t2293;
11521   t9478 = t3070 * t844;
11522   t9479 = t2292 * t9478;
11523   t9483 = t2292 * t1098 * t2311;
11524   t9487 = t188 * t62 * t7378;
11525   t9491 = t832 * t1074;
11526   t9495 = t345 * t2996;
11527   t9522 = t2214 * t1091;
11528   t9526 = t803 * t3043;
11529   t9536 = -t1075 * t262 * t7486 + t188 * t347 * t9460 + 0.2e1 * t2220 * t262 * t9522 + 0.6e1 * t2220 * t3054 * t3055 - t2229 * t2252 * t3055 - t2229 * t2257 * t3055 - 0.2e1 * t2229 * t814 * t9491 - 0.2e1 * t2229 * t814 * t9495 - t2252 * t262 * t3065 - t2257 * t262 * t3065 - 0.2e1 * t2301 * t262 * t2997 - 0.2e1 * t262 * t814 * t9526 - t262 * t839 * t9266 + 0.4e1 * t2967 * t3054 * t9491 + 0.4e1 * t2967 * t3054 * t9495 + 0.2e1 * t3054 * t3055 * t7365 - 0.6e1 * t3055 * t9452 * t9487;
11530   t9537 = t838 * t9536;
11531   t9539 = -t1099 * t7453 + 0.4e1 * t2287 * t3050 - 0.2e1 * t2287 * t3071 + 0.2e1 * t2294 * t3046 - t2312 * t3046 + t352 * t9461 - 0.6e1 * t835 * t9475 + 0.4e1 * t835 * t9479 + 0.2e1 * t835 * t9483 - t835 * t9537 - 0.2e1 * t845 * t9463;
11532   t9551 = t2938 * t786;
11533   t9554 = t1059 * t2179;
11534   t9557 = t2941 * t2137;
11535   t9560 = t2937 * t2187;
11536   t9561 = t9560 * t786;
11537   t9564 = t2941 * t2179;
11538   t9567 = t1058 * t7249;
11539   t9568 = t9567 * t2137;
11540   t9571 = t1059 * t2137;
11541   t9579 = t3073 * t2320;
11542   t9582 = t1101 * t7519;
11543   t9585 = -0.40000000000000000000e1 * t2136 * t9551 - 0.20000000000000000000e1 * t2136 * t9554 - 0.19298375398431042081e3 * t7159 * t9557 + 0.64327917994770140268e2 * t2185 * t9561 + 0.32163958997385070134e2 * t2185 * t9564 + 0.20690405167709360120e4 * t7247 * t9568 + 0.60000000000000000000e1 * t2185 * t9571 + 0.20000000000000000000e1 * t9221 * t788 - t169 * t3077 * t2314 / 0.2e1 - t169 * t9579 * t847 + t169 * t9582 * t2318;
11544   t9587 = my_piecewise3(t359, 0.10000000000000000000e1 * t2896 * t2180 + 0.32163958997385070134e2 * t9000 * t2188 + 0.10000000000000000000e1 * t7139 * t1059 + 0.20000000000000000000e1 * t2131 * t2938 + 0.10000000000000000000e1 * t769 * t9136 + t169 * t9539 * t848 / 0.2e1 - 0.3109070e-1 * t9218 - 0.20000000000000000000e1 * t9224 * t2138 - 0.40000000000000000000e1 * t7142 * t2901 + 0.64327917994770140268e2 * t7147 * t2942 + t9585, t8303);
11545   t9595 = t853 * t4;
11546   t9601 = t8984 * t34 / 0.2e1 + t2867 * t413 + t1038 * t1454 / 0.2e1 + t2102 * t886 / 0.2e1 + 0.2e1 * t8992 * t377 + t297 * t377 - 0.3e1 * t2874 * t15 + t9587 * t46 / 0.2e1 + t3082 * t436 + t1106 * t1463 / 0.2e1 + t2325 * t905 / 0.2e1 - 0.2e1 * t9595 * t377 - t360 * t377 + 0.3e1 * t3089 * t15;
11547   t9603 = t1037 * t2353 - t1110 * t1474 + t1119 * t2101 - 0.4e1 * t1476 * t2479 - 0.4e1 * t1476 * t2483 - 0.4e1 * t1485 * t2442 - 0.2e1 * t1517 * t2442 - 0.2e1 * t2440 * t857 - 0.4e1 * t2448 * t2479 - 0.2e1 * t3091 * t447 - 0.2e1 * t363 * t8367 - 0.2e1 * t449 * t8356 - 0.4e1 * t449 * t8359 - 0.2e1 * t6587 * t929 - t9601 * t98;
11548   t9604 = t8345 + t9603;
11549   t9605 = t7 * t9604;
11550   t9611 = 0.2e1 * t869 * t1130;
11551   t9613 = 0.2e1 * t368 * t3144;
11552   t9617 = params->d * t9604;
11553   t9631 = t1481 * t928;
11554   t9634 = t3118 * t464;
11555   t9637 = t1116 * t1516;
11556   t9640 = t97 * t7840;
11557   t9643 = 0.6e1 * t1125 * t2367 + 0.3e1 * t1125 * t2370 + 0.3e1 * t1127 * t2363 + 0.6e1 * t3132 * t875 + 0.12e2 * t3138 * t873 + 0.6e1 * t3141 * t873 + 0.6e1 * t369 * t9631 + 0.12e2 * t369 * t9634 + 0.6e1 * t369 * t9637 + 0.3e1 * t369 * t9640 + t370 * t9617;
11558   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11559     v3rho3[1] = t1123 * t2373 + t1130 * t2359 + 0.2e1 * t3127 * t878 + 0.2e1 * t3144 * t870 + t372 * t9605 + t872 * t9643 + t5732 + 0.2e1 * t5734 + t5736 + t7571 + t7573 + t9611 + t9613;
11560 
11561   t9645 = t3740 * t372;
11562   t9652 = t446 * t3219;
11563   t9655 = t7768 - t7769 - t6419 + t6422 + t7770 - t7771 - t6428 + t6431 + t7772 - t7773 - t6439;
11564   t9656 = t9655 * t80;
11565   t9657 = t3148 * t399;
11566   t9668 = t3152 * t443;
11567   t9671 = t912 * t2436;
11568   t9676 = t3209 * t443;
11569   t9679 = -t7711 + t7712 + t6462;
11570   t9680 = t9679 * t59;
11571   t9683 = t3155 * t426;
11572   t9688 = t2386 * t901;
11573   t9691 = t883 * t2414;
11574   t9702 = t404 * t3187;
11575   t9707 = t5770 * t3164;
11576   t9708 = t9707 * t414;
11577   t9711 = t887 * t4;
11578   t9712 = t9711 * t377;
11579   t9717 = t1422 * t3168;
11580   t9718 = t9717 * t414;
11581   t9722 = -t377 - 0.3e1 * t5779;
11582   t9723 = t37 * t9722;
11583   t9732 = t5786 * t3179;
11584   t9733 = t9732 * t418;
11585   t9736 = t897 * t4;
11586   t9737 = t9736 * t377;
11587   t9740 = t1431 * t3183;
11588   t9741 = t9740 * t418;
11589   t9744 = -t9722;
11590   t9745 = t49 * t9744;
11591   t9748 = -0.80e2 / 0.27e2 * t410 * t3165 - 0.10e2 / 0.27e2 * t31 * t9708 + 0.20e2 / 0.9e1 * t7629 * t9712 - 0.40e2 / 0.9e1 * t410 * t3169 + 0.10e2 / 0.9e1 * t31 * t9718 + 0.5e1 / 0.3e1 * t31 * t9723 + 0.440e3 / 0.27e2 * t3174 * t419 - 0.160e3 / 0.27e2 * t894 * t2407 + 0.80e2 / 0.9e1 * t894 * t2411 - 0.10e2 / 0.27e2 * t45 * t9733 - 0.20e2 / 0.9e1 * t7650 * t9737 + 0.10e2 / 0.9e1 * t45 * t9741 + 0.5e1 / 0.3e1 * t45 * t9745 + t6502;
11592   t9749 = t25 * t9748;
11593   t9764 = t6512 * t3193;
11594   t9769 = t1450 * t3196;
11595   t9774 = -0.2e1 * t377 - 0.6e1 * t5779;
11596   t9777 = t6521 * t3199;
11597   t9782 = t1459 * t3202;
11598   t9785 = -t9774;
11599   t9788 = -0.280e3 / 0.27e2 * t9764 * t413 + 0.112e3 / 0.9e1 * t2420 * t1402 + 0.28e2 / 0.9e1 * t9769 * t413 - 0.4e1 / 0.3e1 * t431 * t9774 - 0.280e3 / 0.27e2 * t9777 * t436 - 0.112e3 / 0.9e1 * t2426 * t1402 + 0.28e2 / 0.9e1 * t9782 * t436 - 0.4e1 / 0.3e1 * t435 * t9785;
11600   t9789 = t66 * t9788;
11601   t9792 = t9680 * t74 / 0.24e2 + t9683 * t74 / 0.24e2 + t3156 * t440 / 0.24e2 + t9688 * t74 / 0.12e2 + t9691 * t74 / 0.12e2 + t3159 * t440 / 0.12e2 + t2387 * t909 / 0.12e2 + t2389 * t909 / 0.12e2 + t884 * t2433 / 0.12e2 + t9702 * t74 / 0.24e2 + t9749 * t74 / 0.24e2 + t3188 * t440 / 0.24e2 + t2392 * t909 / 0.12e2 + t2415 * t909 / 0.12e2 + t902 * t2433 / 0.12e2 + t405 * t3206 / 0.24e2 + t427 * t3206 / 0.24e2 + t60 * t9789 / 0.24e2;
11602   t9795 = -0.4e1 * t1392 * t3209 + 0.40e2 * t1397 * t9671 + 0.20e2 * t1397 * t9676 - 0.8e1 * t2378 * t2436 + 0.40e2 * t2383 * t7591 + 0.20e2 * t3152 * t6445 - 0.4e1 * t400 * t9792 - 0.4e1 * t443 * t9657 - 0.120e3 * t6453 * t9668 - 0.8e1 * t7763 * t912 + t9656;
11603   t9796 = t9795 * t97;
11604   t9802 = t424 * t3228;
11605   t9804 = t5751 * t3227;
11606   t9805 = t9804 * t459;
11607   t9808 = t2457 * t2473;
11608   t9811 = t424 * t3245;
11609   t9813 = t1493 * t3244;
11610   t9814 = t9813 * t459;
11611   t9843 = -0.50e2 / 0.27e2 * t454 * t3165 - 0.10e2 / 0.27e2 * t85 * t9708 + 0.20e2 / 0.9e1 * t7811 * t9712 - 0.25e2 / 0.9e1 * t454 * t3169 + 0.10e2 / 0.9e1 * t85 * t9718 + 0.5e1 / 0.3e1 * t85 * t9723 + 0.200e3 / 0.27e2 * t3235 * t419 - 0.100e3 / 0.27e2 * t919 * t2407 + 0.50e2 / 0.9e1 * t919 * t2411 - 0.10e2 / 0.27e2 * t89 * t9733 - 0.20e2 / 0.9e1 * t7826 * t9737 + 0.10e2 / 0.9e1 * t89 * t9741 + 0.5e1 / 0.3e1 * t89 * t9745;
11612   t9844 = t453 * t9843;
11613   t9847 = -t5744 - 0.11e2 / 0.9e1 * t5745 - 0.22e2 / 0.9e1 * t7786 - t7789 + t7791 - 0.2e1 / 0.3e1 * t9802 - 0.3e1 / 0.4e1 * t58 * t9805 + t58 * t9808 / 0.2e1 + t9811 / 0.3e1 + t58 * t9814 / 0.4e1 - t58 * t9844 / 0.8e1;
11614   t9848 = my_piecewise3(t95, 0, t9847);
11615   t9849 = t363 * t9848;
11616   t9854 = t857 * t3249;
11617   t9859 = t915 * t464;
11618   t9866 = t3212 * t96;
11619   t9869 = -0.2e1 * t1110 * t2440 - 0.4e1 * t1476 * t3223 - 0.4e1 * t2442 * t2451 - 0.2e1 * t2448 * t3250 - 0.4e1 * t2479 * t4302 - 0.2e1 * t3091 * t916 - t3213 * t857 - 0.2e1 * t3220 * t857 - 0.2e1 * t363 * t9652 - t363 * t9796 - t3714 * t447 - 0.2e1 * t449 * t9849 - 0.2e1 * t449 * t9854 - 0.2e1 * t465 * t9866 - 0.4e1 * t929 * t9859;
11620   t9871 = 0.58482236226346462070e0 * t5840;
11621   t9872 = 0.17315859105681463759e2 * t5845;
11622   t9873 = 0.21687162600603479684e-1 * t7862;
11623   t9877 = 0.11696447245269292414e1 * t7864;
11624   t9878 = 0.8e1 * t6044;
11625   t9879 = 0.12e2 * t2803 * t2853 * t2857 - t5813 + t5839 + t5855 + t5889 + t5893 - t5897 - t5903 - t5912 + t5914 + t6038 - t6043 - t6049 - t7874 - t7881 - t9871 - t9872 + t9873 - t9877 - t9878;
11626   t9880 = 0.12e2 * t6050;
11627   t9881 = 0.32e2 * t6054;
11628   t9882 = t999 * t746;
11629   t9886 = 0.8e1 * t6061;
11630   t9887 = t5861 * t3193;
11631   t9892 = t1780 * t3196;
11632   t9897 = t5872 * t3199;
11633   t9902 = t1785 * t3202;
11634   t9908 = (-0.8e1 / 0.27e2 * t9887 * t413 + 0.16e2 / 0.9e1 * t2697 * t1402 + 0.4e1 / 0.9e1 * t9892 * t413 + 0.4e1 / 0.3e1 * t67 * t9774 - 0.8e1 / 0.27e2 * t9897 * t436 - 0.16e2 / 0.9e1 * t2703 * t1402 + 0.4e1 / 0.9e1 * t9902 * t436 + 0.4e1 / 0.3e1 * t70 * t9785) * t133;
11635   t9910 = 0.19751673498613801407e-1 * t9908 * t159;
11636   t9911 = 0.23392894490538584828e1 * t7909;
11637   t9912 = 0.34631718211362927517e2 * t7922;
11638   t9913 = 0.16e2 * t7931;
11639   t9914 = 0.11696447245269292414e1 * t6088;
11640   t9915 = t3522 * t748;
11641   t9919 = -0.6e1 * t1768 * t2850 * t9882 + 0.3e1 * t1768 * t677 * t9915 + t5987 + t5991 + t6053 - t6083 + t6087 + t6092 + t7897 - t7902 - t7934 - t7936 + t9880 + t9881 - t9886 + t9910 + t9911 - t9912 - t9913 + t9914;
11642   t9921 = 0.10843581300301739842e-1 * t6094;
11643   t9922 = 0.48830526149350786811e-3 * t7939;
11644   t9923 = 0.20e2 * t6112;
11645   t9924 = t1769 * t3427;
11646   t9927 = t3413 * t149;
11647   t9928 = t9927 * t668;
11648   t9929 = 0.58482236226346462070e0 * t9928;
11649   t9930 = t613 * t3425;
11650   t9931 = 0.4e1 * t9930;
11651   t9932 = t616 * t3425;
11652   t9933 = 0.4e1 * t9932;
11653   t9934 = t3431 * t6117;
11654   t9938 = 0.40e2 * t7978;
11655   t9939 = 0.24e2 * t7980;
11656   t9940 = t2858 * t2728;
11657   t9943 = 0.2e1 * t2849 * t746 * t9934 + 0.6e1 * t2857 * t9924 + 0.12e2 * t2857 * t9940 + t6098 - t6101 - t6104 + t6123 - t6132 - t7941 + t7984 - t7985 + t7988 + t9921 + t9922 + t9923 - t9929 + t9931 - t9933 + t9938 - t9939;
11658   t9944 = 0.2e1 * t8161;
11659   t9948 = t3431 * t2093;
11660   t9952 = -t5813 + t5839 - t9871 - t9872 + t5855 + t9873 + t5889 + t5893 - t5897 - t5903 - t5912 - t9877 + t5914 + t6038 - t7874 - t6043;
11661   t9953 = -t9878 - t6049 - t7881 + t9880 + t5987 + t6053 + t9881 + t7897 - t7902 - t9886 + t5991 + t9910 + t9911 - t9912 - t9913 - t7934;
11662   t9955 = -t7936 - t6083 + t6087 + t9914 + t6092 + t9921 + t6098 - t6101 - t6104 + t9922 - t7941 + t9923 - t9929 + t9931 - t9933 + t9938;
11663   t9956 = t3413 * t61;
11664   t9957 = t9956 * t663;
11665   t9958 = 0.18311447306006545054e-3 * t9957;
11666   t9959 = 0.24415263074675393405e-3 * t6224;
11667   t9960 = t9908 * t161;
11668   t9961 = t128 * t9960;
11669   t9962 = t3413 * t656;
11670   t9963 = t128 * t9962;
11671   t9964 = -t9939 + t6123 + t7984 - t7985 - t6132 + t7988 + t9944 - t6027 - t9958 + t6034 - t6219 + t6223 + t9959 - t6229 + t9961 + t9963;
11672   t9967 = (t9952 + t9953 + t9955 + t9964) * t187;
11673   t9973 = t1008 * t62;
11674   t9980 = t2041 * t3427;
11675   t9981 = t9980 * t677;
11676   t9984 = t2777 * t2728;
11677   t9989 = t724 * t3448;
11678   t9990 = t9989 * t677;
11679   t9993 = t431 * t3193;
11680   t9998 = t69 * t3196;
11681   t10003 = t435 * t3199;
11682   t10008 = t72 * t3202;
11683   t10013 = 0.4e1 / 0.27e2 * t9993 * t413 - 0.4e1 / 0.9e1 * t2716 * t1402 - t9998 * t413 / 0.9e1 + t672 * t9774 / 0.3e1 + 0.4e1 / 0.27e2 * t10003 * t436 + 0.4e1 / 0.9e1 * t2722 * t1402 - t10008 * t436 / 0.9e1 + t674 * t9785 / 0.3e1;
11684   t10014 = t703 * t10013;
11685   t10017 = 0.3e1 * t10014 * t190 + 0.6e1 * t1008 * t2781 + 0.6e1 * t1010 * t2770 - t192 * t9967 + 0.60e2 * t2776 * t9981 - 0.24e2 * t2776 * t9984 - 0.12e2 * t2776 * t9990 - 0.24e2 * t2778 * t9973 + 0.3e1 * t3468 * t704 - 0.12e2 * t3472 * t701 + 0.3e1 * t3475 * t701;
11686   t10018 = t10017 * t194;
11687   t10020 = t699 * t532 * t10018;
11688   t10023 = t3427 * t677;
11689   t10025 = t6285 * t532 * t10023;
11690   t10028 = t999 * t2728;
11691   t10030 = t2043 * t532 * t10028;
11692   t10033 = t3448 * t677;
11693   t10035 = t2043 * t532 * t10033;
11694   t10038 = t1899 * t3486;
11695   t10040 = t1892 * t2784;
11696   t10042 = t2746 * t2747 * t10040;
11697   t10045 = t103 * t3453;
11698   t10047 = t1905 * t10045 * t6186;
11699   t10051 = t1905 * t10045 * t1907;
11700   t10055 = t2746 * t2747 * t2785;
11701   t10059 = t2746 * t10045 * t708;
11702   t10063 = t1905 * t8029 * t3460;
11703   t10066 = -t697 * t10020 / 0.3072e4 - 0.5e1 / 0.128e3 * t722 * t10025 + 0.5e1 / 0.384e3 * t722 * t10030 + 0.5e1 / 0.768e3 * t722 * t10035 + 0.7e1 / 0.4608e4 * t10038 - t8016 + t2744 * t10042 / 0.768e3 - t2744 * t10047 / 0.384e3 + t1903 * t10051 / 0.768e3 - t1903 * t10055 / 0.1536e4 - t1903 * t10059 / 0.3072e4 + t1903 * t10063 / 0.384e3;
11704   t10067 = t194 * t2728;
11705   t10069 = t1905 * t2747 * t10067;
11706   t10072 = t103 * t3478;
11707   t10074 = t1905 * t10072 * t1907;
11708   t10078 = t2746 * t10072 * t708;
11709   t10081 = t1899 * t3481;
11710   t10083 = t6204 * t3456;
11711   t10086 = t254 * t3436 * t677;
11712   t10090 = t254 * t1003 * t2728;
11713   t10094 = t254 * t3449 * t677;
11714   t10097 = t6315 * t3437;
11715   t10099 = t1863 * t3450;
11716   t10101 = t102 * t10013;
11717   t10102 = t254 * t10101;
11718   t10106 = t2746 * t10072 * t2748;
11719   t10109 = t1903 * t10069 / 0.384e3 + t1903 * t10074 / 0.768e3 - t1903 * t10078 / 0.3072e4 + 0.7e1 / 0.4608e4 * t10081 - 0.7e1 / 0.2304e4 * t10083 - t6319 * t10086 / 0.4e1 + t1867 * t10090 / 0.8e1 + t1867 * t10094 / 0.16e2 - t6161 - 0.7e1 / 0.48e2 * t10097 + 0.7e1 / 0.144e3 * t10099 - t688 * t10102 / 0.48e2 + t2744 * t10106 / 0.1536e4;
11720   t10111 = t6263 * t707;
11721   t10113 = t2746 * t10045 * t10111;
11722   t10118 = t8050 * t1014 * t2803;
11723   t10122 = t8056 * t8211 * t3460;
11724   t10125 = t2037 * t3491;
11725   t10128 = t726 * t532 * t10013;
11726   t10131 = t2037 * t3495;
11727   t10135 = -t8085 * t10113 / 0.512e3 - 0.119e3 / 0.1728e4 * t8034 + t8037 + t8043 - 0.5e1 / 0.384e3 * t1903 * t10118 + t1903 * t10122 / 0.384e3 - 0.35e2 / 0.1152e4 * t10125 - t722 * t10128 / 0.768e3 + 0.7e1 / 0.1152e4 * t10131 - 0.119e3 / 0.13824e5 * t6199 - t8067 - t8079 - 0.35e2 / 0.108e3 * t8117;
11728   t10140 = t2746 * t10045 * t2748;
11729   t10143 = t6182 * t3462;
11730   t10145 = t103 * t3427;
11731   t10147 = t6301 * t10145 * t708;
11732   t10150 = t103 * t3448;
11733   t10152 = t1905 * t10150 * t708;
11734   t10156 = t8056 * t8057 * t8051;
11735   t10159 = -0.119e3 / 0.3456e4 * t6298 - 0.35e2 / 0.216e3 * t6325 - t8132 + t8134 - 0.119e3 / 0.6912e4 * t8140 - t8143 + t8155 + t2744 * t10140 / 0.512e3 - 0.7e1 / 0.576e3 * t10143 - 0.5e1 / 0.768e3 * t1903 * t10147 + t1903 * t10152 / 0.768e3 - t6332 - t2744 * t10156 / 0.192e3;
11736   t10161 = t10066 + t10109 + t10135 + t10159;
11737   t10162 = params->beta * t10161;
11738   t10164 = t3499 * t187;
11739   t10175 = t6346 * t3503 * t743;
11740   t10179 = t2060 * t1030 * t2841;
11741   t10183 = t3519 * t743;
11742   t10184 = t2060 * t10183;
11743   t10187 = t214 * t3453;
11744   t10200 = t1023 * t1013;
11745   t10213 = t214 * t3478;
11746   t10230 = t694 * t3498;
11747   t10235 = -t10018 * t262 * t738 + 0.4e1 * t10040 * t2823 * t2824 - 0.6e1 * t10111 * t10187 * t8245 - 0.2e1 * t1014 * t262 * t8284 + t10161 * t188 * t197 + 0.6e1 * t10187 * t2748 * t2823 - t10187 * t2833 * t708 + 0.4e1 * t10200 * t2748 * t2823 - 0.2e1 * t10200 * t2833 * t708 + 0.2e1 * t10213 * t2748 * t2823 - t10213 * t2833 * t708 - t10230 * t262 * t708 - t2069 * t262 * t3479 - t2069 * t262 * t3484 - 0.2e1 * t262 * t2785 * t2836 + 0.2e1 * t262 * t3454 * t6359 - 0.2e1 * t2785 * t2824 * t2833;
11748   t10236 = t737 * t10235;
11749   t10238 = t10162 * t221 - t10164 * t744 - 0.6e1 * t10175 * t734 + 0.4e1 * t10179 * t734 + 0.2e1 * t10184 * t734 - t10236 * t734 - 0.2e1 * t1031 * t8221 + 0.2e1 * t2055 * t3504 - t2055 * t3520 + 0.4e1 * t2815 * t2819 - 0.2e1 * t2815 * t2842;
11750   t10242 = t3522 * t2093;
11751   t10258 = t224 * t3448;
11752   t10265 = t9944 + 0.3e1 * t1768 * t1769 * t3448 - t6027 - 0.3e1 * t1768 * t9948 * t677 + t169 * t175 * t10238 * t748 - t9958 - t2849 * t10242 * t746 + 0.6e1 * t1768 * t7918 * t999 + 0.3e1 * t169 * t671 * t10013 - 0.2e1 * t2849 * t2850 * t2844 + 0.6e1 * t169 * t677 * t224 * t3427 + t6034 + 0.6e1 * t2857 * t10258 * t677 + 0.6e1 * t1768 * t2853 * t2728 - t6219 + t6223 + t9959 - t6229 + t9961 + t9963;
11753   t10267 = t9879 + t9919 + t9943 + t10265;
11754   t10271 = t3714 * t464;
11755   t10278 = t3091 * t928;
11756   t10285 = t599 * t3255;
11757   t10287 = t6604 * t3193;
11758   t10288 = t10287 * t413;
11759   t10289 = t1698 * t10288;
11760   t10290 = t106 * t10289;
11761   t10292 = t6610 * t3193;
11762   t10293 = t10292 * t413;
11763   t10294 = t560 * t10293;
11764   t10295 = t106 * t10294;
11765   t10297 = t2489 * t4;
11766   t10298 = t560 * t10297;
11767   t10299 = t2500 * t10298;
11768   t10301 = t599 * t3259;
11769   t10303 = t3254 * t413;
11770   t10304 = t474 * t10303;
11771   t10305 = t106 * t10304;
11772   t10307 = t2494 * t4;
11773   t10308 = t474 * t10307;
11774   t10309 = t2500 * t10308;
11775   t10311 = t599 * t3263;
11776   t10313 = t1526 * t3196;
11777   t10314 = t10313 * t413;
11778   t10315 = t560 * t10314;
11779   t10316 = t106 * t10315;
11780   t10318 = t1531 * t3196;
11781   t10319 = t10318 * t413;
11782   t10320 = t474 * t10319;
11783   t10321 = t106 * t10320;
11784   t10323 = t475 * t9774;
11785   t10324 = t474 * t10323;
11786   t10325 = t106 * t10324;
11787   t10327 = -t6594 - 0.76103703703703703703e-2 * t6595 - 0.15220740740740740740e-1 * t8441 + 0.76103703703703703700e-2 * t8443 - t8668 + 0.22831111111111111110e-1 * t8449 + 0.38051851851851851850e-2 * t10285 - 0.19025925925925925925e-1 * t10290 + 0.68493333333333333331e-1 * t10295 - 0.45662222222222222220e-1 * t10299 - 0.11415555555555555555e-1 * t10301 - 0.10274000000000000000e0 * t10305 + 0.13698666666666666666e0 * t10309 + 0.57077777777777777777e-2 * t10311 - 0.11415555555555555555e-1 * t10316 + 0.34246666666666666666e-1 * t10321 - 0.17123333333333333333e-1 * t10325;
11788   t10328 = t10327 * t251;
11789   t10330 = t3266 * t484;
11790   t10343 = t3272 * t505;
11791   t10346 = t950 * t2551;
11792   t10349 = t3307 * t505;
11793   t10355 = t3304 * t505;
11794   t10359 = t1571 * t3282;
11795   t10376 = -t6702 - 0.4e1 / 0.27e2 * t6595 - 0.8e1 / 0.27e2 * t8441 + t8444 - t8446 + 0.4e1 / 0.9e1 * t8449 + 0.2e1 / 0.27e2 * t10285 - 0.10e2 / 0.27e2 * t10290 + 0.4e1 / 0.3e1 * t10295 - 0.8e1 / 0.9e1 * t10299 - 0.2e1 / 0.9e1 * t10301 - 0.2e1 * t10305 + 0.8e1 / 0.3e1 * t10309 + t10311 / 0.9e1 - 0.2e1 / 0.9e1 * t10316 + 0.2e1 / 0.3e1 * t10321 - t10325 / 0.3e1;
11796   t10385 = t606 * t3300;
11797   t10388 = t606 * t3294;
11798   t10390 = t606 * t3297;
11799   t10392 = t258 * t10323;
11800   t10402 = 0.23154444444444444445e-1 * t10388 - 0.13892666666666666667e0 * t10390 - 0.10419500000000000000e0 * t119 * t10392 + t8477 - 0.68863333333333333332e0 * t8445 - 0.23154444444444444445e0 * t8487 - 0.45908888888888888888e0 * t8441 + 0.68863333333333333332e0 * t8449 - 0.30988500000000000000e1 * t10305 + 0.41318000000000000000e1 * t10309 - 0.57386111111111111112e0 * t10290;
11801   t10409 = t258 * t10319;
11802   t10412 = t1582 * t10314;
11803   t10415 = t6730 * t3275;
11804   t10421 = t1554 * t3282;
11805   t10424 = t6666 * t3275;
11806   t10429 = t258 * t10303;
11807   t10432 = t258 * t10307;
11808   t10437 = t1582 * t10293;
11809   t10440 = t6680 * t10288;
11810   t10443 = t1582 * t10297;
11811   t10446 = -0.17648625000000000000e1 * t10421 * t488 - 0.15779062500000000000e0 * t10424 * t488 + 0.63116250000000000000e0 * t2532 * t2524 - 0.62517000000000000000e0 * t119 * t10429 + 0.83356000000000000000e0 * t2547 * t10432 + 0.27785333333333333334e0 * t8514 - 0.22954444444444444444e0 * t6595 + 0.20839000000000000000e0 * t119 * t10437 - 0.46308888888888888889e-1 * t119 * t10440 - 0.13892666666666666667e0 * t2547 * t10443 - t6733;
11812   t10448 = -t8416 + 0.46308888888888888890e-1 * t8417 + 0.31558125000000000000e0 * t10359 * t488 + 0.63116250000000000000e0 * t493 * t10376 + 0.35297250000000000000e1 * t486 * t10376 + 0.11477222222222222222e0 * t10285 - 0.34431666666666666667e0 * t10301 + 0.17215833333333333333e0 * t10311 - 0.51647500000000000000e0 * t10325 + 0.69463333333333333333e-1 * t10385 + t10402 + 0.20659000000000000000e1 * t10295 - 0.13772666666666666667e1 * t10299 - t6673 - 0.11577222222222222222e0 * t6674 - 0.34431666666666666667e0 * t10316 + 0.10329500000000000000e1 * t10321 + 0.20839000000000000000e0 * t119 * t10409 - 0.34731666666666666667e-1 * t119 * t10412 + 0.26472937500000000000e1 * t10415 * t488 - 0.35297250000000000000e1 * t2516 * t2524 + t10446;
11813   t10449 = t10448 * t506;
11814   t10452 = t3303 * t1600;
11815   t10453 = t10452 * t505;
11816   t10458 = t2555 * t2551;
11817   t10461 = t3271 * t6747;
11818   t10462 = t10461 * t505;
11819   t10467 = t242 * t3319;
11820   t10468 = t517 * t10467;
11821   t10471 = t277 * t3347;
11822   t10472 = t10471 * t540;
11823   t10473 = t2578 * t10472;
11824   t10476 = t521 * t9774;
11825   t10477 = t518 * t10476;
11826   t10480 = t242 * t3311;
11827   t10481 = t517 * t10480;
11828   t10485 = t242 * t3315;
11829   t10486 = t517 * t10485;
11830   t10492 = t2570 * t10319;
11831   t10495 = t2566 * t10314;
11832   t10498 = t3193 * t413;
11833   t10499 = t8747 * t10498;
11834   t10500 = t2578 * t10499;
11835   t10503 = t886 * t4;
11836   t10504 = t2640 * t10503;
11837   t10505 = t8764 * t10504;
11838   t10508 = t10471 * t2580;
11839   t10509 = t2578 * t10508;
11840   t10512 = t8529 / 0.216e3 - t8536 / 0.648e3 + t10468 / 0.864e3 - t6766 / 0.1296e4 - t531 * t10473 / 0.1536e4 - t8568 + t8571 - t8581 - t8600 + t517 * t10477 / 0.288e3 + t10481 / 0.648e3 + t1631 * t3316 / 0.54e2 - t10486 / 0.432e3 - t1631 * t3320 / 0.108e3 - t1631 * t3312 / 0.81e2 - t517 * t10492 / 0.144e3 + t517 * t10495 / 0.216e3 + t557 * t10500 / 0.384e3 - t557 * t10505 / 0.288e3 + t1671 * t10509 / 0.768e3;
11841   t10513 = t3196 * t413;
11842   t10514 = t2640 * t10513;
11843   t10515 = t2578 * t10514;
11844   t10518 = t2634 * t10513;
11845   t10519 = t2578 * t10518;
11846   t10522 = t2566 * t10293;
11847   t10525 = t8836 * t10288;
11848   t10528 = t8840 * t10297;
11849   t10531 = t2570 * t10303;
11850   t10534 = t8816 * t10307;
11851   t10538 = t3258 * t540;
11852   t10539 = t1684 * t10538;
11853   t10542 = t3262 * t540;
11854   t10543 = t1684 * t10542;
11855   t10546 = t3353 * t476;
11856   t10547 = t1684 * t10546;
11857   t10550 = t3254 * t540;
11858   t10551 = t6841 * t10550;
11859   t10554 = t1616 * t3367;
11860   t10555 = t557 * t10554;
11861   t10560 = -t8613 - t557 * t10515 / 0.1152e4 + 0.5e1 / 0.6912e4 * t557 * t10519 - t517 * t10522 / 0.36e2 + 0.7e1 / 0.648e3 * t517 * t10525 + t517 * t10528 / 0.54e2 + t517 * t10531 / 0.48e2 - t517 * t10534 / 0.36e2 + t6807 / 0.162e3 + t6811 + t1682 * t10539 / 0.1152e4 - t1682 * t10543 / 0.2304e4 - t1682 * t10547 / 0.2304e4 - 0.5e1 / 0.6912e4 * t1682 * t10551 + t10555 / 0.3456e4 - t8647 / 0.5184e4 + t8653 / 0.864e3 + t8656 + t8658 / 0.3456e4 - t8661;
11862   t10562 = t963 * t2495;
11863   t10563 = t1684 * t10562;
11864   t10568 = t1616 * t3359;
11865   t10569 = t557 * t10568;
11866   t10573 = t1616 * t3325;
11867   t10574 = t1671 * t10573;
11868   t10578 = t6950 * t3330;
11869   t10579 = t1682 * t10578;
11870   t10581 = t560 * t10323;
11871   t10582 = t533 * t10581;
11872   t10585 = t1616 * t3354;
11873   t10586 = t531 * t10585;
11874   t10595 = t8684 * t949;
11875   t10600 = t8385 * t949;
11876   t10605 = t1598 * t3271;
11877   t10610 = t6656 * t3271;
11878   t10615 = t1548 * t3303;
11879   t10618 = t10449 * t187;
11880   t10621 = t1598 * t3303;
11881   t10626 = t2608 * t2551;
11882   t10629 = t6745 * t3271;
11883   t10630 = t8718 * t505;
11884   t10633 = 0.61370581910589784405e0 * t10328 * t187 - 0.19739208802178717239e2 * t10330 * t536 - 0.39478417604357434478e2 * t8380 * t959 + 0.78956835208714868956e2 * t10595 * t536 - 0.39478417604357434478e2 * t2508 * t2604 - 0.12697822051081974506e4 * t10600 * t2609 + 0.39478417604357434478e2 * t6639 * t3338 - 0.11843525281307230343e3 * t10605 * t536 + 0.78956835208714868956e2 * t2601 * t2604 + 0.38093466153245923519e4 * t10610 * t2609 - 0.19739208802178717239e2 * t1543 * t3341 + 0.39478417604357434478e2 * t10615 * t536 - 0.19739208802178717239e2 * t485 * t10618 - 0.63489110255409872532e3 * t10621 * t2609 - 0.63489110255409872532e3 * t6644 * t3344 - 0.12697822051081974506e4 * t2607 * t10626 - 0.40841222780709261955e5 * t10629 * t10630;
11885   t10634 = t10633 * t265;
11886   t10635 = t474 * t10634;
11887   t10636 = t533 * t10635;
11888   t10640 = t3324 * t476;
11889   t10641 = t1684 * t10640;
11890   t10644 = t2613 * t932;
11891   t10645 = t1684 * t10644;
11892   t10648 = t8753 * t10498;
11893   t10649 = t2578 * t10648;
11894   t10652 = t8781 * t10498;
11895   t10653 = t2578 * t10652;
11896   t10656 = t2634 * t10503;
11897   t10657 = t8764 * t10656;
11898   t10660 = t963 * t2490;
11899   t10661 = t6841 * t10660;
11900   t10664 = t1682 * t10563 / 0.576e3 - 0.5e1 / 0.1296e4 * t1723 * t3360 + 0.5e1 / 0.10368e5 * t10569 - t6975 * t3326 / 0.144e3 + t10574 / 0.1152e4 + t6947 * t3331 / 0.216e3 - t10579 / 0.1728e4 + t557 * t10582 / 0.2304e4 - t10586 / 0.2304e4 + t6898 / 0.6912e4 - t531 * t10636 / 0.1536e4 + t6900 / 0.1296e4 + t6905 + t6828 * t10641 / 0.1152e4 - t1682 * t10645 / 0.1152e4 - 0.5e1 / 0.1152e4 * t557 * t10649 + 0.5e1 / 0.2592e4 * t557 * t10653 + 0.5e1 / 0.1728e4 * t557 * t10657 - t8746 - 0.5e1 / 0.3456e4 * t1682 * t10661;
11901   t10665 = t8640 * t886;
11902   t10666 = t8639 * t10665;
11903   t10667 = t1684 * t10666;
11904   t10672 = t1616 * t3349;
11905   t10673 = t531 * t10672;
11906   t10679 = t1616 * t3363;
11907   t10680 = t557 * t10679;
11908   t10682 = t963 * t2501;
11909   t10683 = t8734 * t10682;
11910   t10686 = t3348 * t476;
11911   t10687 = t1684 * t10686;
11912   t10692 = t277 * t3323;
11913   t10693 = t6822 * t539;
11914   t10694 = t10692 * t10693;
11915   t10695 = t2578 * t10694;
11916   t10698 = t1672 * t2612;
11917   t10699 = t2579 * t10698;
11918   t10700 = t2578 * t10699;
11919   t10703 = t10692 * t2580;
11920   t10704 = t2578 * t10703;
11921   t10707 = t2579 * t2613;
11922   t10708 = t2578 * t10707;
11923   t10711 = t10692 * t540;
11924   t10712 = t2578 * t10711;
11925   t10715 = t932 * t539;
11926   t10716 = t8623 * t10715;
11927   t10717 = t1684 * t10716;
11928   t10721 = -t1682 * t10667 / 0.1152e4 + t1628 * t3350 / 0.288e3 - t10673 / 0.2304e4 + t1628 * t3355 / 0.288e3 - t1723 * t3368 / 0.432e3 + t8809 - t10680 / 0.1728e4 - t1682 * t10683 / 0.576e3 - t1682 * t10687 / 0.2304e4 - t8828 + t8832 + t1723 * t3364 / 0.216e3 - t8849 - t6820 * t10695 / 0.256e3 + t1671 * t10700 / 0.384e3 + t1671 * t10704 / 0.256e3 - t531 * t10708 / 0.768e3 - t531 * t10712 / 0.1536e4 + t6828 * t10717 / 0.576e3 - t7003 / 0.10368e5;
11929   t10723 = t10512 + t10560 + t10664 + t10721;
11930   t10724 = params->beta * t10723;
11931   t10726 = t3372 * t187;
11932   t10737 = t7025 * t3376 * t577;
11933   t10741 = t1735 * t979 * t2678;
11934   t10745 = t3392 * t577;
11935   t10746 = t1735 * t10745;
11936   t10749 = t282 * t3323;
11937   t10762 = t972 * t962;
11938   t10775 = t282 * t3347;
11939   t10792 = t527 * t3371;
11940   t10797 = -t10634 * t262 * t572 - 0.6e1 * t10693 * t10749 * t8892 + 0.4e1 * t10698 * t2662 * t2663 + t10723 * t188 * t284 - t10749 * t1679 * t540 + 0.6e1 * t10749 * t2580 * t2662 - 0.2e1 * t10762 * t1679 * t540 + 0.4e1 * t10762 * t2580 * t2662 - t10775 * t1679 * t540 + 0.2e1 * t10775 * t2580 * t2662 - t10792 * t262 * t540 - 0.2e1 * t1679 * t2613 * t2663 - t1744 * t262 * t3348 - t1744 * t262 * t3353 - 0.2e1 * t2613 * t262 * t2673 + 0.2e1 * t262 * t3324 * t7038 - 0.2e1 * t262 * t8931 * t963;
11941   t10798 = t571 * t10797;
11942   t10800 = t10724 * t289 - t10726 * t578 - 0.6e1 * t10737 * t568 + 0.4e1 * t10741 * t568 + 0.2e1 * t10746 * t568 - t10798 * t568 + 0.2e1 * t1730 * t3377 - t1730 * t3393 + 0.4e1 * t2654 * t2658 - 0.2e1 * t2654 * t2679 - 0.2e1 * t8868 * t980;
11943   t10804 = t3395 * t1763;
11944   t10810 = t3399 * t7082;
11945   t10813 = 0.10000000000000000000e1 * t1543 * t3304 - 0.20000000000000000000e1 * t1548 * t10355 + 0.10000000000000000000e1 * t485 * t10449 + 0.32163958997385070134e2 * t1598 * t10453 + 0.32163958997385070134e2 * t6644 * t3307 + 0.64327917994770140268e2 * t1598 * t10458 + 0.20690405167709360120e4 * t6745 * t10462 + t169 * t10800 * t581 / 0.2e1 - t169 * t10804 * t580 / 0.2e1 - t169 * t2685 * t2681 + t169 * t10810 * t580;
11946   t10815 = my_piecewise3(t296, -0.3109070e-1 * t10328 + 0.10000000000000000000e1 * t10330 * t507 + 0.20000000000000000000e1 * t8380 * t950 - 0.40000000000000000000e1 * t8684 * t2513 + 0.20000000000000000000e1 * t2508 * t2552 + 0.64327917994770140268e2 * t8385 * t2556 - 0.20000000000000000000e1 * t6639 * t3272 + 0.60000000000000000000e1 * t1598 * t10343 - 0.40000000000000000000e1 * t1548 * t10346 - 0.19298375398431042081e3 * t6656 * t10349 + t10813, t10267);
11947   t10821 = t1038 * t4;
11948   t10832 = t599 * t3539;
11949   t10834 = t7107 * t3199;
11950   t10835 = t10834 * t436;
11951   t10836 = t2271 * t10835;
11952   t10837 = t106 * t10836;
11953   t10839 = t7113 * t3199;
11954   t10840 = t10839 * t436;
11955   t10841 = t827 * t10840;
11956   t10842 = t106 * t10841;
11957   t10844 = t2879 * t4;
11958   t10845 = t827 * t10844;
11959   t10846 = t2500 * t10845;
11960   t10848 = t599 * t3543;
11961   t10850 = t3538 * t436;
11962   t10851 = t758 * t10850;
11963   t10852 = t106 * t10851;
11964   t10854 = t2884 * t4;
11965   t10855 = t758 * t10854;
11966   t10856 = t2500 * t10855;
11967   t10858 = t599 * t3547;
11968   t10860 = t2114 * t3202;
11969   t10861 = t10860 * t436;
11970   t10862 = t827 * t10861;
11971   t10863 = t106 * t10862;
11972   t10865 = t2119 * t3202;
11973   t10866 = t10865 * t436;
11974   t10867 = t758 * t10866;
11975   t10868 = t106 * t10867;
11976   t10870 = t759 * t9785;
11977   t10871 = t758 * t10870;
11978   t10872 = t106 * t10871;
11979   t10874 = -t7097 - 0.76103703703703703703e-2 * t7098 - 0.15220740740740740740e-1 * t9020 + 0.76103703703703703700e-2 * t9032 - t9207 - 0.22831111111111111110e-1 * t9022 + 0.38051851851851851850e-2 * t10832 - 0.19025925925925925925e-1 * t10837 + 0.68493333333333333331e-1 * t10842 + 0.45662222222222222220e-1 * t10846 - 0.11415555555555555555e-1 * t10848 - 0.10274000000000000000e0 * t10852 - 0.13698666666666666666e0 * t10856 + 0.57077777777777777777e-2 * t10858 - 0.11415555555555555555e-1 * t10863 + 0.34246666666666666666e-1 * t10868 - 0.17123333333333333333e-1 * t10872;
11980   t10875 = t10874 * t318;
11981   t10877 = t3550 * t768;
11982   t10890 = t3556 * t786;
11983   t10893 = t1059 * t2937;
11984   t10896 = t3591 * t786;
11985   t10902 = t3588 * t786;
11986   t10905 = t323 * t10870;
11987   t10912 = t606 * t3578;
11988   t10914 = t606 * t3581;
11989   t10916 = t606 * t3584;
11990   t10932 = -t7220 - 0.4e1 / 0.27e2 * t7098 - 0.8e1 / 0.27e2 * t9020 + t9033 - t9035 - 0.4e1 / 0.9e1 * t9022 + 0.2e1 / 0.27e2 * t10832 - 0.10e2 / 0.27e2 * t10837 + 0.4e1 / 0.3e1 * t10842 + 0.8e1 / 0.9e1 * t10846 - 0.2e1 / 0.9e1 * t10848 - 0.2e1 * t10852 - 0.8e1 / 0.3e1 * t10856 + t10858 / 0.9e1 - 0.2e1 / 0.9e1 * t10863 + 0.2e1 / 0.3e1 * t10868 - t10872 / 0.3e1;
11991   t10941 = t2142 * t3566;
11992   t10944 = t7211 * t3559;
11993   t10949 = t2159 * t3566;
11994   t10957 = 0.35297250000000000000e1 * t770 * t10932 - 0.35297250000000000000e1 * t2904 * t2912 - 0.17648625000000000000e1 * t10941 * t772 - 0.15779062500000000000e0 * t10944 * t772 + 0.63116250000000000000e0 * t2920 * t2912 + 0.31558125000000000000e0 * t10949 * t772 - 0.57386111111111111112e0 * t10837 + 0.20659000000000000000e1 * t10842 + 0.13772666666666666667e1 * t10846 - 0.30988500000000000000e1 * t10852 - 0.41318000000000000000e1 * t10856;
11995   t10965 = t323 * t10850;
11996   t10968 = t323 * t10854;
11997   t10971 = t323 * t10866;
11998   t10975 = t2169 * t10861;
11999   t10978 = t2169 * t10840;
12000   t10981 = t7185 * t10835;
12001   t10984 = t2169 * t10844;
12002   t10990 = t7217 * t3559;
12003   t10993 = -0.34731666666666666667e-1 * t119 * t10975 - t7204 + 0.20839000000000000000e0 * t119 * t10978 - 0.46308888888888888889e-1 * t119 * t10981 + 0.13892666666666666667e0 * t2547 * t10984 - 0.22954444444444444444e0 * t7098 - t9124 + 0.46308888888888888890e-1 * t9125 - 0.68863333333333333332e0 * t9034 + t9132 + 0.26472937500000000000e1 * t10990 * t772;
12004   t10995 = -0.10419500000000000000e0 * t119 * t10905 + 0.11477222222222222222e0 * t10832 - 0.34431666666666666667e0 * t10848 + 0.17215833333333333333e0 * t10858 - 0.51647500000000000000e0 * t10872 + 0.23154444444444444445e-1 * t10912 - 0.13892666666666666667e0 * t10914 + 0.69463333333333333333e-1 * t10916 + 0.63116250000000000000e0 * t777 * t10932 - 0.11577222222222222222e0 * t7179 + t10957 - 0.34431666666666666667e0 * t10863 + 0.10329500000000000000e1 * t10868 - 0.27785333333333333334e0 * t9018 - 0.45908888888888888888e0 * t9020 - 0.68863333333333333332e0 * t9022 - 0.23154444444444444445e0 * t9024 - t7192 - 0.62517000000000000000e0 * t119 * t10965 - 0.83356000000000000000e0 * t2547 * t10968 + 0.20839000000000000000e0 * t119 * t10971 + t10993;
12005   t10996 = t10995 * t787;
12006   t10999 = t3587 * t2187;
12007   t11000 = t10999 * t786;
12008   t11005 = t2941 * t2937;
12009   t11008 = t3555 * t7249;
12010   t11009 = t11008 * t786;
12011   t11012 = t3174 * t516;
12012   t11015 = t2947 * t2951;
12013   t11017 = t242 * t3630;
12014   t11018 = t794 * t11017;
12015   t11020 = t797 * t9785;
12016   t11021 = t518 * t11020;
12017   t11026 = t242 * t3634;
12018   t11027 = t794 * t11026;
12019   t11029 = t242 * t3638;
12020   t11030 = t794 * t11029;
12021   t11032 = t3599 * t820;
12022   t11034 = t3624 * t791;
12023   t11036 = 0.11e2 / 0.324e3 * t11012 * t799 - t11015 / 0.162e3 - t11018 / 0.432e3 + t794 * t11021 / 0.288e3 + t2947 * t2963 / 0.27e2 + t7255 + t11027 / 0.864e3 + t11030 / 0.648e3 + 0.19e2 / 0.1296e4 * t11032 + 0.11e2 / 0.324e3 * t11034 - t9155;
12024   t11038 = t9163 * t10835;
12025   t11041 = t9167 * t10844;
12026   t11046 = t3199 * t436;
12027   t11047 = t9434 * t11046;
12028   t11048 = t2578 * t11047;
12029   t11051 = t905 * t4;
12030   t11052 = t3033 * t11051;
12031   t11053 = t8764 * t11052;
12032   t11056 = t9159 - t7276 / 0.1296e4 + 0.7e1 / 0.648e3 * t794 * t11038 - t794 * t11041 / 0.54e2 - t9191 - t9274 - t9276 / 0.5184e4 + t9281 + t9300 / 0.81e2 - 0.5e1 / 0.1152e4 * t824 * t11048 + t824 * t11053 / 0.288e3;
12033   t11058 = t9329 * t11046;
12034   t11059 = t2578 * t11058;
12035   t11068 = t2958 * t10850;
12036   t11071 = t2954 * t10840;
12037   t11074 = t9174 * t10854;
12038   t11077 = t2958 * t10866;
12039   t11080 = t2954 * t10861;
12040   t11083 = t824 * t11059 / 0.384e3 - t9313 - t7330 / 0.10368e5 + t7350 / 0.6912e4 + t2947 * t2959 / 0.27e2 - 0.2e1 / 0.81e2 * t2947 * t2955 + t794 * t11068 / 0.48e2 - t794 * t11071 / 0.36e2 + t794 * t11074 / 0.36e2 - t794 * t11077 / 0.144e3 + t794 * t11080 / 0.216e3;
12041   t11084 = t340 * t3667;
12042   t11085 = t11084 * t814;
12043   t11086 = t2578 * t11085;
12044   t11089 = t9341 * t11046;
12045   t11090 = t2578 * t11089;
12046   t11093 = t3027 * t11051;
12047   t11094 = t8764 * t11093;
12048   t11097 = t3202 * t436;
12049   t11098 = t3033 * t11097;
12050   t11099 = t2578 * t11098;
12051   t11102 = t3027 * t11097;
12052   t11103 = t2578 * t11102;
12053   t11106 = t2966 * t2997;
12054   t11107 = t2578 * t11106;
12055   t11110 = t340 * t3607;
12056   t11111 = t11110 * t814;
12057   t11112 = t2578 * t11111;
12058   t11115 = t2219 * t2996;
12059   t11116 = t2966 * t11115;
12060   t11117 = t2578 * t11116;
12061   t11122 = t7427 * t3620;
12062   t11123 = t2232 * t11122;
12063   t11125 = t3597 * t61;
12064   t11127 = t262 * t804 * t11125;
12065   t11130 = -t807 * t11086 / 0.1536e4 + 0.5e1 / 0.2592e4 * t824 * t11090 - 0.5e1 / 0.1728e4 * t824 * t11094 - t824 * t11099 / 0.1152e4 + 0.5e1 / 0.6912e4 * t824 * t11103 - t807 * t11107 / 0.768e3 - t807 * t11112 / 0.1536e4 + t2217 * t11117 / 0.384e3 + t3009 * t3004 / 0.144e3 - t11123 / 0.1728e4 - 0.19e2 / 0.864e3 * t11127 * t816;
12066   t11135 = t1616 * t3603;
12067   t11136 = t824 * t11135;
12068   t11138 = t1075 * t2880;
12069   t11139 = t7439 * t11138;
12070   t11142 = t9183 * t905;
12071   t11143 = t9182 * t11142;
12072   t11144 = t2233 * t11143;
12073   t11149 = t3015 * t3024;
12074   t11152 = t9336 / 0.3456e4 - t9339 / 0.864e3 - t11136 / 0.1728e4 + t9363 - t9383 - 0.5e1 / 0.3456e4 * t2232 * t11139 - t2232 * t11144 / 0.1152e4 + t3009 * t2999 / 0.144e3 - t11149 / 0.324e3 - t9393 / 0.216e3 - t9396;
12075   t11154 = t3546 * t814;
12076   t11155 = t2233 * t11154;
12077   t11160 = t827 * t10870;
12078   t11161 = t533 * t11160;
12079   t11170 = t9224 * t1058;
12080   t11175 = t9000 * t1058;
12081   t11180 = t2185 * t3555;
12082   t11185 = t7159 * t3555;
12083   t11190 = t2136 * t3587;
12084   t11193 = t10996 * t187;
12085   t11196 = t2185 * t3587;
12086   t11201 = t2992 * t2937;
12087   t11204 = t7247 * t3555;
12088   t11205 = t9258 * t786;
12089   t11208 = 0.61370581910589784405e0 * t10875 * t187 - 0.19739208802178717239e2 * t10877 * t810 - 0.39478417604357434478e2 * t9221 * t1071 + 0.78956835208714868956e2 * t11170 * t810 - 0.39478417604357434478e2 * t2896 * t2988 - 0.12697822051081974506e4 * t11175 * t2993 + 0.39478417604357434478e2 * t7142 * t3658 - 0.11843525281307230343e3 * t11180 * t810 + 0.78956835208714868956e2 * t2985 * t2988 + 0.38093466153245923519e4 * t11185 * t2993 - 0.19739208802178717239e2 * t2131 * t3661 + 0.39478417604357434478e2 * t11190 * t810 - 0.19739208802178717239e2 * t769 * t11193 - 0.63489110255409872532e3 * t11196 * t2993 - 0.63489110255409872532e3 * t7147 * t3664 - 0.12697822051081974506e4 * t2991 * t11201 - 0.40841222780709261955e5 * t11204 * t11205;
12090   t11209 = t11208 * t329;
12091   t11210 = t758 * t11209;
12092   t11211 = t533 * t11210;
12093   t11214 = t1616 * t3616;
12094   t11215 = t2217 * t11214;
12095   t11217 = t3009 * t2972;
12096   t11219 = t1616 * t3609;
12097   t11220 = t807 * t11219;
12098   t11222 = t1041 * t813;
12099   t11223 = t9293 * t11222;
12100   t11224 = t2233 * t11223;
12101   t11227 = t3615 * t760;
12102   t11228 = t2233 * t11227;
12103   t11231 = t2997 * t1041;
12104   t11232 = t2233 * t11231;
12105   t11235 = -t9403 / 0.648e3 - t2232 * t11155 / 0.2304e4 + t3015 * t3039 / 0.108e3 + t824 * t11161 / 0.2304e4 - t807 * t11211 / 0.1536e4 + t11215 / 0.1152e4 + t11217 / 0.216e3 - t11220 / 0.2304e4 + t7444 * t11224 / 0.576e3 + t7444 * t11228 / 0.1152e4 - t2232 * t11232 / 0.1152e4;
12106   t11237 = t3668 * t760;
12107   t11238 = t2233 * t11237;
12108   t11241 = t1075 * t2889;
12109   t11242 = t9417 * t11241;
12110   t11246 = t1616 * t3650;
12111   t11247 = t824 * t11246;
12112   t11249 = t1616 * t3646;
12113   t11250 = t824 * t11249;
12114   t11252 = t3608 * t760;
12115   t11253 = t2233 * t11252;
12116   t11260 = -t2232 * t11238 / 0.2304e4 - t9428 - t9431 + t2232 * t11242 / 0.576e3 + t9432 / 0.648e3 + t7376 + 0.5e1 / 0.10368e5 * t11247 + t11250 / 0.3456e4 - t2232 * t11253 / 0.2304e4 + t9370 * t2976 / 0.216e3 + t3015 * t3035 / 0.108e3;
12117   t11263 = t3538 * t814;
12118   t11264 = t7439 * t11263;
12119   t11269 = t7382 * t813;
12120   t11270 = t11110 * t11269;
12121   t11271 = t2578 * t11270;
12122   t11274 = t11084 * t2967;
12123   t11275 = t2578 * t11274;
12124   t11278 = t11110 * t2967;
12125   t11279 = t2578 * t11278;
12126   t11282 = t1616 * t3669;
12127   t11283 = t807 * t11282;
12128   t11286 = t262 * t333 * t11125;
12129   t11291 = t3542 * t814;
12130   t11292 = t2233 * t11291;
12131   t11295 = t1075 * t2885;
12132   t11296 = t2233 * t11295;
12133   t11299 = -0.5e1 / 0.648e3 * t3015 * t3030 - 0.5e1 / 0.6912e4 * t2232 * t11264 - t9193 * t2969 / 0.72e2 - t7381 * t11271 / 0.256e3 + t2217 * t11275 / 0.768e3 + t2217 * t11279 / 0.256e3 + t9445 - t11283 / 0.2304e4 + 0.19e2 / 0.1296e4 * t11286 * t829 + t9370 * t3021 / 0.216e3 + t2232 * t11292 / 0.1152e4 + t2232 * t11296 / 0.576e3;
12134   t11302 = t11036 + t11056 + t11083 + t11130 + t11152 + t11235 + t11260 + t11299;
12135   t11303 = params->beta * t11302;
12136   t11305 = t3676 * t187;
12137   t11316 = t7462 * t3680 * t844;
12138   t11320 = t2292 * t1098 * t3070;
12139   t11324 = t3696 * t844;
12140   t11325 = t2292 * t11324;
12141   t11328 = t345 * t3607;
12142   t11341 = t1091 * t1074;
12143   t11354 = t345 * t3667;
12144   t11371 = t803 * t3675;
12145   t11376 = -0.2e1 * t1075 * t262 * t9526 + 0.4e1 * t11115 * t3054 * t3055 - t11209 * t262 * t839 - 0.6e1 * t11269 * t11328 * t9487 + t11302 * t188 * t347 - t11328 * t2229 * t814 + 0.6e1 * t11328 * t2967 * t3054 - 0.2e1 * t11341 * t2229 * t814 + 0.4e1 * t11341 * t2967 * t3054 - t11354 * t2229 * t814 + 0.2e1 * t11354 * t2967 * t3054 - t11371 * t262 * t814 - 0.2e1 * t2229 * t2997 * t3055 - t2301 * t262 * t3608 - t2301 * t262 * t3668 - 0.2e1 * t262 * t2997 * t3065 + 0.2e1 * t262 * t3615 * t7475;
12146   t11377 = t838 * t11376;
12147   t11379 = -0.2e1 * t1099 * t9463 + t11303 * t352 - t11305 * t845 - 0.6e1 * t11316 * t835 + 0.4e1 * t11320 * t835 + 0.2e1 * t11325 * t835 - t11377 * t835 + 0.2e1 * t2287 * t3681 - t2287 * t3697 + 0.4e1 * t3046 * t3050 - 0.2e1 * t3046 * t3071;
12148   t11383 = t3699 * t2320;
12149   t11389 = t3703 * t7519;
12150   t11392 = 0.10000000000000000000e1 * t2131 * t3588 - 0.20000000000000000000e1 * t2136 * t10902 + 0.10000000000000000000e1 * t769 * t10996 + 0.32163958997385070134e2 * t2185 * t11000 + 0.32163958997385070134e2 * t7147 * t3591 + 0.64327917994770140268e2 * t2185 * t11005 + 0.20690405167709360120e4 * t7247 * t11009 + t169 * t11379 * t848 / 0.2e1 - t169 * t11383 * t847 / 0.2e1 - t169 * t3077 * t3073 + t169 * t11389 * t847;
12151   t11394 = my_piecewise3(t359, -0.3109070e-1 * t10875 + 0.10000000000000000000e1 * t10877 * t788 + 0.20000000000000000000e1 * t9221 * t1059 - 0.40000000000000000000e1 * t9224 * t2901 + 0.20000000000000000000e1 * t2896 * t2938 + 0.64327917994770140268e2 * t9000 * t2942 - 0.20000000000000000000e1 * t7142 * t3556 + 0.60000000000000000000e1 * t2185 * t10890 - 0.40000000000000000000e1 * t2136 * t10893 - 0.19298375398431042081e3 * t7159 * t10896 + t11392, t10267);
12152   t11400 = t1106 * t4;
12153   t11407 = t10815 * t34 / 0.2e1 + t3531 * t413 / 0.2e1 + t2867 * t886 + 0.2e1 * t10821 * t377 + t752 * t3196 / 0.2e1 + t297 * t9774 / 0.2e1 + t11394 * t46 / 0.2e1 + t3708 * t436 / 0.2e1 + t3082 * t905 - 0.2e1 * t11400 * t377 + t853 * t3202 / 0.2e1 + t360 * t9785 / 0.2e1;
12154   t11409 = t97 * t9792;
12155   t11414 = t928 * t2478;
12156   t11419 = t464 * t3249;
12157   t11422 = t96 * t9848;
12158   t11425 = t3219 * t443;
12159   t11430 = t912 * t928;
12160   t11431 = t11430 * t443;
12161   t11434 = t3732 * t443;
12162   t11437 = t3103 * t2478;
12163   t11448 = -0.4e1 * t11409 * t400 + 0.4e1 * t11414 * t81 + 0.2e1 * t11419 * t81 + 0.2e1 * t11422 * t81 - 0.8e1 * t11425 * t400 + 0.80e2 * t11431 * t7757 - 0.8e1 * t11434 * t400 - 0.16e2 * t11437 * t400 - 0.4e1 * t1392 * t3727 - 0.16e2 * t2378 * t3104 - 0.16e2 * t2378 * t3112 + 0.40e2 * t3100 * t7591 + 0.4e1 * t3118 * t881 + 0.2e1 * t3219 * t397 + 0.2e1 * t3732 * t397;
12164   t11455 = t3727 * t443;
12165   t11458 = t96 * t3209;
12166   t11459 = t11458 * t464;
12167   t11462 = t1113 * t2436;
12168   t11467 = t3721 * t443;
12169   t11470 = t96 * t3152;
12170   t11471 = t11470 * t464;
12171   t11482 = t464 * t912;
12172   t11483 = t11482 * t928;
12173   t11486 = t7750 * t928;
12174   t11490 = -0.8e1 * t1113 * t7763 + 0.4e1 * t1116 * t2377 + 0.20e2 * t11455 * t1397 - 0.8e1 * t11459 * t400 + 0.40e2 * t11462 * t1397 - 0.120e3 * t11467 * t6453 + 0.40e2 * t11471 * t1397 - 0.16e2 * t11483 * t400 - 0.16e2 * t11486 * t400 - 0.16e2 * t1392 * t3724 - 0.8e1 * t2378 * t3107 + 0.4e1 * t3115 * t881 + 0.2e1 * t3149 * t863 + 0.20e2 * t3721 * t6445 - 0.4e1 * t860 * t9657 + t9656 * t97;
12175   t11491 = t11448 + t11490;
12176   t11497 = t1110 * t2478;
12177   t11505 = t10267 * t366 - 0.2e1 * t10271 * t449 - 0.4e1 * t10278 * t449 + 0.2e1 * t1037 * t3121 + 0.2e1 * t1119 * t2866 - t11407 * t98 + t11491 * t227 - 0.4e1 * t11497 * t449 - 0.2e1 * t1476 * t3250 - 0.4e1 * t2442 * t2479 - 0.4e1 * t2442 * t2483 - 0.4e1 * t2448 * t3223 + t3530 * t866 + t3735 * t751 - 0.4e1 * t8342 * t929;
12178   t11506 = t9869 + t11505;
12179   t11507 = t7 * t11506;
12180   t11510 = t1122 * t1130;
12181   t11516 = t368 * t3755;
12182   t11518 = params->d * t11506;
12183   t11530 = t464 * t3219;
12184   t11533 = t1116 * t2478;
12185   t11538 = t3732 * t464;
12186   t11541 = t97 * t9848;
12187   t11544 = 0.12e2 * t1125 * t3138 + 0.6e1 * t1125 * t3141 + 0.6e1 * t1127 * t3132 + t11518 * t370 + 0.6e1 * t11530 * t369 + 0.12e2 * t11533 * t369 + 0.6e1 * t11538 * t369 + 0.3e1 * t11541 * t369 + 0.3e1 * t3745 * t875 + 0.6e1 * t3749 * t873 + 0.3e1 * t3752 * t873;
12188   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
12189     v3rho3[2] = 0.2e1 * t1123 * t3144 + 0.2e1 * t1130 * t3127 + t11507 * t372 + t11544 * t872 + t3741 * t878 + t3755 * t870 + 0.2e1 * t11510 + t11516 + t7571 + t7573 + t9611 + t9613 + t9645;
12190 
12191   t11549 = t1110 * t3249;
12192   t11552 = -t6415 - t6417 - t6419 - t6422 - t6424 - t6426 - t6428 - t6431 - t6433 - t6435 - t6439;
12193   t11553 = t11552 * t80;
12194   t11560 = t3152 * t912;
12195   t11563 = t912 * t3209;
12196   t11566 = t6460 + t6461 + t6462;
12197   t11567 = t11566 * t59;
12198   t11570 = t3155 * t901;
12199   t11575 = t883 * t3187;
12200   t11582 = t3164 * t887;
12201   t11583 = t5770 * t11582;
12202   t11586 = t2396 * t3168;
12203   t11589 = -t377 - t5779;
12204   t11590 = 0.3e1 * t11589;
12205   t11591 = t37 * t11590;
12206   t11595 = 0.1e1 / t42 / t335;
12207   t11596 = sigma[2] * t11595;
12208   t11605 = t3179 * t897;
12209   t11606 = t5786 * t11605;
12210   t11609 = t2406 * t3183;
12211   t11612 = -t11590;
12212   t11613 = t49 * t11612;
12213   t11616 = -0.10e2 / 0.27e2 * t31 * t11583 + 0.10e2 / 0.3e1 * t31 * t11586 + 0.5e1 / 0.3e1 * t31 * t11591 - 0.1232e4 / 0.27e2 * t11596 * t50 + 0.440e3 / 0.9e1 * t3174 * t898 - 0.80e2 / 0.9e1 * t894 * t3180 - 0.40e2 / 0.3e1 * t894 * t3184 - 0.10e2 / 0.27e2 * t45 * t11606 + 0.10e2 / 0.3e1 * t45 * t11609 + 0.5e1 / 0.3e1 * t45 * t11613 + t6502;
12214   t11617 = t25 * t11616;
12215   t11624 = t3193 * t886;
12216   t11629 = 0.6e1 * t11589;
12217   t11632 = t3199 * t905;
12218   t11637 = -t11629;
12219   t11640 = -0.280e3 / 0.27e2 * t6512 * t11624 + 0.28e2 / 0.3e1 * t2420 * t3196 - 0.4e1 / 0.3e1 * t431 * t11629 - 0.280e3 / 0.27e2 * t6521 * t11632 + 0.28e2 / 0.3e1 * t2426 * t3202 - 0.4e1 / 0.3e1 * t435 * t11637;
12220   t11641 = t66 * t11640;
12221   t11644 = t11567 * t74 / 0.24e2 + t11570 * t74 / 0.8e1 + t3156 * t909 / 0.8e1 + t11575 * t74 / 0.8e1 + t3159 * t909 / 0.4e1 + t884 * t3206 / 0.8e1 + t11617 * t74 / 0.24e2 + t3188 * t909 / 0.8e1 + t902 * t3206 / 0.8e1 + t60 * t11641 / 0.24e2;
12222   t11647 = -0.120e3 * t11560 * t6453 + 0.60e2 * t11563 * t1397 - 0.4e1 * t11644 * t400 - 0.12e2 * t2378 * t3209 + 0.60e2 * t3152 * t7591 - 0.12e2 * t912 * t9657 + t11553;
12223   t11648 = t11647 * t97;
12224   t11656 = t6604 * t11624;
12225   t11657 = t1698 * t11656;
12226   t11658 = t106 * t11657;
12227   t11660 = t6610 * t11624;
12228   t11661 = t560 * t11660;
12229   t11662 = t106 * t11661;
12230   t11664 = t2489 * t3196;
12231   t11665 = t560 * t11664;
12232   t11666 = t106 * t11665;
12233   t11668 = t1526 * t11624;
12234   t11669 = t474 * t11668;
12235   t11670 = t106 * t11669;
12236   t11672 = t2494 * t3196;
12237   t11673 = t474 * t11672;
12238   t11674 = t106 * t11673;
12239   t11676 = t475 * t11629;
12240   t11677 = t474 * t11676;
12241   t11678 = t106 * t11677;
12242   t11680 = -t6594 - 0.22831111111111111110e-1 * t8441 + 0.11415555555555555555e-1 * t10285 - 0.34246666666666666665e-1 * t10301 + 0.17123333333333333333e-1 * t10311 - 0.19025925925925925925e-1 * t11658 + 0.68493333333333333331e-1 * t11662 - 0.34246666666666666665e-1 * t11666 - 0.10274000000000000000e0 * t11670 + 0.10274000000000000000e0 * t11674 - 0.17123333333333333333e-1 * t11678;
12243   t11681 = t11680 * t251;
12244   t11691 = t3271 * t949;
12245   t11692 = t11691 * t506;
12246   t11695 = t950 * t3303;
12247   t11698 = t11691 * t1600;
12248   t11701 = t1582 * t11664;
12249   t11704 = t258 * t11672;
12250   t11711 = t6680 * t11656;
12251   t11714 = t258 * t11676;
12252   t11717 = t1582 * t11660;
12253   t11720 = t258 * t11668;
12254   t11729 = -0.10419500000000000000e0 * t119 * t11701 + 0.62517000000000000000e0 * t119 * t11704 - 0.52945875000000000000e1 * t2516 * t3282 + 0.94674375000000000000e0 * t2532 * t3282 - 0.46308888888888888889e-1 * t119 * t11711 - 0.10419500000000000000e0 * t119 * t11714 + 0.20839000000000000000e0 * t119 * t11717 - 0.62517000000000000000e0 * t119 * t11720 - 0.10329500000000000000e1 * t11666 + 0.30988500000000000000e1 * t11674 + 0.34431666666666666666e0 * t10285 - 0.10329500000000000000e1 * t10301 + 0.51647499999999999999e0 * t10311 + 0.20839000000000000000e0 * t10385;
12255   t11734 = t3275 * t940;
12256   t11749 = -t6702 - 0.4e1 / 0.9e1 * t8441 + 0.2e1 / 0.9e1 * t10285 - 0.2e1 / 0.3e1 * t10301 + t10311 / 0.3e1 - 0.10e2 / 0.27e2 * t11658 + 0.4e1 / 0.3e1 * t11662 - 0.2e1 / 0.3e1 * t11666 - 0.2e1 * t11670 + 0.2e1 * t11674 - t11678 / 0.3e1;
12257   t11758 = 0.69463333333333333335e-1 * t10388 - 0.41678000000000000001e0 * t10390 - 0.34731666666666666667e0 * t8487 - 0.68863333333333333332e0 * t8441 + 0.26472937500000000000e1 * t6730 * t11734 - t6673 - 0.15779062500000000000e0 * t6666 * t11734 + 0.35297250000000000000e1 * t486 * t11749 + 0.63116250000000000000e0 * t493 * t11749 - t6733 - 0.57386111111111111112e0 * t11658 + 0.20659000000000000000e1 * t11662 - 0.30988500000000000000e1 * t11670 - 0.51647500000000000000e0 * t11678;
12258   t11759 = t11729 + t11758;
12259   t11760 = t11759 * t506;
12260   t11763 = t10452 * t949;
12261   t11766 = t11691 * t6747;
12262   t11771 = t521 * t11629;
12263   t11772 = t518 * t11771;
12264   t11775 = t6755 * t11624;
12265   t11776 = t518 * t11775;
12266   t11779 = t6773 * t11624;
12267   t11780 = t518 * t11779;
12268   t11783 = t560 * t11676;
12269   t11784 = t533 * t11783;
12270   t11797 = t11692 * t187;
12271   t11802 = t11698 * t187;
12272   t11805 = t11760 * t187;
12273   t11808 = t2608 * t949;
12274   t11811 = t11766 * t187;
12275   t11814 = 0.61370581910589784405e0 * t11681 * t187 - 0.59217626406536151717e2 * t10330 * t959 + 0.11843525281307230343e3 * t8684 * t3338 - 0.59217626406536151717e2 * t2508 * t3341 - 0.19046733076622961759e4 * t8385 * t3344 - 0.11843525281307230343e3 * t1598 * t11797 + 0.11843525281307230343e3 * t2601 * t3341 + 0.38093466153245923519e4 * t6656 * t11802 - 0.19739208802178717239e2 * t485 * t11805 - 0.19046733076622961759e4 * t10621 * t11808 - 0.40841222780709261955e5 * t6745 * t11811;
12276   t11815 = t11814 * t265;
12277   t11816 = t474 * t11815;
12278   t11817 = t533 * t11816;
12279   t11822 = t886 * t3196;
12280   t11823 = t2634 * t11822;
12281   t11824 = t2578 * t11823;
12282   t11827 = t2640 * t11822;
12283   t11828 = t2578 * t11827;
12284   t11831 = t10471 * t963;
12285   t11832 = t2578 * t11831;
12286   t11835 = t1672 * t3347;
12287   t11836 = t2579 * t11835;
12288   t11837 = t2578 * t11836;
12289   t11840 = t6768 * t11624;
12290   t11841 = t518 * t11840;
12291   t11844 = t3323 * t962;
12292   t11845 = t11844 * t265;
12293   t11846 = t474 * t11845;
12294   t11847 = t533 * t11846;
12295   t11850 = t1698 * t11660;
12296   t11851 = t533 * t11850;
12297   t11854 = t11844 * t1672;
12298   t11855 = t474 * t11854;
12299   t11856 = t533 * t11855;
12300   t11859 = t11844 * t6822;
12301   t11860 = t474 * t11859;
12302   t11861 = t533 * t11860;
12303   t11864 = -t8536 / 0.432e3 + t10468 / 0.288e3 + t517 * t11772 / 0.288e3 + 0.7e1 / 0.648e3 * t517 * t11776 + t517 * t11780 / 0.48e2 + t557 * t11784 / 0.2304e4 - t531 * t11817 / 0.1536e4 + t10481 / 0.216e3 - t10486 / 0.144e3 + 0.5e1 / 0.2304e4 * t557 * t11824 - t557 * t11828 / 0.384e3 - t531 * t11832 / 0.512e3 + t1671 * t11837 / 0.256e3 - t517 * t11841 / 0.36e2 + t6811 - t531 * t11847 / 0.1536e4 - 0.5e1 / 0.1152e4 * t557 * t11851 + t1671 * t11856 / 0.256e3 - t6820 * t11861 / 0.256e3;
12304   t11865 = t560 * t11668;
12305   t11866 = t533 * t11865;
12306   t11869 = t6995 * t11656;
12307   t11870 = t533 * t11869;
12308   t11879 = t3353 * t932;
12309   t11880 = t1684 * t11879;
12310   t11884 = t3348 * t932;
12311   t11885 = t1684 * t11884;
12312   t11889 = t2570 * t11672;
12313   t11892 = t2566 * t11664;
12314   t11896 = t963 * t3262;
12315   t11897 = t1684 * t11896;
12316   t11900 = t963 * t3254;
12317   t11901 = t6841 * t11900;
12318   t11904 = t3324 * t932;
12319   t11905 = t1684 * t11904;
12320   t11908 = t963 * t3258;
12321   t11909 = t1684 * t11908;
12322   t11912 = t557 * t11866 / 0.384e3 + 0.5e1 / 0.2592e4 * t557 * t11870 + t10555 / 0.1152e4 - t8647 / 0.3456e4 + t8658 / 0.2304e4 + 0.5e1 / 0.3456e4 * t10569 + t10574 / 0.384e3 - t10579 / 0.576e3 - t1682 * t11880 / 0.768e3 - t10586 / 0.768e3 + t6905 - t1682 * t11885 / 0.768e3 - t10673 / 0.768e3 - t517 * t11889 / 0.48e2 + t517 * t11892 / 0.72e2 - t10680 / 0.576e3 - t1682 * t11897 / 0.768e3 - 0.5e1 / 0.2304e4 * t1682 * t11901 + t6828 * t11905 / 0.384e3 + t1682 * t11909 / 0.384e3;
12323   t11913 = t11864 + t11912;
12324   t11914 = params->beta * t11913;
12325   t11922 = t3376 * t979;
12326   t11923 = t7025 * t11922;
12327   t11927 = t1735 * t979 * t3392;
12328   t11960 = -0.3e1 * t10775 * t1679 * t963 - 0.3e1 * t10792 * t262 * t963 - t11815 * t262 * t572 + 0.6e1 * t11835 * t2662 * t2663 - t11845 * t262 * t572 + 0.6e1 * t11854 * t1740 * t262 - 0.6e1 * t11859 * t262 * t7034 + t11913 * t188 * t284 - 0.3e1 * t262 * t2673 * t3348 - 0.3e1 * t262 * t2673 * t3353 + 0.6e1 * t262 * t3324 * t8927;
12329   t11961 = t571 * t11960;
12330   t11963 = -0.3e1 * t10726 * t980 + t11914 * t289 - 0.6e1 * t11923 * t568 + 0.6e1 * t11927 * t568 - t11961 * t568 + 0.6e1 * t2654 * t3377 - 0.3e1 * t2654 * t3393;
12331   t11970 = t3399 * t982;
12332   t11973 = -0.3109070e-1 * t11681 + 0.30000000000000000000e1 * t10330 * t950 - 0.60000000000000000000e1 * t8684 * t3272 + 0.30000000000000000000e1 * t2508 * t3304 + 0.96491876992155210402e2 * t8385 * t3307 + 0.60000000000000000000e1 * t1598 * t11692 - 0.60000000000000000000e1 * t1548 * t11695 - 0.19298375398431042081e3 * t6656 * t11698 + 0.10000000000000000000e1 * t485 * t11760 + 0.96491876992155210402e2 * t1598 * t11763 + 0.20690405167709360120e4 * t6745 * t11766 + t169 * t11963 * t581 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t10804 * t982 + t169 * t11970 * t7082;
12333   t11974 = 0.32530743900905219526e-1 * t7862;
12334   t11975 = 0.17544670867903938621e1 * t7864;
12335   t11985 = 0.9e1 * t1768 * t2853 * t3448 + 0.9e1 * t1768 * t9915 * t999 - 0.3e1 * t2849 * t2850 * t3522 + t11974 - t11975 - t5813 + t5839 + t5855 + t5889 + t5893 - t5897 - t5903 - t5912 + t6038 - t6041;
12336   t11986 = t3427 * t999;
12337   t11990 = t2858 * t3448;
12338   t11993 = t2853 * t3427;
12339   t11996 = 0.35089341735807877242e1 * t7909;
12340   t11997 = 0.24e2 * t7911;
12341   t11998 = 0.51947577317044391276e2 * t7922;
12342   t12012 = (-0.8e1 / 0.27e2 * t5861 * t11624 + 0.4e1 / 0.3e1 * t2697 * t3196 + 0.4e1 / 0.3e1 * t67 * t11629 - 0.8e1 / 0.27e2 * t5872 * t11632 + 0.4e1 / 0.3e1 * t2703 * t3202 + 0.4e1 / 0.3e1 * t70 * t11637) * t133;
12343   t12014 = 0.19751673498613801407e-1 * t12012 * t159;
12344   t12015 = 0.24e2 * t7931;
12345   t12016 = 0.6e1 * t11986 * t169 * t224 + 0.18e2 * t11990 * t2857 + 0.18e2 * t11993 * t2857 + t11996 - t11997 - t11998 + t12014 - t12015 + t5987 + t5991 - t6043 - t6049 + t6053 + t6057 - t6083;
12346   t12018 = t12012 * t161;
12347   t12019 = t128 * t12018;
12348   t12035 = 0.4e1 / 0.27e2 * t431 * t11624 - t2716 * t3196 / 0.3e1 + t672 * t11629 / 0.3e1 + 0.4e1 / 0.27e2 * t435 * t11632 - t2722 * t3202 / 0.3e1 + t674 * t11637 / 0.3e1;
12349   t12036 = t102 * t12035;
12350   t12037 = t254 * t12036;
12351   t12044 = t254 * t1003 * t3448;
12352   t12049 = t102 * t11986;
12353   t12050 = t254 * t12049;
12354   t12053 = t194 * t3448;
12355   t12055 = t1905 * t2747 * t12053;
12356   t12059 = t2746 * t10072 * t1014;
12357   t12062 = t1892 * t3478;
12358   t12064 = t2746 * t2747 * t12062;
12359   t12067 = 0.7e1 / 0.1536e4 * t10038 + 0.7e1 / 0.1536e4 * t10081 - 0.7e1 / 0.768e3 * t10083 - t688 * t12037 / 0.48e2 - t6161 - 0.7e1 / 0.16e2 * t10097 + 0.7e1 / 0.48e2 * t10099 - 0.119e3 / 0.1152e4 * t8034 + 0.3e1 / 0.16e2 * t1867 * t12044 - 0.35e2 / 0.384e3 * t10125 + 0.7e1 / 0.384e3 * t10131 - t6319 * t12050 / 0.4e1 + t1903 * t12055 / 0.256e3 - t1903 * t12059 / 0.1024e4 + t2744 * t12064 / 0.512e3;
12360   t12069 = t1905 * t10072 * t3460;
12361   t12072 = t1892 * t999;
12362   t12074 = t1905 * t10045 * t12072;
12363   t12077 = t194 * t3427;
12364   t12079 = t6301 * t2747 * t12077;
12365   t12083 = t1905 * t10045 * t3460;
12366   t12087 = t6285 * t532 * t11986;
12367   t12091 = t726 * t532 * t12035;
12368   t12094 = -t5813 + t5839 + t5855 + t11974 + t5889 + t5893 - t5897 - t5903 - t5912 - t11975 + t6038 - t6041;
12369   t12095 = -t6043 - t6049 + t5987 + t6053 + t6057 + t5991 + t11996 - t11997 - t11998 + t12014 - t12015 - t6083 + t6087;
12370   t12097 = 0.73245789224026180216e-3 * t7939;
12371   t12098 = 0.17544670867903938621e1 * t9928;
12372   t12099 = 0.12e2 * t9930;
12373   t12100 = 0.12e2 * t9932;
12374   t12101 = 0.60e2 * t7978;
12375   t12102 = 0.36e2 * t7980;
12376   t12103 = t12019 + t6092 + t6098 - t6101 - t6104 + t12097 + t6111 - t12098 - t12099 - t12100 + t12101 + t12102;
12377   t12104 = 0.96e2 * t7982;
12378   t12105 = 0.3e1 * t8161;
12379   t12106 = 0.54934341918019635162e-3 * t9957;
12380   t12107 = 0.3e1 * t9963;
12381   t12108 = t12104 - t6123 - t6126 - t6129 - t6132 + t12105 - t6027 - t12106 + t6034 - t6219 + t6223 - t6229 + t12107;
12382   t12111 = (t12094 + t12095 + t12103 + t12108) * t187;
12383   t12119 = t6241 * t11986;
12384   t12122 = t2777 * t3448;
12385   t12125 = t703 * t12035;
12386   t12128 = -0.36e2 * t1008 * t3472 + 0.9e1 * t1008 * t3475 + 0.9e1 * t1010 * t3468 - t12111 * t192 + 0.60e2 * t12119 * t190 - 0.36e2 * t12122 * t2776 + 0.3e1 * t12125 * t190;
12387   t12129 = t12128 * t194;
12388   t12131 = t699 * t532 * t12129;
12389   t12134 = t999 * t3448;
12390   t12136 = t2043 * t532 * t12134;
12391   t12139 = t3453 * t1013;
12392   t12140 = t12139 * t194;
12393   t12142 = t699 * t532 * t12140;
12394   t12145 = t12139 * t6263;
12395   t12147 = t699 * t532 * t12145;
12396   t12150 = t12139 * t1892;
12397   t12152 = t699 * t532 * t12150;
12398   t12158 = t1903 * t12069 / 0.256e3 - t2744 * t12074 / 0.128e3 - 0.5e1 / 0.256e3 * t1903 * t12079 + t1903 * t12083 / 0.256e3 - 0.5e1 / 0.128e3 * t722 * t12087 - t722 * t12091 / 0.768e3 - t697 * t12131 / 0.3072e4 + 0.5e1 / 0.256e3 * t722 * t12136 - t697 * t12142 / 0.3072e4 - t6262 * t12147 / 0.512e3 + t1890 * t12152 / 0.512e3 - 0.35e2 / 0.72e2 * t8117 - 0.119e3 / 0.4608e4 * t8140 - 0.7e1 / 0.192e3 * t10143 - t6332;
12399   t12159 = t12067 + t12158;
12400   t12160 = params->beta * t12159;
12401   t12168 = t3503 * t1030;
12402   t12169 = t6346 * t12168;
12403   t12173 = t2060 * t1030 * t3519;
12404   t12206 = -0.3e1 * t1014 * t10213 * t2833 - 0.3e1 * t1014 * t10230 * t262 + 0.6e1 * t12062 * t2823 * t2824 - t12129 * t262 * t738 - t12140 * t262 * t738 - 0.6e1 * t12145 * t262 * t6355 + 0.6e1 * t12150 * t2065 * t262 + t12159 * t188 * t197 - 0.3e1 * t262 * t2836 * t3479 - 0.3e1 * t262 * t2836 * t3484 + 0.6e1 * t262 * t3454 * t8280;
12405   t12207 = t737 * t12206;
12406   t12209 = -0.3e1 * t10164 * t1031 + t12160 * t221 - 0.6e1 * t12169 * t734 + 0.6e1 * t12173 * t734 - t12207 * t734 + 0.6e1 * t2815 * t3504 - 0.3e1 * t2815 * t3520;
12407   t12219 = t12209 * t169 * t175 * t748 + 0.3e1 * t12035 * t169 * t671 - 0.9e1 * t1768 * t9948 * t999 + t12019 + t12097 - t12098 - t12099 - t12100 + t12101 + t6087 + t6092 + t6098 - t6101 - t6104 + t6111;
12408   t12220 = t3431 * t1033;
12409   t12225 = 0.2e1 * t12220 * t169 * t175 * t6117 + t12102 + t12104 + t12105 - t12106 + t12107 - t6027 + t6034 - t6123 - t6126 - t6129 - t6132 - t6219 + t6223 - t6229;
12410   t12227 = t11985 + t12016 + t12219 + t12225;
12411   t12228 = my_piecewise3(t296, t11973, t12227);
12412   t12241 = t7107 * t11632;
12413   t12242 = t2271 * t12241;
12414   t12243 = t106 * t12242;
12415   t12245 = t7113 * t11632;
12416   t12246 = t827 * t12245;
12417   t12247 = t106 * t12246;
12418   t12249 = t2879 * t3202;
12419   t12250 = t827 * t12249;
12420   t12251 = t106 * t12250;
12421   t12253 = t2114 * t11632;
12422   t12254 = t758 * t12253;
12423   t12255 = t106 * t12254;
12424   t12257 = t2884 * t3202;
12425   t12258 = t758 * t12257;
12426   t12259 = t106 * t12258;
12427   t12261 = t759 * t11637;
12428   t12262 = t758 * t12261;
12429   t12263 = t106 * t12262;
12430   t12265 = -t7097 - 0.22831111111111111110e-1 * t9020 + 0.11415555555555555555e-1 * t10832 - 0.34246666666666666665e-1 * t10848 + 0.17123333333333333333e-1 * t10858 - 0.19025925925925925925e-1 * t12243 + 0.68493333333333333331e-1 * t12247 - 0.34246666666666666665e-1 * t12251 - 0.10274000000000000000e0 * t12255 + 0.10274000000000000000e0 * t12259 - 0.17123333333333333333e-1 * t12263;
12431   t12266 = t12265 * t318;
12432   t12276 = t3555 * t1058;
12433   t12277 = t12276 * t787;
12434   t12280 = t1059 * t3587;
12435   t12283 = t12276 * t2187;
12436   t12294 = t3559 * t1049;
12437   t12299 = t7185 * t12241;
12438   t12302 = t323 * t12261;
12439   t12307 = 0.34431666666666666666e0 * t10832 - 0.10329500000000000000e1 * t10848 + 0.51647499999999999999e0 * t10858 + 0.69463333333333333335e-1 * t10912 - 0.41678000000000000001e0 * t10914 + 0.20839000000000000000e0 * t10916 - 0.10329500000000000000e1 * t12251 + 0.30988500000000000000e1 * t12259 + 0.26472937500000000000e1 * t7217 * t12294 - 0.68863333333333333332e0 * t9020 - 0.34731666666666666667e0 * t9024 - 0.46308888888888888889e-1 * t119 * t12299 - 0.10419500000000000000e0 * t119 * t12302 - 0.52945875000000000000e1 * t2904 * t3566;
12440   t12326 = -t7220 - 0.4e1 / 0.9e1 * t9020 + 0.2e1 / 0.9e1 * t10832 - 0.2e1 / 0.3e1 * t10848 + t10858 / 0.3e1 - 0.10e2 / 0.27e2 * t12243 + 0.4e1 / 0.3e1 * t12247 - 0.2e1 / 0.3e1 * t12251 - 0.2e1 * t12255 + 0.2e1 * t12259 - t12263 / 0.3e1;
12441   t12331 = t2169 * t12249;
12442   t12334 = t323 * t12257;
12443   t12337 = t323 * t12253;
12444   t12340 = t2169 * t12245;
12445   t12343 = 0.94674375000000000000e0 * t2920 * t3566 - t7192 - 0.15779062500000000000e0 * t7211 * t12294 - 0.57386111111111111112e0 * t12243 + 0.20659000000000000000e1 * t12247 - 0.30988500000000000000e1 * t12255 - 0.51647500000000000000e0 * t12263 - t7204 + 0.35297250000000000000e1 * t770 * t12326 + 0.63116250000000000000e0 * t777 * t12326 - 0.10419500000000000000e0 * t119 * t12331 + 0.62517000000000000000e0 * t119 * t12334 - 0.62517000000000000000e0 * t119 * t12337 + 0.20839000000000000000e0 * t119 * t12340;
12446   t12344 = t12307 + t12343;
12447   t12345 = t12344 * t787;
12448   t12348 = t10999 * t1058;
12449   t12351 = t12276 * t7249;
12450   t12356 = t2958 * t12257;
12451   t12363 = t7262 * t11632;
12452   t12364 = t518 * t12363;
12453   t12371 = t2954 * t12249;
12454   t12376 = t3607 * t1074;
12455   t12377 = t12376 * t2219;
12456   t12378 = t758 * t12377;
12457   t12379 = t533 * t12378;
12458   t12382 = t11596 * t254;
12459   t12385 = -t11015 / 0.54e2 - t11018 / 0.144e3 - t794 * t12356 / 0.48e2 + t7255 + t11027 / 0.288e3 + t11030 / 0.216e3 + t2947 * t3631 / 0.18e2 + t794 * t12364 / 0.48e2 - t2947 * t3635 / 0.36e2 + 0.11e2 / 0.108e3 * t11012 * t1066 + t794 * t12371 / 0.72e2 + 0.19e2 / 0.432e3 * t11032 + 0.11e2 / 0.108e3 * t11034 + t2217 * t12379 / 0.256e3 - 0.77e2 / 0.162e3 * t12382 * t324;
12460   t12390 = t827 * t12261;
12461   t12391 = t533 * t12390;
12462   t12399 = t12376 * t329;
12463   t12400 = t758 * t12399;
12464   t12401 = t533 * t12400;
12465   t12406 = t7407 * t12241;
12466   t12407 = t533 * t12406;
12467   t12420 = t12277 * t187;
12468   t12425 = t12283 * t187;
12469   t12428 = t12345 * t187;
12470   t12431 = t2992 * t1058;
12471   t12434 = t12351 * t187;
12472   t12437 = 0.61370581910589784405e0 * t12266 * t187 - 0.59217626406536151717e2 * t10877 * t1071 + 0.11843525281307230343e3 * t9224 * t3658 - 0.59217626406536151717e2 * t2896 * t3661 - 0.19046733076622961759e4 * t9000 * t3664 - 0.11843525281307230343e3 * t2185 * t12420 + 0.11843525281307230343e3 * t2985 * t3661 + 0.38093466153245923519e4 * t7159 * t12425 - 0.19739208802178717239e2 * t769 * t12428 - 0.19046733076622961759e4 * t11196 * t12431 - 0.40841222780709261955e5 * t7247 * t12434;
12473   t12438 = t12437 * t329;
12474   t12439 = t758 * t12438;
12475   t12440 = t533 * t12439;
12476   t12447 = t12376 * t7382;
12477   t12448 = t758 * t12447;
12478   t12449 = t533 * t12448;
12479   t12453 = -t3015 * t3647 / 0.144e3 - 0.5e1 / 0.432e3 * t3015 * t3651 + t824 * t12391 / 0.2304e4 - t9276 / 0.3456e4 + t9300 / 0.54e2 - t11123 / 0.576e3 + t3009 * t3610 / 0.96e2 - t807 * t12401 / 0.1536e4 + t3015 * t3604 / 0.72e2 + 0.5e1 / 0.2592e4 * t824 * t12407 - t807 * t12440 / 0.1536e4 - 0.19e2 / 0.288e3 * t11127 * t1077 - t9193 * t3617 / 0.48e2 - t7381 * t12449 / 0.256e3 + t9336 / 0.2304e4;
12480   t12455 = t7270 * t11632;
12481   t12456 = t518 * t12455;
12482   t12459 = t797 * t11637;
12483   t12460 = t518 * t12459;
12484   t12463 = t7286 * t11632;
12485   t12464 = t518 * t12463;
12486   t12472 = t334 * t334;
12487   t12474 = 0.1e1 / t41 / t12472;
12488   t12476 = t262 * t333 * t12474;
12489   t12479 = t3608 * t1041;
12490   t12480 = t2233 * t12479;
12491   t12485 = t3542 * t1075;
12492   t12486 = t2233 * t12485;
12493   t12489 = t3615 * t1041;
12494   t12490 = t2233 * t12489;
12495   t12493 = t3668 * t1041;
12496   t12494 = t2233 * t12493;
12497   t12497 = t1075 * t3546;
12498   t12498 = t2233 * t12497;
12499   t12501 = t3202 * t905;
12500   t12502 = t3027 * t12501;
12501   t12503 = t2578 * t12502;
12502   t12506 = -t794 * t12456 / 0.36e2 + t794 * t12460 / 0.288e3 + 0.7e1 / 0.648e3 * t794 * t12464 - t2947 * t3639 / 0.27e2 - t11136 / 0.576e3 - t11149 / 0.108e3 - t9403 / 0.432e3 - 0.209e3 / 0.1296e4 * t12476 * t342 - t2232 * t12480 / 0.768e3 + t9370 * t3621 / 0.72e2 + t2232 * t12486 / 0.384e3 + t7444 * t12490 / 0.384e3 - t2232 * t12494 / 0.768e3 - t2232 * t12498 / 0.768e3 + 0.5e1 / 0.2304e4 * t824 * t12503;
12503   t12510 = t2966 * t3668;
12504   t12511 = t2578 * t12510;
12505   t12514 = t1075 * t3538;
12506   t12515 = t7439 * t12514;
12507   t12518 = t2219 * t3667;
12508   t12519 = t2966 * t12518;
12509   t12520 = t2578 * t12519;
12510   t12523 = t3033 * t12501;
12511   t12524 = t2578 * t12523;
12512   t12535 = t2271 * t12245;
12513   t12536 = t533 * t12535;
12514   t12539 = t827 * t12253;
12515   t12540 = t533 * t12539;
12516   t12543 = t11215 / 0.384e3 + t11217 / 0.72e2 - t11220 / 0.768e3 - t807 * t12511 / 0.512e3 - 0.5e1 / 0.2304e4 * t2232 * t12515 + t2217 * t12520 / 0.256e3 - t824 * t12524 / 0.384e3 + t9432 / 0.432e3 + t7376 + 0.5e1 / 0.3456e4 * t11247 + t11250 / 0.1152e4 - t11283 / 0.768e3 + t3009 * t3670 / 0.96e2 + 0.19e2 / 0.432e3 * t11286 * t1088 - 0.5e1 / 0.1152e4 * t824 * t12536 + t824 * t12540 / 0.384e3;
12517   t12545 = t12385 + t12453 + t12506 + t12543;
12518   t12546 = params->beta * t12545;
12519   t12554 = t3680 * t1098;
12520   t12555 = t7462 * t12554;
12521   t12559 = t2292 * t1098 * t3696;
12522   t12592 = -0.3e1 * t1075 * t11354 * t2229 - 0.3e1 * t1075 * t11371 * t262 + 0.6e1 * t12377 * t2297 * t262 - t12399 * t262 * t839 - t12438 * t262 * t839 - 0.6e1 * t12447 * t262 * t7471 + 0.6e1 * t12518 * t3054 * t3055 + t12545 * t188 * t347 - 0.3e1 * t262 * t3065 * t3608 - 0.3e1 * t262 * t3065 * t3668 + 0.6e1 * t262 * t3615 * t9522;
12523   t12593 = t838 * t12592;
12524   t12595 = -0.3e1 * t1099 * t11305 + t12546 * t352 - 0.6e1 * t12555 * t835 + 0.6e1 * t12559 * t835 - t12593 * t835 + 0.6e1 * t3046 * t3681 - 0.3e1 * t3046 * t3697;
12525   t12602 = t3703 * t1101;
12526   t12605 = -0.3109070e-1 * t12266 + 0.30000000000000000000e1 * t10877 * t1059 - 0.60000000000000000000e1 * t9224 * t3556 + 0.30000000000000000000e1 * t2896 * t3588 + 0.96491876992155210402e2 * t9000 * t3591 + 0.60000000000000000000e1 * t2185 * t12277 - 0.60000000000000000000e1 * t2136 * t12280 - 0.19298375398431042081e3 * t7159 * t12283 + 0.10000000000000000000e1 * t769 * t12345 + 0.96491876992155210402e2 * t2185 * t12348 + 0.20690405167709360120e4 * t7247 * t12351 + t169 * t12595 * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t11383 * t1101 + t169 * t12602 * t7519;
12527   t12606 = my_piecewise3(t359, t12605, t12227);
12528   t12615 = t12228 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t3531 * t886 + 0.3e1 / 0.2e1 * t1038 * t3196 + t297 * t11629 / 0.2e1 + t12606 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t3708 * t905 + 0.3e1 / 0.2e1 * t1106 * t3202 + t360 * t11637 / 0.2e1;
12529   t12621 = t915 * t3219;
12530   t12628 = t3227 * t923;
12531   t12629 = t5751 * t12628;
12532   t12632 = t2457 * t3244;
12533   t12641 = tau[1] * t3173;
12534   t12656 = -0.10e2 / 0.27e2 * t85 * t11583 + 0.10e2 / 0.3e1 * t85 * t11586 + 0.5e1 / 0.3e1 * t85 * t11591 - 0.440e3 / 0.27e2 * t12641 * t50 + 0.200e3 / 0.9e1 * t3235 * t898 - 0.50e2 / 0.9e1 * t919 * t3180 - 0.25e2 / 0.3e1 * t919 * t3184 - 0.10e2 / 0.27e2 * t89 * t11606 + 0.10e2 / 0.3e1 * t89 * t11609 + 0.5e1 / 0.3e1 * t89 * t11613;
12535   t12657 = t453 * t12656;
12536   t12661 = my_piecewise3(t95, 0, -t5744 - 0.11e2 / 0.3e1 * t7786 - 0.2e1 * t9802 + t9811 - 0.3e1 / 0.4e1 * t58 * t12629 + 0.3e1 / 0.4e1 * t58 * t12632 - t58 * t12657 / 0.8e1);
12537   t12662 = t363 * t12661;
12538   t12665 = t3219 * t912;
12539   t12668 = t11458 * t928;
12540   t12671 = t3103 * t3249;
12541   t12678 = t97 * t11560;
12542   t12681 = t11470 * t928;
12543   t12684 = t1113 * t3209;
12544   t12692 = t96 * t12661;
12545   t12695 = t97 * t11644;
12546   t12704 = t928 * t3249;
12547   t12707 = -0.12e2 * t1113 * t9657 + 0.6e1 * t1116 * t3149 + t11553 * t97 - 0.24e2 * t12665 * t400 - 0.24e2 * t12668 * t400 - 0.24e2 * t12671 * t400 - 0.120e3 * t12678 * t6453 + 0.120e3 * t12681 * t1397 + 0.60e2 * t12684 * t1397 + 0.2e1 * t12692 * t81 - 0.4e1 * t12695 * t400 + 0.6e1 * t12704 * t81 - 0.48e2 * t2378 * t3724 - 0.12e2 * t2378 * t3727 + 0.6e1 * t3219 * t881 + 0.60e2 * t3721 * t7591 + 0.6e1 * t3732 * t881;
12548   t12718 = t3714 * t928;
12549   t12723 = 0.3e1 * t1037 * t3735 - 0.3e1 * t1110 * t3213 - 0.6e1 * t1110 * t3220 + 0.3e1 * t1119 * t3530 - 0.6e1 * t11549 * t449 - t11648 * t363 + t12227 * t366 - t12615 * t98 - 0.6e1 * t12621 * t363 - 0.2e1 * t12662 * t449 + t12707 * t227 - 0.6e1 * t12718 * t449 - 0.12e2 * t2442 * t3223 - 0.6e1 * t2442 * t3250 - 0.6e1 * t3250 * t4302 - 0.3e1 * t3714 * t916 - 0.6e1 * t929 * t9866;
12550   t12724 = t7 * t12723;
12551   t12730 = params->d * t12723;
12552   t12738 = t3219 * t928;
12553   t12741 = t1116 * t3249;
12554   t12744 = t97 * t12661;
12555   t12747 = 0.18e2 * t1125 * t3749 + 0.9e1 * t1125 * t3752 + 0.9e1 * t1127 * t3745 + t12730 * t370 + 0.6e1 * t12738 * t369 + 0.18e2 * t12741 * t369 + 0.3e1 * t12744 * t369;
12556   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
12557     v3rho3[3] = 0.3e1 * t1123 * t3755 + 0.3e1 * t1130 * t3741 + t12724 * t372 + t12747 * t872 + 0.6e1 * t11510 + 0.3e1 * t11516 + 0.3e1 * t9645;
12558 
12559   t12749 = t3988 * t372;
12560   t12751 = t1216 * t878;
12561   t12753 = t3763 * t1470;
12562   t12754 = t1204 * t12753;
12563   t12757 = t3768 * t61;
12564   t12758 = t400 * t12757;
12565   t12761 = t1397 * t12757;
12566   t12764 = t3779 * t61;
12567   t12765 = t1397 * t12764;
12568   t12768 = t3958 * t3764;
12569   t12771 = t97 * t857;
12570   t12772 = t12771 * t443;
12571   t12773 = t1204 * t12772;
12572   t12776 = t3789 * t1516;
12573   t12777 = t1204 * t12776;
12574   t12780 = t96 * t857;
12575   t12781 = t12780 * t464;
12576   t12782 = t1204 * t12781;
12577   t12785 = t3958 * t3790;
12578   t12788 = t400 * t12764;
12579   t12791 = t1204 * t96;
12580   t12792 = t363 * t443;
12581   t12793 = t12792 * t464;
12582   t12794 = t12791 * t12793;
12583   t12798 = t1416 * t114;
12584   t12799 = t12798 * t182;
12585   t12802 = t3820 * t513;
12586   t12805 = t1148 * t1609 / 0.432e3;
12587   t12806 = t1668 * sigma[0];
12588   t12808 = t262 * t12806 * t529;
12589   t12812 = sigma[0] * t273 * t209;
12590   t12813 = t1679 * t12812;
12591   t12821 = t262 * t3828 * t1626;
12592   t12824 = t3830 * t1617;
12593   t12830 = 0.11e2 / 0.108e3 * t12799 * t259 - t12802 / 0.54e2 - t12805 + t12808 * t1675 / 0.384e3 - t12813 * t1686 / 0.576e3 - t3840 * t1613 / 0.576e3 - t3830 * t1623 / 0.768e3 + t12821 * t542 / 0.72e2 - t12824 / 0.576e3 + t3840 * t1693 / 0.1152e4 + 0.5e1 / 0.3456e4 * t3840 * t1700;
12594   t12832 = t262 * t1151 * t1626;
12595   t12835 = t3840 * t1689;
12596   t12840 = t262 * t1151 * t1660;
12597   t12843 = t3834 * t553;
12598   t12846 = t1153 * t1655 / 0.3456e4;
12599   t12851 = t3819 * t183;
12600   t12854 = t3825 * t1634;
12601   t12858 = -t12832 * t562 / 0.108e3 + t12835 / 0.864e3 + t3825 * t1645 / 0.216e3 + 0.19e2 / 0.432e3 * t12840 * t279 - t12843 / 0.108e3 - t12846 - t3830 * t1719 / 0.768e3 - t3825 * t1651 / 0.144e3 - t12851 * t523 / 0.54e2 + t12854 / 0.432e3 + t3825 * t1638 / 0.288e3;
12602   t12859 = t12830 + t12858;
12603   t12860 = params->beta * t12859;
12604   t12862 = t3844 * t187;
12605   t12868 = t1159 * t1727;
12606   t12869 = t12868 * t1162;
12607   t12871 = t3848 * t3851;
12608   t12878 = t7024 * t267;
12609   t12880 = t12878 * t1156 * t1736;
12610   t12883 = t3851 * t1734;
12611   t12884 = t1160 * t12883;
12612   t12885 = t527 * t1156;
12613   t12887 = t577 * t539 * t265;
12614   t12888 = t12885 * t12887;
12615   t12892 = t3853 * t3843 * t577;
12616   t12896 = t3853 * t1156 * t1754;
12617   t12899 = t570 * t1668;
12618   t12900 = t1156 * t1620;
12619   t12902 = t12899 * t12900 * t1672;
12620   t12906 = t3843 * t539 * t265;
12621   t12907 = t3858 * t12906;
12622   t12912 = t3858 * t1156 * t1716 * t265;
12623   t12915 = t3858 * t12900 * t265;
12624   t12918 = t1165 * t267 * t12859;
12625   t12920 = -t1163 * t12918 - t1167 * t12869 + t12860 * t289 - 0.2e1 * t12862 * t578 + 0.4e1 * t12871 * t3855 + 0.2e1 * t12871 * t3861 - 0.6e1 * t12880 * t3852 - 0.4e1 * t12884 * t12888 + 0.4e1 * t12892 * t3852 + 0.2e1 * t12896 * t3852 - 0.2e1 * t12902 * t3852 + 0.2e1 * t12907 * t3852 + t12912 * t3852 + t12915 * t3852 + 0.2e1 * t1737 * t3846 - t1755 * t3846 - 0.2e1 * t3849 * t3864;
12626   t12924 = t3866 * t1763;
12627   t12927 = t1169 * t7082;
12628   t12934 = t3874 * t1868;
12629   t12937 = t3919 * t748;
12630   t12938 = t12937 * t677;
12631   t12941 = t3923 * t7870;
12632   t12944 = t3874 * t1881;
12633   t12947 = t1858 * t130;
12634   t12949 = t12947 * t180 * t516;
12635   t12950 = 0.35e2 / 0.432e3 * t12949;
12636   t12951 = t3878 * t191;
12637   t12952 = t12951 * t690;
12638   t12953 = 0.7e1 / 0.72e2 * t12952;
12639   t12954 = t1173 * t206;
12640   t12955 = t12954 * t1870;
12641   t12957 = t3882 * t1883;
12642   t12959 = t1887 * t53;
12643   t12961 = t262 * t12959 * t202;
12644   t12962 = t12961 * t1895;
12645   t12965 = t262 * t3885 * t714;
12646   t12966 = t12965 * t710;
12647   t12967 = 0.7e1 / 0.1152e4 * t12966;
12648   t12969 = t262 * t3885 * t204;
12649   t12970 = t12969 * t1909;
12650   t12972 = t3887 * t2021;
12651   t12974 = t3887 * t2026;
12652   t12976 = t1178 * t2033;
12653   t12977 = 0.119e3 / 0.6912e4 * t12976;
12654   t12979 = t262 * t3892 * t714;
12655   t12980 = t12979 * t728;
12656   t12981 = 0.7e1 / 0.288e3 * t12980;
12657   t12982 = t3894 * t2045;
12658   t12984 = t3894 * t2049;
12659   t12986 = t12950 + t12953 + t12955 / 0.16e2 - t12957 / 0.48e2 + t12962 / 0.768e3 + t12967 + t12970 / 0.192e3 - t12972 / 0.1536e4 - t12974 / 0.1536e4 + t12977 + t12981 + 0.5e1 / 0.384e3 * t12982 - t12984 / 0.384e3;
12660   t12987 = params->beta * t12986;
12661   t12989 = t3898 * t187;
12662   t12995 = t1159 * t2052;
12663   t12996 = t12995 * t1162;
12664   t12998 = t3902 * t3851;
12665   t13005 = t6345 * t196;
12666   t13007 = t13005 * t1181 * t2061;
12667   t13010 = t3851 * t2059;
12668   t13011 = t1184 * t13010;
12669   t13012 = t694 * t1181;
12670   t13014 = t743 * t707 * t194;
12671   t13015 = t13012 * t13014;
12672   t13019 = t3906 * t3897 * t743;
12673   t13023 = t3906 * t1181 * t2079;
12674   t13026 = t736 * t1887;
12675   t13027 = t1181 * t1891;
12676   t13028 = t13027 * t1892;
12677   t13029 = t13026 * t13028;
12678   t13033 = t3897 * t707 * t194;
12679   t13034 = t3911 * t13033;
12680   t13038 = t1181 * t2018 * t194;
12681   t13039 = t3911 * t13038;
12682   t13041 = t13027 * t194;
12683   t13042 = t3911 * t13041;
12684   t13045 = t1186 * t196 * t12986;
12685   t13047 = -t1185 * t13045 - t1188 * t12996 + t12987 * t221 - 0.2e1 * t12989 * t744 + 0.4e1 * t12998 * t3908 + 0.2e1 * t12998 * t3914 - 0.6e1 * t13007 * t3905 - 0.4e1 * t13011 * t13015 + 0.4e1 * t13019 * t3905 + 0.2e1 * t13023 * t3905 - 0.2e1 * t13029 * t3905 + 0.2e1 * t13034 * t3905 + t13039 * t3905 + t13042 * t3905 + 0.2e1 * t2062 * t3900 - t2080 * t3900 - 0.2e1 * t3903 * t3917;
12686   t13048 = t175 * t13047;
12687   t13049 = t13048 * t748;
12688   t13050 = t169 * t13049;
12689   t13051 = t3919 * t2093;
12690   t13052 = t13051 * t746;
12691   t13055 = t1190 * t6117;
12692   t13056 = t13055 * t2090;
12693   t13059 = t3923 * t2082;
12694   t13061 = 0.6e1 * t12934 * t2857 + 0.6e1 * t12938 * t1768 - 0.6e1 * t12941 * t1768 + 0.3e1 * t12944 * t1768 - 0.2e1 * t13052 * t2849 + 0.2e1 * t13056 * t2849 - t13059 * t2849 + t13050;
12695   t13062 = my_piecewise3(t296, t169 * t12920 * t581 / 0.2e1 - t169 * t12924 * t580 + t169 * t12927 * t1761 - t169 * t3869 * t1757 / 0.2e1, t13061);
12696   t13068 = my_piecewise3(t359, 0, t13061);
12697   t13074 = t13062 * t34 / 0.2e1 + t3927 * t413 + t1194 * t1454 / 0.2e1 + t13068 * t46 / 0.2e1 + t3930 * t436 + t1196 * t1463 / 0.2e1;
12698   t13079 = -0.5e1 / 0.6e1 * t3762 * t12754 + 0.2e1 / 0.3e1 * t12758 * t3791 - 0.5e1 / 0.3e1 * t12761 * t3765 - 0.5e1 / 0.3e1 * t12765 * t3765 - 0.5e1 / 0.3e1 * t3762 * t12768 - 0.5e1 / 0.3e1 * t3762 * t12773 + t3788 * t12777 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t12782 + 0.2e1 / 0.3e1 * t3788 * t12785 + 0.2e1 / 0.3e1 * t12788 * t3791 - 0.10e2 / 0.3e1 * t3762 * t12794 + t1211 * t2101 - t98 * t13074 - t1474 * t1199 + t3758 * t3795 / 0.3e1;
12699   t13080 = t73 * t1481;
12700   t13082 = t66 * t13080 * t363;
12701   t13085 = t6442 * t1134;
12702   t13088 = t1392 * t3768;
12703   t13091 = t1466 * t97;
12704   t13092 = t13091 * t363;
12705   t13093 = t66 * t13092;
12706   t13096 = t3783 * t857;
12707   t13097 = t66 * t13096;
12708   t13101 = 0.4e1 * t1476 * t3812;
12709   t13102 = t857 * t3811;
12710   t13104 = 0.4e1 * t449 * t13102;
12711   t13105 = t173 * t1190;
12712   t13106 = t748 * t1868;
12713   t13107 = t13105 * t13106;
12714   t13109 = 0.6e1 * t1214 * t13107;
12715   t13110 = t1406 * t1133;
12716   t13111 = t400 * t13110;
12717   t13114 = t404 * t3778;
12718   t13115 = t400 * t13114;
12719   t13123 = 0.4e1 * t2448 * t3812;
12720   t13124 = t174 * t3919;
12721   t13125 = t13124 * t3980;
12722   t13127 = 0.6e1 * t1214 * t13125;
12723   t13129 = 0.6e1 * t3977 * t3981;
12724   t13130 = t748 * t1881;
12725   t13131 = t3979 * t13130;
12726   t13133 = 0.3e1 * t1214 * t13131;
12727   t13134 = t1135 * t13082 / 0.3e1 + t13085 * t1138 / 0.6e1 + t13088 * t1138 / 0.3e1 + t1135 * t13093 / 0.6e1 + t1135 * t13097 / 0.3e1 - t13101 - t13104 + t13109 + t13111 * t1138 / 0.6e1 + t13115 * t1138 / 0.3e1 + t3769 * t3785 / 0.3e1 + t3769 * t3795 / 0.3e1 - t13123 + t13127 + t13129 + t13133;
12728   t13137 = 0.2e1 * t6587 * t1144;
12729   t13138 = t6117 * t2090;
12730   t13139 = t1191 * t13138;
12731   t13141 = 0.2e1 * t1214 * t13139;
12732   t13143 = 0.2e1 * t3977 * t3986;
12733   t13144 = t202 * t92;
12734   t13145 = 0.11e2 / 0.9e1 * t13144;
12735   t13146 = t423 * t453;
12736   t13147 = t13146 * t459;
12737   t13148 = 0.2e1 / 0.3e1 * t13147;
12738   t13149 = t57 * t1493;
12739   t13150 = t13149 * t1494;
12740   t13152 = t3807 * t1511;
12741   t13155 = my_piecewise3(t95, 0, t13145 + t13148 + t13150 / 0.4e1 - t13152 / 0.8e1);
12742   t13156 = t363 * t13155;
12743   t13158 = 0.2e1 * t449 * t13156;
12744   t13159 = t6453 * t3761;
12745   t13160 = t3763 * t1398;
12746   t13161 = t1204 * t13160;
12747   t13164 = t6445 * t3761;
12748   t13167 = t1392 * t3761;
12749   t13171 = 0.2e1 * t8308 * t1144;
12750   t13173 = 0.4e1 * t2448 * t3802;
12751   t13174 = t1191 * t5856;
12752   t13175 = t1214 * t13174;
12753   t13180 = t3920 * t3985;
12754   t13182 = 0.2e1 * t1214 * t13180;
12755   t13185 = t409 * t37;
12756   t13186 = t13185 * t414;
12757   t13188 = t30 * t1422;
12758   t13189 = t13188 * t1423;
12759   t13191 = t3774 * t1427;
12760   t13193 = 0.88e2 / 0.9e1 * t202;
12761   t13194 = 0.88e2 / 0.9e1 * t1416 * t38 - 0.80e2 / 0.9e1 * t13186 + 0.10e2 / 0.9e1 * t13189 + 0.5e1 / 0.3e1 * t13191 - t13193;
12762   t13195 = t25 * t13194;
12763   t13196 = t400 * t13195;
12764   t13201 = -t13137 + t13141 - t13143 - t13158 + 0.5e1 * t13159 * t13161 - 0.5e1 / 0.3e1 * t13164 * t3765 + 0.2e1 / 0.3e1 * t13167 * t3791 - t13171 - t13173 - t13175 - 0.2e1 * t447 * t3934 + 0.2e1 * t3973 * t751 - t13182 + t13196 * t1138 / 0.6e1 + t3780 * t3785 / 0.3e1;
12765   t13205 = t66 * t1136 * t2331;
12766   t13208 = t2331 * t1143;
12767   t13210 = 0.2e1 * t449 * t13208;
12768   t13214 = t2353 * t167 * t168;
12769   t13215 = t13214 * t1192;
12770   t13216 = t1392 * t3779;
12771   t13222 = 0.4e1 * t1476 * t3802;
12772   t13223 = t1199 * t1516;
12773   t13229 = 0.4e1 * t7847 * t1144;
12774   t13230 = t1208 * t1398;
12775   t13232 = 0.40e2 * t1397 * t13230;
12776   t13233 = t3970 * t443;
12777   t13235 = 0.16e2 * t400 * t13233;
12778   t13236 = t1208 * t1470;
12779   t13238 = 0.8e1 * t400 * t13236;
12780   t13240 = 0.16e2 * t1392 * t3964;
12781   t13241 = t3967 * t443;
12782   t13243 = 0.16e2 * t400 * t13241;
12783   t13244 = t3944 * t1133;
12784   t13245 = t1397 * t13244;
12785   t13246 = t73 * t443;
12786   t13248 = t66 * t13246 * t464;
12787   t13251 = t6453 * t1201;
12788   t13252 = t1204 * t1398;
12789   t13253 = t1203 * t13252;
12790   t13256 = t1204 * t1516;
12791   t13257 = t1203 * t13256;
12792   t13260 = t6445 * t1201;
12793   t13263 = t1392 * t3944;
12794   t13266 = t1397 * t3950;
12795   t13269 = t3954 * t3940;
12796   t13272 = t3958 * t443;
12797   t13273 = t1203 * t13272;
12798   t13276 = t1204 * t1470;
12799   t13277 = t1203 * t13276;
12800   t13280 = t96 * t404;
12801   t13281 = t400 * t13280;
12802   t13284 = t3954 * t3946;
12803   t13287 = t3958 * t464;
12804   t13288 = t1203 * t13287;
12805   t13291 = t13232 - t13235 - t13238 - t13240 - t13243 + 0.10e2 / 0.3e1 * t13245 * t13248 - 0.5e1 * t13251 * t13253 - t3945 * t13257 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t3941 - 0.2e1 / 0.3e1 * t13263 * t3947 + 0.5e1 / 0.3e1 * t13266 * t3941 + 0.5e1 / 0.3e1 * t3939 * t13269 + 0.5e1 / 0.3e1 * t3939 * t13273 + 0.5e1 / 0.6e1 * t3939 * t13277 - 0.2e1 / 0.3e1 * t13281 * t3947 - 0.2e1 / 0.3e1 * t3945 * t13284 - 0.2e1 / 0.3e1 * t3945 * t13288;
12806   t13292 = t96 * t13155;
12807   t13294 = 0.2e1 * t81 * t13292;
12808   t13296 = 0.4e1 * t397 * t3967;
12809   t13298 = 0.4e1 * t397 * t3970;
12810   t13299 = t1516 * t1143;
12811   t13301 = 0.2e1 * t81 * t13299;
12812   t13302 = t464 * t3811;
12813   t13304 = 0.4e1 * t81 * t13302;
12814   t13306 = 0.2e1 * t1391 * t1208;
12815   t13307 = t1481 * t25;
12816   t13308 = t400 * t13307;
12817   t13311 = t6442 * t1201;
12818   t13314 = t1392 * t3950;
12819   t13321 = t97 * t1406;
12820   t13322 = t400 * t13321;
12821   t13329 = t13194 * t61;
12822   t13330 = t13329 * t1204;
12823   t13333 = t3954 * t3958;
12824   t13336 = t65 * t1466;
12825   t13337 = t1203 * t13336;
12826   t13340 = t13294 + t13296 + t13298 + t13301 + t13304 + t13306 - t13308 * t1205 / 0.3e1 - t13311 * t1205 / 0.6e1 - t13314 * t1205 / 0.3e1 - t3936 * t3955 / 0.3e1 - t3936 * t3959 / 0.3e1 - t13322 * t1205 / 0.6e1 - t3951 * t3955 / 0.3e1 - t3951 * t3959 / 0.3e1 - t1202 * t13330 / 0.6e1 - t1202 * t13333 / 0.3e1 - t1202 * t13337 / 0.6e1;
12827   t13341 = t13291 + t13340;
12828   t13343 = t1214 * t13049;
12829   t13344 = t168 * t174;
12830   t13345 = t1213 * t13344;
12831   t13347 = 0.6e1 * t13345 * t12941;
12832   t13349 = 0.2e1 * t3977 * t3921;
12833   t13350 = t3934 * t464;
12834   t13353 = t3780 * t3795 / 0.3e1 + t1135 * t13205 / 0.6e1 - t13210 - 0.2e1 * t1482 * t1199 + t13215 + t13216 * t1138 / 0.3e1 + t3758 * t3785 / 0.3e1 - t13222 - 0.2e1 * t449 * t13223 - 0.4e1 * t1476 * t3816 - t13229 + t13341 * t227 + t13343 - t13347 + t13349 - 0.4e1 * t449 * t13350;
12835   t13355 = t13079 + t13134 + t13201 + t13353;
12836   t13356 = t7 * t13355;
12837   t13361 = t869 * t1224;
12838   t13363 = t368 * t4006;
12839   t13368 = params->d * t13355;
12840   t13377 = 0.3e1 * t2363 * t1221;
12841   t13379 = 0.12e2 * t873 * t4000;
12842   t13381 = 0.6e1 * t873 * t4003;
12843   t13382 = t1481 * t1143;
12844   t13384 = 0.6e1 * t369 * t13382;
12845   t13385 = t3970 * t464;
12846   t13387 = 0.12e2 * t369 * t13385;
12847   t13388 = t1208 * t1516;
12848   t13390 = 0.6e1 * t369 * t13388;
12849   t13391 = t97 * t13155;
12850   t13393 = 0.3e1 * t369 * t13391;
12851   t13394 = 0.6e1 * t1219 * t2367 + 0.3e1 * t1219 * t2370 + t13368 * t370 + 0.6e1 * t3994 * t875 + t13377 + t13379 + t13381 + t13384 + t13387 + t13390 + t13393;
12852   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
12853     v3rho2sigma[0] = t1217 * t2373 + t1224 * t2359 + t13356 * t372 + t13394 * t872 + 0.2e1 * t3989 * t878 + 0.2e1 * t4006 * t870 + 0.2e1 * t12749 + 0.2e1 * t12751 + 0.2e1 * t13361 + 0.2e1 * t13363;
12854 
12855   t13396 = t4131 * t372;
12856   t13398 = t1264 * t878;
12857   t13401 = t4016 * t61;
12858   t13402 = t1397 * t13401;
12859   t13409 = t6445 * t4012;
12860   t13412 = t1392 * t4012;
12861   t13415 = t6453 * t4012;
12862   t13418 = t4020 * t61;
12863   t13419 = t1397 * t13418;
12864   t13420 = t13419 * t3765;
12865   t13424 = t400 * t13401;
12866   t13427 = t2331 * t1231;
12867   t13430 = 0.22e2 / 0.9e1 * t13144;
12868   t13435 = my_piecewise3(t95, 0, t13430 + 0.4e1 / 0.3e1 * t13147 + t13150 / 0.2e1 - t13152 / 0.4e1);
12869   t13436 = t363 * t13435;
12870   t13445 = -t1474 * t1252 + 0.10e2 / 0.3e1 * t13402 * t3765 + 0.10e2 / 0.3e1 * t4013 * t12768 + 0.10e2 / 0.3e1 * t4013 * t12773 + 0.10e2 / 0.3e1 * t13409 * t3765 - 0.4e1 / 0.3e1 * t13412 * t3791 - 0.10e2 * t13415 * t13161 - 0.80e2 / 0.9e1 * t13420 + 0.5e1 / 0.3e1 * t4013 * t12754 - 0.4e1 / 0.3e1 * t13424 * t3791 - 0.2e1 * t449 * t13427 - 0.2e1 * t449 * t13436 - 0.2e1 / 0.3e1 * t4026 * t12777 - 0.4e1 / 0.3e1 * t4026 * t12782 - 0.2e1 / 0.3e1 * t1227 * t13082;
12871   t13448 = t4124 * t13130;
12872   t13453 = t400 * t13418;
12873   t13454 = t13453 * t3791;
12874   t13456 = t4049 * t1868;
12875   t13459 = t4075 * t748;
12876   t13460 = t13459 * t677;
12877   t13463 = t4079 * t7870;
12878   t13466 = t4049 * t1881;
12879   t13469 = 0.35e2 / 0.216e3 * t12949;
12880   t13478 = 0.119e3 / 0.3456e4 * t12976;
12881   t13482 = t13469 + 0.7e1 / 0.36e2 * t12952 + t12955 / 0.8e1 - t12957 / 0.24e2 + t12962 / 0.384e3 + 0.7e1 / 0.576e3 * t12966 + t12970 / 0.96e2 - t12972 / 0.768e3 - t12974 / 0.768e3 + t13478 + 0.7e1 / 0.144e3 * t12980 + 0.5e1 / 0.192e3 * t12982 - t12984 / 0.192e3;
12882   t13483 = params->beta * t13482;
12883   t13485 = t4059 * t187;
12884   t13499 = t13005 * t1237 * t2061;
12885   t13502 = t694 * t1237;
12886   t13503 = t13502 * t13014;
12887   t13507 = t3906 * t4058 * t743;
12888   t13511 = t3906 * t1237 * t2079;
12889   t13514 = t1237 * t1891;
12890   t13516 = t13026 * t13514 * t1892;
12891   t13520 = t4058 * t707 * t194;
12892   t13521 = t3911 * t13520;
12893   t13526 = t3911 * t1237 * t2018 * t194;
12894   t13529 = t3911 * t13514 * t194;
12895   t13532 = t1186 * t196 * t13482;
12896   t13534 = -t1185 * t13532 - t1241 * t12996 + 0.4e1 * t12998 * t4065 + 0.2e1 * t12998 * t4070 - 0.4e1 * t13011 * t13503 + t13483 * t221 - 0.2e1 * t13485 * t744 - 0.6e1 * t13499 * t3905 + 0.4e1 * t13507 * t3905 + 0.2e1 * t13511 * t3905 - 0.2e1 * t13516 * t3905 + 0.2e1 * t13521 * t3905 + t13526 * t3905 + t13529 * t3905 + 0.2e1 * t2062 * t4061 - t2080 * t4061 - 0.2e1 * t3903 * t4073;
12897   t13535 = t175 * t13534;
12898   t13536 = t13535 * t748;
12899   t13537 = t169 * t13536;
12900   t13538 = t4075 * t2093;
12901   t13539 = t13538 * t746;
12902   t13542 = t1243 * t6117;
12903   t13543 = t13542 * t2090;
12904   t13546 = t4079 * t2082;
12905   t13548 = 0.6e1 * t13456 * t2857 + 0.6e1 * t13460 * t1768 - 0.6e1 * t13463 * t1768 + 0.3e1 * t13466 * t1768 - 0.2e1 * t13539 * t2849 + 0.2e1 * t13543 * t2849 - t13546 * t2849 + t13537;
12906   t13549 = my_piecewise3(t296, 0, t13548);
12907   t13555 = my_piecewise3(t359, 0, t13548);
12908   t13561 = t13549 * t34 / 0.2e1 + t4083 * t413 + t1247 * t1454 / 0.2e1 + t13555 * t46 / 0.2e1 + t4086 * t436 + t1249 * t1463 / 0.2e1;
12909   t13563 = t4021 * t3785;
12910   t13565 = t4021 * t3795;
12911   t13575 = t1252 * t1516;
12912   t13580 = t4090 * t464;
12913   t13585 = t1244 * t13138;
12914   t13588 = -0.2e1 / 0.3e1 * t4009 * t3795 + 0.3e1 * t1214 * t13448 - 0.4e1 / 0.3e1 * t4026 * t12785 + 0.32e2 / 0.9e1 * t13454 - t98 * t13561 + 0.16e2 / 0.9e1 * t13563 + 0.16e2 / 0.9e1 * t13565 - t1227 * t13093 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t13097 - 0.2e1 * t8308 * t1232 - 0.4e1 * t2448 * t4035 - 0.2e1 * t449 * t13575 - 0.4e1 * t1476 * t4035 - 0.4e1 * t449 * t13580 - 0.2e1 * t1482 * t1252 + 0.2e1 * t1214 * t13585;
12915   t13592 = t1392 * t4020;
12916   t13593 = t13592 * t1138;
12917   t13595 = t4076 * t3985;
12918   t13604 = t174 * t4075;
12919   t13605 = t13604 * t3980;
12920   t13612 = t857 * t4041;
12921   t13617 = t1406 * t57;
12922   t13618 = t400 * t13617;
12923   t13625 = t25 * t202;
12924   t13626 = t400 * t13625;
12925   t13628 = 0.88e2 / 0.27e2 * t13626 * t1138;
12926   t13629 = 0.20e2 / 0.3e1 * t4013 * t12794 + 0.16e2 / 0.9e1 * t13593 - 0.2e1 * t1214 * t13595 - 0.2e1 * t3977 * t4129 - 0.4e1 * t2448 * t4042 - 0.4e1 * t1476 * t4042 + 0.6e1 * t1214 * t13605 + 0.6e1 * t3977 * t4125 - 0.2e1 * t6587 * t1232 - 0.4e1 * t449 * t13612 - 0.4e1 * t1476 * t4046 - t13618 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t4017 * t3785 - 0.2e1 / 0.3e1 * t4017 * t3795 - t13628;
12927   t13636 = t1244 * t5856;
12928   t13638 = t404 * t423;
12929   t13639 = t400 * t13638;
12930   t13640 = t13639 * t1138;
12931   t13642 = t6442 * t1226;
12932   t13645 = t1392 * t4016;
12933   t13656 = t4117 * t443;
12934   t13659 = t1258 * t1470;
12935   t13662 = t3944 * t57;
12936   t13663 = t1397 * t13662;
12937   t13672 = t1254 * t13272;
12938   t13675 = t1254 * t13276;
12939   t13678 = t1254 * t13252;
12940   t13681 = t4102 * t3940;
12941   t13682 = t3939 * t13681;
12942   t13684 = t4102 * t3946;
12943   t13685 = t3945 * t13684;
12944   t13687 = t1258 * t1398;
12945   t13692 = t4114 * t443;
12946   t13697 = t1254 * t13287;
12947   t13700 = t1254 * t13256;
12948   t13703 = -0.16e2 * t400 * t13656 - 0.8e1 * t400 * t13659 - 0.20e2 / 0.3e1 * t13663 * t13248 - 0.10e2 / 0.3e1 * t13260 * t4094 + 0.4e1 / 0.3e1 * t13263 * t4097 - 0.10e2 / 0.3e1 * t13266 * t4094 - 0.10e2 / 0.3e1 * t3939 * t13672 - 0.5e1 / 0.3e1 * t3939 * t13675 + 0.10e2 * t13251 * t13678 + 0.80e2 / 0.9e1 * t13682 - 0.32e2 / 0.9e1 * t13685 + 0.40e2 * t1397 * t13687 - 0.16e2 * t1392 * t4111 - 0.16e2 * t400 * t13692 + 0.4e1 / 0.3e1 * t13281 * t4097 + 0.4e1 / 0.3e1 * t3945 * t13697 + 0.2e1 / 0.3e1 * t3945 * t13700;
12949   t13704 = t3936 * t4103;
12950   t13716 = t4102 * t3958;
12951   t13717 = t1202 * t13716;
12952   t13719 = t1254 * t13336;
12953   t13724 = t3951 * t4103;
12954   t13726 = t202 * t61;
12955   t13727 = t13726 * t1204;
12956   t13729 = 0.88e2 / 0.27e2 * t1202 * t13727;
12957   t13736 = t1516 * t1231;
12958   t13739 = t464 * t4041;
12959   t13742 = t96 * t13435;
12960   t13745 = -0.16e2 / 0.9e1 * t13704 + t13311 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t13314 * t1255 + 0.2e1 / 0.3e1 * t3936 * t4106 + t13322 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t3951 * t4106 - 0.16e2 / 0.9e1 * t13717 + t1202 * t13719 / 0.3e1 + 0.2e1 / 0.3e1 * t13308 * t1255 - 0.16e2 / 0.9e1 * t13724 + t13729 + 0.2e1 * t1391 * t1258 + 0.4e1 * t397 * t4114 + 0.4e1 * t397 * t4117 + 0.2e1 * t81 * t13736 + 0.4e1 * t81 * t13739 + 0.2e1 * t81 * t13742;
12961   t13746 = t13703 + t13745;
12962   t13748 = t173 * t1243;
12963   t13749 = t13748 * t13106;
12964   t13755 = -0.6e1 * t13345 * t13463 + t13214 * t1245 + t1261 * t2101 - 0.2e1 * t447 * t4090 - t1214 * t13636 + 0.16e2 / 0.9e1 * t13640 - t13642 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t13645 * t1138 - 0.2e1 / 0.3e1 * t4009 * t3785 + 0.2e1 * t4120 * t751 - t1227 * t13205 / 0.3e1 - 0.4e1 * t7847 * t1232 + t13746 * t227 + 0.6e1 * t1214 * t13749 + 0.2e1 * t3977 * t4077 + t1214 * t13536;
12965   t13757 = t13445 + t13588 + t13629 + t13755;
12966   t13758 = t7 * t13757;
12967   t13763 = t869 * t1272;
12968   t13765 = t368 * t4149;
12969   t13770 = params->d * t13757;
12970   t13784 = t1481 * t1231;
12971   t13787 = t4117 * t464;
12972   t13790 = t1258 * t1516;
12973   t13793 = t97 * t13435;
12974   t13796 = 0.6e1 * t1267 * t2367 + 0.3e1 * t1267 * t2370 + 0.3e1 * t1269 * t2363 + t13770 * t370 + 0.6e1 * t13784 * t369 + 0.12e2 * t13787 * t369 + 0.6e1 * t13790 * t369 + 0.3e1 * t13793 * t369 + 0.6e1 * t4137 * t875 + 0.12e2 * t4143 * t873 + 0.6e1 * t4146 * t873;
12975   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
12976     v3rho2sigma[1] = t1265 * t2373 + t1272 * t2359 + t13758 * t372 + t13796 * t872 + 0.2e1 * t4132 * t878 + 0.2e1 * t4149 * t870 + 0.2e1 * t13396 + 0.2e1 * t13398 + 0.2e1 * t13763 + 0.2e1 * t13765;
12977 
12978   t13798 = t4257 * t372;
12979   t13800 = t1315 * t878;
12980   t13808 = t6445 * t4155;
12981   t13811 = t1392 * t4155;
12982   t13814 = t1307 * t1516;
12983   t13817 = t44 * t1431;
12984   t13818 = t13817 * t1432;
12985   t13820 = t4163 * t1436;
12986   t13822 = 0.10e2 / 0.9e1 * t13818 + 0.5e1 / 0.3e1 * t13820 - t13193;
12987   t13823 = t25 * t13822;
12988   t13824 = t400 * t13823;
12989   t13833 = t1392 * t4159;
12990   t13836 = t1392 * t4167;
12991   t13845 = t1277 * t13093 / 0.6e1 + t1277 * t13097 / 0.3e1 - 0.10e2 / 0.3e1 * t4156 * t12794 - 0.5e1 / 0.3e1 * t13808 * t3765 + 0.2e1 / 0.3e1 * t13811 * t3791 - 0.2e1 * t449 * t13814 + t13824 * t1138 / 0.6e1 + t4168 * t3785 / 0.3e1 + t4168 * t3795 / 0.3e1 + t1277 * t13205 / 0.6e1 + t13833 * t1138 / 0.3e1 + t13836 * t1138 / 0.3e1 + t4152 * t3785 / 0.3e1 + t4152 * t3795 / 0.3e1 - 0.2e1 * t447 * t4235;
12992   t13850 = t1406 * t1275;
12993   t13851 = t400 * t13850;
12994   t13854 = t404 * t4166;
12995   t13855 = t400 * t13854;
12996   t13862 = t4235 * t464;
12997   t13867 = -0.4e1 * t1476 * t4179 + t1277 * t13082 / 0.3e1 + t13851 * t1138 / 0.6e1 + t13855 * t1138 / 0.3e1 + t4160 * t3785 / 0.3e1 + t4160 * t3795 / 0.3e1 - t13101 - t13104 + t13109 - 0.4e1 * t449 * t13862 - t13123 + t13127 + t13129 + t13133 - t13137 + 0.2e1 / 0.3e1 * t4173 * t12785;
12998   t13869 = t4167 * t61;
12999   t13870 = t400 * t13869;
13000   t13875 = t4159 * t61;
13001   t13876 = t400 * t13875;
13002   t13879 = t1397 * t13875;
13003   t13882 = t1397 * t13869;
13004   t13889 = t6442 * t1276;
13005   t13892 = t6453 * t4155;
13006   t13895 = 0.2e1 / 0.3e1 * t13870 * t3791 - 0.5e1 / 0.6e1 * t4156 * t12754 + 0.2e1 / 0.3e1 * t13876 * t3791 - 0.5e1 / 0.3e1 * t13879 * t3765 - 0.5e1 / 0.3e1 * t13882 * t3765 - 0.5e1 / 0.3e1 * t4156 * t12768 - 0.5e1 / 0.3e1 * t4156 * t12773 + t13889 * t1138 / 0.6e1 + t13141 - t13143 - t13158 - t13171 - t13173 - t13175 + 0.5e1 * t13892 * t13161;
13007   t13904 = t4247 * t3940;
13008   t13907 = t1309 * t13272;
13009   t13910 = t1309 * t13276;
13010   t13915 = t4247 * t3946;
13011   t13918 = t1309 * t13287;
13012   t13921 = t1309 * t13256;
13013   t13926 = t1309 * t13252;
13014   t13929 = t3944 * t1275;
13015   t13930 = t1397 * t13929;
13016   t13933 = t13232 - t13235 - t13238 - t13240 - t13243 - 0.2e1 / 0.3e1 * t13263 * t4242 + 0.5e1 / 0.3e1 * t13266 * t4239 + 0.5e1 / 0.3e1 * t3939 * t13904 + 0.5e1 / 0.3e1 * t3939 * t13907 + 0.5e1 / 0.6e1 * t3939 * t13910 - 0.2e1 / 0.3e1 * t13281 * t4242 - 0.2e1 / 0.3e1 * t3945 * t13915 - 0.2e1 / 0.3e1 * t3945 * t13918 - t3945 * t13921 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t4239 - 0.5e1 * t13251 * t13926 + 0.10e2 / 0.3e1 * t13930 * t13248;
13017   t13942 = t13822 * t61;
13018   t13943 = t13942 * t1204;
13019   t13946 = t4247 * t3958;
13020   t13949 = t1309 * t13336;
13021   t13960 = -t13308 * t1310 / 0.3e1 - t13322 * t1310 / 0.6e1 - t3951 * t4248 / 0.3e1 - t3951 * t4251 / 0.3e1 - t1202 * t13943 / 0.6e1 - t1202 * t13946 / 0.3e1 - t1202 * t13949 / 0.6e1 - t13311 * t1310 / 0.6e1 - t13314 * t1310 / 0.3e1 - t3936 * t4248 / 0.3e1 - t3936 * t4251 / 0.3e1 + t13294 + t13296 + t13298 + t13301 + t13304 + t13306;
13022   t13961 = t13933 + t13960;
13023   t13969 = my_piecewise3(t296, 0, t13061);
13024   t13976 = t1283 * t2191 / 0.432e3;
13025   t13977 = t4187 * t2194;
13026   t13985 = t2214 * sigma[2];
13027   t13987 = t262 * t13985 * t805;
13028   t13990 = t4192 * t2225;
13029   t13993 = sigma[2] * t337 * t209;
13030   t13994 = t2229 * t13993;
13031   t14002 = t1288 * t2263 / 0.3456e4;
13032   t14003 = t4198 * t2266;
13033   t14011 = -t13976 + t13977 / 0.432e3 + t4187 * t2201 / 0.216e3 - t4187 * t2206 / 0.144e3 + t4187 * t2210 / 0.288e3 + t13987 * t2222 / 0.384e3 - t13990 / 0.576e3 - t13994 * t2235 / 0.576e3 - t4192 * t2254 / 0.768e3 - t4192 * t2259 / 0.768e3 - t14002 + t14003 / 0.864e3 + 0.5e1 / 0.3456e4 * t4198 * t2273 - t4198 * t2277 / 0.576e3 + t4198 * t2281 / 0.1152e4;
13034   t14012 = params->beta * t14011;
13035   t14014 = t4202 * t187;
13036   t14020 = t1159 * t2284;
13037   t14021 = t14020 * t1162;
13038   t14023 = t4206 * t3851;
13039   t14030 = t7461 * t331;
13040   t14032 = t14030 * t1291 * t2293;
13041   t14035 = t3851 * t2291;
13042   t14036 = t1294 * t14035;
13043   t14037 = t803 * t1291;
13044   t14039 = t844 * t813 * t329;
13045   t14040 = t14037 * t14039;
13046   t14044 = t4210 * t4201 * t844;
13047   t14048 = t4210 * t1291 * t2311;
13048   t14051 = t837 * t2214;
13049   t14052 = t1291 * t2218;
13050   t14054 = t14051 * t14052 * t2219;
13051   t14058 = t4201 * t813 * t329;
13052   t14059 = t4215 * t14058;
13053   t14064 = t4215 * t1291 * t2251 * t329;
13054   t14067 = t4215 * t14052 * t329;
13055   t14070 = t1296 * t331 * t14011;
13056   t14072 = -t1295 * t14070 - t1298 * t14021 + t14012 * t352 - 0.2e1 * t14014 * t845 + 0.4e1 * t14023 * t4212 + 0.2e1 * t14023 * t4218 - 0.6e1 * t14032 * t4209 - 0.4e1 * t14036 * t14040 + 0.4e1 * t14044 * t4209 + 0.2e1 * t14048 * t4209 - 0.2e1 * t14054 * t4209 + 0.2e1 * t14059 * t4209 + t14064 * t4209 + t14067 * t4209 + 0.2e1 * t2294 * t4204 - t2312 * t4204 - 0.2e1 * t4207 * t4221;
13057   t14076 = t4223 * t2320;
13058   t14079 = t1300 * t7519;
13059   t14086 = my_piecewise3(t359, t169 * t14072 * t848 / 0.2e1 - t169 * t14076 * t847 + t169 * t14079 * t2318 - t169 * t4226 * t2314 / 0.2e1, t13061);
13060   t14092 = t13969 * t34 / 0.2e1 + t4182 * t413 + t1280 * t1454 / 0.2e1 + t14086 * t46 / 0.2e1 + t4231 * t436 + t1304 * t1463 / 0.2e1;
13061   t14094 = 0.2e1 / 0.3e1 * t4173 * t12782 + t4173 * t12777 / 0.3e1 + t13961 * t227 - t13182 - t13210 + 0.2e1 * t4254 * t751 - t1474 * t1307 - 0.2e1 * t1482 * t1307 + t13215 - t13222 - t13229 + t13343 - t13347 + t13349 + t1313 * t2101 - t98 * t14092;
13062   t14096 = t13845 + t13867 + t13895 + t14094;
13063   t14097 = t7 * t14096;
13064   t14102 = t869 * t1320;
13065   t14104 = t368 * t4267;
13066   t14109 = params->d * t14096;
13067   t14117 = 0.6e1 * t1318 * t2367 + 0.3e1 * t1318 * t2370 + t14109 * t370 + 0.6e1 * t4263 * t875 + t13377 + t13379 + t13381 + t13384 + t13387 + t13390 + t13393;
13068   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13069     v3rho2sigma[2] = t1316 * t2373 + t1320 * t2359 + t14097 * t372 + t14117 * t872 + 0.2e1 * t4258 * t878 + 0.2e1 * t4267 * t870 + 0.2e1 * t13798 + 0.2e1 * t13800 + 0.2e1 * t14102 + 0.2e1 * t14104;
13070 
13071   t14119 = t4440 * t372;
13072   t14120 = t446 * t928;
13073   t14122 = 0.2e1 * t14120 * t1144;
13074   t14123 = t82 * t2478;
13075   t14125 = 0.2e1 * t14123 * t1144;
13076   t14127 = 0.2e1 * t4302 * t3802;
13077   t14131 = t13146 * t923;
13078   t14133 = t923 * t459;
13079   t14134 = t13149 * t14133;
13080   t14136 = t3807 * t2473;
13081   t14139 = my_piecewise3(t95, 0, t13145 + t13147 / 0.3e1 + t14131 / 0.3e1 + t14134 / 0.4e1 - t14136 / 0.8e1);
13082   t14140 = t363 * t14139;
13083   t14142 = 0.2e1 * t449 * t14140;
13084   t14144 = 0.2e1 * t1476 * t4312;
13085   t14146 = 0.2e1 * t2448 * t4312;
13086   t14147 = t857 * t4311;
13087   t14149 = 0.2e1 * t449 * t14147;
13088   t14151 = 0.2e1 * t4302 * t3812;
13089   t14152 = t2378 * t3761;
13090   t14155 = t4276 * t61;
13091   t14156 = t400 * t14155;
13092   t14159 = t3958 * t4272;
13093   t14162 = -t14122 - t14125 - t14127 - 0.2e1 * t2442 * t3816 - t14142 - t14144 - t14146 - t14149 - t14151 + t14152 * t3791 / 0.3e1 + t14156 * t3791 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t14159;
13094   t14163 = t12771 * t912;
13095   t14164 = t1204 * t14163;
13096   t14177 = t3825 * t2563;
13097   t14179 = t183 * t54;
13098   t14180 = t1147 * t14179;
13099   t14181 = t6680 * t2490;
13100   t14184 = t1582 * t2495;
13101   t14193 = t3830 * t2587;
13102   t14197 = -t12802 / 0.108e3 - t12805 + t12854 / 0.864e3 - t12851 * t954 / 0.108e3 + t14177 / 0.864e3 + t14180 * t14181 / 0.216e3 - t14180 * t14184 / 0.144e3 + t3825 * t2575 / 0.144e3 + t12808 * t2582 / 0.384e3 + t12821 * t965 / 0.144e3 - t14193 / 0.1152e4 - t12813 * t2591 / 0.1152e4;
13103   t14209 = t3840 * t2631;
13104   t14217 = -t3830 * t2615 / 0.768e3 - t3830 * t2619 / 0.768e3 - t12824 / 0.1152e4 - t12843 / 0.216e3 - t12846 + t12835 / 0.1728e4 - t12813 * t2626 / 0.1152e4 - t12832 * t969 / 0.216e3 + t14209 / 0.1728e4 + 0.5e1 / 0.3456e4 * t3840 * t2637 - t3840 * t2642 / 0.576e3 + t3840 * t2647 / 0.576e3;
13105   t14218 = t14197 + t14217;
13106   t14219 = params->beta * t14218;
13107   t14221 = t4326 * t187;
13108   t14227 = t1159 * t2651;
13109   t14228 = t14227 * t1162;
13110   t14230 = t4329 * t3851;
13111   t14238 = t12878 * t4332 * t577;
13112   t14242 = t979 * t539 * t265;
13113   t14243 = t12885 * t14242;
13114   t14246 = -t1167 * t14228 - t12862 * t980 + 0.2e1 * t12871 * t4333 - 0.2e1 * t12884 * t14243 + t14219 * t289 - t14221 * t578 + 0.2e1 * t14230 * t3855 + t14230 * t3861 - 0.6e1 * t14238 * t3852 + 0.2e1 * t2658 * t3846 - t2679 * t3846 - t3864 * t4330;
13115   t14247 = t3843 * t979;
13116   t14248 = t3853 * t14247;
13117   t14251 = t1156 * t2678;
13118   t14252 = t3853 * t14251;
13119   t14256 = t963 * t577;
13120   t14257 = t12885 * t14256;
13121   t14260 = t3851 * t570;
13122   t14261 = t1160 * t14260;
13123   t14262 = t1668 * t1156;
13124   t14263 = t8623 * t539;
13125   t14264 = t14262 * t14263;
13126   t14268 = t3843 * t962 * t265;
13127   t14269 = t3858 * t14268;
13128   t14273 = t3858 * t1156 * t2612 * t265;
13129   t14275 = t8639 * t265;
13130   t14276 = t12885 * t14275;
13131   t14280 = t3853 * t4325 * t577;
13132   t14284 = t4325 * t539 * t265;
13133   t14285 = t3858 * t14284;
13134   t14288 = t1165 * t267 * t14218;
13135   t14290 = -t1163 * t14288 + t12871 * t4338 - 0.2e1 * t12884 * t14257 + 0.2e1 * t14248 * t3852 + 0.2e1 * t14252 * t3852 - 0.2e1 * t14261 * t14264 + t14261 * t14276 + t14269 * t3852 + t14273 * t3852 + 0.2e1 * t14280 * t3852 + t14285 * t3852 - t3849 * t4341;
13136   t14291 = t14246 + t14290;
13137   t14295 = t4343 * t1763;
13138   t14302 = t169 * t1169;
13139   t14303 = t8979 * t580;
13140   t14309 = t3874 * t2803;
13141   t14312 = t12937 * t999;
13142   t14315 = t3923 * t9882;
13143   t14318 = t3874 * t2728;
13144   t14321 = t4377 * t748;
13145   t14322 = t14321 * t677;
13146   t14326 = t12951 * t1004;
13147   t14328 = t206 * t114;
13148   t14329 = t1173 * t14328;
13149   t14330 = t183 * t2803;
13150   t14331 = t14329 * t14330;
13151   t14333 = t3882 * t2740;
13152   t14336 = t262 * t12959 * t204;
13153   t14337 = t14336 * t2750;
13154   t14339 = t12965 * t1016;
13155   t14341 = t12969 * t2756;
13156   t14343 = t3887 * t2787;
13157   t14345 = t12969 * t2791;
13158   t14349 = t12969 * t2798;
13159   t14351 = t12979 * t1020;
13160   t14353 = t3894 * t2805;
13161   t14355 = t3894 * t2809;
13162   t14357 = t12950 + 0.7e1 / 0.144e3 * t12952 + 0.7e1 / 0.144e3 * t14326 + t14331 / 0.16e2 - t14333 / 0.48e2 + t14337 / 0.768e3 + 0.7e1 / 0.2304e4 * t14339 + t14341 / 0.384e3 - t14343 / 0.1536e4 - t14345 / 0.1536e4 + 0.7e1 / 0.2304e4 * t12966 + t12977 + 0.7e1 / 0.576e3 * t12980 + t14349 / 0.384e3 + 0.7e1 / 0.576e3 * t14351 + 0.5e1 / 0.384e3 * t14353 - t14355 / 0.384e3;
13163   t14358 = params->beta * t14357;
13164   t14360 = t4360 * t187;
13165   t14366 = t1159 * t2812;
13166   t14367 = t14366 * t1162;
13167   t14369 = t4363 * t3851;
13168   t14376 = t4366 * t743;
13169   t14377 = t13005 * t14376;
13170   t14381 = t1030 * t707 * t194;
13171   t14382 = t13012 * t14381;
13172   t14385 = -t1031 * t12989 - t1188 * t14367 + 0.2e1 * t12998 * t4367 - 0.2e1 * t13011 * t14382 + t14358 * t221 - t14360 * t744 + 0.2e1 * t14369 * t3908 + t14369 * t3914 - 0.6e1 * t14377 * t3905 + 0.2e1 * t2819 * t3900 - t2842 * t3900 - t3917 * t4364;
13173   t14386 = t3897 * t1030;
13174   t14387 = t3906 * t14386;
13175   t14390 = t1181 * t2841;
13176   t14391 = t3906 * t14390;
13177   t14395 = t1014 * t743;
13178   t14396 = t13012 * t14395;
13179   t14399 = t3851 * t736;
13180   t14400 = t1184 * t14399;
13181   t14401 = t1887 * t1181;
13182   t14402 = t8057 * t707;
13183   t14403 = t14401 * t14402;
13184   t14407 = t3897 * t1013 * t194;
13185   t14408 = t3911 * t14407;
13186   t14411 = t1181 * t2784 * t194;
13187   t14412 = t3911 * t14411;
13188   t14414 = t8211 * t194;
13189   t14415 = t13012 * t14414;
13190   t14419 = t3906 * t4359 * t743;
13191   t14423 = t4359 * t707 * t194;
13192   t14424 = t3911 * t14423;
13193   t14427 = t1186 * t196 * t14357;
13194   t14429 = -t1185 * t14427 + t12998 * t4372 - 0.2e1 * t13011 * t14396 + 0.2e1 * t14387 * t3905 + 0.2e1 * t14391 * t3905 - 0.2e1 * t14400 * t14403 + t14400 * t14415 + t14408 * t3905 + t14412 * t3905 + 0.2e1 * t14419 * t3905 + t14424 * t3905 - t3903 * t4375;
13195   t14430 = t14385 + t14429;
13196   t14431 = t175 * t14430;
13197   t14432 = t14431 * t748;
13198   t14433 = t169 * t14432;
13199   t14434 = t4377 * t2093;
13200   t14435 = t14434 * t746;
13201   t14437 = t1033 * t677;
13202   t14438 = t3923 * t14437;
13203   t14441 = t13051 * t1033;
13204   t14443 = t1033 * t746;
13205   t14444 = t13055 * t14443;
13206   t14447 = t3923 * t2844;
13207   t14449 = 0.6e1 * t14309 * t2857 + 0.3e1 * t14312 * t1768 - 0.3e1 * t14315 * t1768 + 0.3e1 * t14318 * t1768 + 0.3e1 * t14322 * t1768 - t14435 * t2849 - 0.3e1 * t14438 * t1768 - t14441 * t2849 + 0.2e1 * t14444 * t2849 - t14447 * t2849 + t14433;
13208   t14450 = my_piecewise3(t296, t169 * t14291 * t581 / 0.2e1 - t169 * t14295 * t580 / 0.2e1 - t169 * t12924 * t982 / 0.2e1 + t14302 * t14303 - t169 * t3869 * t2681 / 0.2e1, t14449);
13209   t14457 = t1194 * t4;
13210   t14459 = my_piecewise3(t359, 0, t14449);
13211   t14466 = t1196 * t4;
13212   t14468 = t14450 * t34 / 0.2e1 + t4384 * t413 / 0.2e1 + t3927 * t886 / 0.2e1 + t14457 * t377 + t14459 * t46 / 0.2e1 + t4387 * t436 / 0.2e1 + t3930 * t905 / 0.2e1 - t14466 * t377;
13213   t14471 = 0.2e1 * t8342 * t1144;
13214   t14473 = 0.2e1 * t2442 * t3812;
13215   t14475 = 0.3e1 * t13345 * t14438;
13216   t14476 = t4431 * t3921;
13217   t14477 = t929 * t443;
13218   t14478 = t12791 * t14477;
13219   t14482 = 0.3e1 * t4431 * t3981;
13220   t14483 = t168 * t175;
13221   t14484 = t1213 * t14483;
13222   t14486 = 0.2e1 * t14484 * t14444;
13223   t14487 = -0.5e1 / 0.6e1 * t3762 * t14164 - 0.5e1 / 0.6e1 * t13164 * t4273 - 0.5e1 / 0.6e1 * t12761 * t4273 - 0.5e1 / 0.6e1 * t12765 * t4273 - t98 * t14468 - t14471 - t14473 - t14475 + t14476 - 0.5e1 / 0.3e1 * t3762 * t14478 + t14482 + t14486;
13224   t14489 = t748 * t2728;
13225   t14490 = t3979 * t14489;
13226   t14492 = 0.3e1 * t1214 * t14490;
13227   t14493 = t3977 * t4438;
13228   t14494 = t174 * t4377;
13229   t14495 = t14494 * t3980;
13230   t14497 = 0.3e1 * t1214 * t14495;
13231   t14499 = t1201 * t1133;
13232   t14500 = t6453 * t14499;
13233   t14501 = t73 * t912;
13234   t14502 = t14501 * t443;
13235   t14503 = t66 * t14502;
13236   t14507 = t66 * t14501 * t464;
13237   t14510 = t73 * t928;
13238   t14512 = t66 * t14510 * t443;
13239   t14515 = t3967 * t912;
13240   t14517 = 0.8e1 * t400 * t14515;
13241   t14519 = 0.8e1 * t2378 * t3964;
13242   t14521 = 0.8e1 * t1392 * t4418;
13243   t14522 = t3970 * t912;
13244   t14524 = 0.8e1 * t400 * t14522;
13245   t14525 = t1208 * t2436;
13246   t14527 = 0.8e1 * t400 * t14525;
13247   t14528 = t4421 * t443;
13248   t14530 = 0.8e1 * t400 * t14528;
13249   t14531 = t4424 * t443;
13250   t14533 = 0.8e1 * t400 * t14531;
13251   t14534 = t7763 * t1201;
13252   t14537 = t2378 * t3950;
13253   t14542 = -0.5e1 * t14500 * t14503 + 0.5e1 / 0.3e1 * t13245 * t14507 + 0.5e1 / 0.3e1 * t13245 * t14512 - t14517 - t14519 - t14521 - t14524 - t14527 - t14530 - t14533 - t14534 * t1205 / 0.6e1 - t14537 * t1205 / 0.6e1 - t4393 * t3955 / 0.6e1;
13254   t14545 = t1392 * t4404;
13255   t14548 = t97 * t2386;
13256   t14549 = t400 * t14548;
13257   t14560 = t13185 * t887;
13258   t14562 = t887 * t414;
13259   t14563 = t13188 * t14562;
13260   t14567 = -0.40e2 / 0.9e1 * t14560 + 0.10e2 / 0.9e1 * t14563 + 0.5e1 / 0.3e1 * t3774 * t1402 - t13193;
13261   t14568 = t14567 * t61;
13262   t14569 = t14568 * t1204;
13263   t14572 = t4408 * t3958;
13264   t14579 = t3954 * t4412;
13265   t14582 = t65 * t2432;
13266   t14583 = t1203 * t14582;
13267   t14586 = t1143 * t912;
13268   t14587 = t14586 * t443;
13269   t14589 = 0.40e2 * t7757 * t14587;
13270   t14590 = -t4393 * t3959 / 0.6e1 - t14545 * t1205 / 0.6e1 - t14549 * t1205 / 0.6e1 - t4405 * t3955 / 0.6e1 - t4405 * t3959 / 0.6e1 - t3936 * t4409 / 0.6e1 - t3951 * t4409 / 0.6e1 - t1202 * t14569 / 0.6e1 - t1202 * t14572 / 0.6e1 - t3936 * t4413 / 0.6e1 - t3951 * t4413 / 0.6e1 - t1202 * t14579 / 0.6e1 - t1202 * t14583 / 0.6e1 + t14589;
13271   t14593 = 0.2e1 * t397 * t4424;
13272   t14595 = 0.2e1 * t2377 * t1208;
13273   t14597 = 0.2e1 * t881 * t3967;
13274   t14599 = 0.2e1 * t881 * t3970;
13275   t14601 = 0.2e1 * t397 * t4421;
13276   t14602 = t2478 * t1143;
13277   t14604 = 0.2e1 * t81 * t14602;
13278   t14605 = t928 * t3811;
13279   t14607 = 0.2e1 * t81 * t14605;
13280   t14608 = t464 * t4311;
13281   t14610 = 0.2e1 * t81 * t14608;
13282   t14611 = t96 * t14139;
13283   t14613 = 0.2e1 * t81 * t14611;
13284   t14614 = t2378 * t3944;
13285   t14617 = t1204 * t2436;
13286   t14618 = t1203 * t14617;
13287   t14623 = t464 * t25;
13288   t14624 = t400 * t14623;
13289   t14629 = t14593 + t14595 + t14597 + t14599 + t14601 + t14604 + t14607 + t14610 + t14613 - t14614 * t3947 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t14618 - t13263 * t4401 / 0.3e1 - t14624 * t4401 / 0.3e1 - t13281 * t4401 / 0.3e1;
13290   t14630 = t3954 * t4400;
13291   t14633 = t3958 * t928;
13292   t14634 = t1203 * t14633;
13293   t14637 = t1204 * t2478;
13294   t14638 = t1203 * t14637;
13295   t14641 = t1397 * t4404;
13296   t14644 = t96 * t883;
13297   t14645 = t400 * t14644;
13298   t14648 = t4408 * t3940;
13299   t14651 = t4408 * t3946;
13300   t14654 = t4412 * t443;
13301   t14655 = t1203 * t14654;
13302   t14658 = t4412 * t464;
13303   t14659 = t1203 * t14658;
13304   t14662 = t7591 * t1201;
13305   t14669 = t3954 * t4396;
13306   t14672 = t3958 * t912;
13307   t14673 = t1203 * t14672;
13308   t14676 = -t3945 * t14630 / 0.3e1 - t3945 * t14634 / 0.3e1 - t3945 * t14638 / 0.3e1 + 0.5e1 / 0.6e1 * t14641 * t3941 - t14645 * t3947 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t14648 - t3945 * t14651 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t14655 - t3945 * t14659 / 0.3e1 + 0.5e1 / 0.6e1 * t14662 * t3941 + 0.5e1 / 0.6e1 * t13260 * t4397 + 0.5e1 / 0.6e1 * t13266 * t4397 + 0.5e1 / 0.6e1 * t3939 * t14669 + 0.5e1 / 0.6e1 * t3939 * t14673;
13309   t14678 = t14542 + t14590 + t14629 + t14676;
13310   t14680 = t13124 * t4433;
13311   t14682 = 0.3e1 * t1214 * t14680;
13312   t14683 = t1199 * t2478;
13313   t14686 = t7763 * t1134;
13314   t14689 = t2378 * t3768;
13315   t14692 = t2378 * t3779;
13316   t14699 = t14492 - t14493 + t14497 - t916 * t3934 + t14678 * t227 + t14682 - 0.2e1 * t449 * t14683 + t14686 * t1138 / 0.6e1 + t14689 * t1138 / 0.6e1 + t14692 * t1138 / 0.6e1 + t4269 * t3785 / 0.6e1 + t4269 * t3795 / 0.6e1;
13317   t14700 = t4431 * t3986;
13318   t14702 = 0.3e1 * t3977 * t4434;
13319   t14703 = t1204 * t97;
13320   t14704 = t363 * t912;
13321   t14705 = t14704 * t443;
13322   t14706 = t14703 * t14705;
13323   t14709 = t3789 * t2478;
13324   t14710 = t1204 * t14709;
13325   t14713 = t97 * t1110;
13326   t14714 = t14713 * t443;
13327   t14715 = t1204 * t14714;
13328   t14718 = t96 * t1110;
13329   t14719 = t14718 * t464;
13330   t14720 = t1204 * t14719;
13331   t14725 = t3958 * t4292;
13332   t14728 = t465 * t928;
13333   t14729 = t1204 * t14728;
13334   t14732 = t12780 * t928;
13335   t14733 = t1204 * t14732;
13336   t14736 = t7591 * t3761;
13337   t14743 = -t14700 + t14702 + 0.5e1 * t13159 * t14706 + t3788 * t14710 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t14715 + t3788 * t14720 / 0.3e1 + t12788 * t4293 / 0.3e1 + t3788 * t14725 / 0.3e1 + t3788 * t14729 / 0.3e1 + t3788 * t14733 / 0.3e1 - 0.5e1 / 0.6e1 * t14736 * t3765 + t13167 * t4293 / 0.3e1 + t12758 * t4293 / 0.3e1;
13338   t14749 = t3934 * t928;
13339   t14755 = 0.2e1 * t1476 * t4305;
13340   t14757 = 0.2e1 * t2448 * t4305;
13341   t14758 = t3091 * t1143;
13342   t14760 = 0.2e1 * t449 * t14758;
13343   t14761 = t1214 * t14432;
13344   t14762 = t14704 * t464;
13345   t14763 = t12791 * t14762;
13346   t14766 = t3977 * t4379;
13347   t14771 = t4427 * t751 - 0.2e1 * t2448 * t4316 - 0.2e1 * t449 * t14749 - 0.2e1 * t1476 * t4316 - t14755 - t14757 - t14760 + t14761 - 0.5e1 / 0.3e1 * t3762 * t14763 + t14766 + t3758 * t4289 / 0.6e1 + t3758 * t4297 / 0.6e1;
13348   t14774 = t3783 * t1110;
13349   t14775 = t66 * t14774;
13350   t14778 = t66 * t1136 * t3091;
13351   t14780 = t1392 * t4283;
13352   t14782 = t404 * t4282;
13353   t14783 = t400 * t14782;
13354   t14785 = t25 * t14567;
13355   t14786 = t400 * t14785;
13356   t14790 = t2386 * t1133;
13357   t14791 = t400 * t14790;
13358   t14793 = t883 * t3778;
13359   t14794 = t400 * t14793;
13360   t14798 = t1135 * t14775 + t1135 * t14778 + t1138 * t14780 + t1138 * t14783 + t1138 * t14786 + t1138 * t14791 + t1138 * t14794 + t3769 * t4289 + t3769 * t4297 + t3780 * t4289 + t3780 * t4297 + t3785 * t4284 + t3795 * t4284;
13361   t14801 = t2432 * t97;
13362   t14802 = t14801 * t363;
13363   t14803 = t66 * t14802;
13364   t14806 = t4287 * t857;
13365   t14807 = t66 * t14806;
13366   t14810 = t3920 * t2850;
13367   t14811 = t1214 * t14810;
13368   t14812 = t4378 * t3985;
13369   t14813 = t1214 * t14812;
13370   t14815 = 0.2e1 * t9859 * t1144;
13371   t14817 = 0.2e1 * t2442 * t3802;
13372   t14819 = 0.3e1 * t13345 * t14315;
13373   t14820 = t168 * t173;
13374   t14821 = t1213 * t14820;
13375   t14823 = 0.6e1 * t14821 * t14309;
13376   t14824 = t1392 * t4276;
13377   t14827 = t4391 * t464;
13378   t14830 = t1110 * t3811;
13379   t14832 = 0.2e1 * t449 * t14830;
13380   t14835 = t1135 * t14803 / 0.6e1 + t1135 * t14807 / 0.6e1 - t14811 - t14813 - t14815 - t14817 - t14819 + t14823 + t14824 * t1138 / 0.6e1 - 0.2e1 * t449 * t14827 - t14832 + t4277 * t3785 / 0.6e1;
13381   t14838 = t1191 * t7972;
13382   t14839 = t1214 * t14838;
13383   t14841 = t4412 * t3764;
13384   t14844 = t4412 * t3790;
13385   t14847 = t4283 * t61;
13386   t14848 = t400 * t14847;
13387   t14851 = t1397 * t14847;
13388   t14854 = t3763 * t2436;
13389   t14855 = t1204 * t14854;
13390   t14858 = t1397 * t14155;
13391   t14863 = t3121 * t167 * t168;
13392   t14864 = t14863 * t1192;
13393   t14867 = t4277 * t3795 / 0.6e1 - t14839 - t447 * t4391 - 0.5e1 / 0.6e1 * t3762 * t14841 + t3788 * t14844 / 0.3e1 + t14848 * t3791 / 0.3e1 - 0.5e1 / 0.6e1 * t14851 * t3765 - 0.5e1 / 0.6e1 * t3762 * t14855 - 0.5e1 / 0.6e1 * t14858 * t3765 - t2440 * t1199 + t14864 + t1211 * t2866 + t3973 * t1037;
13394   t14870 = t14162 + t14487 + t14699 + t14743 + t14771 + t14798 / 0.6e1 + t14835 + t14867;
13395   t14871 = t7 * t14870;
13396   t14874 = t1216 * t1130;
13397   t14877 = t1122 * t1224;
13398   t14880 = t368 * t4457;
13399   t14882 = params->d * t14870;
13400   t14893 = 0.3e1 * t3132 * t1221;
13401   t14895 = 0.6e1 * t1125 * t4000;
13402   t14897 = 0.3e1 * t1125 * t4003;
13403   t14899 = 0.6e1 * t873 * t4451;
13404   t14900 = t3967 * t928;
13405   t14902 = 0.6e1 * t369 * t14900;
13406   t14903 = t3970 * t928;
13407   t14905 = 0.6e1 * t369 * t14903;
13408   t14906 = t1208 * t2478;
13409   t14908 = 0.6e1 * t369 * t14906;
13410   t14910 = 0.3e1 * t873 * t4454;
13411   t14911 = t4424 * t464;
13412   t14913 = 0.6e1 * t369 * t14911;
13413   t14914 = t97 * t14139;
13414   t14916 = 0.3e1 * t369 * t14914;
13415   t14917 = 0.3e1 * t1127 * t3994 + 0.6e1 * t1219 * t3138 + 0.3e1 * t1219 * t3141 + t14882 * t370 + 0.3e1 * t4445 * t875 + t14893 + t14895 + t14897 + t14899 + t14902 + t14905 + t14908 + t14910 + t14913 + t14916;
13416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13417     v3rho2sigma[3] = t1123 * t4006 + t1130 * t3989 + t1217 * t3144 + t1224 * t3127 + t14871 * t372 + t14917 * t872 + t4441 * t878 + t4457 * t870 + t12749 + t12751 + t13361 + t13363 + t14119 + t14874 + t14877 + t14880;
13418 
13419   t14919 = t4563 * t372;
13420   t14920 = t13453 * t4293;
13421   t14927 = t4021 * t4289;
13422   t14929 = t4021 * t4297;
13423   t14943 = 0.16e2 / 0.9e1 * t14920 - 0.40e2 / 0.9e1 * t13420 - t1227 * t14803 / 0.3e1 - t1227 * t14807 / 0.3e1 + 0.8e1 / 0.9e1 * t14927 + 0.8e1 / 0.9e1 * t14929 - 0.2e1 / 0.3e1 * t4026 * t14710 + 0.5e1 / 0.3e1 * t4013 * t14715 - 0.2e1 / 0.3e1 * t4026 * t14720 + 0.5e1 / 0.3e1 * t13409 * t4273 + 0.5e1 / 0.3e1 * t13402 * t4273 + 0.5e1 / 0.3e1 * t4013 * t14159;
13424   t14966 = t4464 * t61;
13425   t14967 = t1397 * t14966;
13426   t14970 = 0.5e1 / 0.3e1 * t4013 * t14164 - t4009 * t4297 / 0.3e1 - t4017 * t4297 / 0.3e1 - t1227 * t14775 / 0.3e1 - t1227 * t14778 / 0.3e1 - t4009 * t4289 / 0.3e1 - t4017 * t4289 / 0.3e1 - 0.2e1 * t8342 * t1232 + 0.5e1 / 0.3e1 * t4013 * t14841 - 0.2e1 / 0.3e1 * t4026 * t14844 + 0.5e1 / 0.3e1 * t4013 * t14855 + 0.5e1 / 0.3e1 * t14967 * t3765;
13427   t14972 = t400 * t14966;
13428   t14975 = t7591 * t4012;
13429   t14978 = t2378 * t4012;
13430   t14992 = t13542 * t14443;
13431   t14995 = -0.2e1 / 0.3e1 * t14972 * t3791 + 0.5e1 / 0.3e1 * t14975 * t3765 - 0.2e1 / 0.3e1 * t14978 * t3791 + 0.16e2 / 0.9e1 * t13454 - 0.2e1 * t4302 * t4042 - t447 * t4527 + 0.8e1 / 0.9e1 * t13563 + 0.8e1 / 0.9e1 * t13565 - 0.2e1 * t9859 * t1232 - 0.2e1 * t2442 * t4035 + t14863 * t1245 + 0.2e1 * t14484 * t14992;
13432   t14996 = t4079 * t14437;
13433   t15001 = t857 * t4483;
13434   t15011 = t1392 * t4464;
13435   t15014 = t2386 * t57;
13436   t15015 = t400 * t15014;
13437   t15022 = t4079 * t9882;
13438   t15025 = t7763 * t1226;
13439   t15028 = -0.3e1 * t13345 * t14996 - 0.2e1 * t2448 * t4484 - 0.2e1 * t449 * t15001 - 0.2e1 * t1476 * t4484 + t3977 * t4515 - 0.2e1 * t2442 * t4046 - t4459 * t3795 / 0.3e1 - t15011 * t1138 / 0.3e1 - t15015 * t1138 / 0.3e1 - t4465 * t3785 / 0.3e1 - t4465 * t3795 / 0.3e1 - 0.3e1 * t13345 * t15022 - t15025 * t1138 / 0.3e1;
13440   t15031 = t2378 * t4016;
13441   t15045 = t1110 * t4041;
13442   t15052 = t4090 * t928;
13443   t15055 = t4102 * t4400;
13444   t15056 = t3945 * t15055;
13445   t15058 = t1254 * t14654;
13446   t15061 = t1254 * t14658;
13447   t15068 = t1254 * t14672;
13448   t15071 = t1254 * t14617;
13449   t15080 = t1254 * t14633;
13450   t15083 = t1254 * t14637;
13451   t15088 = -0.16e2 / 0.9e1 * t15056 - 0.5e1 / 0.3e1 * t3939 * t15058 + 0.2e1 / 0.3e1 * t3945 * t15061 - 0.5e1 / 0.3e1 * t13260 * t4531 - 0.5e1 / 0.3e1 * t13266 * t4531 - 0.5e1 / 0.3e1 * t3939 * t15068 - 0.5e1 / 0.3e1 * t3939 * t15071 + 0.2e1 / 0.3e1 * t13263 * t4534 + 0.2e1 / 0.3e1 * t14624 * t4534 + 0.2e1 / 0.3e1 * t13281 * t4534 + 0.2e1 / 0.3e1 * t3945 * t15080 + 0.2e1 / 0.3e1 * t3945 * t15083 - 0.5e1 / 0.3e1 * t14641 * t4094;
13452   t15095 = t4102 * t4396;
13453   t15096 = t3939 * t15095;
13454   t15098 = t1201 * t57;
13455   t15099 = t6453 * t15098;
13456   t15108 = t1258 * t2436;
13457   t15119 = 0.2e1 / 0.3e1 * t14645 * t4097 - 0.5e1 / 0.3e1 * t14662 * t4094 + 0.2e1 / 0.3e1 * t14614 * t4097 + 0.40e2 / 0.9e1 * t15096 + 0.10e2 * t15099 * t14503 - 0.10e2 / 0.3e1 * t13663 * t14507 - 0.10e2 / 0.3e1 * t13663 * t14512 + 0.40e2 / 0.9e1 * t13682 - 0.16e2 / 0.9e1 * t13685 - 0.8e1 * t400 * t15108 + 0.2e1 * t2377 * t1258 + 0.2e1 * t881 * t4114 + 0.2e1 * t881 * t4117 + t14534 * t1255 / 0.3e1;
13458   t15135 = t1254 * t14582;
13459   t15138 = t4102 * t4412;
13460   t15139 = t1202 * t15138;
13461   t15141 = t4405 * t4103;
13462   t15143 = t4393 * t4103;
13463   t15149 = t4114 * t912;
13464   t15152 = t14537 * t1255 / 0.3e1 + t4393 * t4106 / 0.3e1 + t14545 * t1255 / 0.3e1 + t14549 * t1255 / 0.3e1 + t4405 * t4106 / 0.3e1 + t3936 * t4539 / 0.3e1 + t3951 * t4539 / 0.3e1 + t1202 * t15135 / 0.3e1 - 0.8e1 / 0.9e1 * t15139 - 0.8e1 / 0.9e1 * t15141 - 0.8e1 / 0.9e1 * t15143 - 0.8e1 * t2378 * t4111 - 0.8e1 * t1392 * t4544 - 0.8e1 * t400 * t15149;
13465   t15153 = t4117 * t912;
13466   t15159 = t1231 * t912;
13467   t15160 = t15159 * t443;
13468   t15163 = t4547 * t443;
13469   t15166 = t4550 * t443;
13470   t15169 = t464 * t4483;
13471   t15172 = 0.2e1 / 0.3e1 * t14131;
13472   t15176 = my_piecewise3(t95, 0, t13430 + t13148 + t15172 + t14134 / 0.2e1 - t14136 / 0.4e1);
13473   t15177 = t96 * t15176;
13474   t15182 = t2478 * t1231;
13475   t15185 = t928 * t4041;
13476   t15190 = -0.8e1 * t400 * t15153 - 0.8e1 / 0.9e1 * t13704 - 0.8e1 / 0.9e1 * t13717 - 0.8e1 / 0.9e1 * t13724 + t13729 + 0.40e2 * t7757 * t15160 - 0.8e1 * t400 * t15163 - 0.8e1 * t400 * t15166 + 0.2e1 * t81 * t15169 + 0.2e1 * t81 * t15177 + 0.2e1 * t397 * t4547 + 0.2e1 * t81 * t15182 + 0.2e1 * t81 * t15185 + 0.2e1 * t397 * t4550;
13477   t15192 = t15088 + t15119 + t15152 + t15190;
13478   t15194 = -t15031 * t1138 / 0.3e1 - t4459 * t3785 / 0.3e1 + 0.8e1 / 0.9e1 * t13593 + 0.10e2 / 0.3e1 * t4013 * t14478 - 0.2e1 * t14120 * t1232 - 0.2e1 * t14123 * t1232 - 0.2e1 * t4302 * t4035 - 0.2e1 * t449 * t15045 - 0.2e1 * t1476 * t4488 - 0.2e1 * t2448 * t4488 - 0.2e1 * t449 * t15052 + t15192 * t227;
13479   t15195 = t4049 * t2803;
13480   t15198 = t13459 * t999;
13481   t15203 = t4049 * t2728;
13482   t15206 = t4513 * t748;
13483   t15207 = t15206 * t677;
13484   t15210 = 0.7e1 / 0.72e2 * t14326;
13485   t15214 = 0.7e1 / 0.1152e4 * t14339;
13486   t15219 = 0.7e1 / 0.288e3 * t14351;
13487   t15222 = t13469 + t12953 + t15210 + t14331 / 0.8e1 - t14333 / 0.24e2 + t14337 / 0.384e3 + t15214 + t14341 / 0.192e3 - t14343 / 0.768e3 - t14345 / 0.768e3 + t12967 + t13478 + t12981 + t14349 / 0.192e3 + t15219 + 0.5e1 / 0.192e3 * t14353 - t14355 / 0.192e3;
13488   t15223 = params->beta * t15222;
13489   t15225 = t4498 * t187;
13490   t15239 = t13005 * t4502 * t743;
13491   t15242 = t13502 * t14381;
13492   t15245 = -t1031 * t13485 - t1241 * t14367 + 0.2e1 * t12998 * t4503 - 0.2e1 * t13011 * t15242 + 0.2e1 * t14369 * t4065 + t14369 * t4070 + t15223 * t221 - t15225 * t744 - 0.6e1 * t15239 * t3905 + 0.2e1 * t2819 * t4061 - t2842 * t4061 - t4073 * t4364;
13493   t15246 = t4058 * t1030;
13494   t15247 = t3906 * t15246;
13495   t15250 = t1237 * t2841;
13496   t15251 = t3906 * t15250;
13497   t15255 = t13502 * t14395;
13498   t15258 = t1887 * t1237;
13499   t15259 = t15258 * t14402;
13500   t15263 = t4058 * t1013 * t194;
13501   t15264 = t3911 * t15263;
13502   t15268 = t3911 * t1237 * t2784 * t194;
13503   t15270 = t13502 * t14414;
13504   t15274 = t3906 * t4497 * t743;
13505   t15278 = t4497 * t707 * t194;
13506   t15279 = t3911 * t15278;
13507   t15282 = t1186 * t196 * t15222;
13508   t15284 = -t1185 * t15282 + t12998 * t4508 - 0.2e1 * t13011 * t15255 - 0.2e1 * t14400 * t15259 + t14400 * t15270 + 0.2e1 * t15247 * t3905 + 0.2e1 * t15251 * t3905 + t15264 * t3905 + t15268 * t3905 + 0.2e1 * t15274 * t3905 + t15279 * t3905 - t3903 * t4511;
13509   t15285 = t15245 + t15284;
13510   t15286 = t175 * t15285;
13511   t15287 = t15286 * t748;
13512   t15288 = t169 * t15287;
13513   t15289 = t4513 * t2093;
13514   t15290 = t15289 * t746;
13515   t15294 = t13538 * t1033;
13516   t15298 = t4079 * t2844;
13517   t15300 = 0.2e1 * t14992 * t2849 - 0.3e1 * t14996 * t1768 - 0.3e1 * t15022 * t1768 + 0.6e1 * t15195 * t2857 + 0.3e1 * t15198 * t1768 + 0.3e1 * t15203 * t1768 + 0.3e1 * t15207 * t1768 - t15290 * t2849 - t15294 * t2849 - t15298 * t2849 + t15288;
13518   t15301 = my_piecewise3(t296, 0, t15300);
13519   t15308 = t1247 * t4;
13520   t15310 = my_piecewise3(t359, 0, t15300);
13521   t15317 = t1249 * t4;
13522   t15319 = t15301 * t34 / 0.2e1 + t4520 * t413 / 0.2e1 + t4083 * t886 / 0.2e1 + t15308 * t377 + t15310 * t46 / 0.2e1 + t4523 * t436 / 0.2e1 + t4086 * t905 / 0.2e1 - t15317 * t377;
13523   t15323 = t1252 * t2478;
13524   t15326 = t4527 * t464;
13525   t15334 = t363 * t15176;
13526   t15341 = t1037 * t4120 + t1214 * t15287 - t1252 * t2440 + t1261 * t2866 - 0.2e1 * t1476 * t4478 - t15319 * t98 - 0.2e1 * t15323 * t449 - 0.2e1 * t15326 * t449 - 0.2e1 * t15334 * t449 - 0.2e1 * t2442 * t4042 - 0.2e1 * t2448 * t4478 + t4077 * t4431 - t13628;
13527   t15343 = t3091 * t1231;
13528   t15346 = t1244 * t7972;
13529   t15348 = t13604 * t4433;
13530   t15354 = t883 * t423;
13531   t15355 = t400 * t15354;
13532   t15356 = t15355 * t1138;
13533   t15367 = -0.2e1 * t449 * t15343 - t1214 * t15346 + 0.3e1 * t1214 * t15348 - t4431 * t4129 + 0.3e1 * t3977 * t4557 + 0.8e1 / 0.9e1 * t15356 + 0.3e1 * t4431 * t4125 + t4553 * t751 + 0.8e1 / 0.9e1 * t13640 - t916 * t4090 - 0.2e1 / 0.3e1 * t13412 * t4293 - 0.2e1 / 0.3e1 * t13424 * t4293;
13534   t15374 = t13419 * t4273;
13535   t15376 = t4076 * t2850;
13536   t15378 = t4124 * t14489;
13537   t15382 = t4514 * t3985;
13538   t15384 = t174 * t4513;
13539   t15385 = t15384 * t3980;
13540   t15388 = t2378 * t4020;
13541   t15389 = t15388 * t1138;
13542   t15397 = -0.2e1 / 0.3e1 * t4026 * t14725 - 0.2e1 / 0.3e1 * t4026 * t14729 - 0.2e1 / 0.3e1 * t4026 * t14733 - 0.40e2 / 0.9e1 * t15374 - t1214 * t15376 + 0.3e1 * t1214 * t15378 - t3977 * t4561 - t1214 * t15382 + 0.3e1 * t1214 * t15385 + 0.8e1 / 0.9e1 * t15389 + 0.6e1 * t14821 * t15195 - 0.10e2 * t13415 * t14706 + 0.10e2 / 0.3e1 * t4013 * t14763;
13543   t15400 = t14943 + t14970 + t14995 + t15028 + t15194 + t15341 + t15367 + t15397;
13544   t15401 = t7 * t15400;
13545   t15404 = t1264 * t1130;
13546   t15407 = t1122 * t1272;
13547   t15410 = t368 * t4580;
13548   t15412 = params->d * t15400;
13549   t15430 = t4114 * t928;
13550   t15433 = t4117 * t928;
13551   t15436 = t1258 * t2478;
13552   t15441 = t4550 * t464;
13553   t15444 = t97 * t15176;
13554   t15447 = 0.6e1 * t1125 * t4143 + 0.3e1 * t1125 * t4146 + 0.3e1 * t1127 * t4137 + 0.6e1 * t1267 * t3138 + 0.3e1 * t1267 * t3141 + 0.3e1 * t1269 * t3132 + t15412 * t370 + 0.6e1 * t15430 * t369 + 0.6e1 * t15433 * t369 + 0.6e1 * t15436 * t369 + 0.6e1 * t15441 * t369 + 0.3e1 * t15444 * t369 + 0.3e1 * t4568 * t875 + 0.6e1 * t4574 * t873 + 0.3e1 * t4577 * t873;
13555   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13556     v3rho2sigma[4] = t1123 * t4149 + t1130 * t4132 + t1265 * t3144 + t1272 * t3127 + t15401 * t372 + t15447 * t872 + t4564 * t878 + t4580 * t870 + t13396 + t13398 + t13763 + t13765 + t14919 + t15404 + t15407 + t15410;
13557 
13558   t15449 = t4678 * t372;
13559   t15452 = t7763 * t1276;
13560   t15455 = t2378 * t4159;
13561   t15458 = t2378 * t4167;
13562   t15461 = -t14122 - t14125 - t14127 - t14142 - t14144 - t14146 - t14149 - t14151 + t4173 * t14844 / 0.3e1 + t15452 * t1138 / 0.6e1 + t15455 * t1138 / 0.6e1 + t15458 * t1138 / 0.6e1;
13563   t15472 = t1392 * t4596;
13564   t15475 = t404 * t4595;
13565   t15476 = t400 * t15475;
13566   t15479 = t893 * t49;
13567   t15480 = t15479 * t418;
13568   t15482 = t897 * t418;
13569   t15483 = t13817 * t15482;
13570   t15487 = -0.40e2 / 0.9e1 * t15480 + 0.10e2 / 0.9e1 * t15483 - 0.5e1 / 0.3e1 * t4163 * t1402 - t13193;
13571   t15488 = t25 * t15487;
13572   t15489 = t400 * t15488;
13573   t15495 = t4582 * t3785 / 0.6e1 + t4582 * t3795 / 0.6e1 + t4168 * t4289 / 0.6e1 + t1277 * t14803 / 0.6e1 + t1277 * t14807 / 0.6e1 + t15472 * t1138 / 0.6e1 + t15476 * t1138 / 0.6e1 + t15489 * t1138 / 0.6e1 - 0.5e1 / 0.6e1 * t4156 * t14841 - t14471 - t14473 - t2440 * t1307;
13574   t15500 = t7591 * t4155;
13575   t15503 = t2378 * t4155;
13576   t15506 = -t14475 - 0.5e1 / 0.3e1 * t4156 * t14478 + t14476 - t447 * t4656 + t14482 + t14486 - 0.5e1 / 0.6e1 * t15500 * t3765 + t15503 * t3791 / 0.3e1 + t14492 - t14493 + t14497 + t14682;
13577   t15508 = t1307 * t2478;
13578   t15515 = t1201 * t1275;
13579   t15516 = t6453 * t15515;
13580   t15523 = t1309 * t14658;
13581   t15530 = -t14517 - 0.5e1 * t15516 * t14503 + 0.5e1 / 0.3e1 * t13930 * t14507 + 0.5e1 / 0.3e1 * t13930 * t14512 - t14519 - t14521 - t14524 - t14527 - t14530 - t14533 - t3945 * t15523 / 0.3e1 + 0.5e1 / 0.6e1 * t14662 * t4239 - t14614 * t4242 / 0.3e1;
13582   t15535 = t4247 * t4396;
13583   t15538 = t1309 * t14672;
13584   t15541 = t1309 * t14617;
13585   t15550 = t4247 * t4400;
13586   t15553 = t1309 * t14633;
13587   t15556 = t1309 * t14637;
13588   t15563 = t4668 * t3940;
13589   t15566 = 0.5e1 / 0.6e1 * t13260 * t4660 + 0.5e1 / 0.6e1 * t13266 * t4660 + 0.5e1 / 0.6e1 * t3939 * t15535 + 0.5e1 / 0.6e1 * t3939 * t15538 + 0.5e1 / 0.6e1 * t3939 * t15541 - t13263 * t4663 / 0.3e1 - t14624 * t4663 / 0.3e1 - t13281 * t4663 / 0.3e1 - t3945 * t15550 / 0.3e1 - t3945 * t15553 / 0.3e1 - t3945 * t15556 / 0.3e1 + 0.5e1 / 0.6e1 * t14641 * t4239 - t14645 * t4242 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t15563;
13590   t15568 = t4668 * t3946;
13591   t15571 = t1309 * t14654;
13592   t15578 = -t3945 * t15568 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t15571 + t14589 + t14593 + t14595 + t14597 + t14599 + t14601 + t14604 + t14607 + t14610 + t14613 - t14534 * t1310 / 0.6e1 - t14537 * t1310 / 0.6e1;
13593   t15587 = t15487 * t61;
13594   t15588 = t15587 * t1204;
13595   t15590 = t4668 * t3958;
13596   t15594 = t4247 * t4412;
13597   t15596 = t1309 * t14582;
13598   t15598 = -t1202 * t15588 - t1202 * t15590 - t1202 * t15594 - t1202 * t15596 - t1310 * t14545 - t1310 * t14549 - t3936 * t4669 - t3936 * t4672 - t3951 * t4669 - t3951 * t4672 - t4248 * t4393 - t4248 * t4405 - t4251 * t4393 - t4251 * t4405;
13599   t15601 = t15530 + t15566 + t15578 + t15598 / 0.6e1;
13600   t15605 = -t14700 + t14702 + t4254 * t1037 - 0.2e1 * t449 * t15508 - t14755 - t14757 - t14760 + t4152 * t4297 / 0.6e1 + t14761 + t14766 - 0.5e1 / 0.3e1 * t4156 * t14763 + t15601 * t227 + 0.5e1 * t13892 * t14706;
13601   t15609 = t4596 * t61;
13602   t15610 = t400 * t15609;
13603   t15629 = -t14811 - t14813 + t1313 * t2866 + t15610 * t3791 / 0.3e1 + t4173 * t14710 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t14715 + t4173 * t14720 / 0.3e1 + t13811 * t4293 / 0.3e1 + t13876 * t4293 / 0.3e1 + t13870 * t4293 / 0.3e1 + t4173 * t14725 / 0.3e1 + t4173 * t14729 / 0.3e1;
13604   t15634 = t1392 * t4587;
13605   t15637 = t2386 * t1275;
13606   t15638 = t400 * t15637;
13607   t15641 = t883 * t4166;
13608   t15642 = t400 * t15641;
13609   t15651 = t4173 * t14733 / 0.3e1 - t14815 - t14817 - 0.2e1 * t2442 * t4179 + t15634 * t1138 / 0.6e1 + t15638 * t1138 / 0.6e1 + t15642 * t1138 / 0.6e1 + t4588 * t3785 / 0.6e1 + t4588 * t3795 / 0.6e1 - t14819 + t14823 - t14832 - 0.2e1 * t1476 * t4607;
13610   t15655 = t4235 * t928;
13611   t15659 = t4656 * t464;
13612   t15675 = -0.2e1 * t2448 * t4607 - 0.2e1 * t449 * t15655 - t916 * t4235 - 0.2e1 * t449 * t15659 + t4675 * t751 - t14839 + t4597 * t3785 / 0.6e1 + t4597 * t3795 / 0.6e1 + t4160 * t4297 / 0.6e1 + t4168 * t4297 / 0.6e1 + t1277 * t14775 / 0.6e1 + t1277 * t14778 / 0.6e1;
13613   t15682 = t4587 * t61;
13614   t15683 = t1397 * t15682;
13615   t15686 = t400 * t15682;
13616   t15699 = t1397 * t15609;
13617   t15702 = my_piecewise3(t296, 0, t14449);
13618   t15709 = t1280 * t4;
13619   t15711 = t4614 * t791;
13620   t15713 = t4613 * t183;
13621   t15717 = t4187 * t2951;
13622   t15719 = t1282 * t14179;
13623   t15720 = t7185 * t2880;
13624   t15723 = t2169 * t2885;
13625   t15730 = t4192 * t2972;
13626   t15736 = -t15711 / 0.108e3 - t15713 * t799 / 0.108e3 - t13976 + t13977 / 0.864e3 + t15717 / 0.864e3 + t15719 * t15720 / 0.216e3 - t15719 * t15723 / 0.144e3 - t4187 * t2963 / 0.144e3 + t13987 * t2969 / 0.384e3 - t15730 / 0.1152e4 - t13994 * t2976 / 0.1152e4 - t4192 * t2999 / 0.768e3;
13627   t15740 = t262 * t4190 * t3007;
13628   t15743 = t4622 * t820;
13629   t15746 = t262 * t1286 * t3007;
13630   t15753 = t4198 * t3024;
13631   t15761 = -t4192 * t3004 / 0.768e3 + t15740 * t816 / 0.144e3 - t15743 / 0.216e3 - t15746 * t829 / 0.216e3 - t13990 / 0.1152e4 - t14002 + t14003 / 0.1728e4 - t13994 * t3021 / 0.1152e4 + t15753 / 0.1728e4 + 0.5e1 / 0.3456e4 * t4198 * t3030 - t4198 * t3035 / 0.576e3 - t4198 * t3039 / 0.576e3;
13632   t15762 = t15736 + t15761;
13633   t15763 = params->beta * t15762;
13634   t15765 = t4628 * t187;
13635   t15771 = t1159 * t3043;
13636   t15772 = t15771 * t1162;
13637   t15774 = t4631 * t3851;
13638   t15782 = t14030 * t4634 * t844;
13639   t15786 = t1098 * t813 * t329;
13640   t15787 = t14037 * t15786;
13641   t15790 = -t1099 * t14014 - t1298 * t15772 + 0.2e1 * t14023 * t4635 - 0.2e1 * t14036 * t15787 + t15763 * t352 - t15765 * t845 + 0.2e1 * t15774 * t4212 + t15774 * t4218 - 0.6e1 * t15782 * t4209 + 0.2e1 * t3050 * t4204 - t3071 * t4204 - t4221 * t4632;
13642   t15791 = t4201 * t1098;
13643   t15792 = t4210 * t15791;
13644   t15795 = t1291 * t3070;
13645   t15796 = t4210 * t15795;
13646   t15800 = t1075 * t844;
13647   t15801 = t14037 * t15800;
13648   t15804 = t3851 * t837;
13649   t15805 = t1294 * t15804;
13650   t15806 = t2214 * t1291;
13651   t15807 = t9293 * t813;
13652   t15808 = t15806 * t15807;
13653   t15812 = t4201 * t1074 * t329;
13654   t15813 = t4215 * t15812;
13655   t15817 = t4215 * t1291 * t2996 * t329;
13656   t15819 = t9182 * t329;
13657   t15820 = t14037 * t15819;
13658   t15824 = t4210 * t4627 * t844;
13659   t15828 = t4627 * t813 * t329;
13660   t15829 = t4215 * t15828;
13661   t15832 = t1296 * t331 * t15762;
13662   t15834 = -t1295 * t15832 + t14023 * t4640 - 0.2e1 * t14036 * t15801 + 0.2e1 * t15792 * t4209 + 0.2e1 * t15796 * t4209 - 0.2e1 * t15805 * t15808 + t15805 * t15820 + t15813 * t4209 + t15817 * t4209 + 0.2e1 * t15824 * t4209 + t15829 * t4209 - t4207 * t4643;
13663   t15835 = t15790 + t15834;
13664   t15839 = t4645 * t2320;
13665   t15846 = t169 * t1300;
13666   t15847 = t9582 * t847;
13667   t15853 = my_piecewise3(t359, t169 * t15835 * t848 / 0.2e1 - t169 * t15839 * t847 / 0.2e1 - t169 * t14076 * t1101 / 0.2e1 + t15846 * t15847 - t169 * t4226 * t3073 / 0.2e1, t14449);
13668   t15860 = t1304 * t4;
13669   t15862 = t15702 * t34 / 0.2e1 + t4610 * t413 / 0.2e1 + t4182 * t886 / 0.2e1 + t15709 * t377 + t15853 * t46 / 0.2e1 + t4652 * t436 / 0.2e1 + t4231 * t905 / 0.2e1 - t15860 * t377;
13670   t15864 = t4152 * t4289 / 0.6e1 + t4160 * t4289 / 0.6e1 - 0.5e1 / 0.6e1 * t4156 * t14855 - 0.5e1 / 0.6e1 * t15683 * t3765 + t15686 * t3791 / 0.3e1 - 0.5e1 / 0.6e1 * t13808 * t4273 - 0.5e1 / 0.6e1 * t13879 * t4273 - 0.5e1 / 0.6e1 * t13882 * t4273 - 0.5e1 / 0.6e1 * t4156 * t14159 - 0.5e1 / 0.6e1 * t4156 * t14164 - 0.5e1 / 0.6e1 * t15699 * t3765 - t98 * t15862 + t14864;
13671   t15867 = t15461 + t15495 + t15506 + t15605 + t15629 + t15651 + t15675 + t15864;
13672   t15868 = t7 * t15867;
13673   t15871 = t1315 * t1130;
13674   t15874 = t1122 * t1320;
13675   t15877 = t368 * t4687;
13676   t15879 = params->d * t15867;
13677   t15889 = 0.3e1 * t1127 * t4263 + 0.6e1 * t1318 * t3138 + 0.3e1 * t1318 * t3141 + t15879 * t370 + 0.3e1 * t4683 * t875 + t14893 + t14895 + t14897 + t14899 + t14902 + t14905 + t14908 + t14910 + t14913 + t14916;
13678   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13679     v3rho2sigma[5] = t1123 * t4267 + t1130 * t4258 + t1316 * t3144 + t1320 * t3127 + t15868 * t372 + t15889 * t872 + t4679 * t878 + t4687 * t870 + t13798 + t13800 + t14102 + t14104 + t15449 + t15871 + t15874 + t15877;
13680 
13681   t15895 = t3763 * t3152;
13682   t15896 = t1204 * t15895;
13683   t15899 = t3789 * t3249;
13684   t15900 = t1204 * t15899;
13685   t15909 = t4412 * t4272;
13686   t15912 = t14713 * t912;
13687   t15913 = t1204 * t15912;
13688   t15916 = t13149 * t3227;
13689   t15918 = t3807 * t3244;
13690   t15921 = my_piecewise3(t95, 0, t13145 + t15172 + t15916 / 0.4e1 - t15918 / 0.8e1);
13691   t15922 = t363 * t15921;
13692   t15924 = 0.2e1 * t449 * t15922;
13693   t15925 = t9657 * t1134;
13694   t15928 = t2378 * t4276;
13695   t15931 = t2378 * t4283;
13696   t15938 = t3763 * t3209;
13697   t15939 = t1204 * t15938;
13698   t15942 = 0.2e1 / 0.3e1 * t14156 * t4293 + 0.5e1 * t13159 * t15896 + t3788 * t15900 / 0.3e1 + 0.2e1 / 0.3e1 * t14152 * t4293 - 0.5e1 / 0.3e1 * t14858 * t4273 - 0.5e1 / 0.3e1 * t14851 * t4273 - 0.5e1 / 0.3e1 * t3762 * t15909 - 0.5e1 / 0.3e1 * t3762 * t15913 - t15924 + t15925 * t1138 / 0.6e1 + t15928 * t1138 / 0.3e1 + t15931 * t1138 / 0.3e1 + t4269 * t4289 / 0.3e1 + t4269 * t4297 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t15939;
13699   t15943 = t13188 * t3164;
13700   t15945 = t3774 * t3168;
13701   t15947 = 0.10e2 / 0.9e1 * t15943 + 0.5e1 / 0.3e1 * t15945 - t13193;
13702   t15948 = t25 * t15947;
13703   t15949 = t400 * t15948;
13704   t15957 = t66 * t1136 * t3714;
13705   t15960 = t4378 * t2850;
13706   t15962 = 0.2e1 * t1214 * t15960;
13707   t15964 = 0.2e1 * t9866 * t1144;
13708   t15967 = t1199 * t3249;
13709   t15970 = t3205 * t97;
13710   t15971 = t15970 * t363;
13711   t15972 = t66 * t15971;
13712   t15975 = t4287 * t1110;
13713   t15976 = t66 * t15975;
13714   t15979 = t3155 * t1133;
13715   t15980 = t400 * t15979;
13716   t15983 = t883 * t4282;
13717   t15984 = t400 * t15983;
13718   t15993 = t4391 * t928;
13719   t15996 = t15949 * t1138 / 0.6e1 + t4284 * t4289 / 0.3e1 + t4284 * t4297 / 0.3e1 + t1135 * t15957 / 0.6e1 - t15962 - t15964 - 0.4e1 * t2442 * t4316 - 0.2e1 * t449 * t15967 + t1135 * t15972 / 0.6e1 + t1135 * t15976 / 0.3e1 + t15980 * t1138 / 0.6e1 + t15984 * t1138 / 0.3e1 + t4277 * t4289 / 0.3e1 + t4277 * t4297 / 0.3e1 - 0.2e1 * t3220 * t1199 - 0.4e1 * t449 * t15993;
13720   t15998 = t82 * t3249;
13721   t16000 = 0.2e1 * t15998 * t1144;
13722   t16002 = 0.4e1 * t4302 * t4305;
13723   t16003 = t1110 * t4311;
13724   t16005 = 0.4e1 * t449 * t16003;
13725   t16010 = 0.4e1 * t2442 * t4312;
13726   t16011 = t3714 * t1143;
13727   t16013 = 0.2e1 * t449 * t16011;
13728   t16015 = 0.4e1 * t4302 * t4312;
13729   t16016 = t915 * t928;
13730   t16018 = 0.4e1 * t16016 * t1144;
13731   t16020 = 0.4e1 * t2442 * t4305;
13732   t16021 = t999 * t1033;
13733   t16022 = t3923 * t16021;
13734   t16024 = 0.6e1 * t13345 * t16022;
13735   t16026 = 0.2e1 * t4431 * t4438;
13736   t16027 = t748 * t3448;
13737   t16028 = t3979 * t16027;
13738   t16030 = 0.3e1 * t1214 * t16028;
13739   t16031 = t14494 * t4433;
13740   t16033 = 0.6e1 * t1214 * t16031;
13741   t16034 = t12954 * t3437;
13742   t16036 = t3882 * t3450;
13743   t16038 = t12961 * t3456;
13744   t16040 = t12969 * t3462;
13745   t16042 = t3887 * t3481;
13746   t16044 = t3887 * t3486;
13747   t16046 = t3894 * t3491;
13748   t16048 = t3894 * t3495;
13749   t16050 = t12950 + t15210 + t16034 / 0.16e2 - t16036 / 0.48e2 + t16038 / 0.768e3 + t15214 + t16040 / 0.192e3 - t16042 / 0.1536e4 - t16044 / 0.1536e4 + t12977 + t15219 + 0.5e1 / 0.384e3 * t16046 - t16048 / 0.384e3;
13750   t16051 = params->beta * t16050;
13751   t16058 = t1159 * t3498;
13752   t16059 = t16058 * t1162;
13753   t16067 = t1181 * t3503;
13754   t16068 = t13005 * t16067;
13755   t16072 = t1030 * t1013 * t194;
13756   t16073 = t13012 * t16072;
13757   t16076 = t4359 * t1030;
13758   t16077 = t3906 * t16076;
13759   t16080 = t1181 * t3519;
13760   t16081 = t3906 * t16080;
13761   t16084 = t1181 * t3453;
13762   t16085 = t16084 * t1892;
13763   t16086 = t13026 * t16085;
13764   t16090 = t4359 * t1013 * t194;
13765   t16091 = t3911 * t16090;
13766   t16095 = t1181 * t3478 * t194;
13767   t16096 = t3911 * t16095;
13768   t16098 = t16084 * t194;
13769   t16099 = t3911 * t16098;
13770   t16102 = t1186 * t196 * t16050;
13771   t16104 = -0.2e1 * t1031 * t14360 - t1185 * t16102 - t1188 * t16059 - 0.4e1 * t13011 * t16073 + 0.4e1 * t14369 * t4367 + 0.2e1 * t14369 * t4372 + t16051 * t221 - 0.6e1 * t16068 * t3905 + 0.4e1 * t16077 * t3905 + 0.2e1 * t16081 * t3905 - 0.2e1 * t16086 * t3905 + 0.2e1 * t16091 * t3905 + t16096 * t3905 + t16099 * t3905 + 0.2e1 * t3504 * t3900 - t3520 * t3900 - 0.2e1 * t4364 * t4375;
13772   t16105 = t175 * t16104;
13773   t16106 = t16105 * t748;
13774   t16107 = t1214 * t16106;
13775   t16108 = 0.2e1 * t1037 * t4427 + t1211 * t3530 - t16000 - t16002 - t16005 - t16010 - t16013 - t16015 - t16018 - t16020 - t16024 - t16026 + t16030 + t16033 + t16107;
13776   t16112 = t14704 * t928;
13777   t16113 = t12791 * t16112;
13778   t16118 = t14718 * t928;
13779   t16119 = t1204 * t16118;
13780   t16122 = t4412 * t4292;
13781   t16127 = t4408 * t4396;
13782   t16130 = t4412 * t912;
13783   t16131 = t1203 * t16130;
13784   t16134 = t1204 * t3209;
13785   t16135 = t1203 * t16134;
13786   t16140 = t4408 * t4400;
13787   t16143 = t4412 * t928;
13788   t16144 = t1203 * t16143;
13789   t16147 = t1204 * t3249;
13790   t16148 = t1203 * t16147;
13791   t16151 = t1204 * t3152;
13792   t16152 = t1203 * t16151;
13793   t16156 = 0.4e1 * t881 * t4424;
13794   t16157 = t3249 * t1143;
13795   t16159 = 0.2e1 * t81 * t16157;
13796   t16160 = t928 * t4311;
13797   t16162 = 0.4e1 * t81 * t16160;
13798   t16163 = t96 * t15921;
13799   t16165 = 0.2e1 * t81 * t16163;
13800   t16167 = 0.2e1 * t3149 * t1208;
13801   t16169 = 0.4e1 * t881 * t4421;
13802   t16176 = 0.5e1 / 0.3e1 * t3939 * t16127 + 0.5e1 / 0.3e1 * t3939 * t16131 + 0.5e1 / 0.6e1 * t3939 * t16135 - 0.2e1 / 0.3e1 * t14645 * t4401 - 0.2e1 / 0.3e1 * t3945 * t16140 - 0.2e1 / 0.3e1 * t3945 * t16144 - t3945 * t16148 / 0.3e1 - 0.5e1 * t13251 * t16152 + t16156 + t16159 + t16162 + t16165 + t16167 + t16169 + 0.5e1 / 0.3e1 * t14662 * t4397 - 0.2e1 / 0.3e1 * t14614 * t4401 + 0.5e1 / 0.3e1 * t14641 * t4397;
13803   t16178 = 0.16e2 * t2378 * t4418;
13804   t16179 = t4421 * t912;
13805   t16181 = 0.16e2 * t400 * t16179;
13806   t16182 = t4424 * t912;
13807   t16184 = 0.16e2 * t400 * t16182;
13808   t16186 = t66 * t14501 * t928;
13809   t16189 = t1208 * t3209;
13810   t16191 = 0.8e1 * t400 * t16189;
13811   t16192 = t1208 * t3152;
13812   t16194 = 0.40e2 * t1397 * t16192;
13813   t16195 = t9657 * t1201;
13814   t16198 = t2378 * t4404;
13815   t16205 = t97 * t3155;
13816   t16206 = t400 * t16205;
13817   t16213 = t15947 * t61;
13818   t16214 = t16213 * t1204;
13819   t16217 = t4408 * t4412;
13820   t16220 = t65 * t3205;
13821   t16221 = t1203 * t16220;
13822   t16224 = t3219 * t25;
13823   t16225 = t400 * t16224;
13824   t16228 = -t16178 - t16181 - t16184 + 0.10e2 / 0.3e1 * t13245 * t16186 - t16191 + t16194 - t16195 * t1205 / 0.6e1 - t16198 * t1205 / 0.3e1 - t4393 * t4409 / 0.3e1 - t4393 * t4413 / 0.3e1 - t16206 * t1205 / 0.6e1 - t4405 * t4409 / 0.3e1 - t4405 * t4413 / 0.3e1 - t1202 * t16214 / 0.6e1 - t1202 * t16217 / 0.3e1 - t1202 * t16221 / 0.6e1 - t16225 * t1205 / 0.3e1;
13825   t16229 = t16176 + t16228;
13826   t16232 = t3735 * t167 * t168;
13827   t16233 = t16232 * t1192;
13828   t16235 = 0.2e1 * t4431 * t4379;
13829   t16236 = t1191 * t9934;
13830   t16238 = 0.2e1 * t1214 * t16236;
13831   t16240 = 0.6e1 * t4431 * t4434;
13832   t16241 = t748 * t3427;
13833   t16242 = t13105 * t16241;
13834   t16244 = 0.6e1 * t1214 * t16242;
13835   t16245 = t1191 * t10242;
13836   t16246 = t1214 * t16245;
13837   t16247 = t73 * t3219;
13838   t16249 = t66 * t16247 * t363;
13839   t16275 = -t12805 + t14177 / 0.432e3 + t3825 * t3312 / 0.216e3 - t3825 * t3316 / 0.144e3 + t3825 * t3320 / 0.288e3 + t12808 * t3326 / 0.384e3 - t14193 / 0.576e3 - t12813 * t3331 / 0.576e3 - t3830 * t3350 / 0.768e3 - t3830 * t3355 / 0.768e3 - t12846 + t14209 / 0.864e3 + 0.5e1 / 0.3456e4 * t3840 * t3360 - t3840 * t3364 / 0.576e3 + t3840 * t3368 / 0.1152e4;
13840   t16276 = params->beta * t16275;
13841   t16283 = t1159 * t3371;
13842   t16284 = t16283 * t1162;
13843   t16292 = t1156 * t3376;
13844   t16293 = t12878 * t16292;
13845   t16297 = t979 * t962 * t265;
13846   t16298 = t12885 * t16297;
13847   t16301 = t4325 * t979;
13848   t16302 = t3853 * t16301;
13849   t16305 = t1156 * t3392;
13850   t16306 = t3853 * t16305;
13851   t16309 = t1156 * t3323;
13852   t16311 = t12899 * t16309 * t1672;
13853   t16315 = t4325 * t962 * t265;
13854   t16316 = t3858 * t16315;
13855   t16321 = t3858 * t1156 * t3347 * t265;
13856   t16324 = t3858 * t16309 * t265;
13857   t16327 = t1165 * t267 * t16275;
13858   t16329 = -t1163 * t16327 - t1167 * t16284 - 0.4e1 * t12884 * t16298 - 0.2e1 * t14221 * t980 + 0.4e1 * t14230 * t4333 + 0.2e1 * t14230 * t4338 + t16276 * t289 - 0.6e1 * t16293 * t3852 + 0.4e1 * t16302 * t3852 + 0.2e1 * t16306 * t3852 - 0.2e1 * t16311 * t3852 + 0.2e1 * t16316 * t3852 + t16321 * t3852 + t16324 * t3852 + 0.2e1 * t3377 * t3846 - t3393 * t3846 - 0.2e1 * t4330 * t4341;
13859   t16341 = t3874 * t3427;
13860   t16344 = t14321 * t999;
13861   t16349 = t3874 * t3448;
13862   t16352 = t169 * t16106;
13863   t16353 = t14434 * t1033;
13864   t16356 = t13055 * t3431;
13865   t16359 = t3923 * t3522;
13866   t16361 = -0.6e1 * t16022 * t1768 + 0.6e1 * t16341 * t2857 + 0.6e1 * t16344 * t1768 + 0.3e1 * t16349 * t1768 - 0.2e1 * t16353 * t2849 + 0.2e1 * t16356 * t2849 - t16359 * t2849 + t16352;
13867   t16362 = my_piecewise3(t296, t169 * t16329 * t581 / 0.2e1 - t169 * t14295 * t982 + t169 * t12927 * t3399 - t169 * t3869 * t3395 / 0.2e1, t16361);
13868   t16368 = my_piecewise3(t359, 0, t16361);
13869   t16374 = t16362 * t34 / 0.2e1 + t4384 * t886 + t1194 * t3196 / 0.2e1 + t16368 * t46 / 0.2e1 + t4387 * t905 + t1196 * t3202 / 0.2e1;
13870   t16376 = -0.2e1 * t916 * t4391 - t3213 * t1199 - 0.10e2 / 0.3e1 * t3762 * t16113 - 0.5e1 / 0.3e1 * t14736 * t4273 + 0.2e1 / 0.3e1 * t3788 * t16119 + 0.2e1 / 0.3e1 * t3788 * t16122 + 0.2e1 / 0.3e1 * t14848 * t4293 + t16229 * t227 + t16233 + t16235 + t16238 + t16240 + t16244 - t16246 + t1135 * t16249 / 0.3e1 - t98 * t16374;
13871   t16378 = t15942 + t15996 + t16108 + t16376;
13872   t16379 = t7 * t16378;
13873   t16389 = params->d * t16378;
13874   t16398 = 0.3e1 * t3745 * t1221;
13875   t16400 = 0.12e2 * t1125 * t4451;
13876   t16402 = 0.6e1 * t1125 * t4454;
13877   t16403 = t3219 * t1143;
13878   t16405 = 0.6e1 * t369 * t16403;
13879   t16406 = t4424 * t928;
13880   t16408 = 0.12e2 * t369 * t16406;
13881   t16409 = t1208 * t3249;
13882   t16411 = 0.6e1 * t369 * t16409;
13883   t16412 = t97 * t15921;
13884   t16414 = 0.3e1 * t369 * t16412;
13885   t16415 = 0.6e1 * t1127 * t4445 + 0.6e1 * t1219 * t3749 + 0.3e1 * t1219 * t3752 + t16389 * t370 + t16398 + t16400 + t16402 + t16405 + t16408 + t16411 + t16414;
13886   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13887     v3rho2sigma[6] = 0.2e1 * t1123 * t4457 + 0.2e1 * t1130 * t4441 + t1217 * t3755 + t1224 * t3741 + t16379 * t372 + t16415 * t872 + 0.2e1 * t14119 + 0.2e1 * t14874 + 0.2e1 * t14877 + 0.2e1 * t14880;
13888 
13889   t16438 = t9657 * t1226;
13890   t16441 = t2378 * t4464;
13891   t16448 = 0.32e2 / 0.9e1 * t14920 - t1227 * t15972 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t15976 - t1227 * t15957 / 0.3e1 + 0.16e2 / 0.9e1 * t14927 - 0.4e1 / 0.3e1 * t14972 * t4293 - 0.2e1 / 0.3e1 * t4026 * t15900 + 0.16e2 / 0.9e1 * t14929 + 0.10e2 / 0.3e1 * t14975 * t4273 - 0.4e1 / 0.3e1 * t14978 * t4293 + 0.5e1 / 0.3e1 * t4013 * t15939 - t16438 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t16441 * t1138 - 0.2e1 / 0.3e1 * t4459 * t4289 - 0.2e1 / 0.3e1 * t4459 * t4297;
13892   t16449 = t3155 * t57;
13893   t16450 = t400 * t16449;
13894   t16474 = t13469 + 0.7e1 / 0.36e2 * t14326 + t16034 / 0.8e1 - t16036 / 0.24e2 + t16038 / 0.384e3 + 0.7e1 / 0.576e3 * t14339 + t16040 / 0.96e2 - t16042 / 0.768e3 - t16044 / 0.768e3 + t13478 + 0.7e1 / 0.144e3 * t14351 + 0.5e1 / 0.192e3 * t16046 - t16048 / 0.192e3;
13895   t16475 = params->beta * t16474;
13896   t16489 = t1237 * t3503;
13897   t16490 = t13005 * t16489;
13898   t16493 = t13502 * t16072;
13899   t16496 = t4497 * t1030;
13900   t16497 = t3906 * t16496;
13901   t16500 = t1237 * t3519;
13902   t16501 = t3906 * t16500;
13903   t16504 = t1237 * t3453;
13904   t16506 = t13026 * t16504 * t1892;
13905   t16510 = t4497 * t1013 * t194;
13906   t16511 = t3911 * t16510;
13907   t16516 = t3911 * t1237 * t3478 * t194;
13908   t16519 = t3911 * t16504 * t194;
13909   t16522 = t1186 * t196 * t16474;
13910   t16524 = -0.2e1 * t1031 * t15225 - t1185 * t16522 - t1241 * t16059 - 0.4e1 * t13011 * t16493 + 0.4e1 * t14369 * t4503 + 0.2e1 * t14369 * t4508 + t16475 * t221 - 0.6e1 * t16490 * t3905 + 0.4e1 * t16497 * t3905 + 0.2e1 * t16501 * t3905 - 0.2e1 * t16506 * t3905 + 0.2e1 * t16511 * t3905 + t16516 * t3905 + t16519 * t3905 + 0.2e1 * t3504 * t4061 - t3520 * t4061 - 0.2e1 * t4364 * t4511;
13911   t16525 = t175 * t16524;
13912   t16526 = t16525 * t748;
13913   t16528 = t1254 * t16134;
13914   t16533 = t1254 * t16151;
13915   t16538 = t1254 * t16143;
13916   t16541 = t1254 * t16147;
13917   t16550 = t1254 * t16130;
13918   t16553 = t3249 * t1231;
13919   t16556 = t928 * t4483;
13920   t16563 = my_piecewise3(t95, 0, t13430 + 0.4e1 / 0.3e1 * t14131 + t15916 / 0.2e1 - t15918 / 0.4e1);
13921   t16564 = t96 * t16563;
13922   t16570 = -0.5e1 / 0.3e1 * t3939 * t16528 - 0.32e2 / 0.9e1 * t15056 + 0.80e2 / 0.9e1 * t15096 + 0.10e2 * t13251 * t16533 + 0.4e1 / 0.3e1 * t14645 * t4534 + 0.4e1 / 0.3e1 * t3945 * t16538 + 0.2e1 / 0.3e1 * t3945 * t16541 - 0.10e2 / 0.3e1 * t14662 * t4531 + 0.4e1 / 0.3e1 * t14614 * t4534 - 0.10e2 / 0.3e1 * t14641 * t4531 - 0.10e2 / 0.3e1 * t3939 * t16550 + 0.2e1 * t81 * t16553 + 0.4e1 * t81 * t16556 + 0.2e1 * t81 * t16564 - 0.16e2 / 0.9e1 * t15139 - 0.16e2 / 0.9e1 * t15141 - 0.16e2 / 0.9e1 * t15143;
13923   t16573 = t1254 * t16220;
13924   t16590 = t4547 * t912;
13925   t16593 = t4550 * t912;
13926   t16600 = t1258 * t3152;
13927   t16605 = t1258 * t3209;
13928   t16608 = -0.20e2 / 0.3e1 * t13663 * t16186 + t1202 * t16573 / 0.3e1 + t16195 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t16198 * t1255 + 0.2e1 / 0.3e1 * t4393 * t4539 + t16206 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t4405 * t4539 + 0.2e1 / 0.3e1 * t16225 * t1255 - 0.16e2 * t2378 * t4544 - 0.16e2 * t400 * t16590 - 0.16e2 * t400 * t16593 + t13729 + 0.4e1 * t881 * t4547 + 0.4e1 * t881 * t4550 + 0.40e2 * t1397 * t16600 + 0.2e1 * t3149 * t1258 - 0.8e1 * t400 * t16605;
13929   t16609 = t16570 + t16608;
13930   t16611 = t4079 * t16021;
13931   t16617 = t1244 * t10242;
13932   t16619 = t4124 * t16027;
13933   t16624 = t15384 * t4433;
13934   t16629 = -t16450 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t4465 * t4289 - 0.2e1 / 0.3e1 * t4465 * t4297 - 0.4e1 / 0.3e1 * t4026 * t16119 + 0.20e2 / 0.3e1 * t4013 * t16113 + 0.2e1 * t4431 * t4515 + t1214 * t16526 + t16609 * t227 - 0.6e1 * t13345 * t16611 - 0.4e1 * t2442 * t4488 + t16232 * t1245 - t1214 * t16617 + 0.3e1 * t1214 * t16619 - 0.2e1 * t3220 * t1252 + 0.6e1 * t1214 * t16624 - 0.2e1 * t916 * t4527;
13935   t16641 = t1244 * t9934;
13936   t16654 = t363 * t16563;
13937   t16658 = -t13628 - 0.4e1 / 0.3e1 * t4026 * t16122 - 0.10e2 * t13415 * t15896 + 0.10e2 / 0.3e1 * t14967 * t4273 + 0.10e2 / 0.3e1 * t4013 * t15909 + 0.10e2 / 0.3e1 * t4013 * t15913 + 0.2e1 * t1214 * t16641 - 0.4e1 * t16016 * t1232 - 0.4e1 * t2442 * t4478 - t3213 * t1252 + 0.16e2 / 0.9e1 * t15356 + 0.6e1 * t4431 * t4557 - 0.4e1 * t4302 * t4484 - 0.2e1 * t449 * t16654 + t1261 * t3530;
13938   t16659 = t4049 * t3427;
13939   t16662 = t15206 * t999;
13940   t16667 = t4049 * t3448;
13941   t16670 = t169 * t16526;
13942   t16671 = t15289 * t1033;
13943   t16674 = t13542 * t3431;
13944   t16677 = t4079 * t3522;
13945   t16679 = -0.6e1 * t16611 * t1768 + 0.6e1 * t16659 * t2857 + 0.6e1 * t16662 * t1768 + 0.3e1 * t16667 * t1768 - 0.2e1 * t16671 * t2849 + 0.2e1 * t16674 * t2849 - t16677 * t2849 + t16670;
13946   t16680 = my_piecewise3(t296, 0, t16679);
13947   t16686 = my_piecewise3(t359, 0, t16679);
13948   t16692 = t16680 * t34 / 0.2e1 + t4520 * t886 + t1247 * t3196 / 0.2e1 + t16686 * t46 / 0.2e1 + t4523 * t905 + t1249 * t3202 / 0.2e1;
13949   t16703 = t4514 * t2850;
13950   t16706 = t13748 * t16241;
13951   t16709 = t3714 * t1231;
13952   t16716 = t4527 * t928;
13953   t16719 = t1252 * t3249;
13954   t16723 = t1110 * t4483;
13955   t16728 = -t98 * t16692 - 0.2e1 / 0.3e1 * t1227 * t16249 - 0.80e2 / 0.9e1 * t15374 - 0.2e1 * t9866 * t1232 - 0.2e1 * t15998 * t1232 - 0.4e1 * t4302 * t4478 - 0.2e1 * t1214 * t16703 + 0.6e1 * t1214 * t16706 - 0.2e1 * t449 * t16709 - 0.4e1 * t2442 * t4484 - 0.2e1 * t4431 * t4561 - 0.4e1 * t449 * t16716 - 0.2e1 * t449 * t16719 + 0.16e2 / 0.9e1 * t15389 - 0.4e1 * t449 * t16723 + 0.2e1 * t4553 * t1037;
13956   t16730 = t16448 + t16629 + t16658 + t16728;
13957   t16731 = t7 * t16730;
13958   t16741 = params->d * t16730;
13959   t16755 = t3219 * t1231;
13960   t16758 = t4550 * t928;
13961   t16761 = t1258 * t3249;
13962   t16764 = t97 * t16563;
13963   t16767 = 0.12e2 * t1125 * t4574 + 0.6e1 * t1125 * t4577 + 0.6e1 * t1127 * t4568 + 0.6e1 * t1267 * t3749 + 0.3e1 * t1267 * t3752 + 0.3e1 * t1269 * t3745 + t16741 * t370 + 0.6e1 * t16755 * t369 + 0.12e2 * t16758 * t369 + 0.6e1 * t16761 * t369 + 0.3e1 * t16764 * t369;
13964   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13965     v3rho2sigma[7] = 0.2e1 * t1123 * t4580 + 0.2e1 * t1130 * t4564 + t1265 * t3755 + t1272 * t3741 + t16731 * t372 + t16767 * t872 + 0.2e1 * t14919 + 0.2e1 * t15404 + 0.2e1 * t15407 + 0.2e1 * t15410;
13966 
13967   t16771 = t1307 * t3249;
13968   t16776 = t3155 * t1275;
13969   t16777 = t400 * t16776;
13970   t16780 = t883 * t4595;
13971   t16781 = t400 * t16780;
13972   t16800 = t9657 * t1276;
13973   t16803 = t2378 * t4587;
13974   t16806 = -0.2e1 * t449 * t16771 - 0.10e2 / 0.3e1 * t4156 * t16113 + t16777 * t1138 / 0.6e1 + t16781 * t1138 / 0.3e1 + t4588 * t4289 / 0.3e1 + t4588 * t4297 / 0.3e1 + t1277 * t15957 / 0.6e1 + t1277 * t16249 / 0.3e1 + t4173 * t15900 / 0.3e1 + 0.5e1 * t13892 * t15896 - t15924 - 0.5e1 / 0.3e1 * t15500 * t4273 + 0.2e1 / 0.3e1 * t15503 * t4293 + t16800 * t1138 / 0.6e1 + t16803 * t1138 / 0.3e1;
13975   t16807 = t2378 * t4596;
13976   t16826 = my_piecewise3(t296, 0, t16361);
13977   t16837 = t3173 * t114;
13978   t16838 = t16837 * t182;
13979   t16843 = t262 * t1286 * t3597;
13980   t16852 = -t15743 / 0.108e3 - t15713 * t1066 / 0.54e2 - t4187 * t3631 / 0.144e3 + 0.11e2 / 0.108e3 * t16838 * t324 - t13976 - t15711 / 0.54e2 + 0.19e2 / 0.432e3 * t16843 * t342 + t13987 * t3617 / 0.384e3 + t15753 / 0.864e3 - t15730 / 0.576e3 - t4198 * t3604 / 0.576e3;
13981   t16872 = -t4192 * t3610 / 0.768e3 + t15740 * t1077 / 0.72e2 + t4198 * t3647 / 0.1152e4 + 0.5e1 / 0.3456e4 * t4198 * t3651 - t4192 * t3670 / 0.768e3 - t15746 * t1088 / 0.108e3 - t14002 + t15717 / 0.432e3 + t4187 * t3635 / 0.288e3 + t4187 * t3639 / 0.216e3 - t13994 * t3621 / 0.576e3;
13982   t16873 = t16852 + t16872;
13983   t16874 = params->beta * t16873;
13984   t16881 = t1159 * t3675;
13985   t16882 = t16881 * t1162;
13986   t16890 = t1291 * t3680;
13987   t16891 = t14030 * t16890;
13988   t16895 = t1098 * t1074 * t329;
13989   t16896 = t14037 * t16895;
13990   t16899 = t4627 * t1098;
13991   t16900 = t4210 * t16899;
13992   t16903 = t1291 * t3696;
13993   t16904 = t4210 * t16903;
13994   t16907 = t1291 * t3607;
13995   t16909 = t14051 * t16907 * t2219;
13996   t16913 = t4627 * t1074 * t329;
13997   t16914 = t4215 * t16913;
13998   t16919 = t4215 * t1291 * t3667 * t329;
13999   t16922 = t4215 * t16907 * t329;
14000   t16925 = t1296 * t331 * t16873;
14001   t16927 = -0.2e1 * t1099 * t15765 - t1295 * t16925 - t1298 * t16882 - 0.4e1 * t14036 * t16896 + 0.4e1 * t15774 * t4635 + 0.2e1 * t15774 * t4640 + t16874 * t352 - 0.6e1 * t16891 * t4209 + 0.4e1 * t16900 * t4209 + 0.2e1 * t16904 * t4209 - 0.2e1 * t16909 * t4209 + 0.2e1 * t16914 * t4209 + t16919 * t4209 + t16922 * t4209 + 0.2e1 * t3681 * t4204 - t3697 * t4204 - 0.2e1 * t4632 * t4643;
14002   t16939 = my_piecewise3(t359, t169 * t16927 * t848 / 0.2e1 - t169 * t15839 * t1101 + t169 * t14079 * t3703 - t169 * t4226 * t3699 / 0.2e1, t16361);
14003   t16945 = t16826 * t34 / 0.2e1 + t4610 * t886 + t1280 * t3196 / 0.2e1 + t16939 * t46 / 0.2e1 + t4652 * t905 + t1304 * t3202 / 0.2e1;
14004   t16949 = t16807 * t1138 / 0.3e1 + t4582 * t4289 / 0.3e1 + t4582 * t4297 / 0.3e1 - 0.5e1 / 0.3e1 * t15683 * t4273 - 0.5e1 / 0.3e1 * t15699 * t4273 - 0.5e1 / 0.3e1 * t4156 * t15909 - 0.5e1 / 0.3e1 * t4156 * t15913 - 0.2e1 * t3220 * t1307 - t15962 - t15964 + 0.2e1 / 0.3e1 * t4173 * t16119 - t98 * t16945 - t16000 - t16002 - t16005 - 0.4e1 * t2442 * t4607;
14005   t16951 = t4656 * t928;
14006   t16971 = t4668 * t4396;
14007   t16974 = t1309 * t16130;
14008   t16977 = t1309 * t16134;
14009   t16982 = t4668 * t4400;
14010   t16985 = t1309 * t16143;
14011   t16988 = t1309 * t16147;
14012   t16991 = t1309 * t16151;
14013   t17002 = 0.10e2 / 0.3e1 * t13930 * t16186 + t16156 + 0.5e1 / 0.3e1 * t14662 * t4660 - 0.2e1 / 0.3e1 * t14614 * t4663 + 0.5e1 / 0.3e1 * t14641 * t4660 + 0.5e1 / 0.3e1 * t3939 * t16971 + 0.5e1 / 0.3e1 * t3939 * t16974 + 0.5e1 / 0.6e1 * t3939 * t16977 - 0.2e1 / 0.3e1 * t14645 * t4663 - 0.2e1 / 0.3e1 * t3945 * t16982 - 0.2e1 / 0.3e1 * t3945 * t16985 - t3945 * t16988 / 0.3e1 - 0.5e1 * t13251 * t16991 - t16198 * t1310 / 0.3e1 - t4393 * t4669 / 0.3e1 - t4393 * t4672 / 0.3e1 - t16206 * t1310 / 0.6e1;
14014   t17009 = t15479 * t897;
14015   t17011 = t13817 * t3179;
14016   t17013 = t4163 * t3183;
14017   t17015 = 0.88e2 / 0.9e1 * t3173 * t50 - 0.80e2 / 0.9e1 * t17009 + 0.10e2 / 0.9e1 * t17011 + 0.5e1 / 0.3e1 * t17013 - t13193;
14018   t17016 = t17015 * t61;
14019   t17017 = t17016 * t1204;
14020   t17020 = t4668 * t4412;
14021   t17023 = t1309 * t16220;
14022   t17030 = -t4405 * t4669 / 0.3e1 - t4405 * t4672 / 0.3e1 - t1202 * t17017 / 0.6e1 - t1202 * t17020 / 0.3e1 - t1202 * t17023 / 0.6e1 + t16159 + t16162 + t16165 + t16167 + t16169 - t16225 * t1310 / 0.3e1 - t16195 * t1310 / 0.6e1 - t16178 - t16181 - t16184 - t16191 + t16194;
14023   t17031 = t17002 + t17030;
14024   t17033 = -t16010 - t16013 - t16015 - 0.4e1 * t449 * t16951 - t16018 - t16020 + 0.2e1 / 0.3e1 * t4173 * t16122 + 0.2e1 / 0.3e1 * t15610 * t4293 - 0.5e1 / 0.6e1 * t4156 * t15939 + 0.2e1 / 0.3e1 * t15686 * t4293 - t3213 * t1307 - t16024 + t17031 * t227 - t16026 + t16030;
14025   t17042 = t25 * t17015;
14026   t17043 = t400 * t17042;
14027   t17051 = t16033 + t16107 - 0.2e1 * t916 * t4656 + 0.2e1 * t4675 * t1037 + t16233 + t16235 + t1277 * t15972 / 0.6e1 + t1277 * t15976 / 0.3e1 + t17043 * t1138 / 0.6e1 + t4597 * t4289 / 0.3e1 + t4597 * t4297 / 0.3e1 + t16238 + t16240 + t16244 - t16246 + t1313 * t3530;
14028   t17053 = t16806 + t16949 + t17033 + t17051;
14029   t17054 = t7 * t17053;
14030   t17064 = params->d * t17053;
14031   t17072 = 0.6e1 * t1127 * t4683 + 0.6e1 * t1318 * t3749 + 0.3e1 * t1318 * t3752 + t17064 * t370 + t16398 + t16400 + t16402 + t16405 + t16408 + t16411 + t16414;
14032   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14033     v3rho2sigma[8] = 0.2e1 * t1123 * t4687 + 0.2e1 * t1130 * t4679 + t1316 * t3755 + t1320 * t3741 + t17054 * t372 + t17072 * t872 + 0.2e1 * t15449 + 0.2e1 * t15871 + 0.2e1 * t15874 + 0.2e1 * t15877;
14034 
14035   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14036     v3rho2lapl[0] = 0.0e0;
14037 
14038   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14039     v3rho2lapl[1] = 0.0e0;
14040 
14041   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14042     v3rho2lapl[2] = 0.0e0;
14043 
14044   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14045     v3rho2lapl[3] = 0.0e0;
14046 
14047   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14048     v3rho2lapl[4] = 0.0e0;
14049 
14050   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
14051     v3rho2lapl[5] = 0.0e0;
14052 
14053   t17074 = t4736 * t372;
14054   t17076 = t1333 * t878;
14055   t17080 = t857 * t4714;
14056   t17083 = t1516 * t1326;
14057   t17084 = t17083 * t227;
14058   t17087 = t464 * t4714;
14059   t17088 = t17087 * t227;
14060   t17091 = t4725 * t751;
14061   t17094 = t400 * t464;
14062   t17097 = t4714 * t227;
14063   t17098 = t17097 * t443;
14064   t17101 = t4721 * t1470;
14065   t17106 = t4721 * t1398;
14066   t17109 = t4729 * t751;
14067   t17112 = t1326 * t751;
14068   t17113 = t17112 * t443;
14069   t17116 = t1392 * t96;
14070   t17119 = -0.2e1 * t1327 * t6587 - 0.4e1 * t17080 * t449 + 0.2e1 * t17084 * t81 + 0.4e1 * t17088 * t81 + 0.4e1 * t17091 * t81 - 0.16e2 * t17094 * t4722 - 0.16e2 * t17098 * t4720 - 0.8e1 * t17101 * t4720 + 0.40e2 * t17106 * t7757 + 0.4e1 * t17109 * t81 - 0.16e2 * t17113 * t4720 - 0.16e2 * t17116 * t4722 + 0.4e1 * t397 * t4733;
14071   t17120 = t2331 * t1326;
14072   t17124 = 0.11e2 / 0.9e1 * t1440 * t1323;
14073   t17125 = t424 * t1493;
14074   t17126 = t17125 * t4701;
14075   t17128 = t424 * t4705;
14076   t17130 = t424 * t453;
14077   t17131 = t17130 * t4710;
14078   t17133 = t58 * t5751;
14079   t17134 = t4700 * t1494;
14080   t17137 = t1132 * t459;
14081   t17140 = t459 * t414;
14082   t17141 = t4709 * t17140;
14083   t17144 = t4700 * t1511;
14084   t17148 = t453 * t409 * t38;
14085   t17153 = t84 * t1422;
14086   t17154 = t17153 * t1423;
14087   t17157 = t4709 * t1427;
14088   t17160 = -t17124 - 0.4e1 / 0.3e1 * t17126 - 0.10e2 / 0.9e1 * t17128 + 0.10e2 / 0.9e1 * t17131 - 0.3e1 / 0.4e1 * t17133 * t17134 - 0.5e1 / 0.6e1 * t4699 * t17137 + 0.5e1 / 0.6e1 * t4699 * t17141 + t4699 * t17144 / 0.4e1 - 0.5e1 / 0.9e1 * t58 * t17148 + 0.25e2 / 0.36e2 * t4708 * t3775 - 0.5e1 / 0.36e2 * t4708 * t17154 - 0.5e1 / 0.24e2 * t4708 * t17157;
14089   t17161 = my_piecewise3(t95, 0, t17160);
14090   t17162 = t96 * t17161;
14091   t17163 = t17162 * t227;
14092   t17166 = t363 * t17161;
14093   t17177 = t1329 * t2101;
14094   t17190 = -0.4e1 * t1327 * t7847 - 0.2e1 * t1327 * t8308 + 0.2e1 * t1330 * t1391 - 0.4e1 * t1476 * t4694 - 0.4e1 * t1476 * t4715 - 0.2e1 * t17120 * t449 + 0.2e1 * t17163 * t81 - 0.2e1 * t17166 * t449 + 0.2e1 * t17177 * t81 - 0.4e1 * t2448 * t4694 - 0.4e1 * t2448 * t4715 + 0.4e1 * t397 * t4726 + 0.4e1 * t397 * t4730;
14095   t17191 = t17119 + t17190;
14096   t17192 = t7 * t17191;
14097   t17197 = t869 * t1341;
14098   t17199 = t368 * t4754;
14099   t17204 = params->d * t17191;
14100   t17218 = t1481 * t1326;
14101   t17221 = t4729 * t464;
14102   t17224 = t1329 * t1516;
14103   t17227 = t97 * t17161;
14104   t17230 = 0.6e1 * t1336 * t2367 + 0.3e1 * t1336 * t2370 + 0.3e1 * t1338 * t2363 + t17204 * t370 + 0.6e1 * t17218 * t369 + 0.12e2 * t17221 * t369 + 0.6e1 * t17224 * t369 + 0.3e1 * t17227 * t369 + 0.6e1 * t4742 * t875 + 0.12e2 * t4748 * t873 + 0.6e1 * t4751 * t873;
14105   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14106     v3rho2tau[0] = t1334 * t2373 + t1341 * t2359 + t17192 * t372 + t17230 * t872 + 0.2e1 * t4737 * t878 + 0.2e1 * t4754 * t870 + 0.2e1 * t17074 + 0.2e1 * t17076 + 0.2e1 * t17197 + 0.2e1 * t17199;
14107 
14108   t17232 = t4796 * t372;
14109   t17234 = t1354 * t878;
14110   t17236 = t1347 * t751;
14111   t17237 = t17236 * t443;
14112   t17242 = t4785 * t751;
14113   t17245 = t1350 * t2101;
14114   t17248 = t2331 * t1347;
14115   t17252 = 0.11e2 / 0.9e1 * t1440 * t1344;
14116   t17253 = t17125 * t4767;
14117   t17255 = t17130 * t4771;
14118   t17257 = t4766 * t1494;
14119   t17260 = t459 * t418;
14120   t17261 = t4770 * t17260;
14121   t17264 = t4766 * t1511;
14122   t17267 = t88 * t1431;
14123   t17268 = t17267 * t1432;
14124   t17271 = t4770 * t1436;
14125   t17275 = my_piecewise3(t95, 0, -t17252 - 0.4e1 / 0.3e1 * t17253 + 0.10e2 / 0.9e1 * t17255 - 0.3e1 / 0.4e1 * t17133 * t17257 + 0.5e1 / 0.6e1 * t4699 * t17261 + t4699 * t17264 / 0.4e1 - 0.5e1 / 0.36e2 * t4708 * t17268 - 0.5e1 / 0.24e2 * t4708 * t17271);
14126   t17276 = t363 * t17275;
14127   t17281 = t4781 * t1398;
14128   t17292 = t1516 * t1347;
14129   t17293 = t17292 * t227;
14130   t17296 = -0.4e1 * t1348 * t7847 + 0.2e1 * t1351 * t1391 - 0.16e2 * t17237 * t4720 + 0.4e1 * t17242 * t81 + 0.2e1 * t17245 * t81 - 0.2e1 * t17248 * t449 - 0.2e1 * t17276 * t449 + 0.40e2 * t17281 * t7757 + 0.2e1 * t17293 * t81 - 0.4e1 * t2448 * t4776 + 0.4e1 * t397 * t4786 + 0.4e1 * t397 * t4790 + 0.4e1 * t397 * t4793;
14131   t17297 = t464 * t4775;
14132   t17298 = t17297 * t227;
14133   t17301 = t857 * t4775;
14134   t17310 = t96 * t17275;
14135   t17311 = t17310 * t227;
14136   t17314 = t4789 * t751;
14137   t17323 = t4781 * t1470;
14138   t17328 = t4775 * t227;
14139   t17329 = t17328 * t443;
14140   t17332 = -0.2e1 * t1348 * t6587 - 0.2e1 * t1348 * t8308 - 0.4e1 * t1476 * t4761 - 0.4e1 * t1476 * t4776 - 0.16e2 * t17094 * t4782 - 0.16e2 * t17116 * t4782 + 0.4e1 * t17298 * t81 - 0.4e1 * t17301 * t449 + 0.2e1 * t17311 * t81 + 0.4e1 * t17314 * t81 - 0.8e1 * t17323 * t4720 - 0.16e2 * t17329 * t4720 - 0.4e1 * t2448 * t4761;
14141   t17333 = t17296 + t17332;
14142   t17334 = t7 * t17333;
14143   t17339 = t869 * t1362;
14144   t17341 = t368 * t4814;
14145   t17346 = params->d * t17333;
14146   t17360 = t1481 * t1347;
14147   t17363 = t4789 * t464;
14148   t17366 = t1350 * t1516;
14149   t17369 = t97 * t17275;
14150   t17372 = 0.6e1 * t1357 * t2367 + 0.3e1 * t1357 * t2370 + 0.3e1 * t1359 * t2363 + t17346 * t370 + 0.6e1 * t17360 * t369 + 0.12e2 * t17363 * t369 + 0.6e1 * t17366 * t369 + 0.3e1 * t17369 * t369 + 0.6e1 * t4802 * t875 + 0.12e2 * t4808 * t873 + 0.6e1 * t4811 * t873;
14151   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14152     v3rho2tau[1] = t1355 * t2373 + t1362 * t2359 + t17334 * t372 + t17372 * t872 + 0.2e1 * t4797 * t878 + 0.2e1 * t4814 * t870 + 0.2e1 * t17232 + 0.2e1 * t17234 + 0.2e1 * t17339 + 0.2e1 * t17341;
14153 
14154   t17374 = t4850 * t372;
14155   t17383 = t857 * t4830;
14156   t17391 = t17125 * t4823;
14157   t17393 = t4700 * t14133;
14158   t17396 = t1132 * t923;
14159   t17399 = t923 * t414;
14160   t17400 = t4709 * t17399;
14161   t17403 = t4700 * t2473;
14162   t17406 = t17130 * t4826;
14163   t17408 = t887 * t459;
14164   t17409 = t4709 * t17408;
14165   t17414 = t17153 * t14562;
14166   t17417 = t5742 * t453;
14167   t17418 = t4709 * t4;
14168   t17421 = -t17124 - 0.2e1 / 0.3e1 * t17126 - 0.5e1 / 0.9e1 * t17128 + 0.5e1 / 0.9e1 * t17131 - 0.2e1 / 0.3e1 * t17391 - 0.3e1 / 0.4e1 * t17133 * t17393 - 0.5e1 / 0.12e2 * t4699 * t17396 + 0.5e1 / 0.12e2 * t4699 * t17400 + t4699 * t17403 / 0.4e1 + 0.5e1 / 0.9e1 * t17406 + 0.5e1 / 0.12e2 * t4699 * t17409 + 0.25e2 / 0.72e2 * t4708 * t4280 - 0.5e1 / 0.36e2 * t4708 * t17414 - 0.5e1 / 0.24e2 * t17417 * t17418;
14169   t17422 = my_piecewise3(t95, 0, t17421);
14170   t17423 = t363 * t17422;
14171   t17426 = t4721 * t2383;
14172   t17438 = t3091 * t1326;
14173   t17441 = t4725 * t1037;
14174   t17444 = t1329 * t2866;
14175   t17447 = t928 * t4714;
14176   t17448 = t17447 * t227;
14177   t17451 = t1326 * t1037;
14178   t17452 = t17451 * t443;
14179   t17457 = t2378 * t96;
14180   t17460 = t464 * t4830;
14181   t17461 = t17460 * t227;
14182   t17464 = t96 * t17422;
14183   t17465 = t17464 * t227;
14184   t17468 = -0.2e1 * t1476 * t4820 - 0.2e1 * t17438 * t449 + 0.2e1 * t17441 * t81 + 0.2e1 * t17444 * t81 + 0.2e1 * t17448 * t81 - 0.8e1 * t17452 * t4720 - 0.8e1 * t17457 * t4722 + 0.2e1 * t17461 * t81 + 0.2e1 * t17465 * t81 - 0.2e1 * t2448 * t4820 + 0.2e1 * t4733 * t881;
14185   t17470 = t4830 * t227;
14186   t17471 = t17470 * t443;
14187   t17480 = t4729 * t1037;
14188   t17485 = t2478 * t1326;
14189   t17486 = t17485 * t227;
14190   t17489 = t4843 * t751;
14191   t17499 = t1110 * t4714;
14192   t17502 = t17112 * t912;
14193   t17509 = t17097 * t912;
14194   t17512 = t4721 * t2436;
14195   t17515 = t400 * t928;
14196   t17518 = t4839 * t751;
14197   t17525 = -0.2e1 * t1327 * t14120 - 0.2e1 * t1327 * t14123 - 0.2e1 * t1327 * t9859 - 0.8e1 * t17094 * t4836 - 0.8e1 * t17116 * t4836 - 0.2e1 * t17499 * t449 - 0.8e1 * t17502 * t4720 - 0.8e1 * t17509 * t4720 - 0.8e1 * t17512 * t4720 - 0.8e1 * t17515 * t4722 + 0.2e1 * t17518 * t81;
14198   t17527 = -0.2e1 * t1327 * t8342 + 0.2e1 * t1330 * t2377 - 0.2e1 * t1476 * t4831 - 0.2e1 * t17383 * t449 - 0.2e1 * t17423 * t449 + 0.40e2 * t17426 * t7757 - 0.8e1 * t17471 * t4720 + 0.2e1 * t17480 * t81 + 0.2e1 * t17486 * t81 + 0.2e1 * t17489 * t81 - 0.2e1 * t2442 * t4694 - 0.2e1 * t2442 * t4715 - 0.2e1 * t2448 * t4831 + 0.2e1 * t397 * t4840 + 0.2e1 * t397 * t4844 + 0.2e1 * t397 * t4847 - 0.2e1 * t4302 * t4694 - 0.2e1 * t4302 * t4715 + 0.2e1 * t4726 * t881 + 0.2e1 * t4730 * t881 + t17468 + t17525;
14199   t17528 = t7 * t17527;
14200   t17531 = t1333 * t1130;
14201   t17534 = t1122 * t1341;
14202   t17537 = t368 * t4867;
14203   t17539 = params->d * t17527;
14204   t17557 = t4725 * t928;
14205   t17560 = t4729 * t928;
14206   t17563 = t1329 * t2478;
14207   t17568 = t4843 * t464;
14208   t17571 = t97 * t17422;
14209   t17574 = 0.6e1 * t1125 * t4748 + 0.3e1 * t1125 * t4751 + 0.3e1 * t1127 * t4742 + 0.6e1 * t1336 * t3138 + 0.3e1 * t1336 * t3141 + 0.3e1 * t1338 * t3132 + t17539 * t370 + 0.6e1 * t17557 * t369 + 0.6e1 * t17560 * t369 + 0.6e1 * t17563 * t369 + 0.6e1 * t17568 * t369 + 0.3e1 * t17571 * t369 + 0.3e1 * t4855 * t875 + 0.6e1 * t4861 * t873 + 0.3e1 * t4864 * t873;
14210   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14211     v3rho2tau[2] = t1123 * t4754 + t1130 * t4737 + t1334 * t3144 + t1341 * t3127 + t17528 * t372 + t17574 * t872 + t4851 * t878 + t4867 * t870 + t17074 + t17076 + t17197 + t17199 + t17374 + t17531 + t17534 + t17537;
14212 
14213   t17576 = t4907 * t372;
14214   t17581 = t3091 * t1347;
14215   t17588 = t4789 * t1037;
14216   t17593 = t928 * t4775;
14217   t17594 = t17593 * t227;
14218   t17599 = t17236 * t912;
14219   t17603 = t4896 * t751;
14220   t17608 = t17328 * t912;
14221   t17611 = t4781 * t2383;
14222   t17614 = t2478 * t1347;
14223   t17615 = t17614 * t227;
14224   t17618 = t4887 * t227;
14225   t17619 = t17618 * t443;
14226   t17630 = t1350 * t2866;
14227   t17633 = -0.2e1 * t1348 * t14120 - 0.2e1 * t1348 * t14123 - 0.8e1 * t17094 * t4893 + 0.2e1 * t17603 * t81 - 0.8e1 * t17608 * t4720 + 0.40e2 * t17611 * t7757 + 0.2e1 * t17615 * t81 - 0.8e1 * t17619 * t4720 + 0.2e1 * t17630 * t81 - 0.2e1 * t4302 * t4761 + 0.2e1 * t4793 * t881;
14228   t17638 = t464 * t4887;
14229   t17639 = t17638 * t227;
14230   t17641 = t4900 * t751;
14231   t17645 = t17125 * t4876;
14232   t17647 = t4766 * t14133;
14233   t17650 = t923 * t418;
14234   t17651 = t4770 * t17650;
14235   t17654 = t4766 * t2473;
14236   t17657 = t424 * t4880;
14237   t17659 = t1274 * t459;
14238   t17664 = t17130 * t4883;
14239   t17666 = t897 * t459;
14240   t17667 = t4770 * t17666;
14241   t17670 = t17267 * t15482;
14242   t17673 = t4770 * t4;
14243   t17676 = -t17252 - 0.2e1 / 0.3e1 * t17253 + 0.5e1 / 0.9e1 * t17255 - 0.2e1 / 0.3e1 * t17645 - 0.3e1 / 0.4e1 * t17133 * t17647 + 0.5e1 / 0.12e2 * t4699 * t17651 + t4699 * t17654 / 0.4e1 - 0.5e1 / 0.9e1 * t17657 - 0.5e1 / 0.12e2 * t4699 * t17659 + 0.25e2 / 0.72e2 * t4708 * t4164 + 0.5e1 / 0.9e1 * t17664 + 0.5e1 / 0.12e2 * t4699 * t17667 - 0.5e1 / 0.36e2 * t4708 * t17670 + 0.5e1 / 0.24e2 * t17417 * t17673;
14244   t17677 = my_piecewise3(t95, 0, t17676);
14245   t17678 = t96 * t17677;
14246   t17679 = t17678 * t227;
14247   t17681 = t363 * t17677;
14248   t17685 = t857 * t4887;
14249   t17689 = t1110 * t4775;
14250   t17696 = t4785 * t1037;
14251   t17707 = t4781 * t2436;
14252   t17710 = t1347 * t1037;
14253   t17711 = t17710 * t443;
14254   t17716 = -0.2e1 * t1348 * t8342 - 0.8e1 * t17457 * t4782 - 0.2e1 * t17689 * t449 + 0.2e1 * t17696 * t81 - 0.8e1 * t17707 * t4720 - 0.8e1 * t17711 * t4720 - 0.2e1 * t2442 * t4776 + 0.2e1 * t397 * t4897 + 0.2e1 * t397 * t4901 + 0.2e1 * t397 * t4904 - 0.2e1 * t4302 * t4776;
14255   t17718 = -0.2e1 * t1348 * t9859 + 0.2e1 * t1351 * t2377 - 0.2e1 * t1476 * t4873 - 0.2e1 * t1476 * t4888 - 0.8e1 * t17116 * t4893 - 0.8e1 * t17515 * t4782 - 0.2e1 * t17581 * t449 + 0.2e1 * t17588 * t81 + 0.2e1 * t17594 * t81 - 0.8e1 * t17599 * t4720 + 0.2e1 * t17639 * t81 + 0.2e1 * t17641 * t81 + 0.2e1 * t17679 * t81 - 0.2e1 * t17681 * t449 - 0.2e1 * t17685 * t449 - 0.2e1 * t2442 * t4761 - 0.2e1 * t2448 * t4873 - 0.2e1 * t2448 * t4888 + 0.2e1 * t4786 * t881 + 0.2e1 * t4790 * t881 + t17633 + t17716;
14256   t17719 = t7 * t17718;
14257   t17722 = t1354 * t1130;
14258   t17725 = t1122 * t1362;
14259   t17728 = t368 * t4924;
14260   t17730 = params->d * t17718;
14261   t17748 = t4785 * t928;
14262   t17751 = t4789 * t928;
14263   t17754 = t1350 * t2478;
14264   t17759 = t4900 * t464;
14265   t17762 = t97 * t17677;
14266   t17765 = 0.6e1 * t1125 * t4808 + 0.3e1 * t1125 * t4811 + 0.3e1 * t1127 * t4802 + 0.6e1 * t1357 * t3138 + 0.3e1 * t1357 * t3141 + 0.3e1 * t1359 * t3132 + t17730 * t370 + 0.6e1 * t17748 * t369 + 0.6e1 * t17751 * t369 + 0.6e1 * t17754 * t369 + 0.6e1 * t17759 * t369 + 0.3e1 * t17762 * t369 + 0.3e1 * t4912 * t875 + 0.6e1 * t4918 * t873 + 0.3e1 * t4921 * t873;
14267   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14268     v3rho2tau[3] = t1123 * t4814 + t1130 * t4797 + t1355 * t3144 + t1362 * t3127 + t17719 * t372 + t17765 * t872 + t4908 * t878 + t4924 * t870 + t17232 + t17234 + t17339 + t17341 + t17576 + t17722 + t17725 + t17728;
14269 
14270   t17769 = t1329 * t3530;
14271   t17774 = t4700 * t3227;
14272   t17777 = t923 * t887;
14273   t17778 = t4709 * t17777;
14274   t17781 = t4700 * t3244;
14275   t17784 = t17153 * t3164;
14276   t17787 = t4709 * t3168;
14277   t17791 = my_piecewise3(t95, 0, -t17124 - 0.4e1 / 0.3e1 * t17391 + 0.10e2 / 0.9e1 * t17406 - 0.3e1 / 0.4e1 * t17133 * t17774 + 0.5e1 / 0.6e1 * t4699 * t17778 + t4699 * t17781 / 0.4e1 - 0.5e1 / 0.36e2 * t4708 * t17784 - 0.5e1 / 0.24e2 * t4708 * t17787);
14278   t17792 = t96 * t17791;
14279   t17793 = t17792 * t227;
14280   t17796 = t3249 * t1326;
14281   t17797 = t17796 * t227;
14282   t17800 = t928 * t4830;
14283   t17801 = t17800 * t227;
14284   t17810 = t4843 * t1037;
14285   t17821 = t1110 * t4830;
14286   t17824 = -0.2e1 * t1327 * t15998 - 0.4e1 * t1327 * t16016 + 0.2e1 * t17769 * t81 + 0.2e1 * t17793 * t81 + 0.2e1 * t17797 * t81 + 0.4e1 * t17801 * t81 + 0.4e1 * t17810 * t81 - 0.4e1 * t17821 * t449 - 0.4e1 * t2442 * t4820 - 0.4e1 * t2442 * t4831 - 0.4e1 * t4302 * t4820 + 0.4e1 * t4840 * t881 + 0.4e1 * t4844 * t881;
14287   t17831 = t17470 * t912;
14288   t17836 = t4721 * t3152;
14289   t17839 = t4721 * t3209;
14290   t17844 = t3714 * t1326;
14291   t17847 = t363 * t17791;
14292   t17850 = t4839 * t1037;
14293   t17855 = t17451 * t912;
14294   t17858 = -0.2e1 * t1327 * t9866 + 0.2e1 * t1330 * t3149 - 0.16e2 * t17457 * t4836 - 0.16e2 * t17515 * t4836 - 0.16e2 * t17831 * t4720 + 0.40e2 * t17836 * t7757 - 0.8e1 * t17839 * t4720 - 0.2e1 * t17844 * t449 - 0.2e1 * t17847 * t449 + 0.4e1 * t17850 * t81 - 0.16e2 * t17855 * t4720 - 0.4e1 * t4302 * t4831 + 0.4e1 * t4847 * t881;
14295   t17859 = t17824 + t17858;
14296   t17860 = t7 * t17859;
14297   t17870 = params->d * t17859;
14298   t17884 = t3219 * t1326;
14299   t17887 = t4843 * t928;
14300   t17890 = t1329 * t3249;
14301   t17893 = t97 * t17791;
14302   t17896 = 0.12e2 * t1125 * t4861 + 0.6e1 * t1125 * t4864 + 0.6e1 * t1127 * t4855 + 0.6e1 * t1336 * t3749 + 0.3e1 * t1336 * t3752 + 0.3e1 * t1338 * t3745 + t17870 * t370 + 0.6e1 * t17884 * t369 + 0.12e2 * t17887 * t369 + 0.6e1 * t17890 * t369 + 0.3e1 * t17893 * t369;
14303   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14304     v3rho2tau[4] = 0.2e1 * t1123 * t4867 + 0.2e1 * t1130 * t4851 + t1334 * t3755 + t1341 * t3741 + t17860 * t372 + t17896 * t872 + 0.2e1 * t17374 + 0.2e1 * t17531 + 0.2e1 * t17534 + 0.2e1 * t17537;
14305 
14306   t17900 = t4781 * t3209;
14307   t17909 = t3249 * t1347;
14308   t17910 = t17909 * t227;
14309   t17913 = t928 * t4887;
14310   t17914 = t17913 * t227;
14311   t17917 = t17710 * t912;
14312   t17925 = t4766 * t3227;
14313   t17928 = t1274 * t923;
14314   t17931 = t923 * t897;
14315   t17932 = t4770 * t17931;
14316   t17935 = t4766 * t3244;
14317   t17939 = t453 * t893 * t50;
14318   t17944 = t17267 * t3179;
14319   t17947 = t4770 * t3183;
14320   t17950 = -t17252 - 0.4e1 / 0.3e1 * t17645 - 0.10e2 / 0.9e1 * t17657 + 0.10e2 / 0.9e1 * t17664 - 0.3e1 / 0.4e1 * t17133 * t17925 - 0.5e1 / 0.6e1 * t4699 * t17928 + 0.5e1 / 0.6e1 * t4699 * t17932 + t4699 * t17935 / 0.4e1 - 0.5e1 / 0.9e1 * t58 * t17939 + 0.25e2 / 0.36e2 * t4708 * t4593 - 0.5e1 / 0.36e2 * t4708 * t17944 - 0.5e1 / 0.24e2 * t4708 * t17947;
14321   t17951 = my_piecewise3(t95, 0, t17950);
14322   t17952 = t363 * t17951;
14323   t17957 = t3714 * t1347;
14324   t17960 = t1110 * t4887;
14325   t17963 = t4896 * t1037;
14326   t17966 = -0.2e1 * t1348 * t9866 - 0.16e2 * t17457 * t4893 - 0.16e2 * t17515 * t4893 - 0.8e1 * t17900 * t4720 + 0.2e1 * t17910 * t81 + 0.4e1 * t17914 * t81 - 0.16e2 * t17917 * t4720 - 0.2e1 * t17952 * t449 - 0.2e1 * t17957 * t449 - 0.4e1 * t17960 * t449 + 0.4e1 * t17963 * t81 - 0.4e1 * t2442 * t4888 + 0.4e1 * t4904 * t881;
14327   t17967 = t4781 * t3152;
14328   t17978 = t96 * t17951;
14329   t17979 = t17978 * t227;
14330   t17982 = t4900 * t1037;
14331   t17991 = t1350 * t3530;
14332   t17994 = t17618 * t912;
14333   t17999 = -0.2e1 * t1348 * t15998 - 0.4e1 * t1348 * t16016 + 0.2e1 * t1351 * t3149 + 0.40e2 * t17967 * t7757 + 0.2e1 * t17979 * t81 + 0.4e1 * t17982 * t81 + 0.2e1 * t17991 * t81 - 0.16e2 * t17994 * t4720 - 0.4e1 * t2442 * t4873 - 0.4e1 * t4302 * t4873 - 0.4e1 * t4302 * t4888 + 0.4e1 * t4897 * t881 + 0.4e1 * t4901 * t881;
14334   t18000 = t17966 + t17999;
14335   t18001 = t7 * t18000;
14336   t18011 = params->d * t18000;
14337   t18025 = t3219 * t1347;
14338   t18028 = t4900 * t928;
14339   t18031 = t1350 * t3249;
14340   t18034 = t97 * t17951;
14341   t18037 = 0.12e2 * t1125 * t4918 + 0.6e1 * t1125 * t4921 + 0.6e1 * t1127 * t4912 + 0.6e1 * t1357 * t3749 + 0.3e1 * t1357 * t3752 + 0.3e1 * t1359 * t3745 + t18011 * t370 + 0.6e1 * t18025 * t369 + 0.12e2 * t18028 * t369 + 0.6e1 * t18031 * t369 + 0.3e1 * t18034 * t369;
14342   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14343     v3rho2tau[5] = 0.2e1 * t1123 * t4924 + 0.2e1 * t1130 * t4908 + t1355 * t3755 + t1362 * t3741 + t18001 * t372 + t18037 * t872 + 0.2e1 * t17576 + 0.2e1 * t17722 + 0.2e1 * t17725 + 0.2e1 * t17728;
14344 
14345   t18039 = t5065 * t372;
14346   t18040 = t6445 * t4928;
14347   t18044 = t4932 * t4934 * t857;
14348   t18048 = t4926 * t1133 * t114;
14349   t18049 = t1397 * t18048;
14350   t18050 = t3763 * t3778;
14351   t18051 = t5044 * t18050;
14352   t18054 = t4928 * t114;
14353   t18055 = t1397 * t18054;
14354   t18056 = t4931 * t73;
14355   t18057 = t18056 * t3784;
14356   t18060 = t5044 * t3790;
14357   t18063 = t1144 * t443;
14358   t18064 = t12791 * t18063;
14359   t18065 = t3762 * t18064;
14360   t18067 = t12758 * t4940;
14361   t18069 = t12788 * t4940;
14362   t18071 = t3958 * t4939;
14363   t18072 = t3788 * t18071;
14364   t18074 = t465 * t1143;
14365   t18075 = t1204 * t18074;
14366   t18076 = t3788 * t18075;
14367   t18078 = t12780 * t1143;
14368   t18079 = t1204 * t18078;
14369   t18080 = t3788 * t18079;
14370   t18082 = t6453 * t18054;
14371   t18083 = t5044 * t3764;
14372   t18086 = -0.5e1 / 0.144e3 * t18040 * t4936 - 0.5e1 / 0.144e3 * t4929 * t18044 - 0.5e1 / 0.72e2 * t18049 * t18051 - 0.5e1 / 0.72e2 * t18055 * t18057 - 0.5e1 / 0.72e2 * t18055 * t18060 - 0.10e2 / 0.3e1 * t18065 + 0.2e1 / 0.3e1 * t18067 + 0.2e1 / 0.3e1 * t18069 + 0.2e1 / 0.3e1 * t18072 + 0.2e1 / 0.3e1 * t18076 + 0.2e1 / 0.3e1 * t18080 + 0.5e1 / 0.24e2 * t18082 * t18083;
14373   t18088 = t25 * t4927 * t114;
14374   t18089 = t1397 * t18088;
14375   t18090 = t3763 * t404;
14376   t18091 = t5044 * t18090;
14377   t18094 = t1476 * t4955;
14378   t18095 = 0.2e1 * t18094;
14379   t18096 = t2448 * t4955;
14380   t18097 = 0.2e1 * t18096;
14381   t18098 = t857 * t4954;
14382   t18099 = t449 * t18098;
14383   t18100 = 0.2e1 * t18099;
14384   t18101 = t5060 * t3921;
14385   t18103 = t3977 * t5031;
14386   t18104 = t6117 * t746;
14387   t18105 = t5030 * t18104;
14388   t18107 = 0.2e1 * t1214 * t18105;
14389   t18108 = t3977 * t5027;
14390   t18109 = t694 * t202;
14391   t18110 = t18109 * t203;
14392   t18111 = t4959 * t18110;
14393   t18112 = t103 * t220;
14394   t18114 = t2746 * t18112 * t708;
14395   t18115 = t18111 * t18114;
14396   t18119 = t4958 * t5000 * t714 * t5004;
14397   t18120 = 0.7e1 / 0.2304e4 * t18119;
14398   t18123 = t4959 * t196 * t202 * t203;
14399   t18125 = t1905 * t18112 * t677;
14400   t18126 = t18123 * t18125;
14401   t18128 = t103 * t736;
14402   t18130 = t2746 * t18128 * t743;
14403   t18131 = t18123 * t18130;
14404   t18133 = t1159 * t1181;
14405   t18134 = t18133 * t1162;
14406   t18137 = t1164 * t2059;
14407   t18139 = t18137 * t196 * t743;
14408   t18142 = t5008 * t3851;
14409   t18143 = t3911 * t708;
14410   t18146 = t4973 * t731;
14411   t18147 = t18146 * t4976;
14412   t18150 = t6345 * t694;
14413   t18152 = t18150 * t5007 * t743;
14414   t18155 = t2059 * t1887;
14415   t18157 = t5007 * t707 * t194;
14416   t18158 = t18155 * t18157;
14417   t18162 = t5117 * t1181 * t3897;
14418   t18165 = t18147 * t5021;
14419   t18166 = t18165 * t211;
14420   t18168 = t5015 * t694;
14421   t18169 = t5014 * t18168;
14422   t18170 = t103 * t743;
14423   t18171 = t209 * t18170;
14424   t18172 = t207 * t18171;
14425   t18173 = t18169 * t18172;
14426   t18175 = t1887 * t202;
14427   t18176 = t5020 * t18175;
14428   t18177 = t5014 * t18176;
14429   t18178 = t18177 * t710;
14430   t18180 = t5022 * t717;
14431   t18181 = 0.7e1 / 0.2304e4 * t18180;
14432   t18182 = t204 * t724;
14433   t18184 = t209 * t103 * t677;
14434   t18185 = t18182 * t18184;
14435   t18186 = t5022 * t18185;
14436   t18188 = -t18115 / 0.1536e4 - t18120 - t18126 / 0.384e3 - t18131 / 0.1536e4 - 0.4e1 * t18134 * t3917 + 0.4e1 * t5009 * t18139 + 0.2e1 * t18142 * t18143 + 0.2e1 * t18147 * t5017 - 0.6e1 * t5116 * t18152 - 0.4e1 * t5116 * t18158 + 0.4e1 * t5116 * t18162 - t18166 / 0.1536e4 + t18173 / 0.768e3 + t18178 / 0.768e3 + t18181 + t18186 / 0.384e3;
14437   t18189 = t175 * t18188;
14438   t18190 = t18189 * t748;
14439   t18191 = t1214 * t18190;
14440   t18192 = t5060 * t3986;
14441   t18194 = t1199 * t3811;
14442   t18195 = t449 * t18194;
14443   t18197 = t5026 * t3985;
14444   t18198 = t1214 * t18197;
14445   t18199 = -0.5e1 / 0.72e2 * t18089 * t18091 - t4957 - t18095 - t18097 - t18100 + 0.2e1 * t18101 - t18103 + t18107 + t18108 + t18191 - 0.2e1 * t18192 - 0.4e1 * t18195 - t18198;
14446   t18201 = t3789 * t3811;
14447   t18202 = t1204 * t18201;
14448   t18203 = t3788 * t18202;
14449   t18205 = t97 * t1199;
14450   t18206 = t18205 * t443;
14451   t18207 = t1204 * t18206;
14452   t18210 = t96 * t1199;
14453   t18211 = t18210 * t464;
14454   t18212 = t1204 * t18211;
14455   t18215 = t13167 * t4940;
14456   t18218 = t174 * t5029;
14457   t18219 = t2093 * t677;
14458   t18220 = t18218 * t18219;
14459   t18222 = 0.3e1 * t1214 * t18220;
14460   t18223 = t527 * t273;
14461   t18224 = t18223 * t209;
14462   t18225 = t4959 * t18224;
14463   t18226 = t1683 * t130;
14464   t18227 = t277 * t288;
14465   t18228 = t18227 * t540;
14466   t18229 = t18226 * t18228;
14467   t18232 = t267 * t547;
14468   t18234 = t4959 * t18232 * t61;
14469   t18237 = t1616 * t4963;
14470   t18239 = t4962 * t18237 / 0.1152e4;
14471   t18241 = t4959 * t4960 * t209;
14472   t18242 = t559 * t288;
14473   t18243 = t18242 * t476;
14474   t18244 = t18226 * t18243;
14475   t18248 = t474 * t570 * t577;
14476   t18249 = t533 * t18248;
14477   t18252 = t1159 * t1156;
14478   t18253 = t18252 * t1162;
14479   t18256 = t1164 * t1734;
14480   t18261 = t4968 * t3851;
14481   t18265 = t4973 * t565;
14482   t18266 = t18265 * t4976;
14483   t18269 = t4974 * t5115;
14484   t18270 = t7024 * t527;
14485   t18272 = t18270 * t4967 * t577;
14486   t18275 = t1734 * t1668;
14487   t18278 = t18275 * t4967 * t539 * t265;
14488   t18281 = t1734 * t527;
14489   t18283 = t18281 * t1156 * t3843;
14490   t18286 = t18266 * t4985;
14491   t18289 = t4979 * t18223;
14492   t18290 = t4977 * t18289;
14493   t18291 = t277 * t577;
14494   t18292 = t276 * t18291;
14495   t18293 = t210 * t18292;
14496   t18296 = t1668 * t273;
14497   t18297 = t4984 * t18296;
14498   t18298 = t4977 * t18297;
14499   t18299 = t209 * t1683;
14500   t18300 = t18299 * t541;
14501   t18303 = t1626 * t208;
14502   t18304 = t18303 * t4988;
14503   t18307 = t105 * t474;
14504   t18308 = t4987 * t18307;
14505   t18310 = t4986 * t18308 / 0.1152e4;
14506   t18311 = t4984 * t18223;
14507   t18312 = t4977 * t18311;
14508   t18313 = t18299 * t561;
14509   t18316 = -t18225 * t18229 / 0.768e3 - t18234 * t4964 / 0.144e3 + t18239 + t18241 * t18244 / 0.1152e4 - t4962 * t18249 / 0.768e3 - 0.4e1 * t18253 * t3864 + 0.4e1 * t4969 * t18256 * t267 * t577 + 0.2e1 * t18261 * t3858 * t540 + 0.2e1 * t18266 * t4981 - 0.6e1 * t18269 * t18272 - 0.4e1 * t18269 * t18278 + 0.4e1 * t18269 * t18283 - t18286 * t4989 / 0.768e3 + t18290 * t18293 / 0.384e3 + t18298 * t18300 / 0.384e3 + t4986 * t18304 / 0.144e3 - t18310 - t18312 * t18313 / 0.1152e4;
14510   t18320 = t4992 * t1763;
14511   t18326 = t4995 * t7082;
14512   t18330 = t5025 * t748;
14513   t18331 = t18330 * t677;
14514   t18334 = t169 * t18190;
14515   t18335 = t5025 * t2093;
14516   t18336 = t18335 * t746;
14517   t18338 = t5029 * t2093;
14518   t18339 = t18338 * t677;
14519   t18342 = t3923 * t3919;
14520   t18345 = t5029 * t6117;
14521   t18346 = t18345 * t746;
14522   t18349 = 0.3e1 * t1768 * t18331 - 0.3e1 * t1768 * t18339 - t18336 * t2849 - 0.2e1 * t18342 * t2849 + 0.2e1 * t18346 * t2849 + t18334;
14523   t18350 = my_piecewise3(t296, t169 * t18316 * t581 / 0.2e1 - t169 * t18320 * t580 / 0.2e1 - t169 * t3869 * t3866 + t169 * t18326 * t580, t18349);
14524   t18353 = my_piecewise3(t359, 0, t18349);
14525   t18354 = t18353 * t46;
14526   t18355 = t5036 * t436;
14527   t18357 = t18350 * t34 / 0.2e1 + t5034 * t413 / 0.2e1 + t18354 / 0.2e1 + t18355 / 0.2e1;
14528   t18359 = t6445 * t5041;
14529   t18362 = t6453 * t5041;
14530   t18363 = t5044 * t443;
14531   t18364 = t5043 * t18363;
14532   t18367 = t96 * t4926;
14533   t18368 = t1397 * t18367;
14534   t18369 = t5044 * t464;
14535   t18370 = t5043 * t18369;
14536   t18373 = t5044 * t404;
14537   t18374 = t5043 * t18373;
14538   t18377 = t1133 * t114;
14539   t18378 = t5044 * t3778;
14540   t18379 = t18377 * t18378;
14541   t18382 = t18056 * t439;
14542   t18383 = t5043 * t18382;
14543   t18386 = t13263 * t5049;
14544   t18388 = t73 * t1143;
14545   t18390 = t66 * t18388 * t443;
14546   t18391 = t13245 * t18390;
14547   t18393 = t14624 * t5049;
14548   t18395 = t13281 * t5049;
14549   t18397 = t3954 * t5048;
14550   t18398 = t3945 * t18397;
14551   t18400 = t3958 * t1143;
14552   t18401 = t1203 * t18400;
14553   t18402 = t3945 * t18401;
14554   t18404 = t1204 * t3811;
14555   t18405 = t1203 * t18404;
14556   t18406 = t3945 * t18405;
14557   t18409 = 0.2e1 * t397 * t4947;
14558   t18410 = t4947 * t443;
14559   t18412 = 0.8e1 * t400 * t18410;
14560   t18413 = t1143 * t3811;
14561   t18415 = 0.4e1 * t81 * t18413;
14562   t18416 = t397 * t5054;
14563   t18417 = 0.2e1 * t18416;
14564   t18418 = t5054 * t443;
14565   t18419 = t400 * t18418;
14566   t18420 = 0.8e1 * t18419;
14567   t18421 = t464 * t4954;
14568   t18422 = t81 * t18421;
14569   t18423 = 0.2e1 * t18422;
14570   t18424 = 0.5e1 / 0.144e3 * t18359 * t5045 - 0.5e1 / 0.24e2 * t18362 * t18364 + 0.5e1 / 0.72e2 * t18368 * t18370 + 0.5e1 / 0.72e2 * t3939 * t18374 + 0.5e1 / 0.72e2 * t5042 * t18379 + 0.5e1 / 0.72e2 * t5042 * t18383 - 0.2e1 / 0.3e1 * t18386 + 0.10e2 / 0.3e1 * t18391 - 0.2e1 / 0.3e1 * t18393 - 0.2e1 / 0.3e1 * t18395 - 0.2e1 / 0.3e1 * t18398 - 0.2e1 / 0.3e1 * t18402 - 0.2e1 / 0.3e1 * t18406 + t18409 - t18412 + t18415 + t18417 - t18420 + t18423 + t5056;
14571   t18426 = t446 * t4947;
14572   t18428 = 0.2e1 * t18426 * t363;
14573   t18430 = 0.2e1 * t4948 * t857;
14574   t18431 = t1476 * t4951;
14575   t18433 = t2448 * t4951;
14576   t18435 = 0.2e1 / 0.3e1 * t18203 - 0.5e1 / 0.3e1 * t3762 * t18207 + 0.2e1 / 0.3e1 * t3788 * t18212 + 0.2e1 / 0.3e1 * t18215 - t447 * t5039 - t18222 - t98 * t18357 + t18424 * t227 - t18428 - t18430 - 0.4e1 * t18431 - 0.4e1 * t18433;
14577   t18436 = t3934 * t1143;
14578   t18437 = t449 * t18436;
14579   t18439 = t174 * t5025;
14580   t18440 = t18439 * t3980;
14581   t18442 = 0.3e1 * t1214 * t18440;
14582   t18443 = t1191 * t13051;
14583   t18445 = 0.2e1 * t1214 * t18443;
14584   t18448 = 0.4e1 * t5097 * t3812;
14585   t18455 = t3783 * t1199;
14586   t18456 = t66 * t18455;
14587   t18460 = t66 * t1136 * t3934;
14588   t18463 = t5060 * t3981;
14589   t18465 = t5039 * t464;
14590   t18469 = t3973 * t167 * t168;
14591   t18470 = t18469 * t1192;
14592   t18472 = -0.4e1 * t18437 + t18442 - t18445 + t5057 * t751 - t18448 + t3758 * t4944 / 0.3e1 + t3769 * t4944 / 0.3e1 + t3780 * t4944 / 0.3e1 + t1135 * t18456 / 0.3e1 + t1135 * t18460 / 0.3e1 + 0.6e1 * t18463 - 0.2e1 * t449 * t18465 + 0.2e1 * t18470;
14593   t18474 = t18086 + t18199 + t18435 + t18472;
14594   t18475 = t7 * t18474;
14595   t18479 = 0.2e1 * t1216 * t1224;
14596   t18484 = t368 * t5080;
14597   t18486 = params->d * t18474;
14598   t18490 = t3994 * t1221;
14599   t18492 = t1219 * t4000;
14600   t18494 = t1219 * t4003;
14601   t18497 = 0.6e1 * t873 * t5074;
14602   t18498 = t464 * t4947;
14603   t18500 = 0.6e1 * t369 * t18498;
14604   t18501 = t1208 * t3811;
14605   t18503 = 0.12e2 * t369 * t18501;
14606   t18504 = t873 * t5077;
14607   t18505 = 0.3e1 * t18504;
14608   t18506 = t5054 * t464;
14609   t18507 = t369 * t18506;
14610   t18508 = 0.6e1 * t18507;
14611   t18509 = t18486 * t370 + 0.3e1 * t5070 * t875 + 0.6e1 * t18490 + 0.12e2 * t18492 + 0.6e1 * t18494 + t18497 + t18500 + t18503 + t18505 + t18508 + t5079;
14612   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14613     v3rhosigma2[0] = 0.2e1 * t1217 * t4006 + 0.2e1 * t1224 * t3989 + t18475 * t372 + t18509 * t872 + t5066 * t878 + t5080 * t870 + t18039 + t18479 + t18484;
14614 
14615   t18511 = t5161 * t372;
14616   t18513 = 0.2e1 * t1476 * t5107;
14617   t18515 = 0.2e1 * t2448 * t5107;
14618   t18516 = t4090 * t1143;
14619   t18518 = 0.2e1 * t449 * t18516;
14620   t18520 = 0.2e1 * t5097 * t4042;
14621   t18521 = t1190 * t677;
14622   t18522 = t4079 * t18521;
14623   t18524 = 0.3e1 * t13345 * t18522;
14624   t18527 = t6445 * t5083;
14625   t18530 = t12771 * t1133;
14626   t18531 = t5044 * t18530;
14627   t18534 = t3789 * t4041;
14628   t18535 = t1204 * t18534;
14629   t18538 = t1232 * t443;
14630   t18539 = t12791 * t18538;
14631   t18542 = t6453 * t5083;
14632   t18543 = t5044 * t97;
14633   t18544 = t363 * t1133;
14634   t18545 = t18544 * t443;
14635   t18546 = t18543 * t18545;
14636   t18549 = t1226 * t114;
14637   t18550 = t1397 * t18549;
14638   t18551 = t18544 * t404;
14639   t18552 = t18543 * t18551;
14640   t18555 = t18056 * t97;
14641   t18556 = t18544 * t439;
14642   t18557 = t18555 * t18556;
14643   t18560 = t5044 * t96;
14644   t18561 = t18544 * t464;
14645   t18562 = t18560 * t18561;
14646   t18565 = t1199 * t4041;
14647   t18568 = t447 * t5135;
14648   t18569 = t5123 * t748;
14649   t18570 = t18569 * t677;
14650   t18574 = 0.7e1 / 0.1152e4 * t18119;
14651   t18577 = t1159 * t4058;
14652   t18578 = t18577 * t1162;
14653   t18581 = t5111 * t3851;
14654   t18588 = t18146 * t5115;
14655   t18592 = t18150 * t5118 * t743;
14656   t18595 = t5115 * t2059;
14657   t18596 = t5013 * t18595;
14658   t18597 = t15258 * t3913;
14659   t18600 = t4058 * t1181;
14660   t18601 = t5117 * t18600;
14661   t18604 = t1237 * t3897;
14662   t18605 = t5117 * t18604;
14663   t18611 = 0.7e1 / 0.1152e4 * t18180;
14664   t18613 = -t18115 / 0.768e3 - t18574 - t18126 / 0.192e3 - t18131 / 0.768e3 - 0.2e1 * t18578 * t1188 + 0.4e1 * t18581 * t3908 + 0.2e1 * t18581 * t3914 - 0.2e1 * t5112 * t3917 + 0.2e1 * t18588 * t5119 - 0.6e1 * t5116 * t18592 - 0.4e1 * t18596 * t18597 + 0.2e1 * t5116 * t18601 + 0.2e1 * t5116 * t18605 - t18166 / 0.768e3 + t18173 / 0.384e3 + t18178 / 0.384e3 + t18611 + t18186 / 0.192e3;
14665   t18614 = t175 * t18613;
14666   t18615 = t18614 * t748;
14667   t18616 = t169 * t18615;
14668   t18617 = t5123 * t2093;
14669   t18618 = t18617 * t746;
14670   t18622 = t13538 * t1190;
14671   t18624 = t1190 * t746;
14672   t18625 = t13542 * t18624;
14673   t18628 = t4079 * t3919;
14674   t18630 = -0.3e1 * t1768 * t18522 + 0.3e1 * t1768 * t18570 - t18618 * t2849 - t18622 * t2849 + 0.2e1 * t18625 * t2849 - t18628 * t2849 + t18616;
14675   t18631 = my_piecewise3(t296, 0, t18630);
14676   t18634 = my_piecewise3(t359, 0, t18630);
14677   t18638 = t18631 * t34 / 0.2e1 + t18634 * t46 / 0.2e1 + t5130 * t413 / 0.2e1 + t5132 * t436 / 0.2e1;
14678   t18639 = t98 * t18638;
14679   t18640 = t82 * t3811;
14680   t18642 = 0.2e1 * t18640 * t1232;
14681   t18645 = -t18513 - t18515 - t18518 - t18520 - t18524 - 0.2e1 / 0.3e1 * t4026 * t18212 + 0.5e1 / 0.72e2 * t18527 * t5086 + 0.5e1 / 0.72e2 * t5084 * t18531 + t3788 * t18535 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t18539 - 0.5e1 / 0.12e2 * t18542 * t18546 + 0.5e1 / 0.36e2 * t18550 * t18552 + 0.5e1 / 0.36e2 * t5084 * t18557 + 0.5e1 / 0.36e2 * t5084 * t18562 - 0.2e1 * t449 * t18565 - t18568 - t18639 - t18642 - 0.2e1 * t1476 * t5100;
14682   t18646 = t5155 * t3986;
14683   t18650 = 0.2e1 * t5097 * t4035;
14684   t18651 = t1252 * t3811;
14685   t18653 = 0.2e1 * t449 * t18651;
14686   t18654 = t446 * t1143;
14687   t18656 = 0.2e1 * t18654 * t1232;
14688   t18657 = t5135 * t464;
14689   t18659 = 0.2e1 * t449 * t18657;
14690   t18660 = t174 * t5123;
14691   t18661 = t18660 * t3980;
14692   t18663 = 0.3e1 * t1214 * t18661;
14693   t18668 = 0.2e1 / 0.3e1 * t13412 * t4940;
14694   t18670 = 0.2e1 / 0.3e1 * t13424 * t4940;
14695   t18672 = 0.2e1 / 0.3e1 * t4026 * t18071;
14696   t18674 = 0.2e1 / 0.3e1 * t4026 * t18075;
14697   t18676 = 0.2e1 / 0.3e1 * t4026 * t18079;
14698   t18678 = t4926 * t423 * t114;
14699   t18679 = t1397 * t18678;
14700   t18681 = 0.5e1 / 0.27e2 * t18679 * t5086;
14701   t18683 = 0.3e1 * t5155 * t3981;
14702   t18690 = -t18646 + 0.3e1 * t5060 * t4125 - t18650 - t18653 - t18656 - t18659 + t18663 - t5060 * t4129 + 0.5e1 / 0.72e2 * t5084 * t18051 - t18668 - t18670 - t18672 - t18674 - t18676 - t18681 + t18683 - t4009 * t4944 / 0.3e1 - t4017 * t4944 / 0.3e1 - t1227 * t18456 / 0.3e1;
14703   t18695 = 0.16e2 / 0.9e1 * t13453 * t4940;
14704   t18697 = 0.2e1 / 0.3e1 * t4026 * t18202;
14705   t18700 = t5155 * t3921;
14706   t18701 = t1244 * t13051;
14707   t18702 = t1214 * t18701;
14708   t18704 = t5124 * t3985;
14709   t18705 = t1214 * t18704;
14710   t18707 = 0.8e1 / 0.9e1 * t4021 * t4944;
14711   t18715 = t3958 * t5093;
14712   t18718 = t465 * t1231;
14713   t18719 = t1204 * t18718;
14714   t18722 = -t1227 * t18460 / 0.3e1 + t18695 - t18697 + 0.5e1 / 0.3e1 * t4013 * t18207 - t4957 + t18700 - t18702 + t5060 * t4077 - t18095 - t18097 - t18100 - t18705 + t18707 + t5152 * t751 + t13167 * t5094 / 0.3e1 + t12758 * t5094 / 0.3e1 + t12788 * t5094 / 0.3e1 + t3788 * t18715 / 0.3e1 + t3788 * t18719 / 0.3e1;
14715   t18723 = t12780 * t1231;
14716   t18724 = t1204 * t18723;
14717   t18727 = t97 * t1252;
14718   t18728 = t18727 * t443;
14719   t18729 = t1204 * t18728;
14720   t18732 = t96 * t1252;
14721   t18733 = t18732 * t464;
14722   t18734 = t1204 * t18733;
14723   t18738 = t4120 * t167 * t168;
14724   t18739 = t18738 * t1192;
14725   t18740 = t3977 * t5159;
14726   t18741 = t4076 * t3923;
14727   t18742 = t1214 * t18741;
14728   t18744 = 0.10e2 / 0.3e1 * t4013 * t18064;
14729   t18745 = t3977 * t5125;
14730   t18746 = t1214 * t18615;
14731   t18753 = t3783 * t1252;
14732   t18754 = t66 * t18753;
14733   t18758 = t66 * t1136 * t4090;
14734   t18762 = 0.2e1 * t14484 * t18625;
14735   t18765 = t3934 * t1231;
14736   t18768 = t1258 * t25;
14737   t18769 = t1397 * t18768;
14738   t18772 = t5041 * t57;
14739   t18773 = t6453 * t18772;
14740   t18774 = t4933 * t1133;
14741   t18775 = t18774 * t443;
14742   t18776 = t4932 * t18775;
14743   t18781 = t5137 * t18378;
14744   t18785 = 0.2e1 / 0.3e1 * t13263 * t5142;
14745   t18787 = 0.2e1 / 0.3e1 * t14624 * t5142;
14746   t18789 = 0.2e1 / 0.3e1 * t13281 * t5142;
14747   t18790 = t1254 * t18400;
14748   t18792 = 0.2e1 / 0.3e1 * t3945 * t18790;
14749   t18793 = t1254 * t18404;
14750   t18795 = 0.2e1 / 0.3e1 * t3945 * t18793;
14751   t18796 = t1392 * t1258;
14752   t18799 = t423 * t114;
14753   t18800 = t18799 * t5138;
14754   t18802 = 0.5e1 / 0.27e2 * t5042 * t18800;
14755   t18803 = t4102 * t5048;
14756   t18805 = 0.16e2 / 0.9e1 * t3945 * t18803;
14757   t18806 = t400 * t4114;
14758   t18809 = t400 * t4117;
14759   t18812 = 0.5e1 / 0.3e1 * t18769 * t3941 + 0.5e1 / 0.12e2 * t18773 * t18776 - 0.5e1 / 0.72e2 * t18359 * t5139 - 0.5e1 / 0.72e2 * t5042 * t18781 + t18785 + t18787 + t18789 + t18792 + t18795 - t18796 * t5146 / 0.3e1 + t18802 - t18805 - t18806 * t5146 / 0.3e1 - t18809 * t5146 / 0.3e1;
14760   t18813 = t3768 * t74;
14761   t18816 = t3779 * t74;
14762   t18819 = t1134 * t440;
14763   t18822 = t18367 * t57;
14764   t18823 = t1397 * t18822;
14765   t18825 = t4932 * t18774 * t464;
14766   t18828 = t1397 * t15098;
14767   t18829 = t18774 * t404;
14768   t18830 = t4932 * t18829;
14769   t18833 = t1397 * t18772;
14770   t18834 = t73 * t1133;
14771   t18835 = t18834 * t439;
14772   t18836 = t4932 * t18835;
14773   t18840 = 0.10e2 / 0.3e1 * t13663 * t18390;
14774   t18842 = 0.2e1 * t397 * t5149;
14775   t18843 = t3811 * t1231;
14776   t18845 = 0.2e1 * t81 * t18843;
14777   t18846 = t1143 * t4041;
14778   t18848 = 0.2e1 * t81 * t18846;
14779   t18849 = t5149 * t443;
14780   t18851 = 0.8e1 * t400 * t18849;
14781   t18852 = -t5145 * t18813 / 0.3e1 - t5145 * t18816 / 0.3e1 - t5145 * t18819 / 0.3e1 + t5056 - t18420 - 0.5e1 / 0.36e2 * t18823 * t18825 - 0.5e1 / 0.36e2 * t18828 * t18830 - 0.5e1 / 0.36e2 * t18833 * t18836 - t18840 + t18842 + t18845 + t18848 + t18417 + t18423 - t18851;
14782   t18853 = t18812 + t18852;
14783   t18856 = t3788 * t18724 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t18729 + t3788 * t18734 / 0.3e1 + t18739 - t18740 - t18742 + t18744 + t18745 + t18746 + t3758 * t5104 / 0.6e1 + t3769 * t5104 / 0.6e1 + t3780 * t5104 / 0.6e1 + t1135 * t18754 / 0.6e1 + t1135 * t18758 / 0.6e1 + t18762 - 0.2e1 * t2448 * t5100 - 0.2e1 * t449 * t18765 + t18853 * t227 + t18469 * t1245;
14784   t18858 = t18645 + t18690 + t18722 + t18856;
14785   t18859 = t7 * t18858;
14786   t18862 = t1264 * t1224;
14787   t18865 = t1216 * t1272;
14788   t18868 = t368 * t5175;
14789   t18870 = params->d * t18858;
14790   t18875 = 0.3e1 * t4137 * t1221;
14791   t18877 = 0.6e1 * t1267 * t4000;
14792   t18879 = 0.3e1 * t1267 * t4003;
14793   t18887 = 0.6e1 * t873 * t5172;
14794   t18888 = t4114 * t1143;
14795   t18890 = 0.6e1 * t369 * t18888;
14796   t18891 = t4117 * t1143;
14797   t18893 = 0.6e1 * t369 * t18891;
14798   t18894 = t1258 * t3811;
14799   t18896 = 0.6e1 * t369 * t18894;
14800   t18897 = 0.6e1 * t1219 * t4143 + 0.3e1 * t1219 * t4146 + 0.3e1 * t1269 * t3994 + t18870 * t370 + 0.3e1 * t5166 * t875 + t18505 + t18508 + t18875 + t18877 + t18879 + t18887 + t18890 + t18893 + t18896 + t5079;
14801   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14802     v3rhosigma2[1] = t1217 * t4149 + t1224 * t4132 + t1265 * t4006 + t1272 * t3989 + t18859 * t372 + t18897 * t872 + t5162 * t878 + t5175 * t870 + t18511 + t18862 + t18865 + t18868;
14803 
14804   t18899 = t5213 * t372;
14805   t18902 = t4156 * t18064;
14806   t18904 = t13870 * t4940;
14807   t18906 = t4173 * t18071;
14808   t18908 = t4173 * t18075;
14809   t18910 = t4173 * t18079;
14810   t18912 = t4173 * t18202;
14811   t18918 = t97 * t1307;
14812   t18919 = t18918 * t443;
14813   t18920 = t1204 * t18919;
14814   t18923 = t96 * t1307;
14815   t18924 = t18923 * t464;
14816   t18925 = t1204 * t18924;
14817   t18934 = t3783 * t1307;
14818   t18935 = t66 * t18934;
14819   t18940 = t6445 * t5178;
14820   t18944 = t4926 * t4166 * t114;
14821   t18945 = t1397 * t18944;
14822   t18948 = t4152 * t4944 / 0.6e1 - 0.5e1 / 0.3e1 * t18902 + t18904 / 0.3e1 + t18906 / 0.3e1 + t18908 / 0.3e1 + t18910 / 0.3e1 + t18912 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t18207 + t4173 * t18212 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t18920 + t3788 * t18925 / 0.3e1 + t3758 * t5189 / 0.6e1 + t3769 * t5189 / 0.6e1 + t3780 * t5189 / 0.6e1 + t1135 * t18935 / 0.6e1 + t1277 * t18460 / 0.6e1 - 0.5e1 / 0.144e3 * t18940 * t5086 - 0.5e1 / 0.144e3 * t18945 * t5086;
14823   t18953 = t66 * t1136 * t4235;
14824   t18956 = t1276 * t114;
14825   t18957 = t1397 * t18956;
14826   t18964 = t5211 * t3986;
14827   t18965 = t5211 * t3981;
14828   t18967 = t1476 * t5192;
14829   t18969 = t2448 * t5192;
14830   t18978 = t4254 * t167 * t168;
14831   t18979 = t18978 * t1192;
14832   t18980 = t5211 * t3921;
14833   t18983 = -0.5e1 / 0.144e3 * t5179 * t18531 - 0.5e1 / 0.3e1 * t18065 + t1135 * t18953 / 0.6e1 - 0.5e1 / 0.72e2 * t18957 * t18552 - 0.5e1 / 0.72e2 * t5179 * t18557 - 0.5e1 / 0.72e2 * t5179 * t18562 - t18964 + 0.3e1 * t18965 - 0.2e1 * t18967 - 0.2e1 * t18969 + t5208 * t751 + t18067 / 0.3e1 + t18069 / 0.3e1 + t18072 / 0.3e1 + t18076 / 0.3e1 + t18080 / 0.3e1 + t18979 + t18980 + t4160 * t4944 / 0.6e1;
14834   t18989 = t6453 * t5178;
14835   t18992 = t4166 * t114;
14836   t18993 = t18992 * t5138;
14837   t18996 = t5200 * t18378;
14838   t18999 = t13263 * t5204;
14839   t19001 = t14624 * t5204;
14840   t19003 = t13281 * t5204;
14841   t19005 = t4247 * t5048;
14842   t19006 = t3945 * t19005;
14843   t19008 = t1309 * t18400;
14844   t19009 = t3945 * t19008;
14845   t19011 = t1309 * t18404;
14846   t19012 = t3945 * t19011;
14847   t19017 = t18409 + 0.5e1 / 0.144e3 * t5042 * t18993 + 0.5e1 / 0.144e3 * t5042 * t18996 - t18999 / 0.3e1 - t19001 / 0.3e1 - t19003 / 0.3e1 - t19006 / 0.3e1 - t19009 / 0.3e1 - t19012 / 0.3e1 + t5056 - t18420 - t18393 / 0.3e1 - t18395 / 0.3e1 - t18398 / 0.3e1;
14848   t19022 = t5041 * t1275;
14849   t19023 = t6453 * t19022;
14850   t19026 = t18367 * t1275;
14851   t19027 = t1397 * t19026;
14852   t19030 = t1397 * t15515;
14853   t19033 = t1397 * t19022;
14854   t19036 = t13930 * t18390;
14855   t19040 = -t18402 / 0.3e1 - t18406 / 0.3e1 + 0.5e1 / 0.3e1 * t18391 - t18386 / 0.3e1 - t18412 + t18415 + t18417 + t18423 - 0.5e1 / 0.24e2 * t19023 * t18776 + 0.5e1 / 0.72e2 * t19027 * t18825 + 0.5e1 / 0.72e2 * t19030 * t18830 + 0.5e1 / 0.72e2 * t19033 * t18836 + 0.5e1 / 0.3e1 * t19036 + 0.5e1 / 0.144e3 * t18359 * t5201;
14856   t19041 = t19017 + t19040;
14857   t19043 = t4235 * t1143;
14858   t19044 = t449 * t19043;
14859   t19046 = t1307 * t3811;
14860   t19047 = t449 * t19046;
14861   t19049 = t5198 * t464;
14862   t19055 = t4168 * t4944 / 0.6e1 + t1277 * t18456 / 0.6e1 - t4957 + 0.5e1 / 0.24e2 * t18989 * t18546 - t18095 - t18097 - t18100 + t19041 * t227 - 0.2e1 * t19044 - 0.2e1 * t19047 - 0.2e1 * t449 * t19049 + t18101 - t18103 - t447 * t5198 + t18107 + t18108 + t18191 - 0.5e1 / 0.144e3 * t5179 * t18051;
14863   t19056 = t13811 * t4940;
14864   t19058 = t13876 * t4940;
14865   t19066 = my_piecewise3(t296, 0, t18349);
14866   t19067 = t19066 * t34;
14867   t19068 = t5195 * t413;
14868   t19070 = t19067 / 0.2e1 + t19068 / 0.2e1 + t18354 / 0.2e1 + t18355 / 0.2e1;
14869   t19073 = t19056 / 0.3e1 + t19058 / 0.3e1 - t18192 - 0.2e1 * t18195 - t18198 + t18203 / 0.3e1 + t18215 / 0.3e1 - t18222 - t18428 - t18430 - 0.2e1 * t18431 - 0.2e1 * t18433 - 0.2e1 * t18437 + t18442 - t18445 - t18448 - t98 * t19070 + 0.3e1 * t18463 + t18470;
14870   t19075 = t18948 + t18983 + t19055 + t19073;
14871   t19076 = t7 * t19075;
14872   t19079 = t1315 * t1224;
14873   t19082 = t1216 * t1320;
14874   t19085 = t368 * t5223;
14875   t19087 = params->d * t19075;
14876   t19091 = t4263 * t1221;
14877   t19093 = t1318 * t4000;
14878   t19095 = t1318 * t4003;
14879   t19100 = t19087 * t370 + 0.3e1 * t5218 * t875 + 0.3e1 * t18490 + 0.6e1 * t18492 + 0.3e1 * t18494 + t18497 + t18500 + t18503 + t18505 + t18508 + 0.3e1 * t19091 + 0.6e1 * t19093 + 0.3e1 * t19095 + t5079;
14880   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14881     v3rhosigma2[2] = t1217 * t4267 + t1224 * t4258 + t1316 * t4006 + t1320 * t3989 + t19076 * t372 + t19100 * t872 + t5214 * t878 + t5223 * t870 + t18899 + t19079 + t19082 + t19085;
14882 
14883   t19102 = t5285 * t372;
14884   t19113 = t5227 * t114;
14885   t19114 = t6453 * t19113;
14886   t19118 = t25 * t5226 * t114;
14887   t19119 = t1397 * t19118;
14888   t19122 = t1397 * t19113;
14889   t19127 = t446 * t5235;
14890   t19131 = 0.16e2 / 0.9e1 * t4021 * t5104;
14891   t19134 = -0.4e1 / 0.3e1 * t13412 * t5094 - 0.4e1 / 0.3e1 * t13424 * t5094 - 0.4e1 / 0.3e1 * t4026 * t18715 - 0.4e1 / 0.3e1 * t4026 * t18719 - 0.4e1 / 0.3e1 * t4026 * t18724 + 0.5e1 / 0.6e1 * t19114 * t18083 - 0.5e1 / 0.18e2 * t19119 * t18091 - 0.5e1 / 0.18e2 * t19122 * t18057 - 0.5e1 / 0.18e2 * t19122 * t18060 - 0.2e1 * t19127 * t363 + t19131 - 0.2e1 / 0.3e1 * t4009 * t5104;
14892   t19142 = 0.1e1 / t54 / t20;
14893   t19143 = t4926 * t19142;
14894   t19144 = t1397 * t19143;
14895   t19146 = 0.20e2 / 0.27e2 * t19144 * t4936;
14896   t19147 = t174 * t5253;
14897   t19148 = t19147 * t3980;
14898   t19153 = t174 * t5257;
14899   t19154 = t19153 * t18219;
14900   t19162 = t5269 * t18363;
14901   t19165 = t5269 * t18369;
14902   t19168 = t5269 * t18373;
14903   t19171 = t19142 * t114;
14904   t19172 = t19171 * t5044;
14905   t19174 = 0.20e2 / 0.27e2 * t5042 * t19172;
14906   t19175 = t5269 * t18382;
14907   t19180 = t73 * t1231;
14908   t19182 = t66 * t19180 * t443;
14909   t19189 = t4102 * t5273;
14910   t19191 = 0.32e2 / 0.9e1 * t3945 * t19189;
14911   t19192 = t3958 * t1231;
14912   t19193 = t1254 * t19192;
14913   t19196 = t1204 * t4041;
14914   t19197 = t1254 * t19196;
14915   t19202 = t5235 * t443;
14916   t19205 = t1231 * t4041;
14917   t19208 = 0.5e1 / 0.36e2 * t18359 * t5270 - 0.5e1 / 0.6e1 * t18362 * t19162 + 0.5e1 / 0.18e2 * t18368 * t19165 + 0.5e1 / 0.18e2 * t3939 * t19168 - t19174 + 0.5e1 / 0.18e2 * t5042 * t19175 + 0.4e1 / 0.3e1 * t13263 * t5274 - 0.20e2 / 0.3e1 * t13663 * t19182 + 0.4e1 / 0.3e1 * t14624 * t5274 + 0.4e1 / 0.3e1 * t13281 * t5274 - t19191 + 0.4e1 / 0.3e1 * t3945 * t19193 + 0.4e1 / 0.3e1 * t3945 * t19197 + 0.2e1 * t397 * t5235 - 0.8e1 * t400 * t19202 + 0.4e1 * t81 * t19205 + t18417 - t18420 + t18423 + t5056;
14918   t19215 = -0.2e1 / 0.3e1 * t4017 * t5104 - 0.2e1 / 0.3e1 * t1227 * t18754 - 0.2e1 / 0.3e1 * t1227 * t18758 + t19146 + 0.3e1 * t1214 * t19148 + 0.6e1 * t5155 * t4125 - 0.3e1 * t1214 * t19154 + 0.2e1 * t5155 * t4077 - t3977 * t5259 + t19208 * t227 + t3977 * t5255 + 0.20e2 / 0.3e1 * t4013 * t18539 - 0.2e1 * t5236 * t857;
14919   t19219 = t5258 * t18104;
14920   t19222 = t1244 * t13538;
14921   t19226 = 0.32e2 / 0.9e1 * t13453 * t5094;
14922   t19234 = 0.7e1 / 0.576e3 * t18119;
14923   t19241 = t5244 * t3851;
14924   t19247 = t18150 * t5243 * t743;
14925   t19252 = t18155 * t5243 * t707 * t194;
14926   t19256 = t5117 * t1237 * t4058;
14927   t19262 = 0.7e1 / 0.576e3 * t18180;
14928   t19264 = -t18115 / 0.384e3 - t19234 - t18126 / 0.96e2 - t18131 / 0.384e3 - 0.4e1 * t5112 * t4073 + 0.4e1 * t5245 * t18139 + 0.2e1 * t19241 * t18143 + 0.2e1 * t18147 * t5249 - 0.6e1 * t5116 * t19247 - 0.4e1 * t5116 * t19252 + 0.4e1 * t5116 * t19256 - t18166 / 0.384e3 + t18173 / 0.192e3 + t18178 / 0.192e3 + t19262 + t18186 / 0.96e2;
14929   t19265 = t175 * t19264;
14930   t19266 = t19265 * t748;
14931   t19268 = t1252 * t4041;
14932   t19271 = t5253 * t748;
14933   t19272 = t19271 * t677;
14934   t19275 = t169 * t19266;
14935   t19276 = t5253 * t2093;
14936   t19277 = t19276 * t746;
14937   t19279 = t5257 * t2093;
14938   t19280 = t19279 * t677;
14939   t19283 = t4079 * t4075;
14940   t19286 = t5257 * t6117;
14941   t19287 = t19286 * t746;
14942   t19290 = 0.3e1 * t1768 * t19272 - 0.3e1 * t1768 * t19280 - t19277 * t2849 - 0.2e1 * t19283 * t2849 + 0.2e1 * t19287 * t2849 + t19275;
14943   t19291 = my_piecewise3(t296, 0, t19290);
14944   t19294 = my_piecewise3(t359, 0, t19290);
14945   t19298 = t19291 * t34 / 0.2e1 + t19294 * t46 / 0.2e1 + t5262 * t413 / 0.2e1 + t5264 * t436 / 0.2e1;
14946   t19300 = -0.2e1 * t5155 * t4129 + 0.2e1 * t1214 * t19219 - 0.2e1 * t1214 * t19222 + t19226 - 0.4e1 / 0.3e1 * t4026 * t18535 + 0.10e2 / 0.3e1 * t4013 * t18729 - 0.4e1 / 0.3e1 * t4026 * t18734 - t4957 + t1214 * t19266 - 0.4e1 * t449 * t19268 - t98 * t19298 - t18095;
14947   t19301 = t5254 * t3985;
14948   t19309 = t4090 * t1231;
14949   t19315 = t5267 * t464;
14950   t19318 = t6445 * t5227;
14951   t19324 = -t18097 - t18100 - t1214 * t19301 + 0.2e1 * t18738 * t1245 - 0.4e1 * t1476 * t5239 - 0.4e1 * t2448 * t5239 - 0.4e1 * t449 * t19309 + t5279 * t751 - 0.4e1 * t5499 * t4042 - 0.2e1 * t449 * t19315 - 0.5e1 / 0.36e2 * t19318 * t4936 - 0.5e1 / 0.36e2 * t5228 * t18044 - t447 * t5267;
14952   t19326 = t19134 + t19215 + t19300 + t19324;
14953   t19327 = t7 * t19326;
14954   t19331 = 0.2e1 * t1264 * t1272;
14955   t19336 = t368 * t5297;
14956   t19338 = params->d * t19326;
14957   t19350 = t464 * t5235;
14958   t19353 = t1258 * t4041;
14959   t19356 = 0.12e2 * t1267 * t4143 + 0.6e1 * t1267 * t4146 + 0.6e1 * t1269 * t4137 + t19338 * t370 + 0.6e1 * t19350 * t369 + 0.12e2 * t19353 * t369 + 0.3e1 * t5290 * t875 + 0.6e1 * t5294 * t873 + t18505 + t18508 + t5079;
14960   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14961     v3rhosigma2[3] = 0.2e1 * t1265 * t4149 + 0.2e1 * t1272 * t4132 + t19327 * t372 + t19356 * t872 + t5286 * t878 + t5297 * t870 + t19102 + t19331 + t19336;
14962 
14963   t19358 = t5322 * t372;
14964   t19359 = t363 * t57;
14965   t19360 = t19359 * t443;
14966   t19361 = t18543 * t19360;
14967   t19364 = t19359 * t404;
14968   t19365 = t18543 * t19364;
14969   t19368 = t19359 * t439;
14970   t19369 = t18555 * t19368;
14971   t19372 = t19359 * t464;
14972   t19373 = t18560 * t19372;
14973   t19384 = t12771 * t57;
14974   t19385 = t5044 * t19384;
14975   t19397 = 0.8e1 / 0.9e1 * t4021 * t5189;
14976   t19398 = -t18513 - t18515 - t18518 - t18520 - t18524 - 0.5e1 / 0.12e2 * t18989 * t19361 + 0.5e1 / 0.36e2 * t18957 * t19365 + 0.5e1 / 0.36e2 * t5179 * t19369 + 0.5e1 / 0.36e2 * t5179 * t19373 + t13870 * t5094 / 0.3e1 + t4173 * t18715 / 0.3e1 + t4173 * t18719 / 0.3e1 + t4173 * t18724 / 0.3e1 + 0.5e1 / 0.72e2 * t5179 * t19385 + 0.5e1 / 0.72e2 * t18940 * t5300 + 0.5e1 / 0.72e2 * t18945 * t5300 + 0.5e1 / 0.3e1 * t4013 * t18920 - 0.2e1 / 0.3e1 * t4026 * t18925 + t19397;
14977   t19411 = t18992 * t5312;
14978   t19420 = t4247 * t5273;
14979   t19423 = t1309 * t19192;
14980   t19426 = t1309 * t19196;
14981   t19429 = -0.5e1 / 0.72e2 * t18359 * t5313 - 0.5e1 / 0.72e2 * t5042 * t19411 - t13263 * t5316 / 0.3e1 - t14624 * t5316 / 0.3e1 - t13281 * t5316 / 0.3e1 - t3945 * t19420 / 0.3e1 - t3945 * t19423 / 0.3e1 - t3945 * t19426 / 0.3e1 + t18785 + t18787 + t18789 + t18792 + t18795 - t18805;
14982   t19430 = t4933 * t57;
14983   t19431 = t19430 * t443;
14984   t19432 = t4932 * t19431;
14985   t19436 = t4932 * t19430 * t464;
14986   t19439 = t19430 * t404;
14987   t19440 = t4932 * t19439;
14988   t19443 = t73 * t57;
14989   t19444 = t19443 * t439;
14990   t19445 = t4932 * t19444;
14991   t19450 = t5044 * t423;
14992   t19451 = t5200 * t19450;
14993   t19453 = 0.5e1 / 0.27e2 * t5042 * t19451;
14994   t19454 = 0.5e1 / 0.12e2 * t19023 * t19432 - 0.5e1 / 0.36e2 * t19027 * t19436 - 0.5e1 / 0.36e2 * t19030 * t19440 - 0.5e1 / 0.36e2 * t19033 * t19445 + 0.5e1 / 0.3e1 * t13930 * t19182 + t5056 + t19453 - t18420 - t18840 + t18842 + t18845 + t18848 + t18417 + t18423 - t18851;
14995   t19455 = t19429 + t19454;
14996   t19463 = t3763 * t423;
14997   t19464 = t5044 * t19463;
14998   t19466 = 0.5e1 / 0.27e2 * t5179 * t19464;
14999   t19475 = t1307 * t4041;
15000   t19478 = t4152 * t5104 / 0.6e1 + t4160 * t5104 / 0.6e1 + t4168 * t5104 / 0.6e1 + t1277 * t18754 / 0.6e1 + t1277 * t18758 / 0.6e1 + t19455 * t227 + t4173 * t18535 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t18729 + t4173 * t18734 / 0.3e1 - t19466 + t5211 * t4077 + 0.3e1 * t5211 * t4125 + t18978 * t1245 - 0.5e1 / 0.3e1 * t4156 * t18539 - 0.2e1 * t1476 * t5309 - t18568 - t18639 - t18642 - 0.2e1 * t449 * t19475;
15001   t19482 = t4235 * t1231;
15002   t19497 = -0.2e1 * t2448 * t5309 - 0.2e1 * t449 * t19482 - t4009 * t5189 / 0.3e1 - t4017 * t5189 / 0.3e1 - t1227 * t18935 / 0.3e1 - t1227 * t18953 / 0.3e1 - t18646 + t13811 * t5094 / 0.3e1 + t13876 * t5094 / 0.3e1 - t18650 - t18653 - t18656 - t18659 + t18663 - t18668 - t18670 - t18672 - t18674 - t18676;
15003   t19500 = -t4129 * t5211 + t5319 * t751 - t18095 - t18097 - t18100 + t18683 + t18695 - t18697 + t18700 - t18702 - t18705 + t18739 - t18740 - t18742 + t18744 + t18745 + t18746 + t18762 - t4957;
15004   t19502 = t19398 + t19478 + t19497 + t19500;
15005   t19503 = t7 * t19502;
15006   t19506 = t1315 * t1272;
15007   t19509 = t1264 * t1320;
15008   t19512 = t368 * t5331;
15009   t19514 = params->d * t19502;
15010   t19524 = 0.3e1 * t1269 * t4263 + 0.6e1 * t1318 * t4143 + 0.3e1 * t1318 * t4146 + t19514 * t370 + 0.3e1 * t5327 * t875 + t18505 + t18508 + t18875 + t18877 + t18879 + t18887 + t18890 + t18893 + t18896 + t5079;
15011   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15012     v3rhosigma2[4] = t1265 * t4267 + t1272 * t4258 + t1316 * t4149 + t1320 * t4132 + t19503 * t372 + t19524 * t872 + t5323 * t878 + t5331 * t870 + t19358 + t19506 + t19509 + t19512;
15013 
15014   t19526 = t5391 * t372;
15015   t19527 = t3763 * t4166;
15016   t19528 = t5044 * t19527;
15017   t19531 = t5334 * t114;
15018   t19532 = t1397 * t19531;
15019   t19549 = -0.5e1 / 0.72e2 * t5179 * t19528 - 0.5e1 / 0.72e2 * t19532 * t18057 - 0.5e1 / 0.72e2 * t19532 * t18060 - 0.10e2 / 0.3e1 * t18902 + 0.2e1 / 0.3e1 * t18904 + 0.2e1 / 0.3e1 * t18906 + 0.2e1 / 0.3e1 * t18908 + 0.2e1 / 0.3e1 * t18910 + 0.2e1 / 0.3e1 * t18912 - 0.5e1 / 0.3e1 * t4156 * t18920 + 0.2e1 / 0.3e1 * t4173 * t18925 + t4152 * t5189 / 0.3e1;
15020   t19560 = t6453 * t19531;
15021   t19564 = t25 * t5333 * t114;
15022   t19565 = t1397 * t19564;
15023   t19570 = t4160 * t5189 / 0.3e1 + t4168 * t5189 / 0.3e1 + t1277 * t18935 / 0.3e1 - 0.2e1 * t18964 + 0.6e1 * t18965 - 0.4e1 * t18967 - 0.4e1 * t18969 + 0.5e1 / 0.24e2 * t19560 * t18083 - 0.5e1 / 0.72e2 * t19565 * t18091 + 0.2e1 * t18979 + 0.2e1 * t18980 - t4957 - t18095;
15024   t19573 = t5381 * t464;
15025   t19580 = -t18097 - t18100 - t447 * t5381 - 0.2e1 * t449 * t19573 - 0.4e1 * t19044 - 0.4e1 * t19047 - t18103 + t18107 + t5388 * t751 + t18108 + t18191 + 0.2e1 / 0.3e1 * t19056;
15026   t19582 = t6445 * t5334;
15027   t19589 = t803 * t337;
15028   t19590 = t19589 * t209;
15029   t19591 = t4959 * t19590;
15030   t19592 = t340 * t351;
15031   t19593 = t19592 * t814;
15032   t19594 = t18226 * t19593;
15033   t19597 = t1616 * t5345;
15034   t19599 = t5344 * t19597 / 0.1152e4;
15035   t19601 = t4959 * t5342 * t209;
15036   t19602 = t826 * t351;
15037   t19603 = t19602 * t760;
15038   t19604 = t18226 * t19603;
15039   t19608 = t758 * t837 * t844;
15040   t19609 = t533 * t19608;
15041   t19612 = t1159 * t1291;
15042   t19613 = t19612 * t1162;
15043   t19616 = t1164 * t2291;
15044   t19621 = t5350 * t3851;
15045   t19625 = t4973 * t832;
15046   t19626 = t19625 * t4976;
15047   t19629 = t5355 * t5115;
15048   t19630 = t7461 * t803;
15049   t19632 = t19630 * t5349 * t844;
15050   t19635 = t2291 * t2214;
15051   t19638 = t19635 * t5349 * t813 * t329;
15052   t19641 = t2291 * t803;
15053   t19643 = t19641 * t1291 * t4201;
15054   t19646 = t19626 * t5363;
15055   t19649 = t5357 * t19589;
15056   t19650 = t5356 * t19649;
15057   t19651 = t340 * t844;
15058   t19652 = t276 * t19651;
15059   t19653 = t210 * t19652;
15060   t19656 = t2214 * t337;
15061   t19657 = t5362 * t19656;
15062   t19658 = t5356 * t19657;
15063   t19659 = t18299 * t815;
15064   t19662 = t105 * t758;
15065   t19663 = t5365 * t19662;
15066   t19665 = t5364 * t19663 / 0.1152e4;
15067   t19666 = t5362 * t19589;
15068   t19667 = t5356 * t19666;
15069   t19668 = t18299 * t828;
15070   t19671 = -t19591 * t19594 / 0.768e3 + t19599 + t19601 * t19604 / 0.1152e4 - t5344 * t19609 / 0.768e3 - 0.4e1 * t19613 * t4221 + 0.4e1 * t5351 * t19616 * t331 * t844 + 0.2e1 * t19621 * t4215 * t814 + 0.2e1 * t19626 * t5359 - 0.6e1 * t19629 * t19632 - 0.4e1 * t19629 * t19638 + 0.4e1 * t19629 * t19643 - t19646 * t5367 / 0.768e3 + t19650 * t19653 / 0.384e3 + t19658 * t19659 / 0.384e3 - t19665 - t19667 * t19668 / 0.1152e4;
15071   t19675 = t5370 * t2320;
15072   t19681 = t5373 * t7519;
15073   t19685 = my_piecewise3(t359, t169 * t19671 * t848 / 0.2e1 - t169 * t19675 * t847 / 0.2e1 - t169 * t4226 * t4223 + t169 * t19681 * t847, t18349);
15074   t19689 = t19685 * t46 / 0.2e1 + t5378 * t436 / 0.2e1 + t19067 / 0.2e1 + t19068 / 0.2e1;
15075   t19693 = t5383 * t18363;
15076   t19696 = t5383 * t18369;
15077   t19699 = t5383 * t18373;
15078   t19702 = t5044 * t4166;
15079   t19703 = t5200 * t19702;
15080   t19706 = t5383 * t18382;
15081   t19716 = 0.5e1 / 0.144e3 * t18359 * t5384 - 0.5e1 / 0.24e2 * t18362 * t19693 + 0.5e1 / 0.72e2 * t18368 * t19696 + 0.5e1 / 0.72e2 * t3939 * t19699 + 0.5e1 / 0.72e2 * t5042 * t19703 + 0.5e1 / 0.72e2 * t5042 * t19706 - 0.2e1 / 0.3e1 * t18999 + 0.10e2 / 0.3e1 * t19036 - 0.2e1 / 0.3e1 * t19001 - 0.2e1 / 0.3e1 * t19003 - 0.2e1 / 0.3e1 * t19006 - 0.2e1 / 0.3e1 * t19009 - 0.2e1 / 0.3e1 * t19012 + t18409 - t18412 + t18415 + t18417 - t18420 + t18423 + t5056;
15082   t19718 = 0.2e1 / 0.3e1 * t19058 - 0.5e1 / 0.144e3 * t19582 * t4936 - 0.5e1 / 0.144e3 * t5335 * t18044 - t18198 - t18222 + t1277 * t18953 / 0.3e1 - t18428 - t18430 - t98 * t19689 + t18442 - t18445 - t18448 + t19716 * t227;
15083   t19720 = t19549 + t19570 + t19580 + t19718;
15084   t19721 = t7 * t19720;
15085   t19725 = 0.2e1 * t1315 * t1320;
15086   t19730 = t368 * t5399;
15087   t19732 = params->d * t19720;
15088   t19739 = t19732 * t370 + 0.3e1 * t5396 * t875 + t18497 + t18500 + t18503 + t18505 + t18508 + 0.6e1 * t19091 + 0.12e2 * t19093 + 0.6e1 * t19095 + t5079;
15089   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15090     v3rhosigma2[5] = 0.2e1 * t1316 * t4267 + 0.2e1 * t1320 * t4258 + t19721 * t372 + t19739 * t872 + t5392 * t878 + t5399 * t870 + t19526 + t19725 + t19730;
15091 
15092   t19741 = t5044 * t4272;
15093   t19744 = t1199 * t4311;
15094   t19745 = t449 * t19744;
15095   t19747 = t2442 * t4955;
15096   t19748 = 0.2e1 * t19747;
15097   t19749 = t4302 * t4955;
15098   t19750 = 0.2e1 * t19749;
15099   t19751 = t1110 * t4954;
15100   t19752 = t449 * t19751;
15101   t19753 = 0.2e1 * t19752;
15102   t19754 = t3763 * t883;
15103   t19755 = t5044 * t19754;
15104   t19758 = t3763 * t4282;
15105   t19759 = t5044 * t19758;
15106   t19762 = t18056 * t4288;
15107   t19765 = t5044 * t4292;
15108   t19768 = t1191 * t14434;
15109   t19770 = 0.2e1 * t1214 * t19768;
15110   t19771 = t1144 * t912;
15111   t19772 = t12791 * t19771;
15112   t19773 = t3762 * t19772;
15113   t19775 = t4302 * t4951;
15114   t19777 = 0.5e1 / 0.24e2 * t18082 * t19741 - 0.4e1 * t19745 - t19748 - t19750 - t19753 - 0.5e1 / 0.72e2 * t18089 * t19755 - 0.5e1 / 0.72e2 * t18049 * t19759 - 0.5e1 / 0.72e2 * t18055 * t19762 - 0.5e1 / 0.72e2 * t18055 * t19765 - t19770 - 0.10e2 / 0.3e1 * t19773 - 0.4e1 * t19775;
15115   t19778 = t4391 * t1143;
15116   t19779 = t449 * t19778;
15117   t19781 = t2442 * t4951;
15118   t19783 = t2093 * t999;
15119   t19784 = t18218 * t19783;
15120   t19786 = 0.3e1 * t1214 * t19784;
15121   t19787 = t5039 * t928;
15122   t19790 = t14152 * t4940;
15123   t19792 = t14156 * t4940;
15124   t19794 = t14848 * t4940;
15125   t19796 = t4412 * t4939;
15126   t19797 = t3788 * t19796;
15127   t19799 = t929 * t1143;
15128   t19800 = t1204 * t19799;
15129   t19801 = t3788 * t19800;
15130   t19803 = t14718 * t1143;
15131   t19804 = t1204 * t19803;
15132   t19805 = t3788 * t19804;
15133   t19808 = t5060 * t4434;
15134   t19810 = t18227 * t963;
15135   t19811 = t18226 * t19810;
15136   t19814 = t18242 * t932;
15137   t19815 = t18226 * t19814;
15138   t19818 = t570 * t979;
15139   t19819 = t474 * t19818;
15140   t19820 = t533 * t19819;
15141   t19832 = t4973 * t972;
15142   t19833 = t19832 * t4976;
15143   t19836 = t4967 * t979;
15144   t19837 = t18270 * t19836;
15145   t19842 = t18275 * t4967 * t962 * t265;
15146   t19845 = t1156 * t4325;
15147   t19846 = t18281 * t19845;
15148   t19849 = t19833 * t4985;
15149   t19852 = t277 * t979;
15150   t19853 = t276 * t19852;
15151   t19854 = t210 * t19853;
15152   t19857 = t18299 * t964;
15153   t19860 = t18299 * t968;
15154   t19863 = -t18225 * t19811 / 0.768e3 + t18239 + t18241 * t19815 / 0.1152e4 - t4962 * t19820 / 0.768e3 - 0.4e1 * t18253 * t4341 + 0.4e1 * t4969 * t18256 * t267 * t979 + 0.2e1 * t18261 * t3858 * t963 + 0.2e1 * t19833 * t4981 - 0.6e1 * t18269 * t19837 - 0.4e1 * t18269 * t19842 + 0.4e1 * t18269 * t19846 - t19849 * t4989 / 0.768e3 + t18290 * t19854 / 0.384e3 + t18298 * t19857 / 0.384e3 - t18310 - t18312 * t19860 / 0.1152e4;
15155   t19875 = t18330 * t999;
15156   t19879 = t2746 * t18112 * t1014;
15157   t19880 = t18111 * t19879;
15158   t19883 = t1905 * t18112 * t999;
15159   t19884 = t18123 * t19883;
15160   t19887 = t2746 * t18128 * t1030;
15161   t19888 = t18123 * t19887;
15162   t19893 = t18137 * t196 * t1030;
15163   t19896 = t3911 * t1014;
15164   t19899 = t4973 * t1023;
15165   t19900 = t19899 * t4976;
15166   t19903 = t5007 * t1030;
15167   t19904 = t18150 * t19903;
15168   t19908 = t5007 * t1013 * t194;
15169   t19909 = t18155 * t19908;
15170   t19912 = t1181 * t4359;
15171   t19913 = t5117 * t19912;
15172   t19916 = t19900 * t5021;
15173   t19917 = t19916 * t211;
15174   t19919 = t103 * t1030;
15175   t19920 = t209 * t19919;
15176   t19921 = t207 * t19920;
15177   t19922 = t18169 * t19921;
15178   t19924 = t18177 * t1016;
15179   t19926 = t209 * t2796;
15180   t19927 = t18182 * t19926;
15181   t19928 = t5022 * t19927;
15182   t19930 = -t19880 / 0.1536e4 - t18120 - t19884 / 0.384e3 - t19888 / 0.1536e4 - 0.4e1 * t18134 * t4375 + 0.4e1 * t5009 * t19893 + 0.2e1 * t18142 * t19896 + 0.2e1 * t19900 * t5017 - 0.6e1 * t5116 * t19904 - 0.4e1 * t5116 * t19909 + 0.4e1 * t5116 * t19913 - t19917 / 0.1536e4 + t19922 / 0.768e3 + t19924 / 0.768e3 + t18181 + t19928 / 0.384e3;
15183   t19931 = t175 * t19930;
15184   t19932 = t19931 * t748;
15185   t19933 = t169 * t19932;
15186   t19934 = t18335 * t1033;
15187   t19936 = t18338 * t999;
15188   t19939 = t3923 * t4377;
15189   t19942 = t18345 * t1033;
15190   t19945 = 0.3e1 * t1768 * t19875 - 0.3e1 * t1768 * t19936 - t19934 * t2849 - 0.2e1 * t19939 * t2849 + 0.2e1 * t19942 * t2849 + t19933;
15191   t19946 = my_piecewise3(t296, t169 * t19863 * t581 / 0.2e1 - t169 * t18320 * t982 / 0.2e1 - t169 * t3869 * t4343 + t169 * t18326 * t982, t19945);
15192   t19949 = my_piecewise3(t359, 0, t19945);
15193   t19950 = t19949 * t46;
15194   t19951 = t5036 * t905;
15195   t19953 = t19946 * t34 / 0.2e1 + t5034 * t886 / 0.2e1 + t19950 / 0.2e1 + t19951 / 0.2e1;
15196   t19955 = -0.4e1 * t19779 - 0.4e1 * t19781 - t19786 - 0.2e1 * t449 * t19787 + 0.2e1 / 0.3e1 * t19790 + 0.2e1 / 0.3e1 * t19792 + 0.2e1 / 0.3e1 * t19794 + 0.2e1 / 0.3e1 * t19797 + 0.2e1 / 0.3e1 * t19801 + 0.2e1 / 0.3e1 * t19805 - t916 * t5039 + 0.6e1 * t19808 - t98 * t19953;
15197   t19958 = 0.2e1 * t4948 * t1110;
15198   t19959 = t915 * t4947;
15199   t19961 = 0.2e1 * t19959 * t363;
15200   t19962 = t7591 * t5041;
15201   t19965 = t5044 * t912;
15202   t19966 = t5043 * t19965;
15203   t19969 = t5044 * t928;
15204   t19970 = t5043 * t19969;
15205   t19973 = t5044 * t883;
15206   t19974 = t5043 * t19973;
15207   t19977 = t5044 * t4282;
15208   t19978 = t18377 * t19977;
15209   t19981 = t18056 * t908;
15210   t19982 = t5043 * t19981;
15211   t19985 = t14614 * t5049;
15212   t19988 = t66 * t18388 * t912;
15213   t19989 = t13245 * t19988;
15214   t19991 = t928 * t25;
15215   t19992 = t400 * t19991;
15216   t19993 = t19992 * t5049;
15217   t19995 = t14645 * t5049;
15218   t19997 = t4408 * t5048;
15219   t19998 = t3945 * t19997;
15220   t20000 = t4412 * t1143;
15221   t20001 = t1203 * t20000;
15222   t20002 = t3945 * t20001;
15223   t20004 = t1204 * t4311;
15224   t20005 = t1203 * t20004;
15225   t20006 = t3945 * t20005;
15226   t20009 = 0.2e1 * t881 * t4947;
15227   t20010 = t4947 * t912;
15228   t20012 = 0.8e1 * t400 * t20010;
15229   t20013 = t1143 * t4311;
15230   t20015 = 0.4e1 * t81 * t20013;
15231   t20016 = t881 * t5054;
15232   t20017 = 0.2e1 * t20016;
15233   t20018 = t5054 * t912;
15234   t20019 = t400 * t20018;
15235   t20020 = 0.8e1 * t20019;
15236   t20021 = t928 * t4954;
15237   t20022 = t81 * t20021;
15238   t20023 = 0.2e1 * t20022;
15239   t20024 = 0.5e1 / 0.144e3 * t19962 * t5045 - 0.5e1 / 0.24e2 * t18362 * t19966 + 0.5e1 / 0.72e2 * t18368 * t19970 + 0.5e1 / 0.72e2 * t3939 * t19974 + 0.5e1 / 0.72e2 * t5042 * t19978 + 0.5e1 / 0.72e2 * t5042 * t19982 - 0.2e1 / 0.3e1 * t19985 + 0.10e2 / 0.3e1 * t19989 - 0.2e1 / 0.3e1 * t19993 - 0.2e1 / 0.3e1 * t19995 - 0.2e1 / 0.3e1 * t19998 - 0.2e1 / 0.3e1 * t20002 - 0.2e1 / 0.3e1 * t20006 + t20009 - t20012 + t20015 + t20017 - t20020 + t20023 + t5056;
15240   t20027 = 0.4e1 * t5097 * t4312;
15241   t20029 = t4287 * t1199;
15242   t20030 = t66 * t20029;
15243   t20033 = t5060 * t4438;
15244   t20035 = t18439 * t4433;
15245   t20037 = 0.3e1 * t1214 * t20035;
15246   t20038 = t5060 * t4379;
15247   t20041 = t66 * t1136 * t4391;
15248   t20046 = -t19958 - t19961 + t20024 * t227 - t20027 - t4957 + t5057 * t1037 + t1135 * t20030 / 0.3e1 - 0.2e1 * t20033 + t20037 + 0.2e1 * t20038 + t1135 * t20041 / 0.3e1 + t4269 * t4944 / 0.3e1;
15249   t20051 = t4431 * t5031;
15250   t20053 = t4427 * t167 * t168;
15251   t20054 = t20053 * t1192;
15252   t20056 = t4431 * t5027;
15253   t20057 = t1214 * t19932;
15254   t20058 = t7591 * t4928;
15255   t20062 = t4932 * t4934 * t1110;
15256   t20065 = t5026 * t2850;
15257   t20066 = t1214 * t20065;
15258   t20067 = t5030 * t7889;
15259   t20069 = 0.2e1 * t1214 * t20067;
15260   t20070 = t18210 * t928;
15261   t20071 = t1204 * t20070;
15262   t20074 = t3789 * t4311;
15263   t20075 = t1204 * t20074;
15264   t20076 = t3788 * t20075;
15265   t20078 = t18205 * t912;
15266   t20079 = t1204 * t20078;
15267   t20082 = t4277 * t4944 / 0.3e1 + t4284 * t4944 / 0.3e1 - t20051 + 0.2e1 * t20054 + t20056 + t20057 - 0.5e1 / 0.144e3 * t20058 * t4936 - 0.5e1 / 0.144e3 * t4929 * t20062 - t20066 + t20069 + 0.2e1 / 0.3e1 * t3788 * t20071 + 0.2e1 / 0.3e1 * t20076 - 0.5e1 / 0.3e1 * t3762 * t20079;
15268   t20084 = t19777 + t19955 + t20046 + t20082;
15269   t20085 = t7 * t20084;
15270   t20093 = params->d * t20084;
15271   t20097 = t4445 * t1221;
15272   t20099 = t1219 * t4451;
15273   t20101 = t1219 * t4454;
15274   t20104 = 0.6e1 * t1125 * t5074;
15275   t20105 = t928 * t4947;
15276   t20107 = 0.6e1 * t369 * t20105;
15277   t20108 = t1208 * t4311;
15278   t20110 = 0.12e2 * t369 * t20108;
15279   t20111 = t1125 * t5077;
15280   t20112 = 0.3e1 * t20111;
15281   t20113 = t5054 * t928;
15282   t20114 = t369 * t20113;
15283   t20115 = 0.6e1 * t20114;
15284   t20116 = 0.3e1 * t1127 * t5070 + t20093 * t370 + 0.6e1 * t20097 + 0.12e2 * t20099 + 0.6e1 * t20101 + t20104 + t20107 + t20110 + t20112 + t20115 + t5079;
15285   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15286     v3rhosigma2[6] = t1123 * t5080 + t1130 * t5066 + 0.2e1 * t1217 * t4457 + 0.2e1 * t1224 * t4441 + t20085 * t372 + t20116 * t872 + t18039 + t18479 + t18484;
15287 
15288   t20118 = t18732 * t928;
15289   t20119 = t1204 * t20118;
15290   t20122 = t18727 * t912;
15291   t20123 = t1204 * t20122;
15292   t20132 = t4412 * t5093;
15293   t20135 = t929 * t1231;
15294   t20136 = t1204 * t20135;
15295   t20139 = t14718 * t1231;
15296   t20140 = t1204 * t20139;
15297   t20144 = 0.2e1 / 0.3e1 * t4026 * t19800;
15298   t20146 = 0.2e1 / 0.3e1 * t4026 * t19804;
15299   t20148 = 0.2e1 / 0.3e1 * t4026 * t20075;
15300   t20153 = t18774 * t912;
15301   t20154 = t4932 * t20153;
15302   t20158 = t4932 * t18774 * t928;
15303   t20161 = t18774 * t883;
15304   t20162 = t4932 * t20161;
15305   t20165 = t18834 * t908;
15306   t20166 = t4932 * t20165;
15307   t20170 = 0.10e2 / 0.3e1 * t13663 * t19988;
15308   t20171 = t5149 * t912;
15309   t20173 = 0.8e1 * t400 * t20171;
15310   t20175 = 0.2e1 * t881 * t5149;
15311   t20176 = t4311 * t1231;
15312   t20178 = 0.2e1 * t81 * t20176;
15313   t20179 = 0.5e1 / 0.12e2 * t18773 * t20154 - 0.5e1 / 0.36e2 * t18823 * t20158 - 0.5e1 / 0.36e2 * t18828 * t20162 - 0.5e1 / 0.36e2 * t18833 * t20166 - t20170 + t18802 - t18805 + t5056 + t20017 + t20023 - t20020 - t20173 + t20175 + t20178;
15314   t20180 = t1143 * t4483;
15315   t20182 = 0.2e1 * t81 * t20180;
15316   t20187 = t5137 * t19977;
15317   t20191 = 0.2e1 / 0.3e1 * t14614 * t5142;
15318   t20193 = 0.2e1 / 0.3e1 * t19992 * t5142;
15319   t20195 = 0.2e1 / 0.3e1 * t14645 * t5142;
15320   t20196 = t1254 * t20000;
15321   t20198 = 0.2e1 / 0.3e1 * t3945 * t20196;
15322   t20199 = t1254 * t20004;
15323   t20201 = 0.2e1 / 0.3e1 * t3945 * t20199;
15324   t20202 = t2378 * t1258;
15325   t20205 = t400 * t4547;
15326   t20208 = t400 * t4550;
15327   t20211 = t4276 * t74;
15328   t20214 = t4283 * t74;
15329   t20217 = t1134 * t909;
15330   t20220 = t20182 + 0.5e1 / 0.3e1 * t18769 * t4397 - 0.5e1 / 0.72e2 * t19962 * t5139 - 0.5e1 / 0.72e2 * t5042 * t20187 + t20191 + t20193 + t20195 + t20198 + t20201 - t20202 * t5146 / 0.3e1 - t20205 * t5146 / 0.3e1 - t20208 * t5146 / 0.3e1 - t5145 * t20211 / 0.3e1 - t5145 * t20214 / 0.3e1 - t5145 * t20217 / 0.3e1;
15331   t20221 = t20179 + t20220;
15332   t20224 = 0.10e2 / 0.3e1 * t4013 * t19772;
15333   t20225 = t1232 * t912;
15334   t20226 = t12791 * t20225;
15335   t20229 = t3788 * t20119 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t20123 - t19748 - t19750 - t19753 + t14152 * t5094 / 0.3e1 + t14156 * t5094 / 0.3e1 + t14848 * t5094 / 0.3e1 + t3788 * t20132 / 0.3e1 + t3788 * t20136 / 0.3e1 + t3788 * t20140 / 0.3e1 - t20144 - t20146 - t20148 + 0.5e1 / 0.3e1 * t4013 * t20079 - 0.2e1 / 0.3e1 * t4026 * t20071 + t20221 * t227 + t20224 - 0.5e1 / 0.3e1 * t3762 * t20226;
15336   t20230 = t18544 * t912;
15337   t20231 = t18543 * t20230;
15338   t20234 = t18544 * t883;
15339   t20235 = t18543 * t20234;
15340   t20238 = t18544 * t908;
15341   t20239 = t18555 * t20238;
15342   t20242 = t18544 * t928;
15343   t20243 = t18560 * t20242;
15344   t20256 = 0.2e1 * t2442 * t5107;
15345   t20258 = 0.2e1 * t4302 * t5107;
15346   t20259 = t4527 * t1143;
15347   t20261 = 0.2e1 * t449 * t20259;
15348   t20266 = t4391 * t1231;
15349   t20269 = t1190 * t1033;
15350   t20270 = t13542 * t20269;
15351   t20272 = 0.2e1 * t14484 * t20270;
15352   t20273 = -0.5e1 / 0.12e2 * t18542 * t20231 + 0.5e1 / 0.36e2 * t18550 * t20235 + 0.5e1 / 0.36e2 * t5084 * t20239 + 0.5e1 / 0.36e2 * t5084 * t20243 - t4459 * t4944 / 0.3e1 - t4465 * t4944 / 0.3e1 - t1227 * t20030 / 0.3e1 - t1227 * t20041 / 0.3e1 + t5152 * t1037 - t18681 + t18695 - t4957 - t20256 - t20258 - t20261 - 0.2e1 * t2442 * t5100 - 0.2e1 * t4302 * t5100 - 0.2e1 * t449 * t20266 + t20272;
15353   t20275 = t1190 * t999;
15354   t20276 = t4079 * t20275;
15355   t20278 = 0.3e1 * t13345 * t20276;
15356   t20281 = t915 * t1143;
15357   t20283 = 0.2e1 * t20281 * t1232;
15358   t20284 = t82 * t4311;
15359   t20286 = 0.2e1 * t20284 * t1232;
15360   t20288 = 0.2e1 * t5097 * t4478;
15361   t20289 = t1244 * t14434;
15362   t20290 = t1214 * t20289;
15363   t20292 = 0.2e1 * t5097 * t4484;
15364   t20294 = t4553 * t167 * t168;
15365   t20295 = t20294 * t1192;
15366   t20296 = t4431 * t5159;
15367   t20297 = t4287 * t1252;
15368   t20298 = t66 * t20297;
15369   t20302 = t66 * t1136 * t4527;
15370   t20305 = t4431 * t5125;
15371   t20309 = t1159 * t4497;
15372   t20310 = t20309 * t1162;
15373   t20319 = t19899 * t5115;
15374   t20323 = t18150 * t5118 * t1030;
15375   t20326 = t15258 * t4371;
15376   t20329 = t4497 * t1181;
15377   t20330 = t5117 * t20329;
15378   t20333 = t1237 * t4359;
15379   t20334 = t5117 * t20333;
15380   t20341 = -t19880 / 0.768e3 - t18574 - t19884 / 0.192e3 - t19888 / 0.768e3 - 0.2e1 * t20310 * t1188 + 0.4e1 * t18581 * t4367 + 0.2e1 * t18581 * t4372 - 0.2e1 * t5112 * t4375 + 0.2e1 * t20319 * t5119 - 0.6e1 * t5116 * t20323 - 0.4e1 * t18596 * t20326 + 0.2e1 * t5116 * t20330 + 0.2e1 * t5116 * t20334 - t19917 / 0.768e3 + t19922 / 0.384e3 + t19924 / 0.384e3 + t18611 + t19928 / 0.192e3;
15381   t20342 = t175 * t20341;
15382   t20343 = t20342 * t748;
15383   t20344 = t1214 * t20343;
15384   t20345 = t7591 * t5083;
15385   t20348 = t14713 * t1133;
15386   t20349 = t5044 * t20348;
15387   t20352 = t3789 * t4483;
15388   t20353 = t1204 * t20352;
15389   t20356 = t5155 * t4379;
15390   t20357 = -t20278 + t20053 * t1245 + t5060 * t4515 - t20283 - t20286 - t20288 + t18707 - t20290 - t20292 + t20295 - t20296 + t1135 * t20298 / 0.6e1 + t1135 * t20302 / 0.6e1 + t20305 + t20344 + 0.5e1 / 0.72e2 * t20345 * t5086 + 0.5e1 / 0.72e2 * t5084 * t20349 + t3788 * t20353 / 0.3e1 + t20356;
15391   t20358 = t18569 * t999;
15392   t20361 = t169 * t20343;
15393   t20362 = t18617 * t1033;
15394   t20366 = t15289 * t1190;
15395   t20370 = t4079 * t4377;
15396   t20372 = -0.3e1 * t1768 * t20276 + 0.3e1 * t1768 * t20358 + 0.2e1 * t20270 * t2849 - t20362 * t2849 - t20366 * t2849 - t20370 * t2849 + t20361;
15397   t20373 = my_piecewise3(t296, 0, t20372);
15398   t20376 = my_piecewise3(t359, 0, t20372);
15399   t20380 = t20373 * t34 / 0.2e1 + t20376 * t46 / 0.2e1 + t5130 * t886 / 0.2e1 + t5132 * t905 / 0.2e1;
15400   t20381 = t98 * t20380;
15401   t20391 = 0.2e1 / 0.3e1 * t14978 * t4940;
15402   t20393 = 0.2e1 / 0.3e1 * t14972 * t4940;
15403   t20395 = 0.2e1 / 0.3e1 * t4026 * t19796;
15404   t20396 = t4514 * t3923;
15405   t20397 = t1214 * t20396;
15406   t20398 = t5155 * t4438;
15407   t20399 = t5124 * t2850;
15408   t20400 = t1214 * t20399;
15409   t20404 = 0.3e1 * t5155 * t4434;
15410   t20406 = t18660 * t4433;
15411   t20408 = 0.3e1 * t1214 * t20406;
15412   t20409 = t1252 * t4311;
15413   t20411 = 0.2e1 * t449 * t20409;
15414   t20412 = t5135 * t928;
15415   t20414 = 0.2e1 * t449 * t20412;
15416   t20415 = t1199 * t4483;
15417   t20418 = t916 * t5135;
15418   t20419 = -t20381 + t4269 * t5104 / 0.6e1 + t4277 * t5104 / 0.6e1 + t4284 * t5104 / 0.6e1 + 0.5e1 / 0.72e2 * t5084 * t19759 - t20391 - t20393 - t20395 - t20397 - t20398 - t20400 + 0.3e1 * t5060 * t4557 + t20404 - t5060 * t4561 + t20408 - t20411 - t20414 - 0.2e1 * t449 * t20415 - t20418;
15419   t20421 = t20229 + t20273 + t20357 + t20419;
15420   t20422 = t7 * t20421;
15421   t20430 = params->d * t20421;
15422   t20435 = 0.3e1 * t4568 * t1221;
15423   t20437 = 0.6e1 * t1267 * t4451;
15424   t20439 = 0.3e1 * t1267 * t4454;
15425   t20447 = 0.6e1 * t1125 * t5172;
15426   t20448 = t4547 * t1143;
15427   t20450 = 0.6e1 * t369 * t20448;
15428   t20451 = t4550 * t1143;
15429   t20453 = 0.6e1 * t369 * t20451;
15430   t20454 = t1258 * t4311;
15431   t20456 = 0.6e1 * t369 * t20454;
15432   t20457 = 0.3e1 * t1127 * t5166 + 0.6e1 * t1219 * t4574 + 0.3e1 * t1219 * t4577 + 0.3e1 * t1269 * t4445 + t20430 * t370 + t20112 + t20115 + t20435 + t20437 + t20439 + t20447 + t20450 + t20453 + t20456 + t5079;
15433   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15434     v3rhosigma2[7] = t1123 * t5175 + t1130 * t5162 + t1217 * t4580 + t1224 * t4564 + t1265 * t4457 + t1272 * t4441 + t20422 * t372 + t20457 * t872 + t18511 + t18862 + t18865 + t18868;
15435 
15436   t20459 = t2442 * t5192;
15437   t20462 = t4173 * t20075;
15438   t20468 = t7591 * t5178;
15439   t20472 = t18918 * t912;
15440   t20473 = t1204 * t20472;
15441   t20479 = t18923 * t928;
15442   t20480 = t1204 * t20479;
15443   t20485 = -0.2e1 * t20459 - 0.2e1 * t19745 - t19748 - t19750 - t19753 - t19770 + t20462 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t20079 + t4173 * t20071 / 0.3e1 - 0.5e1 / 0.144e3 * t20468 * t5086 - 0.5e1 / 0.3e1 * t19773 - 0.5e1 / 0.6e1 * t3762 * t20473 - 0.2e1 * t19775 - 0.2e1 * t19779 - 0.2e1 * t19781 - t19786 + t3788 * t20480 / 0.3e1 - 0.5e1 / 0.144e3 * t5179 * t19759;
15444   t20486 = t15503 * t4940;
15445   t20488 = t15686 * t4940;
15446   t20490 = t15610 * t4940;
15447   t20492 = t4173 * t19796;
15448   t20494 = t4173 * t19800;
15449   t20496 = t4173 * t19804;
15450   t20504 = my_piecewise3(t296, 0, t19945);
15451   t20505 = t20504 * t34;
15452   t20506 = t5195 * t886;
15453   t20508 = t20505 / 0.2e1 + t20506 / 0.2e1 + t19950 / 0.2e1 + t19951 / 0.2e1;
15454   t20518 = t4287 * t1307;
15455   t20519 = t66 * t20518;
15456   t20522 = t20486 / 0.3e1 + t20488 / 0.3e1 + t20490 / 0.3e1 + t20492 / 0.3e1 + t20494 / 0.3e1 + t20496 / 0.3e1 + t19790 / 0.3e1 + t19792 / 0.3e1 + t19794 / 0.3e1 + t19797 / 0.3e1 + t19801 / 0.3e1 + t19805 / 0.3e1 - t98 * t20508 + 0.3e1 * t19808 + t5208 * t1037 + t4269 * t5189 / 0.6e1 + t4277 * t5189 / 0.6e1 + t4284 * t5189 / 0.6e1 + t1135 * t20519 / 0.6e1;
15457   t20525 = t66 * t1136 * t4656;
15458   t20528 = t5198 * t928;
15459   t20531 = t1307 * t4311;
15460   t20532 = t449 * t20531;
15461   t20546 = t4156 * t19772;
15462   t20549 = t1135 * t20525 / 0.6e1 - 0.2e1 * t449 * t20528 - 0.2e1 * t20532 + 0.5e1 / 0.24e2 * t18989 * t20231 - 0.5e1 / 0.72e2 * t18957 * t20235 - 0.5e1 / 0.72e2 * t5179 * t20239 - 0.5e1 / 0.72e2 * t5179 * t20243 + t4582 * t4944 / 0.6e1 + t4588 * t4944 / 0.6e1 - t19958 - 0.5e1 / 0.3e1 * t20546 - t19961 - t20027 - t4957 - t20033 + t20037 + t20038 - t916 * t5198;
15463   t20550 = t5211 * t4379;
15464   t20551 = t5211 * t4438;
15465   t20553 = t4926 * t4595 * t114;
15466   t20554 = t1397 * t20553;
15467   t20560 = t4675 * t167 * t168;
15468   t20561 = t20560 * t1192;
15469   t20562 = t4302 * t5192;
15470   t20564 = t4656 * t1143;
15471   t20565 = t449 * t20564;
15472   t20567 = t5211 * t4434;
15473   t20583 = t13930 * t19988;
15474   t20587 = t4595 * t114;
15475   t20588 = t20587 * t5138;
15476   t20591 = t5200 * t19977;
15477   t20594 = t14614 * t5204;
15478   t20596 = t19992 * t5204;
15479   t20598 = t14645 * t5204;
15480   t20600 = t4668 * t5048;
15481   t20601 = t3945 * t20600;
15482   t20603 = t1309 * t20000;
15483   t20604 = t3945 * t20603;
15484   t20606 = t1309 * t20004;
15485   t20607 = t3945 * t20606;
15486   t20609 = -0.5e1 / 0.24e2 * t19023 * t20154 + 0.5e1 / 0.72e2 * t19027 * t20158 + 0.5e1 / 0.72e2 * t19030 * t20162 + 0.5e1 / 0.72e2 * t19033 * t20166 + 0.5e1 / 0.3e1 * t20583 + 0.5e1 / 0.144e3 * t19962 * t5201 + 0.5e1 / 0.144e3 * t5042 * t20588 + 0.5e1 / 0.144e3 * t5042 * t20591 - t20594 / 0.3e1 - t20596 / 0.3e1 - t20598 / 0.3e1 - t20601 / 0.3e1 - t20604 / 0.3e1 - t20607 / 0.3e1;
15487   t20617 = t5056 + 0.5e1 / 0.3e1 * t19989 - t20012 + t20015 + t20017 + t20023 + t20009 - t20020 - t19985 / 0.3e1 - t19993 / 0.3e1 - t19995 / 0.3e1 - t19998 / 0.3e1 - t20002 / 0.3e1 - t20006 / 0.3e1;
15488   t20618 = t20609 + t20617;
15489   t20621 = t20550 - t20551 - t20051 + t20054 - 0.5e1 / 0.144e3 * t20554 * t5086 - 0.5e1 / 0.144e3 * t5179 * t20349 + t20561 - 0.2e1 * t20562 - 0.2e1 * t20565 + t20056 + t20057 + 0.3e1 * t20567 + t4597 * t4944 / 0.6e1 + t1277 * t20030 / 0.6e1 + t1277 * t20041 / 0.6e1 + t20618 * t227 - t20066 + t20069 + t20076 / 0.3e1;
15490   t20623 = t20485 + t20522 + t20549 + t20621;
15491   t20624 = t7 * t20623;
15492   t20632 = params->d * t20623;
15493   t20636 = t4683 * t1221;
15494   t20638 = t1318 * t4451;
15495   t20640 = t1318 * t4454;
15496   t20645 = 0.3e1 * t1127 * t5218 + t20632 * t370 + 0.3e1 * t20097 + 0.6e1 * t20099 + 0.3e1 * t20101 + t20104 + t20107 + t20110 + t20112 + t20115 + 0.3e1 * t20636 + 0.6e1 * t20638 + 0.3e1 * t20640 + t5079;
15497   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15498     v3rhosigma2[8] = t1123 * t5223 + t1130 * t5214 + t1217 * t4687 + t1224 * t4679 + t1316 * t4457 + t1320 * t4441 + t20624 * t372 + t20645 * t872 + t18899 + t19079 + t19082 + t19085;
15499 
15500   t20651 = t7591 * t5227;
15501   t20668 = t5243 * t1030;
15502   t20669 = t18150 * t20668;
15503   t20674 = t18155 * t5243 * t1013 * t194;
15504   t20677 = t1237 * t4497;
15505   t20678 = t5117 * t20677;
15506   t20685 = -t19880 / 0.384e3 - t19234 - t19884 / 0.96e2 - t19888 / 0.384e3 - 0.4e1 * t5112 * t4511 + 0.4e1 * t5245 * t19893 + 0.2e1 * t19241 * t19896 + 0.2e1 * t19900 * t5249 - 0.6e1 * t5116 * t20669 - 0.4e1 * t5116 * t20674 + 0.4e1 * t5116 * t20678 - t19917 / 0.384e3 + t19922 / 0.192e3 + t19924 / 0.192e3 + t19262 + t19928 / 0.96e2;
15507   t20686 = t175 * t20685;
15508   t20687 = t20686 * t748;
15509   t20691 = -t19748 - t19750 - t19753 - 0.5e1 / 0.18e2 * t19122 * t19765 + t19131 + t19146 + 0.2e1 * t20294 * t1245 - 0.5e1 / 0.36e2 * t20651 * t4936 - 0.5e1 / 0.36e2 * t5228 * t20062 + t4431 * t5255 + t1214 * t20687 - 0.4e1 / 0.3e1 * t4026 * t20353;
15510   t20712 = t4527 * t1231;
15511   t20719 = -0.4e1 / 0.3e1 * t14978 * t5094 - 0.4e1 / 0.3e1 * t14972 * t5094 - 0.4e1 / 0.3e1 * t4026 * t20132 - 0.4e1 / 0.3e1 * t4026 * t20136 - 0.4e1 / 0.3e1 * t4026 * t20140 + 0.10e2 / 0.3e1 * t4013 * t20123 - 0.4e1 / 0.3e1 * t4026 * t20119 - 0.4e1 * t5499 * t4484 - 0.4e1 * t2442 * t5239 - 0.4e1 * t4302 * t5239 - 0.4e1 * t449 * t20712 + 0.5e1 / 0.6e1 * t19114 * t19741 - 0.5e1 / 0.18e2 * t19119 * t19755;
15512   t20733 = t5254 * t2850;
15513   t20735 = t1244 * t15289;
15514   t20738 = t19147 * t4433;
15515   t20741 = -0.5e1 / 0.18e2 * t19122 * t19762 - t4431 * t5259 + t19226 - 0.2e1 / 0.3e1 * t4459 * t5104 - 0.2e1 / 0.3e1 * t4465 * t5104 - 0.2e1 / 0.3e1 * t1227 * t20298 - 0.2e1 / 0.3e1 * t1227 * t20302 + t5279 * t1037 - t4957 - t1214 * t20733 - 0.2e1 * t1214 * t20735 + 0.3e1 * t1214 * t20738;
15516   t20742 = t19271 * t999;
15517   t20745 = t169 * t20687;
15518   t20746 = t19276 * t1033;
15519   t20748 = t19279 * t999;
15520   t20751 = t4079 * t4513;
15521   t20754 = t19286 * t1033;
15522   t20757 = 0.3e1 * t1768 * t20742 - 0.3e1 * t1768 * t20748 - t20746 * t2849 - 0.2e1 * t20751 * t2849 + 0.2e1 * t20754 * t2849 + t20745;
15523   t20758 = my_piecewise3(t296, 0, t20757);
15524   t20761 = my_piecewise3(t359, 0, t20757);
15525   t20765 = t20758 * t34 / 0.2e1 + t20761 * t46 / 0.2e1 + t5262 * t886 / 0.2e1 + t5264 * t905 / 0.2e1;
15526   t20770 = t19153 * t19783;
15527   t20773 = t915 * t5235;
15528   t20780 = t5269 * t19965;
15529   t20783 = t5269 * t19969;
15530   t20786 = t5269 * t19973;
15531   t20789 = t5269 * t19981;
15532   t20795 = t66 * t19180 * t912;
15533   t20802 = t4412 * t1231;
15534   t20803 = t1254 * t20802;
15535   t20806 = t1204 * t4483;
15536   t20807 = t1254 * t20806;
15537   t20812 = t5235 * t912;
15538   t20815 = t1231 * t4483;
15539   t20818 = 0.5e1 / 0.36e2 * t19962 * t5270 - 0.5e1 / 0.6e1 * t18362 * t20780 + 0.5e1 / 0.18e2 * t18368 * t20783 + 0.5e1 / 0.18e2 * t3939 * t20786 - t19174 + 0.5e1 / 0.18e2 * t5042 * t20789 + 0.4e1 / 0.3e1 * t14614 * t5274 - 0.20e2 / 0.3e1 * t13663 * t20795 + 0.4e1 / 0.3e1 * t19992 * t5274 + 0.4e1 / 0.3e1 * t14645 * t5274 - t19191 + 0.4e1 / 0.3e1 * t3945 * t20803 + 0.4e1 / 0.3e1 * t3945 * t20807 + 0.2e1 * t881 * t5235 - 0.8e1 * t400 * t20812 + 0.4e1 * t81 * t20815 + t20017 - t20020 + t20023 + t5056;
15540   t20820 = t5258 * t7889;
15541   t20825 = t5267 * t928;
15542   t20828 = t1252 * t4483;
15543   t20835 = -t98 * t20765 - 0.2e1 * t5155 * t4561 - t916 * t5267 - 0.3e1 * t1214 * t20770 - 0.2e1 * t20773 * t363 - 0.2e1 * t5236 * t1110 + t20818 * t227 + 0.2e1 * t1214 * t20820 + 0.6e1 * t5155 * t4557 - 0.2e1 * t449 * t20825 - 0.4e1 * t449 * t20828 + 0.20e2 / 0.3e1 * t4013 * t20226 + 0.2e1 * t5155 * t4515;
15544   t20837 = t20691 + t20719 + t20741 + t20835;
15545   t20838 = t7 * t20837;
15546   t20846 = params->d * t20837;
15547   t20858 = t928 * t5235;
15548   t20861 = t1258 * t4483;
15549   t20864 = 0.6e1 * t1125 * t5294 + 0.3e1 * t1127 * t5290 + 0.12e2 * t1267 * t4574 + 0.6e1 * t1267 * t4577 + 0.6e1 * t1269 * t4568 + t20846 * t370 + 0.6e1 * t20858 * t369 + 0.12e2 * t20861 * t369 + t20112 + t20115 + t5079;
15550   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15551     v3rhosigma2[9] = t1123 * t5297 + t1130 * t5286 + 0.2e1 * t1265 * t4580 + 0.2e1 * t1272 * t4564 + t20838 * t372 + t20864 * t872 + t19102 + t19331 + t19336;
15552 
15553   t20872 = t19359 * t912;
15554   t20873 = t18543 * t20872;
15555   t20876 = t19359 * t883;
15556   t20877 = t18543 * t20876;
15557   t20880 = t19359 * t908;
15558   t20881 = t18555 * t20880;
15559   t20884 = t19359 * t928;
15560   t20885 = t18560 * t20884;
15561   t20893 = t4173 * t20119 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t20480 + 0.5e1 / 0.3e1 * t4013 * t20473 - t19748 - t19750 - t19753 + t19397 - 0.5e1 / 0.12e2 * t18989 * t20873 + 0.5e1 / 0.36e2 * t18957 * t20877 + 0.5e1 / 0.36e2 * t5179 * t20881 + 0.5e1 / 0.36e2 * t5179 * t20885 - t19466 - t20144 - t20146 - t20148 + t20224 - t5211 * t4561 + t4582 * t5104 / 0.6e1 + t4588 * t5104 / 0.6e1;
15562   t20910 = t19430 * t912;
15563   t20911 = t4932 * t20910;
15564   t20915 = t4932 * t19430 * t928;
15565   t20918 = t19430 * t883;
15566   t20919 = t4932 * t20918;
15567   t20922 = t19443 * t908;
15568   t20923 = t4932 * t20922;
15569   t20926 = -t20170 + 0.5e1 / 0.3e1 * t13930 * t20795 + 0.5e1 / 0.12e2 * t19023 * t20911 - 0.5e1 / 0.36e2 * t19027 * t20915 - 0.5e1 / 0.36e2 * t19030 * t20919 - 0.5e1 / 0.36e2 * t19033 * t20923 - t18805 + t5056 + t19453 + t20017 + t20023 - t20020 - t20173 + t20175;
15570   t20929 = t20587 * t5312;
15571   t20938 = t4668 * t5273;
15572   t20941 = t1309 * t20802;
15573   t20944 = t1309 * t20806;
15574   t20947 = t20178 + t20182 - 0.5e1 / 0.72e2 * t19962 * t5313 - 0.5e1 / 0.72e2 * t5042 * t20929 - t14614 * t5316 / 0.3e1 - t19992 * t5316 / 0.3e1 - t14645 * t5316 / 0.3e1 - t3945 * t20938 / 0.3e1 - t3945 * t20941 / 0.3e1 - t3945 * t20944 / 0.3e1 + t20191 + t20193 + t20195 + t20198 + t20201;
15575   t20948 = t20926 + t20947;
15576   t20956 = t4597 * t5104 / 0.6e1 + t1277 * t20298 / 0.6e1 + t1277 * t20302 / 0.6e1 - t4459 * t5189 / 0.3e1 - t4465 * t5189 / 0.3e1 - t1227 * t20519 / 0.3e1 - t1227 * t20525 / 0.3e1 + t20948 * t227 + t18695 - t4957 - t20256 - t20258 - t20261 + t5211 * t4515 + t20560 * t1245 + t20272 - t20278 + 0.5e1 / 0.72e2 * t20468 * t5300 + 0.5e1 / 0.72e2 * t20554 * t5300;
15577   t20958 = t14713 * t57;
15578   t20959 = t5044 * t20958;
15579   t20982 = t4656 * t1231;
15580   t20985 = 0.5e1 / 0.72e2 * t5179 * t20959 + t4173 * t20353 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t20123 + t15503 * t5094 / 0.3e1 + t15686 * t5094 / 0.3e1 + t15610 * t5094 / 0.3e1 + t4173 * t20132 / 0.3e1 + t4173 * t20136 / 0.3e1 + t4173 * t20140 / 0.3e1 - t20283 - t20286 - t20288 - 0.2e1 * t2442 * t5309 - 0.2e1 * t4302 * t5309 - 0.2e1 * t449 * t20982 - t20290 - t20292 + t20295 - t20296;
15581   t20991 = t1307 * t4483;
15582   t20994 = t20305 + t20344 + t20356 - 0.5e1 / 0.3e1 * t4156 * t20226 - t20381 + 0.3e1 * t5211 * t4557 - t20391 - t20393 - t20395 + t5319 * t1037 - t20397 - t20398 - t20400 + t20404 + t20408 - t20411 - t20414 - t20418 - 0.2e1 * t449 * t20991;
15583   t20996 = t20893 + t20956 + t20985 + t20994;
15584   t20997 = t7 * t20996;
15585   t21005 = params->d * t20996;
15586   t21015 = 0.3e1 * t1127 * t5327 + 0.3e1 * t1269 * t4683 + 0.6e1 * t1318 * t4574 + 0.3e1 * t1318 * t4577 + t21005 * t370 + t20112 + t20115 + t20435 + t20437 + t20439 + t20447 + t20450 + t20453 + t20456 + t5079;
15587   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15588     v3rhosigma2[10] = t1123 * t5331 + t1130 * t5323 + t1265 * t4687 + t1272 * t4679 + t1316 * t4580 + t1320 * t4564 + t20997 * t372 + t21015 * t872 + t19358 + t19506 + t19509 + t19512;
15589 
15590   t21027 = t3763 * t4595;
15591   t21028 = t5044 * t21027;
15592   t21031 = -0.4e1 * t20459 - t19748 - t19750 - t19753 - t19770 + 0.2e1 / 0.3e1 * t20462 - t19786 - 0.5e1 / 0.72e2 * t19532 * t19762 - 0.5e1 / 0.72e2 * t19532 * t19765 + 0.5e1 / 0.24e2 * t19560 * t19741 - 0.5e1 / 0.72e2 * t19565 * t19755 - 0.5e1 / 0.72e2 * t5179 * t21028;
15593   t21042 = t5381 * t928;
15594   t21052 = 0.2e1 / 0.3e1 * t4173 * t20480 - 0.5e1 / 0.3e1 * t4156 * t20473 + 0.2e1 / 0.3e1 * t20486 + 0.2e1 / 0.3e1 * t20488 + 0.2e1 / 0.3e1 * t20490 + 0.2e1 / 0.3e1 * t20492 + 0.2e1 / 0.3e1 * t20494 + 0.2e1 / 0.3e1 * t20496 - 0.2e1 * t449 * t21042 - 0.4e1 * t20532 + t4582 * t5189 / 0.3e1 + t4588 * t5189 / 0.3e1 + t4597 * t5189 / 0.3e1;
15595   t21059 = t19592 * t1075;
15596   t21060 = t18226 * t21059;
15597   t21063 = t331 * t1082;
15598   t21065 = t4959 * t21063 * t61;
15599   t21068 = t19602 * t1041;
15600   t21069 = t18226 * t21068;
15601   t21072 = t837 * t1098;
15602   t21073 = t758 * t21072;
15603   t21074 = t533 * t21073;
15604   t21086 = t4973 * t1091;
15605   t21087 = t21086 * t4976;
15606   t21090 = t5349 * t1098;
15607   t21091 = t19630 * t21090;
15608   t21096 = t19635 * t5349 * t1074 * t329;
15609   t21099 = t1291 * t4627;
15610   t21100 = t19641 * t21099;
15611   t21103 = t21087 * t5363;
15612   t21106 = t340 * t1098;
15613   t21107 = t276 * t21106;
15614   t21108 = t210 * t21107;
15615   t21111 = t18299 * t1076;
15616   t21114 = t3007 * t208;
15617   t21115 = t21114 * t5366;
15618   t21118 = t18299 * t1087;
15619   t21121 = -t19591 * t21060 / 0.768e3 - t21065 * t5346 / 0.144e3 + t19599 + t19601 * t21069 / 0.1152e4 - t5344 * t21074 / 0.768e3 - 0.4e1 * t19613 * t4643 + 0.4e1 * t5351 * t19616 * t331 * t1098 + 0.2e1 * t19621 * t4215 * t1075 + 0.2e1 * t21087 * t5359 - 0.6e1 * t19629 * t21091 - 0.4e1 * t19629 * t21096 + 0.4e1 * t19629 * t21100 - t21103 * t5367 / 0.768e3 + t19650 * t21108 / 0.384e3 + t19658 * t21111 / 0.384e3 + t5364 * t21115 / 0.144e3 - t19665 - t19667 * t21118 / 0.1152e4;
15620   t21133 = my_piecewise3(t359, t169 * t21121 * t848 / 0.2e1 - t169 * t19675 * t1101 / 0.2e1 - t169 * t4226 * t4645 + t169 * t19681 * t1101, t19945);
15621   t21137 = t21133 * t46 / 0.2e1 + t5378 * t905 / 0.2e1 + t20505 / 0.2e1 + t20506 / 0.2e1;
15622   t21140 = t7591 * t5334;
15623   t21145 = t1277 * t20519 / 0.3e1 + t1277 * t20525 / 0.3e1 - t19958 - 0.10e2 / 0.3e1 * t20546 - t19961 - t20027 - t4957 - t98 * t21137 + t5388 * t1037 - 0.5e1 / 0.144e3 * t21140 * t4936 - 0.5e1 / 0.144e3 * t5335 * t20062 + t20037;
15624   t21149 = t5383 * t19965;
15625   t21152 = t5383 * t19969;
15626   t21155 = t5383 * t19973;
15627   t21158 = t5044 * t4595;
15628   t21159 = t5200 * t21158;
15629   t21162 = t5383 * t19981;
15630   t21172 = 0.5e1 / 0.144e3 * t19962 * t5384 - 0.5e1 / 0.24e2 * t18362 * t21149 + 0.5e1 / 0.72e2 * t18368 * t21152 + 0.5e1 / 0.72e2 * t3939 * t21155 + 0.5e1 / 0.72e2 * t5042 * t21159 + 0.5e1 / 0.72e2 * t5042 * t21162 - 0.2e1 / 0.3e1 * t20594 + 0.10e2 / 0.3e1 * t20583 - 0.2e1 / 0.3e1 * t20596 - 0.2e1 / 0.3e1 * t20598 - 0.2e1 / 0.3e1 * t20601 - 0.2e1 / 0.3e1 * t20604 - 0.2e1 / 0.3e1 * t20607 + t20009 - t20012 + t20015 + t20017 - t20020 + t20023 + t5056;
15631   t21180 = t21172 * t227 - t5381 * t916 - t20051 + t20056 + t20057 - t20066 + t20069 + 0.2e1 * t20550 - 0.2e1 * t20551 + 0.2e1 * t20561 - 0.4e1 * t20562 - 0.4e1 * t20565 + 0.6e1 * t20567;
15632   t21182 = t21031 + t21052 + t21145 + t21180;
15633   t21183 = t7 * t21182;
15634   t21191 = params->d * t21182;
15635   t21198 = 0.3e1 * t1127 * t5396 + t21191 * t370 + t20104 + t20107 + t20110 + t20112 + t20115 + 0.6e1 * t20636 + 0.12e2 * t20638 + 0.6e1 * t20640 + t5079;
15636   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15637     v3rhosigma2[11] = t1123 * t5399 + t1130 * t5392 + 0.2e1 * t1316 * t4687 + 0.2e1 * t1320 * t4679 + t21183 * t372 + t21198 * t872 + t19526 + t19725 + t19730;
15638 
15639   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15640     v3rhosigmalapl[0] = 0.0e0;
15641 
15642   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15643     v3rhosigmalapl[1] = 0.0e0;
15644 
15645   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15646     v3rhosigmalapl[2] = 0.0e0;
15647 
15648   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15649     v3rhosigmalapl[3] = 0.0e0;
15650 
15651   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15652     v3rhosigmalapl[4] = 0.0e0;
15653 
15654   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15655     v3rhosigmalapl[5] = 0.0e0;
15656 
15657   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15658     v3rhosigmalapl[6] = 0.0e0;
15659 
15660   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15661     v3rhosigmalapl[7] = 0.0e0;
15662 
15663   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15664     v3rhosigmalapl[8] = 0.0e0;
15665 
15666   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15667     v3rhosigmalapl[9] = 0.0e0;
15668 
15669   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15670     v3rhosigmalapl[10] = 0.0e0;
15671 
15672   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15673     v3rhosigmalapl[11] = 0.0e0;
15674 
15675   t21200 = t5430 * t372;
15676   t21201 = t397 * t1329;
15677   t21203 = 0.2e1 * t21201 * t1193;
15678   t21204 = t81 * t4725;
15679   t21206 = 0.2e1 * t21204 * t1193;
15680   t21207 = t81 * t4729;
15681   t21209 = 0.2e1 * t21207 * t1193;
15682   t21210 = t1397 * t1330;
15683   t21211 = t3761 * t3940;
15684   t21214 = t5412 * t227;
15685   t21215 = t21214 * t443;
15686   t21217 = 0.8e1 * t4720 * t21215;
15687   t21218 = t3958 * t5401;
15688   t21221 = t465 * t1326;
15689   t21222 = t1204 * t21221;
15690   t21225 = t400 * t4730;
15691   t21228 = t400 * t4733;
15692   t21235 = t21203 + t21206 + t21209 + 0.5e1 / 0.3e1 * t21210 * t21211 - t21217 + t3788 * t21218 / 0.3e1 + t3788 * t21222 / 0.3e1 - t21225 * t5146 / 0.3e1 - t21228 * t5146 / 0.3e1 - t5416 * t18813 / 0.3e1 - t5416 * t18816 / 0.3e1;
15693   t21238 = t1329 * t167;
15694   t21239 = t400 * t21238;
15695   t21241 = t14483 * t3874 * t443;
15696   t21243 = 0.8e1 * t21239 * t21241;
15697   t21244 = t81 * t21238;
15698   t21245 = t13344 * t3875;
15699   t21247 = 0.6e1 * t21244 * t21245;
15700   t21248 = t14483 * t3924;
15701   t21250 = 0.2e1 * t21244 * t21248;
15702   t21251 = t1392 * t1330;
15703   t21254 = t400 * t4726;
15704   t21257 = t400 * t1143;
15705   t21259 = 0.8e1 * t21257 * t4722;
15706   t21261 = 0.2e1 * t5097 * t4715;
15707   t21263 = 0.2e1 * t18654 * t1327;
15708   t21265 = 0.2e1 * t18640 * t1327;
15709   t21267 = 0.2e1 * t5097 * t4694;
15710   t21268 = -t5416 * t18819 / 0.3e1 - t21243 + t21247 - t21250 - t21251 * t5146 / 0.3e1 - t21254 * t5146 / 0.3e1 - t21259 - t21261 - t21263 - t21265 - t21267;
15711   t21271 = 0.2e1 * t2448 * t5413;
15712   t21272 = t857 * t5412;
15713   t21274 = 0.2e1 * t449 * t21272;
15714   t21279 = t3934 * t1326;
15715   t21282 = t1199 * t4714;
15716   t21286 = 0.2e1 * t1476 * t5413;
15717   t21287 = t1327 * t443;
15718   t21288 = t12791 * t21287;
15719   t21291 = t12780 * t1326;
15720   t21292 = t1204 * t21291;
15721   t21295 = t3789 * t4714;
15722   t21296 = t1204 * t21295;
15723   t21301 = -t21271 - t21274 - 0.2e1 * t1476 * t5407 - 0.2e1 * t2448 * t5407 - 0.2e1 * t449 * t21279 - 0.2e1 * t449 * t21282 - t21286 - 0.5e1 / 0.3e1 * t3762 * t21288 + t3788 * t21292 / 0.3e1 + t3788 * t21296 / 0.3e1 + t13167 * t5402 / 0.3e1;
15724   t21306 = t13146 * t4700;
15725   t21307 = t21306 / 0.3e1;
15726   t21308 = t13149 * t4701;
15727   t21310 = t3807 * t1132;
15728   t21312 = t3807 * t4710;
15729   t21315 = my_piecewise3(t95, 0, t21307 + t21308 / 0.4e1 + 0.5e1 / 0.24e2 * t21310 - 0.5e1 / 0.24e2 * t21312);
15730   t21316 = t363 * t21315;
15731   t21318 = 0.2e1 * t449 * t21316;
15732   t21319 = t3811 * t1326;
15733   t21320 = t21319 * t227;
15734   t21322 = 0.2e1 * t81 * t21320;
15735   t21323 = t1143 * t4714;
15736   t21324 = t21323 * t227;
15737   t21325 = t81 * t21324;
15738   t21327 = t397 * t5420;
15739   t21329 = t5423 * t751;
15740   t21330 = t81 * t21329;
15741   t21332 = t5419 * t751;
15742   t21333 = t81 * t21332;
15743   t21335 = t397 * t5424;
15744   t21337 = t464 * t5412;
15745   t21338 = t21337 * t227;
15746   t21339 = t81 * t21338;
15747   t21341 = t5427 * t3922;
15748   t21343 = t96 * t21315;
15749   t21344 = t21343 * t227;
15750   t21345 = t81 * t21344;
15751   t21347 = t12758 * t5402 / 0.3e1 + t12788 * t5402 / 0.3e1 - t21318 + t21322 + 0.2e1 * t21325 + 0.2e1 * t21327 + 0.2e1 * t21330 + 0.2e1 * t21333 + 0.2e1 * t21335 + 0.2e1 * t21339 + 0.2e1 * t21341 + 0.2e1 * t21345;
15752   t21349 = t21235 + t21268 + t21301 + t21347;
15753   t21350 = t7 * t21349;
15754   t21353 = t1333 * t1224;
15755   t21356 = t1216 * t1341;
15756   t21359 = t368 * t5447;
15757   t21361 = params->d * t21349;
15758   t21366 = 0.3e1 * t4742 * t1221;
15759   t21368 = 0.6e1 * t1336 * t4000;
15760   t21370 = 0.3e1 * t1336 * t4003;
15761   t21378 = 0.6e1 * t873 * t5441;
15762   t21379 = t4725 * t1143;
15763   t21381 = 0.6e1 * t369 * t21379;
15764   t21382 = t4729 * t1143;
15765   t21384 = 0.6e1 * t369 * t21382;
15766   t21385 = t1329 * t3811;
15767   t21387 = 0.6e1 * t369 * t21385;
15768   t21389 = 0.3e1 * t873 * t5444;
15769   t21390 = t5423 * t464;
15770   t21392 = 0.6e1 * t369 * t21390;
15771   t21393 = t97 * t21315;
15772   t21395 = 0.3e1 * t369 * t21393;
15773   t21396 = 0.6e1 * t1219 * t4748 + 0.3e1 * t1219 * t4751 + 0.3e1 * t1338 * t3994 + t21361 * t370 + 0.3e1 * t5435 * t875 + t21366 + t21368 + t21370 + t21378 + t21381 + t21384 + t21387 + t21389 + t21392 + t21395;
15774   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15775     v3rhosigmatau[0] = t1217 * t4754 + t1224 * t4737 + t1334 * t4006 + t1341 * t3989 + t21350 * t372 + t21396 * t872 + t5431 * t878 + t5447 * t870 + t21200 + t21353 + t21356 + t21359;
15776 
15777   t21398 = t5478 * t372;
15778   t21402 = t3958 * t5449;
15779   t21404 = t465 * t1347;
15780   t21405 = t1204 * t21404;
15781   t21407 = t12780 * t1347;
15782   t21408 = t1204 * t21407;
15783   t21410 = t400 * t4786;
15784   t21412 = t400 * t4790;
15785   t21414 = t400 * t4793;
15786   t21418 = t12758 * t5450 + t12788 * t5450 + t13167 * t5450 - t18813 * t5464 - t18816 * t5464 + t21402 * t3788 + t21405 * t3788 + t21408 * t3788 - t21410 * t5146 - t21412 * t5146 - t21414 * t5146;
15787   t21422 = t1350 * t167;
15788   t21423 = t400 * t21422;
15789   t21425 = 0.8e1 * t21423 * t21241;
15790   t21426 = t81 * t21422;
15791   t21428 = 0.6e1 * t21426 * t21245;
15792   t21430 = 0.2e1 * t21426 * t21248;
15793   t21431 = t1392 * t1351;
15794   t21434 = t3789 * t4775;
15795   t21435 = t1204 * t21434;
15796   t21438 = t5467 * t751;
15797   t21440 = 0.2e1 * t81 * t21438;
15798   t21441 = t5471 * t751;
15799   t21443 = 0.2e1 * t81 * t21441;
15800   t21445 = 0.2e1 * t5475 * t3922;
15801   t21447 = 0.2e1 * t397 * t5472;
15802   t21448 = t464 * t5460;
15803   t21449 = t21448 * t227;
15804   t21451 = 0.2e1 * t81 * t21449;
15805   t21452 = -t5464 * t18819 / 0.3e1 - t21425 + t21428 - t21430 - t21431 * t5146 / 0.3e1 + t3788 * t21435 / 0.3e1 + t21440 + t21443 + t21445 + t21447 + t21451;
15806   t21454 = t13146 * t4766;
15807   t21455 = t21454 / 0.3e1;
15808   t21456 = t13149 * t4767;
15809   t21458 = t3807 * t4771;
15810   t21461 = my_piecewise3(t95, 0, t21455 + t21456 / 0.4e1 - 0.5e1 / 0.24e2 * t21458);
15811   t21462 = t96 * t21461;
15812   t21463 = t21462 * t227;
15813   t21464 = t81 * t21463;
15814   t21465 = t397 * t1350;
15815   t21466 = t21465 * t1193;
15816   t21467 = t81 * t4785;
15817   t21468 = t21467 * t1193;
15818   t21469 = t81 * t4789;
15819   t21470 = t21469 * t1193;
15820   t21471 = t1476 * t5461;
15821   t21472 = t2448 * t5461;
15822   t21473 = t857 * t5460;
15823   t21474 = t449 * t21473;
15824   t21475 = t1199 * t4775;
15825   t21477 = t18640 * t1348;
15826   t21478 = t5097 * t4761;
15827   t21479 = t18654 * t1348;
15828   t21480 = -t21475 * t449 + t21464 + t21466 + t21468 + t21470 - t21471 - t21472 - t21474 - t21477 - t21478 - t21479;
15829   t21482 = t5460 * t227;
15830   t21483 = t21482 * t443;
15831   t21485 = 0.8e1 * t4720 * t21483;
15832   t21487 = 0.2e1 * t397 * t5468;
15833   t21488 = t3811 * t1347;
15834   t21489 = t21488 * t227;
15835   t21491 = 0.2e1 * t81 * t21489;
15836   t21492 = t1143 * t4775;
15837   t21493 = t21492 * t227;
15838   t21495 = 0.2e1 * t81 * t21493;
15839   t21497 = 0.2e1 * t5097 * t4776;
15840   t21501 = 0.8e1 * t21257 * t4782;
15841   t21502 = t363 * t21461;
15842   t21504 = 0.2e1 * t449 * t21502;
15843   t21507 = t3934 * t1347;
15844   t21510 = t1397 * t1351;
15845   t21513 = t1348 * t443;
15846   t21514 = t12791 * t21513;
15847   t21517 = -t21485 + t21487 + t21491 + t21495 - t21497 - 0.2e1 * t1476 * t5455 - t21501 - t21504 - 0.2e1 * t2448 * t5455 - 0.2e1 * t449 * t21507 + 0.5e1 / 0.3e1 * t21510 * t21211 - 0.5e1 / 0.3e1 * t3762 * t21514;
15848   t21519 = t21418 / 0.3e1 + t21452 + 0.2e1 * t21480 + t21517;
15849   t21520 = t7 * t21519;
15850   t21523 = t1354 * t1224;
15851   t21526 = t1216 * t1362;
15852   t21529 = t368 * t5495;
15853   t21531 = params->d * t21519;
15854   t21536 = 0.3e1 * t4802 * t1221;
15855   t21538 = 0.6e1 * t1357 * t4000;
15856   t21540 = 0.3e1 * t1357 * t4003;
15857   t21548 = 0.6e1 * t873 * t5489;
15858   t21549 = t4785 * t1143;
15859   t21551 = 0.6e1 * t369 * t21549;
15860   t21552 = t4789 * t1143;
15861   t21554 = 0.6e1 * t369 * t21552;
15862   t21555 = t1350 * t3811;
15863   t21557 = 0.6e1 * t369 * t21555;
15864   t21559 = 0.3e1 * t873 * t5492;
15865   t21560 = t5471 * t464;
15866   t21562 = 0.6e1 * t369 * t21560;
15867   t21563 = t97 * t21461;
15868   t21565 = 0.3e1 * t369 * t21563;
15869   t21566 = 0.6e1 * t1219 * t4808 + 0.3e1 * t1219 * t4811 + 0.3e1 * t1359 * t3994 + t21531 * t370 + 0.3e1 * t5483 * t875 + t21536 + t21538 + t21540 + t21548 + t21551 + t21554 + t21557 + t21559 + t21562 + t21565;
15870   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15871     v3rhosigmatau[1] = t1217 * t4814 + t1224 * t4797 + t1355 * t4006 + t1362 * t3989 + t21520 * t372 + t21566 * t872 + t5479 * t878 + t5495 * t870 + t21398 + t21523 + t21526 + t21529;
15872 
15873   t21568 = t5523 * t372;
15874   t21570 = 0.16e2 / 0.9e1 * t13453 * t5402;
15875   t21587 = t4016 * t74;
15876   t21590 = t1226 * t440;
15877   t21593 = t21570 - 0.2e1 / 0.3e1 * t13412 * t5402 - 0.2e1 / 0.3e1 * t13424 * t5402 - 0.2e1 / 0.3e1 * t4026 * t21218 - 0.2e1 / 0.3e1 * t4026 * t21222 - 0.2e1 / 0.3e1 * t4026 * t21292 + 0.2e1 / 0.3e1 * t21254 * t5510 + 0.2e1 / 0.3e1 * t21225 * t5510 + 0.2e1 / 0.3e1 * t21228 * t5510 + 0.2e1 / 0.3e1 * t5416 * t21587 + 0.2e1 / 0.3e1 * t5416 * t21590;
15878   t21595 = t14483 * t4049 * t443;
15879   t21598 = t13344 * t4050;
15880   t21603 = 0.2e1 / 0.3e1 * t21306;
15881   t21608 = my_piecewise3(t95, 0, t21603 + t21308 / 0.2e1 + 0.5e1 / 0.12e2 * t21310 - 0.5e1 / 0.12e2 * t21312);
15882   t21609 = t363 * t21608;
15883   t21612 = t5513 * t751;
15884   t21617 = t5517 * t751;
15885   t21624 = t4090 * t1326;
15886   t21627 = t464 * t5506;
15887   t21628 = t21627 * t227;
15888   t21631 = -0.2e1 * t1476 * t5502 - 0.8e1 * t21239 * t21595 + 0.6e1 * t21244 * t21598 - 0.2e1 * t21609 * t449 + 0.2e1 * t21612 * t81 + 0.2e1 * t21617 * t81 - 0.2e1 * t21624 * t449 + 0.2e1 * t21628 * t81 - 0.2e1 * t2448 * t5502 + 0.2e1 * t397 * t5518 + 0.2e1 * t4078 * t5427;
15889   t21633 = t96 * t21608;
15890   t21634 = t21633 * t227;
15891   t21637 = t4012 * t3940;
15892   t21640 = t1252 * t4714;
15893   t21643 = t5506 * t227;
15894   t21644 = t21643 * t443;
15895   t21649 = t446 * t1231;
15896   t21652 = t82 * t4041;
15897   t21661 = t857 * t5506;
15898   t21664 = 0.2e1 * t81 * t21634 - 0.10e2 / 0.3e1 * t21210 * t21637 - 0.2e1 * t449 * t21640 - 0.8e1 * t4720 * t21644 - 0.2e1 * t5499 * t4715 - 0.2e1 * t21649 * t1327 - 0.2e1 * t21652 * t1327 - 0.2e1 * t5499 * t4694 - 0.2e1 * t1476 * t5507 - 0.2e1 * t2448 * t5507 - 0.2e1 * t449 * t21661;
15899   t21665 = t14483 * t4080;
15900   t21668 = t4020 * t74;
15901   t21670 = 0.16e2 / 0.9e1 * t5416 * t21668;
15902   t21675 = t400 * t1231;
15903   t21688 = t4041 * t1326;
15904   t21689 = t21688 * t227;
15905   t21692 = t1231 * t4714;
15906   t21693 = t21692 * t227;
15907   t21696 = -0.2e1 * t21244 * t21665 - t21670 + 0.2e1 / 0.3e1 * t21251 * t5510 - 0.2e1 / 0.3e1 * t4026 * t21296 - 0.8e1 * t21675 * t4722 + 0.10e2 / 0.3e1 * t4013 * t21288 + 0.2e1 * t21201 * t1246 + 0.2e1 * t21204 * t1246 + 0.2e1 * t21207 * t1246 + 0.2e1 * t397 * t5514 + 0.2e1 * t81 * t21689 + 0.2e1 * t81 * t21693;
15908   t21698 = t21593 + t21631 + t21664 + t21696;
15909   t21699 = t7 * t21698;
15910   t21702 = t1333 * t1272;
15911   t21705 = t1264 * t1341;
15912   t21708 = t368 * t5540;
15913   t21710 = params->d * t21698;
15914   t21728 = t4725 * t1231;
15915   t21731 = t4729 * t1231;
15916   t21734 = t1329 * t4041;
15917   t21739 = t5517 * t464;
15918   t21742 = t97 * t21608;
15919   t21745 = 0.6e1 * t1267 * t4748 + 0.3e1 * t1267 * t4751 + 0.3e1 * t1269 * t4742 + 0.6e1 * t1336 * t4143 + 0.3e1 * t1336 * t4146 + 0.3e1 * t1338 * t4137 + t21710 * t370 + 0.6e1 * t21728 * t369 + 0.6e1 * t21731 * t369 + 0.6e1 * t21734 * t369 + 0.6e1 * t21739 * t369 + 0.3e1 * t21742 * t369 + 0.3e1 * t5528 * t875 + 0.6e1 * t5534 * t873 + 0.3e1 * t5537 * t873;
15920   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15921     v3rhosigmatau[2] = t1265 * t4754 + t1272 * t4737 + t1334 * t4149 + t1341 * t4132 + t21699 * t372 + t21745 * t872 + t5524 * t878 + t5540 * t870 + t21568 + t21702 + t21705 + t21708;
15922 
15923   t21747 = t5566 * t372;
15924   t21759 = 0.16e2 / 0.9e1 * t13453 * t5450;
15925   t21770 = -0.2e1 / 0.3e1 * t4026 * t21408 - 0.2e1 / 0.3e1 * t13412 * t5450 - 0.2e1 / 0.3e1 * t13424 * t5450 - 0.2e1 / 0.3e1 * t4026 * t21402 - 0.2e1 / 0.3e1 * t4026 * t21405 + t21759 - 0.2e1 / 0.3e1 * t4026 * t21435 + 0.2e1 / 0.3e1 * t21414 * t5510 + 0.2e1 / 0.3e1 * t5464 * t21587 + 0.2e1 / 0.3e1 * t5464 * t21590 - 0.8e1 * t21423 * t21595;
15926   t21786 = 0.16e2 / 0.9e1 * t5464 * t21668;
15927   t21787 = 0.2e1 / 0.3e1 * t21454;
15928   t21791 = my_piecewise3(t95, 0, t21787 + t21456 / 0.2e1 - 0.5e1 / 0.12e2 * t21458);
15929   t21792 = t363 * t21791;
15930   t21795 = t1252 * t4775;
15931   t21800 = 0.2e1 * t21467 * t1246 + 0.2e1 * t21469 * t1246 + 0.6e1 * t21426 * t21598 - 0.2e1 * t21426 * t21665 + 0.2e1 / 0.3e1 * t21431 * t5510 + 0.2e1 / 0.3e1 * t21410 * t5510 + 0.2e1 / 0.3e1 * t21412 * t5510 - t21786 - 0.2e1 * t449 * t21792 - 0.2e1 * t449 * t21795 - 0.10e2 / 0.3e1 * t21510 * t21637;
15932   t21802 = t464 * t5550;
15933   t21803 = t21802 * t227;
15934   t21806 = t96 * t21791;
15935   t21807 = t21806 * t227;
15936   t21816 = t4090 * t1347;
15937   t21821 = t5560 * t751;
15938   t21830 = 0.2e1 * t81 * t21803 + 0.2e1 * t81 * t21807 - 0.2e1 * t5499 * t4761 - 0.2e1 * t1476 * t5546 - 0.2e1 * t2448 * t5546 - 0.2e1 * t449 * t21816 + 0.10e2 / 0.3e1 * t4013 * t21514 + 0.2e1 * t81 * t21821 - 0.2e1 * t21649 * t1348 - 0.2e1 * t5499 * t4776 - 0.2e1 * t21652 * t1348;
15939   t21833 = t4041 * t1347;
15940   t21834 = t21833 * t227;
15941   t21837 = t1231 * t4775;
15942   t21838 = t21837 * t227;
15943   t21845 = t5556 * t751;
15944   t21854 = t857 * t5550;
15945   t21857 = t5550 * t227;
15946   t21858 = t21857 * t443;
15947   t21863 = 0.2e1 * t1246 * t21465 - 0.2e1 * t1476 * t5551 - 0.8e1 * t21675 * t4782 + 0.2e1 * t21834 * t81 + 0.2e1 * t21838 * t81 + 0.2e1 * t21845 * t81 - 0.2e1 * t21854 * t449 - 0.8e1 * t21858 * t4720 - 0.2e1 * t2448 * t5551 + 0.2e1 * t397 * t5557 + 0.2e1 * t397 * t5561 + 0.2e1 * t4078 * t5475;
15948   t21865 = t21770 + t21800 + t21830 + t21863;
15949   t21866 = t7 * t21865;
15950   t21869 = t1354 * t1272;
15951   t21872 = t1264 * t1362;
15952   t21875 = t368 * t5583;
15953   t21877 = params->d * t21865;
15954   t21895 = t4785 * t1231;
15955   t21898 = t4789 * t1231;
15956   t21901 = t1350 * t4041;
15957   t21906 = t5560 * t464;
15958   t21909 = t97 * t21791;
15959   t21912 = 0.6e1 * t1267 * t4808 + 0.3e1 * t1267 * t4811 + 0.3e1 * t1269 * t4802 + 0.6e1 * t1357 * t4143 + 0.3e1 * t1357 * t4146 + 0.3e1 * t1359 * t4137 + t21877 * t370 + 0.6e1 * t21895 * t369 + 0.6e1 * t21898 * t369 + 0.6e1 * t21901 * t369 + 0.6e1 * t21906 * t369 + 0.3e1 * t21909 * t369 + 0.3e1 * t5571 * t875 + 0.6e1 * t5577 * t873 + 0.3e1 * t5580 * t873;
15960   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15961     v3rhosigmatau[3] = t1265 * t4814 + t1272 * t4797 + t1355 * t4149 + t1362 * t4132 + t21866 * t372 + t21912 * t872 + t5567 * t878 + t5583 * t870 + t21747 + t21869 + t21872 + t21875;
15962 
15963   t21914 = t5593 * t372;
15964   t21915 = t21203 + t21206 + t21209 - t21217 - t21243 + t21247 - t21250 - t21259 - t21261 - t21263 - t21265;
15965   t21916 = t4155 * t3940;
15966   t21927 = t4159 * t74;
15967   t21930 = t4167 * t74;
15968   t21933 = t1276 * t440;
15969   t21936 = -t21267 - t21271 - t21274 + 0.5e1 / 0.3e1 * t21210 * t21916 - 0.5e1 / 0.3e1 * t4156 * t21288 + t4173 * t21296 / 0.3e1 - t21225 * t5590 / 0.3e1 - t21228 * t5590 / 0.3e1 - t5416 * t21927 / 0.3e1 - t5416 * t21930 / 0.3e1 - t5416 * t21933 / 0.3e1;
15970   t21954 = -t21251 * t5590 / 0.3e1 - t21254 * t5590 / 0.3e1 - t21286 + t13811 * t5402 / 0.3e1 + t13876 * t5402 / 0.3e1 + t13870 * t5402 / 0.3e1 + t4173 * t21218 / 0.3e1 + t4173 * t21222 / 0.3e1 + t4173 * t21292 / 0.3e1 - t21318 + t21322;
15971   t21955 = t1307 * t4714;
15972   t21959 = t4235 * t1326;
15973   t21961 = -t1476 * t5587 - t21955 * t449 - t21959 * t449 - t2448 * t5587 + t21325 + t21327 + t21330 + t21333 + t21335 + t21339 + t21341 + t21345;
15974   t21964 = t21915 + t21936 + t21954 + 0.2e1 * t21961;
15975   t21965 = t7 * t21964;
15976   t21968 = t1333 * t1320;
15977   t21971 = t1315 * t1341;
15978   t21974 = t368 * t5602;
15979   t21976 = params->d * t21964;
15980   t21986 = 0.6e1 * t1318 * t4748 + 0.3e1 * t1318 * t4751 + 0.3e1 * t1338 * t4263 + t21976 * t370 + 0.3e1 * t5598 * t875 + t21366 + t21368 + t21370 + t21378 + t21381 + t21384 + t21387 + t21389 + t21392 + t21395;
15981   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15982     v3rhosigmatau[4] = t1316 * t4754 + t1320 * t4737 + t1334 * t4267 + t1341 * t4258 + t21965 * t372 + t21986 * t872 + t5594 * t878 + t5602 * t870 + t21914 + t21968 + t21971 + t21974;
15983 
15984   t21988 = t5611 * t372;
15985   t21993 = t1307 * t4775;
15986   t21996 = -t21425 + t21428 - t21430 - 0.5e1 / 0.3e1 * t4156 * t21514 + 0.5e1 / 0.3e1 * t21510 * t21916 + t21440 + t21443 + t21445 - 0.2e1 * t449 * t21993 + t21447 + t21451;
15987   t21998 = t4235 * t1347;
15988   t22001 = -t1476 * t5606 - t21998 * t449 - t2448 * t5606 + t21464 + t21466 + t21468 + t21470 - t21471 - t21472 - t21474 - t21477;
15989   t22010 = -0.2e1 * t21478 - 0.2e1 * t21479 - t21485 + t21487 + t21491 + t21495 - t21497 - t21501 - t21431 * t5590 / 0.3e1 - t21410 * t5590 / 0.3e1 - t21504;
15990   t22023 = t13811 * t5450 + t13870 * t5450 + t13876 * t5450 + t21402 * t4173 + t21405 * t4173 + t21408 * t4173 - t21412 * t5590 - t21414 * t5590 + t21435 * t4173 - t21927 * t5464 - t21930 * t5464 - t21933 * t5464;
15991   t22026 = t21996 + 0.2e1 * t22001 + t22010 + t22023 / 0.3e1;
15992   t22027 = t7 * t22026;
15993   t22030 = t1354 * t1320;
15994   t22033 = t1315 * t1362;
15995   t22036 = t368 * t5620;
15996   t22038 = params->d * t22026;
15997   t22048 = 0.6e1 * t1318 * t4808 + 0.3e1 * t1318 * t4811 + 0.3e1 * t1359 * t4263 + t22038 * t370 + 0.3e1 * t5616 * t875 + t21536 + t21538 + t21540 + t21548 + t21551 + t21554 + t21557 + t21559 + t21562 + t21565;
15998   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15999     v3rhosigmatau[5] = t1316 * t4814 + t1320 * t4797 + t1355 * t4267 + t1362 * t4258 + t22027 * t372 + t22048 * t872 + t5612 * t878 + t5620 * t870 + t21988 + t22030 + t22033 + t22036;
16000 
16001   t22050 = t881 * t1329;
16002   t22052 = 0.2e1 * t22050 * t1193;
16003   t22053 = t3761 * t4396;
16004   t22056 = t13149 * t4823;
16005   t22058 = t3807 * t4826;
16006   t22061 = my_piecewise3(t95, 0, t21307 + t22056 / 0.4e1 - 0.5e1 / 0.24e2 * t22058);
16007   t22062 = t363 * t22061;
16008   t22064 = 0.2e1 * t449 * t22062;
16009   t22065 = t2378 * t1330;
16010   t22068 = t400 * t4840;
16011   t22071 = t400 * t4844;
16012   t22074 = t400 * t4847;
16013   t22078 = 0.2e1 * t881 * t5424;
16014   t22085 = t22052 + 0.5e1 / 0.3e1 * t21210 * t22053 - t22064 - t22065 * t5146 / 0.3e1 - t22068 * t5146 / 0.3e1 - t22071 * t5146 / 0.3e1 - t22074 * t5146 / 0.3e1 + t22078 - t5416 * t20211 / 0.3e1 - t5416 * t20214 / 0.3e1 - t5416 * t20217 / 0.3e1;
16015   t22087 = t14483 * t3874 * t912;
16016   t22089 = 0.8e1 * t21239 * t22087;
16017   t22090 = t13344 * t4350;
16018   t22092 = 0.6e1 * t21244 * t22090;
16019   t22093 = t14483 * t4381;
16020   t22095 = 0.2e1 * t21244 * t22093;
16021   t22102 = t4412 * t5401;
16022   t22105 = t929 * t1326;
16023   t22106 = t1204 * t22105;
16024   t22109 = t14718 * t1326;
16025   t22110 = t1204 * t22109;
16026   t22113 = t3789 * t4830;
16027   t22114 = t1204 * t22113;
16028   t22118 = 0.2e1 * t881 * t5420;
16029   t22119 = -t22089 + t22092 - t22095 + t14152 * t5402 / 0.3e1 + t14156 * t5402 / 0.3e1 + t14848 * t5402 / 0.3e1 + t3788 * t22102 / 0.3e1 + t3788 * t22106 / 0.3e1 + t3788 * t22110 / 0.3e1 + t3788 * t22114 / 0.3e1 + t22118;
16030   t22121 = t5419 * t1037;
16031   t22123 = 0.2e1 * t81 * t22121;
16032   t22124 = t928 * t5412;
16033   t22125 = t22124 * t227;
16034   t22127 = 0.2e1 * t81 * t22125;
16035   t22128 = t96 * t22061;
16036   t22129 = t22128 * t227;
16037   t22131 = 0.2e1 * t81 * t22129;
16038   t22132 = t1327 * t912;
16039   t22133 = t12791 * t22132;
16040   t22136 = t5423 * t1037;
16041   t22138 = 0.2e1 * t81 * t22136;
16042   t22140 = 0.8e1 * t21257 * t4836;
16043   t22141 = t21214 * t912;
16044   t22143 = 0.8e1 * t4720 * t22141;
16045   t22144 = t5097 * t4820;
16046   t22146 = t5097 * t4831;
16047   t22148 = t1199 * t4830;
16048   t22151 = t2442 * t5413;
16049   t22153 = t22123 + t22127 + t22131 - 0.5e1 / 0.3e1 * t3762 * t22133 + t22138 - t22140 - t22143 - 0.2e1 * t22144 - 0.2e1 * t22146 - 0.2e1 * t449 * t22148 - 0.2e1 * t22151;
16050   t22154 = t4302 * t5413;
16051   t22155 = t1110 * t5412;
16052   t22156 = t449 * t22155;
16053   t22157 = t20281 * t1327;
16054   t22158 = t20284 * t1327;
16055   t22159 = t4311 * t1326;
16056   t22160 = t22159 * t227;
16057   t22161 = t81 * t22160;
16058   t22162 = t1143 * t4830;
16059   t22163 = t22162 * t227;
16060   t22164 = t81 * t22163;
16061   t22165 = t81 * t4839;
16062   t22166 = t22165 * t1193;
16063   t22167 = t81 * t4843;
16064   t22168 = t22167 * t1193;
16065   t22169 = t5427 * t4380;
16066   t22172 = t4391 * t1326;
16067   t22174 = -t22172 * t449 - t2442 * t5407 - t4302 * t5407 - t22154 - t22156 - t22157 - t22158 + t22161 + t22164 + t22166 + t22168 + t22169;
16068   t22177 = t22085 + t22119 + t22153 + 0.2e1 * t22174;
16069   t22178 = t7 * t22177;
16070   t22186 = params->d * t22177;
16071   t22191 = 0.3e1 * t4855 * t1221;
16072   t22193 = 0.6e1 * t1336 * t4451;
16073   t22195 = 0.3e1 * t1336 * t4454;
16074   t22203 = 0.6e1 * t1125 * t5441;
16075   t22204 = t4839 * t1143;
16076   t22206 = 0.6e1 * t369 * t22204;
16077   t22207 = t4843 * t1143;
16078   t22209 = 0.6e1 * t369 * t22207;
16079   t22210 = t1329 * t4311;
16080   t22212 = 0.6e1 * t369 * t22210;
16081   t22214 = 0.3e1 * t1125 * t5444;
16082   t22215 = t5423 * t928;
16083   t22217 = 0.6e1 * t369 * t22215;
16084   t22218 = t97 * t22061;
16085   t22220 = 0.3e1 * t369 * t22218;
16086   t22221 = 0.3e1 * t1127 * t5435 + 0.6e1 * t1219 * t4861 + 0.3e1 * t1219 * t4864 + 0.3e1 * t1338 * t4445 + t22186 * t370 + t22191 + t22193 + t22195 + t22203 + t22206 + t22209 + t22212 + t22214 + t22217 + t22220;
16087   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16088     v3rhosigmatau[6] = t1123 * t5447 + t1130 * t5431 + t1217 * t4867 + t1224 * t4851 + t1334 * t4457 + t1341 * t4441 + t22178 * t372 + t22221 * t872 + t21200 + t21353 + t21356 + t21359;
16089 
16090   t22223 = t881 * t1350;
16091   t22225 = 0.2e1 * t22223 * t1193;
16092   t22226 = t81 * t4896;
16093   t22228 = 0.2e1 * t22226 * t1193;
16094   t22229 = t81 * t4900;
16095   t22231 = 0.2e1 * t22229 * t1193;
16096   t22237 = 0.8e1 * t21423 * t22087;
16097   t22239 = 0.6e1 * t21426 * t22090;
16098   t22241 = 0.2e1 * t21426 * t22093;
16099   t22242 = t3789 * t4887;
16100   t22243 = t1204 * t22242;
16101   t22246 = t929 * t1347;
16102   t22247 = t1204 * t22246;
16103   t22250 = t14718 * t1347;
16104   t22251 = t1204 * t22250;
16105   t22254 = t22225 + t22228 + t22231 - t5464 * t20214 / 0.3e1 - t5464 * t20217 / 0.3e1 - t22237 + t22239 - t22241 + t3788 * t22243 / 0.3e1 + t3788 * t22247 / 0.3e1 + t3788 * t22251 / 0.3e1;
16106   t22255 = t2378 * t1351;
16107   t22258 = t400 * t4897;
16108   t22261 = t400 * t4901;
16109   t22264 = t400 * t4904;
16110   t22275 = t4412 * t5449;
16111   t22278 = t21482 * t912;
16112   t22280 = 0.8e1 * t4720 * t22278;
16113   t22282 = 0.8e1 * t21257 * t4893;
16114   t22283 = -t22255 * t5146 / 0.3e1 - t22258 * t5146 / 0.3e1 - t22261 * t5146 / 0.3e1 - t22264 * t5146 / 0.3e1 - t5464 * t20211 / 0.3e1 + t14152 * t5450 / 0.3e1 + t14156 * t5450 / 0.3e1 + t14848 * t5450 / 0.3e1 + t3788 * t22275 / 0.3e1 - t22280 - t22282;
16115   t22285 = t1199 * t4887;
16116   t22287 = t20281 * t1348;
16117   t22288 = t13149 * t4876;
16118   t22290 = t3807 * t1274;
16119   t22292 = t3807 * t4883;
16120   t22295 = my_piecewise3(t95, 0, t21455 + t22288 / 0.4e1 + 0.5e1 / 0.24e2 * t22290 - 0.5e1 / 0.24e2 * t22292);
16121   t22296 = t96 * t22295;
16122   t22297 = t22296 * t227;
16123   t22298 = t81 * t22297;
16124   t22299 = t881 * t5468;
16125   t22300 = t4311 * t1347;
16126   t22301 = t22300 * t227;
16127   t22302 = t81 * t22301;
16128   t22303 = t1143 * t4887;
16129   t22304 = t22303 * t227;
16130   t22305 = t81 * t22304;
16131   t22306 = t5471 * t1037;
16132   t22307 = t81 * t22306;
16133   t22308 = t5475 * t4380;
16134   t22309 = t5467 * t1037;
16135   t22310 = t81 * t22309;
16136   t22311 = t363 * t22295;
16137   t22312 = t449 * t22311;
16138   t22313 = t2442 * t5461;
16139   t22314 = -t22285 * t449 - t22287 + t22298 + t22299 + t22302 + t22305 + t22307 + t22308 + t22310 - t22312 - t22313;
16140   t22317 = 0.2e1 * t4302 * t5461;
16141   t22318 = t1110 * t5460;
16142   t22320 = 0.2e1 * t449 * t22318;
16143   t22322 = 0.2e1 * t20284 * t1348;
16144   t22324 = 0.2e1 * t5097 * t4873;
16145   t22326 = 0.2e1 * t5097 * t4888;
16146   t22331 = t4391 * t1347;
16147   t22335 = 0.2e1 * t881 * t5472;
16148   t22336 = t928 * t5460;
16149   t22337 = t22336 * t227;
16150   t22339 = 0.2e1 * t81 * t22337;
16151   t22342 = t1348 * t912;
16152   t22343 = t12791 * t22342;
16153   t22346 = -t22317 - t22320 - t22322 - t22324 - t22326 - 0.2e1 * t2442 * t5455 - 0.2e1 * t4302 * t5455 - 0.2e1 * t449 * t22331 + t22335 + t22339 + 0.5e1 / 0.3e1 * t21510 * t22053 - 0.5e1 / 0.3e1 * t3762 * t22343;
16154   t22348 = t22254 + t22283 + 0.2e1 * t22314 + t22346;
16155   t22349 = t7 * t22348;
16156   t22357 = params->d * t22348;
16157   t22362 = 0.3e1 * t4912 * t1221;
16158   t22364 = 0.6e1 * t1357 * t4451;
16159   t22366 = 0.3e1 * t1357 * t4454;
16160   t22374 = 0.6e1 * t1125 * t5489;
16161   t22375 = t4896 * t1143;
16162   t22377 = 0.6e1 * t369 * t22375;
16163   t22378 = t4900 * t1143;
16164   t22380 = 0.6e1 * t369 * t22378;
16165   t22381 = t1350 * t4311;
16166   t22383 = 0.6e1 * t369 * t22381;
16167   t22385 = 0.3e1 * t1125 * t5492;
16168   t22386 = t5471 * t928;
16169   t22388 = 0.6e1 * t369 * t22386;
16170   t22389 = t97 * t22295;
16171   t22391 = 0.3e1 * t369 * t22389;
16172   t22392 = 0.3e1 * t1127 * t5483 + 0.6e1 * t1219 * t4918 + 0.3e1 * t1219 * t4921 + 0.3e1 * t1359 * t4445 + t22357 * t370 + t22362 + t22364 + t22366 + t22374 + t22377 + t22380 + t22383 + t22385 + t22388 + t22391;
16173   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16174     v3rhosigmatau[7] = t1123 * t5495 + t1130 * t5479 + t1217 * t4924 + t1224 * t4908 + t1355 * t4457 + t1362 * t4441 + t22349 * t372 + t22392 * t872 + t21398 + t21523 + t21526 + t21529;
16175 
16176   t22404 = t4483 * t1326;
16177   t22405 = t22404 * t227;
16178   t22408 = t1231 * t4830;
16179   t22409 = t22408 * t227;
16180   t22412 = t4464 * t74;
16181   t22415 = t1226 * t909;
16182   t22419 = t14483 * t4049 * t912;
16183   t22422 = t21570 + 0.2e1 * t22050 * t1246 + 0.2e1 * t22165 * t1246 + 0.2e1 * t22167 * t1246 + 0.2e1 * t5427 * t4516 + 0.2e1 * t881 * t5514 + 0.2e1 * t81 * t22405 + 0.2e1 * t81 * t22409 + 0.2e1 / 0.3e1 * t5416 * t22412 + 0.2e1 / 0.3e1 * t5416 * t22415 - 0.8e1 * t21239 * t22419;
16184   t22423 = t13344 * t4491;
16185   t22426 = t14483 * t4517;
16186   t22437 = t4012 * t4396;
16187   t22442 = t21643 * t912;
16188   t22445 = t5517 * t1037;
16189   t22448 = t915 * t1231;
16190   t22451 = 0.6e1 * t21244 * t22423 - 0.2e1 * t21244 * t22426 + 0.2e1 / 0.3e1 * t22065 * t5510 + 0.2e1 / 0.3e1 * t22068 * t5510 + 0.2e1 / 0.3e1 * t22071 * t5510 + 0.2e1 / 0.3e1 * t22074 * t5510 - 0.10e2 / 0.3e1 * t21210 * t22437 - 0.8e1 * t21675 * t4836 - 0.8e1 * t4720 * t22442 + 0.2e1 * t81 * t22445 - 0.2e1 * t22448 * t1327;
16191   t22453 = t82 * t4483;
16192   t22458 = t5513 * t1037;
16193   t22464 = my_piecewise3(t95, 0, t21603 + t22056 / 0.2e1 - 0.5e1 / 0.12e2 * t22058);
16194   t22465 = t96 * t22464;
16195   t22466 = t22465 * t227;
16196   t22475 = t1110 * t5506;
16197   t22484 = -0.2e1 * t22453 * t1327 - 0.2e1 * t5499 * t4820 + 0.2e1 * t81 * t22458 + 0.2e1 * t81 * t22466 + 0.10e2 / 0.3e1 * t4013 * t22133 - 0.2e1 * t2442 * t5507 - 0.2e1 * t4302 * t5507 - 0.2e1 * t449 * t22475 - 0.2e1 * t5499 * t4831 - 0.2e1 / 0.3e1 * t14978 * t5402 - 0.2e1 / 0.3e1 * t14972 * t5402;
16198   t22493 = t363 * t22464;
16199   t22498 = t4527 * t1326;
16200   t22505 = t928 * t5506;
16201   t22506 = t22505 * t227;
16202   t22509 = t1252 * t4830;
16203   t22512 = -0.2e1 / 0.3e1 * t4026 * t22102 - 0.2e1 / 0.3e1 * t4026 * t22106 - 0.2e1 / 0.3e1 * t4026 * t22110 - 0.2e1 / 0.3e1 * t4026 * t22114 - 0.2e1 * t449 * t22493 - 0.2e1 * t4302 * t5502 - 0.2e1 * t449 * t22498 - 0.2e1 * t2442 * t5502 + 0.2e1 * t881 * t5518 + 0.2e1 * t81 * t22506 - t21670 - 0.2e1 * t449 * t22509;
16204   t22514 = t22422 + t22451 + t22484 + t22512;
16205   t22515 = t7 * t22514;
16206   t22523 = params->d * t22514;
16207   t22541 = t4839 * t1231;
16208   t22544 = t4843 * t1231;
16209   t22547 = t1329 * t4483;
16210   t22552 = t5517 * t928;
16211   t22555 = t97 * t22464;
16212   t22558 = 0.6e1 * t1125 * t5534 + 0.3e1 * t1125 * t5537 + 0.3e1 * t1127 * t5528 + 0.6e1 * t1267 * t4861 + 0.3e1 * t1267 * t4864 + 0.3e1 * t1269 * t4855 + 0.6e1 * t1336 * t4574 + 0.3e1 * t1336 * t4577 + 0.3e1 * t1338 * t4568 + t22523 * t370 + 0.6e1 * t22541 * t369 + 0.6e1 * t22544 * t369 + 0.6e1 * t22547 * t369 + 0.6e1 * t22552 * t369 + 0.3e1 * t22555 * t369;
16213   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16214     v3rhosigmatau[8] = t1123 * t5540 + t1130 * t5524 + t1265 * t4867 + t1272 * t4851 + t1334 * t4580 + t1341 * t4564 + t22515 * t372 + t22558 * t872 + t21568 + t21702 + t21705 + t21708;
16215 
16216   t22566 = t928 * t5550;
16217   t22567 = t22566 * t227;
16218   t22574 = my_piecewise3(t95, 0, t21787 + t22288 / 0.2e1 + 0.5e1 / 0.12e2 * t22290 - 0.5e1 / 0.12e2 * t22292);
16219   t22575 = t96 * t22574;
16220   t22576 = t22575 * t227;
16221   t22581 = t21857 * t912;
16222   t22588 = -0.10e2 / 0.3e1 * t21510 * t22437 + t21759 + 0.2e1 * t881 * t5557 + 0.2e1 * t881 * t5561 - t21786 + 0.2e1 * t81 * t22567 + 0.2e1 * t81 * t22576 - 0.2e1 / 0.3e1 * t4026 * t22247 - 0.8e1 * t4720 * t22581 + 0.2e1 / 0.3e1 * t22258 * t5510 - 0.2e1 / 0.3e1 * t4026 * t22251;
16223   t22593 = t4483 * t1347;
16224   t22594 = t22593 * t227;
16225   t22597 = t1231 * t4887;
16226   t22598 = t22597 * t227;
16227   t22613 = t1252 * t4887;
16228   t22616 = 0.10e2 / 0.3e1 * t4013 * t22343 - 0.2e1 / 0.3e1 * t14978 * t5450 + 0.2e1 * t81 * t22594 + 0.2e1 * t81 * t22598 + 0.2e1 / 0.3e1 * t22261 * t5510 + 0.2e1 / 0.3e1 * t22264 * t5510 + 0.2e1 / 0.3e1 * t5464 * t22412 - 0.2e1 / 0.3e1 * t4026 * t22243 - 0.2e1 / 0.3e1 * t4026 * t22275 - 0.8e1 * t21423 * t22419 - 0.2e1 * t449 * t22613;
16229   t22622 = t1110 * t5550;
16230   t22641 = -0.2e1 * t2442 * t5551 - 0.2e1 * t4302 * t5551 - 0.2e1 * t449 * t22622 - 0.2e1 * t22448 * t1348 - 0.2e1 * t22453 * t1348 - 0.2e1 * t5499 * t4873 - 0.2e1 * t5499 * t4888 - 0.8e1 * t21675 * t4893 + 0.2e1 / 0.3e1 * t5464 * t22415 - 0.2e1 * t2442 * t5546 - 0.2e1 * t4302 * t5546;
16231   t22642 = t4527 * t1347;
16232   t22653 = t5560 * t1037;
16233   t22664 = t363 * t22574;
16234   t22667 = t5556 * t1037;
16235   t22670 = -0.2e1 * t449 * t22642 + 0.2e1 / 0.3e1 * t22255 * t5510 + 0.6e1 * t21426 * t22423 - 0.2e1 * t21426 * t22426 - 0.2e1 / 0.3e1 * t14972 * t5450 + 0.2e1 * t81 * t22653 + 0.2e1 * t5475 * t4516 + 0.2e1 * t22223 * t1246 + 0.2e1 * t22226 * t1246 + 0.2e1 * t22229 * t1246 - 0.2e1 * t449 * t22664 + 0.2e1 * t81 * t22667;
16236   t22672 = t22588 + t22616 + t22641 + t22670;
16237   t22673 = t7 * t22672;
16238   t22681 = params->d * t22672;
16239   t22699 = t4896 * t1231;
16240   t22702 = t4900 * t1231;
16241   t22705 = t1350 * t4483;
16242   t22710 = t5560 * t928;
16243   t22713 = t97 * t22574;
16244   t22716 = 0.6e1 * t1125 * t5577 + 0.3e1 * t1125 * t5580 + 0.3e1 * t1127 * t5571 + 0.6e1 * t1267 * t4918 + 0.3e1 * t1267 * t4921 + 0.3e1 * t1269 * t4912 + 0.6e1 * t1357 * t4574 + 0.3e1 * t1357 * t4577 + 0.3e1 * t1359 * t4568 + t22681 * t370 + 0.6e1 * t22699 * t369 + 0.6e1 * t22702 * t369 + 0.6e1 * t22705 * t369 + 0.6e1 * t22710 * t369 + 0.3e1 * t22713 * t369;
16245   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16246     v3rhosigmatau[9] = t1123 * t5583 + t1130 * t5567 + t1265 * t4924 + t1272 * t4908 + t1355 * t4580 + t1362 * t4564 + t22673 * t372 + t22716 * t872 + t21747 + t21869 + t21872 + t21875;
16247 
16248   t22720 = t4587 * t74;
16249   t22723 = t1276 * t909;
16250   t22736 = t4155 * t4396;
16251   t22739 = t22052 - t22074 * t5590 / 0.3e1 - t5416 * t22720 / 0.3e1 - t5416 * t22723 / 0.3e1 + t4173 * t22114 / 0.3e1 + t15503 * t5402 / 0.3e1 + t15686 * t5402 / 0.3e1 + t15610 * t5402 / 0.3e1 + t4173 * t22102 / 0.3e1 - t22064 + 0.5e1 / 0.3e1 * t21210 * t22736;
16252   t22752 = t4596 * t74;
16253   t22755 = t22078 - 0.5e1 / 0.3e1 * t4156 * t22133 - t22089 + t22092 - t22095 + t4173 * t22110 / 0.3e1 - t22065 * t5590 / 0.3e1 - t22068 * t5590 / 0.3e1 - t22071 * t5590 / 0.3e1 + t4173 * t22106 / 0.3e1 - t5416 * t22752 / 0.3e1;
16254   t22757 = t1307 * t4830;
16255   t22764 = t4656 * t1326;
16256   t22767 = -0.2e1 * t22757 * t449 - 0.2e1 * t22764 * t449 - 0.2e1 * t2442 * t5587 - 0.2e1 * t4302 * t5587 + t22118 + t22123 + t22127 + t22131 + t22138 - t22140 - t22143;
16257   t22768 = -t22144 - t22146 - t22151 - t22154 - t22156 - t22157 - t22158 + t22161 + t22164 + t22166 + t22168 + t22169;
16258   t22771 = t22739 + t22755 + t22767 + 0.2e1 * t22768;
16259   t22772 = t7 * t22771;
16260   t22780 = params->d * t22771;
16261   t22790 = 0.3e1 * t1127 * t5598 + 0.6e1 * t1318 * t4861 + 0.3e1 * t1318 * t4864 + 0.3e1 * t1338 * t4683 + t22780 * t370 + t22191 + t22193 + t22195 + t22203 + t22206 + t22209 + t22212 + t22214 + t22217 + t22220;
16262   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16263     v3rhosigmatau[10] = t1123 * t5602 + t1130 * t5594 + t1316 * t4867 + t1320 * t4851 + t1334 * t4687 + t1341 * t4679 + t22772 * t372 + t22790 * t872 + t21914 + t21968 + t21971 + t21974;
16264 
16265   t22797 = t15610 * t5450 / 0.3e1 + t4173 * t22275 / 0.3e1 + t22225 + t22228 + t22231 - t22237 + t22239 - t22241 - t22280 - t22282 - 0.2e1 * t22287;
16266   t22798 = t1307 * t4887;
16267   t22815 = -0.2e1 * t449 * t22798 + 0.2e1 * t22298 + 0.2e1 * t22299 + 0.2e1 * t22302 + 0.2e1 * t22305 + 0.2e1 * t22307 - 0.5e1 / 0.3e1 * t4156 * t22343 + 0.2e1 * t22308 + t4173 * t22247 / 0.3e1 + t4173 * t22251 / 0.3e1 + t4173 * t22243 / 0.3e1;
16268   t22838 = -t5464 * t22752 / 0.3e1 - t5464 * t22723 / 0.3e1 - t22255 * t5590 / 0.3e1 - t22258 * t5590 / 0.3e1 - t22261 * t5590 / 0.3e1 - t22264 * t5590 / 0.3e1 - t5464 * t22720 / 0.3e1 + t15503 * t5450 / 0.3e1 + t15686 * t5450 / 0.3e1 + 0.2e1 * t22310 - 0.2e1 * t2442 * t5606;
16269   t22841 = t4656 * t1347;
16270   t22848 = -0.2e1 * t4302 * t5606 - 0.2e1 * t449 * t22841 - 0.2e1 * t22312 - 0.2e1 * t22313 - t22317 - t22320 - t22322 - t22324 - t22326 + 0.5e1 / 0.3e1 * t21510 * t22736 + t22335 + t22339;
16271   t22850 = t22797 + t22815 + t22838 + t22848;
16272   t22851 = t7 * t22850;
16273   t22859 = params->d * t22850;
16274   t22869 = 0.3e1 * t1127 * t5616 + 0.6e1 * t1318 * t4918 + 0.3e1 * t1318 * t4921 + 0.3e1 * t1359 * t4683 + t22859 * t370 + t22362 + t22364 + t22366 + t22374 + t22377 + t22380 + t22383 + t22385 + t22388 + t22391;
16275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16276     v3rhosigmatau[11] = t1123 * t5620 + t1130 * t5612 + t1316 * t4924 + t1320 * t4908 + t1355 * t4687 + t1362 * t4679 + t22851 * t372 + t22869 * t872 + t21988 + t22030 + t22033 + t22036;
16277 
16278   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16279     v3rholapl2[0] = 0.0e0;
16280 
16281   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16282     v3rholapl2[1] = 0.0e0;
16283 
16284   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16285     v3rholapl2[2] = 0.0e0;
16286 
16287   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16288     v3rholapl2[3] = 0.0e0;
16289 
16290   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16291     v3rholapl2[4] = 0.0e0;
16292 
16293   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16294     v3rholapl2[5] = 0.0e0;
16295 
16296   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16297     v3rholapltau[0] = 0.0e0;
16298 
16299   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16300     v3rholapltau[1] = 0.0e0;
16301 
16302   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16303     v3rholapltau[2] = 0.0e0;
16304 
16305   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16306     v3rholapltau[3] = 0.0e0;
16307 
16308   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16309     v3rholapltau[4] = 0.0e0;
16310 
16311   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16312     v3rholapltau[5] = 0.0e0;
16313 
16314   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16315     v3rholapltau[6] = 0.0e0;
16316 
16317   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16318     v3rholapltau[7] = 0.0e0;
16319 
16320   t22871 = t5643 * t372;
16321   t22872 = t446 * t5622;
16322   t22883 = t857 * t5634;
16323   t22887 = 0.2e1 / 0.3e1 * t424 * t5631;
16324   t22888 = t5626 * t5630;
16325   t22889 = t22888 * t459;
16326   t22893 = 0.1e1 / t27 / t270;
16327   t22895 = t1493 * t22893 * t5630;
16328   t22898 = t36 * t5628;
16329   t22899 = t5626 * t22898;
16330   t22900 = t22899 * t414;
16331   t22904 = my_piecewise3(t95, 0, -t22887 - 0.3e1 / 0.4e1 * t17133 * t22889 - 0.5e1 / 0.6e1 * t58 * t22895 + 0.5e1 / 0.6e1 * t4699 * t22900);
16332   t22905 = t363 * t22904;
16333   t22910 = t5637 * t443;
16334   t22913 = t4721 * t4714;
16335   t22916 = t5622 * t751;
16336   t22921 = t5634 * t227;
16337   t22922 = t22921 * t443;
16338   t22925 = t464 * t5634;
16339   t22926 = t22925 * t227;
16340   t22929 = t96 * t22904;
16341   t22930 = t22929 * t227;
16342   t22933 = t5639 * t751;
16343   t22936 = -0.2e1 * t1476 * t5635 - 0.2e1 * t22872 * t363 - 0.2e1 * t22883 * t449 - 0.2e1 * t22905 * t449 - 0.8e1 * t22910 * t400 + 0.4e1 * t22913 * t81 + 0.2e1 * t22916 * t81 - 0.8e1 * t22922 * t4720 + 0.2e1 * t22926 * t81 + 0.2e1 * t22930 * t81 + 0.2e1 * t22933 * t81 - 0.2e1 * t2448 * t5635 + 0.2e1 * t397 * t5637 + 0.2e1 * t397 * t5640 - 0.4e1 * t4715 * t5660 - 0.2e1 * t5623 * t857;
16344   t22937 = t7 * t22936;
16345   t22941 = 0.2e1 * t1333 * t1341;
16346   t22946 = t368 * t5658;
16347   t22948 = params->d * t22936;
16348   t22960 = t464 * t5622;
16349   t22963 = t1329 * t4714;
16350   t22968 = t5639 * t464;
16351   t22971 = t97 * t22904;
16352   t22974 = 0.12e2 * t1336 * t4748 + 0.6e1 * t1336 * t4751 + 0.6e1 * t1338 * t4742 + t22948 * t370 + 0.6e1 * t22960 * t369 + 0.12e2 * t22963 * t369 + 0.6e1 * t22968 * t369 + 0.3e1 * t22971 * t369 + 0.3e1 * t5648 * t875 + 0.6e1 * t5652 * t873 + 0.3e1 * t5655 * t873;
16353   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16354     v3rhotau2[0] = 0.2e1 * t1334 * t4754 + 0.2e1 * t1341 * t4737 + t22937 * t372 + t22974 * t872 + t5644 * t878 + t5658 * t870 + t22871 + t22941 + t22946;
16355 
16356   t22976 = t5675 * t372;
16357   t22977 = t446 * t1326;
16358   t22980 = t82 * t4714;
16359   t22991 = t857 * t5665;
16360   t22995 = 0.2e1 / 0.3e1 * t17125 * t5662;
16361   t22996 = t5751 * t88;
16362   t22997 = t58 * t22996;
16363   t22998 = t50 * t84;
16364   t22999 = t38 * t459;
16365   t23000 = t22998 * t22999;
16366   t23003 = t1493 * t88;
16367   t23004 = t58 * t23003;
16368   t23005 = t49 * t84;
16369   t23006 = t38 * t418;
16370   t23007 = t23005 * t23006;
16371   t23010 = t4766 * t1132;
16372   t23013 = t22998 * t415;
16373   t23017 = my_piecewise3(t95, 0, -t22995 - 0.3e1 / 0.4e1 * t22997 * t23000 + 0.5e1 / 0.12e2 * t23004 * t23007 - 0.5e1 / 0.12e2 * t4699 * t23010 + 0.5e1 / 0.12e2 * t23004 * t23013);
16374   t23018 = t363 * t23017;
16375   t23023 = t400 * t1326;
16376   t23026 = t4714 * t1347;
16377   t23027 = t23026 * t227;
16378   t23030 = t1326 * t4775;
16379   t23031 = t23030 * t227;
16380   t23034 = t5668 * t751;
16381   t23039 = t5665 * t227;
16382   t23040 = t23039 * t443;
16383   t23043 = t464 * t5665;
16384   t23044 = t23043 * t227;
16385   t23047 = t96 * t23017;
16386   t23048 = t23047 * t227;
16387   t23051 = t5671 * t751;
16388   t23054 = -0.2e1 * t1348 * t22977 - 0.2e1 * t1348 * t22980 - 0.2e1 * t1476 * t5666 - 0.2e1 * t22991 * t449 - 0.2e1 * t23018 * t449 - 0.8e1 * t23023 * t4782 + 0.2e1 * t23027 * t81 + 0.2e1 * t23031 * t81 + 0.2e1 * t23034 * t81 - 0.8e1 * t23040 * t4720 + 0.2e1 * t23044 * t81 + 0.2e1 * t23048 * t81 + 0.2e1 * t23051 * t81 - 0.2e1 * t2448 * t5666 + 0.2e1 * t397 * t5669 + 0.2e1 * t397 * t5672 - 0.2e1 * t4761 * t5660 - 0.2e1 * t4776 * t5660;
16389   t23055 = t7 * t23054;
16390   t23058 = t1354 * t1341;
16391   t23061 = t1333 * t1362;
16392   t23064 = t368 * t5692;
16393   t23066 = params->d * t23054;
16394   t23084 = t4785 * t1326;
16395   t23087 = t4789 * t1326;
16396   t23090 = t1350 * t4714;
16397   t23095 = t5671 * t464;
16398   t23098 = t97 * t23017;
16399   t23101 = 0.6e1 * t1336 * t4808 + 0.3e1 * t1336 * t4811 + 0.3e1 * t1338 * t4802 + 0.6e1 * t1357 * t4748 + 0.3e1 * t1357 * t4751 + 0.3e1 * t1359 * t4742 + t23066 * t370 + 0.6e1 * t23084 * t369 + 0.6e1 * t23087 * t369 + 0.6e1 * t23090 * t369 + 0.6e1 * t23095 * t369 + 0.3e1 * t23098 * t369 + 0.3e1 * t5680 * t875 + 0.6e1 * t5686 * t873 + 0.3e1 * t5689 * t873;
16400   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16401     v3rhotau2[1] = t1334 * t4814 + t1341 * t4797 + t1355 * t4754 + t1362 * t4737 + t23055 * t372 + t23101 * t872 + t5676 * t878 + t5692 * t870 + t22976 + t23058 + t23061 + t23064;
16402 
16403   t23103 = t5715 * t372;
16404   t23104 = t446 * t5694;
16405   t23107 = t82 * t1347;
16406   t23116 = t857 * t5706;
16407   t23120 = 0.2e1 / 0.3e1 * t424 * t5703;
16408   t23121 = t5698 * t5702;
16409   t23122 = t23121 * t459;
16410   t23125 = t48 * t5700;
16411   t23126 = t5698 * t23125;
16412   t23127 = t23126 * t418;
16413   t23131 = my_piecewise3(t95, 0, -t23120 - 0.3e1 / 0.4e1 * t17133 * t23122 + 0.5e1 / 0.6e1 * t4699 * t23127);
16414   t23132 = t363 * t23131;
16415   t23137 = t5709 * t443;
16416   t23140 = t4781 * t4775;
16417   t23143 = t5694 * t751;
16418   t23148 = t5706 * t227;
16419   t23149 = t23148 * t443;
16420   t23152 = t464 * t5706;
16421   t23153 = t23152 * t227;
16422   t23156 = t96 * t23131;
16423   t23157 = t23156 * t227;
16424   t23160 = t5711 * t751;
16425   t23163 = -0.2e1 * t1476 * t5707 - 0.2e1 * t23104 * t363 - 0.4e1 * t23107 * t4776 - 0.2e1 * t23116 * t449 - 0.2e1 * t23132 * t449 - 0.8e1 * t23137 * t400 + 0.4e1 * t23140 * t81 + 0.2e1 * t23143 * t81 - 0.8e1 * t23149 * t4720 + 0.2e1 * t23153 * t81 + 0.2e1 * t23157 * t81 + 0.2e1 * t23160 * t81 - 0.2e1 * t2448 * t5707 + 0.2e1 * t397 * t5709 + 0.2e1 * t397 * t5712 - 0.2e1 * t5695 * t857;
16426   t23164 = t7 * t23163;
16427   t23168 = 0.2e1 * t1354 * t1362;
16428   t23173 = t368 * t5730;
16429   t23175 = params->d * t23163;
16430   t23187 = t464 * t5694;
16431   t23190 = t1350 * t4775;
16432   t23195 = t5711 * t464;
16433   t23198 = t97 * t23131;
16434   t23201 = 0.12e2 * t1357 * t4808 + 0.6e1 * t1357 * t4811 + 0.6e1 * t1359 * t4802 + t23175 * t370 + 0.6e1 * t23187 * t369 + 0.12e2 * t23190 * t369 + 0.6e1 * t23195 * t369 + 0.3e1 * t23198 * t369 + 0.3e1 * t5720 * t875 + 0.6e1 * t5724 * t873 + 0.3e1 * t5727 * t873;
16435   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16436     v3rhotau2[2] = 0.2e1 * t1355 * t4814 + 0.2e1 * t1362 * t4797 + t23164 * t372 + t23201 * t872 + t5716 * t878 + t5730 * t870 + t23103 + t23168 + t23173;
16437 
16438   t23203 = t915 * t5622;
16439   t23214 = t1110 * t5634;
16440   t23217 = t22888 * t923;
16441   t23220 = t22899 * t887;
16442   t23224 = my_piecewise3(t95, 0, -t22887 - 0.3e1 / 0.4e1 * t17133 * t23217 + 0.5e1 / 0.6e1 * t4699 * t23220);
16443   t23225 = t363 * t23224;
16444   t23230 = t5637 * t912;
16445   t23233 = t4721 * t4830;
16446   t23236 = t5622 * t1037;
16447   t23241 = t22921 * t912;
16448   t23244 = t928 * t5634;
16449   t23245 = t23244 * t227;
16450   t23248 = t96 * t23224;
16451   t23249 = t23248 * t227;
16452   t23252 = t5639 * t1037;
16453   t23255 = -0.2e1 * t1110 * t5623 - 0.2e1 * t23203 * t363 - 0.2e1 * t23214 * t449 - 0.2e1 * t23225 * t449 - 0.8e1 * t23230 * t400 + 0.4e1 * t23233 * t81 + 0.2e1 * t23236 * t81 - 0.8e1 * t23241 * t4720 + 0.2e1 * t23245 * t81 + 0.2e1 * t23249 * t81 + 0.2e1 * t23252 * t81 - 0.2e1 * t2442 * t5635 - 0.2e1 * t4302 * t5635 - 0.4e1 * t4831 * t5660 + 0.2e1 * t5637 * t881 + 0.2e1 * t5640 * t881;
16454   t23256 = t7 * t23255;
16455   t23264 = params->d * t23255;
16456   t23276 = t928 * t5622;
16457   t23279 = t1329 * t4830;
16458   t23284 = t5639 * t928;
16459   t23287 = t97 * t23224;
16460   t23290 = 0.6e1 * t1125 * t5652 + 0.3e1 * t1125 * t5655 + 0.3e1 * t1127 * t5648 + 0.12e2 * t1336 * t4861 + 0.6e1 * t1336 * t4864 + 0.6e1 * t1338 * t4855 + t23264 * t370 + 0.6e1 * t23276 * t369 + 0.12e2 * t23279 * t369 + 0.6e1 * t23284 * t369 + 0.3e1 * t23287 * t369;
16461   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16462     v3rhotau2[3] = t1123 * t5658 + t1130 * t5644 + 0.2e1 * t1334 * t4867 + 0.2e1 * t1341 * t4851 + t23256 * t372 + t23290 * t872 + t22871 + t22941 + t22946;
16463 
16464   t23292 = t915 * t1326;
16465   t23295 = t82 * t4830;
16466   t23306 = t1110 * t5665;
16467   t23309 = t38 * t923;
16468   t23310 = t22998 * t23309;
16469   t23313 = t1274 * t4700;
16470   t23316 = t38 * t897;
16471   t23317 = t23005 * t23316;
16472   t23320 = t22998 * t888;
16473   t23324 = my_piecewise3(t95, 0, -t22995 - 0.3e1 / 0.4e1 * t22997 * t23310 - 0.5e1 / 0.12e2 * t4699 * t23313 + 0.5e1 / 0.12e2 * t23004 * t23317 + 0.5e1 / 0.12e2 * t23004 * t23320);
16474   t23325 = t363 * t23324;
16475   t23332 = t4830 * t1347;
16476   t23333 = t23332 * t227;
16477   t23336 = t1326 * t4887;
16478   t23337 = t23336 * t227;
16479   t23340 = t5668 * t1037;
16480   t23345 = t23039 * t912;
16481   t23348 = t928 * t5665;
16482   t23349 = t23348 * t227;
16483   t23352 = t96 * t23324;
16484   t23353 = t23352 * t227;
16485   t23356 = t5671 * t1037;
16486   t23359 = -0.2e1 * t1348 * t23292 - 0.2e1 * t1348 * t23295 - 0.8e1 * t23023 * t4893 - 0.2e1 * t23306 * t449 - 0.2e1 * t23325 * t449 + 0.2e1 * t23333 * t81 + 0.2e1 * t23337 * t81 + 0.2e1 * t23340 * t81 - 0.8e1 * t23345 * t4720 + 0.2e1 * t23349 * t81 + 0.2e1 * t23353 * t81 + 0.2e1 * t23356 * t81 - 0.2e1 * t2442 * t5666 - 0.2e1 * t4302 * t5666 - 0.2e1 * t4873 * t5660 - 0.2e1 * t4888 * t5660 + 0.2e1 * t5669 * t881 + 0.2e1 * t5672 * t881;
16487   t23360 = t7 * t23359;
16488   t23368 = params->d * t23359;
16489   t23386 = t4896 * t1326;
16490   t23389 = t4900 * t1326;
16491   t23392 = t1350 * t4830;
16492   t23397 = t5671 * t928;
16493   t23400 = t97 * t23324;
16494   t23403 = 0.6e1 * t1125 * t5686 + 0.3e1 * t1125 * t5689 + 0.3e1 * t1127 * t5680 + 0.6e1 * t1336 * t4918 + 0.3e1 * t1336 * t4921 + 0.3e1 * t1338 * t4912 + 0.6e1 * t1357 * t4861 + 0.3e1 * t1357 * t4864 + 0.3e1 * t1359 * t4855 + t23368 * t370 + 0.6e1 * t23386 * t369 + 0.6e1 * t23389 * t369 + 0.6e1 * t23392 * t369 + 0.6e1 * t23397 * t369 + 0.3e1 * t23400 * t369;
16495   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16496     v3rhotau2[4] = t1123 * t5692 + t1130 * t5676 + t1334 * t4924 + t1341 * t4908 + t1355 * t4867 + t1362 * t4851 + t23360 * t372 + t23403 * t872 + t22976 + t23058 + t23061 + t23064;
16497 
16498   t23405 = t915 * t5694;
16499   t23416 = t1110 * t5706;
16500   t23419 = t23121 * t923;
16501   t23423 = 0.1e1 / t41 / t334;
16502   t23425 = t1493 * t23423 * t5702;
16503   t23428 = t23126 * t897;
16504   t23432 = my_piecewise3(t95, 0, -t23120 - 0.3e1 / 0.4e1 * t17133 * t23419 - 0.5e1 / 0.6e1 * t58 * t23425 + 0.5e1 / 0.6e1 * t4699 * t23428);
16505   t23433 = t363 * t23432;
16506   t23438 = t5709 * t912;
16507   t23441 = t4781 * t4887;
16508   t23444 = t5694 * t1037;
16509   t23449 = t23148 * t912;
16510   t23452 = t928 * t5706;
16511   t23453 = t23452 * t227;
16512   t23456 = t96 * t23432;
16513   t23457 = t23456 * t227;
16514   t23460 = t5711 * t1037;
16515   t23463 = -0.2e1 * t1110 * t5695 - 0.4e1 * t23107 * t4888 - 0.2e1 * t23405 * t363 - 0.2e1 * t23416 * t449 - 0.2e1 * t23433 * t449 - 0.8e1 * t23438 * t400 + 0.4e1 * t23441 * t81 + 0.2e1 * t23444 * t81 - 0.8e1 * t23449 * t4720 + 0.2e1 * t23453 * t81 + 0.2e1 * t23457 * t81 + 0.2e1 * t23460 * t81 - 0.2e1 * t2442 * t5707 - 0.2e1 * t4302 * t5707 + 0.2e1 * t5709 * t881 + 0.2e1 * t5712 * t881;
16516   t23464 = t7 * t23463;
16517   t23472 = params->d * t23463;
16518   t23484 = t928 * t5694;
16519   t23487 = t1350 * t4887;
16520   t23492 = t5711 * t928;
16521   t23495 = t97 * t23432;
16522   t23498 = 0.6e1 * t1125 * t5724 + 0.3e1 * t1125 * t5727 + 0.3e1 * t1127 * t5720 + 0.12e2 * t1357 * t4918 + 0.6e1 * t1357 * t4921 + 0.6e1 * t1359 * t4912 + t23472 * t370 + 0.6e1 * t23484 * t369 + 0.12e2 * t23487 * t369 + 0.6e1 * t23492 * t369 + 0.3e1 * t23495 * t369;
16523   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16524     v3rhotau2[5] = t1123 * t5730 + t1130 * t5716 + 0.2e1 * t1355 * t4924 + 0.2e1 * t1362 * t4908 + t23464 * t372 + t23498 * t872 + t23103 + t23168 + t23173;
16525 
16526   t23501 = t66 * t1136 * t5039;
16527   t23504 = t4926 * t25;
16528   t23505 = t4927 * t1133;
16529   t23506 = t23504 * t23505;
16530   t23507 = t6453 * t23506;
16531   t23508 = 0.1e1 / t1164;
16532   t23509 = t4933 * t73;
16533   t23510 = t23508 * t23509;
16534   t23511 = t23510 * t3763;
16535   t23515 = t5057 * t167 * t168;
16536   t23516 = t23515 * t1192;
16537   t23518 = t5060 * t5027;
16538   t23521 = t4973 * t4976 * t4978;
16539   t23522 = t23521 * t18110;
16540   t23524 = t2746 * t18128 * t1181;
16541   t23525 = t23522 * t23524;
16542   t23527 = t5007 * t1181;
16543   t23528 = t4973 * t23527;
16544   t23529 = t23528 * t4976;
16545   t23532 = t1159 * t1159;
16546   t23533 = t23532 * t214;
16547   t23534 = t1161 * t1161;
16548   t23535 = 0.1e1 / t23534;
16549   t23536 = t23533 * t23535;
16550   t23537 = t1164 * t1164;
16551   t23538 = t23537 * t6345;
16552   t23540 = t23538 * t1887 * t23527;
16553   t23543 = t23537 * t2059;
16554   t23544 = t23543 * t1887;
16555   t23545 = t23536 * t23544;
16556   t23548 = t2745 * t532;
16557   t23549 = t1181 * t202 * t203 * t23548;
16558   t23550 = t23545 * t23549;
16559   t23552 = -t23525 / 0.256e3 + 0.6e1 * t23529 * t18168 - 0.6e1 * t23536 * t23540 + t23550 / 0.256e3;
16560   t23553 = t175 * t23552;
16561   t23554 = t23553 * t748;
16562   t23555 = t1214 * t23554;
16563   t23557 = t23521 * t18223 * t61;
16564   t23558 = t570 * t1156;
16565   t23559 = t474 * t23558;
16566   t23560 = t533 * t23559;
16567   t23563 = t4967 * t1156;
16568   t23564 = t4973 * t23563;
16569   t23565 = t23564 * t4976;
16570   t23569 = t23532 * t282;
16571   t23570 = t23569 * t23535;
16572   t23571 = t23537 * t7024;
16573   t23573 = t23571 * t1668 * t23563;
16574   t23576 = t23537 * t1734;
16575   t23577 = t23576 * t14262;
16576   t23578 = t23570 * t23577;
16577   t23581 = -t23557 * t23560 / 0.128e3 + 0.6e1 * t23565 * t4979 * t527 - 0.6e1 * t23570 * t23573 + t23578 * t4989 / 0.128e3;
16578   t23588 = t4995 * t1169;
16579   t23592 = t169 * t23554;
16580   t23593 = t18335 * t1190;
16581   t23596 = t5029 * t1190;
16582   t23597 = t175 * t23596;
16583   t23598 = t23597 * t6117;
16584   t23599 = t169 * t23598;
16585   t23601 = -0.3e1 * t23593 * t2849 + t23592 + 0.2e1 * t23599;
16586   t23602 = my_piecewise3(t296, t169 * t23581 * t581 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t18320 * t1169 + t169 * t23588 * t7082, t23601);
16587   t23604 = my_piecewise3(t359, 0, t23601);
16588   t23605 = t23604 * t46;
16589   t23607 = t23602 * t34 / 0.2e1 + t23605 / 0.2e1;
16590   t23610 = t4932 * t4934 * t1199;
16591   t23613 = t5060 * t5031;
16592   t23615 = t5026 * t3923;
16593   t23617 = 0.3e1 * t1214 * t23615;
16594   t23618 = t5097 * t4955;
16595   t23619 = 0.6e1 * t23618;
16596   t23620 = t5039 * t1143;
16597   t23621 = t449 * t23620;
16598   t23623 = t1199 * t4954;
16599   t23624 = t449 * t23623;
16600   t23625 = 0.6e1 * t23624;
16601   t23626 = t6453 * t97;
16602   t23627 = t23506 * t23510;
16603   t23630 = t5044 * t1143;
16604   t23631 = t5043 * t23630;
16605   t23632 = t18368 * t23631;
16606   t23634 = t4947 * t25;
16607   t23635 = t400 * t23634;
16608   t23636 = t23635 * t1205;
16609   t23637 = t1204 * t4954;
16610   t23638 = t1203 * t23637;
16611   t23639 = t3945 * t23638;
16612   t23640 = t1143 * t4954;
16613   t23641 = t81 * t23640;
16614   t23642 = 0.6e1 * t23641;
16615   t23643 = -0.5e1 / 0.192e3 * t23626 * t23627 + 0.5e1 / 0.24e2 * t23632 - t23636 - t23639 + t23642 + t5056;
16616   t23645 = t4948 * t1199;
16617   t23648 = 0.2e1 * t1214 * t23598;
16618   t23649 = t5044 * t4939;
16619   t23650 = t18055 * t23649;
16620   t23652 = t73 * t4947;
16621   t23654 = t66 * t23652 * t363;
16622   t23655 = t1135 * t23654;
16623   t23656 = t18210 * t1143;
16624   t23657 = t1204 * t23656;
16625   t23658 = t3788 * t23657;
16626   t23660 = t3789 * t4954;
16627   t23661 = t1204 * t23660;
16628   t23662 = t3788 * t23661;
16629   t23663 = t1135 * t23501 / 0.2e1 + 0.5e1 / 0.192e3 * t23507 * t23511 - t4957 + 0.3e1 * t23516 + 0.3e1 * t23518 + t23555 - t98 * t23607 - 0.5e1 / 0.48e2 * t4929 * t23610 - 0.3e1 * t23613 - t23617 - t23619 - 0.6e1 * t23621 - t23625 + t23643 * t227 - 0.6e1 * t23645 + t23648 - 0.5e1 / 0.24e2 * t23650 + t23655 + 0.2e1 * t23658 + t23662;
16630   t23664 = t7 * t23663;
16631   t23670 = params->d * t23663;
16632   t23672 = t5070 * t1221;
16633   t23674 = t1219 * t5074;
16634   t23676 = t1219 * t5077;
16635   t23677 = 0.9e1 * t23676;
16636   t23678 = t4947 * t1143;
16637   t23680 = 0.6e1 * t369 * t23678;
16638   t23681 = t1208 * t4954;
16639   t23682 = t369 * t23681;
16640   t23683 = 0.18e2 * t23682;
16641   t23684 = t23670 * t370 + 0.9e1 * t23672 + 0.18e2 * t23674 + t23677 + t23680 + t23683 + t5079;
16642   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16643     v3sigma3[0] = 0.3e1 * t1217 * t5080 + 0.3e1 * t1224 * t5066 + t23664 * t372 + t23684 * t872;
16644 
16645   t23686 = t23525 / 0.192e3;
16646   t23687 = t4973 * t1237;
16647   t23688 = t23687 * t4976;
16648   t23691 = t23688 * t5021;
16649   t23692 = t23691 * t211;
16650   t23694 = t23535 * t23537;
16651   t23695 = t23533 * t23694;
16652   t23696 = t6345 * t1887;
16653   t23697 = t1237 * t5007;
16654   t23698 = t23696 * t23697;
16655   t23701 = t23550 / 0.192e3;
16656   t23704 = t1237 * t202 * t203 * t23548;
16657   t23705 = t23545 * t23704;
16658   t23707 = -t23686 + 0.6e1 * t23688 * t5017 - t23692 / 0.768e3 - 0.6e1 * t23695 * t23698 + t23701 + t23705 / 0.768e3;
16659   t23708 = t175 * t23707;
16660   t23709 = t23708 * t748;
16661   t23710 = t169 * t23709;
16662   t23711 = t18617 * t1190;
16663   t23714 = t13542 * t5029;
16664   t23717 = t4079 * t5025;
16665   t23719 = -0.2e1 * t23711 * t2849 + 0.2e1 * t23714 * t2849 - t23717 * t2849 + t23710;
16666   t23720 = my_piecewise3(t296, 0, t23719);
16667   t23722 = my_piecewise3(t359, 0, t23719);
16668   t23725 = t23720 * t34 / 0.2e1 + t23722 * t46 / 0.2e1;
16669   t23726 = t98 * t23725;
16670   t23728 = 0.2e1 * t4948 * t1252;
16671   t23729 = 0.2e1 / 0.3e1 * t23662;
16672   t23730 = t5044 * t5093;
16673   t23733 = t1144 * t1231;
16674   t23734 = t1204 * t23733;
16675   t23735 = t3788 * t23734;
16676   t23737 = t18732 * t1143;
16677   t23738 = t1204 * t23737;
16678   t23739 = t3788 * t23738;
16679   t23741 = t18205 * t1133;
16680   t23742 = t5044 * t23741;
16681   t23745 = t1244 * t18335;
16682   t23746 = t1214 * t23745;
16683   t23747 = t97 * t23504;
16684   t23748 = t6453 * t23747;
16685   t23749 = t57 * t23508;
16686   t23750 = t23509 * t4927;
16687   t23751 = t23749 * t23750;
16688   t23755 = t4932 * t18774 * t1143;
16689   t23756 = t18823 * t23755;
16690   t23759 = 0.2e1 / 0.3e1 * t23635 * t1255;
16691   t23760 = t1254 * t23637;
16692   t23761 = t3945 * t23760;
16693   t23762 = 0.2e1 / 0.3e1 * t23761;
16694   t23764 = t4932 * t4933;
16695   t23765 = t4928 * t23764;
16696   t23768 = t400 * t5149;
16697   t23769 = t23768 * t5146;
16698   t23771 = 0.2e1 / 0.3e1 * t23639;
16699   t23772 = t4954 * t1231;
16700   t23773 = t81 * t23772;
16701   t23774 = 0.2e1 * t23773;
16702   t23775 = 0.4e1 * t23641;
16703   t23776 = 0.5e1 / 0.96e2 * t23748 * t23751 - 0.5e1 / 0.18e2 * t23756 + t23759 + t23762 + 0.5e1 / 0.72e2 * t1397 * t1258 * t23765 - 0.2e1 / 0.3e1 * t23769 - t23771 + t23774 + t23775 + t5056;
16704   t23779 = 0.2e1 / 0.3e1 * t1227 * t23654;
16705   t23781 = t66 * t1136 * t5135;
16706   t23782 = t1135 * t23781;
16707   t23785 = t4932 * t4934 * t1252;
16708   t23790 = t23504 * t57;
16709   t23791 = t6453 * t23790;
16710   t23793 = t23510 * t3763 * t4927;
16711   t23796 = 0.4e1 * t23618;
16712   t23797 = 0.4e1 * t23624;
16713   t23798 = -t23726 - t23728 + t23729 - 0.5e1 / 0.72e2 * t18055 * t23730 + 0.2e1 / 0.3e1 * t23735 + 0.2e1 / 0.3e1 * t23739 + 0.5e1 / 0.36e2 * t5084 * t23742 - t4957 - t23746 + t23776 * t227 - t23779 + t23782 / 0.3e1 - 0.5e1 / 0.144e3 * t4929 * t23785 - t1227 * t23501 / 0.3e1 - 0.5e1 / 0.96e2 * t23791 * t23793 - t23796 - t23797;
16714   t23799 = t18210 * t1231;
16715   t23800 = t1204 * t23799;
16716   t23803 = t4026 * t23657;
16717   t23805 = t4026 * t23661;
16718   t23806 = 0.2e1 / 0.3e1 * t23805;
16719   t23807 = t5060 * t5159;
16720   t23809 = t5124 * t3923;
16721   t23811 = 0.2e1 * t1214 * t23809;
16722   t23812 = t5097 * t5100;
16723   t23814 = t5039 * t1231;
16724   t23817 = t5135 * t1143;
16725   t23819 = 0.4e1 * t449 * t23817;
16726   t23820 = t1252 * t4954;
16727   t23821 = t449 * t23820;
16728   t23822 = 0.2e1 * t23821;
16729   t23823 = t82 * t4954;
16730   t23824 = t23823 * t1232;
16731   t23825 = 0.2e1 * t23824;
16732   t23826 = t18544 * t1143;
16733   t23827 = t18560 * t23826;
16734   t23828 = t5084 * t23827;
16735   t23831 = t5060 * t5125;
16736   t23833 = t1214 * t23709;
16737   t23835 = t5152 * t167 * t168;
16738   t23836 = t23835 * t1192;
16739   t23838 = t5155 * t5027;
16740   t23839 = t5155 * t5031;
16741   t23840 = t1244 * t18345;
16742   t23842 = 0.2e1 * t1214 * t23840;
16743   t23843 = 0.2e1 / 0.3e1 * t3788 * t23800 - 0.4e1 / 0.3e1 * t23803 - t23806 - 0.2e1 * t23807 - t23811 - 0.4e1 * t23812 - 0.2e1 * t449 * t23814 - t23819 - t23822 - t23825 + 0.5e1 / 0.18e2 * t23828 + t23515 * t1245 + 0.2e1 * t23831 + t23833 + 0.2e1 * t23836 + t23838 - t23839 + t23842;
16744   t23844 = t23798 + t23843;
16745   t23845 = t7 * t23844;
16746   t23853 = params->d * t23844;
16747   t23855 = t5166 * t1221;
16748   t23858 = 0.6e1 * t1267 * t5074;
16749   t23859 = t1267 * t5077;
16750   t23860 = 0.3e1 * t23859;
16751   t23863 = t1219 * t5172;
16752   t23865 = 0.6e1 * t23676;
16753   t23866 = t4947 * t1231;
16754   t23868 = 0.6e1 * t369 * t23866;
16755   t23869 = 0.12e2 * t23682;
16756   t23870 = t1258 * t4954;
16757   t23871 = t369 * t23870;
16758   t23872 = 0.6e1 * t23871;
16759   t23873 = 0.3e1 * t1269 * t5070 + t23853 * t370 + 0.6e1 * t23855 + t23858 + t23860 + 0.12e2 * t23863 + t23865 + t23868 + t23869 + t23872 + t5079;
16760   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16761     v3sigma3[1] = 0.2e1 * t1217 * t5175 + 0.2e1 * t1224 * t5162 + t1265 * t5080 + t1272 * t5066 + t23845 * t372 + t23873 * t872;
16762 
16763   t23878 = 0.2e1 / 0.3e1 * t4173 * t23657;
16764   t23879 = t4173 * t23661;
16765   t23880 = t23879 / 0.3e1;
16766   t23882 = t18923 * t1143;
16767   t23883 = t1204 * t23882;
16768   t23885 = 0.2e1 / 0.3e1 * t3788 * t23883;
16769   t23888 = t1275 * t23508;
16770   t23889 = t23888 * t23750;
16771   t23893 = 0.5e1 / 0.36e2 * t19027 * t23755;
16772   t23894 = t23635 * t1310;
16773   t23896 = t1309 * t23637;
16774   t23897 = t3945 * t23896;
16775   t23898 = t23897 / 0.3e1;
16776   t23901 = -0.5e1 / 0.192e3 * t23748 * t23889 + t23893 - t23894 / 0.3e1 - t23898 + 0.5e1 / 0.72e2 * t23632 - 0.2e1 / 0.3e1 * t23636 - t23771 + t23642 + t5056;
16777   t23904 = 0.5e1 / 0.36e2 * t5179 * t23827;
16778   t23905 = t5198 * t1143;
16779   t23907 = 0.4e1 * t449 * t23905;
16780   t23908 = t1307 * t4954;
16781   t23909 = t449 * t23908;
16782   t23910 = 0.2e1 * t23909;
16783   t23912 = -0.5e1 / 0.72e2 * t5179 * t23742 + t23878 + t23880 - 0.4e1 * t23645 + t23885 - 0.5e1 / 0.72e2 * t23650 + 0.2e1 / 0.3e1 * t23658 + t23729 + t23901 * t227 - t23904 - t4957 + t23648 - t23907 - t23910 - t23619 - 0.2e1 * t23621;
16784   t23913 = my_piecewise3(t296, 0, t23601);
16785   t23914 = t23913 * t34;
16786   t23916 = t23914 / 0.2e1 + t23605 / 0.2e1;
16787   t23917 = t98 * t23916;
16788   t23918 = t23504 * t1275;
16789   t23919 = t6453 * t23918;
16790   t23922 = t1277 * t23654;
16791   t23925 = t66 * t1136 * t5198;
16792   t23929 = t5208 * t167 * t168;
16793   t23931 = 0.2e1 * t23929 * t1192;
16794   t23932 = t5211 * t5027;
16795   t23934 = t4948 * t1307;
16796   t23939 = t4932 * t4934 * t1307;
16797   t23944 = t5211 * t5031;
16798   t23945 = -t23797 - t23917 + 0.5e1 / 0.192e3 * t23919 * t23793 + t23922 / 0.3e1 + t1135 * t23925 / 0.3e1 + t23931 + t23932 + 0.2e1 / 0.3e1 * t23655 - 0.2e1 * t23934 - t23617 + t1277 * t23501 / 0.6e1 - 0.5e1 / 0.144e3 * t4929 * t23939 - 0.2e1 * t23613 + t23516 + 0.2e1 * t23518 + t23555 - t23944;
16799   t23946 = t23912 + t23945;
16800   t23947 = t7 * t23946;
16801   t23955 = params->d * t23946;
16802   t23958 = 0.6e1 * t5218 * t1221;
16803   t23959 = t1318 * t5074;
16804   t23961 = t1318 * t5077;
16805   t23962 = 0.3e1 * t23961;
16806   t23965 = t23955 * t370 + 0.3e1 * t23672 + 0.12e2 * t23674 + t23680 + t23683 + t23865 + t23958 + 0.6e1 * t23959 + t23962 + t5079;
16807   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16808     v3sigma3[2] = 0.2e1 * t1217 * t5223 + 0.2e1 * t1224 * t5214 + t1316 * t5080 + t1320 * t5066 + t23947 * t372 + t23965 * t872;
16809 
16810   t23967 = t18732 * t1231;
16811   t23968 = t1204 * t23967;
16812   t23972 = 0.5e1 / 0.18e2 * t19122 * t23649;
16813   t23974 = 0.4e1 / 0.3e1 * t4026 * t23734;
16814   t23978 = 0.4e1 / 0.3e1 * t4026 * t23738;
16815   t23979 = t18727 * t1133;
16816   t23980 = t5044 * t23979;
16817   t23983 = t1232 * t1133;
16818   t23984 = t18560 * t23983;
16819   t23987 = t23662 / 0.3e1;
16820   t23988 = t5258 * t13055;
16821   t23990 = 0.2e1 * t1214 * t23988;
16822   t23992 = 0.2e1 * t5155 * t5159;
16823   t23994 = t4973 * t5243;
16824   t23995 = t23994 * t4976;
16825   t23999 = t5243 * t1181;
16826   t24000 = t23696 * t23999;
16827   t24004 = -t23686 - t23692 / 0.192e3 + 0.6e1 * t23995 * t5015 * t13012 - 0.6e1 * t23695 * t24000 + t23705 / 0.192e3 + t23701;
16828   t24005 = t175 * t24004;
16829   t24006 = t24005 * t748;
16830   t24007 = t169 * t24006;
16831   t24008 = t19276 * t1190;
16832   t24010 = t4079 * t5123;
16833   t24013 = t19286 * t1190;
16834   t24016 = -t24008 * t2849 - 0.2e1 * t24010 * t2849 + 0.2e1 * t24013 * t2849 + t24007;
16835   t24017 = my_piecewise3(t296, 0, t24016);
16836   t24019 = my_piecewise3(t359, 0, t24016);
16837   t24022 = t24017 * t34 / 0.2e1 + t24019 * t46 / 0.2e1;
16838   t24023 = t98 * t24022;
16839   t24027 = 0.2e1 / 0.3e1 * t1227 * t23781;
16840   t24028 = t23504 * t5226;
16841   t24029 = t6453 * t24028;
16842   t24030 = t23510 * t5085;
16843   t24035 = 0.2e1 / 0.3e1 * t3788 * t23968 - t23972 - t23974 - 0.4e1 / 0.3e1 * t4026 * t23800 - t23978 + 0.5e1 / 0.36e2 * t5084 * t23980 + 0.5e1 / 0.18e2 * t5084 * t23984 + t23987 + t23990 - t23992 - t4957 - t24023 - 0.5e1 / 0.36e2 * t5228 * t23610 - t24027 + 0.5e1 / 0.48e2 * t24029 * t24030 - t5060 * t5259 + t5060 * t5255;
16844   t24036 = t1214 * t24006;
16845   t24037 = t5226 * t23508;
16846   t24038 = t23509 * t1133;
16847   t24039 = t24037 * t24038;
16848   t24042 = t5269 * t23630;
16849   t24044 = 0.5e1 / 0.18e2 * t18368 * t24042;
16850   t24045 = t4933 * t1231;
16851   t24047 = t4932 * t24045 * t1133;
16852   t24050 = t1143 * t25;
16853   t24051 = t400 * t24050;
16854   t24053 = 0.4e1 / 0.3e1 * t24051 * t5274;
16855   t24054 = 0.4e1 / 0.3e1 * t23761;
16856   t24055 = t5235 * t25;
16857   t24056 = t400 * t24055;
16858   t24059 = 0.4e1 * t23773;
16859   t24060 = t23639 / 0.3e1;
16860   t24061 = 0.2e1 * t23641;
16861   t24062 = -0.5e1 / 0.48e2 * t23748 * t24039 + t24044 - 0.5e1 / 0.18e2 * t18823 * t24047 + t24053 + t24054 - t24056 * t1205 / 0.3e1 + t24059 - t24060 + t24061 + t5056;
16862   t24065 = t5279 * t167 * t168;
16863   t24066 = t24065 * t1192;
16864   t24070 = 0.2e1 * t5155 * t5125;
16865   t24071 = 0.2e1 * t23618;
16866   t24072 = 0.2e1 * t23624;
16867   t24073 = t73 * t5235;
16868   t24075 = t66 * t24073 * t363;
16869   t24079 = t66 * t1136 * t5267;
16870   t24082 = t5254 * t3923;
16871   t24083 = t1214 * t24082;
16872   t24084 = t1244 * t18617;
16873   t24086 = 0.2e1 * t1214 * t24084;
16874   t24087 = 0.4e1 / 0.3e1 * t23805;
16875   t24088 = t5135 * t1231;
16876   t24090 = 0.4e1 * t449 * t24088;
16877   t24091 = t5267 * t1143;
16878   t24093 = 0.2e1 * t449 * t24091;
16879   t24096 = 0.4e1 * t23821;
16880   t24097 = 0.4e1 * t23824;
16881   t24099 = 0.4e1 * t5097 * t5239;
16882   t24100 = t24036 + t24062 * t227 + t24066 + 0.2e1 * t23835 * t1245 + t24070 - t24071 - t24072 + t1135 * t24075 / 0.3e1 + t1135 * t24079 / 0.6e1 - t24083 - t24086 - t24087 - t24090 - t24093 - 0.2e1 * t5236 * t1199 - t24096 - t24097 - t24099;
16883   t24101 = t24035 + t24100;
16884   t24102 = t7 * t24101;
16885   t24110 = params->d * t24101;
16886   t24113 = 0.3e1 * t5290 * t1221;
16887   t24117 = 0.12e2 * t1267 * t5172;
16888   t24118 = 0.6e1 * t23859;
16889   t24121 = t1143 * t5235;
16890   t24123 = 0.6e1 * t369 * t24121;
16891   t24124 = 0.12e2 * t23871;
16892   t24125 = 0.3e1 * t23676;
16893   t24126 = 0.6e1 * t23682;
16894   t24127 = 0.6e1 * t1219 * t5294 + 0.6e1 * t1269 * t5166 + t24110 * t370 + t24113 + t24117 + t24118 + t24123 + t24124 + t24125 + t24126 + t5079;
16895   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16896     v3sigma3[3] = t1217 * t5297 + t1224 * t5286 + 0.2e1 * t1265 * t5175 + 0.2e1 * t1272 * t5162 + t24102 * t372 + t24127 * t872;
16897 
16898   t24129 = t19359 * t1143;
16899   t24130 = t18560 * t24129;
16900   t24131 = t5179 * t24130;
16901   t24133 = t5211 * t5159;
16902   t24134 = t4173 * t23738;
16903   t24138 = t4173 * t23734;
16904   t24142 = t18205 * t57;
16905   t24143 = t5044 * t24142;
16906   t24146 = t23918 * t23508;
16907   t24147 = t6453 * t24146;
16908   t24148 = t23509 * t97;
16909   t24150 = t24148 * t19359 * t1133;
16910   t24153 = t23880 - t23726 - t23728 + 0.5e1 / 0.36e2 * t24131 + t23987 - t24133 + t24134 / 0.3e1 - 0.5e1 / 0.144e3 * t5179 * t23980 + t24138 / 0.3e1 + t4173 * t23800 / 0.3e1 + 0.5e1 / 0.72e2 * t5179 * t24143 - 0.5e1 / 0.96e2 * t24147 * t24150;
16911   t24154 = t4026 * t23883;
16912   t24156 = t18918 * t1133;
16913   t24157 = t5044 * t24156;
16914   t24160 = t18923 * t1231;
16915   t24161 = t1204 * t24160;
16916   t24168 = t23509 * t57;
16917   t24169 = t24168 * t1133;
16918   t24170 = t23888 * t24169;
16919   t24174 = t4932 * t19430 * t1143;
16920   t24175 = t19027 * t24174;
16921   t24179 = t24051 * t5316;
16922   t24183 = 0.5e1 / 0.96e2 * t23748 * t24170 - 0.5e1 / 0.36e2 * t24175 + 0.5e1 / 0.72e2 * t19027 * t24047 - t24179 / 0.3e1 - t23898 - 0.5e1 / 0.36e2 * t23756 + t23759 + t23762 - t23769 / 0.3e1 + t23774 + t23775 - t24060 + t5056;
16923   t24186 = -0.2e1 / 0.3e1 * t24154 + 0.5e1 / 0.72e2 * t5084 * t24157 + t3788 * t24161 / 0.3e1 + t23735 / 0.3e1 + t23739 / 0.3e1 - t4957 - 0.5e1 / 0.72e2 * t5179 * t23984 - t23746 - t23910 + t24183 * t227 - t23779 + t23782 / 0.6e1;
16924   t24189 = t5319 * t167 * t168;
16925   t24190 = t24189 * t1192;
16926   t24192 = t5211 * t5125;
16927   t24194 = t1277 * t23781;
16928   t24197 = -t23796 - t24072 + t24190 + t23929 * t1245 + t24192 - 0.2e1 / 0.3e1 * t23803 - t23806 + t24194 / 0.6e1 - t23807 - t23811 - 0.2e1 * t23812 - t23819;
16929   t24201 = t5097 * t5309;
16930   t24203 = t5198 * t1231;
16931   t24206 = -t23822 - t23825 + 0.5e1 / 0.36e2 * t23828 + t23831 + t23833 + t23836 + t23838 - t23839 + t23842 - t1227 * t23925 / 0.3e1 - 0.2e1 * t24201 - 0.2e1 * t449 * t24203;
16932   t24208 = t24153 + t24186 + t24197 + t24206;
16933   t24209 = t7 * t24208;
16934   t24217 = params->d * t24208;
16935   t24219 = t5327 * t1221;
16936   t24223 = t1318 * t5172;
16937   t24227 = 0.3e1 * t1269 * t5218 + t24217 * t370 + 0.3e1 * t23855 + t23858 + t23860 + 0.6e1 * t23863 + t23868 + t23869 + t23872 + t23962 + t24125 + 0.3e1 * t24219 + 0.6e1 * t24223 + t5079;
16938   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16939     v3sigma3[4] = t1217 * t5331 + t1224 * t5323 + t1265 * t5223 + t1272 * t5214 + t1316 * t5175 + t1320 * t5162 + t24209 * t372 + t24227 * t872;
16940 
16941   t24229 = 0.2e1 / 0.3e1 * t23879;
16942   t24231 = t5333 * t23508;
16943   t24232 = t24231 * t24038;
16944   t24235 = t5383 * t23630;
16945   t24236 = t18368 * t24235;
16946   t24239 = 0.2e1 / 0.3e1 * t23897;
16947   t24241 = -0.5e1 / 0.192e3 * t23748 * t24232 + 0.5e1 / 0.72e2 * t24236 + t23893 - 0.2e1 / 0.3e1 * t23894 - t24239 - t23636 / 0.3e1 + t23642 - t24060 + t5056;
16948   t24243 = t4173 * t23883;
16949   t24247 = t19532 * t23649;
16950   t24249 = 0.4e1 * t23909;
16951   t24250 = t23878 + t24229 - 0.2e1 * t23645 + t23885 + t23987 + t24241 * t227 + 0.2e1 / 0.3e1 * t24243 - 0.5e1 / 0.72e2 * t5179 * t24157 - t23904 - t4957 + t23648 - 0.5e1 / 0.72e2 * t24247 - t23907 - t24249 - t23619 - t24072;
16952   t24255 = t66 * t1136 * t5381;
16953   t24258 = t23504 * t5333;
16954   t24259 = t6453 * t24258;
16955   t24269 = t5388 * t167 * t168;
16956   t24270 = t24269 * t1192;
16957   t24271 = t5381 * t1143;
16958   t24272 = t449 * t24271;
16959   t24274 = -t23917 + 0.2e1 / 0.3e1 * t23922 + t23931 + 0.2e1 * t23932 + t23655 / 0.3e1 + t1135 * t24255 / 0.6e1 + 0.5e1 / 0.192e3 * t24259 * t24030 + t1277 * t23925 / 0.3e1 - 0.5e1 / 0.144e3 * t5335 * t23610 - 0.4e1 * t23934 - t23617 - t23613 + t23518 + t23555 - 0.2e1 * t23944 + t24270 - 0.2e1 * t24272;
16960   t24275 = t24250 + t24274;
16961   t24276 = t7 * t24275;
16962   t24284 = params->d * t24275;
16963   t24286 = t5396 * t1221;
16964   t24289 = 0.6e1 * t23961;
16965   t24291 = t24284 * t370 + 0.6e1 * t23674 + t23680 + t23683 + t23958 + 0.12e2 * t23959 + t24125 + 0.3e1 * t24286 + t24289 + t5079;
16966   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16967     v3sigma3[5] = t1217 * t5399 + t1224 * t5392 + 0.2e1 * t1316 * t5223 + 0.2e1 * t1320 * t5214 + t24276 * t372 + t24291 * t872;
16968 
16969   t24293 = t5267 * t1231;
16970   t24297 = t5243 * t1237;
16971   t24298 = t4973 * t24297;
16972   t24299 = t24298 * t4976;
16973   t24303 = t23538 * t1887 * t24297;
16974   t24307 = -t23692 / 0.64e2 + 0.6e1 * t24299 * t18168 - 0.6e1 * t23536 * t24303 + t23705 / 0.64e2;
16975   t24308 = t175 * t24307;
16976   t24309 = t24308 * t748;
16977   t24315 = t23504 * t1387;
16978   t24316 = t6453 * t24315;
16979   t24325 = 0.2e1 * t23805;
16980   t24326 = t169 * t24309;
16981   t24327 = t19276 * t1243;
16982   t24330 = t5257 * t1243;
16983   t24331 = t175 * t24330;
16984   t24332 = t24331 * t6117;
16985   t24333 = t169 * t24332;
16986   t24335 = -0.3e1 * t24327 * t2849 + t24326 + 0.2e1 * t24333;
16987   t24336 = my_piecewise3(t296, 0, t24335);
16988   t24338 = my_piecewise3(t359, 0, t24335);
16989   t24341 = t24336 * t34 / 0.2e1 + t24338 * t46 / 0.2e1;
16990   t24349 = 0.6e1 * t23821;
16991   t24350 = t24315 * t23510;
16992   t24353 = t5044 * t1231;
16993   t24354 = t5269 * t24353;
16994   t24359 = 0.2e1 * t23761;
16995   t24360 = 0.6e1 * t23773;
16996   t24361 = 0.5e1 / 0.24e2 * t23626 * t24350 + 0.5e1 / 0.6e1 * t18368 * t24354 + 0.2e1 * t24056 * t1255 + t24359 + t24360 + t5056;
16997   t24366 = t5254 * t4079;
16998   t24369 = 0.6e1 * t23824;
16999   t24370 = -t4957 - 0.6e1 * t449 * t24293 + t1214 * t24309 + 0.3e1 * t24065 * t1245 + 0.3e1 * t5155 * t5255 - 0.5e1 / 0.24e2 * t24316 * t23511 - 0.5e1 / 0.6e1 * t19122 * t23730 - 0.2e1 * t1227 * t24075 - 0.4e1 * t4026 * t23968 - t24325 - t98 * t24341 - 0.6e1 * t5236 * t1252 + 0.2e1 * t1214 * t24332 - 0.5e1 / 0.12e2 * t5228 * t23785 - t24349 + t24361 * t227 - 0.3e1 * t5155 * t5259 - t1227 * t24079 - 0.3e1 * t1214 * t24366 - t24369;
17000   t24371 = t7 * t24370;
17001   t24377 = params->d * t24370;
17002   t24383 = 0.9e1 * t23859;
17003   t24384 = t5235 * t1231;
17004   t24387 = 0.18e2 * t23871;
17005   t24388 = 0.18e2 * t1267 * t5294 + 0.9e1 * t1269 * t5290 + t24377 * t370 + 0.6e1 * t24384 * t369 + t24383 + t24387 + t5079;
17006   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17007     v3sigma3[6] = 0.3e1 * t1265 * t5297 + 0.3e1 * t1272 * t5286 + t24371 * t372 + t24388 * t872;
17008 
17009   t24390 = t19359 * t1231;
17010   t24391 = t18560 * t24390;
17011   t24398 = t23880 - t23972 - t23974 - t23978 + 0.5e1 / 0.18e2 * t5179 * t24391 + t23990 - t23992 - t4957 - t24023 - t24027 + t24036 + 0.2e1 * t24189 * t1245 - t23910 - 0.2e1 * t5236 * t1307 + t24066 + t24070 - t24071;
17012   t24401 = t18727 * t57;
17013   t24402 = t5044 * t24401;
17014   t24407 = t23509 * t5226;
17015   t24408 = t23888 * t24407;
17016   t24412 = t4932 * t19430 * t1231;
17017   t24417 = -0.5e1 / 0.48e2 * t23748 * t24408 - 0.5e1 / 0.18e2 * t19027 * t24412 - t24056 * t1310 / 0.3e1 - t23898 + t24044 + t24053 + t24054 + t24059 + t24061 + t5056;
17018   t24425 = t3763 * t5226;
17019   t24426 = t23510 * t24425;
17020   t24431 = -0.5e1 / 0.36e2 * t5228 * t23939 + 0.5e1 / 0.36e2 * t5179 * t24402 + 0.2e1 / 0.3e1 * t4173 * t23968 - t24083 + t24417 * t227 - 0.4e1 / 0.3e1 * t4026 * t24161 - t24086 + t1277 * t24075 / 0.3e1 - t5211 * t5259 + t5211 * t5255 - t24087 - t24090 - t24093 - t24096 - t24097 - t24099 + 0.5e1 / 0.48e2 * t23919 * t24426 + t1277 * t24079 / 0.6e1;
17021   t24432 = t24398 + t24431;
17022   t24433 = t7 * t24432;
17023   t24441 = params->d * t24432;
17024   t24447 = 0.6e1 * t1269 * t5327 + 0.6e1 * t1318 * t5294 + t24441 * t370 + t23962 + t24113 + t24117 + t24118 + t24123 + t24124 + t24126 + t5079;
17025   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17026     v3sigma3[7] = 0.2e1 * t1265 * t5331 + 0.2e1 * t1272 * t5323 + t1316 * t5297 + t1320 * t5286 + t24433 * t372 + t24447 * t872;
17027 
17028   t24452 = t18918 * t57;
17029   t24453 = t5044 * t24452;
17030   t24458 = t24231 * t24168;
17031   t24461 = t5383 * t24353;
17032   t24466 = 0.5e1 / 0.96e2 * t23748 * t24458 + 0.5e1 / 0.72e2 * t18368 * t24461 - 0.5e1 / 0.18e2 * t24175 - 0.2e1 / 0.3e1 * t24179 - t24239 + t23759 + t23775 + t23762 + t23774 + t5056;
17033   t24472 = t23510 * t5299;
17034   t24477 = t24229 - t23726 - t23728 + 0.5e1 / 0.18e2 * t24131 + 0.2e1 / 0.3e1 * t4173 * t24161 + 0.5e1 / 0.36e2 * t5179 * t24453 - 0.5e1 / 0.72e2 * t19532 * t23730 + t24466 * t227 - 0.2e1 * t24133 + 0.2e1 / 0.3e1 * t24134 + 0.2e1 / 0.3e1 * t24138 - 0.4e1 / 0.3e1 * t24154 - t4957 - t23746 - t24249 - 0.5e1 / 0.96e2 * t24259 * t24472 - 0.5e1 / 0.144e3 * t5335 * t23785;
17035   t24482 = t5381 * t1231;
17036   t24488 = -t23779 - t23796 + 0.2e1 * t24190 + 0.2e1 * t24192 - t23806 + t24194 / 0.3e1 - t23811 + t24269 * t1245 - t23819 - t23822 - t23825 - 0.2e1 * t449 * t24482 + t23833 + t23838 - t23839 + t23842 - t1227 * t24255 / 0.3e1 - 0.4e1 * t24201;
17037   t24489 = t24477 + t24488;
17038   t24490 = t7 * t24489;
17039   t24498 = params->d * t24489;
17040   t24504 = 0.3e1 * t1269 * t5396 + t24498 * t370 + t23858 + t23860 + t23868 + t23869 + t23872 + 0.6e1 * t24219 + 0.12e2 * t24223 + t24289 + t5079;
17041   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17042     v3sigma3[8] = t1265 * t5399 + t1272 * t5392 + 0.2e1 * t1316 * t5331 + 0.2e1 * t1320 * t5323 + t24490 * t372 + t24504 * t872;
17043 
17044   t24513 = t23521 * t19589 * t61;
17045   t24514 = t837 * t1291;
17046   t24515 = t758 * t24514;
17047   t24516 = t533 * t24515;
17048   t24519 = t5349 * t1291;
17049   t24520 = t4973 * t24519;
17050   t24521 = t24520 * t4976;
17051   t24525 = t23532 * t345;
17052   t24526 = t24525 * t23535;
17053   t24527 = t23537 * t7461;
17054   t24529 = t24527 * t2214 * t24519;
17055   t24532 = t23537 * t2291;
17056   t24533 = t24532 * t15806;
17057   t24534 = t24526 * t24533;
17058   t24537 = -t24513 * t24516 / 0.128e3 + 0.6e1 * t24521 * t5357 * t803 - 0.6e1 * t24526 * t24529 + t24534 * t5367 / 0.128e3;
17059   t24544 = t5373 * t1300;
17060   t24548 = my_piecewise3(t359, t169 * t24537 * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t19675 * t1300 + t169 * t24544 * t7519, t23601);
17061   t24551 = t24548 * t46 / 0.2e1 + t23914 / 0.2e1;
17062   t24555 = 0.6e1 * t23909;
17063   t24556 = t5333 * t1275;
17064   t24557 = t23504 * t24556;
17065   t24558 = t6453 * t24557;
17066   t24562 = t24557 * t23510;
17067   t24566 = -0.5e1 / 0.192e3 * t23626 * t24562 + 0.5e1 / 0.24e2 * t24236 - t23894 - t23897 + t23642 + t5056;
17068   t24570 = 0.2e1 * t24243 - 0.5e1 / 0.48e2 * t5335 * t23939 - t4957 + 0.3e1 * t23932 + t23555 + 0.3e1 * t24270 - 0.5e1 / 0.24e2 * t24247 - t23617 + t23922 + t23879 - t23619 - t98 * t24551 - 0.3e1 * t23944 - 0.6e1 * t23934 - t24555 + 0.5e1 / 0.192e3 * t24558 * t23511 - 0.6e1 * t24272 + t24566 * t227 + t23648 + t1277 * t24255 / 0.2e1;
17069   t24571 = t7 * t24570;
17070   t24577 = params->d * t24570;
17071   t24581 = 0.9e1 * t23961;
17072   t24582 = t24577 * t370 + t23680 + t23683 + 0.18e2 * t23959 + 0.9e1 * t24286 + t24581 + t5079;
17073   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17074     v3sigma3[9] = 0.3e1 * t1316 * t5399 + 0.3e1 * t1320 * t5392 + t24571 * t372 + t24582 * t872;
17075 
17076   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17077     v3sigma2lapl[0] = 0.0e0;
17078 
17079   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17080     v3sigma2lapl[1] = 0.0e0;
17081 
17082   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17083     v3sigma2lapl[2] = 0.0e0;
17084 
17085   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17086     v3sigma2lapl[3] = 0.0e0;
17087 
17088   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17089     v3sigma2lapl[4] = 0.0e0;
17090 
17091   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17092     v3sigma2lapl[5] = 0.0e0;
17093 
17094   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17095     v3sigma2lapl[6] = 0.0e0;
17096 
17097   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17098     v3sigma2lapl[7] = 0.0e0;
17099 
17100   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17101     v3sigma2lapl[8] = 0.0e0;
17102 
17103   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17104     v3sigma2lapl[9] = 0.0e0;
17105 
17106   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17107     v3sigma2lapl[10] = 0.0e0;
17108 
17109   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17110     v3sigma2lapl[11] = 0.0e0;
17111 
17112   t24584 = t1326 * t167;
17113   t24585 = t24584 * t14483;
17114   t24586 = t4720 * t24585;
17115   t24587 = t3874 * t25;
17116   t24588 = t24587 * t1205;
17117   t24589 = t24586 * t24588;
17118   t24591 = t4954 * t1326;
17119   t24592 = t24591 * t227;
17120   t24593 = t81 * t24592;
17121   t24594 = 0.2e1 * t24593;
17122   t24595 = t1143 * t5412;
17123   t24596 = t24595 * t227;
17124   t24598 = 0.4e1 * t81 * t24596;
17125   t24599 = t5054 * t227;
17126   t24600 = t81 * t24599;
17127   t24601 = 0.2e1 * t24600;
17128   t24602 = t400 * t5420;
17129   t24603 = t24602 * t5146;
17130   t24605 = t400 * t5424;
17131   t24606 = t24605 * t5146;
17132   t24610 = t1144 * t1326;
17133   t24611 = t1204 * t24610;
17134   t24612 = t3788 * t24611;
17135   t24614 = t18210 * t1326;
17136   t24615 = t1204 * t24614;
17137   t24619 = t3789 * t5412;
17138   t24620 = t1204 * t24619;
17139   t24621 = t3788 * t24620;
17140   t24623 = t5044 * t5401;
17141   t24627 = 0.2e1 * t5427 * t5032;
17142   t24628 = t23823 * t1327;
17143   t24629 = 0.2e1 * t24628;
17144   t24630 = t5097 * t5407;
17145   t24633 = 0.4e1 * t5097 * t5413;
17146   t24634 = t5039 * t1326;
17147   t24637 = t1199 * t5412;
17148   t24638 = t449 * t24637;
17149   t24640 = t81 * t5419;
17150   t24642 = 0.4e1 * t24640 * t1193;
17151   t24643 = t81 * t5423;
17152   t24645 = 0.4e1 * t24643 * t1193;
17153   t24647 = 0.2e1 * t5427 * t5028;
17154   t24648 = 0.2e1 / 0.3e1 * t24621 - 0.5e1 / 0.72e2 * t18055 * t24623 - t24627 - t24629 - 0.4e1 * t24630 - t24633 - 0.2e1 * t449 * t24634 - 0.4e1 * t24638 + t24642 + t24645 + t24647;
17155   t24649 = -0.2e1 / 0.3e1 * t24589 - t4957 + t24594 + t24598 + t24601 - 0.2e1 / 0.3e1 * t24603 - 0.2e1 / 0.3e1 * t24606 + 0.5e1 / 0.72e2 * t21210 * t23765 + 0.2e1 / 0.3e1 * t24612 + 0.2e1 / 0.3e1 * t3788 * t24615 + t24648;
17156   t24650 = t7 * t24649;
17157   t24658 = params->d * t24649;
17158   t24660 = t5435 * t1221;
17159   t24663 = 0.6e1 * t1336 * t5074;
17160   t24664 = t1336 * t5077;
17161   t24665 = 0.3e1 * t24664;
17162   t24668 = t1219 * t5441;
17163   t24670 = t1219 * t5444;
17164   t24672 = t4947 * t1326;
17165   t24674 = 0.6e1 * t369 * t24672;
17166   t24675 = t5423 * t1143;
17167   t24677 = 0.12e2 * t369 * t24675;
17168   t24678 = t1329 * t4954;
17169   t24679 = t369 * t24678;
17170   t24680 = 0.6e1 * t24679;
17171   t24681 = 0.3e1 * t1338 * t5070 + t24658 * t370 + 0.6e1 * t24660 + t24663 + t24665 + 0.12e2 * t24668 + 0.6e1 * t24670 + t24674 + t24677 + t24680 + t5079;
17172   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17173     v3sigma2tau[0] = 0.2e1 * t1217 * t5447 + 0.2e1 * t1224 * t5431 + t1334 * t5080 + t1341 * t5066 + t24650 * t372 + t24681 * t872;
17174 
17175   t24683 = t1144 * t1347;
17176   t24684 = t1204 * t24683;
17177   t24685 = t3788 * t24684;
17178   t24687 = t18210 * t1347;
17179   t24688 = t1204 * t24687;
17180   t24691 = t1347 * t167;
17181   t24692 = t24691 * t14483;
17182   t24693 = t4720 * t24692;
17183   t24694 = t24693 * t24588;
17184   t24696 = t81 * t5467;
17185   t24698 = 0.4e1 * t24696 * t1193;
17186   t24699 = t81 * t5471;
17187   t24701 = 0.4e1 * t24699 * t1193;
17188   t24703 = 0.2e1 * t5475 * t5028;
17189   t24704 = t3789 * t5460;
17190   t24705 = t1204 * t24704;
17191   t24706 = t3788 * t24705;
17192   t24708 = t5044 * t5449;
17193   t24712 = t4954 * t1347;
17194   t24713 = t24712 * t227;
17195   t24714 = t81 * t24713;
17196   t24715 = 0.2e1 * t24714;
17197   t24716 = t1143 * t5460;
17198   t24717 = t24716 * t227;
17199   t24719 = 0.4e1 * t81 * t24717;
17200   t24721 = 0.2e1 * t5475 * t5032;
17201   t24722 = t400 * t5468;
17202   t24723 = t24722 * t5146;
17203   t24725 = t400 * t5472;
17204   t24726 = t24725 * t5146;
17205   t24731 = 0.4e1 * t5097 * t5461;
17206   t24732 = t5039 * t1347;
17207   t24735 = t1199 * t5460;
17208   t24736 = t449 * t24735;
17209   t24738 = t23823 * t1348;
17210   t24739 = 0.2e1 * t24738;
17211   t24740 = t5097 * t5455;
17212   t24742 = t24715 + t24719 - t24721 - 0.2e1 / 0.3e1 * t24723 - 0.2e1 / 0.3e1 * t24726 + 0.5e1 / 0.72e2 * t21510 * t23765 - t24731 - 0.2e1 * t449 * t24732 - 0.4e1 * t24736 - t24739 - 0.4e1 * t24740;
17213   t24743 = -t4957 + t24601 + 0.2e1 / 0.3e1 * t24685 + 0.2e1 / 0.3e1 * t3788 * t24688 - 0.2e1 / 0.3e1 * t24694 + t24698 + t24701 + t24703 + 0.2e1 / 0.3e1 * t24706 - 0.5e1 / 0.72e2 * t18055 * t24708 + t24742;
17214   t24744 = t7 * t24743;
17215   t24752 = params->d * t24743;
17216   t24754 = t5483 * t1221;
17217   t24757 = 0.6e1 * t1357 * t5074;
17218   t24758 = t1357 * t5077;
17219   t24759 = 0.3e1 * t24758;
17220   t24762 = t1219 * t5489;
17221   t24764 = t1219 * t5492;
17222   t24766 = t4947 * t1347;
17223   t24768 = 0.6e1 * t369 * t24766;
17224   t24769 = t5471 * t1143;
17225   t24771 = 0.12e2 * t369 * t24769;
17226   t24772 = t1350 * t4954;
17227   t24773 = t369 * t24772;
17228   t24774 = 0.6e1 * t24773;
17229   t24775 = 0.3e1 * t1359 * t5070 + t24752 * t370 + 0.6e1 * t24754 + t24757 + t24759 + 0.12e2 * t24762 + 0.6e1 * t24764 + t24768 + t24771 + t24774 + t5079;
17230   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17231     v3sigma2tau[1] = 0.2e1 * t1217 * t5495 + 0.2e1 * t1224 * t5479 + t1355 * t5080 + t1362 * t5066 + t24744 * t372 + t24775 * t872;
17232 
17233   t24777 = t3789 * t5506;
17234   t24778 = t1204 * t24777;
17235   t24781 = t400 * t5514;
17236   t24784 = t400 * t5518;
17237   t24787 = t14483 * t5127;
17238   t24789 = 0.2e1 * t21244 * t24787;
17239   t24790 = t1232 * t1326;
17240   t24791 = t1204 * t24790;
17241   t24794 = t18732 * t1326;
17242   t24795 = t1204 * t24794;
17243   t24799 = 0.2e1 / 0.3e1 * t4026 * t24611;
17244   t24803 = 0.2e1 / 0.3e1 * t4026 * t24620;
17245   t24805 = 0.2e1 / 0.3e1 * t24602 * t5510;
17246   t24807 = 0.2e1 / 0.3e1 * t24605 * t5510;
17247   t24808 = t1327 * t1133;
17248   t24809 = t18560 * t24808;
17249   t24812 = t24587 * t1255;
17250   t24814 = 0.2e1 / 0.3e1 * t24586 * t24812;
17251   t24815 = t4049 * t25;
17252   t24816 = t24815 * t1205;
17253   t24819 = t5083 * t5138;
17254   t24822 = t81 * t5513;
17255   t24824 = 0.2e1 * t24822 * t1193;
17256   t24825 = t3788 * t24778 / 0.3e1 - t24781 * t5146 / 0.3e1 - t24784 * t5146 / 0.3e1 - t24789 + t3788 * t24791 / 0.3e1 + t3788 * t24795 / 0.3e1 - t24799 - 0.2e1 / 0.3e1 * t4026 * t24615 - t24803 + t24805 + t24807 + 0.5e1 / 0.36e2 * t5084 * t24809 + t24814 - t24586 * t24816 / 0.3e1 - 0.5e1 / 0.36e2 * t21210 * t24819 + t24824;
17257   t24826 = t81 * t5517;
17258   t24827 = t24826 * t1193;
17259   t24828 = t24640 * t1246;
17260   t24829 = t24643 * t1246;
17261   t24830 = t5427 * t5126;
17262   t24831 = t1252 * t5412;
17263   t24832 = t449 * t24831;
17264   t24833 = t5097 * t5507;
17265   t24834 = t1199 * t5506;
17266   t24836 = t1231 * t5412;
17267   t24837 = t24836 * t227;
17268   t24838 = t81 * t24837;
17269   t24839 = t1143 * t5506;
17270   t24840 = t24839 * t227;
17271   t24841 = t81 * t24840;
17272   t24843 = t5499 * t5413;
17273   t24844 = t5097 * t5502;
17274   t24845 = t5135 * t1326;
17275   t24846 = t449 * t24845;
17276   t24847 = -t24834 * t449 - t5407 * t5499 + t24593 + t24600 - t24628 + t24827 + t24828 + t24829 + t24830 - t24832 - t24833 + t24838 + t24841 - t24843 - t24844 - t24846 - t4956;
17277   t24849 = t24825 + 0.2e1 * t24847;
17278   t24850 = t7 * t24849;
17279   t24858 = params->d * t24849;
17280   t24861 = 0.3e1 * t5528 * t1221;
17281   t24865 = 0.6e1 * t1336 * t5172;
17282   t24869 = 0.6e1 * t1267 * t5441;
17283   t24871 = 0.3e1 * t1267 * t5444;
17284   t24874 = t5419 * t1231;
17285   t24876 = 0.6e1 * t369 * t24874;
17286   t24877 = t5423 * t1231;
17287   t24879 = 0.6e1 * t369 * t24877;
17288   t24882 = t5517 * t1143;
17289   t24884 = 0.6e1 * t369 * t24882;
17290   t24885 = 0.6e1 * t1219 * t5534 + 0.3e1 * t1219 * t5537 + 0.3e1 * t1269 * t5435 + 0.3e1 * t1338 * t5166 + t24858 * t370 + t24665 + t24680 + t24861 + t24865 + t24869 + t24871 + t24876 + t24879 + t24884 + t5079;
17291   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17292     v3sigma2tau[2] = t1217 * t5540 + t1224 * t5524 + t1265 * t5447 + t1272 * t5431 + t1334 * t5175 + t1341 * t5162 + t24850 * t372 + t24885 * t872;
17293 
17294   t24887 = t1348 * t1133;
17295   t24888 = t18560 * t24887;
17296   t24896 = 0.2e1 / 0.3e1 * t24693 * t24812;
17297   t24897 = t5135 * t1347;
17298   t24899 = 0.2e1 * t449 * t24897;
17299   t24900 = t1252 * t5460;
17300   t24902 = 0.2e1 * t449 * t24900;
17301   t24904 = 0.2e1 * t5097 * t5551;
17302   t24905 = t1199 * t5550;
17303   t24908 = t18732 * t1347;
17304   t24909 = t1204 * t24908;
17305   t24912 = t3789 * t5550;
17306   t24913 = t1204 * t24912;
17307   t24917 = 0.2e1 / 0.3e1 * t24722 * t5510;
17308   t24919 = 0.2e1 / 0.3e1 * t24725 * t5510;
17309   t24921 = 0.2e1 / 0.3e1 * t4026 * t24684;
17310   t24924 = 0.5e1 / 0.36e2 * t5084 * t24888 - t24693 * t24816 / 0.3e1 - 0.5e1 / 0.36e2 * t21510 * t24819 + t24896 - t4957 - t24899 - t24902 - t24904 - 0.2e1 * t449 * t24905 + t24601 + t3788 * t24909 / 0.3e1 + t3788 * t24913 / 0.3e1 + t24917 + t24919 - t24921 - 0.2e1 / 0.3e1 * t4026 * t24688;
17311   t24926 = 0.2e1 / 0.3e1 * t4026 * t24705;
17312   t24927 = t1232 * t1347;
17313   t24928 = t1204 * t24927;
17314   t24932 = 0.2e1 * t21426 * t24787;
17315   t24933 = t400 * t5557;
17316   t24936 = t400 * t5561;
17317   t24939 = t81 * t5556;
17318   t24941 = 0.2e1 * t24939 * t1193;
17319   t24942 = t81 * t5560;
17320   t24944 = 0.2e1 * t24942 * t1193;
17321   t24946 = 0.2e1 * t24696 * t1246;
17322   t24948 = 0.2e1 * t24699 * t1246;
17323   t24950 = 0.2e1 * t5475 * t5126;
17324   t24954 = 0.2e1 * t5499 * t5461;
17325   t24956 = 0.2e1 * t5097 * t5546;
17326   t24957 = t1231 * t5460;
17327   t24958 = t24957 * t227;
17328   t24960 = 0.2e1 * t81 * t24958;
17329   t24961 = t1143 * t5550;
17330   t24962 = t24961 * t227;
17331   t24964 = 0.2e1 * t81 * t24962;
17332   t24965 = -t24926 + t3788 * t24928 / 0.3e1 - t24932 - t24933 * t5146 / 0.3e1 - t24936 * t5146 / 0.3e1 + t24941 + t24944 + t24946 + t24948 + t24950 + t24715 - t24739 - 0.2e1 * t5499 * t5455 - t24954 - t24956 + t24960 + t24964;
17333   t24966 = t24924 + t24965;
17334   t24967 = t7 * t24966;
17335   t24975 = params->d * t24966;
17336   t24978 = 0.3e1 * t5571 * t1221;
17337   t24982 = 0.6e1 * t1357 * t5172;
17338   t24986 = 0.6e1 * t1267 * t5489;
17339   t24988 = 0.3e1 * t1267 * t5492;
17340   t24991 = t5467 * t1231;
17341   t24993 = 0.6e1 * t369 * t24991;
17342   t24994 = t5471 * t1231;
17343   t24996 = 0.6e1 * t369 * t24994;
17344   t24999 = t5560 * t1143;
17345   t25001 = 0.6e1 * t369 * t24999;
17346   t25002 = 0.6e1 * t1219 * t5577 + 0.3e1 * t1219 * t5580 + 0.3e1 * t1269 * t5483 + 0.3e1 * t1359 * t5166 + t24975 * t370 + t24759 + t24774 + t24978 + t24982 + t24986 + t24988 + t24993 + t24996 + t25001 + t5079;
17347   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17348     v3sigma2tau[3] = t1217 * t5583 + t1224 * t5567 + t1265 * t5495 + t1272 * t5479 + t1355 * t5175 + t1362 * t5162 + t24967 * t372 + t25002 * t872;
17349 
17350   t25008 = t5178 * t5138;
17351   t25014 = t24587 * t1310;
17352   t25015 = t24586 * t25014;
17353   t25017 = -t24603 / 0.3e1 - t24606 / 0.3e1 + t24612 / 0.3e1 + t24621 / 0.3e1 + t24645 + t24647 - t24627 + t24642 + 0.5e1 / 0.72e2 * t21210 * t25008 - 0.5e1 / 0.72e2 * t5179 * t24809 - t4957 - t24589 / 0.3e1 - t25015 / 0.3e1 + t24594;
17354   t25018 = t1307 * t5412;
17355   t25019 = t449 * t25018;
17356   t25021 = t5097 * t5587;
17357   t25023 = t5198 * t1326;
17358   t25026 = t4173 * t24611;
17359   t25030 = t4173 * t24620;
17360   t25032 = t18923 * t1326;
17361   t25033 = t1204 * t25032;
17362   t25036 = t24602 * t5590;
17363   t25038 = t24605 * t5590;
17364   t25042 = t24598 + t24601 - 0.2e1 * t25019 - 0.2e1 * t25021 - 0.2e1 * t449 * t25023 + t25026 / 0.3e1 + t4173 * t24615 / 0.3e1 + t25030 / 0.3e1 + t3788 * t25033 / 0.3e1 - t25036 / 0.3e1 - t25038 / 0.3e1 - t24629 - 0.2e1 * t24630 - t24633 - 0.2e1 * t24638;
17365   t25043 = t25017 + t25042;
17366   t25044 = t7 * t25043;
17367   t25052 = params->d * t25043;
17368   t25054 = t5598 * t1221;
17369   t25059 = t1318 * t5441;
17370   t25061 = t1318 * t5444;
17371   t25065 = 0.3e1 * t1338 * t5218 + t25052 * t370 + 0.3e1 * t24660 + t24663 + t24665 + 0.6e1 * t24668 + 0.3e1 * t24670 + t24674 + t24677 + t24680 + 0.3e1 * t25054 + 0.6e1 * t25059 + 0.3e1 * t25061 + t5079;
17372   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17373     v3sigma2tau[4] = t1217 * t5602 + t1224 * t5594 + t1316 * t5447 + t1320 * t5431 + t1334 * t5223 + t1341 * t5214 + t25044 * t372 + t25065 * t872;
17374 
17375   t25067 = t18923 * t1347;
17376   t25068 = t1204 * t25067;
17377   t25071 = t24722 * t5590;
17378   t25073 = t24725 * t5590;
17379   t25075 = t4173 * t24684;
17380   t25079 = t4173 * t24705;
17381   t25086 = t24693 * t25014;
17382   t25088 = t5097 * t5606;
17383   t25090 = t5198 * t1347;
17384   t25093 = t1307 * t5460;
17385   t25094 = t449 * t25093;
17386   t25096 = t3788 * t25068 / 0.3e1 - t25071 / 0.3e1 - t25073 / 0.3e1 + t25075 / 0.3e1 + t4173 * t24688 / 0.3e1 + t25079 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t24888 + 0.5e1 / 0.72e2 * t21510 * t25008 - t24694 / 0.3e1 - t25086 / 0.3e1 - t4957 - 0.2e1 * t25088 - 0.2e1 * t449 * t25090 - 0.2e1 * t25094;
17387   t25103 = t24698 + t24701 + t24703 - t24721 + t24601 + t24715 + t24719 - t24731 - 0.2e1 * t24736 - t24739 - 0.2e1 * t24740 + t24685 / 0.3e1 + t24706 / 0.3e1 - t24723 / 0.3e1 - t24726 / 0.3e1;
17388   t25104 = t25096 + t25103;
17389   t25105 = t7 * t25104;
17390   t25113 = params->d * t25104;
17391   t25115 = t5616 * t1221;
17392   t25120 = t1318 * t5489;
17393   t25122 = t1318 * t5492;
17394   t25126 = 0.3e1 * t1359 * t5218 + t25113 * t370 + 0.3e1 * t24754 + t24757 + t24759 + 0.6e1 * t24762 + 0.3e1 * t24764 + t24768 + t24771 + t24774 + 0.3e1 * t25115 + 0.6e1 * t25120 + 0.3e1 * t25122 + t5079;
17395   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17396     v3sigma2tau[5] = t1217 * t5620 + t1224 * t5612 + t1316 * t5495 + t1320 * t5479 + t1355 * t5223 + t1362 * t5214 + t25105 * t372 + t25126 * t872;
17397 
17398   t25128 = t24815 * t1255;
17399   t25137 = t5227 * t23764;
17400   t25157 = t5267 * t1326;
17401   t25160 = t1252 * t5506;
17402   t25165 = t1231 * t5506;
17403   t25166 = t25165 * t227;
17404   t25169 = 0.4e1 / 0.3e1 * t24784 * t5510 - 0.4e1 / 0.3e1 * t4026 * t24791 - 0.4e1 / 0.3e1 * t4026 * t24795 - 0.4e1 / 0.3e1 * t4026 * t24778 - 0.5e1 / 0.18e2 * t19122 * t24623 - t24629 - 0.4e1 * t5499 * t5507 - 0.2e1 * t449 * t25157 - 0.4e1 * t449 * t25160 - 0.4e1 * t5499 * t5502 + 0.4e1 * t81 * t25166;
17405   t25170 = 0.4e1 / 0.3e1 * t24586 * t25128 + 0.4e1 * t24822 * t1246 + 0.4e1 * t24826 * t1246 + 0.2e1 * t5427 * t5256 - t4957 + t24594 + t24601 + 0.5e1 / 0.18e2 * t21210 * t25137 - 0.2e1 * t5427 * t5260 + 0.4e1 / 0.3e1 * t24781 * t5510 + t25169;
17406   t25171 = t7 * t25170;
17407   t25179 = params->d * t25170;
17408   t25191 = t5235 * t1326;
17409   t25194 = t5517 * t1231;
17410   t25197 = 0.12e2 * t1267 * t5534 + 0.6e1 * t1267 * t5537 + 0.6e1 * t1269 * t5528 + 0.6e1 * t1336 * t5294 + 0.3e1 * t1338 * t5290 + t25179 * t370 + 0.6e1 * t25191 * t369 + 0.12e2 * t25194 * t369 + t24665 + t24680 + t5079;
17411   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17412     v3sigma2tau[6] = 0.2e1 * t1265 * t5540 + 0.2e1 * t1272 * t5524 + t1334 * t5297 + t1341 * t5286 + t25171 * t372 + t25197 * t872;
17413 
17414   t25201 = t1231 * t5550;
17415   t25202 = t25201 * t227;
17416   t25209 = t5267 * t1347;
17417   t25212 = t1252 * t5550;
17418   t25238 = -0.2e1 * t5475 * t5260 + t24601 + 0.4e1 * t24942 * t1246 + 0.2e1 * t5475 * t5256 - 0.4e1 / 0.3e1 * t4026 * t24913 - 0.5e1 / 0.18e2 * t19122 * t24708 + 0.4e1 * t24939 * t1246 + t24715 - 0.4e1 / 0.3e1 * t4026 * t24928 - 0.4e1 / 0.3e1 * t4026 * t24909 - t24739;
17419   t25239 = 0.4e1 / 0.3e1 * t24693 * t25128 - t4957 + 0.4e1 * t81 * t25202 - 0.4e1 * t5499 * t5546 - 0.4e1 * t5499 * t5551 - 0.2e1 * t449 * t25209 - 0.4e1 * t449 * t25212 + 0.4e1 / 0.3e1 * t24933 * t5510 + 0.4e1 / 0.3e1 * t24936 * t5510 + 0.5e1 / 0.18e2 * t21510 * t25137 + t25238;
17420   t25240 = t7 * t25239;
17421   t25248 = params->d * t25239;
17422   t25260 = t5235 * t1347;
17423   t25263 = t5560 * t1231;
17424   t25266 = 0.12e2 * t1267 * t5577 + 0.6e1 * t1267 * t5580 + 0.6e1 * t1269 * t5571 + 0.6e1 * t1357 * t5294 + 0.3e1 * t1359 * t5290 + t25248 * t370 + 0.6e1 * t25260 * t369 + 0.12e2 * t25263 * t369 + t24759 + t24774 + t5079;
17425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17426     v3sigma2tau[7] = 0.2e1 * t1265 * t5583 + 0.2e1 * t1272 * t5567 + t1355 * t5297 + t1362 * t5286 + t25240 * t372 + t25266 * t872;
17427 
17428   t25280 = t5178 * t5312;
17429   t25283 = t1327 * t57;
17430   t25284 = t18560 * t25283;
17431   t25287 = -t24789 - t24799 - t24803 + t24805 + t24807 - t24781 * t5590 / 0.3e1 - t24784 * t5590 / 0.3e1 + t4173 * t24791 / 0.3e1 + t4173 * t24795 / 0.3e1 + t4173 * t24778 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t25033 + t24814 + t24824 - 0.5e1 / 0.36e2 * t21210 * t25280 + 0.5e1 / 0.36e2 * t5179 * t25284 - t4957;
17432   t25294 = t24815 * t1310;
17433   t25299 = t1307 * t5506;
17434   t25307 = t24594 + 0.2e1 * t24827 + 0.2e1 * t24828 + 0.2e1 * t24829 + 0.2e1 * t24830 + t24601 - 0.2e1 * t24832 - 0.2e1 * t24833 - t24586 * t25294 / 0.3e1 - 0.2e1 * t5499 * t5587 - 0.2e1 * t449 * t25299 + 0.2e1 * t24838 + 0.2e1 * t24841 - 0.2e1 * t24843 - 0.2e1 * t24844 - 0.2e1 * t24846 - t24629;
17435   t25308 = t25287 + t25307;
17436   t25309 = t7 * t25308;
17437   t25317 = params->d * t25308;
17438   t25327 = 0.3e1 * t1269 * t5598 + 0.6e1 * t1318 * t5534 + 0.3e1 * t1318 * t5537 + 0.3e1 * t1338 * t5327 + t25317 * t370 + t24665 + t24680 + t24861 + t24865 + t24869 + t24871 + t24876 + t24879 + t24884 + t5079;
17439   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17440     v3sigma2tau[8] = t1265 * t5602 + t1272 * t5594 + t1316 * t5540 + t1320 * t5524 + t1334 * t5331 + t1341 * t5323 + t25309 * t372 + t25327 * t872;
17441 
17442   t25343 = t1307 * t5550;
17443   t25348 = t1348 * t57;
17444   t25349 = t18560 * t25348;
17445   t25352 = t4173 * t24909 / 0.3e1 + t4173 * t24913 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t25068 - t24933 * t5590 / 0.3e1 - t24936 * t5590 / 0.3e1 + t4173 * t24928 / 0.3e1 - 0.2e1 * t5499 * t5606 - 0.2e1 * t449 * t25343 - 0.5e1 / 0.36e2 * t21510 * t25280 + t24896 - t4957 + 0.5e1 / 0.36e2 * t5179 * t25349 - t24899 - t24902 - t24904 + t24601;
17446   t25355 = -t24693 * t25294 / 0.3e1 + t24917 + t24919 - t24921 - t24926 - t24932 + t24941 + t24944 + t24946 + t24948 + t24950 + t24715 - t24739 - t24954 - t24956 + t24960 + t24964;
17447   t25356 = t25352 + t25355;
17448   t25357 = t7 * t25356;
17449   t25365 = params->d * t25356;
17450   t25375 = 0.3e1 * t1269 * t5616 + 0.6e1 * t1318 * t5577 + 0.3e1 * t1318 * t5580 + 0.3e1 * t1359 * t5327 + t25365 * t370 + t24759 + t24774 + t24978 + t24982 + t24986 + t24988 + t24993 + t24996 + t25001 + t5079;
17451   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17452     v3sigma2tau[9] = t1265 * t5620 + t1272 * t5612 + t1316 * t5583 + t1320 * t5567 + t1355 * t5331 + t1362 * t5323 + t25357 * t372 + t25375 * t872;
17453 
17454   t25377 = t5334 * t23764;
17455   t25383 = t5381 * t1326;
17456   t25395 = -0.2e1 / 0.3e1 * t25038 - t24627 - 0.4e1 * t25021 - t24629 - t24633 - 0.2e1 / 0.3e1 * t25015 + 0.2e1 / 0.3e1 * t4173 * t25033 - 0.5e1 / 0.72e2 * t19532 * t24623 + t24642 + t24645 + t24647;
17457   t25396 = -t4957 + t24594 + t24598 + t24601 + 0.5e1 / 0.72e2 * t21210 * t25377 - 0.4e1 * t25019 + 0.2e1 / 0.3e1 * t25026 + 0.2e1 / 0.3e1 * t25030 - 0.2e1 * t449 * t25383 - 0.2e1 / 0.3e1 * t25036 + t25395;
17458   t25397 = t7 * t25396;
17459   t25405 = params->d * t25396;
17460   t25412 = 0.3e1 * t1338 * t5396 + t25405 * t370 + t24663 + t24665 + t24674 + t24677 + t24680 + 0.6e1 * t25054 + 0.12e2 * t25059 + 0.6e1 * t25061 + t5079;
17461   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17462     v3sigma2tau[10] = 0.2e1 * t1316 * t5602 + 0.2e1 * t1320 * t5594 + t1334 * t5399 + t1341 * t5392 + t25397 * t372 + t25412 * t872;
17463 
17464   t25414 = t5381 * t1347;
17465   t25431 = 0.2e1 / 0.3e1 * t25079 + t24698 + t24701 + t24703 + t24715 + t24719 - t24721 - t24731 - t24739 + 0.2e1 / 0.3e1 * t4173 * t25068 - 0.5e1 / 0.72e2 * t19532 * t24708;
17466   t25432 = -0.2e1 * t449 * t25414 - 0.4e1 * t25088 - 0.4e1 * t25094 - t4957 + t24601 + 0.5e1 / 0.72e2 * t21510 * t25377 - 0.2e1 / 0.3e1 * t25086 - 0.2e1 / 0.3e1 * t25071 - 0.2e1 / 0.3e1 * t25073 + 0.2e1 / 0.3e1 * t25075 + t25431;
17467   t25433 = t7 * t25432;
17468   t25441 = params->d * t25432;
17469   t25448 = 0.3e1 * t1359 * t5396 + t25441 * t370 + t24757 + t24759 + t24768 + t24771 + t24774 + 0.6e1 * t25115 + 0.12e2 * t25120 + 0.6e1 * t25122 + t5079;
17470   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17471     v3sigma2tau[11] = 0.2e1 * t1316 * t5620 + 0.2e1 * t1320 * t5612 + t1355 * t5399 + t1362 * t5392 + t25433 * t372 + t25448 * t872;
17472 
17473   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17474     v3sigmalapl2[0] = 0.0e0;
17475 
17476   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17477     v3sigmalapl2[1] = 0.0e0;
17478 
17479   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17480     v3sigmalapl2[2] = 0.0e0;
17481 
17482   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17483     v3sigmalapl2[3] = 0.0e0;
17484 
17485   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17486     v3sigmalapl2[4] = 0.0e0;
17487 
17488   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17489     v3sigmalapl2[5] = 0.0e0;
17490 
17491   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17492     v3sigmalapl2[6] = 0.0e0;
17493 
17494   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17495     v3sigmalapl2[7] = 0.0e0;
17496 
17497   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17498     v3sigmalapl2[8] = 0.0e0;
17499 
17500   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17501     v3sigmalapltau[0] = 0.0e0;
17502 
17503   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17504     v3sigmalapltau[1] = 0.0e0;
17505 
17506   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17507     v3sigmalapltau[2] = 0.0e0;
17508 
17509   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17510     v3sigmalapltau[3] = 0.0e0;
17511 
17512   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17513     v3sigmalapltau[4] = 0.0e0;
17514 
17515   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17516     v3sigmalapltau[5] = 0.0e0;
17517 
17518   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17519     v3sigmalapltau[6] = 0.0e0;
17520 
17521   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17522     v3sigmalapltau[7] = 0.0e0;
17523 
17524   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17525     v3sigmalapltau[8] = 0.0e0;
17526 
17527   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17528     v3sigmalapltau[9] = 0.0e0;
17529 
17530   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17531     v3sigmalapltau[10] = 0.0e0;
17532 
17533   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17534     v3sigmalapltau[11] = 0.0e0;
17535 
17536   t25450 = t73 * t5622;
17537   t25452 = t66 * t25450 * t363;
17538   t25456 = 0.4e1 * t5660 * t5413;
17539   t25459 = t3789 * t5634;
17540   t25460 = t1204 * t25459;
17541   t25464 = 0.2e1 * t5097 * t5635;
17542   t25465 = t1199 * t5634;
17543   t25468 = t13149 * t22888;
17544   t25470 = my_piecewise3(t95, 0, t25468 / 0.4e1);
17545   t25471 = t363 * t25470;
17546   t25473 = 0.2e1 * t449 * t25471;
17547   t25474 = t400 * t5637;
17548   t25477 = t4721 * t5412;
17549   t25479 = 0.4e1 * t81 * t25477;
17550   t25480 = t5622 * t167;
17551   t25481 = t81 * t25480;
17552   t25482 = t14483 * t3874;
17553   t25484 = 0.2e1 * t25481 * t25482;
17554   t25485 = t400 * t5640;
17555   t25488 = t1143 * t5634;
17556   t25489 = t25488 * t227;
17557   t25491 = 0.2e1 * t81 * t25489;
17558   t25492 = t96 * t25470;
17559   t25493 = t25492 * t227;
17560   t25495 = 0.2e1 * t81 * t25493;
17561   t25496 = t81 * t5639;
17562   t25498 = 0.2e1 * t25496 * t1193;
17563   t25499 = t1135 * t25452 / 0.3e1 - t25456 - 0.2e1 * t5623 * t1199 + t3788 * t25460 / 0.3e1 - t25464 - 0.2e1 * t449 * t25465 - t25473 - t25474 * t5146 / 0.3e1 + t25479 + t25484 - t25485 * t5146 / 0.3e1 + t25491 + t25495 + t25498;
17564   t25500 = t7 * t25499;
17565   t25508 = params->d * t25499;
17566   t25511 = 0.3e1 * t5648 * t1221;
17567   t25515 = 0.12e2 * t1336 * t5441;
17568   t25517 = 0.6e1 * t1336 * t5444;
17569   t25520 = t1143 * t5622;
17570   t25522 = 0.6e1 * t369 * t25520;
17571   t25523 = t1329 * t5412;
17572   t25525 = 0.12e2 * t369 * t25523;
17573   t25528 = t5639 * t1143;
17574   t25530 = 0.6e1 * t369 * t25528;
17575   t25531 = t97 * t25470;
17576   t25533 = 0.3e1 * t369 * t25531;
17577   t25534 = 0.6e1 * t1219 * t5652 + 0.3e1 * t1219 * t5655 + 0.6e1 * t1338 * t5435 + t25508 * t370 + t25511 + t25515 + t25517 + t25522 + t25525 + t25530 + t25533;
17578   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17579     v3sigmatau2[0] = t1217 * t5658 + t1224 * t5644 + 0.2e1 * t1334 * t5447 + 0.2e1 * t1341 * t5431 + t25500 * t372 + t25534 * t872;
17580 
17581   t25536 = t1327 * t1347;
17582   t25537 = t1204 * t25536;
17583   t25540 = t82 * t5412;
17584   t25542 = 0.2e1 * t25540 * t1348;
17585   t25546 = 0.2e1 * t5660 * t5461;
17586   t25547 = t3789 * t5665;
17587   t25548 = t1204 * t25547;
17588   t25552 = 0.2e1 * t5097 * t5666;
17589   t25553 = t1199 * t5665;
17590   t25556 = t13149 * t88;
17591   t25557 = t22998 * t38;
17592   t25558 = t25556 * t25557;
17593   t25560 = my_piecewise3(t95, 0, t25558 / 0.4e1);
17594   t25561 = t363 * t25560;
17595   t25563 = 0.2e1 * t449 * t25561;
17596   t25564 = t400 * t5669;
17597   t25567 = t5412 * t1347;
17598   t25568 = t25567 * t227;
17599   t25570 = 0.2e1 * t81 * t25568;
17600   t25571 = t1326 * t5460;
17601   t25572 = t25571 * t227;
17602   t25574 = 0.2e1 * t81 * t25572;
17603   t25575 = t81 * t5668;
17604   t25577 = 0.2e1 * t25575 * t1193;
17605   t25578 = t400 * t5672;
17606   t25581 = t1143 * t5665;
17607   t25582 = t25581 * t227;
17608   t25584 = 0.2e1 * t81 * t25582;
17609   t25585 = t96 * t25560;
17610   t25586 = t25585 * t227;
17611   t25588 = 0.2e1 * t81 * t25586;
17612   t25589 = t81 * t5671;
17613   t25591 = 0.2e1 * t25589 * t1193;
17614   t25592 = t3788 * t25537 / 0.3e1 - t25542 - 0.2e1 * t5660 * t5455 - t25546 + t3788 * t25548 / 0.3e1 - t25552 - 0.2e1 * t449 * t25553 - t25563 - t25564 * t5146 / 0.3e1 + t25570 + t25574 + t25577 - t25578 * t5146 / 0.3e1 + t25584 + t25588 + t25591;
17615   t25593 = t7 * t25592;
17616   t25601 = params->d * t25592;
17617   t25604 = 0.3e1 * t5680 * t1221;
17618   t25608 = 0.6e1 * t1357 * t5441;
17619   t25610 = 0.3e1 * t1357 * t5444;
17620   t25614 = 0.6e1 * t1336 * t5489;
17621   t25616 = 0.3e1 * t1336 * t5492;
17622   t25619 = t5467 * t1326;
17623   t25621 = 0.6e1 * t369 * t25619;
17624   t25622 = t5471 * t1326;
17625   t25624 = 0.6e1 * t369 * t25622;
17626   t25625 = t1350 * t5412;
17627   t25627 = 0.6e1 * t369 * t25625;
17628   t25630 = t5671 * t1143;
17629   t25632 = 0.6e1 * t369 * t25630;
17630   t25633 = t97 * t25560;
17631   t25635 = 0.3e1 * t369 * t25633;
17632   t25636 = 0.6e1 * t1219 * t5686 + 0.3e1 * t1219 * t5689 + 0.3e1 * t1338 * t5483 + 0.3e1 * t1359 * t5435 + t25601 * t370 + t25604 + t25608 + t25610 + t25614 + t25616 + t25621 + t25624 + t25627 + t25632 + t25635;
17633   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17634     v3sigmatau2[1] = t1217 * t5692 + t1224 * t5676 + t1334 * t5495 + t1341 * t5479 + t1355 * t5447 + t1362 * t5431 + t25593 * t372 + t25636 * t872;
17635 
17636   t25638 = t73 * t5694;
17637   t25640 = t66 * t25638 * t363;
17638   t25644 = 0.4e1 * t23107 * t5461;
17639   t25647 = t3789 * t5706;
17640   t25648 = t1204 * t25647;
17641   t25652 = 0.2e1 * t5097 * t5707;
17642   t25653 = t1199 * t5706;
17643   t25656 = t13149 * t23121;
17644   t25658 = my_piecewise3(t95, 0, t25656 / 0.4e1);
17645   t25659 = t363 * t25658;
17646   t25661 = 0.2e1 * t449 * t25659;
17647   t25662 = t400 * t5709;
17648   t25665 = t4781 * t5460;
17649   t25667 = 0.4e1 * t81 * t25665;
17650   t25668 = t5694 * t167;
17651   t25669 = t81 * t25668;
17652   t25671 = 0.2e1 * t25669 * t25482;
17653   t25672 = t400 * t5712;
17654   t25675 = t1143 * t5706;
17655   t25676 = t25675 * t227;
17656   t25678 = 0.2e1 * t81 * t25676;
17657   t25679 = t96 * t25658;
17658   t25680 = t25679 * t227;
17659   t25682 = 0.2e1 * t81 * t25680;
17660   t25683 = t81 * t5711;
17661   t25685 = 0.2e1 * t25683 * t1193;
17662   t25686 = t1135 * t25640 / 0.3e1 - t25644 - 0.2e1 * t5695 * t1199 + t3788 * t25648 / 0.3e1 - t25652 - 0.2e1 * t449 * t25653 - t25661 - t25662 * t5146 / 0.3e1 + t25667 + t25671 - t25672 * t5146 / 0.3e1 + t25678 + t25682 + t25685;
17663   t25687 = t7 * t25686;
17664   t25695 = params->d * t25686;
17665   t25698 = 0.3e1 * t5720 * t1221;
17666   t25702 = 0.12e2 * t1357 * t5489;
17667   t25704 = 0.6e1 * t1357 * t5492;
17668   t25707 = t1143 * t5694;
17669   t25709 = 0.6e1 * t369 * t25707;
17670   t25710 = t1350 * t5460;
17671   t25712 = 0.12e2 * t369 * t25710;
17672   t25715 = t5711 * t1143;
17673   t25717 = 0.6e1 * t369 * t25715;
17674   t25718 = t97 * t25658;
17675   t25720 = 0.3e1 * t369 * t25718;
17676   t25721 = 0.6e1 * t1219 * t5724 + 0.3e1 * t1219 * t5727 + 0.6e1 * t1359 * t5483 + t25695 * t370 + t25698 + t25702 + t25704 + t25709 + t25712 + t25717 + t25720;
17677   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17678     v3sigmatau2[2] = t1217 * t5730 + t1224 * t5716 + 0.2e1 * t1355 * t5495 + 0.2e1 * t1362 * t5479 + t25687 * t372 + t25721 * t872;
17679 
17680   t25733 = t1252 * t5634;
17681   t25737 = my_piecewise3(t95, 0, t25468 / 0.2e1);
17682   t25738 = t363 * t25737;
17683   t25743 = t4721 * t5506;
17684   t25746 = t14483 * t4049;
17685   t25751 = t1231 * t5634;
17686   t25752 = t25751 * t227;
17687   t25755 = t96 * t25737;
17688   t25756 = t25755 * t227;
17689   t25761 = -0.2e1 / 0.3e1 * t1227 * t25452 - 0.4e1 * t5660 * t5507 - 0.2e1 * t5623 * t1252 - 0.2e1 / 0.3e1 * t4026 * t25460 - 0.2e1 * t5499 * t5635 - 0.2e1 * t449 * t25733 - 0.2e1 * t449 * t25738 + 0.2e1 / 0.3e1 * t25474 * t5510 + 0.4e1 * t81 * t25743 + 0.2e1 * t25481 * t25746 + 0.2e1 / 0.3e1 * t25485 * t5510 + 0.2e1 * t81 * t25752 + 0.2e1 * t81 * t25756 + 0.2e1 * t25496 * t1246;
17690   t25762 = t7 * t25761;
17691   t25770 = params->d * t25761;
17692   t25782 = t1231 * t5622;
17693   t25785 = t1329 * t5506;
17694   t25790 = t5639 * t1231;
17695   t25793 = t97 * t25737;
17696   t25796 = 0.6e1 * t1267 * t5652 + 0.3e1 * t1267 * t5655 + 0.3e1 * t1269 * t5648 + 0.12e2 * t1336 * t5534 + 0.6e1 * t1336 * t5537 + 0.6e1 * t1338 * t5528 + t25770 * t370 + 0.6e1 * t25782 * t369 + 0.12e2 * t25785 * t369 + 0.6e1 * t25790 * t369 + 0.3e1 * t25793 * t369;
17697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17698     v3sigmatau2[3] = t1265 * t5658 + t1272 * t5644 + 0.2e1 * t1334 * t5540 + 0.2e1 * t1341 * t5524 + t25762 * t372 + t25796 * t872;
17699 
17700   t25800 = t82 * t5506;
17701   t25811 = t1252 * t5665;
17702   t25815 = my_piecewise3(t95, 0, t25558 / 0.2e1);
17703   t25816 = t363 * t25815;
17704   t25821 = t5506 * t1347;
17705   t25822 = t25821 * t227;
17706   t25825 = t1326 * t5550;
17707   t25826 = t25825 * t227;
17708   t25833 = t1231 * t5665;
17709   t25834 = t25833 * t227;
17710   t25837 = t96 * t25815;
17711   t25838 = t25837 * t227;
17712   t25843 = -0.2e1 / 0.3e1 * t4026 * t25537 - 0.2e1 * t25800 * t1348 - 0.2e1 * t5660 * t5546 - 0.2e1 * t5660 * t5551 - 0.2e1 / 0.3e1 * t4026 * t25548 - 0.2e1 * t5499 * t5666 - 0.2e1 * t449 * t25811 - 0.2e1 * t449 * t25816 + 0.2e1 / 0.3e1 * t25564 * t5510 + 0.2e1 * t81 * t25822 + 0.2e1 * t81 * t25826 + 0.2e1 * t25575 * t1246 + 0.2e1 / 0.3e1 * t25578 * t5510 + 0.2e1 * t81 * t25834 + 0.2e1 * t81 * t25838 + 0.2e1 * t25589 * t1246;
17713   t25844 = t7 * t25843;
17714   t25852 = params->d * t25843;
17715   t25870 = t5556 * t1326;
17716   t25873 = t5560 * t1326;
17717   t25876 = t1350 * t5506;
17718   t25881 = t5671 * t1231;
17719   t25884 = t97 * t25815;
17720   t25887 = 0.6e1 * t1267 * t5686 + 0.3e1 * t1267 * t5689 + 0.3e1 * t1269 * t5680 + 0.6e1 * t1336 * t5577 + 0.3e1 * t1336 * t5580 + 0.3e1 * t1338 * t5571 + 0.6e1 * t1357 * t5534 + 0.3e1 * t1357 * t5537 + 0.3e1 * t1359 * t5528 + t25852 * t370 + 0.6e1 * t25870 * t369 + 0.6e1 * t25873 * t369 + 0.6e1 * t25876 * t369 + 0.6e1 * t25881 * t369 + 0.3e1 * t25884 * t369;
17721   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17722     v3sigmatau2[4] = t1265 * t5692 + t1272 * t5676 + t1334 * t5583 + t1341 * t5567 + t1355 * t5540 + t1362 * t5524 + t25844 * t372 + t25887 * t872;
17723 
17724   t25899 = t1252 * t5706;
17725   t25903 = my_piecewise3(t95, 0, t25656 / 0.2e1);
17726   t25904 = t363 * t25903;
17727   t25909 = t4781 * t5550;
17728   t25916 = t1231 * t5706;
17729   t25917 = t25916 * t227;
17730   t25920 = t96 * t25903;
17731   t25921 = t25920 * t227;
17732   t25926 = -0.2e1 / 0.3e1 * t1227 * t25640 - 0.4e1 * t23107 * t5551 - 0.2e1 * t5695 * t1252 - 0.2e1 / 0.3e1 * t4026 * t25648 - 0.2e1 * t5499 * t5707 - 0.2e1 * t449 * t25899 - 0.2e1 * t449 * t25904 + 0.2e1 / 0.3e1 * t25662 * t5510 + 0.4e1 * t81 * t25909 + 0.2e1 * t25669 * t25746 + 0.2e1 / 0.3e1 * t25672 * t5510 + 0.2e1 * t81 * t25917 + 0.2e1 * t81 * t25921 + 0.2e1 * t25683 * t1246;
17733   t25927 = t7 * t25926;
17734   t25935 = params->d * t25926;
17735   t25947 = t1231 * t5694;
17736   t25950 = t1350 * t5550;
17737   t25955 = t5711 * t1231;
17738   t25958 = t97 * t25903;
17739   t25961 = 0.6e1 * t1267 * t5724 + 0.3e1 * t1267 * t5727 + 0.3e1 * t1269 * t5720 + 0.12e2 * t1357 * t5577 + 0.6e1 * t1357 * t5580 + 0.6e1 * t1359 * t5571 + t25935 * t370 + 0.6e1 * t25947 * t369 + 0.12e2 * t25950 * t369 + 0.6e1 * t25955 * t369 + 0.3e1 * t25958 * t369;
17740   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17741     v3sigmatau2[5] = t1265 * t5730 + t1272 * t5716 + 0.2e1 * t1355 * t5583 + 0.2e1 * t1362 * t5567 + t25927 * t372 + t25961 * t872;
17742 
17743   t25969 = t1307 * t5634;
17744   t25976 = t1277 * t25452 / 0.3e1 - t25456 - 0.2e1 * t5623 * t1307 + t4173 * t25460 / 0.3e1 - t25464 - 0.2e1 * t449 * t25969 - t25473 - t25474 * t5590 / 0.3e1 + t25479 + t25484 - t25485 * t5590 / 0.3e1 + t25491 + t25495 + t25498;
17745   t25977 = t7 * t25976;
17746   t25985 = params->d * t25976;
17747   t25993 = 0.6e1 * t1318 * t5652 + 0.3e1 * t1318 * t5655 + 0.6e1 * t1338 * t5598 + t25985 * t370 + t25511 + t25515 + t25517 + t25522 + t25525 + t25530 + t25533;
17748   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17749     v3sigmatau2[6] = t1316 * t5658 + t1320 * t5644 + 0.2e1 * t1334 * t5602 + 0.2e1 * t1341 * t5594 + t25977 * t372 + t25993 * t872;
17750 
17751   t26001 = t1307 * t5665;
17752   t26008 = t4173 * t25537 / 0.3e1 - t25542 - 0.2e1 * t5660 * t5606 - t25546 + t4173 * t25548 / 0.3e1 - t25552 - 0.2e1 * t449 * t26001 - t25563 - t25564 * t5590 / 0.3e1 + t25570 + t25574 + t25577 - t25578 * t5590 / 0.3e1 + t25584 + t25588 + t25591;
17753   t26009 = t7 * t26008;
17754   t26017 = params->d * t26008;
17755   t26027 = 0.6e1 * t1318 * t5686 + 0.3e1 * t1318 * t5689 + 0.3e1 * t1338 * t5616 + 0.3e1 * t1359 * t5598 + t26017 * t370 + t25604 + t25608 + t25610 + t25614 + t25616 + t25621 + t25624 + t25627 + t25632 + t25635;
17756   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17757     v3sigmatau2[7] = t1316 * t5692 + t1320 * t5676 + t1334 * t5620 + t1341 * t5612 + t1355 * t5602 + t1362 * t5594 + t26009 * t372 + t26027 * t872;
17758 
17759   t26035 = t1307 * t5706;
17760   t26042 = t1277 * t25640 / 0.3e1 - t25644 - 0.2e1 * t5695 * t1307 + t4173 * t25648 / 0.3e1 - t25652 - 0.2e1 * t449 * t26035 - t25661 - t25662 * t5590 / 0.3e1 + t25667 + t25671 - t25672 * t5590 / 0.3e1 + t25678 + t25682 + t25685;
17761   t26043 = t7 * t26042;
17762   t26051 = params->d * t26042;
17763   t26059 = 0.6e1 * t1318 * t5724 + 0.3e1 * t1318 * t5727 + 0.6e1 * t1359 * t5616 + t26051 * t370 + t25698 + t25702 + t25704 + t25709 + t25712 + t25717 + t25720;
17764   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17765     v3sigmatau2[8] = t1316 * t5730 + t1320 * t5716 + 0.2e1 * t1355 * t5620 + 0.2e1 * t1362 * t5612 + t26043 * t372 + t26059 * t872;
17766 
17767   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17768     v3lapl3[0] = 0.0e0;
17769 
17770   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17771     v3lapl3[1] = 0.0e0;
17772 
17773   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17774     v3lapl3[2] = 0.0e0;
17775 
17776   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17777     v3lapl3[3] = 0.0e0;
17778 
17779   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17780     v3lapl2tau[0] = 0.0e0;
17781 
17782   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17783     v3lapl2tau[1] = 0.0e0;
17784 
17785   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17786     v3lapl2tau[2] = 0.0e0;
17787 
17788   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17789     v3lapl2tau[3] = 0.0e0;
17790 
17791   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17792     v3lapl2tau[4] = 0.0e0;
17793 
17794   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17795     v3lapl2tau[5] = 0.0e0;
17796 
17797   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17798     v3lapltau2[0] = 0.0e0;
17799 
17800   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17801     v3lapltau2[1] = 0.0e0;
17802 
17803   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17804     v3lapltau2[2] = 0.0e0;
17805 
17806   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17807     v3lapltau2[3] = 0.0e0;
17808 
17809   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17810     v3lapltau2[4] = 0.0e0;
17811 
17812   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17813     v3lapltau2[5] = 0.0e0;
17814 
17815   t26063 = 0.1e1 / t271;
17816   t26065 = t5628 * t5628;
17817   t26066 = t26065 * t35;
17818   t26067 = t5751 * t26063 * t26066;
17819   t26070 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t58 * t26067);
17820   t26071 = t363 * t26070;
17821   t26074 = t4721 * t5634;
17822   t26077 = t96 * t26070;
17823   t26078 = t26077 * t227;
17824   t26081 = -0.2e1 * t26071 * t449 + 0.6e1 * t26074 * t81 + 0.2e1 * t26078 * t81 - 0.6e1 * t5635 * t5660;
17825   t26082 = t7 * t26081;
17826   t26088 = params->d * t26081;
17827   t26096 = t5622 * t1326;
17828   t26099 = t1329 * t5634;
17829   t26102 = t97 * t26070;
17830   t26105 = 0.18e2 * t1336 * t5652 + 0.9e1 * t1336 * t5655 + 0.9e1 * t1338 * t5648 + t26088 * t370 + 0.6e1 * t26096 * t369 + 0.18e2 * t26099 * t369 + 0.3e1 * t26102 * t369;
17831   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17832     v3tau3[0] = 0.3e1 * t1334 * t5658 + 0.3e1 * t1341 * t5644 + t26082 * t372 + t26105 * t872;
17833 
17834   t26107 = t82 * t5634;
17835   t26112 = t4766 * t22888;
17836   t26115 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t17133 * t26112);
17837   t26116 = t363 * t26115;
17838   t26119 = t5634 * t1347;
17839   t26120 = t26119 * t227;
17840   t26123 = t1326 * t5665;
17841   t26124 = t26123 * t227;
17842   t26127 = t96 * t26115;
17843   t26128 = t26127 * t227;
17844   t26131 = -0.2e1 * t1348 * t26107 - 0.2e1 * t26116 * t449 + 0.2e1 * t26120 * t81 + 0.4e1 * t26124 * t81 + 0.2e1 * t26128 * t81 - 0.4e1 * t5660 * t5666;
17845   t26132 = t7 * t26131;
17846   t26140 = params->d * t26131;
17847   t26154 = t5622 * t1347;
17848   t26157 = t5671 * t1326;
17849   t26160 = t1350 * t5634;
17850   t26163 = t97 * t26115;
17851   t26166 = 0.12e2 * t1336 * t5686 + 0.6e1 * t1336 * t5689 + 0.6e1 * t1338 * t5680 + 0.6e1 * t1357 * t5652 + 0.3e1 * t1357 * t5655 + 0.3e1 * t1359 * t5648 + t26140 * t370 + 0.6e1 * t26154 * t369 + 0.12e2 * t26157 * t369 + 0.6e1 * t26160 * t369 + 0.3e1 * t26163 * t369;
17852   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17853     v3tau3[1] = 0.2e1 * t1334 * t5692 + 0.2e1 * t1341 * t5676 + t1355 * t5658 + t1362 * t5644 + t26132 * t372 + t26166 * t872;
17854 
17855   t26172 = t23121 * t4700;
17856   t26175 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t17133 * t26172);
17857   t26176 = t363 * t26175;
17858   t26179 = t4781 * t5665;
17859   t26182 = t1326 * t5706;
17860   t26183 = t26182 * t227;
17861   t26186 = t96 * t26175;
17862   t26187 = t26186 * t227;
17863   t26190 = -0.4e1 * t23107 * t5666 - 0.2e1 * t26176 * t449 + 0.4e1 * t26179 * t81 + 0.2e1 * t26183 * t81 + 0.2e1 * t26187 * t81 - 0.2e1 * t5660 * t5707;
17864   t26191 = t7 * t26190;
17865   t26199 = params->d * t26190;
17866   t26211 = t1326 * t5694;
17867   t26214 = t1350 * t5665;
17868   t26219 = t5711 * t1326;
17869   t26222 = t97 * t26175;
17870   t26225 = 0.6e1 * t1336 * t5724 + 0.3e1 * t1336 * t5727 + 0.3e1 * t1338 * t5720 + 0.12e2 * t1357 * t5686 + 0.6e1 * t1357 * t5689 + 0.6e1 * t1359 * t5680 + t26199 * t370 + 0.6e1 * t26211 * t369 + 0.12e2 * t26214 * t369 + 0.6e1 * t26219 * t369 + 0.3e1 * t26222 * t369;
17871   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17872     v3tau3[2] = t1334 * t5730 + t1341 * t5716 + 0.2e1 * t1355 * t5692 + 0.2e1 * t1362 * t5676 + t26191 * t372 + t26225 * t872;
17873 
17874   t26229 = 0.1e1 / t335;
17875   t26231 = t5700 * t5700;
17876   t26232 = t26231 * t47;
17877   t26233 = t5751 * t26229 * t26232;
17878   t26236 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t58 * t26233);
17879   t26237 = t363 * t26236;
17880   t26240 = t4781 * t5706;
17881   t26243 = t96 * t26236;
17882   t26244 = t26243 * t227;
17883   t26247 = -0.6e1 * t23107 * t5707 - 0.2e1 * t26237 * t449 + 0.6e1 * t26240 * t81 + 0.2e1 * t26244 * t81;
17884   t26248 = t7 * t26247;
17885   t26254 = params->d * t26247;
17886   t26262 = t5694 * t1347;
17887   t26265 = t1350 * t5706;
17888   t26268 = t97 * t26236;
17889   t26271 = 0.18e2 * t1357 * t5724 + 0.9e1 * t1357 * t5727 + 0.9e1 * t1359 * t5720 + t26254 * t370 + 0.6e1 * t26262 * t369 + 0.18e2 * t26265 * t369 + 0.3e1 * t26268 * t369;
17890   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17891     v3tau3[3] = 0.3e1 * t1355 * t5730 + 0.3e1 * t1362 * t5716 + t26248 * t372 + t26271 * t872;
17892 
17893 #ifndef XC_DONT_COMPILE_LXC
17894 
17895   if(order < 4) return;
17896 
17897 
17898   t26273 = t7543 * t372;
17899   t26275 = t2358 * t878;
17900   t26277 = t869 * t2373;
17901   t26279 = t368 * t7567;
17902   t26283 = t53 * t2030;
17903   t26285 = 0.2618e4 / 0.81e2 * t26283 * t92;
17904   t26286 = t5742 * t460;
17905   t26288 = t1440 * t1495;
17906   t26290 = t1440 * t1512;
17907   t26292 = t424 * t5753;
17908   t26294 = t424 * t5757;
17909   t26296 = t424 * t5800;
17910   t26299 = 0.1e1 / t5750 / t91;
17911   t26300 = t1494 * t1494;
17912   t26308 = t1511 * t1511;
17913   t26320 = 0.1e1 / t22898;
17914   t26321 = t1423 * t1423;
17915   t26322 = t26320 * t26321;
17916   t26326 = t5770 * t1423 * t1427;
17917   t26329 = t1427 * t1427;
17918   t26330 = t1422 * t26329;
17919   t26333 = t5775 * t5781;
17920   t26336 = 0.1e1 / t23125;
17921   t26337 = t1432 * t1432;
17922   t26338 = t26336 * t26337;
17923   t26342 = t5786 * t1432 * t1436;
17924   t26345 = t1436 * t1436;
17925   t26346 = t1431 * t26345;
17926   t26349 = t5791 * t5795;
17927   t26352 = t4 * t385;
17928   t26353 = t15 - t26352;
17929   t26354 = 0.12e2 * t26353;
17930   t26355 = t49 * t26354;
17931   t26368 = -t37 * t26354;
17932   t26371 = 0.800e3 / 0.27e2 * t1498 * t1424 + 0.200e3 / 0.81e2 * t454 * t5772 - 0.200e3 / 0.9e1 * t454 * t5776 + 0.40e2 / 0.81e2 * t85 * t26322 - 0.20e2 / 0.9e1 * t85 * t26326 + 0.10e2 / 0.3e1 * t85 * t26330 + 0.40e2 / 0.9e1 * t85 * t26333 + 0.40e2 / 0.81e2 * t89 * t26338 - 0.20e2 / 0.9e1 * t89 * t26342 + 0.10e2 / 0.3e1 * t89 * t26346 + 0.40e2 / 0.9e1 * t89 * t26349 + 0.5e1 / 0.3e1 * t89 * t26355 + 0.6160e4 / 0.81e2 * tau[0] * t6480 * t38 - 0.8800e4 / 0.81e2 * t5760 * t415 + 0.400e3 / 0.9e1 * t1498 * t1428 - 0.100e3 / 0.9e1 * t454 * t5782 + 0.5e1 / 0.3e1 * t85 * t26368;
17933   t26375 = t26285 + 0.616e3 / 0.27e2 * t26286 + 0.44e2 / 0.3e1 * t26288 - 0.22e2 / 0.3e1 * t26290 + 0.8e1 * t26292 - 0.8e1 * t26294 + 0.4e1 / 0.3e1 * t26296 + 0.3e1 * t58 * t26299 * t26300 - 0.9e1 / 0.2e1 * t58 * t5751 * t1494 * t1511 + 0.3e1 / 0.4e1 * t58 * t1493 * t26308 + t58 * t5756 * t5799 - t58 * t453 * t26371 / 0.8e1;
17934   t26376 = my_piecewise3(t95, 0, t26375);
17935   t26387 = t79 * t79;
17936   t26389 = t23 / t26387;
17937   t26390 = t1398 * t1398;
17938   t26398 = t1390 * t1396;
17939   t26416 = 0.1e1 / t67 / t6609;
17940   t26417 = t1451 * t1451;
17941   t26423 = t1454 * t1454;
17942   t26429 = -0.24e2 * t26353;
17943   t26433 = 0.1e1 / t70 / t7112;
17944   t26434 = t1460 * t1460;
17945   t26440 = t1463 * t1463;
17946   t26445 = -t26429;
17947   t26456 = 0.20944e5 / 0.81e2 * t26283;
17948   t26458 = 0.1e1 / t28 / t545;
17949   t26459 = sigma[0] * t26458;
17950   t26494 = -t26456 + 0.20944e5 / 0.81e2 * t26459 * t38 - 0.24640e5 / 0.81e2 * t6481 * t415 + 0.880e3 / 0.9e1 * t1417 * t1428 - 0.160e3 / 0.9e1 * t410 * t5782 + 0.5e1 / 0.3e1 * t31 * t26368 + 0.5e1 / 0.3e1 * t45 * t26355 + 0.1760e4 / 0.27e2 * t1417 * t1424 + 0.320e3 / 0.81e2 * t410 * t5772 - 0.320e3 / 0.9e1 * t410 * t5776 + 0.40e2 / 0.81e2 * t31 * t26322 - 0.20e2 / 0.9e1 * t31 * t26326 + 0.10e2 / 0.3e1 * t31 * t26330 + 0.40e2 / 0.9e1 * t31 * t26333 + 0.40e2 / 0.81e2 * t45 * t26338 - 0.20e2 / 0.9e1 * t45 * t26342 + 0.10e2 / 0.3e1 * t45 * t26346 + 0.40e2 / 0.9e1 * t45 * t26349;
17951   t26500 = 0.72e2 * t15;
17952   t26501 = 0.192e3 * t26352;
17953   t26502 = t5 * t21;
17954   t26503 = 0.120e3 * t26502;
17955   t26525 = t1443 * t1467 / 0.4e1 + t427 * t6530 / 0.6e1 + t60 * t66 * (0.3640e4 / 0.81e2 * t26416 * t26417 - 0.560e3 / 0.9e1 * t6512 * t1451 * t1454 + 0.28e2 / 0.3e1 * t1450 * t26423 + 0.112e3 / 0.9e1 * t6515 * t5868 - 0.4e1 / 0.3e1 * t431 * t26429 + 0.3640e4 / 0.81e2 * t26433 * t26434 - 0.560e3 / 0.9e1 * t6521 * t1460 * t1463 + 0.28e2 / 0.3e1 * t1459 * t26440 + 0.112e3 / 0.9e1 * t6524 * t5879 - 0.4e1 / 0.3e1 * t435 * t26445) / 0.24e2 + t1410 * t1467 / 0.2e1 + t405 * t6530 / 0.6e1 + t25 * t26494 * t74 / 0.24e2 + t6504 * t440 / 0.6e1 + (-t26500 + t26501 - t26503) * t59 * t74 / 0.24e2 + t6463 * t426 * t74 / 0.6e1 + t6464 * t440 / 0.6e1 + t1406 * t1442 * t74 / 0.4e1 + t6467 * t440 / 0.2e1 + t1407 * t1467 / 0.4e1 + t404 * t6503 * t74 / 0.6e1 + t6472 * t440 / 0.2e1;
17956   t26535 = t6440 * t399;
17957   t26543 = t3 * t15;
17958   t26544 = 0.72e2 * t26543;
17959   t26545 = t373 * t385;
17960   t26546 = 0.192e3 * t26545;
17961   t26548 = 0.120e3 * t6 * t21;
17962   t26550 = 0.24e2 * t11 * t15;
17963   t26551 = t6420 * t385;
17964   t26552 = 0.384e3 * t26551;
17965   t26553 = t1374 * t21;
17966   t26554 = 0.1440e4 * t26553;
17967   t26555 = t381 * t393;
17968   t26556 = 0.1920e4 * t26555;
17969   t26558 = 0.840e3 * t13 * t1387;
17970   t26561 = 0.360e3 * t17 * t5 * t21;
17971   t26562 = t6429 * t393;
17972   t26563 = 0.2880e4 * t26562;
17973   t26564 = t1381 * t1387;
17974   t26565 = 0.7560e4 * t26564;
17975   t26566 = t389 * t6437;
17976   t26567 = 0.8064e4 * t26566;
17977   t26568 = t1386 * t8;
17978   t26571 = 0.3024e4 * t19 / t26568;
17979   t26572 = t26544 - t26546 + t26548 + t26550 - t26552 + t26554 - t26556 + t26558 + t26561 - t26563 + t26565 - t26567 + t26571;
17980   t26573 = t26572 * t80;
17981   t26582 = 0.840e3 * t26389 * t97 * t26390 + 0.480e3 * t7757 * t1470 * t464 * t443 + 0.120e3 * t26398 * t2338 - 0.720e3 * t6453 * t2338 * t1470 + 0.240e3 * t1397 * t6576 * t1516 - 0.960e3 * t6453 * t96 * t6454 * t464 - 0.4e1 * t400 * t97 * t26525 - 0.24e2 * t6442 * t2345 + 0.8e1 * t6441 * t863 + 0.12e2 * t1391 * t2350 - 0.16e2 * t26535 * t860 + 0.480e3 * t6445 * t6577 + 0.80e2 * t1397 * t6562 * t443 + t26573 * t97 + 0.24e2 * t397 * t6539 + 0.8e1 * t81 * t464 * t5804 + 0.8e1 * t397 * t6542;
17982   t26602 = t396 * t6452;
17983   t26622 = t1470 * t1470;
17984   t26626 = t1516 * t1516;
17985   t26629 = -0.32e2 * t400 * t464 * t6533 * t96 + 0.240e3 * t1397 * t1398 * t1481 + 0.60e2 * t1397 * t26622 * t97 - 0.48e2 * t1470 * t1481 * t400 - 0.48e2 * t1516 * t400 * t6548 + 0.2e1 * t26376 * t81 * t96 - 0.96e2 * t400 * t443 * t6539 - 0.32e2 * t400 * t443 * t6542 + 0.12e2 * t1391 * t1481 - 0.96e2 * t1392 * t6545 - 0.96e2 * t1392 * t6549 - 0.96e2 * t1392 * t6552 - 0.16e2 * t1392 * t6562 - 0.96e2 * t2342 * t6442 - 0.480e3 * t26602 * t6573 + 0.6e1 * t26626 * t81 + 0.240e3 * t6445 * t6580;
17986   t26647 = -0.24e2 * t6409 * t857 - 0.2e1 * t449 * t363 * t26376 - 0.12e2 * t449 * t2331 * t1516 - 0.12e2 * t1482 * t2331 - 0.24e2 * t2448 * t7534 + (t26582 + t26629) * t227 - 0.6e1 * t1474 * t2331 - 0.24e2 * t7847 * t1517 + 0.4e1 * t6583 * t751 - 0.24e2 * t1476 * t5808 - 0.8e1 * t449 * t7532 * t464 - 0.24e2 * t6587 * t1485 + 0.6e1 * t2353 * t2101;
17987   t26657 = t6536 * t96;
17988   t26667 = t1757 * t7082;
17989   t26671 = t1592 * t6747;
17990   t26692 = t2500 * t477;
17991   t26694 = t1805 * t1537;
17992   t26696 = t1805 * t1528;
17993   t26698 = t599 * t6606;
17994   t26700 = t599 * t6630;
17995   t26702 = t1525 * t1525;
17996   t26703 = 0.1e1 / t26702;
17997   t26704 = t26703 * t26417;
17998   t26706 = t106 * t6995 * t26704;
17999   t26708 = t475 * t26429;
18000   t26710 = t106 * t474 * t26708;
18001   t26713 = 0.1e1 / t1525 / t1448;
18002   t26714 = t26713 * t26417;
18003   t26716 = t106 * t1698 * t26714;
18004   t26719 = t6604 * t1451 * t1454;
18005   t26721 = t106 * t1698 * t26719;
18006   t26723 = t6604 * t26417;
18007   t26725 = t106 * t560 * t26723;
18008   t26728 = t6610 * t1451 * t1454;
18009   t26730 = t106 * t560 * t26728;
18010   t26732 = 0.71030123456790123454e-1 * t26692 - 0.45662222222222222221e-1 * t26694 - 0.30441481481481481480e-1 * t26696 + 0.25367901234567901233e-1 * t26698 + 0.22831111111111111111e-1 * t26700 - 0.50735802469135802467e-1 * t26706 - 0.17123333333333333333e-1 * t26710 + 0.22831111111111111110e0 * t26716 - 0.11415555555555555555e0 * t26721 - 0.41095999999999999999e0 * t26725 + 0.41095999999999999998e0 * t26730;
18011   t26733 = t1526 * t26423;
18012   t26735 = t106 * t560 * t26733;
18013   t26737 = t6615 * t5868;
18014   t26739 = t106 * t560 * t26737;
18015   t26741 = t599 * t6612;
18016   t26743 = t599 * t6617;
18017   t26745 = t599 * t6621;
18018   t26747 = t599 * t6626;
18019   t26749 = t1805 * t1533;
18020   t26752 = t228 * t12947 * t231;
18021   t26753 = 0.17757530864197530864e0 * t26752;
18022   t26754 = t6610 * t26417;
18023   t26756 = t106 * t474 * t26754;
18024   t26758 = t1527 * t1454;
18025   t26760 = t106 * t474 * t26758;
18026   t26762 = t1531 * t26423;
18027   t26764 = t106 * t474 * t26762;
18028   t26766 = t6624 * t5868;
18029   t26768 = t106 * t474 * t26766;
18030   t26770 = -0.34246666666666666665e-1 * t26735 - 0.45662222222222222220e-1 * t26739 - 0.91324444444444444440e-1 * t26741 + 0.45662222222222222220e-1 * t26743 + 0.13698666666666666667e0 * t26745 - 0.13698666666666666667e0 * t26747 + 0.91324444444444444440e-1 * t26749 + t26753 + 0.41096000000000000000e0 * t26756 - 0.61644000000000000000e0 * t26760 + 0.10274000000000000000e0 * t26764 + 0.13698666666666666667e0 * t26768;
18031   t26772 = (t26732 + t26770) * t251;
18032   t26775 = t517 * t242 * t6769;
18033   t26777 = t1642 * t6604;
18034   t26785 = t517 * t242 * t6774;
18035   t26792 = t531 * t1616 * t6876;
18036   t26798 = t1631 * t6785;
18037   t26800 = t520 * t6610;
18038   t26805 = t6481 * t516;
18039   t26808 = t6760 * t1634;
18040   t26812 = t1631 * t6765;
18041   t26814 = t1631 * t6778;
18042   t26817 = t531 * t6896 * t1718;
18043   t26819 = t1723 * t6986;
18044   t26823 = -t26775 / 0.27e2 + t517 * t518 * t26777 * t26417 / 0.6e1 - 0.2e1 / 0.9e1 * t1631 * t6775 + t26785 / 0.36e2 - t6975 * t6971 / 0.12e2 + t1628 * t6877 / 0.72e2 - t26792 / 0.576e3 + 0.11e2 / 0.54e2 * t6760 * t1638 + 0.22e2 / 0.81e2 * t6760 * t1645 - t26798 / 0.27e2 - t517 * t518 * t26800 * t26417 / 0.12e2 - 0.154e3 / 0.243e3 * t26805 * t523 + 0.11e2 / 0.81e2 * t26808 - 0.11e2 / 0.27e2 * t6760 * t1651 + 0.2e1 / 0.81e2 * t26812 + 0.2e1 / 0.27e2 * t26814 + t26817 / 0.1152e4 - 0.5e1 / 0.162e3 * t26819 + 0.5e1 / 0.54e2 * t1723 * t6921;
18045   t26824 = t1716 * t1716;
18046   t26825 = t26824 * t265;
18047   t26836 = t1723 * t6966;
18048   t26838 = t1620 * t1620;
18049   t26839 = t26838 * t6822;
18050   t26845 = 0.1e1 / t6816 / t266;
18051   t26848 = t262 * t26845 * t268 * t529;
18052   t26849 = t1672 * t1672;
18053   t26850 = t26838 * t26849;
18054   t26857 = t1628 * t6924;
18055   t26861 = t26824 * t1672;
18056   t26867 = t6820 * t1616 * t6824;
18057   t26870 = t557 * t8565 * t6916;
18058   t26873 = t1671 * t8565 * t6937;
18059   t26875 = t1662 * t1655;
18060   t26877 = t549 * t6903;
18061   t26882 = 0.7e1 / 0.15552e5 * t275 * t210 * t3878 * t277;
18062   t26890 = t6910 * t553;
18063   t26895 = -t531 * t533 * t474 * t26825 / 0.512e3 - 0.19e2 / 0.144e3 * t6889 * t1623 - t1723 * t6813 / 0.18e2 - 0.19e2 / 0.108e3 * t7006 * t1613 + t26836 / 0.27e2 - 0.3e1 / 0.128e3 * t6820 * t533 * t474 * t26839 + t26848 * t533 * t474 * t26850 / 0.64e2 - 0.19e2 / 0.144e3 * t6889 * t1719 + t26857 / 0.36e2 - t1723 * t6990 / 0.108e3 + t1671 * t533 * t474 * t26861 / 0.256e3 - t26867 / 0.96e2 - t26870 / 0.144e3 + t26873 / 0.96e2 - 0.19e2 / 0.648e3 * t26875 - t26877 / 0.243e3 - t26882 + 0.5225e4 / 0.3888e4 * t262 * t269 / t27 / t6906 / rho[0] * t279 - 0.209e3 / 0.486e3 * t26890 - t517 * t2566 * t26728 / 0.6e1;
18064   t26903 = t6802 * t513;
18065   t26906 = t517 * t1576 * t522;
18066   t26909 = t517 * t498 * t1650;
18067   t26922 = 0.1e1 / t231 / t1526;
18068   t26923 = t26922 * t26703;
18069   t26928 = t1723 * t7002;
18070   t26931 = t517 * t242 * t6756;
18071   t26939 = t235 / t1596 / t1546;
18072   t26940 = t1549 * t1549;
18073   t26941 = t26940 * t6747;
18074   t26961 = -0.94674375000000000000e0 * t6666 * t1555 * t1563 - 0.34431666666666666667e1 * t26721 + 0.12395400000000000000e2 * t26730 - 0.13772666666666666667e1 * t26739 + 0.13772666666666666666e1 * t26743 - 0.41318000000000000000e1 * t26747 - 0.18593100000000000000e2 * t26760 + 0.41318000000000000000e1 * t26768 + 0.21424148148148148148e1 * t26692 - 0.13772666666666666666e1 * t26694 - 0.91817777777777777776e0 * t26696 + 0.76514814814814814814e0 * t26698 + 0.68863333333333333332e0 * t26700 - 0.15302962962962962963e1 * t26706;
18075   t26963 = t606 * t6698;
18076   t26965 = t606 * t6695;
18077   t26990 = 0.112e3 / 0.81e2 * t26692 - 0.8e1 / 0.9e1 * t26694 - 0.16e2 / 0.27e2 * t26696 + 0.40e2 / 0.81e2 * t26698 + 0.4e1 / 0.9e1 * t26700 - 0.80e2 / 0.81e2 * t26706 - t26710 / 0.3e1 + 0.40e2 / 0.9e1 * t26716 - 0.20e2 / 0.9e1 * t26721 - 0.8e1 * t26725 + 0.8e1 * t26730;
18078   t26998 = 0.280e3 / 0.81e2 * t26752;
18079   t27003 = -0.2e1 / 0.3e1 * t26735 - 0.8e1 / 0.9e1 * t26739 - 0.16e2 / 0.9e1 * t26741 + 0.8e1 / 0.9e1 * t26743 + 0.8e1 / 0.3e1 * t26745 - 0.8e1 / 0.3e1 * t26747 + 0.16e2 / 0.9e1 * t26749 + t26998 + 0.8e1 * t26756 - 0.12e2 * t26760 + 0.2e1 * t26764 + 0.8e1 / 0.3e1 * t26768;
18080   t27004 = t26990 + t27003;
18081   t27007 = pow(t233, -0.25e1);
18082   t27008 = t1555 * t1555;
18083   t27013 = 0.16979925925925925926e1 * t241 * t204 * t243;
18084   t27025 = -0.51647500000000000000e0 * t26710 - 0.16671200000000000000e1 * t26963 + 0.27785333333333333333e0 * t26965 + 0.12503400000000000000e1 * t119 * t1582 * t26728 - 0.37510200000000000000e1 * t119 * t258 * t26758 - 0.70594500000000000000e1 * t1554 * t6713 * t488 + 0.12623250000000000000e1 * t1571 * t6713 * t488 + 0.63116250000000000000e0 * t493 * t27004 + 0.23668593750000000000e0 * t27007 * t27008 + t27013 + 0.35297250000000000000e1 * t486 * t27004 + 0.15883762500000000000e2 * t6730 * t1555 * t1563 - 0.27785333333333333334e0 * t119 * t6680 * t26719 + 0.83356000000000000000e0 * t119 * t258 * t26766;
18085   t27030 = t2547 * t502;
18086   t27032 = t1814 * t1586;
18087   t27034 = 0.53560370370370370370e1 * t26752;
18088   t27043 = t606 * t6692;
18089   t27045 = t1563 * t1563;
18090   t27048 = -0.13892666666666666667e0 * t119 * t1582 * t26737 + 0.12349037037037037037e1 * t27030 + 0.13892666666666666667e1 * t27032 + t27034 + 0.68863333333333333334e1 * t26716 - 0.12395400000000000000e2 * t26725 - 0.10329500000000000000e1 * t26735 - 0.27545333333333333333e1 * t26741 + 0.41318000000000000000e1 * t26745 + 0.27545333333333333333e1 * t26749 + 0.12395400000000000000e2 * t26756 + 0.30988500000000000000e1 * t26764 + 0.16671200000000000000e1 * t27043 + 0.94674375000000000000e0 * t1571 * t27045;
18091   t27049 = t99 * t32;
18092   t27053 = 0.1e1 / t236 / t27049 / t230 / 0.96e2;
18093   t27058 = t606 * t6689;
18094   t27063 = t1814 * t1583;
18095   t27065 = t606 * t6684;
18096   t27067 = t606 * t6681;
18097   t27069 = t203 * t6754;
18098   t27088 = t1814 * t1589;
18099   t27090 = -0.66182343750000000000e1 * t27053 * t27008 - 0.52945875000000000000e1 * t1554 * t27045 - 0.55570666666666666668e0 * t27058 + 0.55570666666666666666e0 * t119 * t6680 * t26714 - 0.23154444444444444445e0 * t27063 + 0.27785333333333333333e0 * t27065 + 0.12349037037037037037e0 * t27067 - 0.10805407407407407407e0 * t119 * t27069 * t26704 - 0.10419500000000000000e0 * t119 * t258 * t26708 - 0.12503400000000000000e1 * t119 * t1582 * t26723 - 0.10419500000000000000e0 * t119 * t1582 * t26733 + 0.25006800000000000000e1 * t119 * t258 * t26754 + 0.62517000000000000000e0 * t119 * t258 * t26762 - 0.69463333333333333334e0 * t27088;
18100   t27093 = (t26961 + t27025 + t27048 + t27090) * t506;
18101   t27097 = t1596 * t1596;
18102   t27099 = t235 / t27097;
18103   t27100 = t1599 * t1599;
18104   t27101 = 0.1e1 / t27100;
18105   t27102 = t26940 * t27101;
18106   t27106 = t26940 * t506;
18107   t27113 = t1592 * t1592;
18108   t27114 = t27113 * t506;
18109   t27121 = t27113 * t1600;
18110   t27132 = 0.49009467336851114346e6 * t26939 * t26941 * t187 - 0.19739208802178717239e2 * t485 * t27093 * t187 - 0.39408462447654052777e7 * t27099 * t27102 * t187 + 0.47374101125228921372e3 * t6656 * t27106 * t187 - 0.71061151687843382058e3 * t1598 * t1549 * t1710 + 0.11843525281307230343e3 * t1548 * t27114 * t187 - 0.25395644102163949012e4 * t1598 * t6735 * t2609 - 0.19046733076622961759e4 * t1598 * t27121 * t187 + 0.15791367041742973791e3 * t6859 * t6865 + 0.22856079691947554112e5 * t6656 * t1549 * t8722 + 0.61370581910589784405e0 * t26772 * t187;
18111   t27133 = t1540 * t1547;
18112   t27141 = t6633 * t484;
18113   t27146 = t1540 * t1597;
18114   t27149 = t480 * t6655;
18115   t27154 = t480 * t6744;
18116   t27157 = t26940 * t1600;
18117   t27167 = 0.23687050562614460686e3 * t27133 * t1707 - 0.47374101125228921372e3 * t6644 * t6856 - 0.76186932306491847037e4 * t6644 * t1592 * t2609 - 0.78956835208714868956e2 * t27141 * t536 - 0.11843525281307230343e3 * t6636 * t1710 - 0.38093466153245923519e4 * t27146 * t1713 + 0.15237386461298369407e5 * t27149 * t6862 - 0.78956835208714868956e2 * t1543 * t6865 - 0.16336489112283704782e6 * t27154 * t6871 - 0.22856079691947554112e5 * t6745 * t27157 * t187 + 0.47374101125228921372e3 * t6639 * t505 * t1710 - 0.24504733668425557172e6 * t6745 * t1592 * t8719;
18118   t27169 = (t27132 + t27167) * t265;
18119   t27181 = t557 * t1616 * t6996;
18120   t27188 = 0.1e1 / t243 / t1526;
18121   t27189 = t130 * t27188;
18122   t27194 = t6908 * t61;
18123   t27196 = t262 * t269 * t27194;
18124   t27199 = t517 * t2570 * t26758 / 0.8e1 + 0.1309e4 / 0.486e3 * t26459 * t254 * t259 - 0.154e3 / 0.243e3 * t26903 + 0.5e1 / 0.972e3 * t26906 + t26909 / 0.108e3 + 0.8e1 / 0.27e2 * t1631 * t6770 - t517 * t518 * t1649 * t26423 / 0.48e2 + t517 * t518 * t1643 * t26423 / 0.72e2 + 0.35e2 / 0.972e3 * t517 * t518 * t26923 * t26417 + t26928 / 0.162e3 + 0.7e1 / 0.486e3 * t26931 + t517 * t518 * t521 * t26429 / 0.288e3 - t531 * t533 * t474 * t27169 / 0.1536e4 - 0.10e2 / 0.243e3 * t1723 * t6997 - t557 * t533 * t560 * t26754 / 0.96e2 + 0.5e1 / 0.972e3 * t27181 + t557 * t533 * t560 * t26708 / 0.2304e4 + 0.55e2 / 0.7776e4 * t557 * t533 * t27189 * t26704 - 0.209e3 / 0.486e3 * t27196 * t562;
18125   t27210 = t586 * t560;
18126   t27212 = t1682 * t27210 * t1685;
18127   t27214 = t6947 * t6951;
18128   t27218 = t1679 * t268 * t1660 * t209;
18129   t27225 = t1631 * t6788;
18130   t27228 = t517 * t498 * t1637;
18131   t27231 = t517 * t498 * t1644;
18132   t27233 = t6754 * t26713;
18133   t27243 = t517 * t242 * t6791;
18134   t27245 = t1723 * t6983;
18135   t27252 = t262 * t6818 * t1626;
18136   t27258 = t557 * t6896 * t1699;
18137   t27260 = t1604 * t1609;
18138   t27262 = -t1682 * t1684 * t6620 * t540 / 0.96e2 - t6828 * t1684 * t1673 * t1532 / 0.96e2 + t6947 * t6834 / 0.36e2 + t27212 / 0.864e3 + t27214 / 0.27e2 - 0.19e2 / 0.108e3 * t27218 * t1686 - t1682 * t1684 * t6882 * t476 / 0.576e3 - 0.4e1 / 0.81e2 * t27225 - t27228 / 0.216e3 - t27231 / 0.162e3 - 0.7e1 / 0.54e2 * t517 * t518 * t27233 * t26417 - t1631 * t6792 / 0.27e2 - 0.28e2 / 0.243e3 * t1631 * t6757 + t27243 / 0.216e3 - t27245 / 0.54e2 - t557 * t533 * t560 * t26762 / 0.384e3 + t27252 * t6825 / 0.12e2 + 0.19e2 / 0.216e3 * t7006 * t1693 - 0.5e1 / 0.5184e4 * t27258 - 0.11e2 / 0.81e2 * t27260;
18139   t27265 = t510 * t6809;
18140   t27269 = 0.5e1 / 0.486e3 * t255 * t2546 * t258;
18141   t27271 = t1454 * t539 * t265;
18142   t27277 = t1716 * t475 * t413;
18143   t27283 = t557 * t6896 * t1612;
18144   t27286 = t557 * t1616 * t6812;
18145   t27289 = t557 * t1616 * t6989;
18146   t27292 = t6828 * t6950 * t6829;
18147   t27294 = t1683 * t6995;
18148   t27309 = t2662 * t6946;
18149   t27318 = t26838 * t1672;
18150   t27324 = t262 * t1669 * t6887;
18151   t27331 = t8892 * t1681;
18152   t27336 = -0.10e2 / 0.243e3 * t27265 - t27269 + t1682 * t1684 * t6624 * t27271 / 0.96e2 - t1682 * t1684 * t540 * t27277 / 0.192e3 + t27283 / 0.864e3 + t27286 / 0.144e3 + t27289 / 0.864e3 + t27292 / 0.144e3 - 0.5e1 / 0.648e3 * t1682 * t27294 * t540 * t6605 - t6947 * t6955 / 0.18e2 + t1682 * t1684 * t1621 * t1532 / 0.192e3 - t1682 * t1684 * t6875 * t476 / 0.576e3 - t27309 * t6830 / 0.18e2 + 0.5e1 / 0.2304e4 * t557 * t533 * t1698 * t26733 + 0.95e2 / 0.648e3 * t7006 * t1700 + 0.7e1 / 0.768e3 * t1671 * t533 * t474 * t27318 + 0.19e2 / 0.72e2 * t27324 * t1675 - 0.5e1 / 0.1152e4 * t1682 * t6841 * t1717 * t1527 - t27331 * t1684 * t6823 * t476 / 0.96e2;
18153   t27337 = t277 * t6874;
18154   t27343 = t517 * t8825 * t6625;
18155   t27355 = t517 * t8829 * t6616;
18156   t27368 = t105 * t1698;
18157   t27370 = t1682 * t27368 * t6842;
18158   t27383 = t1682 * t6950 * t6833;
18159   t27392 = t531 * t2645 * t541;
18160   t27395 = t557 * t2645 * t561;
18161   t27398 = t262 * t528 * t27194;
18162   t27401 = -t531 * t2578 * t27337 * t540 / 0.384e3 - t27343 / 0.36e2 - t517 * t2570 * t26766 / 0.36e2 + t517 * t2566 * t26737 / 0.54e2 + 0.7e1 / 0.108e3 * t517 * t8836 * t26719 + t27355 / 0.54e2 + 0.2e1 / 0.9e1 * t1631 * t6795 - 0.4e1 / 0.27e2 * t1631 * t6798 - t6975 * t6938 / 0.12e2 - 0.5e1 / 0.576e3 * t1682 * t6841 * t1526 * t1454 * t8630 - 0.5e1 / 0.864e3 * t27370 + 0.5e1 / 0.288e3 * t1682 * t6841 * t540 * t6611 - 0.5e1 / 0.1152e4 * t1682 * t6841 * t1621 * t1527 + t6947 * t6838 / 0.36e2 - t27383 / 0.288e3 + t1682 * t1684 * t1717 * t1532 / 0.192e3 + 0.5e1 / 0.108e3 * t6947 * t6843 - t27392 / 0.1296e4 + t27395 / 0.1944e4 + 0.209e3 / 0.324e3 * t27398 * t542;
18163   t27408 = t557 * t1616 * t6920;
18164   t27414 = t6889 * t1617;
18165   t27416 = t7006 * t1689;
18166   t27418 = t1628 * t6959;
18167   t27421 = t531 * t6896 * t1622;
18168   t27424 = t1671 * t1616 * t6970;
18169   t27427 = t1671 * t6896 * t1674;
18170   t27429 = t6975 * t6978;
18171   t27433 = t277 * t1620;
18172   t27434 = t6822 * t1716;
18173   t27439 = t1454 * t1451;
18174   t27449 = t557 * t8565 * t6932;
18175   t27451 = t5868 * t413;
18176   t27457 = t531 * t8565 * t6928;
18177   t27469 = -0.5e1 / 0.216e3 * t557 * t533 * t6995 * t26714 - 0.5e1 / 0.432e3 * t27408 + 0.5e1 / 0.192e3 * t557 * t533 * t1698 * t26723 - 0.19e2 / 0.108e3 * t27414 + 0.19e2 / 0.162e3 * t27416 + t27418 / 0.36e2 + t27421 / 0.1152e4 + t27424 / 0.96e2 - t27427 / 0.576e3 - t27429 / 0.18e2 + t1723 * t6917 / 0.18e2 - 0.3e1 / 0.128e3 * t6820 * t2578 * t27433 * t27434 + 0.5e1 / 0.432e3 * t557 * t2578 * t8781 * t27439 + 0.3e1 / 0.128e3 * t1671 * t2578 * t27433 * t6936 + 0.5e1 / 0.864e3 * t27449 + 0.5e1 / 0.1728e4 * t557 * t2578 * t2634 * t27451 - t27457 / 0.192e3 - t531 * t2578 * t27433 * t1717 / 0.256e3 + t1628 * t6929 / 0.24e2 - 0.5e1 / 0.192e3 * t557 * t2578 * t8753 * t27439;
18178   t27475 = t1682 * t6950 * t6954;
18179   t27478 = t1682 * t6950 * t6941;
18180   t27513 = t1682 * t6950 * t6837;
18181   t27525 = t1628 * t6897;
18182   t27528 = t557 * t6896 * t1692;
18183   t27530 = t26838 * t265;
18184   t27536 = t531 * t1616 * t6883;
18185   t27538 = -0.5e1 / 0.108e3 * t1723 * t6933 + t6947 * t6942 / 0.36e2 + t27475 / 0.144e3 - t27478 / 0.288e3 + t6828 * t1684 * t2580 * t27277 / 0.96e2 + t1671 * t2578 * t27337 * t2580 / 0.192e3 + t557 * t2578 * t8747 * t27439 / 0.64e2 - t557 * t2578 * t2640 * t27451 / 0.288e3 + t6828 * t1684 * t1673 * t1536 / 0.192e3 - t1682 * t1684 * t540 * t6629 / 0.576e3 + t6828 * t1684 * t6969 * t476 / 0.96e2 - t1682 * t1684 * t1717 * t1536 / 0.384e3 - t27513 / 0.288e3 - t1682 * t1684 * t1621 * t1536 / 0.384e3 + 0.5e1 / 0.576e3 * t6828 * t6841 * t1673 * t1527 + t1628 * t6884 / 0.72e2 - t27525 / 0.108e3 - t27528 / 0.1728e4 - t531 * t533 * t474 * t27530 / 0.1536e4 - t27536 / 0.576e3;
18186   t27541 = t26823 + t26895 + t27199 + t27262 + t27336 + t27401 + t27469 + t27538;
18187   t27544 = t7014 * t187;
18188   t27558 = 0.1e1 / t7023 / t287;
18189   t27559 = t62 * t27558;
18190   t27560 = t1736 * t1736;
18191   t27568 = t1754 * t1754;
18192   t27576 = t1668 * t1727;
18193   t27583 = t282 * t1620;
18194   t27587 = t1672 * t6874;
18195   t27612 = 0.24e2 * t2662 * t539 * t565 * t6936 + 0.12e2 * t1673 * t262 * t27576 + 0.6e1 * t1740 * t262 * t26861 + 0.14e2 * t1740 * t262 * t27318 - 0.4e1 * t1744 * t262 * t6875 - 0.4e1 * t1744 * t262 * t6882 - 0.3e1 * t262 * t26825 * t572 - t262 * t27530 * t572 + 0.36e2 * t2662 * t27583 * t6936 + 0.8e1 * t2662 * t27587 * t7042 - 0.36e2 * t27434 * t27583 * t8892;
18196   t27613 = t527 * t7013;
18197   t27629 = t6817 * t565;
18198   t27645 = t26845 * t282;
18199   t27652 = -0.12e2 * t1679 * t1716 * t540 * t565 - 0.4e1 * t1679 * t282 * t540 * t6874 - 0.6e1 * t1621 * t1679 * t7061 - 0.6e1 * t1621 * t262 * t7049 - 0.6e1 * t1717 * t262 * t7049 + t188 * t27541 * t284 - 0.36e2 * t262 * t26839 * t7034 + 0.24e2 * t262 * t26850 * t27645 - t262 * t27169 * t572 - 0.4e1 * t262 * t27613 * t540 - 0.24e2 * t262 * t27629 * t6823 + 0.24e2 * t262 * t6969 * t7038;
18200   t27656 = params->beta * t27541 * t289 - 0.4e1 * t27544 * t578 + 0.12e2 * t7016 * t1737 - 0.6e1 * t7016 * t1755 - 0.24e2 * t1730 * t7027 + 0.24e2 * t1730 * t7031 - 0.4e1 * t1730 * t7070 + 0.24e2 * t568 * t27559 * t27560 - 0.36e2 * t568 * t7025 * t1736 * t1754 + 0.6e1 * t568 * t1735 * t27568 + 0.8e1 * t568 * t1735 * t577 * t7069 - t568 * t571 * (t27612 + t27652);
18201   t27668 = 0.6e1 * t169 * t26667 * t1761 + 0.12414243100625616072e5 * t6745 * t26671 * t1549 - 0.24000000000000000000e2 * t6639 * t6651 + 0.38596750796862084160e3 * t6644 * t6740 + 0.36000000000000000000e2 * t1598 * t1550 * t1592 - 0.80000000000000000000e1 * t1548 * t507 * t6735 - 0.11579025239058625248e4 * t6656 * t1601 * t1592 + 0.12865583598954028054e3 * t1598 * t6735 * t1600 * t505 - 0.3109070e-1 * t26772 + t169 * t27656 * t581 / 0.2e1 - 0.12000000000000000000e2 * t27133 * t1550 + 0.24000000000000000000e2 * t6644 * t6648 - 0.24000000000000000000e2 * t6656 * t27106 + 0.10000000000000000000e1 * t485 * t27093;
18202   t27679 = t1761 * t1761;
18203   t27680 = t1762 * t1762;
18204   t27681 = 0.1e1 / t27680;
18205   t27701 = t1757 * t1757;
18206   t27705 = 0.19964560303604640732e6 * t27099 * t27102 - 0.60000000000000000000e1 * t1548 * t27114 + 0.96491876992155210402e2 * t1598 * t27121 - 0.2e1 * t169 * t7072 * t1763 * t580 - 0.3e1 * t169 * t27679 * t27681 + 0.40000000000000000000e1 * t27141 * t507 + 0.60000000000000000000e1 * t6636 * t1593 + 0.19298375398431042080e3 * t27146 * t1601 - 0.77193501593724168322e3 * t27149 * t6657 + 0.40000000000000000000e1 * t1543 * t6736 + 0.82761620670837440481e4 * t27154 * t6748 + 0.11579025239058625248e4 * t6745 * t27157 - 0.24828486201251232145e5 * t26939 * t26941 - 0.3e1 / 0.2e1 * t169 * t27701 * t1763;
18207   t27712 = 0.1e1 / t109 / t27049 * t99 * t5226 * t228 / 0.48e2;
18208   t27714 = t5817 * t385;
18209   t27716 = t1797 * t202;
18210   t27717 = t1796 * t27716;
18211   t27719 = t595 * t1858;
18212   t27720 = t594 * t27719;
18213   t27723 = pow(t106, -0.25e1);
18214   t27726 = t27723 * t99 * t5226 * t228;
18215   t27728 = t5828 * t385;
18216   t27730 = t1808 * t27716;
18217   t27732 = t602 * t27719;
18218   t27738 = 0.10000000000000000000e1 * t592 * (-0.21099166666666666667e1 * t27712 + 0.20255200000000000000e2 * t27714 - 0.75019259259259259258e1 * t27717 + 0.65641851851851851850e1 * t27720 + 0.31003950617283950618e1 * t8448 + 0.68258333333333333335e-1 * t27726 - 0.10921333333333333333e1 * t27728 + 0.12134814814814814815e1 * t27730 + 0.10617962962962962963e1 * t27732 + 0.13388493827160493828e1 * t8513) * t609;
18219   t27739 = t5842 * t1854;
18220   t27740 = 0.70178683471615754484e1 * t27739;
18221   t27741 = t1846 * t1846;
18222   t27745 = 0.35089341735807877242e1 * t666 * t1852 * t27741 * t652;
18223   t27746 = t1837 * t6081;
18224   t27747 = 0.23392894490538584828e1 * t27746;
18225   t27758 = -0.28769444444444444444e1 * t27712 + 0.27618666666666666667e2 * t27714 - 0.10229135802469135803e2 * t27717 + 0.89504938271604938273e1 * t27720 + 0.31310740740740740741e1 * t8448 + 0.36677500000000000000e-1 * t27726 - 0.58684000000000000000e0 * t27728 + 0.65204444444444444445e0 * t27730 + 0.57053888888888888890e0 * t27732 + 0.13490888888888888889e1 * t8513;
18226   t27762 = 0.58482236226346462070e0 * t666 * t645 * t27758 * t652;
18227   t27763 = t1816 * t1816;
18228   t27766 = 0.60000000000000000000e1 * t1775 * t27763 * t609;
18229   t27767 = t1820 * t1820;
18230   t27770 = t1776 * t1776;
18231   t27771 = t1823 * t1823;
18232   t27775 = 0.24955700379505800916e5 * t108 / t27767 * t27770 / t27771;
18233   t27776 = t5842 * t1834;
18234   t27777 = 0.10389515463408878255e3 * t27776;
18235   t27781 = 0.46785788981077169656e1 * t666 * t1852 * t5981 * t653;
18236   t27783 = t5883 * t149 * t668;
18237   t27784 = 0.23392894490538584828e1 * t27783;
18238   t27785 = t1837 * t5910;
18239   t27786 = 0.41016075432865626630e4 * t27785;
18240   t27787 = t1837 * t6085;
18241   t27788 = 0.41558061853635513020e3 * t27787;
18242   t27789 = t1830 * t1830;
18243   t27793 = 0.62337092780453269530e3 * t666 * t5905 * t27789 * t1833;
18244   t27796 = 0.42740000000000000000e0 * t228 * t5894 * t5985;
18245   t27797 = t27738 + t27740 + t27745 - t27747 - t27762 - t27766 + t27775 - t27777 + t27781 - t27784 - t27786 + t27788 - t27793 - t27796;
18246   t27801 = 0.22161481481481481481e0 * t228 * t682 * t591 * t610;
18247   t27805 = 0.28493333333333333333e0 * t228 * t177 * t1774 * t1777;
18248   t27809 = 0.36846163202829085480e2 * t228 * t469 * t5848 * t5853;
18249   t27813 = 0.22911460125803964958e1 * t228 * t177 * t1821 * t1825;
18250   t27816 = 0.21053605041484726346e2 * t666 * t1831 * t1982;
18251   t27817 = t6393 * t2093;
18252   t27821 = t1404 * t1990;
18253   t27822 = 0.72e2 * t27821;
18254   t27829 = 0.14035736694323150897e2 * t666 * t5959 * t27789 * t652;
18255   t27834 = t128 * t623 * t6036;
18256   t27835 = 0.4e1 * t27834;
18257   t27836 = t1404 * t1994;
18258   t27837 = 0.144e3 * t27836;
18259   t27838 = t613 * t6105;
18260   t27839 = 0.16e2 * t27838;
18261   t27840 = t616 * t6105;
18262   t27841 = 0.16e2 * t27840;
18263   t27843 = t128 * t1791 * t1989;
18264   t27844 = 0.6e1 * t27843;
18265   t27845 = 0.18e2 * t1768 * t1881 * t6076 + 0.36e2 * t1868 * t2857 * t6076 - 0.4e1 * t27817 * t2849 * t746 - t27801 - t27805 - t27809 + t27813 - t27816 + t27822 + t27829 + t27835 + t27837 + t27839 - t27841 + t27844;
18266   t27847 = t6393 * t748;
18267   t27853 = 0.14246666666666666666e0 * t228 * t5886 * t1817;
18268   t27854 = t1828 * t1828;
18269   t27855 = 0.1e1 / t27854;
18270   t27857 = t1832 * t1832;
18271   t27858 = 0.1e1 / t27857;
18272   t27861 = 0.91082604192152556044e5 * t666 * t27855 * t27789 * t27858;
18273   t27862 = t5842 * t1848;
18274   t27863 = 0.35089341735807877242e1 * t27862;
18275   t27864 = t6093 * t6102;
18276   t27865 = 0.86748650402413918736e-1 * t27864;
18277   t27866 = t6093 * t6099;
18278   t27867 = 0.13012297560362087810e0 * t27866;
18279   t27870 = 0.21687162600603479684e-1 * t1932 * t586 * t6081;
18280   t27871 = t6093 * t6090;
18281   t27872 = 0.19263893255070628431e1 * t27871;
18282   t27875 = 0.38025319932552508021e2 * t1932 * t586 * t5910;
18283   t27877 = t1791 * t101 * t1933;
18284   t27878 = 0.65061487801810439052e-1 * t27877;
18285   t27879 = t6093 * t6096;
18286   t27880 = 0.65061487801810439052e-1 * t27879;
18287   t27883 = 0.36000000000000000000e2 * t1822 * t1777 * t1816;
18288   t27884 = t616 * t5913;
18289   t27885 = 0.48e2 * t27884;
18290   t27888 = 0.24000000000000000000e2 * t5900 * t27770 * t609;
18291   t27891 = 0.11483599538271604938e-1 * t101 * t8447 * t125;
18292   t27892 = 0.12e2 * t1768 * t27847 * t677 + t27853 - t27861 - t27863 - t27865 - t27867 + t27870 + t27872 + t27875 + t27878 + t27880 + t27883 - t27885 - t27888 - t27891;
18293   t27897 = 0.69263436422725855036e2 * t666 * t1829 * t5981 * t1833 * t651;
18294   t27898 = t1837 * t6047;
18295   t27899 = 0.14035736694323150897e2 * t27898;
18296   t27900 = t6127 * t657;
18297   t27901 = 0.960e3 * t27900;
18298   t27924 = -0.28e2 / 0.81e2 * t1450 * t26417 + 0.8e1 / 0.9e1 * t431 * t1451 * t1454 - t69 * t26423 / 0.3e1 - 0.4e1 / 0.9e1 * t6135 * t5868 + t672 * t26429 / 0.3e1 - 0.28e2 / 0.81e2 * t1459 * t26434 + 0.8e1 / 0.9e1 * t435 * t1460 * t1463 - t72 * t26440 / 0.3e1 - 0.4e1 / 0.9e1 * t6142 * t5879 + t674 * t26445 / 0.3e1;
18299   t27935 = 0.455e3 / 0.243e3 * t53 * t19142 * t130 * t184;
18300   t27942 = 0.13685e5 / 0.31104e5 * t200 / t55 / t1386 * t203 * t206 * t210;
18301   t27943 = t6182 * t6168;
18302   t27946 = t262 * t695 * t2031;
18303   t27947 = t27946 * t1909;
18304   t27949 = t8077 * t6188;
18305   t27951 = t1892 * t1881;
18306   t27956 = t6329 * t687;
18307   t27957 = t27956 * t690;
18308   t27959 = t6324 * t1883;
18309   t27961 = t1863 * t6163;
18310   t27971 = t194 * t6147;
18311   t27976 = t103 * t6252;
18312   t27981 = t103 * t6191;
18313   t27982 = t6263 * t677;
18314   t27987 = t8077 * t6178;
18315   t27989 = -t1903 * t2746 * t6185 * t2019 / 0.512e3 + t27935 + t27942 - 0.7e1 / 0.96e2 * t27943 + 0.119e3 / 0.288e3 * t27947 + 0.7e1 / 0.48e2 * t27949 - t2744 * t1905 * t6185 * t27951 / 0.64e2 + 0.455e3 / 0.162e3 * t27957 - 0.35e2 / 0.36e2 * t27959 + 0.7e1 / 0.36e2 * t27961 - t688 * t254 * t102 * t27924 / 0.48e2 + t1903 * t1905 * t6171 * t6166 / 0.128e3 + t1903 * t1905 * t1906 * t27971 / 0.192e3 - t1903 * t2746 * t27976 * t708 / 0.768e3 + t8085 * t1905 * t27981 * t27982 / 0.32e2 - 0.7e1 / 0.192e3 * t27987;
18316   t27994 = t6283 * t61;
18317   t27995 = t27994 * t208;
18318   t28009 = t6263 * t2018;
18319   t28022 = t6182 * t6312;
18320   t28024 = t6182 * t6173;
18321   t28030 = t6182 * t6308;
18322   t28040 = t6182 * t6304;
18323   t28042 = t1892 * t1868;
18324   t28047 = t6204 * t6272;
18325   t28049 = t6198 * t2021;
18326   t28051 = t2744 * t2746 * t27976 * t2748 / 0.384e3 + 0.5e1 / 0.32e2 * t1903 * t27995 * t103 * t6067 * t708 - 0.5e1 / 0.128e3 * t1903 * t6301 * t6171 * t6302 + t1903 * t1905 * t6185 * t6166 / 0.128e3 - 0.3e1 / 0.256e3 * t8085 * t2746 * t6185 * t28009 - t2744 * t1905 * t27981 * t6186 / 0.32e2 + t1903 * t1905 * t27976 * t1907 / 0.192e3 - 0.7e1 / 0.96e2 * t28022 + 0.7e1 / 0.384e3 * t28024 - 0.5e1 / 0.128e3 * t1903 * t6301 * t6185 * t6302 - 0.7e1 / 0.96e2 * t28030 + t1903 * t1905 * t27981 * t1907 / 0.192e3 + 0.3e1 / 0.256e3 * t2744 * t2746 * t6185 * t6176 + 0.35e2 / 0.96e2 * t28040 + 0.5e1 / 0.64e2 * t2744 * t6301 * t6185 * t28042 - 0.7e1 / 0.192e3 * t28047 - 0.119e3 / 0.2304e4 * t28049;
18327   t28054 = t262 * t1888 * t2030;
18328   t28055 = t28054 * t1895;
18329   t28057 = t2037 * t6277;
18330   t28064 = t1899 * t6194;
18331   t28066 = t1891 * t1891;
18332   t28067 = t28066 * t194;
18333   t28072 = t6297 * t2045;
18334   t28074 = t2037 * t6287;
18335   t28076 = t205 * t205;
18336   t28077 = 0.1e1 / t28076;
18337   t28079 = t203 * t28077 * t61;
18338   t28080 = t1868 * t1868;
18339   t28085 = t1881 * t1881;
18340   t28090 = t2037 * t6293;
18341   t28096 = t6297 * t2049;
18342   t28098 = t6315 * t6152;
18343   t28104 = t1859 * t1866;
18344   t28105 = t28104 * t1870;
18345   t28107 = t683 * t6318;
18346   t28108 = t28107 * t6321;
18347   t28111 = t178 * t130 * t2041;
18348   t28116 = 0.119e3 / 0.1152e4 * t28055 - 0.35e2 / 0.96e2 * t28057 - 0.15e2 / 0.64e2 * t722 * t6285 * t532 * t1868 * t1881 + 0.7e1 / 0.1152e4 * t28064 - t697 * t699 * t532 * t28067 / 0.3072e4 + 0.595e3 / 0.576e3 * t28072 + 0.35e2 / 0.48e2 * t28074 + 0.35e2 / 0.128e3 * t722 * t28079 * t532 * t28080 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t28085 + 0.7e1 / 0.288e3 * t28090 - t722 * t726 * t532 * t27924 / 0.768e3 - 0.119e3 / 0.576e3 * t28096 - 0.7e1 / 0.4e1 * t28098 - 0.3e1 / 0.2e1 * t6319 * t254 * t1869 * t1881 + 0.35e2 / 0.12e2 * t28105 + 0.7e1 / 0.3e1 * t28108 + 0.5e1 / 0.4e1 * t28111 * t254 * t102 * t28080;
18349   t28122 = t262 * t695 * t6156;
18350   t28123 = t28122 * t710;
18351   t28125 = t6198 * t2026;
18352   t28127 = t2018 * t2018;
18353   t28128 = t28127 * t194;
18354   t28133 = t28127 * t1892;
18355   t28139 = t262 * t6260 * t714;
18356   t28140 = t28139 * t6266;
18357   t28142 = t1899 * t6255;
18358   t28144 = t27738 + t27740 + t27745 - t27747 - t27762 - t27766 + t27775 - t27777 + t27781 - t27784 - t27786 + t27788;
18359   t28145 = -t27793 - t27796 - t27801 - t27805 - t27809 + t27813 - t27816 + t27822 + t27829 + t27835 + t27837 + t27839 - t27841;
18360   t28147 = t27844 + t27853 - t27861 - t27863 - t27865 - t27867 + t27870 + t27872 + t27875 + t27878 + t27880 + t27883;
18361   t28148 = t616 * t6107;
18362   t28149 = 0.48e2 * t28148;
18363   t28153 = t1956 * t1956;
18364   t28157 = t1946 * t1946;
18365   t28196 = -t27738 + t27766 - t27775 - 0.35089341735807877242e1 * t1978 * t27741 * t652 - 0.60000000000000000000e1 * t1945 * t28153 * t637 - 0.24000000000000000000e2 * t6021 * t28157 * t637 - 0.14035736694323150897e2 * t5960 * t27789 * t652 - 0.14171548179536397724e3 * t228 * t469 * t6012 * t6016 + 0.13698666666666666666e0 * t228 * t5931 * t1957 + 0.44060335298551228073e1 * t228 * t177 * t1961 * t1965 - 0.21687162600603479684e-1 * t228 * t1974 * t5982 + 0.38527786510141256862e1 * t228 * t469 * t5959 * t5961 + t27796 - 0.27397333333333333333e0 * t228 * t177 * t1944 * t1947 - 0.41096000000000000000e0 * t228 * t5938 * t5917 - 0.86748650402413918736e-1 * t228 * t177 * t1852 * t1979 - 0.13012297560362087810e0 * t228 * t5949 * t5920;
18366   t28210 = 0.48245938496077605201e2 * t1822 * t27763 * t1824;
18367   t28211 = t1960 * t1960;
18368   t28214 = t1963 * t1963;
18369   t28222 = 0.64327917994770140268e2 * t1822 * t5836 * t1824 * t608;
18370   t28226 = 0.42740000000000000000e0 * t599 * t1774 * t1816 * t610;
18371   t28230 = 0.34367190188705947438e1 * t599 * t1821 * t1816 * t5988;
18372   t28234 = t27801 + t27805 + t27809 - t27813 + 0.12414243100625616072e5 * t6013 * t1956 * t6015 * t1946 - 0.80000000000000000000e1 * t1945 * t6008 * t636 - t27853 - t27883 + 0.12865583598954028054e3 * t1962 * t6007 * t1964 * t636 + t27888 + t27891 - t28210 + 0.19964560303604640732e6 * t136 / t28211 * t28157 / t28214 - t28222 - t28226 + t28230 - 0.55209406483950617283e-2 * t101 * t8447 * t145;
18373   t28244 = 0.80000000000000000000e1 * t1775 * t5837 * t608;
18374   t28258 = 0.1e1 / t1828 / t1851;
18375   t28279 = 0.71233333333333333332e-1 * t228 * t1924 * t5837;
18376   t28306 = -0.18989649058080861537e-2 * t101 * t8447 * t158 + 0.21053605041484726346e2 * t1985 * t1979 * t1846 + t28244 + 0.69263436422725855036e2 * t1985 * t5981 * t1833 * t651 - 0.19263893255070628431e1 * t599 * t6217 + 0.58482236226346462070e0 * t646 * t27758 * t652 + 0.62337092780453269530e3 * t5954 * t27789 * t1833 - 0.12304822629859687989e5 * t149 * t28258 * t27789 * t5909 + 0.10000000000000000000e1 * t631 * (-0.39219166666666666667e1 * t27712 + 0.37650400000000000000e2 * t27714 - 0.13944592592592592593e2 * t27717 + 0.12201518518518518519e2 * t27720 + 0.53560370370370370370e1 * t8448 + 0.14025833333333333333e0 * t27726 - 0.22441333333333333332e1 * t27728 + 0.24934814814814814815e1 * t27730 + 0.21817962962962962963e1 * t27732 + 0.16979925925925925926e1 * t8513) * t637 + t28279 - 0.67471172535210825684e-1 * t228 * t682 * t645 * t653 + 0.43374325201206959368e-1 * t228 * t5942 * t1982 + 0.12842595503380418954e1 * t228 * t177 * t1829 * t1986 - 0.21309037037037037036e0 * t228 * t682 * t630 * t638 - 0.68493333333333333332e-1 * t228 * t1939 * t6008 + 0.13218100589565368422e2 * t228 * t469 * t6020 * t6022 - 0.38025319932552508021e2 * t228 * t469 * t5905 * t5955;
18377   t28323 = 0.62071215503128080361e4 * t108 / t1820 / t1773 * t27770 * t5852;
18378   t28329 = 0.57895126195293126241e3 * t5849 * t27770 * t1824;
18379   t28337 = 0.68734380377411894876e1 * t228 * t469 * t5899 * t5901;
18380   t28356 = 0.57895126195293126241e3 * t5900 * t1825 * t1816;
18381   t28369 = 0.31035607751564040180e4 * t5849 * t1776 * t5852 * t1816;
18382   t28373 = 0.41096000000000000000e0 * t599 * t1944 * t636 * t1957 - 0.66090502947826842110e1 * t599 * t1961 * t1956 * t1964 * t636 + 0.13012297560362087810e0 * t599 * t6221 + t28323 + 0.11579025239058625248e4 * t6013 * t28157 * t1964 - t28329 + 0.61524113149298439947e4 * t5954 * t1830 * t5909 * t1846 - t28337 - 0.62337092780453269531e3 * t5960 * t1986 * t1846 - 0.46785788981077169656e1 * t1978 * t5982 * t651 + 0.91082604192152556044e5 * t149 * t27855 * t27789 * t27858 + 0.51947577317044391277e2 * t1985 * t27741 * t1833 + 0.36000000000000000000e2 * t1962 * t1947 * t1956 + t28356 - 0.24828486201251232145e5 * t136 / t1960 / t1943 * t28157 * t6015 + 0.96491876992155210402e2 * t1962 * t28153 * t1964 - t28369 - 0.11579025239058625248e4 * t6021 * t6028 * t1946;
18383   t28377 = t128 * t134 * (t28196 + t28234 + t28306 + t28373);
18384   t28378 = t1920 * t6227;
18385   t28379 = 0.22787578869697033845e-2 * t28378;
18386   t28380 = t1404 * t1992;
18387   t28381 = 0.72e2 * t28380;
18388   t28382 = t613 * t5913;
18389   t28383 = 0.48e2 * t28382;
18390   t28385 = 0.1e1 / t170 / t429;
18391   t28398 = 0.1e1 / t171 / t433;
18392   t28411 = (0.40e2 / 0.81e2 * t28385 * t26417 - 0.16e2 / 0.9e1 * t5861 * t1451 * t1454 + 0.4e1 / 0.3e1 * t1780 * t26423 + 0.16e2 / 0.9e1 * t5865 * t5868 + 0.4e1 / 0.3e1 * t67 * t26429 + 0.40e2 / 0.81e2 * t28398 * t26434 - 0.16e2 / 0.9e1 * t5872 * t1460 * t1463 + 0.4e1 / 0.3e1 * t1785 * t26440 + 0.16e2 / 0.9e1 * t5876 * t5879 + 0.4e1 / 0.3e1 * t70 * t26445) * t133;
18393   t28413 = 0.19751673498613801407e-1 * t28411 * t159;
18394   t28414 = -t27885 - t27888 - t27891 - t27897 - t27899 + t27901 - t28149 + t28377 - t28379 + t28381 + t28383 + t28210 + t28413;
18395   t28420 = 0.12304822629859687989e5 * t666 * t28258 * t27789 * t5909;
18396   t28422 = 0.120e3 * t1912 * t1990;
18397   t28423 = t1912 * t1992;
18398   t28424 = 0.120e3 * t28423;
18399   t28426 = 0.16e2 * t616 * t6037;
18400   t28427 = t26502 * t162;
18401   t28428 = 0.1440e4 * t28427;
18402   t28429 = t6130 * t624;
18403   t28430 = 0.480e3 * t28429;
18404   t28431 = t134 * t228;
18405   t28434 = 0.19263893255070628431e1 * t28431 * t5949 * t5993;
18406   t28437 = 0.43374325201206959368e-1 * t1932 * t1804 * t1848;
18407   t28441 = 0.51947577317044391277e2 * t666 * t1829 * t27741 * t1833;
18408   t28442 = t28420 + t28422 + t28424 + t28222 - t28426 + t28428 - t28430 + t28434 - t28437 + t28226 - t28230 - t28441;
18409   t28444 = 0.480e3 * t6130 * t657;
18410   t28445 = t5779 * t657;
18411   t28446 = 0.96e2 * t28445;
18412   t28449 = 0.13012297560362087810e0 * t28431 * t5923 * t5996;
18413   t28450 = t5779 * t624;
18414   t28451 = 0.96e2 * t28450;
18415   t28452 = t6124 * t657;
18416   t28453 = 0.576e3 * t28452;
18417   t28454 = t1917 * t1990;
18418   t28455 = 0.192e3 * t28454;
18419   t28456 = t6127 * t624;
18420   t28457 = 0.960e3 * t28456;
18421   t28458 = t1912 * t1994;
18422   t28459 = 0.240e3 * t28458;
18423   t28460 = t1917 * t1994;
18424   t28461 = 0.384e3 * t28460;
18425   t28462 = t1917 * t1992;
18426   t28463 = 0.192e3 * t28462;
18427   t28465 = t380 * t393 * t162;
18428   t28466 = 0.1920e4 * t28465;
18429   t28468 = t128 * t5883 * t656;
18430   t28469 = 0.4e1 * t28468;
18431   t28470 = -t28444 - t28244 + t28446 - t28449 + t28451 - t28453 - t28455 + t28457 + t28459 - t28461 - t28463 - t28466 + t28469;
18432   t28473 = t128 * t28411 * t161;
18433   t28474 = t6213 * t1929;
18434   t28475 = 0.14649157844805236043e-2 * t28474;
18435   t28476 = t613 * t6107;
18436   t28477 = 0.48e2 * t28476;
18437   t28478 = t6124 * t624;
18438   t28479 = 0.576e3 * t28478;
18439   t28483 = 0.24e2 * t15 * t129 * t133 * t161;
18440   t28486 = 0.12842595503380418954e1 * t1932 * t1804 * t1834;
18441   t28489 = 0.38527786510141256862e1 * t1932 * t586 * t6085;
18442   t28493 = 0.18989649058080861537e-2 * t661 * t595 * t1858 * t158;
18443   t28494 = t28473 - t28279 + t28475 + t28477 - t28323 - t28479 + t28329 + t28483 - t28486 - t28489 + t28337 + t28493;
18444   t28499 = 0.61524113149298439947e4 * t666 * t5905 * t1830 * t5909 * t1846;
18445   t28500 = t1837 * t6221;
18446   t28501 = 0.14035736694323150897e2 * t28500;
18447   t28503 = t5883 * t61 * t663;
18448   t28504 = 0.73245789224026180216e-3 * t28503;
18449   t28508 = 0.62337092780453269531e3 * t666 * t5959 * t1830 * t5992;
18450   t28509 = t1837 * t6217;
18451   t28510 = 0.20779030926817756510e3 * t28509;
18452   t28513 = 0.840e3 * t12 * t1387 * t162;
18453   t28514 = t613 * t6037;
18454   t28515 = 0.16e2 * t28514;
18455   t28518 = 0.67471172535210825684e-1 * t1932 * t2499 * t668;
18456   t28521 = 0.86748650402413918736e-1 * t1932 * t1804 * t1854;
18457   t28524 = 0.13012297560362087810e0 * t1932 * t586 * t6047;
18458   t28525 = t26352 * t162;
18459   t28526 = 0.384e3 * t28525;
18460   t28527 = -t28499 + t28501 - t28504 + t28508 - t28510 + t28513 - t28356 + t28515 + t28518 + t28521 + t28524 + t28369 - t28526;
18461   t28545 = t62 * t6283;
18462   t28562 = -(t28144 + t28145 + t28147 + t28414 + t28442 + t28470 + t28494 + t28527) * t187 * t192 + 0.12e2 * t6233 * t704 - 0.72e2 * t2007 * t2012 + 0.18e2 * t2007 * t2015 + 0.240e3 * t701 * t6242 - 0.144e3 * t8177 * t6246 + 0.12e2 * t701 * t6249 - 0.360e3 * t190 * t28545 * t28080 + 0.360e3 * t2776 * t2041 * t1868 * t1881 - 0.36e2 * t190 * t2011 * t28085 - 0.48e2 * t2776 * t6245 * t6147 + 0.3e1 * t190 * t703 * t27924;
18463   t28563 = t28562 * t194;
18464   t28574 = 0.1e1 / t6258 / t195;
18465   t28575 = t28574 * t198;
18466   t28577 = t262 * t28575 * t202;
18467   t28578 = t1892 * t1892;
18468   t28579 = t28066 * t28578;
18469   t28584 = t28066 * t6263;
18470   t28589 = t28066 * t1892;
18471   t28594 = t677 * t2018;
18472   t28612 = t262 * t720 * t6156;
18473   t28613 = t28612 * t728;
18474   t28615 = 0.3e1 / 0.16e2 * t1867 * t254 * t102 * t28085 + 0.595e3 / 0.2592e4 * t28123 - 0.119e3 / 0.2304e4 * t28125 - t697 * t699 * t532 * t28128 / 0.1024e4 + t1890 * t699 * t532 * t28133 / 0.512e3 + 0.7e1 / 0.192e3 * t28140 + 0.7e1 / 0.1152e4 * t28142 - t697 * t699 * t532 * t28563 / 0.3072e4 + 0.5e1 / 0.192e3 * t722 * t2043 * t532 * t677 * t6147 + t28577 * t699 * t532 * t28579 / 0.128e3 - 0.3e1 / 0.256e3 * t6262 * t699 * t532 * t28584 + 0.7e1 / 0.1536e4 * t1890 * t699 * t532 * t28589 + t1903 * t8056 * t708 * t28594 / 0.64e2 - 0.5e1 / 0.64e2 * t1903 * t8050 * t6275 * t708 + t1867 * t254 * t689 * t6147 / 0.4e1 - t2744 * t8056 * t6176 * t8058 / 0.32e2 + 0.595e3 / 0.648e3 * t28613;
18475   t28617 = t27989 + t28051 + t28116 + t28615;
18476   t28620 = t6335 * t187;
18477   t28634 = 0.1e1 / t6344 / t219;
18478   t28635 = t62 * t28634;
18479   t28636 = t2061 * t2061;
18480   t28644 = t2079 * t2079;
18481   t28652 = t1887 * t2052;
18482   t28656 = t214 * t1891;
18483   t28669 = t694 * t6334;
18484   t28679 = t28574 * t214;
18485   t28689 = 0.24e2 * t2823 * t6176 * t707 * t731 + t188 * t197 * t28617 + 0.12e2 * t1893 * t262 * t28652 - 0.6e1 * t2024 * t262 * t6370 - 0.6e1 * t2024 * t2833 * t6382 + 0.6e1 * t2065 * t262 * t28133 - 0.4e1 * t2069 * t262 * t6253 + 0.24e2 * t262 * t28579 * t28679 - 0.36e2 * t262 * t28584 * t6355 - 0.4e1 * t262 * t28669 * t708 + 0.36e2 * t2823 * t28656 * t6176;
18486   t28711 = t1892 * t6252;
18487   t28724 = t6259 * t731;
18488   t28728 = -0.12e2 * t2018 * t2833 * t708 * t731 - 0.4e1 * t214 * t2833 * t6252 * t708 - 0.6e1 * t2019 * t262 * t6370 + 0.14e2 * t2065 * t262 * t28589 - 0.4e1 * t2069 * t262 * t6192 - t262 * t28067 * t738 - 0.3e1 * t262 * t28128 * t738 - t262 * t28563 * t738 - 0.24e2 * t262 * t28724 * t6264 + 0.24e2 * t262 * t6270 * t6359 - 0.36e2 * t28009 * t28656 * t8245 + 0.8e1 * t2823 * t28711 * t6363;
18489   t28732 = params->beta * t28617 * t221 - 0.4e1 * t28620 * t744 + 0.12e2 * t6337 * t2062 - 0.6e1 * t6337 * t2080 - 0.24e2 * t2055 * t6348 + 0.24e2 * t2055 * t6352 - 0.4e1 * t2055 * t6391 + 0.24e2 * t734 * t28635 * t28636 - 0.36e2 * t734 * t6346 * t2061 * t2079 + 0.6e1 * t734 * t2060 * t28644 + 0.8e1 * t734 * t2060 * t743 * t6390 - t734 * t737 * (t28689 + t28728);
18490   t28739 = t169 * t175 * t28732 * t748 + 0.3e1 * t169 * t27924 * t671 - 0.36e2 * t1768 * t5856 * t7870 - t27897 - t27899 + t27901 - t28149 + t28210 + t28377 - t28379 + t28381 + t28383 + t28413 + t28420 + t28422;
18491   t28746 = t2082 * t6117;
18492   t28756 = 0.24e2 * t224 * t2857 * t6147 * t677 + 0.36e2 * t169 * t1881 * t7882 - 0.18e2 * t1768 * t1881 * t6401 + 0.12e2 * t2090 * t2849 * t28746 + t28222 + t28226 - t28230 + t28424 - t28426 + t28428 - t28430 + t28434 - t28437 - t28441 - t28444;
18493   t28757 = t6114 * t6117;
18494   t28761 = t2082 * t2082;
18495   t28766 = t2090 * t2090;
18496   t28768 = t2092 * t2092;
18497   t28769 = 0.1e1 / t28768;
18498   t28773 = -0.3e1 * t169 * t175 * t2093 * t28761 - 0.6e1 * t169 * t175 * t28766 * t28769 + 0.24e2 * t1768 * t28757 * t677 - t28244 + t28446 - t28449 + t28451 - t28453 - t28455 + t28457 + t28459 - t28461 - t28463 - t28466 + t28469;
18499   t28788 = 0.24e2 * t169 * t6067 * t746 * t748 + 0.18e2 * t169 * t2096 * t28085 + 0.72e2 * t1769 * t2857 * t6275 - 0.36e2 * t1868 * t2857 * t6401 - t28279 - t28323 + t28329 + t28337 + t28473 + t28475 + t28477 - t28479 + t28483 - t28486 - t28489;
18500   t28792 = 0.12e2 * t1768 * t1769 * t6147 - t28356 + t28369 + t28493 - t28499 + t28501 - t28504 + t28508 - t28510 + t28513 + t28515 + t28518 + t28521 + t28524 - t28526;
18501   t28795 = t27797 + t27845 + t27892 + t28739 + t28756 + t28773 + t28788 + t28792;
18502   t28796 = my_piecewise3(t296, t27668 + t27705, t28795);
18503   t28807 = t764 * t7158;
18504   t28812 = t764 * t7246;
18505   t28815 = t2137 * t2137;
18506   t28816 = t28815 * t2187;
18507   t28820 = t794 * t9156 * t7119;
18508   t28823 = t7113 * t1460 * t1463;
18509   t28827 = t2115 * t1463;
18510   t28831 = t7127 * t5879;
18511   t28836 = t794 * t1576 * t798;
18512   t28843 = t807 * t1616 * t7325;
18513   t28845 = t2114 * t26440;
18514   t28851 = t807 * t2645 * t815;
18515   t28854 = t807 * t6896 * t2258;
18516   t28857 = t807 * t6896 * t2253;
18517   t28859 = t2218 * t2218;
18518   t28860 = t28859 * t2219;
18519   t28865 = t28820 / 0.54e2 - t794 * t2954 * t28823 / 0.6e1 + t794 * t2958 * t28827 / 0.8e1 - t794 * t2958 * t28831 / 0.36e2 + 0.5e1 / 0.972e3 * t28836 + t794 * t518 * t2199 * t26440 / 0.72e2 - t28843 / 0.576e3 + 0.5e1 / 0.2304e4 * t824 * t533 * t2271 * t28845 - t28851 / 0.1296e4 + t28854 / 0.1152e4 + t28857 / 0.1152e4 + 0.7e1 / 0.768e3 * t2217 * t533 * t758 * t28860;
18520   t28866 = t2251 * t2251;
18521   t28867 = t28866 * t2219;
18522   t28873 = t824 * t6896 * t2280;
18523   t28876 = 0.1e1 / t7377 / t330;
18524   t28879 = t262 * t28876 * t332 * t805;
18525   t28880 = t2219 * t2219;
18526   t28881 = t28859 * t28880;
18527   t28887 = 0.1e1 / t2113 / t1457;
18528   t28888 = t28887 * t26434;
18529   t28893 = t2179 * t2179;
18530   t28894 = t28893 * t2187;
18531   t28906 = t2128 * t2135;
18532   t28909 = t7136 * t768;
18533   t28914 = t2128 * t2184;
18534   t28923 = -0.19046733076622961759e4 * t2185 * t28894 * t187 - 0.24504733668425557172e6 * t7247 * t2179 * t9259 - 0.47374101125228921372e3 * t7147 * t7305 + 0.47374101125228921372e3 * t7142 * t786 * t2245 + 0.23687050562614460686e3 * t28906 * t2242 - 0.78956835208714868956e2 * t28909 * t810 - 0.11843525281307230343e3 * t7139 * t2245 - 0.38093466153245923519e4 * t28914 * t2248 + 0.15237386461298369407e5 * t28807 * t7311 - 0.78956835208714868956e2 * t2131 * t7314 - 0.16336489112283704782e6 * t28812 * t7320;
18535   t28929 = t304 / t2183 / t2134;
18536   t28930 = t28815 * t7249;
18537   t28934 = t606 * t7197;
18538   t28937 = t7107 * t1460 * t1463;
18539   t28945 = t2114 * t5879 * t436;
18540   t28952 = t606 * t7193;
18541   t28957 = t1814 * t2173;
18542   t28959 = t606 * t7166;
18543   t28961 = t7107 * t26434;
18544   t28968 = t7113 * t26434;
18545   t28972 = t2119 * t26440;
18546   t28976 = t1814 * t2176;
18547   t28978 = 0.27785333333333333333e0 * t28934 - 0.27785333333333333334e0 * t119 * t7185 * t28937 + 0.83356000000000000000e0 * t119 * t323 * t28831 - 0.13892666666666666667e0 * t119 * t2169 * t28945 + 0.55570666666666666666e0 * t119 * t7185 * t28888 - 0.16671200000000000000e1 * t28952 + 0.12503400000000000000e1 * t119 * t2169 * t28823 + 0.13892666666666666667e1 * t28957 + 0.16671200000000000000e1 * t28959 - 0.12503400000000000000e1 * t119 * t2169 * t28961 - 0.10419500000000000000e0 * t119 * t2169 * t28845 + 0.25006800000000000000e1 * t119 * t323 * t28968 + 0.62517000000000000000e0 * t119 * t323 * t28972 - 0.69463333333333333334e0 * t28976;
18548   t28979 = t1814 * t2170;
18549   t28981 = t606 * t7189;
18550   t28983 = t606 * t7186;
18551   t28985 = t203 * t7285;
18552   t28986 = t2113 * t2113;
18553   t28987 = 0.1e1 / t28986;
18554   t28988 = t28987 * t26434;
18555   t28993 = t228 * t12947 * t300;
18556   t28994 = 0.53560370370370370370e1 * t28993;
18557   t28996 = t106 * t758 * t28968;
18558   t28999 = t106 * t758 * t28972;
18559   t29002 = t106 * t827 * t28961;
18560   t29005 = t106 * t827 * t28845;
18561   t29007 = t599 * t7124;
18562   t29010 = t106 * t2271 * t28888;
18563   t29012 = t1805 * t2121;
18564   t29014 = t599 * t7115;
18565   t29016 = t2500 * t761;
18566   t29018 = -0.23154444444444444445e0 * t28979 + 0.27785333333333333333e0 * t28981 + 0.12349037037037037037e0 * t28983 - 0.10805407407407407407e0 * t119 * t28985 * t28988 + t28994 + 0.12395400000000000000e2 * t28996 + 0.30988500000000000000e1 * t28999 - 0.12395400000000000000e2 * t29002 - 0.10329500000000000000e1 * t29005 + 0.41318000000000000000e1 * t29007 + 0.68863333333333333334e1 * t29010 + 0.27545333333333333333e1 * t29012 - 0.27545333333333333332e1 * t29014 + 0.21424148148148148148e1 * t29016;
18567   t29020 = t1805 * t2125;
18568   t29022 = t1805 * t2116;
18569   t29024 = t599 * t7109;
18570   t29026 = t599 * t7133;
18571   t29029 = t106 * t7407 * t28988;
18572   t29031 = t759 * t26445;
18573   t29033 = t106 * t758 * t29031;
18574   t29037 = 0.16979925925925925926e1 * t241 * t204 * t310;
18575   t29041 = t606 * t7163;
18576   t29043 = t2547 * t783;
18577   t29046 = t106 * t758 * t28827;
18578   t29048 = t2151 * t2151;
18579   t29056 = -0.13772666666666666666e1 * t29020 - 0.91817777777777777776e0 * t29022 + 0.76514814814814814814e0 * t29024 + 0.68863333333333333332e0 * t29026 - 0.15302962962962962963e1 * t29029 - 0.51647500000000000000e0 * t29033 + t29037 - 0.10419500000000000000e0 * t119 * t323 * t29031 - 0.55570666666666666668e0 * t29041 + 0.12349037037037037037e1 * t29043 - 0.18593100000000000000e2 * t29046 - 0.52945875000000000000e1 * t2142 * t29048 + 0.15883762500000000000e2 * t7217 * t2143 * t2151 + 0.94674375000000000000e0 * t2159 * t29048;
18580   t29060 = 0.1e1 / t305 / t27049 / t299 / 0.96e2;
18581   t29061 = t2143 * t2143;
18582   t29065 = t106 * t758 * t28831;
18583   t29068 = t106 * t827 * t28823;
18584   t29071 = t106 * t827 * t28945;
18585   t29073 = t599 * t7129;
18586   t29076 = t106 * t2271 * t28937;
18587   t29078 = t599 * t7120;
18588   t29080 = pow(t302, -0.25e1);
18589   t29085 = 0.280e3 / 0.81e2 * t28993;
18590   t29096 = t29085 + 0.8e1 * t28996 - 0.12e2 * t29046 + 0.2e1 * t28999 + 0.8e1 / 0.3e1 * t29065 - 0.8e1 * t29002 + 0.8e1 * t29068 - 0.2e1 / 0.3e1 * t29005 - 0.8e1 / 0.9e1 * t29071 + 0.8e1 / 0.3e1 * t29007 - 0.8e1 / 0.3e1 * t29073;
18591   t29109 = 0.40e2 / 0.9e1 * t29010 - 0.20e2 / 0.9e1 * t29076 + 0.16e2 / 0.9e1 * t29012 - 0.16e2 / 0.9e1 * t29014 + 0.8e1 / 0.9e1 * t29078 + 0.112e3 / 0.81e2 * t29016 - 0.8e1 / 0.9e1 * t29020 - 0.16e2 / 0.27e2 * t29022 + 0.40e2 / 0.81e2 * t29024 + 0.4e1 / 0.9e1 * t29026 - 0.80e2 / 0.81e2 * t29029 - t29033 / 0.3e1;
18592   t29110 = t29096 + t29109;
18593   t29123 = -0.66182343750000000000e1 * t29060 * t29061 + 0.41318000000000000000e1 * t29065 + 0.12395400000000000000e2 * t29068 - 0.13772666666666666667e1 * t29071 - 0.41318000000000000000e1 * t29073 - 0.34431666666666666667e1 * t29076 + 0.13772666666666666667e1 * t29078 + 0.23668593750000000000e0 * t29080 * t29061 + 0.12623250000000000000e1 * t7172 * t7231 + 0.35297250000000000000e1 * t770 * t29110 - 0.37510200000000000000e1 * t119 * t323 * t28827 - 0.70594500000000000000e1 * t7169 * t7231 - 0.94674375000000000000e0 * t7211 * t2143 * t2151 + 0.63116250000000000000e0 * t777 * t29110;
18594   t29126 = (t28978 + t29018 + t29056 + t29123) * t787;
18595   t29130 = t2183 * t2183;
18596   t29132 = t304 / t29130;
18597   t29133 = t2186 * t2186;
18598   t29134 = 0.1e1 / t29133;
18599   t29135 = t28815 * t29134;
18600   t29139 = t28893 * t787;
18601   t29154 = t28815 * t787;
18602   t29161 = 0.17757530864197530864e0 * t28993;
18603   t29172 = t29161 + 0.41096000000000000000e0 * t28996 - 0.61644000000000000000e0 * t29046 + 0.10274000000000000000e0 * t28999 + 0.13698666666666666667e0 * t29065 - 0.41095999999999999999e0 * t29002 + 0.41095999999999999998e0 * t29068 - 0.34246666666666666665e-1 * t29005 - 0.45662222222222222220e-1 * t29071 + 0.13698666666666666667e0 * t29007 - 0.13698666666666666667e0 * t29073;
18604   t29185 = 0.22831111111111111110e0 * t29010 - 0.11415555555555555555e0 * t29076 + 0.91324444444444444440e-1 * t29012 - 0.91324444444444444440e-1 * t29014 + 0.45662222222222222220e-1 * t29078 + 0.71030123456790123454e-1 * t29016 - 0.45662222222222222221e-1 * t29020 - 0.30441481481481481480e-1 * t29022 + 0.25367901234567901233e-1 * t29024 + 0.22831111111111111111e-1 * t29026 - 0.50735802469135802467e-1 * t29029 - 0.17123333333333333333e-1 * t29033;
18605   t29187 = (t29172 + t29185) * t318;
18606   t29190 = -0.22856079691947554112e5 * t7247 * t28816 * t187 + 0.49009467336851114346e6 * t28929 * t28930 * t187 - 0.19739208802178717239e2 * t769 * t29126 * t187 - 0.39408462447654052777e7 * t29132 * t29135 * t187 + 0.11843525281307230343e3 * t2136 * t29139 * t187 + 0.15791367041742973791e3 * t7308 * t7314 + 0.22856079691947554112e5 * t7159 * t2137 * t9262 - 0.25395644102163949012e4 * t2185 * t7237 * t2993 - 0.76186932306491847037e4 * t7147 * t2179 * t2993 + 0.47374101125228921372e3 * t7159 * t29154 * t187 - 0.71061151687843382058e3 * t2185 * t2137 * t2245 + 0.61370581910589784405e0 * t29187 * t187;
18607   t29192 = (t28923 + t29190) * t329;
18608   t29202 = t824 * t2645 * t828;
18609   t29205 = t824 * t6896 * t2276;
18610   t29208 = t824 * t1616 * t7332;
18611   t29218 = t28859 * t7382;
18612   t29223 = t2217 * t533 * t758 * t28867 / 0.256e3 - t28873 / 0.1728e4 + t28879 * t533 * t758 * t28881 / 0.64e2 - 0.5e1 / 0.216e3 * t824 * t533 * t7407 * t28888 - t807 * t533 * t758 * t29192 / 0.1536e4 + 0.5e1 / 0.192e3 * t824 * t533 * t2271 * t28961 + t29202 / 0.1944e4 + t29205 / 0.864e3 + t29208 / 0.144e3 - t824 * t533 * t827 * t28968 / 0.96e2 - t824 * t533 * t827 * t28972 / 0.384e3 - 0.3e1 / 0.128e3 * t7381 * t533 * t758 * t29218;
18613   t29226 = t2217 * t6896 * t2221;
18614   t29229 = t824 * t6896 * t2272;
18615   t29232 = t824 * t1616 * t7336;
18616   t29235 = t807 * t1616 * t7345;
18617   t29244 = t794 * t9152 * t7128;
18618   t29246 = t2251 * t813;
18619   t29252 = t2251 * t759 * t436;
18620   t29258 = t1463 * t813 * t329;
18621   t29268 = t824 * t8565 * t7394;
18622   t29270 = -t29226 / 0.576e3 - 0.5e1 / 0.5184e4 * t29229 - 0.5e1 / 0.432e3 * t29232 - t29235 / 0.576e3 + t794 * t2954 * t28945 / 0.54e2 + 0.7e1 / 0.108e3 * t794 * t9163 * t28937 - t29244 / 0.36e2 - t2232 * t2233 * t29246 * t9184 / 0.192e3 + t7444 * t2233 * t2967 * t29252 / 0.96e2 - 0.5e1 / 0.576e3 * t2232 * t7439 * t7118 * t29258 + t2232 * t2233 * t7127 * t29258 / 0.96e2 - t29268 / 0.144e3;
18623   t29272 = t824 * t8565 * t7398;
18624   t29275 = t2217 * t8565 * t7366;
18625   t29277 = t1460 * t1463;
18626   t29282 = t28859 * t329;
18627   t29287 = t28866 * t329;
18628   t29293 = t824 * t1616 * t7412;
18629   t29295 = t2198 * t7107;
18630   t29301 = t794 * t242 * t7271;
18631   t29303 = t7285 * t28887;
18632   t29309 = t794 * t498 * t2209;
18633   t29312 = t794 * t498 * t2200;
18634   t29315 = t794 * t242 * t7291;
18635   t29317 = 0.5e1 / 0.864e3 * t29272 + t29275 / 0.96e2 + 0.5e1 / 0.432e3 * t824 * t2578 * t9341 * t29277 - t807 * t533 * t758 * t29282 / 0.1536e4 - t807 * t533 * t758 * t29287 / 0.512e3 + t29293 / 0.864e3 + t794 * t518 * t29295 * t26434 / 0.6e1 - t29301 / 0.27e2 - 0.7e1 / 0.54e2 * t794 * t518 * t29303 * t26434 - t29309 / 0.216e3 - t29312 / 0.162e3 + t29315 / 0.216e3;
18636   t29321 = t794 * t242 * t7287;
18637   t29324 = t824 * t1616 * t7408;
18638   t29327 = 0.1e1 / t310 / t2114;
18639   t29328 = t130 * t29327;
18640   t29349 = t340 * t2218;
18641   t29355 = t807 * t8565 * t7360;
18642   t29357 = t340 * t7323;
18643   t29362 = t5879 * t436;
18644   t29371 = 0.7e1 / 0.486e3 * t29321 + 0.5e1 / 0.972e3 * t29324 + 0.55e2 / 0.7776e4 * t824 * t533 * t29328 * t28988 + t824 * t533 * t827 * t29031 / 0.2304e4 + 0.3e1 / 0.128e3 * t2217 * t2578 * t7359 * t2220 + t824 * t2578 * t9329 * t29277 / 0.64e2 - 0.5e1 / 0.192e3 * t824 * t2578 * t9434 * t29277 - t807 * t2578 * t29349 * t2252 / 0.256e3 - t29355 / 0.192e3 - t807 * t2578 * t29357 * t814 / 0.384e3 - t824 * t2578 * t3033 * t29362 / 0.288e3 + 0.5e1 / 0.1728e4 * t824 * t2578 * t3027 * t29362;
18645   t29376 = t1683 * t7407;
18646   t29394 = t7444 * t7427 * t7445;
18647   t29397 = t2232 * t7427 * t7419;
18648   t29414 = 0.7e1 / 0.15552e5 * t339 * t210 * t3878 * t340;
18649   t29419 = -t2232 * t2233 * t7123 * t814 / 0.96e2 - 0.5e1 / 0.648e3 * t2232 * t29376 * t7108 * t814 - t2232 * t2233 * t7132 * t814 / 0.576e3 - 0.5e1 / 0.1152e4 * t2232 * t7439 * t2257 * t2115 + t2232 * t2233 * t2252 * t2120 / 0.192e3 + t29394 / 0.144e3 + t29397 / 0.144e3 + 0.5e1 / 0.288e3 * t2232 * t7439 * t7114 * t814 - t2232 * t2233 * t7344 * t760 / 0.576e3 + t2232 * t2233 * t2257 * t2120 / 0.192e3 - t29414 - t2232 * t2233 * t7324 * t760 / 0.576e3;
18650   t29421 = t586 * t827;
18651   t29423 = t2232 * t29421 * t2234;
18652   t29426 = t2232 * t7427 * t7431;
18653   t29437 = 0.1e1 / t300 / t2114;
18654   t29438 = t29437 * t28987;
18655   t29448 = t794 * t498 * t2205;
18656   t29451 = t794 * t242 * t7263;
18657   t29453 = t796 * t7113;
18658   t29470 = t29423 / 0.864e3 - t29426 / 0.288e3 + t7444 * t2233 * t2220 * t2124 / 0.192e3 + 0.5e1 / 0.576e3 * t7444 * t7439 * t2220 * t2115 + 0.35e2 / 0.972e3 * t794 * t518 * t29438 * t26434 + t794 * t518 * t797 * t26445 / 0.288e3 + t29448 / 0.108e3 + t29451 / 0.36e2 - t794 * t518 * t29453 * t26434 / 0.12e2 - t794 * t518 * t2204 * t26440 / 0.48e2 - t2232 * t2233 * t2252 * t2124 / 0.384e3 - 0.5e1 / 0.1152e4 * t2232 * t7439 * t2252 * t2115;
18659   t29472 = t2232 * t7427 * t7435;
18660   t29474 = t105 * t2271;
18661   t29476 = t2232 * t29474 * t7440;
18662   t29479 = t2232 * t7427 * t7423;
18663   t29493 = t9487 * t2231;
18664   t29498 = t7382 * t2251;
18665   t29509 = 0.5e1 / 0.486e3 * t321 * t2546 * t323;
18666   t29511 = t2217 * t1616 * t7389;
18667   t29514 = t7381 * t1616 * t7384;
18668   t29516 = -t29472 / 0.288e3 - 0.5e1 / 0.864e3 * t29476 - t29479 / 0.288e3 + t2217 * t2578 * t29357 * t2967 / 0.192e3 - t7444 * t2233 * t2220 * t2120 / 0.96e2 + t7444 * t2233 * t7388 * t760 / 0.96e2 - t29493 * t2233 * t7383 * t760 / 0.96e2 - 0.3e1 / 0.128e3 * t7381 * t2578 * t29349 * t29498 - t2232 * t2233 * t2257 * t2124 / 0.384e3 - t29509 + t29511 / 0.96e2 - t29514 / 0.96e2;
18669   t29519 = t28865 + t29223 + t29270 + t29317 + t29371 + t29419 + t29470 + t29516;
18670   t29522 = t7451 * t187;
18671   t29536 = 0.1e1 / t7460 / t350;
18672   t29537 = t62 * t29536;
18673   t29538 = t2293 * t2293;
18674   t29546 = t2311 * t2311;
18675   t29554 = t28876 * t345;
18676   t29573 = t345 * t2218;
18677   t29591 = -0.12e2 * t2229 * t2251 * t814 * t832 - 0.4e1 * t2229 * t345 * t7323 * t814 - 0.6e1 * t2229 * t2257 * t7498 - 0.6e1 * t2252 * t262 * t7486 - 0.4e1 * t2301 * t262 * t7344 + 0.24e2 * t262 * t28881 * t29554 - 0.36e2 * t262 * t29218 * t7471 - 0.3e1 * t262 * t29287 * t839 + 0.24e2 * t262 * t7388 * t7475 - 0.36e2 * t29498 * t29573 * t9487 + 0.36e2 * t29573 * t3054 * t7365;
18678   t29602 = t7378 * t832;
18679   t29612 = t2219 * t7323;
18680   t29616 = t803 * t7450;
18681   t29626 = t2214 * t2284;
18682   t29630 = 0.24e2 * t3054 * t7365 * t813 * t832 + t188 * t29519 * t347 + 0.12e2 * t2220 * t262 * t29626 - 0.6e1 * t2257 * t262 * t7486 + 0.14e2 * t2297 * t262 * t28860 + 0.6e1 * t2297 * t262 * t28867 - 0.4e1 * t2301 * t262 * t7324 - t262 * t29192 * t839 - t262 * t29282 * t839 - 0.24e2 * t262 * t29602 * t7383 - 0.4e1 * t262 * t29616 * t814 + 0.8e1 * t29612 * t3054 * t7479;
18683   t29634 = params->beta * t29519 * t352 - 0.4e1 * t29522 * t845 + 0.12e2 * t7453 * t2294 - 0.6e1 * t7453 * t2312 - 0.24e2 * t2287 * t7464 + 0.24e2 * t2287 * t7468 - 0.4e1 * t2287 * t7507 + 0.24e2 * t835 * t29537 * t29538 - 0.36e2 * t835 * t7462 * t2293 * t2311 + 0.6e1 * t835 * t2292 * t29546 + 0.8e1 * t835 * t2292 * t844 * t7506 - t835 * t838 * (t29591 + t29630);
18684   t29656 = t2314 * t2314;
18685   t29660 = t2318 * t2318;
18686   t29661 = t2319 * t2319;
18687   t29662 = 0.1e1 / t29661;
18688   t29667 = -0.77193501593724168322e3 * t28807 * t7160 + 0.40000000000000000000e1 * t2131 * t7238 + 0.82761620670837440481e4 * t28812 * t7250 + 0.11579025239058625248e4 * t7247 * t28816 + t169 * t29634 * t848 / 0.2e1 + 0.60000000000000000000e1 * t7139 * t2180 + 0.19298375398431042080e3 * t28914 * t2188 - 0.2e1 * t169 * t7509 * t2320 * t847 - 0.80000000000000000000e1 * t2136 * t788 * t7237 - 0.11579025239058625248e4 * t7159 * t2188 * t2179 + 0.12865583598954028054e3 * t2185 * t7237 * t2187 * t786 - 0.3e1 / 0.2e1 * t169 * t29656 * t2320 - 0.3e1 * t169 * t29660 * t29662 - 0.3109070e-1 * t29187;
18689   t29668 = t2314 * t7519;
18690   t29672 = t2179 * t7249;
18691   t29701 = 0.6e1 * t169 * t29668 * t2318 + 0.12414243100625616072e5 * t7247 * t29672 * t2137 - 0.24000000000000000000e2 * t7142 * t7154 + 0.38596750796862084160e3 * t7147 * t7242 + 0.36000000000000000000e2 * t2185 * t2138 * t2179 - 0.24828486201251232145e5 * t28929 * t28930 + 0.10000000000000000000e1 * t769 * t29126 + 0.19964560303604640732e6 * t29132 * t29135 - 0.12000000000000000000e2 * t28906 * t2138 + 0.24000000000000000000e2 * t7147 * t7151 - 0.24000000000000000000e2 * t7159 * t29154 - 0.60000000000000000000e1 * t2136 * t29139 + 0.96491876992155210402e2 * t2185 * t28894 + 0.40000000000000000000e1 * t28909 * t788;
18692   t29703 = my_piecewise3(t359, t29667 + t29701, t28795);
18693   t29748 = 0.80e2 * t1397 * t443 * t6533 - 0.720e3 * t1398 * t1470 * t6453 - 0.16e2 * t1392 * t6533 + 0.60e2 * t1397 * t26622 + 0.120e3 * t1398 * t26398 - 0.24e2 * t1470 * t6442 + 0.840e3 * t26389 * t26390 - 0.4e1 * t26525 * t400 - 0.16e2 * t26535 * t443 - 0.480e3 * t26602 * t6454 + 0.240e3 * t6445 * t6457 + t26573;
18694   t29751 = -0.12e2 * t1473 * t1481 * t363 - 0.12e2 * t6587 * t1517 - 0.24e2 * t1476 * t7534 - 0.4e1 * t6537 * t857 - 0.8e1 * t26657 * t465 + 0.4e1 * t866 * t6407 - 0.4e1 * t447 * t7532 - 0.6e1 * t82 * t26626 * t363 - t98 * (t28796 * t34 / 0.2e1 + 0.2e1 * t7086 * t413 + 0.3e1 * t2102 * t1454 + 0.2e1 * t752 * t5868 + t297 * t26429 / 0.2e1 + t29703 * t46 / 0.2e1 + 0.2e1 * t7523 * t436 + 0.3e1 * t2325 * t1463 + 0.2e1 * t853 * t5879 + t360 * t26445 / 0.2e1) - 0.8e1 * t1476 * t5805 - 0.8e1 * t2448 * t5805 - 0.8e1 * t449 * t857 * t5804 + t366 * t28795 - t29748 * t97 * t363;
18695   t29752 = t26647 + t29751;
18696   t29787 = 0.36e2 * t1481 * t1516 * t369 + 0.3e1 * t26376 * t369 * t97 + 0.18e2 * t26626 * t369 * t96 + t29752 * t370 * params->d + 0.24e2 * t369 * t5804 * t863 + 0.36e2 * t2363 * t2367 + 0.18e2 * t2363 * t2370 + 0.12e2 * t7550 * t875 + 0.24e2 * t7558 * t873 + 0.72e2 * t7561 * t873 + 0.12e2 * t7564 * t873;
18697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18698     v4rho4[0] = t29752 * t372 * t7 + 0.6e1 * t2359 * t2373 + t29787 * t872 + 0.4e1 * t7544 * t878 + 0.4e1 * t7567 * t870 + 0.4e1 * t26273 + 0.12e2 * t26275 + 0.12e2 * t26277 + 0.4e1 * t26279;
18699 
18700   t29791 = t2358 * t1130;
18701   t29795 = t368 * t9643;
18702   t29798 = t1122 * t2373;
18703   t29803 = t8339 * t96;
18704   t29806 = t82 * t5804;
18705   t29840 = 0.12e2 * t2874 * t385;
18706   t29850 = t2893 * t2184;
18707   t29853 = t1045 * t7246;
18708   t29874 = t9461 * t187;
18709   t29887 = t346 * t216;
18710   t29888 = t7461 * t1098;
18711   t29903 = t2967 * t2251;
18712   t29910 = t7378 * t1091;
18713   t29931 = t9217 * t768;
18714   t29938 = t1045 * t7158;
18715   t29951 = t2893 * t2135;
18716   t29955 = t116 * t118 * t203;
18717   t29956 = t9351 * t436;
18718   t29963 = t322 * t2114;
18719   t29967 = t105 * t130;
18720   t29968 = t101 * t29967;
18721   t29969 = t826 * t7113;
18722   t29971 = t29968 * t29969 * t29956;
18723   t29973 = t340 * t2114;
18724   t29975 = t29968 * t29973 * t29956;
18725   t29978 = t8513 * t9113;
18726   t29980 = t8513 * t9107;
18727   t29991 = 0.62517000000000000000e0 * t29955 * t29453 * t29956 - 0.13892666666666666667e0 * t29955 * t29295 * t29956 - 0.18755100000000000000e1 * t29955 * t29963 * t29956 + 0.61977000000000000000e1 * t29971 - 0.92965500000000000000e1 * t29975 + 0.69463333333333333332e-1 * t28934 + 0.54181400000000000001e1 * t29978 - 0.90302333333333333335e0 * t29980 + 0.79418812500000000000e1 * t7217 * t2912 * t2143 - 0.47337187500000000000e0 * t7211 * t2912 * t2143 + 0.94674375000000000000e0 * t2159 * t9070 * t772;
18728   t29992 = t599 * t9039;
18729   t29994 = t8448 * t9049;
18730   t29996 = t599 * t9066;
18731   t29998 = t8448 * t9062;
18732   t30000 = t1805 * t2886;
18733   t30001 = 0.13772666666666666666e1 * t30000;
18734   t30002 = t1805 * t2881;
18735   t30003 = 0.45908888888888888888e0 * t30002;
18736   t30005 = t28887 * t905 * t5873;
18737   t30007 = t106 * t2271 * t30005;
18738   t30018 = 0.57386111111111111111e0 * t29992 - 0.75749666666666666668e1 * t29994 - 0.10329500000000000000e1 * t29996 + 0.22724900000000000001e2 * t29998 + t30001 - t30003 + 0.68863333333333333334e1 * t30007 - 0.66182343750000000000e1 * t29060 * t1049 * t7212 + 0.23668593750000000000e0 * t29080 * t1049 * t7212 - 0.41678000000000000001e0 * t28952 + 0.69463333333333333333e0 * t28957 + 0.41678000000000000001e0 * t28959;
18739   t30024 = t606 * t9110;
18740   t30026 = t606 * t9093;
18741   t30031 = t606 * t9090;
18742   t30034 = t7113 * t4 * t1460;
18743   t30038 = t9047 * t1460;
18744   t30042 = -0.34731666666666666666e0 * t28976 - 0.11577222222222222222e0 * t28979 + 0.69463333333333333333e-1 * t28981 + 0.30872592592592592592e-1 * t28983 + t28994 - 0.41678000000000000001e0 * t30024 - 0.41678000000000000001e0 * t30026 + 0.55570666666666666666e0 * t119 * t7185 * t30005 + 0.12503400000000000000e1 * t30031 - 0.12503400000000000000e1 * t2547 * t2169 * t30034 + 0.37510200000000000000e1 * t2547 * t323 * t30038;
18745   t30043 = t606 * t9127;
18746   t30045 = t606 * t9104;
18747   t30047 = t2879 * t5879;
18748   t30051 = t9047 * t1463;
18749   t30056 = t28987 * t905 * t5873;
18750   t30060 = t9042 * t5873;
18751   t30065 = t7107 * t4 * t1460;
18752   t30069 = t2884 * t5879;
18753   t30073 = t9060 * t1463;
18754   t30077 = t9037 * t5873;
18755   t30083 = 0.69463333333333333334e-1 * t30043 + 0.92617777777777777778e-1 * t30045 - 0.34731666666666666667e-1 * t119 * t2169 * t30047 + 0.20839000000000000000e0 * t2547 * t2169 * t30051 - 0.10805407407407407407e0 * t119 * t28985 * t30056 + 0.25006800000000000000e1 * t119 * t323 * t30060 + 0.27785333333333333334e0 * t2547 * t7185 * t30065 + 0.20839000000000000000e0 * t119 * t323 * t30069 - 0.12503400000000000000e1 * t2547 * t323 * t30073 - 0.12503400000000000000e1 * t119 * t2169 * t30077 + 0.10329500000000000000e1 * t29007 + 0.13772666666666666666e1 * t29012;
18756   t30092 = t599 * t9057;
18757   t30095 = t106 * t827 * t30077;
18758   t30098 = t106 * t758 * t30060;
18759   t30100 = t599 * t9044;
18760   t30103 = t2500 * t758 * t30038;
18761   t30105 = -0.68863333333333333332e0 * t29014 + 0.16068111111111111111e1 * t29016 - 0.68863333333333333332e0 * t29020 - 0.45908888888888888888e0 * t29022 + 0.19128703703703703703e0 * t29024 + 0.17215833333333333333e0 * t29026 + 0.30988500000000000000e1 * t30092 - 0.12395400000000000000e2 * t30095 + 0.12395400000000000000e2 * t30098 - 0.20659000000000000000e1 * t30100 + 0.18593100000000000000e2 * t30103;
18762   t30107 = t2500 * t758 * t30073;
18763   t30110 = t106 * t758 * t30069;
18764   t30113 = t106 * t7407 * t30056;
18765   t30116 = t2500 * t2271 * t30065;
18766   t30119 = t2500 * t827 * t30034;
18767   t30122 = t2500 * t827 * t30051;
18768   t30125 = t106 * t827 * t30047;
18769   t30127 = t599 * t9053;
18770   t30135 = 0.8e1 / 0.9e1 * t30000;
18771   t30136 = 0.8e1 / 0.27e2 * t30002;
18772   t30147 = 0.4e1 * t29971 - 0.6e1 * t29975 + 0.10e2 / 0.27e2 * t29992 - 0.44e2 / 0.9e1 * t29994 - 0.2e1 / 0.3e1 * t29996 + 0.44e2 / 0.3e1 * t29998 + t30135 - t30136 + 0.40e2 / 0.9e1 * t30007 + t29085 + 0.2e1 / 0.3e1 * t29007 + 0.8e1 / 0.9e1 * t29012 - 0.4e1 / 0.9e1 * t29014 + 0.28e2 / 0.27e2 * t29016 - 0.4e1 / 0.9e1 * t29020 - 0.8e1 / 0.27e2 * t29022 + 0.10e2 / 0.81e2 * t29024 + t29026 / 0.9e1 + 0.2e1 * t30092;
18773   t30162 = t2270 * t7107;
18774   t30164 = t29968 * t30162 * t29956;
18775   t30167 = t228 * t12947 * t9010;
18776   t30170 = t101 * t103 * t5226;
18777   t30171 = t30170 * t2890;
18778   t30174 = t2500 * t758 * t7127;
18779   t30177 = t2500 * t827 * t7118;
18780   t30179 = t2500 * t1042;
18781   t30181 = -0.8e1 * t30095 + 0.8e1 * t30098 - 0.4e1 / 0.3e1 * t30100 + 0.12e2 * t30103 - 0.4e1 * t30107 + 0.2e1 / 0.3e1 * t30110 - 0.80e2 / 0.81e2 * t30113 + 0.20e2 / 0.9e1 * t30116 - 0.8e1 * t30119 + 0.4e1 / 0.3e1 * t30122 - 0.2e1 / 0.9e1 * t30125 + 0.2e1 / 0.9e1 * t30127 - 0.2e1 / 0.3e1 * t29073 + 0.2e1 / 0.9e1 * t29078 - 0.10e2 / 0.9e1 * t30164 - 0.14e2 / 0.3e1 * t30167 + 0.98e2 / 0.9e1 * t30171 - 0.4e1 * t30174 + 0.4e1 / 0.3e1 * t30177 + 0.28e2 / 0.81e2 * t30179;
18782   t30182 = t30147 + t30181;
18783   t30191 = -0.61977000000000000000e1 * t30107 + 0.10329500000000000000e1 * t30110 - 0.15302962962962962963e1 * t30113 + 0.34431666666666666667e1 * t30116 - 0.12395400000000000000e2 * t30119 + 0.20659000000000000000e1 * t30122 - 0.34431666666666666667e0 * t30125 + 0.34431666666666666666e0 * t30127 + 0.63116250000000000000e0 * t777 * t30182 - 0.17648625000000000000e1 * t2904 * t7231 + 0.94674375000000000000e0 * t9083 * t2151 + 0.31558125000000000000e0 * t2920 * t7231;
18784   t30195 = t1814 * t2931;
18785   t30196 = 0.69463333333333333334e0 * t30195;
18786   t30197 = t1814 * t2928;
18787   t30198 = 0.11577222222222222222e0 * t30197;
18788   t30201 = t772 * t2151;
18789   t30212 = 0.35297250000000000000e1 * t770 * t30182 + t29037 + t30196 - t30198 - 0.13892666666666666667e0 * t29041 + 0.92617777777777777776e0 * t29043 + 0.79418812500000000000e1 * t9096 * t30201 - 0.47337187500000000000e0 * t9099 * t30201 - 0.52945875000000000000e1 * t2142 * t9070 * t772 - 0.52945875000000000000e1 * t9007 * t2151 - 0.10329500000000000000e1 * t29073;
18790   t30217 = t241 * t204 * t9073;
18791   t30219 = t2547 * t1055;
18792   t30232 = t116 * t102 * t714;
18793   t30233 = t30232 * t2934;
18794   t30235 = 0.34431666666666666666e0 * t29078 - 0.17215833333333333333e1 * t30164 - 0.72306500000000000001e1 * t30167 - 0.16671200000000000000e1 * t30217 + 0.30872592592592592592e0 * t30219 + 0.16871516666666666667e2 * t30171 - 0.61977000000000000000e1 * t30174 + 0.20659000000000000000e1 * t30177 + 0.53560370370370370369e0 * t30179 - 0.12503400000000000000e1 * t2547 * t323 * t7127 + 0.20839000000000000000e0 * t2547 * t2169 * t7118 + 0.44456533333333333333e1 * t30233;
18795   t30239 = (t29991 + t30018 + t30042 + t30083 + t30105 + t30191 + t30212 + t30235) * t787;
18796   t30245 = t786 * t2179;
18797   t30251 = t787 * t187;
18798   t30270 = 0.45662222222222222220e-1 * t30000;
18799   t30271 = 0.15220740740740740740e-1 * t30002;
18800   t30282 = 0.20547999999999999999e0 * t29971 - 0.30822000000000000000e0 * t29975 + 0.19025925925925925925e-1 * t29992 - 0.25114222222222222221e0 * t29994 - 0.34246666666666666665e-1 * t29996 + 0.75342666666666666662e0 * t29998 + t30270 - t30271 + 0.22831111111111111110e0 * t30007 + t29161 + 0.34246666666666666665e-1 * t29007 + 0.45662222222222222220e-1 * t29012 - 0.22831111111111111110e-1 * t29014 + 0.53272592592592592591e-1 * t29016 - 0.22831111111111111110e-1 * t29020 - 0.15220740740740740740e-1 * t29022 + 0.63419753086419753085e-2 * t29024 + 0.57077777777777777777e-2 * t29026 + 0.10274000000000000000e0 * t30092;
18801   t30303 = -0.41095999999999999999e0 * t30095 + 0.41096000000000000000e0 * t30098 - 0.68493333333333333330e-1 * t30100 + 0.61643999999999999998e0 * t30103 - 0.20547999999999999999e0 * t30107 + 0.34246666666666666666e-1 * t30110 - 0.50735802469135802467e-1 * t30113 + 0.11415555555555555555e0 * t30116 - 0.41095999999999999998e0 * t30119 + 0.68493333333333333331e-1 * t30122 - 0.11415555555555555555e-1 * t30125 + 0.11415555555555555555e-1 * t30127 - 0.34246666666666666665e-1 * t29073 + 0.11415555555555555555e-1 * t29078 - 0.57077777777777777775e-1 * t30164 - 0.23972666666666666665e0 * t30167 + 0.55936222222222222217e0 * t30171 - 0.20547999999999999999e0 * t30174 + 0.68493333333333333332e-1 * t30177 + 0.17757530864197530864e-1 * t30179;
18802   t30305 = (t30282 + t30303) * t318;
18803   t30311 = -0.59217626406536151717e2 * t29931 * t810 - 0.59217626406536151717e2 * t9221 * t2245 - 0.19046733076622961759e4 * t29850 * t2248 + 0.38093466153245923519e4 * t29938 * t7311 - 0.19739208802178717239e2 * t2896 * t7314 - 0.40841222780709261955e5 * t29853 * t7320 - 0.19739208802178717239e2 * t28909 * t1071 - 0.59217626406536151717e2 * t7139 * t2988 - 0.59217626406536151717e2 * t2131 * t9251 + 0.11843525281307230343e3 * t29951 * t2242 - 0.19739208802178717239e2 * t769 * t30239 * t187 - 0.11843525281307230343e3 * t9000 * t7305 + 0.11428039845973777056e5 * t9246 * t2992 * t30245 + 0.39478417604357434478e2 * t2985 * t7314 - 0.35530575843921691029e3 * t2991 * t30251 * t30245 - 0.19046733076622961759e4 * t28914 * t1058 * t2993 - 0.19046733076622961759e4 * t2185 * t9135 * t2993 + 0.11843525281307230343e3 * t9224 * t786 * t2245 + 0.61370581910589784405e0 * t30305 * t187 - 0.12252366834212778586e6 * t7247 * t2937 * t9259;
18804   t30345 = t29134 * t187;
18805   t30366 = -0.22856079691947554112e5 * t9257 * t7311 + 0.11843525281307230343e3 * t9243 * t2245 - 0.12252366834212778586e6 * t9257 * t9258 * t30245 - 0.19046733076622961759e4 * t9254 * t9262 - 0.19046733076622961759e4 * t9000 * t2179 * t2993 - 0.19046733076622961759e4 * t9238 * t9262 - 0.12252366834212778586e6 * t28812 * t1058 * t9259 + 0.23687050562614460687e3 * t7142 * t2937 * t810 + 0.11428039845973777056e5 * t7159 * t2937 * t2248 - 0.35530575843921691030e3 * t9254 * t2242 + 0.47374101125228921372e3 * t9246 * t7305 + 0.11843525281307230343e3 * t28906 * t1058 * t810 - 0.35530575843921691030e3 * t9238 * t2242 - 0.39408462447654052777e7 * t29132 * t1058 * t30345 * t7150 + 0.49009467336851114346e6 * t28929 * t1058 * t7320 + 0.11843525281307230343e3 * t2136 * t9135 * t810 - 0.63489110255409872532e3 * t2991 * t2992 * t7237 + 0.11843525281307230343e3 * t9233 * t2245 + 0.11428039845973777056e5 * t28807 * t1058 * t2248 - 0.38093466153245923518e4 * t7147 * t2937 * t2993;
18806   t30368 = (t30311 + t30366) * t329;
18807   t30374 = t345 * t9265;
18808   t30378 = t29246 * t329;
18809   t30385 = t2284 * t1074;
18810   t30401 = -0.18e2 * t9487 * t3055 * t11269 * t2251 + 0.18e2 * t3054 * t3055 * t29903 - 0.3e1 * t262 * t7486 * t2997 - 0.6e1 * t262 * t29910 * t7383 - 0.3e1 * t262 * t2301 * t9266 - t2229 * t3055 * t7344 + 0.14e2 * t3054 * t3055 * t7388 - 0.3e1 * t262 * t9526 * t2252 - 0.18e2 * t9487 * t9495 * t9452 - 0.18e2 * t9487 * t9491 * t9452 - t262 * t839 * t30368 + 0.6e1 * t3054 * t9491 * t7365 - 0.3e1 * t2229 * t30374 * t814 - 0.3e1 * t2229 * t3055 * t30378 + 0.18e2 * t3054 * t9491 * t2220 - 0.3e1 * t2229 * t30385 * t814 + 0.2e1 * t3054 * t3055 * t29612 + 0.18e2 * t3054 * t9495 * t2220 - 0.3e1 * t2229 * t9491 * t2252 - 0.3e1 * t2229 * t9491 * t2257;
18811   t30409 = t803 * t9460;
18812   t30428 = t832 * t2996;
18813   t30433 = t188 * t62 * t28876;
18814   t30434 = t28880 * t7343;
18815   t30460 = t532 * t1858;
18816   t30462 = t824 * t30460 * t3038;
18817   t30464 = t9193 * t7356;
18818   t30469 = t794 * t204 * t2962;
18819   t30471 = t2947 * t7275;
18820   t30472 = t30471 / 0.162e3;
18821   t30473 = t2947 * t7267;
18822   t30479 = t3009 * t7349;
18823   t30480 = t30479 / 0.432e3;
18824   t30482 = t807 * t6896 * t2998;
18825   t30483 = t30482 / 0.2304e4;
18826   t30484 = t1576 * t7285;
18827   t30494 = t28820 / 0.216e3 - t30462 / 0.216e3 - t30464 / 0.72e2 + 0.2e1 / 0.27e2 * t2947 * t7272 - 0.25e2 / 0.432e3 * t30469 + t30472 + t30473 / 0.54e2 - 0.5e1 / 0.1152e4 * t824 * t2645 * t2271 * t7118 - t30480 + t30483 - 0.7e1 / 0.108e3 * t794 * t30484 * t30065 - t794 * t2958 * t30069 / 0.144e3 + t794 * t9174 * t30073 / 0.24e2;
18828   t30496 = t794 * t9152 * t9056;
18829   t30505 = t807 * t2645 * t1076;
18830   t30508 = t262 * t7379 * t3007;
18831   t30518 = t3015 * t7402;
18832   t30523 = t30496 / 0.48e2 - 0.7e1 / 0.54e2 * t794 * t9163 * t30005 + t794 * t9167 * t30034 / 0.6e1 - t30505 / 0.5184e4 + t30508 * t7385 / 0.48e2 - t9193 * t7390 / 0.48e2 + 0.5e1 / 0.1296e4 * t28836 - t28843 / 0.2304e4 - t28851 / 0.1728e4 + t28854 / 0.2304e4 + t28857 / 0.2304e4 - 0.5e1 / 0.648e3 * t30518 - t28873 / 0.3456e4 + 0.5e1 / 0.216e3 * t3015 * t7337;
18833   t30525 = t3015 * t7370;
18834   t30528 = t794 * t9152 * t9065;
18835   t30531 = t794 * t9156 * t9052;
18836   t30533 = t242 * t7285;
18837   t30535 = t794 * t30533 * t9038;
18838   t30543 = t518 * t29437;
18839   t30553 = t794 * t498 * t796 * t2885;
18840   t30554 = t30553 / 0.216e3;
18841   t30559 = -t30525 / 0.216e3 - t30528 / 0.144e3 + t30531 / 0.216e3 + 0.7e1 / 0.648e3 * t30535 + t794 * t2954 * t30047 / 0.216e3 - t794 * t9167 * t30051 / 0.36e2 + 0.35e2 / 0.972e3 * t794 * t30543 * t30056 + t2947 * t7256 / 0.18e2 - t2947 * t7259 / 0.27e2 + t30554 + t29202 / 0.2592e4 + t29205 / 0.1728e4 + t29208 / 0.576e3 - t29226 / 0.1152e4;
18842   t30566 = t814 * t1460;
18843   t30571 = t2257 * t436;
18844   t30582 = t2232 * t29474 * t9289;
18845   t30589 = t2232 * t7427 * t9285;
18846   t30601 = t2220 * t436;
18847   t30606 = -0.5e1 / 0.10368e5 * t29229 - 0.5e1 / 0.1728e4 * t29232 - t29235 / 0.2304e4 - t794 * t2958 * t30060 / 0.12e2 - t2232 * t2233 * t2879 * t30566 / 0.128e3 + t2232 * t2233 * t2884 * t30571 / 0.384e3 - t2232 * t2233 * t1041 * t7344 / 0.2304e4 - t29244 / 0.144e3 - 0.5e1 / 0.1728e4 * t30582 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t2879 * t29258 + t30589 / 0.288e3 - t7444 * t2233 * t9293 * t813 * t2119 * t1460 / 0.192e3 + t7444 * t2233 * t9293 * t29252 / 0.384e3 - t7444 * t2233 * t2884 * t30601 / 0.192e3;
18848   t30610 = t794 * t1576 * t1065;
18849   t30612 = t3009 * t7352;
18850   t30617 = t2232 * t7427 * t9409;
18851   t30629 = t2947 * t7278;
18852   t30631 = t2947 * t7281;
18853   t30635 = t339 * t210 * t3878 * t9139;
18854   t30640 = t1062 * t7253;
18855   t30642 = 0.5e1 / 0.3888e4 * t30610 + t30612 / 0.144e3 - t3015 * t7333 / 0.72e2 - t30617 / 0.1152e4 - 0.7e1 / 0.243e3 * t2947 * t7288 + t794 * t1576 * t2204 * t436 / 0.24e2 - t794 * t1576 * t2199 * t436 / 0.36e2 - t30629 / 0.108e3 - t30631 / 0.81e2 + t30635 / 0.288e3 - t29268 / 0.576e3 + 0.5e1 / 0.3456e4 * t29272 + t29275 / 0.384e3 - 0.5e1 / 0.486e3 * t30640;
18856   t30644 = t2232 * t29474 * t9377;
18857   t30651 = t2232 * t7427 * t9373;
18858   t30654 = t824 * t2645 * t1087;
18859   t30663 = t3015 * t7340;
18860   t30665 = t3009 * t7416;
18861   t30669 = -0.5e1 / 0.3456e4 * t30644 + 0.5e1 / 0.1152e4 * t2232 * t7439 * t1075 * t7114 - t30651 / 0.1152e4 + t30654 / 0.7776e4 + t29293 / 0.3456e4 - t29301 / 0.108e3 - t29309 / 0.432e3 - t29312 / 0.324e3 + t29315 / 0.864e3 + 0.7e1 / 0.1944e4 * t29321 + 0.5e1 / 0.3888e4 * t29324 + t30663 / 0.108e3 + t30665 / 0.144e3 - t2947 * t7264 / 0.18e2;
18862   t30686 = t532 * t470;
18863   t30688 = t824 * t30686 * t3034;
18864   t30689 = t30688 / 0.1728e4;
18865   t30692 = t340 * t9265;
18866   t30697 = t9370 * t7428;
18867   t30714 = t188 * t347 * t2231;
18868   t30719 = -t2947 * t7292 / 0.108e3 - t807 * t2578 * t9306 * t2252 / 0.512e3 - t29355 / 0.768e3 + t2217 * t2578 * t9306 * t7365 / 0.256e3 + t2217 * t2578 * t2966 * t29612 / 0.768e3 + t30689 + t3009 * t7361 / 0.96e2 - t807 * t2578 * t30692 * t814 / 0.512e3 + t30697 / 0.108e3 - t9370 * t7420 / 0.72e2 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t2997 * t2115 - 0.5e1 / 0.2592e4 * t2232 * t29376 * t1075 * t7108 - t2232 * t2233 * t1075 * t7132 / 0.2304e4 - 0.5e1 / 0.384e3 * t30714 * t7439 * t9042 * t7393;
18869   t30722 = t1084 * t7374;
18870   t30725 = t2217 * t30686 * t2968;
18871   t30726 = t30725 / 0.1152e4;
18872   t30731 = t905 * t5873;
18873   t30738 = t3054 * t9369;
18874   t30745 = t29394 / 0.576e3 + t29397 / 0.576e3 - t30722 / 0.972e3 - t30726 - t29414 + t29423 / 0.1728e4 - t29426 / 0.1152e4 + t29448 / 0.216e3 + t29451 / 0.144e3 + 0.5e1 / 0.192e3 * t824 * t2578 * t30162 * t30731 - t29472 / 0.1152e4 - 0.5e1 / 0.3456e4 * t29476 - t30738 * t7446 / 0.72e2 + t7444 * t2233 * t1041 * t7388 / 0.384e3;
18875   t30753 = t905 * t5879;
18876   t30758 = t4 * t1463;
18877   t30763 = t29327 * t28987;
18878   t30778 = t3015 * t7329;
18879   t30779 = t30778 / 0.648e3;
18880   t30781 = t807 * t1616 * t9267;
18881   t30795 = t30714 * t2233 * t2879 * t7393 / 0.128e3 + 0.5e1 / 0.6912e4 * t824 * t2578 * t3027 * t30753 - 0.5e1 / 0.1152e4 * t824 * t8764 * t3027 * t30758 + 0.55e2 / 0.7776e4 * t824 * t2578 * t30763 * t30731 - t807 * t533 * t758 * t30368 / 0.1536e4 + t3009 * t7326 / 0.288e3 - t3015 * t7413 / 0.432e3 - 0.5e1 / 0.486e3 * t3015 * t7409 + t30779 - t30781 / 0.768e3 + t824 * t2645 * t827 * t7127 / 0.192e3 + t2217 * t2578 * t30692 * t2967 / 0.256e3 + t3015 * t7395 / 0.72e2 - 0.5e1 / 0.432e3 * t3015 * t7399;
18882   t30797 = t2217 * t8565 * t9318;
18883   t30817 = t2252 * t436;
18884   t30832 = t2499 * t827;
18885   t30834 = t2232 * t30832 * t9418;
18886   t30847 = t30797 / 0.384e3 + 0.3e1 / 0.256e3 * t2217 * t2578 * t9306 * t2220 + t2232 * t9417 * t2889 * t2257 / 0.384e3 + t9370 * t7424 / 0.144e3 - t7444 * t9417 * t2889 * t2220 / 0.192e3 - t29493 * t2233 * t1041 * t7383 / 0.384e3 + t2232 * t2233 * t2884 * t30817 / 0.384e3 + t2232 * t2233 * t1075 * t7128 / 0.384e3 + t2232 * t9417 * t2889 * t2252 / 0.384e3 + t9370 * t7432 / 0.144e3 - 0.5e1 / 0.1152e4 * t30834 - t29479 / 0.1152e4 + t2232 * t2233 * t9182 * t329 * t2119 * t1460 / 0.384e3 + t7444 * t2233 * t11115 * t9295 / 0.192e3;
18887   t30855 = t7444 * t7427 * t9296;
18888   t30862 = t329 * t2114;
18889   t30868 = t2996 * t813;
18890   t30886 = t1074 * t2218;
18891   t30892 = t824 * t8565 * t9435;
18892   t30899 = t2232 * t7427 * t9405;
18893   t30901 = t4 * t1460;
18894   t30910 = 0.5e1 / 0.1152e4 * t7444 * t7439 * t9293 * t2115 * t813 + t30855 / 0.288e3 + t7444 * t2233 * t9293 * t2124 * t813 / 0.384e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t9182 * t30862 * t1460 - t2232 * t2233 * t30868 * t9184 / 0.384e3 + 0.5e1 / 0.864e3 * t30714 * t29376 * t9037 * t7393 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t1075 * t7119 - t2232 * t2233 * t9182 * t9183 * t1463 / 0.768e3 - t2232 * t2233 * t30886 * t9184 / 0.768e3 - 0.5e1 / 0.576e3 * t30892 + 0.3e1 / 0.256e3 * t7444 * t5366 * t9293 * t29246 - t30899 / 0.1152e4 - 0.5e1 / 0.432e3 * t824 * t8764 * t9341 * t30901 + t2232 * t2233 * t2997 * t2120 / 0.384e3;
18895   t30916 = t2232 * t7427 * t9185;
18896   t30920 = t794 * t498 * t2198 * t2880;
18897   t30921 = t30920 / 0.324e3;
18898   t30929 = t794 * t9156 * t9043;
18899   t30931 = t6670 * t796;
18900   t30933 = t794 * t30931 * t9061;
18901   t30935 = t6670 * t2198;
18902   t30937 = t794 * t30935 * t9048;
18903   t30944 = t807 * t8565 * t9356;
18904   t30947 = t2217 * t8565 * t9314;
18905   t30961 = -t2232 * t2233 * t1041 * t7324 / 0.2304e4 - t30916 / 0.576e3 - t30921 - t794 * t9174 * t30038 / 0.8e1 + t794 * t2954 * t30077 / 0.6e1 - t30929 / 0.36e2 - 0.7e1 / 0.72e2 * t30933 + 0.7e1 / 0.108e3 * t30937 - t807 * t2578 * t2966 * t7344 / 0.1536e4 - t30944 / 0.768e3 + t30947 / 0.192e3 + 0.7e1 / 0.768e3 * t2217 * t2578 * t2966 * t7388 - t824 * t2578 * t29969 * t30731 / 0.96e2 - t807 * t2578 * t2966 * t7324 / 0.1536e4;
18906   t30969 = t2232 * t29421 * t2975;
18907   t30970 = t30969 / 0.3456e4;
18908   t30976 = t824 * t30686 * t3029;
18909   t30977 = 0.5e1 / 0.10368e5 * t30976;
18910   t30983 = t824 * t8565 * t9331;
18911   t31000 = t2232 * t7427 * t9422;
18912   t31002 = t7406 * t28887;
18913   t31011 = -t2232 * t2233 * t9266 * t760 / 0.768e3 + t30970 + 0.5e1 / 0.1152e4 * t7444 * t7439 * t2879 * t30601 - t30977 + t807 * t8764 * t9139 * t814 / 0.384e3 + t30983 / 0.192e3 - t9193 * t7367 / 0.48e2 + t9370 * t7436 / 0.144e3 + 0.5e1 / 0.432e3 * t9370 * t7441 + t28879 * t2578 * t2966 * t30434 / 0.64e2 - 0.3e1 / 0.128e3 * t7381 * t2578 * t2966 * t7383 + t31000 / 0.576e3 - 0.5e1 / 0.216e3 * t824 * t2578 * t31002 * t30731 + 0.5e1 / 0.192e3 * t824 * t8764 * t9434 * t30901;
18914   t31016 = t532 * t3878;
18915   t31018 = t824 * t31016 * t9439;
18916   t31027 = t2218 * t759 * t436;
18917   t31032 = t1074 * t7382;
18918   t31037 = t1074 * t2251;
18919   t31042 = t45 * t114;
18920   t31043 = t31042 * t14179;
18921   t31044 = t7185 * t7113;
18922   t31048 = t2169 * t2114;
18923   t31052 = t28985 * t7107;
18924   t31057 = t824 * t8565 * t9352;
18925   t31060 = t2217 * t8565 * t9364;
18926   t31066 = t1804 * t2271;
18927   t31071 = -t807 * t2578 * t9306 * t2257 / 0.512e3 - 0.5e1 / 0.576e3 * t31018 - t824 * t8764 * t9329 * t30901 / 0.64e2 + t3009 * t7346 / 0.288e3 + t7444 * t2233 * t9293 * t31027 / 0.128e3 - t29493 * t2233 * t31032 * t31027 / 0.128e3 - t2232 * t2233 * t31037 * t9184 / 0.768e3 - t31043 * t31044 * t29956 / 0.12e2 + t31043 * t31048 * t29956 / 0.16e2 + 0.7e1 / 0.216e3 * t31043 * t31052 * t29956 - t31057 / 0.576e3 + t31060 / 0.128e3 - 0.5e1 / 0.864e3 * t2232 * t29376 * t9037 * t30566 + 0.5e1 / 0.576e3 * t2232 * t31066 * t9047 * t9284;
18928   t31078 = t807 * t8565 * t9307;
18929   t31085 = t321 * t2546 * t9413;
18930   t31096 = t807 * t8565 * t9302;
18931   t31099 = t807 * t30686 * t3003;
18932   t31100 = t31099 / 0.2304e4;
18933   t31110 = t824 * t8565 * t9446;
18934   t31113 = t824 * t8565 * t9342;
18935   t31116 = t824 * t31016 * t9347;
18936   t31119 = t2232 * t7427 * t9384;
18937   t31121 = t2232 * t2233 * t2884 * t29258 / 0.384e3 - t31078 / 0.384e3 - 0.3e1 / 0.256e3 * t7381 * t2578 * t9306 * t9452 + 0.5e1 / 0.144e3 * t31085 + t824 * t8764 * t3033 * t30758 / 0.192e3 - t824 * t2578 * t3033 * t30753 / 0.1152e4 - t31096 / 0.768e3 + t31100 + t7444 * t2233 * t1041 * t29903 / 0.384e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t2879 * t30571 + 0.5e1 / 0.3456e4 * t31110 + 0.5e1 / 0.1296e4 * t31113 + 0.25e2 / 0.3456e4 * t31116 - t31119 / 0.576e3;
18938   t31123 = t7381 * t8565 * t9453;
18939   t31126 = t7444 * t7427 * t9388;
18940   t31159 = t2232 * t29421 * t3020;
18941   t31160 = t31159 / 0.3456e4;
18942   t31165 = -t31123 / 0.128e3 + t31126 / 0.576e3 - t29509 - t2232 * t2233 * t2997 * t2124 / 0.768e3 - t2232 * t5366 * t9182 * t2252 / 0.512e3 + t29511 / 0.384e3 - t29514 / 0.384e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t2879 * t30817 + 0.5e1 / 0.384e3 * t2232 * t7439 * t9042 * t30566 - t2232 * t9417 * t9060 * t9284 / 0.96e2 - t2232 * t2233 * t1041 * t30378 / 0.768e3 - 0.3e1 / 0.256e3 * t29493 * t5366 * t31032 * t29246 + t31160 - t2232 * t2233 * t1075 * t7123 / 0.384e3;
18943   t31169 = t30494 + t30523 + t30559 + t30606 + t30642 + t30669 + t30719 + t30745 + t30795 + t30847 + t30910 + t30961 + t31011 + t31071 + t31121 + t31165;
18944   t31172 = t2214 * t3043;
18945   t31176 = 0.6e1 * t3054 * t1091 * t813 * t7365 + 0.6e1 * t3054 * t30385 * t2967 - 0.3e1 * t262 * t30409 * t814 + 0.6e1 * t3054 * t9495 * t7365 - 0.3e1 * t262 * t9526 * t2257 - t2229 * t3055 * t7324 - 0.3e1 * t2229 * t1091 * t2251 * t814 + 0.6e1 * t3054 * t30374 * t2967 - 0.6e1 * t2229 * t30428 * t814 + 0.24e2 * t30433 * t3055 * t30434 - 0.36e2 * t9487 * t3055 * t7383 + 0.12e2 * t3054 * t30428 * t2967 - t262 * t3065 * t7324 - 0.3e1 * t2229 * t9495 * t2257 - 0.3e1 * t2229 * t9495 * t2252 - t262 * t3065 * t7344 - t262 * t29616 * t1075 + 0.6e1 * t262 * t9522 * t7388 + t188 * t347 * t31169 + 0.6e1 * t262 * t31172 * t2220;
18946   t31196 = -0.18e2 * t29887 * t29888 * t7467 + 0.6e1 * t7453 * t3050 + 0.2e1 * t835 * t2292 * t1098 * t7506 - t29522 * t1099 - t835 * t838 * (t30401 + t31176) + params->beta * t31169 * t352 - 0.6e1 * t3046 * t7464 - 0.18e2 * t835 * t7462 * t3070 * t2293 - 0.3e1 * t2287 * t9537 + 0.6e1 * t835 * t2292 * t9536 * t844 - 0.3e1 * t9463 * t2312;
18947   t31213 = 0.10000000000000000000e1 * t2896 * t7238 + 0.96491876992155210402e2 * t29850 * t2188 + 0.20690405167709360120e4 * t29853 * t7250 + 0.10000000000000000000e1 * t28909 * t1059 + 0.30000000000000000000e1 * t7139 * t2938 + 0.30000000000000000000e1 * t2131 * t9136 + t169 * (0.24e2 * t1098 * t29537 * t7463 * t835 + 0.6e1 * t2292 * t2311 * t3070 * t835 - 0.18e2 * t2287 * t9475 + 0.12e2 * t2287 * t9479 + 0.6e1 * t2287 * t9483 + 0.6e1 * t2294 * t9463 - 0.3e1 * t29874 * t845 + 0.6e1 * t3046 * t7468 - t3046 * t7507 - 0.3e1 * t3071 * t7453 + t31196) * t848 / 0.2e1 - 0.19298375398431042081e3 * t29938 * t7160 - 0.3e1 / 0.2e1 * t169 * t9539 * t2320 * t847 - 0.24000000000000000000e2 * t7159 * t1059 * t7150 + 0.18000000000000000000e2 * t2185 * t2938 * t2137;
18948   t31214 = t1101 * t29662;
18949   t31221 = t169 * t1101;
18950   t31222 = t29668 * t847;
18951   t31246 = -0.3e1 * t169 * t31214 * t7517 + 0.62071215503128080360e4 * t9257 * t29672 * t786 + 0.3e1 * t31221 * t31222 + 0.30000000000000000000e1 * t29931 * t788 - 0.60000000000000000000e1 * t29951 * t2138 - 0.3109070e-1 * t30305 - t169 * t3077 * t7509 / 0.2e1 + 0.32163958997385070134e2 * t2185 * t2941 * t7237 + 0.19964560303604640732e6 * t29132 * t1058 * t29134 * t7150 + 0.10000000000000000000e1 * t769 * t30239 + 0.18000000000000000000e2 * t2991 * t7154 - 0.57895126195293126243e3 * t9246 * t7242;
18952   t31274 = t2937 * t7249;
18953   t31280 = -0.3e1 / 0.2e1 * t169 * t9579 * t2314 - 0.60000000000000000000e1 * t7142 * t9554 - 0.57895126195293126242e3 * t28807 * t9557 + 0.96491876992155210402e2 * t7147 * t9564 + 0.62071215503128080360e4 * t28812 * t9568 - 0.60000000000000000000e1 * t2136 * t2938 * t2179 - 0.57895126195293126242e3 * t7159 * t9560 * t2137 - 0.20000000000000000000e1 * t2136 * t1059 * t7237 - 0.24828486201251232145e5 * t28929 * t9567 * t7150 + 0.96491876992155210402e2 * t2185 * t9560 * t2179 + 0.62071215503128080360e4 * t7247 * t31274 * t2137 + 0.30000000000000000000e1 * t9221 * t2180;
18954   t31305 = t3073 * t7519;
18955   t31311 = 0.19298375398431042081e3 * t7147 * t9561 - 0.60000000000000000000e1 * t2136 * t9136 * t786 + 0.96491876992155210402e2 * t2185 * t9135 * t2187 * t786 + 0.11579025239058625248e4 * t7247 * t2941 * t7150 - 0.60000000000000000000e1 * t9224 * t7154 + 0.96491876992155210402e2 * t9000 * t7242 - 0.60000000000000000000e1 * t28906 * t2901 + 0.96491876992155210402e2 * t28914 * t2942 - 0.12000000000000000000e2 * t7142 * t9551 + 0.60000000000000000000e1 * t9000 * t7151 + 0.3e1 * t169 * t31305 * t2318 + 0.18000000000000000000e2 * t7147 * t9571;
18956   t31314 = 0.35089341735807877242e1 * t27739;
18957   t31315 = 0.17544670867903938621e1 * t27746;
18958   t31316 = t7861 * t6096;
18959   t31317 = 0.16265371950452609763e-1 * t31316;
18960   t31321 = 0.51947577317044391277e2 * t27776;
18961   t31322 = t7879 * t1854;
18962   t31323 = 0.35089341735807877242e1 * t31322;
18963   t31324 = 0.58482236226346462070e0 * t27783;
18964   t31325 = 0.30762056574649219973e4 * t27785;
18965   t31326 = 0.31168546390226634765e3 * t27787;
18966   t31330 = 0.3e1 * t1768 * t27847 * t999 + 0.6e1 * t1768 * t28757 * t999 + t27738 + t27745 - t27762 - t27766 + t27775 + t27781 - t27793 - t27796 - t27801 - t27805 + t31314 - t31315 + t31317 - t31321 + t31323 - t31324 - t31325 + t31326;
18967   t31331 = t2759 * t6221;
18968   t31332 = 0.35089341735807877242e1 * t31331;
18969   t31336 = 0.3e1 * t27834;
18970   t31337 = 0.36e2 * t27836;
18971   t31338 = 0.4e1 * t27838;
18972   t31339 = 0.4e1 * t27840;
18973   t31341 = 0.3e1 * t27843;
18974   t31342 = 0.17544670867903938621e1 * t27862;
18975   t31343 = 0.65061487801810439052e-1 * t27864;
18976   t31344 = 0.97592231702715658578e-1 * t27866;
18977   t31345 = 0.14447919941302971324e1 * t27871;
18978   t31346 = 0.32530743900905219526e-1 * t27877;
18979   t31347 = 0.48796115851357829289e-1 * t27879;
18980   t31348 = t31341 + t27853 - t27861 - t31342 - t31343 - t31344 + t27870 + t31345 + t27875 + t31346 + t31347;
18981   t31351 = t613 * t7969;
18982   t31352 = 0.12e2 * t31351;
18983   t31353 = t616 * t7969;
18984   t31354 = 0.12e2 * t31353;
18985   t31355 = 0.36e2 * t27884;
18986   t31359 = t7861 * t6102;
18987   t31360 = 0.21687162600603479684e-1 * t31359;
18988   t31372 = 0.10526802520742363173e2 * t27898;
18989   t31374 = t2710 * t101 * t1933;
18990   t31375 = 0.32530743900905219526e-1 * t31374;
18991   t31376 = t7861 * t6099;
18992   t31377 = 0.32530743900905219526e-1 * t31376;
18993   t31378 = t7861 * t6090;
18994   t31379 = 0.48159733137676571078e0 * t31378;
18995   t31380 = 0.480e3 * t27900;
18996   t31381 = 0.24e2 * t28148;
18997   t31382 = 0.17090684152272775383e-2 * t28378;
18998   t31383 = 0.36e2 * t28380;
18999   t31384 = 0.18e2 * t1881 * t2857 * t7924 - t27897 + t28377 - t31372 + t31375 - t31377 + t31379 + t31380 - t31381 - t31382 - t31383;
19000   t31386 = 0.12e2 * t28382;
19001   t31387 = t8297 * t2093;
19002   t31391 = t7900 * t1929;
19003   t31392 = 0.73245789224026180216e-3 * t31391;
19004   t31393 = t2759 * t6217;
19005   t31394 = 0.51947577317044391277e2 * t31393;
19006   t31395 = 0.60e2 * t28423;
19007   t31397 = 0.360e3 * t28429;
19008   t31398 = t2759 * t6085;
19009   t31399 = 0.10389515463408878255e3 * t31398;
19010   t31406 = t169 * t677;
19011   t31409 = 0.3e1 * t1768 * t2853 * t6147 + 0.18e2 * t2803 * t2857 * t6076 + 0.18e2 * t31406 * t7893 + t28226 - t28230 + t28434 - t28437 - t28441 - t28444 - t31397 + t31399;
19012   t31413 = 0.48e2 * t28445;
19013   t31414 = t616 * t8160;
19014   t31415 = 0.12e2 * t31414;
19015   t31416 = t7879 * t1834;
19016   t31417 = 0.51947577317044391276e2 * t31416;
19017   t31432 = t377 * t1451;
19018   t31438 = t377 * t1454;
19019   t31442 = 0.32e2 * t2700 * t385;
19020   t31449 = t377 * t1460;
19021   t31455 = t377 * t1463;
19022   t31459 = 0.32e2 * t2706 * t385;
19023   t31460 = t15 * t413;
19024   t31463 = t15 * t436;
19025   t31466 = 0.4e1 / 0.9e1 * t2697 * t5868 - 0.16e2 * t67 * t15 + 0.4e1 / 0.9e1 * t2703 * t5879 + 0.16e2 * t70 * t15 + 0.40e2 / 0.81e2 * t28385 * t886 * t5862 - 0.8e1 / 0.9e1 * t7943 * t6915 - 0.16e2 / 0.9e1 * t5861 * t4 * t31432 + 0.8e1 / 0.3e1 * t1780 * t377 * t413 + 0.8e1 / 0.3e1 * t7946 * t31438 + t31442 + 0.40e2 / 0.81e2 * t28398 * t905 * t5873 - 0.8e1 / 0.9e1 * t7955 * t7393 + 0.16e2 / 0.9e1 * t5872 * t4 * t31449 - 0.8e1 / 0.3e1 * t1785 * t377 * t436 - 0.8e1 / 0.3e1 * t7958 * t31455 - t31459 - 0.8e1 * t7946 * t31460 + 0.8e1 * t7958 * t31463;
19026   t31467 = t31466 * t133;
19027   t31469 = 0.19751673498613801407e-1 * t31467 * t159;
19028   t31471 = t7968 * t61 * t663;
19029   t31472 = 0.54934341918019635162e-3 * t31471;
19030   t31473 = t613 * t8160;
19031   t31474 = 0.12e2 * t31473;
19032   t31475 = 0.72e2 * t28450;
19033   t31476 = 0.96e2 * t28454;
19034   t31482 = 0.24e2 * t613 * t7986;
19035   t31483 = 0.240e3 * t28456;
19036   t31484 = 0.180e3 * t28458;
19037   t31497 = 0.8e1 * t2719 * t385;
19038   t31510 = 0.8e1 * t2725 * t385;
19039   t31523 = -0.28e2 / 0.81e2 * t2420 * t5862 + 0.4e1 / 0.9e1 * t904 * t6915 + 0.8e1 / 0.9e1 * t2423 * t31432 - 0.2e1 / 0.3e1 * t69 * t377 * t413 - 0.2e1 / 0.3e1 * t7991 * t31438 + t31497 - 0.28e2 / 0.81e2 * t2426 * t5873 + 0.4e1 / 0.9e1 * t906 * t7393 - 0.8e1 / 0.9e1 * t2429 * t31449 + 0.2e1 / 0.3e1 * t72 * t377 * t436 + 0.2e1 / 0.3e1 * t8002 * t31455 - t31510 + 0.2e1 * t7991 * t31460 - 0.2e1 * t8002 * t31463 - t2716 * t5868 / 0.9e1 - 0.4e1 * t672 * t15 - t2722 * t5879 / 0.9e1 + 0.4e1 * t674 * t15;
19040   t31539 = t8077 * t8127;
19041   t31541 = t27946 * t2791;
19042   t31542 = 0.119e3 / 0.4608e4 * t31541;
19043   t31543 = t6182 * t8102;
19044   t31545 = t6182 * t8106;
19045   t31547 = t6182 * t8110;
19046   t31549 = t6182 * t8096;
19047   t31551 = t27946 * t2798;
19048   t31552 = 0.119e3 / 0.1152e4 * t31551;
19049   t31565 = t6182 * t8069;
19050   t31575 = t103 * t8196;
19051   t31580 = t6182 * t8204;
19052   t31582 = t8077 * t8092;
19053   t31584 = -0.7e1 / 0.768e3 * t31539 - t31542 - 0.7e1 / 0.192e3 * t31543 - 0.7e1 / 0.384e3 * t31545 + 0.7e1 / 0.768e3 * t31547 + 0.7e1 / 0.1536e4 * t31549 + t31552 + t2744 * t2746 * t2747 * t28711 / 0.1536e4 - 0.3e1 / 0.4e1 * t6319 * t254 * t2739 * t1868 + t1903 * t1905 * t8202 * t2024 / 0.256e3 - 0.7e1 / 0.384e3 * t31565 + 0.7e1 / 0.1536e4 * t2744 * t2746 * t2747 * t6270 + t1903 * t1905 * t2796 * t6192 / 0.768e3 + t1903 * t1905 * t31575 * t1907 / 0.256e3 - 0.7e1 / 0.192e3 * t31580 - 0.7e1 / 0.256e3 * t31582;
19054   t31589 = t6182 * t8208;
19055   t31611 = t262 * t6260 * t715;
19056   t31612 = t31611 * t8088;
19057   t31615 = t6324 * t2740;
19058   t31616 = 0.35e2 / 0.72e2 * t31615;
19059   t31620 = t6297 * t2805;
19060   t31621 = 0.595e3 / 0.1152e4 * t31620;
19061   t31622 = -0.5e1 / 0.256e3 * t1903 * t6301 * t8029 * t6302 - 0.7e1 / 0.384e3 * t31589 + t27935 - 0.3e1 / 0.512e3 * t8085 * t2746 * t8029 * t8086 - t1903 * t2746 * t2747 * t6192 / 0.3072e4 - t1903 * t2746 * t8029 * t2024 / 0.1024e4 + 0.5e1 / 0.128e3 * t1903 * t27995 * t2747 * t194 * t6067 + t27942 - 0.7e1 / 0.384e3 * t27943 + 0.119e3 / 0.576e3 * t27947 + 0.7e1 / 0.256e3 * t31612 + 0.7e1 / 0.192e3 * t27949 - t31616 + 0.455e3 / 0.216e3 * t27957 - 0.35e2 / 0.72e2 * t27959 + 0.7e1 / 0.144e3 * t27961 + t31621;
19062   t31624 = t2037 * t8146;
19063   t31626 = t2037 * t8151;
19064   t31628 = t28122 * t1016;
19065   t31645 = t1899 * t8199;
19066   t31695 = t27738 + t31314 + t27745 - t31315 - t27762 - t27766 + t27775 + t31317 - t31321 + t31323 + t27781 - t31324 - t31325 + t31326 - t27793 - t27796;
19067   t31696 = -t27801 - t27805 - t27809 + t27813 - t27816 + t31332 + t27829 + t31336 - t31337 - t31338 - t31339 + t31341 + t27853 - t27861 - t31342 - t31343 - t31344;
19068   t31698 = t27870 + t31345 + t27875 + t31346 + t31347 + t27883 + t31352 - t31354 - t31355 - t27888 - t27891 - t31360 - t27897 - t31372 + t31375 - t31377;
19069   t31699 = t31379 + t31380 - t31381 + t28377 - t31382 - t31383 + t31386 + t28210 + t28420 + t31392 - t31394 + t28422 + t31395 + t28222 - t28426 - t31397 + t31399;
19070   t31702 = t28434 - t28437 + t28226 - t28230 - t28441 - t28444 - t28244 - t31413 - t31415 - t31417 + t31469 - t28449 - t31472 + t31474 - t31475 - t31476;
19071   t31703 = 0.96e2 * t28460;
19072   t31704 = 0.960e3 * t28465;
19073   t31706 = 0.96e2 * t1917 * t2711;
19074   t31707 = t2759 * t6081;
19075   t31708 = 0.58482236226346462070e0 * t31707;
19076   t31710 = t7968 * t149 * t668;
19077   t31711 = 0.17544670867903938621e1 * t31710;
19078   t31712 = t1917 * t2713;
19079   t31713 = 0.96e2 * t31712;
19080   t31715 = t128 * t2710 * t1989;
19081   t31716 = 0.3e1 * t31715;
19082   t31717 = 0.73245789224026180215e-3 * t28474;
19083   t31718 = 0.144e3 * t28478;
19084   t31719 = t2690 * t6227;
19085   t31720 = 0.56968947174242584612e-3 * t31719;
19086   t31721 = t31482 + t31483 + t31484 - t31703 - t31704 + t28468 - t31706 - t31708 - t31711 - t31713 + t31716 - t28279 + t31717 - t28323 + t31718 + t28329 - t31720;
19087   t31723 = t2759 * t6047;
19088   t31724 = 0.35089341735807877242e1 * t31723;
19089   t31725 = 0.10526802520742363173e2 * t28500;
19090   t31726 = t7879 * t1848;
19091   t31727 = 0.17544670867903938621e1 * t31726;
19092   t31729 = t128 * t7968 * t656;
19093   t31730 = 0.3e1 * t31729;
19094   t31732 = t128 * t991 * t6036;
19095   t31733 = t5779 * t992;
19096   t31734 = 0.24e2 * t31733;
19097   t31735 = t6124 * t992;
19098   t31736 = 0.144e3 * t31735;
19099   t31737 = t6127 * t992;
19100   t31738 = 0.240e3 * t31737;
19101   t31739 = t6130 * t992;
19102   t31740 = 0.120e3 * t31739;
19103   t31741 = 0.18311447306006545054e-3 * t28503;
19104   t31742 = -t28483 - t28486 - t28489 - t31724 + t28337 + t28493 - t28499 + t31725 - t31727 + t31730 + t31732 + t31734 - t31736 + t31738 - t31740 - t31741;
19105   t31743 = 0.15584273195113317383e3 * t28509;
19106   t31744 = t616 * t7986;
19107   t31745 = 0.24e2 * t31744;
19108   t31746 = t1912 * t2711;
19109   t31747 = 0.60e2 * t31746;
19110   t31748 = 0.8e1 * t28514;
19111   t31750 = t128 * t31467 * t161;
19112   t31751 = t1404 * t2713;
19113   t31752 = 0.36e2 * t31751;
19114   t31753 = 0.192e3 * t28525;
19115   t31754 = t1404 * t2711;
19116   t31755 = 0.36e2 * t31754;
19117   t31756 = t2759 * t5910;
19118   t31757 = 0.10254018858216406658e4 * t31756;
19119   t31758 = t1912 * t2713;
19120   t31759 = 0.60e2 * t31758;
19121   t31760 = t28508 - t31743 - t31745 + t31747 + t28513 - t28356 + t31748 + t31750 + t28518 + t28521 + t28524 + t31752 + t28369 + t31753 + t31755 - t31757 + t31759;
19122   t31770 = -0.36e2 * t2007 * t62 * t2778 + 0.9e1 * t701 * t8193 - 0.36e2 * t2776 * t724 * t8011 * t677 - 0.36e2 * t2776 * t8186 * t1881 - 0.72e2 * t8177 * t8187 - 0.36e2 * t8177 * t8190 + 0.180e3 * t8177 * t8183 - 0.36e2 * t2770 * t2012 - (t31695 + t31696 + t31698 + t31699 + t31702 + t31721 + t31742 + t31760) * t187 * t192 + 0.9e1 * t2770 * t2015 + 0.9e1 * t2007 * t2781;
19123   t31772 = (0.180e3 * t1868 * t2041 * t2728 * t2776 - 0.360e3 * t2776 * t6067 * t6283 * t999 + 0.3e1 * t190 * t31523 * t703 - 0.12e2 * t2776 * t2777 * t6147 + 0.180e3 * t2776 * t6275 * t8182 + 0.60e2 * t1008 * t6242 + 0.3e1 * t1008 * t6249 + 0.3e1 * t1010 * t6233 - 0.36e2 * t6246 * t9973 + 0.9e1 * t704 * t8167 + t31770) * t194;
19124   t31777 = t6182 * t8213;
19125   t31807 = -0.35e2 / 0.192e3 * t31624 - 0.35e2 / 0.384e3 * t31626 + 0.595e3 / 0.10368e5 * t31628 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t8011 * t677 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t2728 * t1881 + 0.5e1 / 0.768e3 * t722 * t2043 * t532 * t999 * t6147 + 0.7e1 / 0.1536e4 * t31645 - t697 * t699 * t532 * t31772 / 0.3072e4 - 0.7e1 / 0.192e3 * t31777 + t1903 * t8056 * t8211 * t6166 / 0.256e3 + t1903 * t1905 * t8202 * t2019 / 0.256e3 + t1903 * t1905 * t2796 * t6253 / 0.768e3 - t1903 * t2746 * t8029 * t2019 / 0.1024e4 - t1903 * t2746 * t2747 * t6253 / 0.3072e4 + t1903 * t1905 * t8029 * t6166 / 0.256e3 - t1903 * t2746 * t31575 * t708 / 0.1024e4;
19126   t31816 = t28107 * t8026;
19127   t31822 = t6182 * t8114;
19128   t31830 = t178 * t6318 * t114;
19129   t31839 = t8077 * t8031;
19130   t31845 = t1013 * t1891;
19131   t31854 = t999 * t1891;
19132   t31859 = 0.3e1 / 0.512e3 * t2744 * t2746 * t8029 * t1893 + 0.5e1 / 0.4e1 * t28111 * t254 * t1003 * t6067 + 0.7e1 / 0.4e1 * t31816 + t1867 * t254 * t1003 * t6147 / 0.16e2 + 0.35e2 / 0.384e3 * t31822 - t2744 * t1905 * t8202 * t1893 / 0.128e3 - 0.7e1 / 0.768e3 * t27987 - 0.3e1 / 0.4e1 * t31830 * t183 * t8149 * t677 - 0.7e1 / 0.384e3 * t28022 + 0.7e1 / 0.1536e4 * t28024 - 0.7e1 / 0.384e3 * t28030 + 0.35e2 / 0.384e3 * t28040 - 0.7e1 / 0.384e3 * t31839 + t8085 * t1905 * t2796 * t6264 / 0.128e3 + t1903 * t8056 * t31845 * t1907 / 0.256e3 - 0.5e1 / 0.256e3 * t1903 * t8050 * t8211 * t6302 - 0.5e1 / 0.256e3 * t1903 * t8050 * t31854 * t1907;
19133   t31880 = t262 * t28575 * t204;
19134   t31881 = t28578 * t6191;
19135   t31886 = t999 * t2018;
19136   t31895 = t2037 * t8039;
19137   t31897 = t6297 * t2809;
19138   t31898 = 0.119e3 / 0.1152e4 * t31897;
19139   t31899 = t28612 * t1020;
19140   t31901 = t27946 * t2756;
19141   t31902 = 0.119e3 / 0.1152e4 * t31901;
19142   t31907 = t1863 * t8045;
19143   t31913 = t27956 * t1004;
19144   t31916 = t2744 * t2746 * t31575 * t2748 / 0.512e3 + t2744 * t2746 * t8029 * t6176 / 0.512e3 + t1903 * t1905 * t103 * t8011 * t708 / 0.256e3 - t2744 * t8056 * t8057 * t28594 / 0.128e3 + t31880 * t2746 * t2747 * t31881 / 0.128e3 - 0.5e1 / 0.256e3 * t1903 * t8050 * t31886 * t1907 - t722 * t726 * t532 * t31523 / 0.768e3 + 0.7e1 / 0.384e3 * t31895 - t31898 + 0.595e3 / 0.2592e4 * t31899 + t31902 + t1903 * t1905 * t2747 * t27971 / 0.768e3 + 0.7e1 / 0.48e2 * t31907 - t688 * t254 * t102 * t31523 / 0.48e2 + 0.455e3 / 0.648e3 * t31913 - 0.7e1 / 0.768e3 * t28047;
19145   t31925 = t1013 * t6263;
19146   t31926 = t2018 * t707;
19147   t31932 = t2037 * t8137;
19148   t31944 = t6198 * t2787;
19149   t31945 = 0.119e3 / 0.4608e4 * t31944;
19150   t31946 = t28104 * t2736;
19151   t31947 = 0.35e2 / 0.24e2 * t31946;
19152   t31948 = t6315 * t8018;
19153   t31950 = t6315 * t8022;
19154   t31952 = -0.119e3 / 0.4608e4 * t28049 + 0.119e3 / 0.2304e4 * t28055 - 0.35e2 / 0.384e3 * t28057 + 0.7e1 / 0.4608e4 * t28064 + 0.595e3 / 0.1152e4 * t28072 + 0.35e2 / 0.192e3 * t28074 + 0.7e1 / 0.1152e4 * t28090 - 0.119e3 / 0.1152e4 * t28096 - 0.3e1 / 0.512e3 * t8085 * t23548 * t31925 * t31926 - 0.7e1 / 0.16e2 * t28098 + 0.35e2 / 0.64e2 * t31932 + 0.35e2 / 0.128e3 * t722 * t28079 * t532 * t999 * t6067 - 0.15e2 / 0.128e3 * t722 * t6285 * t532 * t2728 * t1868 - t31945 + t31947 - 0.7e1 / 0.8e1 * t31948 - 0.7e1 / 0.16e2 * t31950;
19155   t31970 = t262 * t720 * t204;
19156   t31979 = t6182 * t8053;
19157   t31993 = t2728 * t707;
19158   t32002 = 0.3e1 / 0.16e2 * t1867 * t254 * t8044 * t677 + 0.3e1 / 0.16e2 * t1867 * t254 * t2739 * t1881 + 0.35e2 / 0.24e2 * t28105 + 0.7e1 / 0.12e2 * t28108 - t2744 * t8056 * t8057 * t1881 * t707 / 0.128e3 - 0.15e2 / 0.128e3 * t31970 * t27995 * t2796 * t6275 - t2744 * t8056 * t31886 * t2748 / 0.128e3 + 0.35e2 / 0.192e3 * t31979 - t2744 * t1905 * t2796 * t6270 / 0.128e3 + 0.5e1 / 0.128e3 * t2744 * t8050 * t31854 * t6186 - 0.3e1 / 0.256e3 * t8085 * t2746 * t2747 * t6264 - 0.5e1 / 0.128e3 * t1903 * t8050 * t31993 * t1907 + 0.595e3 / 0.3456e4 * t28123 - 0.119e3 / 0.4608e4 * t28125 + 0.7e1 / 0.768e3 * t28140 + 0.7e1 / 0.4608e4 * t28142;
19159   t32012 = t8077 * t8060;
19160   t32014 = t1891 * t677;
19161   t32019 = t27994 * t532;
19162   t32028 = t1013 * t2018;
19163   t32046 = t2784 * t707;
19164   t32059 = t6182 * t8073;
19165   t32063 = t262 * t1888 * t2031 * t2750;
19166   t32064 = 0.119e3 / 0.2304e4 * t32063;
19167   t32065 = t8077 * t8081;
19168   t32067 = 0.5e1 / 0.128e3 * t2744 * t8050 * t8057 * t1868 * t707 + 0.3e1 / 0.512e3 * t2744 * t23548 * t8057 * t31926 + 0.7e1 / 0.96e2 * t32012 + 0.3e1 / 0.128e3 * t8085 * t8056 * t31925 * t32014 + 0.15e2 / 0.128e3 * t1903 * t32019 * t8135 * t708 - t2744 * t8056 * t10040 * t8058 / 0.64e2 + t1903 * t8056 * t32028 * t1907 / 0.256e3 - t1903 * t23548 * t32028 * t708 / 0.1024e4 + t1903 * t8056 * t31886 * t708 / 0.256e3 + 0.595e3 / 0.864e3 * t28613 - 0.5e1 / 0.256e3 * t1903 * t8050 * t8149 * t708 + t1903 * t8056 * t32046 * t1907 / 0.128e3 - 0.5e1 / 0.256e3 * t1903 * t8050 * t1014 * t6275 - 0.3e1 / 0.128e3 * t2744 * t8056 * t8057 * t32014 + 0.7e1 / 0.1536e4 * t32059 + t32064 + 0.7e1 / 0.192e3 * t32065;
19169   t32070 = t31584 + t31622 + t31807 + t31859 + t31916 + t31952 + t32002 + t32067;
19170   t32092 = t2052 * t1013;
19171   t32107 = t188 * t62 * t28574;
19172   t32118 = t214 * t8196;
19173   t32128 = t2748 * t2018;
19174   t32135 = t6259 * t1023;
19175   t32157 = -t262 * t2836 * t6192 + 0.6e1 * t2823 * t32092 * t2748 + 0.6e1 * t2823 * t8253 * t6176 - 0.18e2 * t8245 * t2824 * t10111 * t2018 - 0.3e1 * t2833 * t8249 * t2019 + 0.24e2 * t32107 * t2824 * t31881 - 0.36e2 * t8245 * t2824 * t6264 + 0.6e1 * t2823 * t1023 * t707 * t6176 + 0.6e1 * t2823 * t32118 * t2748 - 0.3e1 * t2833 * t8253 * t2024 - 0.18e2 * t8245 * t8249 * t8086 + 0.18e2 * t2823 * t2824 * t32128 + 0.2e1 * t2823 * t2824 * t28711 - 0.6e1 * t262 * t32135 * t6264 + 0.6e1 * t262 * t8280 * t6270 - 0.3e1 * t2833 * t8253 * t2019 - 0.18e2 * t8245 * t8253 * t8086 - 0.3e1 * t262 * t6370 * t2785 - 0.3e1 * t2833 * t1023 * t2018 * t708 - t2833 * t2824 * t6192;
19176   t32178 = t731 * t2784;
19177   t32189 = t31926 * t194;
19178   t32196 = t694 * t8218;
19179   t32213 = t1887 * t2812;
19180   t32217 = -t1014 * t262 * t28669 + t188 * t197 * t32070 + 0.6e1 * t1893 * t262 * t32213 + 0.18e2 * t1893 * t2823 * t8249 + 0.18e2 * t1893 * t2823 * t8253 - 0.3e1 * t2019 * t262 * t8284 - 0.3e1 * t2024 * t262 * t8284 - 0.3e1 * t2024 * t2833 * t8249 - 0.3e1 * t2069 * t262 * t8197 - t262 * t2836 * t6253 - t262 * t31772 * t738 - 0.3e1 * t262 * t32196 * t708 + 0.12e2 * t2748 * t2823 * t32178 + 0.14e2 * t2823 * t2824 * t6270 + 0.6e1 * t2823 * t6176 * t8249 - 0.3e1 * t2824 * t2833 * t32189 - t2824 * t2833 * t6253 - 0.3e1 * t2833 * t32092 * t708 - 0.3e1 * t2833 * t32118 * t708 - 0.6e1 * t2833 * t32178 * t708;
19181   t32224 = t8219 * t187;
19182   t32234 = t215 * t216;
19183   t32235 = t6345 * t1030;
19184   t32243 = 0.6e1 * t2815 * t6352 + 0.6e1 * t6337 * t2819 - t734 * t737 * (t32157 + t32217) - t2815 * t6391 + 0.6e1 * t8221 * t2062 - 0.3e1 * t32224 * t744 + 0.2e1 * t734 * t2060 * t1030 * t6390 - t28620 * t1031 + 0.6e1 * t2055 * t8241 - 0.18e2 * t32234 * t32235 * t6351 + 0.24e2 * t734 * t28635 * t1030 * t6347;
19185   t32248 = 0.18e2 * t2857 * t7918 * t1868 + t31482 + t31483 + t31484 + 0.3e1 * t169 * t671 * t31523 + t169 * t175 * (0.6e1 * t2060 * t2079 * t2841 * t734 + 0.6e1 * t2060 * t734 * t743 * t8294 - 0.18e2 * t2061 * t2841 * t6346 * t734 + t221 * t32070 * params->beta - 0.18e2 * t2055 * t8233 + 0.12e2 * t2055 * t8237 - 0.3e1 * t2055 * t8295 - 0.3e1 * t2080 * t8221 - 0.6e1 * t2815 * t6348 - 0.3e1 * t2842 * t6337 + t32243) * t748 - t31703 - t31704 + t28468 - t31706 - t31708;
19186   t32250 = t2844 * t6117;
19187   t32262 = t746 * t1868;
19188   t32266 = t8297 * t748;
19189   t32275 = t2090 * t677;
19190   t32282 = t1033 * t28769;
19191   t32286 = 0.9e1 * t1768 * t1881 * t7918 + 0.18e2 * t1768 * t32275 * t7889 - 0.6e1 * t2849 * t32282 * t6114 - t28279 - t28323 + t28329 - t28483 - t28486 + t31717 + t31718 - t31720;
19192   t32289 = t746 * t2082;
19193   t32294 = t169 * t1868;
19194   t32297 = t746 * t1881;
19195   t32301 = -0.9e1 * t1768 * t2850 * t32297 + 0.18e2 * t2862 * t32294 + t28508 + t31734 - t31736 + t31738 - t31740 - t31741 - t31743 - t31745 + t31747;
19196   t32306 = t2082 * t677;
19197   t32329 = 0.9e1 * t1768 * t1769 * t8011 - 0.3e1 * t2082 * t2849 * t7972 - 0.18e2 * t2803 * t2857 * t6401 + t28369 + t28521 + t28524 + t31752 + t31753 + t31755 - t31757 + t31759;
19198   t32333 = t28493 + t31732 + t32248 - t31394 + t31395 + t31336 - t31337 - t31338 + t28518 - t31724 + t31725 - t31413 - t28449 - t31415 - t31417 - t27809 + t27813 + t31348 + t31716 - t28499 - t27888 - t27891 + t28513 - t31360 + t27829 - t31727 + t31730 + t27883 + t32301 - t27816 + t31330 - t28489 + t31384 + t31386 - t28356 + t28222 + t28420 + t28422 + t31409 + t31748 - t28426 + t32286 + t28337 + t31352 - t31354 + t31332 - t31711 - t31713 + t28210 + t31469 + t31392 - t31472 + t31474 - t31355 + 0.6e1 * t169 * t6067 * t1033 * t748 + 0.18e2 * t2857 * t224 * t8011 * t677 - t31339 - t31475 - t31476 - t28244 - 0.18e2 * t1768 * t7972 * t7870 - 0.18e2 * t2857 * t2850 * t32262 + 0.9e1 * t1768 * t32266 * t677 + 0.6e1 * t2849 * t7889 * t32289 + 0.18e2 * t2857 * t1769 * t8149 - 0.9e1 * t1768 * t2850 * t32306 + 0.9e1 * t1768 * t6076 * t2728 + 0.36e2 * t2857 * t1769 * t8144 + 0.18e2 * t2857 * t2853 * t6275 + 0.6e1 * t2849 * t32250 * t2090 - t2849 * t2850 * t6393 + 0.6e1 * t2857 * t2858 * t6147 - 0.9e1 * t1768 * t5856 * t9882 + 0.18e2 * t169 * t7882 * t2728 - 0.9e1 * t1768 * t6401 * t2728 - 0.3e1 * t2849 * t31387 * t746 + t31750 + t32329;
19199   t32334 = my_piecewise3(t359, t31213 + t31246 + t31280 + t31311, t32333);
19200   t32338 = 0.12e2 * t3089 * t385;
19201   t32348 = t169 * t982;
19202   t32349 = t26667 * t580;
19203   t32356 = t936 * t6655;
19204   t32362 = t982 * t27681;
19205   t32366 = t936 * t6744;
19206   t32375 = t257 * t1526;
19207   t32376 = t2635 * t1454;
19208   t32381 = t26713 * t886 * t5862;
19209   t32385 = t606 * t8393;
19210   t32388 = t26703 * t886 * t5862;
19211   t32393 = t6604 * t4 * t1451;
19212   t32411 = -0.18755100000000000000e1 * t29955 * t32375 * t32376 + 0.55570666666666666666e0 * t119 * t6680 * t32381 + 0.12503400000000000000e1 * t32385 - 0.10805407407407407407e0 * t119 * t27069 * t32388 - 0.27785333333333333334e0 * t2547 * t6680 * t32393 + 0.34431666666666666666e0 * t26743 - 0.10329500000000000000e1 * t26747 + 0.79418812500000000000e1 * t6730 * t2524 * t1555 - 0.66182343750000000000e1 * t27053 * t940 * t6667 + 0.23668593750000000000e0 * t27007 * t940 * t6667 - 0.47337187500000000000e0 * t6666 * t2524 * t1555;
19213   t32431 = t277 * t1526;
19214   t32433 = t29968 * t32431 * t32376;
19215   t32435 = 0.16068111111111111111e1 * t26692 - 0.68863333333333333332e0 * t26694 - 0.45908888888888888888e0 * t26696 + 0.19128703703703703703e0 * t26698 + 0.17215833333333333333e0 * t26700 + 0.94674375000000000000e0 * t1571 * t8471 * t488 - 0.52945875000000000000e1 * t1554 * t8471 * t488 - 0.52945875000000000000e1 * t8509 * t1563 - 0.17648625000000000000e1 * t2516 * t6713 + 0.94674375000000000000e0 * t8498 * t1563 + 0.31558125000000000000e0 * t2532 * t6713 - 0.92965500000000000000e1 * t32433;
19216   t32437 = t1697 * t6604;
19217   t32439 = t29968 * t32437 * t32376;
19218   t32441 = t559 * t6610;
19219   t32443 = t29968 * t32441 * t32376;
19220   t32445 = t8410 * t5862;
19221   t32447 = t106 * t474 * t32445;
19222   t32449 = t2489 * t5868;
19223   t32451 = t106 * t560 * t32449;
19224   t32453 = t8396 * t1451;
19225   t32455 = t2500 * t474 * t32453;
19226   t32457 = t8405 * t1454;
19227   t32459 = t2500 * t474 * t32457;
19228   t32461 = t2494 * t5868;
19229   t32463 = t106 * t474 * t32461;
19230   t32465 = t1814 * t2543;
19231   t32466 = 0.69463333333333333334e0 * t32465;
19232   t32467 = t1814 * t2540;
19233   t32468 = 0.11577222222222222222e0 * t32467;
19234   t32469 = t606 * t8402;
19235   t32471 = t606 * t8474;
19236   t32473 = -0.17215833333333333333e1 * t32439 + 0.61977000000000000000e1 * t32443 + 0.12395400000000000000e2 * t32447 - 0.34431666666666666667e0 * t32451 - 0.18593100000000000000e2 * t32455 + 0.61977000000000000000e1 * t32459 + 0.10329500000000000000e1 * t32463 + t32466 - t32468 - 0.41678000000000000001e0 * t32469 - 0.41678000000000000001e0 * t32471;
19237   t32474 = t8513 * t8407;
19238   t32476 = t606 * t8420;
19239   t32478 = t606 * t8425;
19240   t32480 = t8513 * t8398;
19241   t32499 = t599 * t8461;
19242   t32502 = t6610 * t4 * t1451;
19243   t32504 = t2500 * t560 * t32502;
19244   t32506 = t599 * t8412;
19245   t32508 = t8423 * t5862;
19246   t32510 = t106 * t560 * t32508;
19247   t32512 = 0.2e1 / 0.9e1 * t26743 - 0.2e1 / 0.3e1 * t26747 + 0.28e2 / 0.27e2 * t26692 - 0.4e1 / 0.9e1 * t26694 - 0.8e1 / 0.27e2 * t26696 + 0.10e2 / 0.81e2 * t26698 + t26700 / 0.9e1 - 0.6e1 * t32433 - 0.10e2 / 0.9e1 * t32439 + 0.4e1 * t32443 + 0.8e1 * t32447 - 0.2e1 / 0.9e1 * t32451 - 0.12e2 * t32455 + 0.4e1 * t32459 + 0.2e1 / 0.3e1 * t32463 + 0.2e1 * t32499 + 0.8e1 * t32504 - 0.4e1 / 0.3e1 * t32506 - 0.8e1 * t32510;
19248   t32513 = t1805 * t2496;
19249   t32514 = 0.8e1 / 0.9e1 * t32513;
19250   t32515 = t1805 * t2491;
19251   t32516 = 0.8e1 / 0.27e2 * t32515;
19252   t32517 = t599 * t8458;
19253   t32519 = t599 * t8451;
19254   t32521 = t8448 * t8455;
19255   t32523 = t599 * t8467;
19256   t32525 = t8448 * t8464;
19257   t32528 = t106 * t6995 * t32388;
19258   t32531 = t2500 * t1698 * t32393;
19259   t32533 = t8396 * t1454;
19260   t32535 = t2500 * t560 * t32533;
19261   t32538 = t106 * t1698 * t32381;
19262   t32541 = t2500 * t474 * t6624;
19263   t32543 = t30170 * t2502;
19264   t32545 = t2500 * t933;
19265   t32548 = t2500 * t560 * t6615;
19266   t32554 = t228 * t12947 * t8428;
19267   t32556 = t32514 - t32516 + 0.2e1 / 0.9e1 * t32517 + 0.10e2 / 0.27e2 * t32519 + 0.44e2 / 0.9e1 * t32521 - 0.2e1 / 0.3e1 * t32523 - 0.44e2 / 0.3e1 * t32525 - 0.80e2 / 0.81e2 * t32528 - 0.20e2 / 0.9e1 * t32531 - 0.4e1 / 0.3e1 * t32535 + 0.40e2 / 0.9e1 * t32538 + 0.4e1 * t32541 - 0.98e2 / 0.9e1 * t32543 + 0.28e2 / 0.81e2 * t32545 - 0.4e1 / 0.3e1 * t32548 + t26998 - 0.4e1 / 0.9e1 * t26741 + 0.2e1 / 0.3e1 * t26745 + 0.8e1 / 0.9e1 * t26749 + 0.14e2 / 0.3e1 * t32554;
19268   t32557 = t32512 + t32556;
19269   t32572 = t1563 * t488;
19270   t32575 = -0.54181400000000000001e1 * t32474 + 0.69463333333333333334e-1 * t32476 + 0.92617777777777777778e-1 * t32478 + 0.90302333333333333335e0 * t32480 - 0.41678000000000000001e0 * t26963 + 0.69463333333333333332e-1 * t26965 + 0.35297250000000000000e1 * t486 * t32557 + 0.12503400000000000000e1 * t2547 * t1582 * t32502 - 0.37510200000000000000e1 * t2547 * t258 * t32453 + 0.20839000000000000000e0 * t119 * t258 * t32461 + 0.12503400000000000000e1 * t2547 * t258 * t32457 + 0.79418812500000000000e1 * t8506 * t32572;
19271   t32590 = 0.13772666666666666666e1 * t32513;
19272   t32591 = 0.45908888888888888888e0 * t32515;
19273   t32594 = -0.47337187500000000000e0 * t8495 * t32572 + 0.62517000000000000000e0 * t29955 * t26800 * t32376 - 0.13892666666666666667e0 * t29955 * t26777 * t32376 + 0.30988500000000000000e1 * t32499 + 0.12395400000000000000e2 * t32504 - 0.20659000000000000000e1 * t32506 - 0.12395400000000000000e2 * t32510 + t32590 - t32591 + 0.34431666666666666666e0 * t32517 + 0.57386111111111111111e0 * t32519;
19274   t32615 = 0.75749666666666666668e1 * t32521 - 0.10329500000000000000e1 * t32523 - 0.22724900000000000001e2 * t32525 - 0.15302962962962962963e1 * t32528 - 0.34431666666666666667e1 * t32531 - 0.20659000000000000000e1 * t32535 + 0.68863333333333333334e1 * t32538 + 0.25006800000000000000e1 * t119 * t258 * t32445 + 0.61977000000000000000e1 * t32541 - 0.34731666666666666667e-1 * t119 * t1582 * t32449 - 0.20839000000000000000e0 * t2547 * t1582 * t32533 - 0.12503400000000000000e1 * t119 * t1582 * t32508;
19275   t32621 = t241 * t204 * t8433;
19276   t32625 = t2547 * t946;
19277   t32627 = t30232 * t2548;
19278   t32636 = t27013 - 0.16871516666666666667e2 * t32543 + 0.53560370370370370369e0 * t32545 - 0.20659000000000000000e1 * t32548 + 0.16671200000000000000e1 * t32621 + 0.63116250000000000000e0 * t493 * t32557 + 0.30872592592592592592e0 * t32625 - 0.44456533333333333333e1 * t32627 + 0.12503400000000000000e1 * t2547 * t258 * t6624 - 0.20839000000000000000e0 * t2547 * t1582 * t6615 + 0.92617777777777777776e0 * t27030;
19279   t32648 = 0.69463333333333333333e0 * t27032 + t27034 - 0.68863333333333333332e0 * t26741 + 0.10329500000000000000e1 * t26745 + 0.13772666666666666666e1 * t26749 + 0.41678000000000000001e0 * t27043 + 0.72306500000000000001e1 * t32554 - 0.13892666666666666667e0 * t27058 - 0.11577222222222222222e0 * t27063 + 0.69463333333333333333e-1 * t27065 + 0.30872592592592592592e-1 * t27067 - 0.34731666666666666666e0 * t27088;
19280   t32652 = (t32411 + t32435 + t32473 + t32575 + t32594 + t32615 + t32636 + t32648) * t506;
19281   t32655 = 0.3e1 * t32348 * t32349 - 0.57895126195293126243e3 * t8706 * t6740 + 0.18000000000000000000e2 * t2607 * t6651 - 0.19298375398431042081e3 * t32356 * t6657 - t169 * t2685 * t7072 / 0.2e1 - 0.3e1 * t169 * t32362 * t7080 + 0.20690405167709360120e4 * t32366 * t6748 + 0.10000000000000000000e1 * t27141 * t950 + 0.30000000000000000000e1 * t6636 * t2552 + 0.30000000000000000000e1 * t1543 * t8525 + 0.10000000000000000000e1 * t485 * t32652;
19282   t32675 = 0.11415555555555555555e-1 * t26743 - 0.34246666666666666665e-1 * t26747 + 0.53272592592592592591e-1 * t26692 - 0.22831111111111111110e-1 * t26694 - 0.15220740740740740740e-1 * t26696 + 0.63419753086419753085e-2 * t26698 + 0.57077777777777777777e-2 * t26700 - 0.30822000000000000000e0 * t32433 - 0.57077777777777777775e-1 * t32439 + 0.20547999999999999999e0 * t32443 + 0.41096000000000000000e0 * t32447 - 0.11415555555555555555e-1 * t32451 - 0.61643999999999999998e0 * t32455 + 0.20547999999999999999e0 * t32459 + 0.34246666666666666666e-1 * t32463 + 0.10274000000000000000e0 * t32499 + 0.41095999999999999998e0 * t32504 - 0.68493333333333333330e-1 * t32506 - 0.41095999999999999999e0 * t32510;
19283   t32676 = 0.45662222222222222220e-1 * t32513;
19284   t32677 = 0.15220740740740740740e-1 * t32515;
19285   t32695 = t32676 - t32677 + 0.11415555555555555555e-1 * t32517 + 0.19025925925925925925e-1 * t32519 + 0.25114222222222222221e0 * t32521 - 0.34246666666666666665e-1 * t32523 - 0.75342666666666666662e0 * t32525 - 0.50735802469135802467e-1 * t32528 - 0.11415555555555555555e0 * t32531 - 0.68493333333333333331e-1 * t32535 + 0.22831111111111111110e0 * t32538 + 0.20547999999999999999e0 * t32541 - 0.55936222222222222217e0 * t32543 + 0.17757530864197530864e-1 * t32545 - 0.68493333333333333332e-1 * t32548 + t26753 - 0.22831111111111111110e-1 * t26741 + 0.34246666666666666665e-1 * t26745 + 0.45662222222222222220e-1 * t26749 + 0.23972666666666666665e0 * t32554;
19286   t32697 = (t32675 + t32695) * t251;
19287   t32701 = t8678 * t484;
19288   t32706 = t2505 * t1597;
19289   t32711 = t2681 * t7082;
19290   t32729 = -0.3109070e-1 * t32697 + 0.60000000000000000000e1 * t8385 * t6648 + 0.30000000000000000000e1 * t32701 * t507 + 0.30000000000000000000e1 * t8380 * t1593 + 0.96491876992155210402e2 * t32706 * t1601 + 0.10000000000000000000e1 * t2508 * t6736 + 0.3e1 * t169 * t32711 * t1761 + 0.18000000000000000000e2 * t6644 * t8374 + 0.18000000000000000000e2 * t1598 * t2552 * t1549 + 0.11579025239058625248e4 * t6745 * t2555 * t6647 - 0.24000000000000000000e2 * t6656 * t950 * t6647 - 0.3e1 / 0.2e1 * t169 * t8377 * t1757;
19291   t32747 = t283 * t216;
19292   t32748 = t7024 * t979;
19293   t32786 = t1631 * t8830;
19294   t32788 = t1631 * t8826;
19295   t32839 = t506 * t187;
19296   t32840 = t505 * t1592;
19297   t32854 = -0.19046733076622961759e4 * t27146 * t949 * t2609 + 0.11843525281307230343e3 * t1548 * t8524 * t536 + 0.49009467336851114346e6 * t26939 * t949 * t6871 + 0.11843525281307230343e3 * t8684 * t505 * t1710 - 0.35530575843921691030e3 * t8698 * t1707 - 0.63489110255409872532e3 * t2607 * t2608 * t6735 - 0.12252366834212778586e6 * t27154 * t949 * t8719 - 0.19046733076622961759e4 * t8385 * t1592 * t2609 + 0.11843525281307230343e3 * t27133 * t949 * t536 + 0.11428039845973777056e5 * t6656 * t2551 * t1713 - 0.12252366834212778586e6 * t6745 * t2551 * t8719 + 0.47374101125228921372e3 * t8706 * t6856 - 0.38093466153245923518e4 * t6644 * t2551 * t2609 - 0.19046733076622961759e4 * t8698 * t8722 - 0.19046733076622961759e4 * t8714 * t8722 - 0.35530575843921691029e3 * t2607 * t32839 * t32840 - 0.12252366834212778586e6 * t8717 * t8718 * t32840 + 0.11843525281307230343e3 * t8693 * t1710 + 0.39478417604357434478e2 * t2601 * t6865 + 0.23687050562614460687e3 * t6639 * t2551 * t536;
19298   t32893 = t2505 * t1547;
19299   t32899 = t27101 * t187;
19300   t32903 = 0.11843525281307230343e3 * t8703 * t1710 - 0.19046733076622961759e4 * t1598 * t8524 * t2609 + 0.11428039845973777056e5 * t27149 * t949 * t1713 + 0.61370581910589784405e0 * t32697 * t187 + 0.11428039845973777056e5 * t8706 * t2608 * t32840 - 0.35530575843921691030e3 * t8714 * t1707 - 0.22856079691947554112e5 * t8717 * t6862 - 0.19739208802178717239e2 * t2508 * t6865 - 0.40841222780709261955e5 * t32366 * t6871 - 0.19739208802178717239e2 * t27141 * t959 - 0.59217626406536151717e2 * t6636 * t2604 - 0.59217626406536151717e2 * t1543 * t8711 - 0.19739208802178717239e2 * t485 * t32652 * t187 - 0.59217626406536151717e2 * t32701 * t536 - 0.59217626406536151717e2 * t8380 * t1710 - 0.19046733076622961759e4 * t32706 * t1713 + 0.38093466153245923519e4 * t32356 * t6862 + 0.11843525281307230343e3 * t32893 * t1707 - 0.11843525281307230343e3 * t8385 * t6856 - 0.39408462447654052777e7 * t27099 * t949 * t32899 * t6647;
19301   t32905 = (t32854 + t32903) * t265;
19302   t32911 = t531 * t2645 * t964;
19303   t32915 = t517 * t1576 * t953;
19304   t32919 = t6889 * t2587;
19305   t32922 = -t26775 / 0.108e3 + t26785 / 0.144e3 - 0.11e2 / 0.54e2 * t6760 * t2571 + 0.11e2 / 0.81e2 * t6760 * t2567 - 0.2e1 / 0.81e2 * t32786 + t32788 / 0.27e2 - t517 * t8840 * t32502 / 0.6e1 - t1631 * t8833 / 0.27e2 - 0.7e1 / 0.81e2 * t1631 * t8837 - t26792 / 0.2304e4 - t531 * t533 * t474 * t32905 / 0.1536e4 - t32911 / 0.5184e4 - t26798 / 0.108e3 + 0.5e1 / 0.3888e4 * t32915 + 0.209e3 / 0.1296e4 * t27398 * t965 - 0.19e2 / 0.432e3 * t32919 + 0.11e2 / 0.324e3 * t26808;
19306   t32926 = t255 * t2546 * t8542;
19307   t32936 = t6670 * t520;
19308   t32938 = t517 * t32936 * t8406;
19309   t32940 = t6670 * t1642;
19310   t32942 = t517 * t32940 * t8397;
19311   t32959 = t26812 / 0.81e2 + t26814 / 0.54e2 - 0.5e1 / 0.144e3 * t32926 - t510 * t8543 / 0.18e2 - t517 * t2570 * t32461 / 0.144e3 - t517 * t8816 * t32457 / 0.24e2 + 0.7e1 / 0.72e2 * t32938 - 0.7e1 / 0.108e3 * t32942 + 0.2e1 / 0.9e1 * t1631 * t8817 + 0.2e1 / 0.9e1 * t1631 * t8820 + t26817 / 0.2304e4 - 0.5e1 / 0.648e3 * t26819 - t557 * t2645 * t560 * t6624 / 0.192e3 + t26836 / 0.108e3 + t26857 / 0.144e3 - t26867 / 0.384e3 - t1631 * t8810 / 0.6e1;
19312   t32962 = t517 * t8825 * t8392;
19313   t32972 = t517 * t498 * t520 * t2495;
19314   t32973 = t32972 / 0.216e3;
19315   t32976 = t517 * t498 * t1642 * t2490;
19316   t32977 = t32976 / 0.324e3;
19317   t32979 = t517 * t8829 * t8419;
19318   t32981 = t242 * t6754;
19319   t32983 = t517 * t32981 * t8424;
19320   t32999 = t31 * t114;
19321   t33000 = t32999 * t14179;
19322   t33001 = t27069 * t6604;
19323   t33005 = t32962 / 0.48e2 - t517 * t2570 * t32445 / 0.12e2 - 0.7e1 / 0.54e2 * t517 * t8836 * t32381 + t32973 - t32977 + t32979 / 0.216e3 + 0.7e1 / 0.648e3 * t32983 + t517 * t2566 * t32449 / 0.216e3 + t517 * t2566 * t32508 / 0.6e1 - t26870 / 0.576e3 + t26873 / 0.384e3 + t517 * t8816 * t32453 / 0.8e1 - 0.19e2 / 0.1296e4 * t26875 - t26877 / 0.324e3 - t26882 - 0.209e3 / 0.1944e4 * t26890 + 0.7e1 / 0.216e3 * t33000 * t33001 * t32376;
19324   t33006 = t6680 * t6610;
19325   t33010 = t1723 * t8652;
19326   t33012 = t7006 * t2631;
19327   t33015 = t557 * t30460 * t2646;
19328   t33023 = t275 * t210 * t3878 * t8572;
19329   t33027 = t1631 * t8535;
19330   t33028 = t33027 / 0.162e3;
19331   t33040 = t6947 * t8579;
19332   t33045 = t1682 * t27210 * t2590;
19333   t33046 = t33045 / 0.3456e4;
19334   t33048 = t557 * t30686 * t2641;
19335   t33049 = t33048 / 0.1728e4;
19336   t33050 = -t33000 * t33006 * t32376 / 0.12e2 + 0.5e1 / 0.216e3 * t33010 + 0.19e2 / 0.648e3 * t33012 + t33015 / 0.216e3 - 0.19e2 / 0.288e3 * t6889 * t2615 - t549 * t8574 / 0.72e2 - t33023 / 0.288e3 + 0.11e2 / 0.54e2 * t6760 * t2575 + t33028 - t1682 * t1684 * t8726 * t476 / 0.768e3 - t1682 * t1684 * t2613 * t1536 / 0.768e3 + t1628 * t8795 / 0.96e2 - 0.77e2 / 0.486e3 * t26903 + t33040 / 0.108e3 - t6947 * t8602 / 0.72e2 + t33046 + t33049;
19337   t33054 = t557 * t30686 * t2636;
19338   t33055 = 0.5e1 / 0.10368e5 * t33054;
19339   t33060 = t26849 * t6821;
19340   t33066 = t6828 * t6950 * t8626;
19341   t33073 = t1451 * t539 * t265;
19342   t33078 = t1723 * t8646;
19343   t33079 = t33078 / 0.648e3;
19344   t33081 = t557 * t2645 * t968;
19345   t33085 = t265 * t1526;
19346   t33113 = -t33055 + 0.7e1 / 0.768e3 * t1671 * t2578 * t2579 * t6969 + t26848 * t2578 * t2579 * t33060 / 0.64e2 + t33066 / 0.288e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2489 * t27271 - 0.5e1 / 0.864e3 * t1682 * t27294 * t8423 * t33073 + t33079 + t33081 / 0.7776e4 + t1628 * t8728 / 0.96e2 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t8639 * t33085 * t1451 - t1682 * t1684 * t2489 * t33073 / 0.128e3 - t517 * t1576 * t1649 * t413 / 0.24e2 + t517 * t1576 * t1643 * t413 / 0.36e2 + 0.5e1 / 0.1296e4 * t26906 + t26909 / 0.216e3 - t6828 * t1684 * t8623 * t539 * t1531 * t1451 / 0.192e3 - t6947 * t8632 / 0.36e2;
19347   t33114 = t2612 * t539;
19348   t33128 = t6947 * t8598;
19349   t33132 = t557 * t8565 * t8754;
19350   t33134 = t6994 * t26713;
19351   t33135 = t886 * t5862;
19352   t33140 = t4 * t1451;
19353   t33145 = t886 * t5868;
19354   t33150 = t4 * t1454;
19355   t33158 = t557 * t8565 * t8749;
19356   t33167 = t557 * t8565 * t8759;
19357   t33169 = t27188 * t26703;
19358   t33174 = -t1682 * t1684 * t33114 * t8641 / 0.384e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t963 * t6616 + t26928 / 0.324e3 + t1682 * t1684 * t2613 * t1532 / 0.384e3 + t33128 / 0.108e3 + 0.7e1 / 0.1944e4 * t26931 - 0.5e1 / 0.576e3 * t33132 - 0.5e1 / 0.216e3 * t557 * t2578 * t33134 * t33135 - 0.5e1 / 0.192e3 * t557 * t8764 * t8753 * t33140 - t557 * t2578 * t2640 * t33145 / 0.1152e4 - t557 * t8764 * t2640 * t33150 / 0.192e3 - t1723 * t8750 / 0.24e2 + t33158 / 0.192e3 - t557 * t2578 * t32441 * t33135 / 0.96e2 + t1723 * t8760 / 0.72e2 - t33167 / 0.576e3 + 0.55e2 / 0.7776e4 * t557 * t2578 * t33169 * t33135;
19359   t33180 = t265 * t1531;
19360   t33190 = t1804 * t1698;
19361   t33200 = t1682 * t6950 * t8601;
19362   t33203 = t188 * t284 * t1681;
19363   t33216 = t531 * t8565 * t8561;
19364   t33218 = t277 * t8725;
19365   t33238 = 0.5e1 / 0.432e3 * t557 * t8764 * t8781 * t33140 + t1682 * t1684 * t8639 * t33180 * t1451 / 0.384e3 + t1682 * t8734 * t8405 * t8630 / 0.96e2 - 0.5e1 / 0.576e3 * t1682 * t33190 * t8396 * t8630 + t6828 * t1684 * t10698 * t8625 / 0.192e3 + t33200 / 0.576e3 - 0.5e1 / 0.384e3 * t33203 * t6841 * t8410 * t6915 + 0.5e1 / 0.3888e4 * t27181 - t531 * t2578 * t8556 * t1621 / 0.512e3 + t1628 * t8562 / 0.96e2 - t33216 / 0.768e3 + t1671 * t2578 * t33218 * t2580 / 0.256e3 + t1671 * t2578 * t8556 * t6936 / 0.256e3 + t1671 * t2578 * t2579 * t27587 / 0.768e3 - 0.5e1 / 0.108e3 * t1723 * t8787 - t531 * t8764 * t8572 * t540 / 0.384e3 + t27212 / 0.1728e4;
19366   t33243 = t531 * t30686 * t2618;
19367   t33244 = t33243 / 0.2304e4;
19368   t33253 = t962 * t6822;
19369   t33254 = t1716 * t539;
19370   t33270 = t6828 * t6950 * t8605;
19371   t33274 = t1717 * t413;
19372   t33283 = t962 * t1620;
19373   t33288 = t1631 * t8528;
19374   t33291 = t517 * t204 * t2574;
19375   t33293 = t27214 / 0.108e3 - 0.19e2 / 0.432e3 * t27218 * t2591 + t33244 - 0.19e2 / 0.288e3 * t6889 * t2619 - 0.3e1 / 0.128e3 * t6820 * t2578 * t2579 * t6823 + 0.19e2 / 0.216e3 * t7006 * t2647 - 0.3e1 / 0.256e3 * t27331 * t4988 * t33253 * t33254 + t6828 * t8734 * t2501 * t1673 / 0.192e3 - t1682 * t1684 * t963 * t6620 / 0.384e3 - t27309 * t8606 / 0.72e2 + t33270 / 0.576e3 - 0.4e1 / 0.27e2 * t1631 * t8841 + t1682 * t1684 * t2494 * t33274 / 0.384e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2489 * t33274 - t1682 * t1684 * t33283 * t8641 / 0.768e3 + 0.7e1 / 0.54e2 * t33288 + 0.25e2 / 0.432e3 * t33291;
19376   t33302 = t1671 * t8565 * t8770;
19377   t33310 = t6975 * t8807;
19378   t33320 = t1723 * t8569;
19379   t33325 = t1671 * t8565 * t8790;
19380   t33327 = -t27225 / 0.81e2 - t27228 / 0.432e3 - t27231 / 0.324e3 + t27243 / 0.864e3 + t33302 / 0.192e3 + t557 * t8764 * t8747 * t33140 / 0.64e2 + 0.19e2 / 0.144e3 * t27324 * t2582 - t33310 / 0.36e2 + 0.5e1 / 0.1152e4 * t557 * t2645 * t1698 * t6615 - t27245 / 0.216e3 - 0.5e1 / 0.10368e5 * t27258 - 0.11e2 / 0.162e3 * t27260 - 0.5e1 / 0.162e3 * t27265 - t27269 - 0.5e1 / 0.324e3 * t33320 - t6975 * t8791 / 0.16e2 + t33325 / 0.128e3;
19381   t33339 = t1682 * t6950 * t8582;
19382   t33342 = t1682 * t6950 * t8586;
19383   t33356 = t1682 * t6950 * t8590;
19384   t33367 = t6820 * t8565 * t8799;
19385   t33371 = -t6975 * t8771 / 0.24e2 + t27283 / 0.1728e4 + t27286 / 0.576e3 + t27289 / 0.3456e4 - t1682 * t1684 * t932 * t6882 / 0.2304e4 + t27292 / 0.576e3 - t33339 / 0.576e3 - t33342 / 0.1152e4 - t1682 * t1684 * t963 * t6629 / 0.2304e4 - t1682 * t1684 * t8639 * t8640 * t1454 / 0.768e3 + t6947 * t8591 / 0.144e3 - t33356 / 0.1152e4 - 0.5e1 / 0.162e3 * t1723 * t8783 - t531 * t2578 * t2579 * t6882 / 0.1536e4 + t27252 * t8800 / 0.16e2 - t33367 / 0.128e3 + t1628 * t8558 / 0.48e2;
19386   t33374 = t531 * t8565 * t8557;
19387   t33384 = t6760 * t2563;
19388   t33392 = t1582 * t1526;
19389   t33406 = t2499 * t560;
19390   t33408 = t1682 * t33406 * t8735;
19391   t33412 = -t33374 / 0.384e3 + 0.5e1 / 0.72e2 * t1723 * t8755 + 0.95e2 / 0.1296e4 * t7006 * t2637 - 0.5e1 / 0.432e3 * t1723 * t8778 - 0.77e2 / 0.486e3 * t26805 * t954 + 0.11e2 / 0.324e3 * t33384 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2613 * t1527 + t6947 * t8587 / 0.144e3 + t33000 * t33392 * t32376 / 0.16e2 + 0.5e1 / 0.432e3 * t6947 * t8539 - t27343 / 0.144e3 + t27355 / 0.216e3 + t33203 * t1684 * t2489 * t6915 / 0.128e3 + t6947 * t8736 / 0.36e2 + 0.5e1 / 0.1152e4 * t33408 - 0.5e1 / 0.3456e4 * t27370 - t27383 / 0.1152e4;
19392   t33417 = t1682 * t27368 * t8538;
19393   t33431 = t517 * t8829 * t8411;
19394   t33436 = t517 * t8825 * t8401;
19395   t33441 = t518 * t26922;
19396   t33445 = -t27392 / 0.1728e4 + t27395 / 0.2592e4 - 0.5e1 / 0.1728e4 * t27408 - 0.5e1 / 0.3456e4 * t33417 + 0.5e1 / 0.1152e4 * t1682 * t6841 * t963 * t6611 - 0.19e2 / 0.432e3 * t27414 + 0.19e2 / 0.648e3 * t27416 + t27418 / 0.144e3 + t27421 / 0.2304e4 + t27424 / 0.384e3 - t27427 / 0.1152e4 - t27429 / 0.72e2 - t33431 / 0.36e2 + t1631 * t8813 / 0.18e2 - t33436 / 0.144e3 + t517 * t8840 * t32533 / 0.36e2 + 0.35e2 / 0.972e3 * t517 * t33441 * t32388;
19397   t33448 = t1576 * t6754;
19398   t33465 = t1682 * t6950 * t8616;
19399   t33479 = t2580 * t1716;
19400   t33485 = t1682 * t6950 * t8642;
19401   t33488 = t531 * t8565 * t8794;
19402   t33490 = t1628 * t8847;
19403   t33492 = t1621 * t413;
19404   t33497 = 0.7e1 / 0.108e3 * t517 * t33448 * t32393 - t1682 * t8734 * t2501 * t1621 / 0.384e3 + 0.3e1 / 0.256e3 * t6828 * t4988 * t8623 * t33254 + t6947 * t8583 / 0.72e2 + t6947 * t8617 / 0.144e3 - t33465 / 0.1152e4 + 0.5e1 / 0.864e3 * t33203 * t27294 * t8423 * t6915 - t27331 * t1684 * t932 * t6823 / 0.384e3 + 0.5e1 / 0.3456e4 * t27449 - t27457 / 0.768e3 + t27475 / 0.576e3 - t27478 / 0.1152e4 + t6828 * t1684 * t932 * t33479 / 0.384e3 - t33485 / 0.576e3 - t33488 / 0.768e3 + t33490 / 0.72e2 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2489 * t33492;
19405   t33498 = t1673 * t413;
19406   t33503 = t962 * t1716;
19407   t33509 = t1682 * t6950 * t8631;
19408   t33512 = t1682 * t27368 * t8635;
19409   t33519 = t1620 * t475 * t413;
19410   t33538 = t540 * t1716;
19411   t33559 = t1682 * t27210 * t2625;
19412   t33560 = t33559 / 0.3456e4;
19413   t33566 = 0.5e1 / 0.1152e4 * t6828 * t6841 * t2489 * t33498 - t1682 * t1684 * t33503 * t8641 / 0.768e3 + t33509 / 0.288e3 - 0.5e1 / 0.1728e4 * t33512 + t1682 * t1684 * t963 * t6625 / 0.384e3 - t27331 * t1684 * t33253 * t33519 / 0.128e3 + t6828 * t1684 * t8623 * t33519 / 0.128e3 - t6828 * t1684 * t2494 * t33498 / 0.192e3 + 0.5e1 / 0.216e3 * t6947 * t8636 - t1682 * t1684 * t932 * t6875 / 0.2304e4 - t1682 * t1684 * t932 * t33538 / 0.768e3 + t6947 * t8643 / 0.72e2 + t6828 * t1684 * t8623 * t1536 * t539 / 0.384e3 + t1682 * t1684 * t2494 * t33492 / 0.384e3 - t1682 * t4988 * t33503 * t540 / 0.512e3 + t33560 + 0.5e1 / 0.1152e4 * t6828 * t6841 * t8623 * t1527 * t539;
19414   t33574 = t1671 * t8565 * t8552;
19415   t33577 = t1671 * t30686 * t2581;
19416   t33578 = t33577 / 0.1152e4;
19417   t33582 = t531 * t1616 * t8727;
19418   t33586 = t1628 * t8611;
19419   t33589 = t531 * t6896 * t2614;
19420   t33590 = t33589 / 0.2304e4;
19421   t33591 = t1628 * t8657;
19422   t33592 = t33591 / 0.432e3;
19423   t33602 = t557 * t8565 * t8777;
19424   t33605 = t557 * t8565 * t8782;
19425   t33608 = t557 * t31016 * t8786;
19426   t33614 = -t27309 * t8627 / 0.36e2 - t27513 / 0.1152e4 - t6975 * t8553 / 0.48e2 + t33574 / 0.384e3 - t33578 - 0.19e2 / 0.216e3 * t7006 * t2642 - t33582 / 0.768e3 - 0.209e3 / 0.1944e4 * t27196 * t969 + t33586 / 0.72e2 + t33590 - t33592 - 0.5e1 / 0.2592e4 * t1682 * t27294 * t963 * t6605 - t1682 * t8734 * t2501 * t1717 / 0.384e3 + 0.5e1 / 0.3456e4 * t33602 + 0.5e1 / 0.1296e4 * t33605 - 0.25e2 / 0.3456e4 * t33608 + 0.5e1 / 0.6912e4 * t557 * t2578 * t2634 * t33145;
19427   t33622 = t557 * t31016 * t8766;
19428   t33632 = t1723 * t8566;
19429   t33671 = 0.5e1 / 0.1152e4 * t557 * t8764 * t2634 * t33150 + t1723 * t8767 / 0.18e2 + 0.5e1 / 0.576e3 * t33622 + 0.3e1 / 0.256e3 * t1671 * t2578 * t8556 * t1673 - 0.3e1 / 0.256e3 * t6820 * t2578 * t8556 * t8798 + t33632 / 0.54e2 - t531 * t2578 * t33218 * t540 / 0.512e3 + 0.5e1 / 0.384e3 * t1682 * t6841 * t8410 * t33073 + t1682 * t1684 * t2494 * t27271 / 0.384e3 + t6828 * t1684 * t8623 * t27277 / 0.384e3 + t6828 * t1684 * t932 * t6969 / 0.384e3 - 0.19e2 / 0.432e3 * t27218 * t2626 - t531 * t2578 * t8556 * t1717 / 0.512e3 - t531 * t2578 * t2579 * t6875 / 0.1536e4 + 0.5e1 / 0.192e3 * t557 * t2578 * t32437 * t33135 - t27525 / 0.216e3 - t27528 / 0.3456e4 - t27536 / 0.2304e4;
19430   t33675 = t32922 + t32959 + t33005 + t33050 + t33113 + t33174 + t33238 + t33293 + t33327 + t33371 + t33412 + t33445 + t33497 + t33566 + t33614 + t33671;
19431   t33687 = t1727 * t962;
19432   t33691 = t527 * t8865;
19433   t33702 = t188 * t62 * t26845;
19434   t33709 = t565 * t2612;
19435   t33741 = -0.18e2 * t10693 * t1716 * t2663 * t8892 - 0.3e1 * t1621 * t1679 * t8896 - 0.3e1 * t1621 * t262 * t8931 + 0.18e2 * t1673 * t2662 * t8896 + 0.18e2 * t1673 * t2662 * t8900 - 0.3e1 * t1679 * t2663 * t33538 - 0.3e1 * t1679 * t33687 * t540 - 0.6e1 * t1679 * t33709 * t540 - t262 * t2673 * t6875 - t262 * t2673 * t6882 - t262 * t27613 * t963 - 0.3e1 * t262 * t33691 * t540 + 0.2e1 * t2662 * t2663 * t27587 + 0.18e2 * t2662 * t2663 * t33479 + 0.14e2 * t2662 * t2663 * t6969 + 0.6e1 * t2662 * t6936 * t8896 + 0.24e2 * t2663 * t33060 * t33702 - 0.36e2 * t2663 * t6823 * t8892 - 0.18e2 * t8798 * t8892 * t8896 - 0.18e2 * t8798 * t8892 * t8900;
19436   t33746 = t282 * t8725;
19437   t33789 = t6817 * t972;
19438   t33796 = t1668 * t2651;
19439   t33803 = 0.6e1 * t2662 * t972 * t539 * t6936 - 0.3e1 * t1679 * t33746 * t540 + 0.6e1 * t2662 * t8900 * t6936 - t262 * t572 * t32905 - t1679 * t2663 * t6875 - 0.3e1 * t262 * t8931 * t1717 - 0.3e1 * t262 * t1744 * t8726 - 0.3e1 * t1679 * t8900 * t1621 - t1679 * t2663 * t6882 - 0.3e1 * t262 * t7049 * t2613 - 0.3e1 * t1679 * t8900 * t1717 + 0.6e1 * t2662 * t33687 * t2580 + t188 * t284 * t33675 - 0.3e1 * t1679 * t8896 * t1717 + 0.12e2 * t2662 * t33709 * t2580 - 0.3e1 * t1679 * t972 * t1716 * t540 - 0.6e1 * t262 * t33789 * t6823 + 0.6e1 * t262 * t8927 * t6969 + 0.6e1 * t262 * t33796 * t1673 + 0.6e1 * t2662 * t33746 * t2580;
19440   t33809 = t8866 * t187;
19441   t33813 = -0.3e1 * t7016 * t2679 - t2654 * t7070 - 0.6e1 * t2654 * t7027 + 0.6e1 * t2654 * t7031 - 0.3e1 * t1730 * t8942 - 0.3e1 * t8868 * t1755 + params->beta * t33675 * t289 - t568 * t571 * (t33741 + t33803) + 0.6e1 * t8868 * t1737 - 0.3e1 * t33809 * t578 - t27544 * t980;
19442   t33841 = 0.96491876992155210402e2 * t8385 * t6740 - 0.60000000000000000000e1 * t27133 * t2513 + t169 * (0.6e1 * t1735 * t1754 * t2678 * t568 + 0.6e1 * t1735 * t568 * t577 * t8941 + 0.2e1 * t1735 * t568 * t7069 * t979 - 0.18e2 * t1736 * t2678 * t568 * t7025 + 0.24e2 * t27559 * t568 * t7026 * t979 - 0.18e2 * t32747 * t32748 * t7030 - 0.18e2 * t1730 * t8880 + 0.12e2 * t1730 * t8884 + 0.6e1 * t1730 * t8888 + 0.6e1 * t2658 * t7016 + t33813) * t581 / 0.2e1 - 0.60000000000000000000e1 * t32893 * t1550 - 0.3e1 / 0.2e1 * t169 * t8944 * t1763 * t580 - 0.60000000000000000000e1 * t6639 * t8962 - 0.57895126195293126242e3 * t27149 * t8965 + 0.96491876992155210402e2 * t6644 * t8972 + 0.62071215503128080360e4 * t27154 * t8976 - 0.60000000000000000000e1 * t1548 * t2552 * t1592 - 0.57895126195293126242e3 * t6656 * t8968 * t1549 - 0.20000000000000000000e1 * t1548 * t950 * t6735;
19443   t33848 = t2551 * t6747;
19444   t33877 = -0.24828486201251232145e5 * t26939 * t8975 * t6647 + 0.96491876992155210402e2 * t1598 * t8968 * t1592 + 0.62071215503128080360e4 * t6745 * t33848 * t1549 + 0.96491876992155210402e2 * t27146 * t2556 - 0.12000000000000000000e2 * t6639 * t8959 + 0.19298375398431042081e3 * t6644 * t8969 - 0.60000000000000000000e1 * t1548 * t8525 * t505 + 0.96491876992155210402e2 * t1598 * t8524 * t1600 * t505 - 0.60000000000000000000e1 * t8684 * t6651 + 0.32163958997385070134e2 * t1598 * t2555 * t6735 + 0.19964560303604640732e6 * t27099 * t949 * t27101 * t6647 + 0.62071215503128080360e4 * t8717 * t26671 * t505;
19445   t33880 = my_piecewise3(t296, t32655 + t32729 + t33841 + t33877, t32333);
19446   t33887 = t1038 * t5868 / 0.2e1 + t7086 * t886 / 0.2e1 + 0.3e1 / 0.2e1 * t2867 * t1454 + 0.3e1 / 0.2e1 * t9587 * t436 + 0.6e1 * t360 * t15 + 0.3e1 / 0.2e1 * t3082 * t1463 + 0.9e1 * t9595 * t15 + t29840 + t1106 * t5879 / 0.2e1 + t7523 * t905 / 0.2e1 + 0.3e1 * t2102 * t4 * t377 + t32334 * t46 / 0.2e1 - t32338 - 0.3e1 * t2325 * t4 * t377 - 0.9e1 * t8992 * t15 - 0.6e1 * t297 * t15 - 0.3e1 * t853 * t377 + t33880 * t34 / 0.2e1 + 0.3e1 * t752 * t377 + 0.3e1 / 0.2e1 * t8984 * t413;
19447   t33891 = -0.6e1 * t1476 * t7852 - 0.12e2 * t1476 * t8305 - 0.6e1 * t1517 * t9859 - 0.6e1 * t2442 * t5808 - 0.6e1 * t2442 * t7534 - 0.12e2 * t2448 * t8359 - 0.6e1 * t2451 * t8308 - 0.6e1 * t2479 * t8308 - 0.6e1 * t2483 * t6587 - 0.6e1 * t29803 * t465 - 0.2e1 * t29806 * t929 - t33887 * t98 - 0.6e1 * t8367 * t857;
19448   t33919 = t446 * t1516;
19449   t33922 = -0.6e1 * t1481 * t2439 * t363 - 0.6e1 * t449 * t464 * t9601 - 0.6e1 * t449 * t7840 * t857 + t1119 * t6407 - 0.6e1 * t2448 * t7852 - 0.6e1 * t2448 * t8356 - 0.6e1 * t2451 * t6587 - 0.6e1 * t2479 * t6587 - 0.2e1 * t26657 * t929 - 0.6e1 * t33919 * t929 - 0.3e1 * t447 * t9601 - t7532 * t916 + 0.3e1 * t8303 * t866 - 0.3e1 * t8340 * t857;
19450   t33931 = t1440 * t2474;
19451   t33932 = 0.11e2 / 0.3e1 * t33931;
19452   t33933 = t424 * t7836;
19453   t33938 = t37 * t15;
19454   t33943 = t49 * t15;
19455   t33954 = t2396 * t5781;
19456   t33959 = t2406 * t5795;
19457   t33963 = t1422 * t377 * t414;
19458   t33966 = t2400 * t385;
19459   t33968 = 0.20e2 * t85 * t33966;
19460   t33969 = -0.2200e4 / 0.81e2 * t5760 * t888 - 0.25e2 / 0.3e1 * t454 * t7636 - 0.10e2 * t85 * t33938 + 0.50e2 / 0.81e2 * t919 * t5788 + 0.10e2 * t89 * t33943 - 0.25e2 / 0.9e1 * t919 * t5796 + 0.400e3 / 0.27e2 * t1498 * t2397 + 0.200e3 / 0.9e1 * t1498 * t2401 - 0.50e2 / 0.9e1 * t454 * t7633 + 0.10e2 / 0.9e1 * t85 * t33954 - 0.50e2 / 0.9e1 * t919 * t5792 + 0.10e2 / 0.9e1 * t89 * t33959 + 0.10e2 / 0.3e1 * t85 * t33963 + t33968;
19461   t33971 = t26336 * t897 * t5787;
19462   t33975 = t1431 * t377 * t418;
19463   t33978 = t2410 * t385;
19464   t33980 = 0.20e2 * t89 * t33978;
19465   t33986 = t26320 * t887 * t5771;
19466   t33989 = t5779 * t414;
19467   t33992 = t85 * t5770;
19468   t33993 = t1402 * t1423;
19469   t33996 = t1402 * t1427;
19470   t33999 = t89 * t5786;
19471   t34000 = t15482 * t1436;
19472   t34003 = t1402 * t1432;
19473   t34006 = t1402 * t1436;
19474   t34009 = t5779 * t418;
19475   t34012 = t454 * t1422;
19476   t34015 = t14562 * t1427;
19477   t34018 = 0.40e2 / 0.81e2 * t89 * t33971 - 0.10e2 / 0.3e1 * t89 * t33975 - t33980 + 0.50e2 / 0.27e2 * t454 * t7626 + 0.25e2 * t454 * t7639 + 0.40e2 / 0.81e2 * t85 * t33986 - 0.10e2 * t7811 * t33989 - 0.10e2 / 0.9e1 * t33992 * t33993 + 0.10e2 / 0.3e1 * t7811 * t33996 - 0.10e2 / 0.9e1 * t33999 * t34000 + 0.10e2 / 0.9e1 * t33999 * t34003 - 0.10e2 / 0.3e1 * t7826 * t34006 + 0.10e2 * t7826 * t34009 - 0.100e3 / 0.9e1 * t34012 * t7630 - 0.10e2 / 0.9e1 * t33992 * t34015;
19478   t34023 = t5742 * t924;
19479   t34025 = t1440 * t2458;
19480   t34026 = 0.22e2 / 0.3e1 * t34025;
19481   t34027 = t424 * t7797;
19482   t34029 = t424 * t7800;
19483   t34052 = t424 * t7793;
19484   t34061 = t58 * t2457 * t5799 / 0.4e1 + 0.22e2 / 0.3e1 * t26288 + 0.2e1 * t26292 - 0.2e1 * t26294 + t26285 + 0.154e3 / 0.9e1 * t26286 - 0.11e2 / 0.3e1 * t26290 + t26296 / 0.3e1 + 0.6e1 * t34052 + 0.3e1 * t58 * t26299 * t923 * t5752 - 0.9e1 / 0.4e1 * t17133 * t14133 * t1511;
19485   t34063 = my_piecewise3(t95, 0, -t33932 + t33933 - t58 * t453 * (t33969 + t34018) / 0.8e1 + 0.154e3 / 0.27e2 * t34023 + t34026 - 0.4e1 * t34027 - 0.2e1 * t34029 - 0.9e1 / 0.4e1 * t58 * t5751 * t2473 * t1494 + 0.3e1 / 0.4e1 * t58 * t1493 * t7835 * t459 + 0.3e1 / 0.4e1 * t58 * t7796 * t1511 + t34061);
19486   t34069 = t1473 * t464;
19487   t34134 = 0.20e2 * t31 * t33966;
19488   t34140 = 0.20e2 * t45 * t33978;
19489   t34143 = -0.40e2 / 0.9e1 * t894 * t5796 - 0.6160e4 / 0.81e2 * t6481 * t888 - 0.40e2 / 0.3e1 * t410 * t7636 - 0.10e2 * t31 * t33938 + 0.80e2 / 0.81e2 * t894 * t5788 + 0.10e2 * t45 * t33943 + 0.80e2 / 0.27e2 * t410 * t7626 + 0.40e2 * t410 * t7639 + 0.40e2 / 0.81e2 * t31 * t33986 + 0.10e2 / 0.3e1 * t31 * t33963 + t34134 + 0.40e2 / 0.81e2 * t45 * t33971 - 0.10e2 / 0.3e1 * t45 * t33975 - t34140 + 0.880e3 / 0.27e2 * t1417 * t2397;
19490   t34158 = t410 * t1422;
19491   t34161 = t31 * t5770;
19492   t34168 = t45 * t5786;
19493   t34175 = 0.440e3 / 0.9e1 * t1417 * t2401 - 0.80e2 / 0.9e1 * t410 * t7633 + 0.10e2 / 0.9e1 * t31 * t33954 - 0.80e2 / 0.9e1 * t894 * t5792 + 0.10e2 / 0.9e1 * t45 * t33959 - 0.10e2 * t7629 * t33989 + 0.10e2 * t7650 * t34009 - 0.160e3 / 0.9e1 * t34158 * t7630 - 0.10e2 / 0.9e1 * t34161 * t34015 - 0.10e2 / 0.9e1 * t34161 * t33993 + 0.10e2 / 0.3e1 * t7629 * t33996 - 0.10e2 / 0.9e1 * t34168 * t34000 + 0.10e2 / 0.9e1 * t34168 * t34003 - 0.10e2 / 0.3e1 * t7650 * t34006 - t26456;
19494   t34182 = t404 * t7663 * t74 / 0.8e1 + t7729 * t440 / 0.8e1 + t7714 * t440 / 0.8e1 + t7713 * t426 * t74 / 0.8e1 + t2415 * t1467 / 0.8e1 + t2392 * t1467 / 0.8e1 + t902 * t6530 / 0.24e2 + t6464 * t909 / 0.24e2 + t6467 * t909 / 0.8e1 + t1407 * t2433 / 0.8e1 + t6472 * t909 / 0.8e1 + t1410 * t2433 / 0.4e1 + t1406 * t2414 * t74 / 0.8e1 + t25 * (t34143 + t34175) * t74 / 0.24e2 + t7664 * t440 / 0.8e1;
19495   t34207 = 0.32e2 * t2423 * t385;
19496   t34222 = 0.32e2 * t2429 * t385;
19497   t34235 = 0.3640e4 / 0.81e2 * t26416 * t886 * t5862 - 0.280e3 / 0.9e1 * t7681 * t6915 - 0.560e3 / 0.9e1 * t6512 * t4 * t31432 + 0.56e2 / 0.3e1 * t1450 * t377 * t413 + 0.56e2 / 0.3e1 * t7684 * t31438 - t34207 + 0.3640e4 / 0.81e2 * t26433 * t905 * t5873 - 0.280e3 / 0.9e1 * t7694 * t7393 + 0.560e3 / 0.9e1 * t6521 * t4 * t31449 - 0.56e2 / 0.3e1 * t1459 * t377 * t436 - 0.56e2 / 0.3e1 * t7697 * t31455 + t34222 - 0.56e2 * t7684 * t31460 + 0.56e2 * t7697 * t31463 + 0.28e2 / 0.9e1 * t2420 * t5868 + 0.16e2 * t431 * t15 + 0.28e2 / 0.9e1 * t2426 * t5879 - 0.16e2 * t435 * t15;
19498   t34239 = 0.96e2 * t26352;
19499   t34263 = t7732 * t440 / 0.4e1 + t405 * t7708 / 0.8e1 + t6504 * t909 / 0.24e2 + t1443 * t2433 / 0.8e1 + t427 * t7708 / 0.8e1 + t60 * t66 * t34235 / 0.24e2 + (t34239 - t26503) * t59 * t74 / 0.24e2 + t2386 * t1442 * t74 / 0.8e1 + t7717 * t440 / 0.4e1 + t2387 * t1467 / 0.8e1 + t883 * t6503 * t74 / 0.24e2 + t7722 * t440 / 0.8e1 + t2389 * t1467 / 0.8e1 + t884 * t6530 / 0.24e2 + t6463 * t901 * t74 / 0.24e2;
19500   t34264 = t34182 + t34263;
19501   t34273 = t2383 * t1470;
19502   t34292 = t7774 * t399;
19503   t34303 = 0.96e2 * t26545;
19504   t34304 = 0.192e3 * t26551;
19505   t34305 = 0.960e3 * t26555;
19506   t34306 = 0.1440e4 * t26562;
19507   t34307 = 0.4032e4 * t26566;
19508   t34309 = (-t34303 + t26548 - t26550 + t34304 - t34305 + t26558 - t26561 + t34306 - t34307 + t26571) * t80;
19509   t34310 = t2376 * t1396;
19510   t34313 = t880 * t6452;
19511   t34320 = 0.60e2 * t1397 * t443 * t7737 - 0.360e3 * t1398 * t2436 * t6453 + 0.840e3 * t26389 * t6454 * t912 + 0.60e2 * t1398 * t34310 - 0.4e1 * t2378 * t6533 + 0.60e2 * t2383 * t26398 - 0.12e2 * t34292 * t443 - 0.120e3 * t34313 * t6454 + 0.60e2 * t6445 * t8334 + 0.60e2 * t6457 * t7591 + t34309;
19512   t34326 = -0.12e2 * t7847 * t2451 - 0.6e1 * t2448 * t7855 - 0.2e1 * t449 * t7532 * t928 - 0.2e1 * t449 * t363 * t34063 - 0.3e1 * t2440 * t2331 - 0.6e1 * t34069 * t929 - 0.12e2 * t8342 * t1485 - 0.12e2 * t1476 * t8359 - 0.12e2 * t7847 * t2479 - 0.3e1 * t1474 * t3091 + 0.3e1 * t3121 * t2101 - (0.60e2 * t1397 * t1470 * t2436 + 0.20e2 * t1397 * t6533 * t912 - 0.12e2 * t1392 * t7737 - 0.12e2 * t1470 * t7763 - 0.12e2 * t2436 * t6442 - 0.4e1 * t26535 * t912 - 0.360e3 * t26602 * t8328 - 0.4e1 * t34264 * t400 - 0.360e3 * t34273 * t6453 + 0.120e3 * t6445 * t8331 + t34320) * t97 * t363 - 0.6e1 * t8342 * t1517;
19513   t34366 = 0.2e1 * t81 * t96 * t34063 - 0.4e1 * t400 * t97 * t34264 - 0.12e2 * t6442 * t3107 - 0.4e1 * t2378 * t6562 + 0.6e1 * t881 * t6539 + 0.6e1 * t2377 * t2350 - 0.120e3 * t34313 * t6573 - 0.12e2 * t34292 * t860 + 0.6e1 * t7775 * t863 + 0.6e1 * t397 * t7777 + 0.2e1 * t81 * t5804 * t928 + 0.6e1 * t81 * t1516 * t2478 - 0.12e2 * t7763 * t2345 + 0.12e2 * t397 * t7780 + 0.6e1 * t81 * t464 * t7840 + 0.6e1 * t397 * t7841 - 0.24e2 * t2378 * t6545;
19514   t34409 = 0.120e3 * t1397 * t1398 * t3115 + 0.120e3 * t1397 * t1398 * t3118 + 0.60e2 * t1397 * t443 * t7738 - 0.24e2 * t1470 * t3115 * t400 - 0.24e2 * t1470 * t3118 * t400 - 0.24e2 * t400 * t443 * t7841 + 0.2e1 * t1116 * t6441 + 0.6e1 * t1391 * t3115 + 0.6e1 * t1391 * t3118 - 0.48e2 * t1392 * t7583 - 0.12e2 * t1392 * t7738 + 0.60e2 * t2338 * t34310 - 0.48e2 * t2342 * t7763 - 0.24e2 * t2378 * t6549 - 0.360e3 * t26602 * t7578 - 0.24e2 * t3112 * t6442 + 0.120e3 * t6445 * t7608 + 0.60e2 * t6445 * t7747;
19515   t34416 = t96 * t7737;
19516   t34457 = 0.20e2 * t1113 * t1397 * t6533 + 0.840e3 * t1113 * t26389 * t6454 - 0.8e1 * t1116 * t400 * t6533 - 0.240e3 * t1116 * t6453 * t6454 - 0.24e2 * t11482 * t1516 * t400 + 0.120e3 * t1397 * t443 * t7594 - 0.360e3 * t1398 * t3107 * t6453 - 0.24e2 * t34416 * t400 * t464 - 0.24e2 * t400 * t443 * t7777 - 0.48e2 * t400 * t443 * t7780 - 0.4e1 * t1113 * t26535 - 0.24e2 * t1392 * t7586 - 0.48e2 * t1392 * t7751 - 0.48e2 * t1392 * t7754 + 0.6e1 * t1481 * t2377 - 0.24e2 * t2378 * t6552 + t34309 * t97 + 0.2e1 * t6542 * t881;
19517   t34464 = t6445 * t96;
19518   t34467 = t912 * t1516;
19519   t34481 = t2436 * t464;
19520   t34500 = t6453 * t96;
19521   t34508 = 0.60e2 * t26398 * t3100 + 0.120e3 * t7591 * t6577 + 0.60e2 * t7591 * t6580 + 0.240e3 * t34464 * t7758 + 0.120e3 * t7757 * t34467 * t443 - 0.24e2 * t1392 * t7594 - 0.24e2 * t400 * t1481 * t2436 - 0.360e3 * t23626 * t34273 + 0.120e3 * t7757 * t8334 * t464 + 0.240e3 * t7757 * t34481 * t443 - 0.24e2 * t400 * t7750 * t1516 - 0.24e2 * t1392 * t7603 + 0.60e2 * t1397 * t3107 * t1470 + 0.120e3 * t6445 * t7611 - 0.8e1 * t400 * t3103 * t5804 - 0.24e2 * t6442 * t3104 - 0.720e3 * t34500 * t8328 * t464 + 0.120e3 * t7757 * t928 * t1470 * t443;
19522   t34538 = (t34366 + t34409 + t34457 + t34508) * t227 + t366 * t32333 + t6583 * t1037 + 0.3e1 * t2353 * t2866 - 0.6e1 * t449 * t2331 * t2478 - 0.6e1 * t1476 * t8356 + 0.3e1 * t7845 * t751 - 0.6e1 * t6409 * t1110 - 0.6e1 * t1482 * t3091 - 0.6e1 * t449 * t3091 * t1516 - 0.2e1 * t2442 * t5805 - 0.6e1 * t1476 * t7855 - 0.2e1 * t449 * t1110 * t5804 - t6537 * t1110;
19523   t34540 = t33891 + t33922 + t34326 + t34538;
19524   t34547 = t869 * t3144;
19525   t34549 = t3126 * t878;
19526   t34553 = t9604 * t372;
19527   t34601 = 0.18e2 * t873 * t9631 + 0.36e2 * t873 * t9634 + 0.18e2 * t873 * t9637 + 0.3e1 * t7550 * t1127 + 0.18e2 * t2363 * t3138 + 0.3e1 * t1125 * t7564 + 0.18e2 * t3132 * t2367 + 0.9e1 * t2363 * t3141 + 0.6e1 * t369 * t1116 * t5804 + 0.9e1 * t3132 * t2370 + 0.3e1 * t369 * t97 * t34063 + 0.6e1 * t1125 * t7558 + 0.18e2 * t1125 * t7561 + 0.18e2 * t369 * t3115 * t1516 + 0.9e1 * t873 * t9640 + 0.18e2 * t369 * t1481 * t2478 + 0.18e2 * t369 * t7841 * t464 + 0.18e2 * t369 * t3118 * t1516 + params->d * t34540 * t370 + 0.9e1 * t9617 * t875;
19528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19529     v4rho4[1] = t34540 * t372 * t7 + t1123 * t7567 + t1130 * t7544 + 0.3e1 * t2359 * t3144 + 0.3e1 * t2373 * t3127 + t34601 * t872 + 0.3e1 * t870 * t9643 + 0.3e1 * t878 * t9605 + t26273 + 0.3e1 * t26275 + 0.3e1 * t26277 + t26279 + 0.3e1 * t29791 + 0.3e1 * t29795 + 0.3e1 * t29798 + 0.6e1 * t34547 + 0.6e1 * t34549 + 0.3e1 * t34553;
19530 
19531   t34606 = t368 * t11544;
19532   t34632 = t2439 * t464;
19533   t34641 = -0.8e1 * t11497 * t1476 - 0.8e1 * t14120 * t2479 - 0.4e1 * t1476 * t9849 - 0.4e1 * t2442 * t7852 - 0.4e1 * t2442 * t7855 - 0.8e1 * t2442 * t8305 - 0.4e1 * t2442 * t8356 - 0.4e1 * t2448 * t9854 - 0.8e1 * t2479 * t8342 - 0.8e1 * t2479 * t9859 - 0.8e1 * t2483 * t8342 - 0.2e1 * t3250 * t6587 - 0.4e1 * t3250 * t7847 - 0.2e1 * t3250 * t8308 - 0.8e1 * t34632 * t929 - 0.4e1 * t4302 * t8356;
19534   t34651 = t9795 * t96;
19535   t34672 = t915 * t1516;
19536   t34682 = -0.4e1 * t449 * t9601 * t928 - 0.8e1 * t449 * t3091 * t2478 + t3735 * t2101 + 0.4e1 * t3121 * t2866 - 0.4e1 * t34651 * t465 - 0.4e1 * t1476 * t10271 - 0.2e1 * t1473 * t3219 * t363 - 0.2e1 * t3220 * t2331 + 0.2e1 * t1119 * t8303 - 0.4e1 * t2440 * t3091 - 0.4e1 * t8367 * t1110 - 0.4e1 * t9866 * t1485 - 0.4e1 * t449 * t11407 * t464 - 0.4e1 * t34672 * t929 - 0.8e1 * t9859 * t2451 - 0.2e1 * t449 * t3714 * t1516 - 0.2e1 * t8340 * t1110;
19537   t34684 = t424 * t9805;
19538   t34686 = t424 * t9808;
19539   t34702 = t424 * t9814;
19540   t34707 = t2473 * t2473;
19541   t34711 = t1440 * t3245;
19542   t34717 = 0.4e1 * t34684 - 0.8e1 / 0.3e1 * t34686 - 0.3e1 / 0.4e1 * t58 * t9804 * t1511 - 0.3e1 / 0.4e1 * t58 * t5751 * t3244 * t1494 + 0.3e1 * t58 * t26299 * t3227 * t1494 + t58 * t2457 * t7835 / 0.2e1 - 0.4e1 / 0.3e1 * t34702 - 0.44e2 / 0.9e1 * t33931 + 0.2e1 / 0.3e1 * t33933 + 0.308e3 / 0.27e2 * t34023 + t58 * t1493 * t34707 / 0.2e1 - 0.11e2 / 0.9e1 * t34711 + t58 * t1493 * t9843 * t459 / 0.2e1;
19543   t34721 = t1440 * t3228;
19544   t34723 = t424 * t9844;
19545   t34727 = t9707 * t1427;
19546   t34733 = t1422 * t9722 * t414;
19547   t34736 = t9717 * t1427;
19548   t34741 = t9732 * t1436;
19549   t34745 = t1431 * t5 * t21;
19550   t34749 = t1431 * t9744 * t418;
19551   t34752 = t9740 * t1436;
19552   t34755 = t2406 * t377;
19553   t34759 = t5786 * t3183 * t1432;
19554   t34763 = t1422 * t5 * t21;
19555   t34767 = t26320 * t3164 * t1423;
19556   t34770 = t2396 * t377;
19557   t34774 = t5770 * t3168 * t1423;
19558   t34777 = 0.100e3 / 0.81e2 * t454 * t9708 - 0.10e2 / 0.27e2 * t85 * t34727 - 0.100e3 / 0.27e2 * t454 * t9718 + 0.20e2 / 0.9e1 * t85 * t34733 + 0.10e2 / 0.9e1 * t85 * t34736 - 0.100e3 / 0.27e2 * t919 * t7654 - 0.10e2 / 0.27e2 * t89 * t34741 + 0.20e2 / 0.9e1 * t89 * t34745 + 0.20e2 / 0.9e1 * t89 * t34749 + 0.10e2 / 0.9e1 * t89 * t34752 - 0.20e2 / 0.9e1 * t89 * t34755 - 0.10e2 / 0.27e2 * t89 * t34759 + 0.20e2 / 0.9e1 * t85 * t34763 + 0.40e2 / 0.81e2 * t85 * t34767 + 0.20e2 / 0.9e1 * t85 * t34770 - 0.10e2 / 0.27e2 * t85 * t34774;
19559   t34783 = t26336 * t3179 * t1432;
19560   t34798 = t9711 * t15;
19561   t34801 = t9736 * t15;
19562   t34806 = t919 * t1431;
19563   t34809 = t14562 * t1402;
19564   t34812 = t15482 * t1402;
19565   t34815 = 0.100e3 / 0.81e2 * t919 * t7647 - 0.50e2 / 0.3e1 * t919 * t7660 + 0.40e2 / 0.81e2 * t89 * t34783 + 0.400e3 / 0.81e2 * t1498 * t3165 + 0.200e3 / 0.27e2 * t1498 * t3169 + 0.400e3 / 0.81e2 * t3235 * t1433 + 0.50e2 / 0.9e1 * t919 * t7657 - 0.50e2 / 0.9e1 * t454 * t9723 + 0.200e3 / 0.27e2 * t3235 * t1437 + t33968 - t33980 - 0.20e2 / 0.3e1 * t7811 * t34798 + 0.20e2 / 0.3e1 * t7826 * t34801 - 0.200e3 / 0.27e2 * t34012 * t9712 + 0.200e3 / 0.27e2 * t34806 * t7651 - 0.40e2 / 0.27e2 * t33992 * t34809 + 0.40e2 / 0.27e2 * t33999 * t34812;
19566   t34830 = t58 * t9813 * t1511 / 0.4e1 + 0.22e2 / 0.9e1 * t34721 + 0.2e1 / 0.3e1 * t34723 - t58 * t453 * (t34777 + t34815) / 0.8e1 + 0.88e2 / 0.9e1 * t34025 - 0.8e1 / 0.3e1 * t34027 - 0.4e1 / 0.3e1 * t34029 + 0.4e1 * t34052 + t26285 - 0.3e1 * t17133 * t14133 * t2473 + 0.308e3 / 0.27e2 * t26286 + 0.22e2 / 0.9e1 * t26288 - 0.11e2 / 0.9e1 * t26290;
19567   t34832 = my_piecewise3(t95, 0, t34717 + t34830);
19568   t34850 = 0.11696447245269292414e1 * t27739;
19569   t34851 = 0.11696447245269292414e1 * t27746;
19570   t34852 = 0.32530743900905219526e-1 * t31316;
19571   t34853 = 0.17315859105681463759e2 * t27776;
19572   t34854 = 0.46785788981077169656e1 * t31322;
19573   t34855 = t27738 + t34850 + t27745 - t34851 - t27762 - t27766 + t27775 + t34852 - t34853 + t34854 + t27781;
19574   t34856 = 0.20508037716432813316e4 * t27785;
19575   t34857 = 0.20779030926817756511e3 * t27787;
19576   t34859 = t128 * t9908 * t656;
19577   t34860 = 0.2e1 * t34859;
19578   t34861 = t2728 * t2728;
19579   t34868 = t8765 * t377;
19580   t34891 = t9346 * t377;
19581   t34911 = 0.40e2 / 0.81e2 * t28385 * t3193 * t1451 - 0.64e2 / 0.27e2 * t7943 * t34868 - 0.8e1 / 0.27e2 * t9887 * t1454 + 0.32e2 / 0.9e1 * t1780 * t5 * t21 + 0.16e2 / 0.9e1 * t2697 * t377 - 0.16e2 / 0.3e1 * t2697 * t5779 - 0.8e1 / 0.27e2 * t5861 * t3196 * t1451 + 0.8e1 / 0.9e1 * t1780 * t9774 * t413 + 0.4e1 / 0.9e1 * t9892 * t1454 + t31442 + 0.40e2 / 0.81e2 * t28398 * t3199 * t1460 + 0.64e2 / 0.27e2 * t7955 * t34891 - 0.8e1 / 0.27e2 * t9897 * t1463 + 0.32e2 / 0.9e1 * t1785 * t5 * t21 - 0.16e2 / 0.9e1 * t2703 * t377 + 0.16e2 / 0.3e1 * t2703 * t5779 - 0.8e1 / 0.27e2 * t5872 * t3202 * t1460 + 0.8e1 / 0.9e1 * t1785 * t9785 * t436 + 0.4e1 / 0.9e1 * t9902 * t1463 - t31459;
19582   t34912 = t34911 * t133;
19583   t34914 = t128 * t34912 * t161;
19584   t34916 = t128 * t3413 * t1989;
19585   t34917 = 0.12e2 * t169 * t2096 * t34861 - t27793 - t27796 - t27801 - t27805 - t27809 + t27813 - t34856 + t34857 + t34860 + t34914 + t34916;
19586   t34919 = t2844 * t2844;
19587   t34924 = t9927 * t1848;
19588   t34925 = 0.58482236226346462070e0 * t34924;
19589   t34926 = t9927 * t1834;
19590   t34927 = 0.17315859105681463759e2 * t34926;
19591   t34929 = t9908 * t149 * t668;
19592   t34930 = 0.11696447245269292414e1 * t34929;
19593   t34932 = 0.19751673498613801407e-1 * t34912 * t159;
19594   t34933 = t613 * t9960;
19595   t34934 = 0.8e1 * t34933;
19596   t34935 = t613 * t9962;
19597   t34936 = 0.8e1 * t34935;
19598   t34937 = 0.70178683471615754484e1 * t31331;
19599   t34938 = 0.24e2 * t27821;
19600   t34939 = -0.2e1 * t169 * t175 * t2093 * t34919 - t27816 + t27829 - t34925 - t34927 - t34930 + t34932 + t34934 + t34936 + t34937 - t34938;
19601   t34940 = 0.2e1 * t27834;
19602   t34941 = 0.24e2 * t27836;
19603   t34942 = 0.58482236226346462070e0 * t27862;
19604   t34943 = 0.43374325201206959368e-1 * t27864;
19605   t34944 = 0.65061487801810439052e-1 * t27866;
19606   t34945 = 0.96319466275353142156e0 * t27871;
19607   t34946 = 0.10843581300301739842e-1 * t27877;
19608   t34947 = t34940 - t34941 + t27843 + t27853 - t27861 - t34942 - t34943 - t34944 + t27870 + t34945 + t27875 + t34946;
19609   t34950 = 0.32530743900905219526e-1 * t27879;
19610   t34951 = 0.8e1 * t31351;
19611   t34952 = 0.8e1 * t31353;
19612   t34953 = 0.24e2 * t27884;
19613   t34954 = 0.43374325201206959368e-1 * t31359;
19614   t34957 = 0.70178683471615754484e1 * t27898;
19615   t34958 = 0.24e2 * t31406 * t9940 + t27883 - t27888 - t27891 - t27897 + t34950 - t34951 - t34952 - t34953 - t34954 - t34957;
19616   t34959 = t3431 * t28769;
19617   t34963 = 0.43374325201206959368e-1 * t31374;
19618   t34964 = 0.65061487801810439052e-1 * t31376;
19619   t34965 = 0.96319466275353142155e0 * t31378;
19620   t34966 = 0.8e1 * t28148;
19621   t34967 = 0.11393789434848516922e-2 * t28378;
19622   t34968 = 0.12e2 * t28380;
19623   t34969 = 0.8e1 * t28382;
19624   t34972 = -0.6e1 * t2090 * t2849 * t34959 + 0.12e2 * t32294 * t3420 + t28210 + t28377 + t28420 + t34963 - t34964 + t34965 - t34966 - t34967 + t34968 - t34969;
19625   t34974 = 0.97661052298701573622e-3 * t31391;
19626   t34975 = 0.10389515463408878255e3 * t31393;
19627   t34976 = 0.20e2 * t28423;
19628   t34977 = t9927 * t1854;
19629   t34978 = 0.11696447245269292414e1 * t34977;
19630   t34979 = 0.480e3 * t28427;
19631   t34980 = 0.240e3 * t28429;
19632   t34981 = 0.20779030926817756510e3 * t31398;
19633   t34982 = t34974 - t34975 + t28422 + t34976 + t34978 + t28222 - t28426 - t34979 - t34980 + t34981 + t28434;
19634   t34989 = 0.24e2 * t31414;
19635   t34990 = 0.69263436422725855034e2 * t31416;
19636   t34991 = 0.36622894612013090108e-3 * t31471;
19637   t34992 = 0.3e1 * t1768 * t3448 * t6076 + 0.2e1 * t2082 * t2849 * t9934 + t28226 - t28230 - t28244 - t28437 - t28441 - t28444 - t28449 - t34989 - t34990 - t34991;
19638   t34999 = 0.8e1 * t31473;
19639   t35003 = 0.48e2 * t28450;
19640   t35004 = 0.192e3 * t28452;
19641   t35008 = 0.160e3 * t28456;
19642   t35012 = 0.120e3 * t28458;
19643   t35013 = 0.64e2 * t28460;
19644   t35014 = 0.32e2 * t28462;
19645   t35015 = 0.6e1 * t169 * t3427 * t6397 - 0.3e1 * t1768 * t3448 * t6401 + 0.6e1 * t1868 * t2857 * t9915 - 0.2e1 * t2849 * t2850 * t8297 + t34999 + t35003 + t35004 - t35008 + t35012 + t35013 + t35014;
19646   t35059 = -0.28e2 / 0.81e2 * t3194 * t1451 + 0.32e2 / 0.27e2 * t904 * t34868 + 0.4e1 / 0.27e2 * t9993 * t1454 - 0.8e1 / 0.9e1 * t69 * t5 * t21 - 0.4e1 / 0.9e1 * t2716 * t377 + 0.4e1 / 0.3e1 * t2716 * t5779 + 0.4e1 / 0.27e2 * t3197 * t1451 - 0.2e1 / 0.9e1 * t69 * t9774 * t413 - t9998 * t1454 / 0.9e1 + t31497 - 0.28e2 / 0.81e2 * t3200 * t1460 - 0.32e2 / 0.27e2 * t906 * t34891 + 0.4e1 / 0.27e2 * t10003 * t1463 - 0.8e1 / 0.9e1 * t72 * t5 * t21 + 0.4e1 / 0.9e1 * t2722 * t377 - 0.4e1 / 0.3e1 * t2722 * t5779 + 0.4e1 / 0.27e2 * t3203 * t1460 - 0.2e1 / 0.9e1 * t72 * t9785 * t436 - t10008 * t1463 / 0.9e1 - t31510;
19647   t35063 = 0.11696447245269292414e1 * t31707;
19648   t35064 = t10238 * t748;
19649   t35068 = 0.11696447245269292414e1 * t31710;
19650   t35069 = 0.64e2 * t31712;
19651   t35070 = 0.4e1 * t31715;
19652   t35071 = t746 * t2844;
19653   t35087 = 0.12e2 * t10013 * t224 * t2857 * t677 + 0.24e2 * t10028 * t1769 * t2857 - t10242 * t2082 * t2849 + 0.3e1 * t169 * t35059 * t671 + 0.6e1 * t1768 * t32266 * t999 + 0.6e1 * t1768 * t35064 * t677 + 0.8e1 * t2849 * t35071 * t7889 + 0.6e1 * t2857 * t3427 * t6076 - t35063 - t35068 - t35069 + t35070;
19654   t35092 = 0.24415263074675393405e-3 * t28474;
19655   t35093 = 0.8e1 * t28476;
19656   t35094 = 0.96e2 * t28478;
19657   t35097 = t3522 * t6117;
19658   t35101 = 0.11393789434848516923e-2 * t31719;
19659   t35105 = 0.6e1 * t10258 * t1881 * t2857 + 0.12e2 * t1768 * t7870 * t9934 + 0.2e1 * t2090 * t2849 * t35097 + 0.12e2 * t31406 * t9924 - t28279 - t28323 + t28329 + t35092 - t35093 + t35094 - t35101;
19660   t35112 = t1404 * t3425;
19661   t35113 = 0.12e2 * t35112;
19662   t35114 = t1917 * t3425;
19663   t35115 = 0.32e2 * t35114;
19664   t35118 = t19783 * t7870;
19665   t35121 = 0.70178683471615754484e1 * t31723;
19666   t35125 = -0.24e2 * t1033 * t169 * t173 * t35118 - 0.6e1 * t1868 * t2857 * t9948 + 0.24e2 * t2853 * t2857 * t8144 + 0.12e2 * t2853 * t2857 * t8149 + t28337 + t28483 - t28486 - t28489 + t28493 + t35113 - t35115 - t35121;
19667   t35128 = 0.70178683471615754484e1 * t28500;
19668   t35129 = 0.23392894490538584828e1 * t31726;
19669   t35130 = t9956 * t1929;
19670   t35131 = 0.24415263074675393405e-3 * t35130;
19671   t35135 = 0.2e1 * t31729;
19672   t35136 = 0.2e1 * t31732;
19673   t35140 = t677 * t2844;
19674   t35144 = t10238 * t2093;
19675   t35151 = 0.6e1 * t10013 * t1768 * t1769 - 0.6e1 * t10242 * t1768 * t7870 - 0.12e2 * t1768 * t2850 * t35140 - 0.2e1 * t2849 * t35144 * t746 + 0.12e2 * t2857 * t2858 * t8011 - t28499 + t35128 - t35129 + t35131 + t35135 + t35136;
19676   t35152 = 0.48e2 * t31733;
19677   t35153 = 0.96e2 * t31735;
19678   t35154 = 0.160e3 * t31737;
19679   t35155 = 0.240e3 * t31739;
19680   t35160 = t2841 * t2841;
19681   t35192 = 0.4e1 * t10235 * t2060 * t734 * t743 + 0.4e1 * t1030 * t2060 * t734 * t8294 + 0.2e1 * t2060 * t2079 * t3519 * t734 - 0.6e1 * t2079 * t3503 * t6346 * t734 + 0.4e1 * t2060 * t35160 * t734 + 0.2e1 * t10164 * t2062 - 0.12e2 * t10175 * t2055 + 0.8e1 * t10179 * t2055 - 0.2e1 * t10236 * t2055 - 0.2e1 * t1031 * t32224 - 0.12e2 * t2815 * t8233 + 0.8e1 * t2819 * t8221 + 0.2e1 * t3504 * t6337;
19682   t35212 = t27738 + t34850 + t27745 - t34851 - t27762 - t27766 + t27775 + t34852 - t34853 + t34854 + t27781 - t34856 + t34857 - t27793 + t34860 + t34914 + t34916;
19683   t35213 = -t27796 - t27801 - t27805 - t27809 + t27813 - t27816 - t34925 - t34927 - t34930 + t34932 + t34934 + t34936 + t34937 - t34938 + t27829 + t34940 - t34941 + t27843;
19684   t35215 = t27853 - t27861 - t34942 - t34943 - t34944 + t27870 + t34945 + t27875 + t34946 + t34950 + t27883 - t34951 - t34952 - t34953 - t27888 - t27891 - t34954;
19685   t35216 = -t27897 - t34957 + t34963 - t34964 + t34965 - t34966 + t28377 - t34967 + t34968 - t34969 + t28210 + t28420 + t34974 - t34975 + t28422 + t34976 + t34978 + t28222;
19686   t35219 = -t28426 - t34979 - t34980 + t34981 + t28434 - t28437 + t28226 - t28230 - t28441 - t28444 - t28244 - t34989 - t34990 - t28449 - t34991 + t34999 + t35003;
19687   t35220 = t35004 - t35008 + t35012 + t35013 + t35014 - t35063 - t35068 - t35069 + t35070 - t28279 + t35092 - t35093 - t28323 + t35094 + t28329 - t35101 + t28483 - t28486;
19688   t35223 = t3413 * t101 * t1933;
19689   t35224 = 0.10843581300301739842e-1 * t35223;
19690   t35225 = -t28489 + t35113 - t35115 - t35121 + t28337 + t28493 - t28499 + t35128 - t35129 + t35131 + t35135 + t35136 - t35152 + t35153 + t35154 - t35155 + t35224;
19691   t35226 = 0.10389515463408878255e3 * t28509;
19692   t35227 = 0.32e2 * t31744;
19693   t35228 = 0.80e2 * t31746;
19694   t35229 = t616 * t9962;
19695   t35230 = 0.8e1 * t35229;
19696   t35231 = t1912 * t3425;
19697   t35232 = 0.20e2 * t35231;
19698   t35233 = t616 * t9960;
19699   t35234 = 0.8e1 * t35233;
19700   t35235 = 0.24e2 * t31751;
19701   t35237 = t9908 * t61 * t663;
19702   t35238 = 0.36622894612013090108e-3 * t35237;
19703   t35239 = 0.48e2 * t31754;
19704   t35240 = 0.20508037716432813315e4 * t31756;
19705   t35241 = 0.120e3 * t31758;
19706   t35242 = t28508 - t35226 - t35227 + t35228 + t28513 - t28356 - t35230 + t35232 - t35234 + t28518 + t28521 + t28524 - t35235 - t35238 + t28369 - t35239 - t35240 + t35241;
19707   t35274 = -0.12e2 * t3468 * t2012 + 0.6e1 * t9967 * t704 - 0.24e2 * t2776 * t724 * t10013 * t677 - (t35212 + t35213 + t35215 + t35216 + t35219 + t35220 + t35225 + t35242) * t187 * t192 - 0.24e2 * t2776 * t2777 * t8011 + 0.120e3 * t9973 * t8183 - 0.12e2 * t2776 * t9989 * t1881 - 0.48e2 * t2770 * t62 * t2778 + 0.12e2 * t2770 * t2781 - 0.360e3 * t2776 * t6283 * t3427 * t1868 + 0.60e2 * t2776 * t2041 * t3448 * t1868 + 0.60e2 * t2776 * t9980 * t1881 + 0.3e1 * t2007 * t3475;
19708   t35304 = -0.24e2 * t190 * t2011 * t34861 + 0.3e1 * t190 * t35059 * t703 + 0.240e3 * t2776 * t8144 * t8182 + 0.6e1 * t10014 * t701 + 0.6e1 * t1008 * t8193 + 0.6e1 * t1010 * t8167 - 0.12e2 * t2007 * t3472 + 0.3e1 * t2015 * t3468 + 0.120e3 * t8177 * t9981 - 0.48e2 * t8177 * t9984 - 0.24e2 * t8177 * t9990 - 0.48e2 * t8187 * t9973 - 0.24e2 * t8190 * t9973;
19709   t35306 = (t35274 + t35304) * t194;
19710   t35312 = t10040 * t707;
19711   t35319 = t694 * t10161;
19712   t35334 = t731 * t3453;
19713   t35338 = t1892 * t8196;
19714   t35342 = -0.24e2 * t10111 * t2784 * t2824 * t8245 - 0.2e1 * t10018 * t2069 * t262 - t10230 * t2024 * t262 - 0.4e1 * t262 * t2785 * t8284 - 0.2e1 * t262 * t2836 * t8197 - t262 * t3479 * t6370 - t262 * t35306 * t738 - 0.2e1 * t262 * t35319 * t708 - 0.4e1 * t2785 * t2833 * t8249 + 0.24e2 * t2823 * t2824 * t35312 + 0.4e1 * t2823 * t2824 * t35338 - 0.2e1 * t2833 * t35334 * t708;
19715   t35343 = t2812 * t1013;
19716   t35364 = t6182 * t10055;
19717   t35366 = t6182 * t10059;
19718   t35388 = t8077 * t10047;
19719   t35394 = t6182 * t10078;
19720   t35405 = t6182 * t10074;
19721   t35407 = -0.7e1 / 0.1152e4 * t31539 - 0.119e3 / 0.3456e4 * t31541 - 0.7e1 / 0.288e3 * t31543 - 0.7e1 / 0.576e3 * t31545 + 0.7e1 / 0.1152e4 * t31547 + 0.7e1 / 0.2304e4 * t31549 + 0.119e3 / 0.864e3 * t31551 + 0.7e1 / 0.1152e4 * t35364 + 0.7e1 / 0.2304e4 * t35366 + t1903 * t1905 * t10045 * t6166 / 0.768e3 - t1903 * t2746 * t2747 * t8197 / 0.1536e4 - t1903 * t2746 * t10045 * t2024 / 0.3072e4 - t2744 * t1905 * t10045 * t27951 / 0.384e3 + t2744 * t2746 * t2747 * t35338 / 0.768e3 + 0.7e1 / 0.288e3 * t35388 - t1903 * t2746 * t10072 * t2019 / 0.3072e4 + 0.7e1 / 0.2304e4 * t35394 + t1903 * t1905 * t10072 * t6166 / 0.768e3 + t1903 * t1905 * t2747 * t194 * t8011 / 0.384e3 - 0.7e1 / 0.576e3 * t35405;
19722   t35454 = t6182 * t10122;
19723   t35457 = t198 * t202 * t2042;
19724   t35459 = t209 * t2747;
19725   t35468 = t27935 + 0.5e1 / 0.384e3 * t2744 * t6301 * t10145 * t1893 - t2744 * t1905 * t10150 * t1893 / 0.384e3 - t1903 * t2746 * t10045 * t2019 / 0.3072e4 + t2744 * t2746 * t10072 * t6176 / 0.1536e4 + t27942 + 0.119e3 / 0.1728e4 * t27947 + 0.7e1 / 0.384e3 * t31612 - 0.7e1 / 0.288e3 * t35454 + 0.5e1 / 0.96e2 * t2823 * t35457 * t35459 * t12072 * t8058 - 0.5e1 / 0.192e3 * t2833 * t35457 * t35459 * t8052;
19726   t35471 = t2784 * t2784;
19727   t35472 = t35471 * t194;
19728   t35477 = t35471 * t1892;
19729   t35482 = t28054 * t3456;
19730   t35484 = t6198 * t3481;
19731   t35494 = t3478 * t707;
19732   t35513 = t103 * t10017;
19733   t35518 = t6182 * t10147;
19734   t35528 = t6182 * t10063;
19735   t35530 = t6182 * t10069;
19736   t35543 = -t1903 * t2746 * t35513 * t708 / 0.1536e4 + 0.35e2 / 0.576e3 * t35518 - 0.5e1 / 0.768e3 * t1903 * t6301 * t10072 * t6302 + t2744 * t2746 * t10045 * t6176 / 0.512e3 - 0.7e1 / 0.288e3 * t35528 - 0.7e1 / 0.288e3 * t35530 - 0.5e1 / 0.768e3 * t1903 * t6301 * t10145 * t2019 - t2744 * t8056 * t8057 * t31886 / 0.192e3 - 0.35e2 / 0.54e2 * t31615 + 0.455e3 / 0.324e3 * t27957 - 0.35e2 / 0.216e3 * t27959;
19737   t35558 = t1899 * t10020;
19738   t35565 = t2037 * t10025;
19739   t35568 = t2037 * t10030;
19740   t35585 = t6297 * t3495;
19741   t35591 = t2037 * t10128;
19742   t35593 = t6297 * t3491;
19743   t35600 = -0.35e2 / 0.288e3 * t35568 - 0.5e1 / 0.128e3 * t722 * t6285 * t532 * t3427 * t1881 + 0.5e1 / 0.384e3 * t722 * t2043 * t532 * t999 * t8011 - t697 * t699 * t532 * t35306 / 0.3072e4 - 0.7e1 / 0.288e3 * t31777 - 0.119e3 / 0.3456e4 * t35585 - t722 * t726 * t532 * t35059 / 0.768e3 + 0.7e1 / 0.576e3 * t35591 + 0.595e3 / 0.3456e4 * t35593 + 0.5e1 / 0.384e3 * t722 * t2043 * t532 * t34861 + 0.7e1 / 0.6e1 * t31816;
19744   t35625 = t8077 * t10042;
19745   t35635 = t28578 * t1891;
19746   t35653 = t6182 * t10152;
19747   t35671 = t8077 * t10106;
19748   t35678 = -0.3e1 / 0.256e3 * t8085 * t2746 * t10045 * t8086 - 0.5e1 / 0.768e3 * t1903 * t6301 * t10145 * t2024 - 0.5e1 / 0.768e3 * t1903 * t6301 * t10045 * t6302 - 0.7e1 / 0.576e3 * t35653 + 0.5e1 / 0.384e3 * t2744 * t6301 * t10045 * t28042 + t1903 * t1905 * t10150 * t2024 / 0.768e3 + t2744 * t2746 * t35513 * t2748 / 0.768e3 - 0.5e1 / 0.32e2 * t31970 * t27995 * t2796 * t8144 - 0.7e1 / 0.1152e4 * t35671 - 0.7e1 / 0.576e3 * t31839 + t2744 * t23548 * t8057 * t32046 / 0.128e3;
19749   t35680 = t6182 * t10118;
19750   t35682 = t3453 * t6263;
19751   t35696 = t2037 * t10035;
19752   t35703 = t6198 * t3486;
19753   t35719 = t6324 * t3450;
19754   t35723 = t28104 * t3437;
19755   t35732 = -0.119e3 / 0.864e3 * t31897 + 0.595e3 / 0.1296e4 * t31899 + 0.119e3 / 0.864e3 * t31901 - 0.35e2 / 0.216e3 * t35719 + 0.7e1 / 0.72e2 * t31907 + 0.455e3 / 0.324e3 * t31913 + 0.35e2 / 0.72e2 * t35723 + t1867 * t254 * t102 * t34861 / 0.8e1 - 0.119e3 / 0.13824e5 * t28049 + 0.119e3 / 0.6912e4 * t28055 + 0.595e3 / 0.3456e4 * t28072;
19756   t35753 = t3453 * t707;
19757   t35763 = t677 * t2784;
19758   t35773 = t1863 * t10102;
19759   t35780 = t8077 * t10156;
19760   t35782 = t28107 * t10086;
19761   t35784 = t6315 * t10090;
19762   t35786 = t6315 * t10094;
19763   t35788 = -0.5e1 / 0.192e3 * t1903 * t8050 * t10028 * t708 + t1903 * t8056 * t1014 * t35763 / 0.192e3 + 0.35e2 / 0.72e2 * t28105 - t1903 * t23548 * t8211 * t2785 / 0.768e3 + 0.7e1 / 0.72e2 * t35773 + 0.35e2 / 0.288e3 * t31979 - t6319 * t254 * t3449 * t1868 / 0.4e1 + 0.7e1 / 0.144e3 * t35780 + 0.7e1 / 0.6e1 * t35782 - 0.7e1 / 0.12e2 * t35784 - 0.7e1 / 0.24e2 * t35786;
19764   t35817 = t27946 * t3462;
19765   t35820 = t31611 * t10113;
19766   t35826 = t6182 * t10051;
19767   t35828 = t8077 * t10140;
19768   t35846 = 0.7e1 / 0.384e3 * t35820 + t1903 * t1905 * t10150 * t2019 / 0.768e3 - 0.7e1 / 0.576e3 * t35826 - 0.7e1 / 0.384e3 * t35828 + 0.7e1 / 0.1536e4 * t2744 * t2746 * t10045 * t1893 + t1903 * t1905 * t35513 * t1907 / 0.384e3 + 0.595e3 / 0.1296e4 * t28613 + t1867 * t254 * t10101 * t677 / 0.8e1 + 0.7e1 / 0.2304e4 * t32059 + 0.119e3 / 0.1728e4 * t32063 + 0.7e1 / 0.288e3 * t32065;
19769   t35850 = -0.119e3 / 0.3456e4 * t28096 + 0.595e3 / 0.864e3 * t31620 + 0.35e2 / 0.96e2 * t31932 + 0.595e3 / 0.5184e4 * t28123 - 0.119e3 / 0.13824e5 * t28125 - 0.7e1 / 0.384e3 * t31582 - 0.119e3 / 0.3456e4 * t31944 + 0.35e2 / 0.18e2 * t31946 - 0.7e1 / 0.12e2 * t31948 - 0.7e1 / 0.24e2 * t31950 - 0.7e1 / 0.576e3 * t31565 + 0.35e2 / 0.576e3 * t31822 - 0.35e2 / 0.288e3 * t31624 - 0.35e2 / 0.576e3 * t31626 + 0.595e3 / 0.5184e4 * t31628 - 0.7e1 / 0.288e3 * t31580 + 0.7e1 / 0.144e3 * t32012 + 0.7e1 / 0.2304e4 * t31645 + t1903 * t8056 * t35494 * t1907 / 0.384e3 - t688 * t254 * t102 * t35059 / 0.48e2 - t8085 * t2746 * t10045 * t28009 / 0.512e3 + t1903 * t1905 * t31575 * t3460 / 0.384e3 + t1903 * t1905 * t8029 * t10067 / 0.192e3 + t1903 * t8056 * t31845 * t3460 / 0.384e3 + 0.5e1 / 0.64e2 * t1903 * t32019 * t1014 * t8135 - t2744 * t8056 * t10040 * t8051 / 0.96e2 - t2744 * t8056 * t8057 * t31993 / 0.96e2 - t1903 * t2746 * t10072 * t2024 / 0.3072e4 - t8085 * t2746 * t10072 * t8086 / 0.512e3 + t2744 * t2746 * t10072 * t1893 / 0.512e3 + t31880 * t2746 * t10045 * t35635 / 0.128e3 - 0.7e1 / 0.576e3 * t31589 + t35846 + t35678 + 0.35e2 / 0.288e3 * t35680 - 0.7e1 / 0.576e3 * t35625 - 0.119e3 / 0.13824e5 * t35703 - 0.35e2 / 0.576e3 * t35696 + t35732 + t35788 + 0.119e3 / 0.1728e4 * t35817 + 0.7e1 / 0.576e3 * t31895 - 0.5e1 / 0.192e3 * t1903 * t8050 * t2785 * t2803 - 0.5e1 / 0.192e3 * t1903 * t8050 * t1014 * t8144 - 0.5e1 / 0.384e3 * t1903 * t8050 * t1014 * t8149 + t1903 * t8056 * t32046 * t3460 / 0.192e3 + t1903 * t8056 * t32028 * t3460 / 0.384e3 - t31830 * t183 * t2803 * t2728 + t8085 * t8056 * t35682 * t8058 / 0.64e2 - t2744 * t8056 * t12062 * t8058 / 0.192e3 + 0.5e1 / 0.4e1 * t28111 * t254 * t3436 * t1868 - t6319 * t254 * t3436 * t1881 / 0.4e1 - t2744 * t8056 * t8057 * t31854 / 0.64e2 + t8085 * t8056 * t31925 * t31854 / 0.64e2 + t1903 * t8056 * t35753 * t1907 / 0.384e3 + t1867 * t254 * t3449 * t1881 / 0.16e2 + t1867 * t254 * t1003 * t8011 / 0.8e1 + 0.5e1 / 0.64e2 * t1903 * t32019 * t10023 * t708 + t1903 * t8056 * t8211 * t10067 / 0.192e3 - t2744 * t8056 * t8057 * t35763 / 0.96e2 - 0.5e1 / 0.384e3 * t1903 * t8050 * t10033 * t708 - t697 * t699 * t532 * t35472 / 0.1536e4 + t1890 * t699 * t532 * t35477 / 0.768e3 - t8085 * t23548 * t31925 * t32046 / 0.128e3 - t2744 * t8056 * t3454 * t8058 / 0.64e2 - 0.5e1 / 0.128e3 * t722 * t6285 * t532 * t3448 * t1868 + 0.5e1 / 0.768e3 * t722 * t2043 * t532 * t3448 * t1881 + 0.35e2 / 0.128e3 * t722 * t28079 * t532 * t3427 * t1868 + t1903 * t1905 * t103 * t10013 * t708 / 0.384e3 + 0.5e1 / 0.384e3 * t722 * t2043 * t532 * t10013 * t677 + t35600 + 0.35e2 / 0.96e2 * t35565 + 0.7e1 / 0.2304e4 * t35558 + t35407 + t35543 + 0.119e3 / 0.6912e4 * t35482 - 0.119e3 / 0.13824e5 * t35484 + t35468;
19770   t35859 = t1023 * t2784;
19771   t35868 = t708 * t2784;
19772   t35875 = -0.2e1 * t1014 * t262 * t32196 - t10187 * t2024 * t2833 + 0.6e1 * t10187 * t2823 * t6176 - 0.2e1 * t10200 * t2019 * t2833 - t10213 * t2024 * t2833 - t10230 * t2019 * t262 + t188 * t197 * t35850 + 0.12e2 * t2748 * t2823 * t35334 + 0.8e1 * t2748 * t2823 * t35343 + 0.8e1 * t2748 * t2823 * t35859 - 0.4e1 * t2824 * t2833 * t35868 - 0.2e1 * t2824 * t2833 * t8197 - 0.4e1 * t2833 * t35343 * t708;
19773   t35880 = t731 * t3478;
19774   t35901 = t1887 * t3498;
19775   t35905 = t214 * t10017;
19776   t35915 = 0.8e1 * t10040 * t2823 * t8249 - t10187 * t2019 * t2833 - 0.6e1 * t10187 * t28009 * t8245 + 0.12e2 * t10200 * t1893 * t2823 - 0.2e1 * t10200 * t2024 * t2833 - 0.12e2 * t10200 * t8086 * t8245 + 0.2e1 * t10213 * t2823 * t6176 + 0.2e1 * t1893 * t262 * t35901 + 0.2e1 * t262 * t28652 * t3454 + 0.4e1 * t2748 * t2823 * t35880 - 0.4e1 * t2833 * t35859 * t708 - 0.2e1 * t2833 * t35905 * t708;
19777   t35953 = -0.12e2 * t10111 * t35334 * t8245 + 0.14e2 * t10187 * t1893 * t2823 + 0.24e2 * t10187 * t32107 * t35635 - 0.36e2 * t10187 * t8086 * t8245 + 0.4e1 * t10200 * t2823 * t6176 + 0.6e1 * t10213 * t1893 * t2823 - t10213 * t2019 * t2833 - 0.6e1 * t10213 * t8086 * t8245 + 0.4e1 * t2065 * t262 * t35477 - t262 * t3484 * t6370 - 0.2e1 * t262 * t35472 * t738 + 0.4e1 * t2748 * t2823 * t35905 - 0.2e1 * t2833 * t35880 * t708;
19778   t35970 = t10162 * t187;
19779   t35978 = -0.4e1 * t8221 * t2842 + 0.4e1 * t2055 * t10184 + 0.24e2 * t734 * t28635 * t3503 * t2061 - t734 * t737 * (t35342 + t35875 + t35915 + t35953) + 0.8e1 * t2815 * t8237 - t6337 * t3520 - 0.6e1 * t734 * t6346 * t3519 * t2061 - t10164 * t2080 + 0.4e1 * t2815 * t8241 + params->beta * t35850 * t221 - 0.2e1 * t35970 * t744 - 0.2e1 * t2815 * t8295 - 0.24e2 * t32234 * t32235 * t8236;
19780   t35989 = -t35152 + t35153 + t35154 - t35155 + t169 * t175 * (t35192 + t35978) * t748 + t35224 + t28508 - t35226 - t35227 + t35228 + 0.6e1 * t169 * t7882 * t3448 + 0.3e1 * t1768 * t9915 * t1881;
19781   t36003 = 0.6e1 * t1768 * t2853 * t8011 - 0.12e2 * t1768 * t7972 * t9882 + 0.24e2 * t2803 * t2857 * t7918 - 0.6e1 * t2857 * t3427 * t6401 - t28356 + t28513 + t28518 + t28521 + t28524 - t35230 + t35232 - t35234;
19782   t36010 = t999 * t2090;
19783   t36014 = t999 * t2082;
19784   t36018 = t2728 * t746;
19785   t36025 = 0.12e2 * t10033 * t1769 * t2857 - 0.3e1 * t1768 * t1881 * t9948 + 0.12e2 * t1768 * t2728 * t7918 - 0.6e1 * t1768 * t2850 * t36014 - 0.12e2 * t1768 * t2850 * t36018 + 0.12e2 * t1768 * t36010 * t7889 + t28369 - t35235 - t35238 - t35239 - t35240 + t35241;
19786   t36029 = t34855 + t34917 + t34939 + t34947 + t34958 + t34972 + t34982 + t34992 + t35015 + t35087 + t35105 + t35125 + t35151 + t35989 + t36003 + t36025;
19787   t36041 = t2478 * t2478;
19788   t36048 = -0.2e1 * t449 * t363 * t34832 - 0.4e1 * t2448 * t9849 - 0.4e1 * t29803 * t929 - 0.8e1 * t7847 * t3223 - 0.8e1 * t1476 * t10278 - 0.8e1 * t4302 * t8359 + 0.2e1 * t11491 * t751 - 0.2e1 * t447 * t11407 + t366 * t36029 - t3213 * t2331 - 0.2e1 * t1482 * t3714 - 0.2e1 * t9866 * t1517 - 0.4e1 * t1476 * t9854 - 0.2e1 * t449 * t2331 * t3249 - 0.4e1 * t82 * t36041 * t363 + 0.2e1 * t866 * t10267 + t2353 * t3530;
19789   t36125 = 0.3640e4 / 0.81e2 * t26416 * t3193 * t1451 - 0.2240e4 / 0.27e2 * t7681 * t34868 - 0.280e3 / 0.27e2 * t9764 * t1454 + 0.224e3 / 0.9e1 * t1450 * t5 * t21 + 0.112e3 / 0.9e1 * t2420 * t377 - 0.112e3 / 0.3e1 * t2420 * t5779 - 0.280e3 / 0.27e2 * t6512 * t3196 * t1451 + 0.56e2 / 0.9e1 * t1450 * t9774 * t413 + 0.28e2 / 0.9e1 * t9769 * t1454 - t34207 + 0.3640e4 / 0.81e2 * t26433 * t3199 * t1460 + 0.2240e4 / 0.27e2 * t7694 * t34891 - 0.280e3 / 0.27e2 * t9777 * t1463 + 0.224e3 / 0.9e1 * t1459 * t5 * t21 - 0.112e3 / 0.9e1 * t2426 * t377 + 0.112e3 / 0.3e1 * t2426 * t5779 - 0.280e3 / 0.27e2 * t6521 * t3202 * t1460 + 0.56e2 / 0.9e1 * t1459 * t9785 * t436 + 0.28e2 / 0.9e1 * t9782 * t1463 + t34222;
19790   t36150 = t7722 * t909 / 0.12e2 + t2389 * t2433 / 0.6e1 + t884 * t7708 / 0.12e2 + t1406 * t3187 * t74 / 0.24e2 + t404 * t9748 * t74 / 0.12e2 + t9702 * t440 / 0.12e2 + t1443 * t3206 / 0.24e2 + t427 * t9789 / 0.12e2 + t60 * t66 * t36125 / 0.24e2 + t9679 * t426 * t74 / 0.12e2 + t9680 * t440 / 0.12e2 + t3155 * t1442 * t74 / 0.24e2 + t9683 * t440 / 0.12e2 + t3156 * t1467 / 0.24e2 + t7713 * t901 * t74 / 0.12e2 + t9749 * t440 / 0.12e2 + t3188 * t1467 / 0.24e2 + t7729 * t909 / 0.12e2;
19791   t36205 = -0.80e2 / 0.9e1 * t410 * t9723 + 0.440e3 / 0.27e2 * t3174 * t1437 + 0.880e3 / 0.81e2 * t1417 * t3165 + 0.440e3 / 0.27e2 * t1417 * t3169 + 0.880e3 / 0.81e2 * t3174 * t1433 + 0.80e2 / 0.9e1 * t894 * t7657 + t34134 - t34140 - 0.40e2 / 0.27e2 * t34161 * t34809 + 0.40e2 / 0.81e2 * t31 * t34767 + 0.20e2 / 0.9e1 * t31 * t34770 - 0.10e2 / 0.27e2 * t31 * t34774 + 0.160e3 / 0.81e2 * t894 * t7647 - 0.80e2 / 0.3e1 * t894 * t7660 + 0.40e2 / 0.81e2 * t45 * t34783 - 0.20e2 / 0.9e1 * t45 * t34755 - 0.10e2 / 0.27e2 * t45 * t34759;
19792   t36214 = t894 * t1431;
19793   t36239 = -0.20e2 / 0.3e1 * t7629 * t34798 + 0.20e2 / 0.3e1 * t7650 * t34801 + 0.40e2 / 0.27e2 * t34168 * t34812 - t26456 - 0.320e3 / 0.27e2 * t34158 * t9712 + 0.320e3 / 0.27e2 * t36214 * t7651 + 0.20e2 / 0.9e1 * t31 * t34763 + 0.160e3 / 0.81e2 * t410 * t9708 - 0.10e2 / 0.27e2 * t31 * t34727 - 0.160e3 / 0.27e2 * t410 * t9718 + 0.20e2 / 0.9e1 * t31 * t34733 + 0.10e2 / 0.9e1 * t31 * t34736 - 0.160e3 / 0.27e2 * t894 * t7654 - 0.10e2 / 0.27e2 * t45 * t34741 + 0.20e2 / 0.9e1 * t45 * t34745 + 0.20e2 / 0.9e1 * t45 * t34749 + 0.10e2 / 0.9e1 * t45 * t34752;
19794   t36259 = t7732 * t909 / 0.6e1 + t2392 * t2433 / 0.6e1 + t7664 * t909 / 0.12e2 + t9691 * t440 / 0.6e1 + t3159 * t1467 / 0.12e2 + t7714 * t909 / 0.12e2 + t7717 * t909 / 0.6e1 + t2387 * t2433 / 0.6e1 + t2386 * t2414 * t74 / 0.6e1 + t9688 * t440 / 0.6e1 + t883 * t7663 * t74 / 0.12e2 + t25 * (t36205 + t36239) * t74 / 0.24e2 + (0.24e2 * t15 - t26503) * t59 * t74 / 0.24e2 + t2415 * t2433 / 0.6e1 + t902 * t7708 / 0.12e2 + t1407 * t3206 / 0.24e2 + t1410 * t3206 / 0.12e2 + t405 * t9789 / 0.12e2;
19795   t36260 = t36150 + t36259;
19796   t36274 = t2436 * t2436;
19797   t36282 = t3148 * t1396;
19798   t36289 = (-0.24e2 * t26543 + t26548 + t26550 - 0.480e3 * t26553 + t26558 + t26561 - 0.2520e4 * t26564 + t26571) * t80;
19799   t36291 = 0.40e2 * t1397 * t1398 * t3219 + 0.40e2 * t1397 * t1481 * t3152 + 0.40e2 * t1397 * t36274 * t97 - 0.8e1 * t1481 * t3209 * t400 - 0.4e1 * t36260 * t400 * t97 + 0.2e1 * t1481 * t3149 + 0.20e2 * t2338 * t36282 - 0.16e2 * t2378 * t7594 - 0.8e1 * t2378 * t7738 + t36289 * t97 - 0.4e1 * t3727 * t6442;
19800   t36316 = 0.2e1 * t1516 * t3249 * t81 + 0.4e1 * t464 * t81 * t9848 - 0.8e1 * t11409 * t1392 + 0.4e1 * t11419 * t397 + 0.4e1 * t11422 * t397 + 0.2e1 * t1391 * t3732 - 0.4e1 * t2345 * t9657 - 0.16e2 * t3107 * t7763 + 0.4e1 * t7777 * t881 + 0.8e1 * t7780 * t881 + 0.4e1 * t7841 * t881;
19801   t36335 = t9655 * t399;
19802   t36343 = -0.16e2 * t11419 * t400 * t443 + 0.4e1 * t7840 * t81 * t928 - 0.8e1 * t1113 * t34292 + 0.4e1 * t1116 * t7775 + 0.8e1 * t11414 * t397 + 0.2e1 * t2350 * t3149 + 0.8e1 * t2377 * t3115 + 0.8e1 * t2377 * t3118 + 0.4e1 * t36041 * t81 - 0.8e1 * t36335 * t860 + 0.4e1 * t863 * t9656;
19803   t36376 = -0.16e2 * t11422 * t400 * t443 - 0.480e3 * t11430 * t1398 * t34500 + 0.840e3 * t1398 * t26389 * t3721 - 0.8e1 * t1470 * t3732 * t400 - 0.32e2 * t2478 * t400 * t7750 - 0.16e2 * t3103 * t400 * t7840 - 0.16e2 * t34467 * t400 * t928 + 0.80e2 * t464 * t7757 * t9676 - 0.32e2 * t11486 * t1392 + 0.2e1 * t1391 * t3219 - 0.16e2 * t2342 * t9657 + 0.80e2 * t7591 * t7611;
19804   t36409 = 0.160e3 * t2478 * t443 * t7757 * t912 + 0.40e2 * t11409 * t1397 * t443 + 0.80e2 * t11430 * t1470 * t7757 - 0.8e1 * t11458 * t1516 * t400 - 0.120e3 * t1398 * t3727 * t6453 - 0.16e2 * t34416 * t400 * t928 - 0.32e2 * t34481 * t400 * t928 - 0.32e2 * t11483 * t1392 + 0.80e2 * t3100 * t34310 - 0.32e2 * t3104 * t7763 - 0.16e2 * t3724 * t6442;
19805   t36427 = t1397 * t464;
19806   t36442 = 0.160e3 * t2436 * t443 * t7757 * t928 - 0.32e2 * t11414 * t400 * t443 + 0.40e2 * t11470 * t1397 * t1516 + 0.160e3 * t11482 * t2436 * t7757 + 0.20e2 * t1397 * t1470 * t3727 + 0.2e1 * t34832 * t81 * t96 + 0.160e3 * t11431 * t34464 + 0.160e3 * t11431 * t36427 - 0.16e2 * t11434 * t1392 + 0.80e2 * t11471 * t6445 + 0.20e2 * t26398 * t3721 + 0.40e2 * t7591 * t7747;
19807   t36458 = t2383 * t2436;
19808   t36470 = -0.8e1 * t1470 * t3219 * t400 - 0.120e3 * t1470 * t3721 * t6453 - 0.480e3 * t34500 * t464 * t9668 - 0.16e2 * t11425 * t1392 + 0.40e2 * t11455 * t6445 + 0.80e2 * t11462 * t6445 - 0.240e3 * t11467 * t26602 - 0.480e3 * t23626 * t36458 - 0.16e2 * t2378 * t7603 - 0.32e2 * t2378 * t7751 - 0.240e3 * t34313 * t7578;
19809   t36473 = t7591 * t96;
19810   t36497 = t96 * t9792;
19811   t36501 = 0.40e2 * t1113 * t1397 * t7737 - 0.32e2 * t11482 * t2478 * t400 + 0.40e2 * t1397 * t1398 * t3732 - 0.16e2 * t36497 * t400 * t464 - 0.32e2 * t11437 * t1392 - 0.16e2 * t11459 * t1392 - 0.32e2 * t2378 * t7583 - 0.16e2 * t2378 * t7586 - 0.32e2 * t2378 * t7754 - 0.32e2 * t3112 * t7763 + 0.160e3 * t36473 * t7758 + 0.80e2 * t7591 * t7608;
19812   t36536 = 0.40e2 * t1397 * t7737 * t912 + 0.840e3 * t1398 * t26389 * t3152 - 0.120e3 * t1398 * t3209 * t6453 + 0.40e2 * t1397 * t36274 - 0.4e1 * t1470 * t9657 - 0.240e3 * t26602 * t9668 - 0.8e1 * t34292 * t912 - 0.240e3 * t34313 * t8328 - 0.8e1 * t36335 * t443 + 0.80e2 * t6445 * t9671 + 0.40e2 * t6445 * t9676 + 0.80e2 * t7591 * t8331 + 0.40e2 * t7591 * t8334;
19813   t36564 = 0.20e2 * t1397 * t1470 * t3209 + 0.40e2 * t1397 * t443 * t9792 - 0.120e3 * t1470 * t3152 * t6453 - 0.8e1 * t1392 * t9792 + 0.20e2 * t1398 * t36282 - 0.8e1 * t2378 * t7737 + 0.80e2 * t2383 * t34310 - 0.16e2 * t2436 * t7763 + 0.20e2 * t26398 * t3152 - 0.4e1 * t3209 * t6442 - 0.4e1 * t36260 * t400 - 0.480e3 * t36458 * t6453 + t36289;
19814   t36593 = t2937 * t2937;
19815   t36594 = t36593 * t2187;
19816   t36597 = t3550 * t2135;
19817   t36600 = t31305 * t847;
19818   t36627 = t10995 * t2187;
19819   t36634 = 0.64327917994770140268e2 * t2185 * t36594 - 0.20000000000000000000e1 * t36597 * t2138 + 0.4e1 * t31221 * t36600 - 0.77193501593724168323e3 * t9246 * t9561 - 0.40000000000000000000e1 * t2136 * t1059 * t9135 - 0.19298375398431042081e3 * t7159 * t3591 * t2179 - 0.24828486201251232145e5 * t28929 * t11008 * t2137 - 0.40000000000000000000e1 * t7142 * t10902 + 0.64327917994770140268e2 * t7147 * t11000 - 0.40000000000000000000e1 * t2136 * t10996 * t786 - 0.20000000000000000000e1 * t2136 * t3588 * t2179 - 0.19298375398431042081e3 * t7159 * t10999 * t2137 + 0.64327917994770140268e2 * t2185 * t36627 * t786 + 0.32163958997385070134e2 * t2185 * t10999 * t2179;
19820   t36635 = t3587 * t7249;
19821   t36643 = t101 * t2499 * t130;
19822   t36644 = t3028 * t4;
19823   t36646 = t36643 * t29973 * t36644;
19824   t36648 = t10860 * t1460;
19825   t36650 = t106 * t758 * t36648;
19826   t36652 = t10834 * t1463;
19827   t36654 = t106 * t2271 * t36652;
19828   t36657 = t28987 * t3199 * t1460;
19829   t36659 = t106 * t7407 * t36657;
19830   t36661 = t10839 * t1463;
19831   t36663 = t106 * t827 * t36661;
19832   t36665 = t599 * t10851;
19833   t36667 = t10839 * t1460;
19834   t36669 = t106 * t758 * t36667;
19835   t36671 = t599 * t10841;
19836   t36674 = t36643 * t30162 * t36644;
19837   t36677 = t36643 * t29969 * t36644;
19838   t36681 = 0.82191999999999999998e0 * t36646 - 0.10274000000000000000e0 * t36650 - 0.19025925925925925925e-1 * t36654 - 0.50735802469135802467e-1 * t36659 + 0.68493333333333333331e-1 * t36663 + 0.68493333333333333332e-1 * t36665 + 0.41096000000000000000e0 * t36669 - 0.45662222222222222220e-1 * t36671 + 0.15220740740740740740e0 * t36674 - 0.54794666666666666664e0 * t36677 + 0.12683950617283950617e-1 * t29992 - 0.30441481481481481480e-1 * t29994;
19839   t36686 = t599 * t10836;
19840   t36688 = t8448 * t10845;
19841   t36691 = t28887 * t3199 * t1460;
19842   t36693 = t106 * t2271 * t36691;
19843   t36695 = t10834 * t1460;
19844   t36697 = t106 * t827 * t36695;
19845   t36699 = t8448 * t10855;
19846   t36701 = t3538 * t1463;
19847   t36703 = t106 * t758 * t36701;
19848   t36705 = t7113 * t3202;
19849   t36706 = t36705 * t1460;
19850   t36708 = t106 * t827 * t36706;
19851   t36710 = t599 * t10867;
19852   t36712 = -0.22831111111111111110e-1 * t29996 + 0.91324444444444444440e-1 * t29998 + 0.60882962962962962960e-1 * t30000 - 0.20294320987654320986e-1 * t30002 + 0.12683950617283950617e-1 * t36686 - 0.16742814814814814814e0 * t36688 + 0.22831111111111111110e0 * t36693 - 0.41095999999999999999e0 * t36697 + 0.50228444444444444442e0 * t36699 - 0.10274000000000000000e0 * t36703 + 0.68493333333333333331e-1 * t36708 - 0.22831111111111111110e-1 * t36710;
19853   t36714 = t599 * t10862;
19854   t36717 = t2114 * t9785 * t436;
19855   t36719 = t106 * t827 * t36717;
19856   t36721 = t10860 * t1463;
19857   t36723 = t106 * t827 * t36721;
19858   t36725 = t7107 * t3202;
19859   t36726 = t36725 * t1460;
19860   t36728 = t106 * t2271 * t36726;
19861   t36731 = t2119 * t9785 * t436;
19862   t36733 = t106 * t758 * t36731;
19863   t36735 = t10865 * t1463;
19864   t36737 = t106 * t758 * t36735;
19865   t36744 = 0.76103703703703703701e-2 * t36714 - 0.22831111111111111110e-1 * t36719 - 0.11415555555555555555e-1 * t36723 - 0.19025925925925925925e-1 * t36728 + 0.68493333333333333332e-1 * t36733 + 0.34246666666666666666e-1 * t36737 + t29161 + 0.15220740740740740741e-1 * t29012 + 0.35515061728395061728e-1 * t29016 - 0.76103703703703703703e-2 * t29020 - 0.50735802469135802469e-2 * t29022 + 0.68493333333333333330e-1 * t30092;
19866   t36747 = t1805 * t3547;
19867   t36750 = t2500 * t827 * t2879;
19868   t36752 = t1805 * t3543;
19869   t36755 = t101 * t103 * t19142;
19870   t36756 = t2114 * t5;
19871   t36758 = t36755 * t827 * t36756;
19872   t36760 = t2119 * t5;
19873   t36762 = t36755 * t758 * t36760;
19874   t36764 = t599 * t10871;
19875   t36766 = t1805 * t3539;
19876   t36769 = t2500 * t758 * t2884;
19877   t36774 = -0.45662222222222222220e-1 * t30100 + 0.76103703703703703700e-2 * t30127 - 0.76103703703703703702e-2 * t36747 + 0.45662222222222222220e-1 * t36750 + 0.15220740740740740740e-1 * t36752 - 0.91324444444444444440e-1 * t36758 + 0.27397333333333333332e0 * t36762 + 0.11415555555555555555e-1 * t36764 - 0.50735802469135802467e-2 * t36766 - 0.13698666666666666666e0 * t36769 - 0.22831111111111111110e-1 * t30167 + 0.54033629629629629628e0 * t30171 + 0.35515061728395061727e-1 * t30179;
19878   t36777 = (t36681 + t36712 + t36744 + t36774) * t318;
19879   t36789 = t116 * t2546 * t203;
19880   t36813 = 0.24790800000000000000e2 * t36646 - 0.16671200000000000000e1 * t36789 * t29453 * t36644 + 0.37047111111111111112e0 * t36789 * t29295 * t36644 + 0.11114133333333333334e1 * t29978 - 0.18523555555555555556e0 * t29980 + 0.20839000000000000000e0 * t119 * t2169 * t36706 - 0.34731666666666666667e-1 * t119 * t2169 * t36721 - 0.46308888888888888889e-1 * t119 * t7185 * t36726 - 0.30988500000000000000e1 * t36650 - 0.57386111111111111112e0 * t36654 - 0.15302962962962962963e1 * t36659 + 0.20659000000000000000e1 * t36663 + 0.20659000000000000000e1 * t36665 + 0.12395400000000000000e2 * t36669;
19881   t36815 = t8513 * t10984;
19882   t36830 = -0.13772666666666666667e1 * t36671 - 0.60201555555555555557e0 * t36815 + 0.45908888888888888890e1 * t36674 - 0.16527200000000000000e2 * t36677 + 0.38257407407407407407e0 * t29992 - 0.91817777777777777776e0 * t29994 - 0.68863333333333333332e0 * t29996 + 0.27545333333333333332e1 * t29998 + 0.18363555555555555555e1 * t30000 - 0.61211851851851851850e0 * t30002 + 0.38257407407407407407e0 * t36686 - 0.50499777777777777779e1 * t36688 + 0.68863333333333333334e1 * t36693 - 0.12395400000000000000e2 * t36697 + 0.15149933333333333334e2 * t36699;
19883   t36847 = -0.30988500000000000000e1 * t36703 + 0.20659000000000000000e1 * t36708 - 0.68863333333333333333e0 * t36710 + 0.22954444444444444444e0 * t36714 - 0.68863333333333333334e0 * t36719 - 0.34431666666666666667e0 * t36723 - 0.57386111111111111112e0 * t36728 + 0.20659000000000000000e1 * t36733 + 0.10329500000000000000e1 * t36737 + 0.50013600000000000000e1 * t36789 * t29963 * t36644 + 0.23154444444444444444e0 * t28957 - 0.11577222222222222222e0 * t28976 - 0.38590740740740740740e-1 * t28979 + t28994;
19884   t36859 = t606 * t10971;
19885   t36861 = t606 * t10975;
19886   t36868 = 0.26472937500000000000e1 * t10990 * t2151 - 0.27785333333333333334e0 * t30024 - 0.27785333333333333334e0 * t30026 + 0.83356000000000000002e0 * t30031 + 0.46308888888888888890e-1 * t30043 + 0.61745185185185185187e-1 * t30045 + 0.45908888888888888888e0 * t29012 + 0.10712074074074074074e1 * t29016 - 0.22954444444444444444e0 * t29020 - 0.15302962962962962963e0 * t29022 - 0.27785333333333333334e0 * t36859 + 0.46308888888888888889e-1 * t36861 + 0.20839000000000000000e0 * t119 * t323 * t36735 + 0.20659000000000000000e1 * t30092 - 0.13772666666666666666e1 * t30100;
19887   t36872 = t1814 * t3578;
19888   t36879 = t116 * t102 * t2030;
19889   t36886 = t606 * t10905;
19890   t36897 = t606 * t10978;
19891   t36904 = 0.22954444444444444444e0 * t30127 - 0.38590740740740740742e-1 * t36872 - 0.22954444444444444444e0 * t36747 - 0.15779062500000000000e0 * t7211 * t3566 * t2143 - 0.27785333333333333334e0 * t36879 * t2169 * t36756 + 0.16671200000000000000e1 * t36879 * t323 * t36760 + 0.13892666666666666667e0 * t36886 - 0.35297250000000000000e1 * t2142 * t10932 * t772 + 0.25006800000000000000e1 * t119 * t323 * t36667 - 0.62517000000000000000e0 * t119 * t323 * t36648 - 0.27785333333333333334e0 * t36897 - 0.12503400000000000000e1 * t119 * t2169 * t36695 + 0.13772666666666666667e1 * t36750 + 0.45908888888888888889e0 * t36752;
19892   t36913 = t606 * t10981;
19893   t36915 = t772 * t2912;
19894   t36926 = -0.27545333333333333334e1 * t36758 + 0.82636000000000000000e1 * t36762 + 0.34431666666666666666e0 * t36764 - 0.15302962962962962963e0 * t36766 - 0.41318000000000000000e1 * t36769 + t29037 + 0.92617777777777777780e0 * t30195 - 0.15436296296296296297e0 * t30197 + 0.61745185185185185184e0 * t29043 + 0.61745185185185185186e-1 * t36913 + 0.10589175000000000000e2 * t9096 * t36915 - 0.63116250000000000000e0 * t9099 * t36915 - 0.35297250000000000000e1 * t2904 * t9070 - 0.17648625000000000000e1 * t10941 * t2151 - 0.15779062500000000000e0 * t10944 * t2151;
19895   t36931 = t1814 * t3584;
19896   t36944 = t2912 * t2912;
19897   t36959 = 0.16e2 * t36646 - 0.2e1 * t36650 - 0.10e2 / 0.27e2 * t36654 - 0.80e2 / 0.81e2 * t36659 + 0.4e1 / 0.3e1 * t36663 + 0.4e1 / 0.3e1 * t36665 + 0.8e1 * t36669 - 0.8e1 / 0.9e1 * t36671 + 0.80e2 / 0.27e2 * t36674 - 0.32e2 / 0.3e1 * t36677 + 0.20e2 / 0.81e2 * t29992 - 0.16e2 / 0.27e2 * t29994;
19898   t36972 = -0.4e1 / 0.9e1 * t29996 + 0.16e2 / 0.9e1 * t29998 + 0.32e2 / 0.27e2 * t30000 - 0.32e2 / 0.81e2 * t30002 + 0.20e2 / 0.81e2 * t36686 - 0.88e2 / 0.27e2 * t36688 + 0.40e2 / 0.9e1 * t36693 - 0.8e1 * t36697 + 0.88e2 / 0.9e1 * t36699 - 0.2e1 * t36703 + 0.4e1 / 0.3e1 * t36708 - 0.4e1 / 0.9e1 * t36710;
19899   t36985 = 0.4e1 / 0.27e2 * t36714 - 0.4e1 / 0.9e1 * t36719 - 0.2e1 / 0.9e1 * t36723 - 0.10e2 / 0.27e2 * t36728 + 0.4e1 / 0.3e1 * t36733 + 0.2e1 / 0.3e1 * t36737 + t29085 + 0.8e1 / 0.27e2 * t29012 + 0.56e2 / 0.81e2 * t29016 - 0.4e1 / 0.27e2 * t29020 - 0.8e1 / 0.81e2 * t29022 + 0.4e1 / 0.3e1 * t30092;
19900   t36999 = -0.8e1 / 0.9e1 * t30100 + 0.4e1 / 0.27e2 * t30127 - 0.4e1 / 0.27e2 * t36747 + 0.8e1 / 0.9e1 * t36750 + 0.8e1 / 0.27e2 * t36752 - 0.16e2 / 0.9e1 * t36758 + 0.16e2 / 0.3e1 * t36762 + 0.2e1 / 0.9e1 * t36764 - 0.8e1 / 0.81e2 * t36766 - 0.8e1 / 0.3e1 * t36769 - 0.4e1 / 0.9e1 * t30167 + 0.284e3 / 0.27e2 * t30171 + 0.56e2 / 0.81e2 * t30179;
19901   t37001 = t36959 + t36972 + t36985 + t36999;
19902   t37016 = t606 * t10965;
19903   t37018 = t8513 * t10968;
19904   t37020 = -0.83356000000000000000e0 * t2547 * t323 * t2884 - 0.11577222222222222222e0 * t36931 + 0.63116250000000000000e0 * t2159 * t10932 * t772 + 0.31558125000000000000e0 * t10949 * t2151 + 0.41678000000000000000e0 * t119 * t323 * t36731 - 0.69463333333333333334e-1 * t119 * t2169 * t36717 - 0.35297250000000000000e1 * t2142 * t36944 + 0.63116250000000000000e0 * t777 * t37001 + 0.20839000000000000000e0 * t119 * t2169 * t36661 + 0.55570666666666666666e0 * t119 * t7185 * t36691 - 0.46308888888888888889e-1 * t119 * t7185 * t36652 - 0.10805407407407407407e0 * t119 * t28985 * t36657 + 0.83356000000000000001e0 * t37016 + 0.36120933333333333334e1 * t37018;
19905   t37046 = t1814 * t3581;
19906   t37050 = -0.62517000000000000000e0 * t119 * t323 * t36701 - 0.68863333333333333332e0 * t30167 - 0.27785333333333333334e0 * t30217 + 0.61745185185185185187e0 * t30219 + 0.63116250000000000000e0 * t2159 * t36944 + 0.16297655555555555556e2 * t30171 + 0.10712074074074074074e1 * t30179 + 0.63116250000000000000e0 * t2920 * t9070 + 0.42604177777777777778e1 * t30233 - 0.66182343750000000000e1 * t29060 * t3559 * t2143 + 0.26472937500000000000e1 * t7217 * t3566 * t2143 + 0.23668593750000000000e0 * t29080 * t3559 * t2143 + 0.13892666666666666667e0 * t2547 * t2169 * t2879 + 0.23154444444444444445e0 * t37046 + 0.35297250000000000000e1 * t770 * t37001;
19907   t37054 = (t36813 + t36830 + t36847 + t36868 + t36904 + t36926 + t37020 + t37050) * t787;
19908   t37060 = t36593 * t787;
19909   t37092 = t11303 * t187;
19910   t37097 = 0.24e2 * t2293 * t29537 * t3680 * t835 - 0.6e1 * t2293 * t3696 * t7462 * t835 - 0.6e1 * t2311 * t3680 * t7462 * t835 - 0.24e2 * t29887 * t29888 * t9478 - 0.2e1 * t1099 * t29874 + 0.2e1 * t11305 * t2294 - 0.12e2 * t11316 * t2287 - 0.2e1 * t11377 * t2287 + 0.4e1 * t3046 * t9483 - 0.2e1 * t3046 * t9537 - 0.4e1 * t3071 * t9463 + 0.2e1 * t3681 * t7453 - 0.2e1 * t37092 * t845;
19911   t37102 = t832 * t3607;
19912   t37114 = t3043 * t1074;
19913   t37124 = t345 * t11208;
19914   t37136 = t832 * t3667;
19915   t37140 = 0.8e1 * t11115 * t3054 * t9491 - t11328 * t2229 * t2252 - t11328 * t2229 * t2257 - 0.2e1 * t11341 * t2229 * t2252 + 0.4e1 * t11341 * t3054 * t7365 + 0.6e1 * t11354 * t2220 * t3054 - 0.4e1 * t2229 * t2997 * t9491 - 0.2e1 * t2229 * t37102 * t814 - 0.4e1 * t2229 * t37114 * t814 + 0.12e2 * t2967 * t3054 * t37102 + 0.4e1 * t2967 * t3054 * t37124 + 0.4e1 * t2967 * t3054 * t37136;
19916   t37144 = t1091 * t2996;
19917   t37163 = t2996 * t2996;
19918   t37164 = t37163 * t329;
19919   t37180 = -0.2e1 * t11209 * t2301 * t262 - 0.12e2 * t11269 * t37102 * t9487 + 0.12e2 * t11341 * t2220 * t3054 - t11354 * t2229 * t2252 - t11354 * t2229 * t2257 - t11371 * t2252 * t262 - 0.2e1 * t2229 * t37124 * t814 - 0.4e1 * t2229 * t37144 * t814 + 0.2e1 * t262 * t29626 * t3615 - 0.2e1 * t262 * t3065 * t9266 - 0.2e1 * t262 * t37164 * t839 + 0.8e1 * t2967 * t3054 * t37114 + 0.8e1 * t2967 * t3054 * t37144;
19920   t37182 = t2937 * t786;
19921   t37211 = t10874 * t768;
19922   t37214 = 0.15237386461298369407e5 * t9246 * t2992 * t37182 - 0.47374101125228921373e3 * t2991 * t30251 * t37182 + 0.78956835208714868956e2 * t7142 * t3587 * t810 + 0.38093466153245923519e4 * t11185 * t9262 - 0.12697822051081974506e4 * t2991 * t2992 * t9135 + 0.78956835208714868956e2 * t11170 * t2245 + 0.78956835208714868956e2 * t2985 * t9251 + 0.78956835208714868956e2 * t2136 * t37060 * t187 - 0.39478417604357434478e2 * t2131 * t11193 - 0.19739208802178717239e2 * t769 * t37054 * t187 - 0.63489110255409872532e3 * t28914 * t3664 - 0.39478417604357434478e2 * t37211 * t810;
19923   t37239 = t7247 * t3587;
19924   t37246 = 0.39478417604357434478e2 * t11190 * t2245 + 0.47374101125228921372e3 * t11185 * t2242 + 0.49009467336851114346e6 * t28929 * t3555 * t9259 - 0.11843525281307230343e3 * t11196 * t2242 + 0.76186932306491847037e4 * t29938 * t1058 * t2248 - 0.23687050562614460687e3 * t11175 * t2242 - 0.81682445561418523910e5 * t28812 * t3555 * t11205 + 0.61370581910589784405e0 * t36777 * t187 + 0.15791367041742973791e3 * t9233 * t2988 - 0.16336489112283704782e6 * t9257 * t9258 * t37182 - 0.40841222780709261955e5 * t37239 * t9259 - 0.25395644102163949012e4 * t9238 * t11201 - 0.63489110255409872532e3 * t11196 * t9262;
19925   t37248 = t7147 * t3587;
19926   t37267 = t3550 * t2184;
19927   t37278 = -0.12697822051081974506e4 * t37248 * t2993 - 0.25395644102163949012e4 * t9000 * t2937 * t2993 - 0.22856079691947554112e5 * t11204 * t2248 + 0.15791367041742973791e3 * t29951 * t1058 * t810 - 0.81682445561418523907e5 * t29853 * t1058 * t9259 - 0.23687050562614460686e3 * t7147 * t3555 * t810 - 0.19739208802178717239e2 * t10877 * t2245 - 0.63489110255409872532e3 * t37267 * t2248 - 0.39478417604357434478e2 * t29931 * t1071 - 0.78956835208714868956e2 * t9221 * t2988 - 0.39478417604357434478e2 * t2896 * t9251 + 0.39478417604357434478e2 * t28906 * t3658;
19928   t37312 = t2185 * t10995;
19929   t37315 = -0.19739208802178717239e2 * t7139 * t3661 - 0.12697822051081974506e4 * t11175 * t9262 + 0.15791367041742973791e3 * t9224 * t2937 * t810 - 0.25395644102163949012e4 * t29850 * t1058 * t2993 + 0.78956835208714868956e2 * t2136 * t10995 * t810 + 0.76186932306491847038e4 * t28807 * t3555 * t2993 - 0.39408462447654052777e7 * t29132 * t3555 * t30345 * t2137 + 0.38093466153245923519e4 * t7159 * t3587 * t2248 - 0.11843525281307230343e3 * t11180 * t2245 - 0.40841222780709261955e5 * t11204 * t9258 * t2179 + 0.39478417604357434478e2 * t36597 * t2242 - 0.12697822051081974506e4 * t2185 * t36594 * t187 - 0.12697822051081974506e4 * t37312 * t2993;
19930   t37318 = (t37214 + t37246 + t37278 + t37315) * t329;
19931   t37324 = t28880 * t2218;
19932   t37334 = t2219 * t9265;
19933   t37344 = t814 * t2996;
19934   t37348 = t11115 * t813;
19935   t37352 = t37163 * t2219;
19936   t37359 = 0.14e2 * t11328 * t2220 * t3054 + 0.24e2 * t11328 * t30433 * t37324 - 0.36e2 * t11328 * t9452 * t9487 - 0.2e1 * t11341 * t2229 * t2257 + 0.2e1 * t11354 * t3054 * t7365 - 0.6e1 * t11354 * t9452 * t9487 - 0.4e1 * t2229 * t3055 * t37344 - 0.2e1 * t2229 * t37136 * t814 + 0.4e1 * t2297 * t262 * t37352 - t262 * t37318 * t839 + 0.4e1 * t3054 * t3055 * t37334 + 0.24e2 * t3054 * t3055 * t37348;
19937   t37362 = t2214 * t3675;
19938   t37369 = t807 * t1616 * t11210;
19939   t37372 = t824 * t6896 * t3646;
19940   t37381 = t824 * t1616 * t11160;
19941   t37383 = t3015 * t9338;
19942   t37407 = -t37369 / 0.1152e4 - t37372 / 0.10368e5 - t30462 / 0.162e3 - t807 * t533 * t758 * t37164 / 0.768e3 - t30464 / 0.108e3 + t37381 / 0.1728e4 - 0.5e1 / 0.324e3 * t37383 - 0.41e2 / 0.648e3 * t30469 + 0.2e1 / 0.243e3 * t30471 + t30473 / 0.81e2 - t807 * t533 * t758 * t37318 / 0.1536e4 - t30479 / 0.324e3 + t2217 * t533 * t758 * t37352 / 0.384e3 + t30482 / 0.1728e4 + t3009 * t9268 / 0.144e3 - 0.19e2 / 0.864e3 * t11127 * t2254 + 0.19e2 / 0.1296e4 * t11286 * t2281 + 0.95e2 / 0.3888e4 * t11286 * t2273 + t30496 / 0.72e2;
19943   t37409 = t794 * t242 * t11020;
19944   t37419 = t2947 * t9392;
19945   t37429 = t794 * t9152 * t10850;
19946   t37432 = t794 * t30931 * t10854;
19947   t37437 = t2947 * t9153;
19948   t37439 = t2947 * t9157;
19949   t37454 = t37409 / 0.432e3 + 0.11e2 / 0.324e3 * t11012 * t2210 + 0.11e2 / 0.243e3 * t11012 * t2201 + t794 * t715 * t2199 * t5 / 0.27e2 - 0.7e1 / 0.81e2 * t37419 - t794 * t715 * t2204 * t5 / 0.18e2 - t30505 / 0.2592e4 - t2947 * t9149 / 0.9e1 + t37429 / 0.72e2 - 0.7e1 / 0.108e3 * t37432 + t794 * t2958 * t36648 / 0.48e2 + 0.2e1 / 0.81e2 * t37437 - 0.4e1 / 0.243e3 * t37439 + t2947 * t9171 / 0.27e2 + 0.4e1 / 0.27e2 * t2947 * t9146 - 0.4e1 / 0.27e2 * t2947 * t9175 - 0.2e1 / 0.81e2 * t2947 * t9160 - 0.14e2 / 0.243e3 * t2947 * t9164 + 0.8e1 / 0.81e2 * t2947 * t9168 + 0.5e1 / 0.1944e4 * t28836;
19950   t37457 = t794 * t498 * t3630;
19951   t37471 = t3015 * t9275;
19952   t37475 = t2947 * t9402;
19953   t37478 = t794 * t498 * t3638;
19954   t37484 = t37457 / 0.648e3 - t28851 / 0.2592e4 + t28854 / 0.6912e4 + t28857 / 0.6912e4 - 0.5e1 / 0.972e3 * t30518 - t28873 / 0.10368e5 - t30525 / 0.324e3 - t30528 / 0.216e3 + t30531 / 0.324e3 + 0.7e1 / 0.972e3 * t30535 + t30553 / 0.162e3 + t29202 / 0.3888e4 + t29205 / 0.5184e4 + t37471 / 0.972e3 - t29226 / 0.3456e4 - 0.5e1 / 0.31104e5 * t29229 + t37475 / 0.243e3 - t37478 / 0.972e3 + 0.5e1 / 0.576e3 * t2232 * t7439 * t1075 * t9043;
19955   t37502 = t2217 * t8565 * t11278;
19956   t37504 = t3202 * t1460;
19957   t37528 = t807 * t8565 * t11106;
19958   t37530 = t340 * t11208;
19959   t37547 = t11286 * t2266;
19960   t37549 = t532 * t5226;
19961   t37558 = -t2232 * t9417 * t1075 * t9061 / 0.144e3 - 0.5e1 / 0.1728e4 * t2232 * t7439 * t2997 * t2880 + t7444 * t2233 * t3546 * t2220 / 0.1152e4 + 0.5e1 / 0.3456e4 * t7444 * t7439 * t3615 * t2115 + t37502 / 0.192e3 + t824 * t2578 * t9329 * t37504 / 0.384e3 + 0.7e1 / 0.768e3 * t2217 * t2578 * t11110 * t2220 + t28879 * t2578 * t11110 * t37324 / 0.64e2 - t9193 * t9319 / 0.72e2 - t7381 * t2578 * t11110 * t29498 / 0.256e3 + t2217 * t2578 * t11084 * t7365 / 0.768e3 - t37528 / 0.576e3 - t807 * t2578 * t37530 * t814 / 0.768e3 + t3009 * t9357 / 0.144e3 + t2217 * t2578 * t11110 * t7365 / 0.256e3 - t9193 * t9315 / 0.36e2 - 0.5e1 / 0.1728e4 * t824 * t2645 * t2271 * t2879 + 0.19e2 / 0.972e3 * t37547 + 0.5e1 / 0.864e3 * t824 * t37549 * t2271 * t36756 + t824 * t2645 * t827 * t2884 / 0.288e3;
19962   t37562 = t824 * t6896 * t3603;
19963   t37565 = t2217 * t6896 * t3616;
19964   t37567 = t3009 * t9335;
19965   t37575 = t2996 * t759 * t436;
19966   t37581 = t3607 * t7382;
19967   t37604 = t2232 * t7427 * t11295;
19968   t37607 = t2232 * t29474 * t11138;
19969   t37610 = t2232 * t7427 * t11143;
19970   t37626 = t2217 * t8565 * t11116;
19971   t37628 = t37562 / 0.5184e4 - t37565 / 0.3456e4 - t37567 / 0.648e3 - 0.5e1 / 0.2592e4 * t30582 + t7444 * t2233 * t3615 * t9295 / 0.192e3 - t2232 * t2233 * t1075 * t37575 / 0.576e3 + t30589 / 0.432e3 - t29493 * t2233 * t37581 * t9295 / 0.192e3 - t2232 * t2233 * t3538 * t9284 / 0.192e3 - t2232 * t2233 * t30868 * t11142 / 0.576e3 - t2232 * t2233 * t31037 * t11142 / 0.1152e4 + t7444 * t2233 * t9293 * t1041 * t2251 / 0.576e3 + t37604 / 0.432e3 - 0.5e1 / 0.2592e4 * t37607 - t37610 / 0.864e3 + t7444 * t2233 * t30886 * t2219 * t759 * t905 / 0.192e3 + t9370 * t9186 / 0.108e3 - t29493 * t2233 * t31032 * t1041 * t2218 / 0.192e3 + t37626 / 0.288e3;
19972   t37635 = t2217 * t8565 * t11274;
19973   t37637 = t3199 * t1460;
19974   t37643 = t824 * t31016 * t11052;
19975   t37647 = t807 * t6896 * t3609;
19976   t37654 = t794 * t498 * t3634;
19977   t37671 = t2230 * t210;
19978   t37672 = t3054 * t37671;
19979   t37674 = t276 * t2270 * t1074;
19980   t37676 = t3028 * t813;
19981   t37682 = t807 * t8565 * t11111;
19982   t37692 = t9785 * t436;
19983   t37697 = t2217 * t2578 * t2966 * t37334 / 0.384e3 + 0.5e1 / 0.1944e4 * t30610 + t37635 / 0.576e3 + 0.5e1 / 0.192e3 * t824 * t2578 * t30162 * t37637 - 0.5e1 / 0.864e3 * t37643 + t30612 / 0.216e3 + t37647 / 0.6912e4 + t794 * t1576 * t2204 * t905 / 0.36e2 - t37654 / 0.1296e4 - t2232 * t2233 * t9266 * t1041 / 0.1152e4 - t30617 / 0.1728e4 + t2232 * t9417 * t2997 * t2889 / 0.288e3 - t2232 * t2233 * t30886 * t11142 / 0.1152e4 + t1062 * t9414 / 0.27e2 + 0.5e1 / 0.864e3 * t37672 * t37674 * t2219 * t2114 * t37676 - t37682 / 0.1152e4 - t807 * t2578 * t2966 * t9266 / 0.768e3 + t3015 * t9353 / 0.108e3 + 0.5e1 / 0.108e3 * t3015 * t9436 + 0.5e1 / 0.3456e4 * t824 * t2578 * t3027 * t37692;
19984   t37737 = t183 * t57;
19985   t37738 = t31042 * t37737;
19986   t37742 = t3599 * t2263;
19987   t37746 = t2229 * t37671;
19988   t37747 = t826 * t1074;
19989   t37748 = t276 * t37747;
19990   t37753 = t262 * t2215 * t11125;
19991   t37756 = -t30629 / 0.162e3 - 0.2e1 / 0.243e3 * t30631 - t30635 / 0.864e3 - t794 * t2958 * t36731 / 0.72e2 - t794 * t2958 * t36735 / 0.144e3 - t794 * t2954 * t36706 / 0.36e2 + t794 * t2954 * t36717 / 0.108e3 + t794 * t2954 * t36721 / 0.216e3 + 0.7e1 / 0.648e3 * t794 * t9163 * t36726 - t807 * t2578 * t11110 * t2252 / 0.1536e4 - 0.5e1 / 0.216e3 * t824 * t2578 * t31002 * t37637 - t807 * t2578 * t11084 * t2257 / 0.1536e4 - 0.5e1 / 0.243e3 * t30640 + t2217 * t2578 * t11084 * t2220 / 0.256e3 + 0.2e1 / 0.9e1 * t37738 * t31044 * t36644 - 0.19e2 / 0.3888e4 * t37742 - 0.5e1 / 0.5184e4 * t30644 - t30651 / 0.1728e4 + t37746 * t37748 * t9285 / 0.288e3 + 0.19e2 / 0.432e3 * t37753 * t2222;
19992   t37764 = t3199 * t1463;
19993   t37781 = t4 * t813 * t329;
19994   t37797 = t824 * t8565 * t11058;
19995   t37800 = t824 * t8565 * t11047;
19996   t37803 = t824 * t8565 * t11089;
19997   t37806 = t824 * t31016 * t11093;
19998   t37816 = t30654 / 0.3888e4 + t3009 * t9308 / 0.72e2 + t2217 * t2578 * t37530 * t2967 / 0.384e3 + t824 * t2578 * t9329 * t37764 / 0.384e3 - t37672 * t37748 * t2219 * t2119 * t37676 / 0.144e3 - t29309 / 0.1296e4 - t29312 / 0.972e3 - 0.5e1 / 0.1296e4 * t2232 * t29376 * t10834 * t9284 + 0.5e1 / 0.864e3 * t2232 * t31066 * t2879 * t37781 + t7444 * t2233 * t12518 * t9295 / 0.576e3 + t30663 / 0.162e3 + t30665 / 0.216e3 - 0.19e2 / 0.864e3 * t11127 * t2259 - 0.19e2 / 0.648e3 * t11286 * t2277 + t37797 / 0.288e3 - 0.5e1 / 0.864e3 * t37800 + 0.5e1 / 0.1944e4 * t37803 + 0.25e2 / 0.5184e4 * t37806 + 0.5e1 / 0.2592e4 * t824 * t2578 * t9341 * t37764 + 0.55e2 / 0.7776e4 * t824 * t2578 * t30763 * t37637;
19999   t37821 = t824 * t8565 * t11098;
20000   t37824 = t824 * t8565 * t11102;
20001   t37826 = t3202 * t1463;
20002   t37847 = t3009 * t9311;
20003   t37854 = t807 * t8565 * t11085;
20004   t37861 = t7381 * t8565 * t11270;
20005   t37863 = t9193 * t9361;
20006   t37877 = -t37821 / 0.864e3 + 0.5e1 / 0.5184e4 * t37824 - t824 * t2578 * t3033 * t37826 / 0.1152e4 - 0.5e1 / 0.1152e4 * t824 * t2578 * t9434 * t37504 - t807 * t2578 * t11110 * t2257 / 0.1536e4 - 0.3e1 / 0.128e3 * t7381 * t2578 * t11110 * t9452 - t7381 * t2578 * t11084 * t9452 / 0.256e3 + t37847 / 0.108e3 + t3009 * t9303 / 0.144e3 + t30688 / 0.1296e4 + t30697 / 0.162e3 - t37854 / 0.1152e4 - t807 * t2578 * t11084 * t2252 / 0.1536e4 - t37861 / 0.192e3 - t37863 / 0.54e2 - 0.5e1 / 0.648e3 * t3015 * t9447 - 0.5e1 / 0.243e3 * t3015 * t9343 + 0.5e1 / 0.576e3 * t2232 * t7439 * t10839 * t9284 - t2232 * t2233 * t1075 * t9056 / 0.192e3;
20007   t37891 = t807 * t6896 * t3669;
20008   t37911 = t794 * t9152 * t10866;
20009   t37914 = t794 * t9156 * t10861;
20010   t37917 = t794 * t30533 * t10835;
20011   t37923 = t794 * t30935 * t10844;
20012   t37929 = t794 * t9156 * t10840;
20013   t37931 = t3624 * t2191;
20014   t37933 = t7444 * t2233 * t9293 * t37575 / 0.288e3 + t7444 * t5366 * t9293 * t30868 / 0.64e2 + 0.5e1 / 0.3456e4 * t7444 * t7439 * t3538 * t2220 + t37891 / 0.6912e4 - t30722 / 0.486e3 - t30725 / 0.864e3 + 0.7e1 / 0.648e3 * t794 * t9163 * t36652 + 0.35e2 / 0.972e3 * t794 * t30543 * t36657 + t794 * t2958 * t36701 / 0.48e2 + t794 * t2954 * t36695 / 0.6e1 - t794 * t2954 * t36661 / 0.36e2 - t37911 / 0.216e3 + t37914 / 0.324e3 + 0.7e1 / 0.972e3 * t37917 - 0.7e1 / 0.54e2 * t794 * t9163 * t36691 + 0.7e1 / 0.162e3 * t37923 - t794 * t2958 * t36667 / 0.12e2 - t37929 / 0.54e2 - t29414 - 0.11e2 / 0.486e3 * t37931;
20015   t37936 = t2232 * t7427 * t11291;
20016   t37948 = t2229 * t332 * t3597 * t209;
20017   t37962 = t3009 * t9189;
20018   t37970 = t824 * t6896 * t3650;
20019   t37982 = t9370 * t9381;
20020   t37984 = t37936 / 0.864e3 + t9370 * t9374 / 0.216e3 + t29423 / 0.5184e4 + t29448 / 0.648e3 - t9370 * t9423 / 0.108e3 + t9370 * t9385 / 0.108e3 - 0.19e2 / 0.648e3 * t37948 * t2235 + t9370 * t9410 / 0.216e3 - 0.5e1 / 0.324e3 * t30714 * t1804 * t7407 * t9037 * t9346 - t2232 * t2233 * t10870 * t814 / 0.1152e4 + t37962 / 0.108e3 - t824 * t37549 * t827 * t36760 / 0.144e3 + t30778 / 0.486e3 - 0.5e1 / 0.31104e5 * t37970 - t30781 / 0.1152e4 - t7444 * t2233 * t3542 * t2220 / 0.576e3 + t2232 * t2233 * t3542 * t2257 / 0.1152e4 + t30797 / 0.576e3 + t37982 / 0.162e3;
20021   t37985 = t11012 * t2194;
20022   t37994 = t2232 * t30832 * t11241;
20023   t38006 = t3667 * t813;
20024   t38013 = t2232 * t7427 * t11252;
20025   t38020 = t2232 * t7427 * t11237;
20026   t38043 = t3015 * t9443;
20027   t38045 = 0.11e2 / 0.486e3 * t37985 - 0.11e2 / 0.162e3 * t11012 * t2206 - t794 * t1576 * t2199 * t905 / 0.54e2 - 0.5e1 / 0.1728e4 * t37994 - t9370 * t9419 / 0.54e2 - t3015 * t9332 / 0.36e2 - t824 * t2578 * t29969 * t37637 / 0.96e2 + 0.5e1 / 0.324e3 * t9370 * t9290 - t2232 * t2233 * t38006 * t9184 / 0.1152e4 + t30834 / 0.432e3 - t38013 / 0.1728e4 - t29493 * t5366 * t31032 * t30868 / 0.64e2 - t38020 / 0.1728e4 - t2232 * t2233 * t3608 * t2124 / 0.2304e4 - 0.5e1 / 0.6912e4 * t2232 * t7439 * t3608 * t2115 + t1084 * t9141 / 0.108e3 + t7444 * t2233 * t11115 * t11222 / 0.288e3 - t7444 * t9417 * t9293 * t2889 * t813 / 0.144e3 - t9193 * t9365 / 0.24e2 - 0.5e1 / 0.486e3 * t38043;
20028   t38061 = t3607 * t813;
20029   t38085 = t2232 * t7427 * t11154;
20030   t38096 = t2232 * t7427 * t11231;
20031   t38109 = t2232 * t29474 * t11263;
20032   t38111 = t30855 / 0.432e3 - 0.5e1 / 0.3456e4 * t2232 * t7439 * t1075 * t9052 - 0.5e1 / 0.1296e4 * t2232 * t29376 * t1075 * t9038 + 0.5e1 / 0.864e3 * t2232 * t31066 * t1075 * t9048 - t2232 * t2233 * t38061 * t9184 / 0.1152e4 - t2232 * t9417 * t2884 * t37781 / 0.144e3 - 0.5e1 / 0.864e3 * t30892 - t30714 * t9417 * t2879 * t9346 / 0.48e2 - t30899 / 0.1728e4 + t2232 * t2233 * t3668 * t2120 / 0.1152e4 + 0.5e1 / 0.144e3 * t30714 * t31066 * t9042 * t9346 - t38085 / 0.1728e4 - t2232 * t5366 * t9182 * t2997 / 0.384e3 - 0.5e1 / 0.6912e4 * t2232 * t7439 * t3538 * t2257 - t38096 / 0.864e3 + 0.5e1 / 0.6912e4 * t824 * t2578 * t3027 * t37826 + 0.5e1 / 0.2592e4 * t824 * t2578 * t9341 * t37504 + t30508 * t9454 / 0.24e2 - 0.5e1 / 0.5184e4 * t38109;
20033   t38117 = t7444 * t7427 * t11227;
20034   t38120 = t2232 * t29421 * t3620;
20035   t38153 = t9370 * t9426;
20036   t38155 = -t2232 * t2233 * t3546 * t2257 / 0.2304e4 + t38117 / 0.864e3 + t38120 / 0.5184e4 - t30916 / 0.864e3 + t2232 * t2233 * t2997 * t2885 / 0.288e3 - t30920 / 0.243e3 - t30929 / 0.54e2 + t30933 / 0.54e2 - t30937 / 0.81e2 - t30944 / 0.1152e4 + t30947 / 0.288e3 + t9370 * t9406 / 0.216e3 + t30969 / 0.2592e4 + t2232 * t9417 * t9182 * t9183 * t4 / 0.288e3 - t30738 * t9297 / 0.54e2 - 0.5e1 / 0.7776e4 * t30976 + t30983 / 0.288e3 - t2232 * t2233 * t3546 * t2252 / 0.2304e4 - 0.5e1 / 0.6912e4 * t2232 * t7439 * t3538 * t2252 + t38153 / 0.162e3;
20037   t38185 = t3015 * t9429;
20038   t38193 = t11127 * t2225;
20039   t38196 = t7444 * t7427 * t11223;
20040   t38211 = -t2232 * t2233 * t11209 * t760 / 0.1152e4 + t2232 * t2233 * t3608 * t2120 / 0.1152e4 - t7444 * t2233 * t3615 * t2120 / 0.576e3 + t2232 * t2233 * t3542 * t2252 / 0.1152e4 - t30738 * t9389 / 0.108e3 + t31000 / 0.864e3 + t31018 / 0.216e3 - 0.5e1 / 0.1152e4 * t824 * t2578 * t9434 * t37764 + t807 * t8764 * t37747 * t9183 / 0.576e3 + t38185 / 0.81e2 - 0.7e1 / 0.81e2 * t37738 * t31052 * t36644 - t37738 * t31048 * t36644 / 0.6e1 - 0.19e2 / 0.648e3 * t38193 + t38196 / 0.432e3 + t2232 * t2233 * t10865 * t9284 / 0.576e3 - 0.5e1 / 0.3456e4 * t2232 * t7439 * t10860 * t9284 - t31057 / 0.864e3 + t31060 / 0.192e3 - t9370 * t9286 / 0.54e2 - t31078 / 0.576e3;
20041   t38251 = -t31085 / 0.216e3 - t31096 / 0.1152e4 + t31099 / 0.1728e4 + t2232 * t2233 * t1075 * t9065 / 0.576e3 + 0.5e1 / 0.5184e4 * t31110 + 0.5e1 / 0.1944e4 * t31113 - 0.5e1 / 0.1296e4 * t31116 - t31119 / 0.864e3 - t2232 * t2233 * t3668 * t2124 / 0.2304e4 - t31123 / 0.192e3 - 0.5e1 / 0.6912e4 * t2232 * t7439 * t3668 * t2115 + t7444 * t2233 * t3615 * t2124 / 0.1152e4 + t31126 / 0.864e3 - t29509 - t824 * t2578 * t3033 * t37692 / 0.576e3 - t3015 * t9440 / 0.27e2 + 0.5e1 / 0.162e3 * t3015 * t9348 - 0.5e1 / 0.1728e4 * t37746 * t37674 * t9289 + 0.5e1 / 0.648e3 * t9370 * t9378 + t31159 / 0.2592e4;
20042   t38255 = t37407 + t37454 + t37484 + t37558 + t37628 + t37697 + t37756 + t37816 + t37877 + t37933 + t37984 + t38045 + t38111 + t38155 + t38211 + t38251;
20043   t38279 = t803 * t11302;
20044   t38286 = -0.24e2 * t11269 * t2996 * t3055 * t9487 - 0.2e1 * t1075 * t262 * t30409 - 0.6e1 * t11328 * t29498 * t9487 + 0.6e1 * t11328 * t3054 * t7365 - 0.12e2 * t11341 * t9452 * t9487 - t11371 * t2257 * t262 + t188 * t347 * t38255 + 0.2e1 * t2220 * t262 * t37362 - 0.2e1 * t2229 * t3055 * t9266 - 0.4e1 * t262 * t2997 * t9526 - t262 * t3608 * t7486 - t262 * t3668 * t7486 - 0.2e1 * t262 * t38279 * t814;
20045   t38295 = t3070 * t3070;
20046   t38317 = 0.8e1 * t2287 * t11320 + 0.8e1 * t3046 * t9479 - t835 * t838 * (t37140 + t37180 + t37359 + t38286) - 0.12e2 * t3046 * t9475 + params->beta * t38255 * t352 + 0.4e1 * t835 * t2292 * t38295 + 0.4e1 * t835 * t2292 * t1098 * t9536 + 0.4e1 * t2287 * t11325 + 0.8e1 * t9463 * t3050 - t7453 * t3697 + 0.4e1 * t835 * t2292 * t11376 * t844 + 0.2e1 * t835 * t2292 * t3696 * t2311 - t11305 * t2312;
20047   t38322 = t3703 * t29662;
20048   t38333 = 0.20690405167709360120e4 * t7247 * t36635 * t2137 - 0.24000000000000000000e2 * t7159 * t3556 * t2137 - 0.3109070e-1 * t36777 + 0.12865583598954028054e3 * t7147 * t11005 + 0.41380810335418720240e4 * t28812 * t11009 + 0.10000000000000000000e1 * t7139 * t3588 + 0.20000000000000000000e1 * t2131 * t10996 + 0.10000000000000000000e1 * t769 * t37054 + 0.82761620670837440480e4 * t9257 * t31274 * t786 - 0.40000000000000000000e1 * t2136 * t37060 + t169 * (t37097 + t38317) * t848 / 0.2e1 - 0.3e1 * t169 * t38322 * t2318 + 0.20000000000000000000e1 * t37211 * t788 + t169 * t11389 * t2314 - t169 * t11383 * t2314 / 0.2e1;
20049   t38370 = 0.24000000000000000000e2 * t2991 * t9551 + 0.64327917994770140268e2 * t2185 * t2941 * t9135 + 0.20690405167709360120e4 * t7247 * t11008 * t2179 + 0.19964560303604640732e6 * t29132 * t3555 * t29134 * t2137 + 0.60000000000000000000e1 * t2185 * t3588 * t2137 - 0.80000000000000000000e1 * t29951 * t2901 + 0.12865583598954028054e3 * t29850 * t2942 - 0.80000000000000000000e1 * t9224 * t9551 - 0.40000000000000000000e1 * t9224 * t9554 - 0.38596750796862084161e3 * t29938 * t9557 + 0.12000000000000000000e2 * t9000 * t9571 + 0.12865583598954028054e3 * t9000 * t9561 + 0.64327917994770140268e2 * t9000 * t9564 + 0.41380810335418720240e4 * t29853 * t9568 + 0.12000000000000000000e2 * t7147 * t10890;
20050   t38381 = t11379 * t2320;
20051   t38384 = t3699 * t7519;
20052   t38389 = t3073 * t3073;
20053   t38406 = -0.80000000000000000000e1 * t7142 * t10893 - 0.38596750796862084162e3 * t28807 * t10896 + 0.60000000000000000000e1 * t2185 * t3556 * t2179 + 0.11579025239058625248e4 * t7247 * t3591 * t2137 - t169 * t38381 * t847 + t169 * t38384 * t2318 + 0.32163958997385070134e2 * t28914 * t3591 - t169 * t38389 * t2320 + 0.10000000000000000000e1 * t10877 * t2180 + 0.32163958997385070134e2 * t37267 * t2188 + 0.20000000000000000000e1 * t29931 * t1059 + 0.40000000000000000000e1 * t9221 * t2938 + 0.20000000000000000000e1 * t2896 * t9136 - 0.20000000000000000000e1 * t28906 * t3556 - t169 * t3077 * t9539;
20054   t38409 = my_piecewise3(t359, t36634 + t38333 + t38370 + t38406, t36029);
20055   t38412 = t3399 * t27681;
20056   t38416 = t2551 * t2551;
20057   t38417 = t38416 * t506;
20058   t38420 = t10800 * t1763;
20059   t38425 = t3395 * t7082;
20060   t38430 = t3266 * t1597;
20061   t38448 = -0.3e1 * t169 * t38412 * t1761 - 0.40000000000000000000e1 * t1548 * t38417 - t169 * t38420 * t580 + 0.12000000000000000000e2 * t8385 * t8374 + t169 * t38425 * t1761 + 0.10000000000000000000e1 * t10330 * t1593 + 0.32163958997385070134e2 * t38430 * t1601 + 0.20000000000000000000e1 * t32701 * t950 + 0.40000000000000000000e1 * t8380 * t2552 + 0.20000000000000000000e1 * t2508 * t8525 - 0.20000000000000000000e1 * t27133 * t3272 + 0.10000000000000000000e1 * t6636 * t3304 + 0.20000000000000000000e1 * t1543 * t10449 - t169 * t10804 * t1757 / 0.2e1;
20062   t38462 = t1814 * t3300;
20063   t38464 = t1814 * t3294;
20064   t38467 = t10313 * t1454;
20065   t38469 = t106 * t560 * t38467;
20066   t38472 = t6604 * t3196 * t1451;
20067   t38474 = t106 * t1698 * t38472;
20068   t38477 = t1531 * t9774 * t413;
20069   t38479 = t106 * t474 * t38477;
20070   t38481 = t10318 * t1454;
20071   t38483 = t106 * t474 * t38481;
20072   t38485 = t2635 * t4;
20073   t38489 = t606 * t10409;
20074   t38491 = t606 * t10412;
20075   t38500 = t6610 * t3196 * t1451;
20076   t38504 = 0.83356000000000000000e0 * t2547 * t258 * t2494 - 0.11577222222222222222e0 * t38462 - 0.38590740740740740742e-1 * t38464 + 0.83356000000000000002e0 * t32385 - 0.34431666666666666667e0 * t38469 - 0.57386111111111111112e0 * t38474 + 0.20659000000000000000e1 * t38479 + 0.10329500000000000000e1 * t38483 - 0.37047111111111111112e0 * t36789 * t26777 * t38485 - 0.27785333333333333334e0 * t38489 + 0.46308888888888888889e-1 * t38491 + 0.41678000000000000000e0 * t119 * t258 * t38477 + 0.20839000000000000000e0 * t119 * t258 * t38481 + 0.20839000000000000000e0 * t119 * t1582 * t38500;
20077   t38506 = t1526 * t9774 * t413;
20078   t38516 = t10313 * t1451;
20079   t38520 = t10287 * t1451;
20080   t38535 = t36643 * t32437 * t38485;
20081   t38538 = t2500 * t560 * t2489;
20082   t38541 = t36643 * t32441 * t38485;
20083   t38544 = t36643 * t32431 * t38485;
20084   t38546 = t599 * t10304;
20085   t38548 = -0.2e1 / 0.9e1 * t38469 - 0.10e2 / 0.27e2 * t38474 + 0.4e1 / 0.3e1 * t38479 + 0.2e1 / 0.3e1 * t38483 + 0.56e2 / 0.81e2 * t26692 - 0.4e1 / 0.27e2 * t26694 - 0.8e1 / 0.81e2 * t26696 - 0.80e2 / 0.27e2 * t38535 - 0.8e1 / 0.9e1 * t38538 + 0.32e2 / 0.3e1 * t38541 - 0.16e2 * t38544 + 0.4e1 / 0.3e1 * t38546;
20086   t38549 = t8448 * t10308;
20087   t38551 = t3254 * t1454;
20088   t38553 = t106 * t474 * t38551;
20089   t38555 = t599 * t10294;
20090   t38557 = t599 * t10289;
20091   t38559 = t8448 * t10298;
20092   t38561 = t10287 * t1454;
20093   t38563 = t106 * t1698 * t38561;
20094   t38566 = t26703 * t3193 * t1451;
20095   t38568 = t106 * t6995 * t38566;
20096   t38570 = t10292 * t1451;
20097   t38572 = t106 * t474 * t38570;
20098   t38574 = t599 * t10320;
20099   t38576 = t599 * t10315;
20100   t38579 = t106 * t560 * t38506;
20101   t38582 = t26713 * t3193 * t1451;
20102   t38584 = t106 * t1698 * t38582;
20103   t38586 = -0.88e2 / 0.9e1 * t38549 - 0.2e1 * t38553 - 0.8e1 / 0.9e1 * t38555 + 0.20e2 / 0.81e2 * t38557 + 0.88e2 / 0.27e2 * t38559 - 0.10e2 / 0.27e2 * t38563 - 0.80e2 / 0.81e2 * t38568 + 0.8e1 * t38572 - 0.4e1 / 0.9e1 * t38574 + 0.4e1 / 0.27e2 * t38576 - 0.4e1 / 0.9e1 * t38579 + 0.40e2 / 0.9e1 * t38584;
20104   t38589 = t106 * t560 * t38520;
20105   t38592 = t106 * t560 * t38500;
20106   t38595 = t106 * t474 * t38516;
20107   t38597 = t10292 * t1454;
20108   t38599 = t106 * t560 * t38597;
20109   t38609 = -0.8e1 * t38589 + 0.4e1 / 0.3e1 * t38592 - 0.2e1 * t38595 + 0.4e1 / 0.3e1 * t38599 + 0.4e1 / 0.3e1 * t32499 - 0.8e1 / 0.9e1 * t32506 + 0.32e2 / 0.27e2 * t32513 - 0.32e2 / 0.81e2 * t32515 + 0.4e1 / 0.27e2 * t32517 + 0.20e2 / 0.81e2 * t32519 + 0.16e2 / 0.27e2 * t32521 - 0.4e1 / 0.9e1 * t32523;
20110   t38613 = t1805 * t3259;
20111   t38616 = t2500 * t474 * t2494;
20112   t38618 = t1805 * t3263;
20113   t38620 = t1805 * t3255;
20114   t38622 = t1526 * t5;
20115   t38624 = t36755 * t560 * t38622;
20116   t38626 = t1531 * t5;
20117   t38628 = t36755 * t474 * t38626;
20118   t38630 = t599 * t10324;
20119   t38634 = -0.16e2 / 0.9e1 * t32525 - 0.284e3 / 0.27e2 * t32543 + 0.56e2 / 0.81e2 * t32545 + 0.8e1 / 0.27e2 * t38613 + 0.8e1 / 0.3e1 * t38616 - 0.4e1 / 0.27e2 * t38618 - 0.8e1 / 0.81e2 * t38620 - 0.16e2 / 0.9e1 * t38624 + 0.16e2 / 0.3e1 * t38628 + 0.2e1 / 0.9e1 * t38630 + t26998 + 0.8e1 / 0.27e2 * t26749 + 0.4e1 / 0.9e1 * t32554;
20120   t38636 = t38548 + t38586 + t38609 + t38634;
20121   t38639 = t2524 * t2524;
20122   t38649 = t488 * t2524;
20123   t38654 = -0.69463333333333333334e-1 * t119 * t1582 * t38506 - 0.34731666666666666667e-1 * t119 * t1582 * t38467 - 0.46308888888888888889e-1 * t119 * t6680 * t38472 - 0.62517000000000000000e0 * t119 * t258 * t38516 - 0.12503400000000000000e1 * t119 * t1582 * t38520 + 0.10712074074074074074e1 * t26692 - 0.22954444444444444444e0 * t26694 - 0.15302962962962962963e0 * t26696 + 0.63116250000000000000e0 * t493 * t38636 - 0.35297250000000000000e1 * t1554 * t38639 - 0.50013600000000000000e1 * t36789 * t32375 * t38485 + 0.16671200000000000000e1 * t36789 * t26800 * t38485 - 0.45908888888888888890e1 * t38535 + 0.10589175000000000000e2 * t8506 * t38649 - 0.63116250000000000000e0 * t8495 * t38649;
20124   t38660 = t1814 * t3297;
20125   t38666 = t606 * t10392;
20126   t38671 = t606 * t10429;
20127   t38676 = t8513 * t10432;
20128   t38682 = -0.13772666666666666667e1 * t38538 - 0.13892666666666666667e0 * t2547 * t1582 * t2489 + 0.23154444444444444445e0 * t38660 + 0.16527200000000000000e2 * t38541 + 0.16671200000000000000e1 * t36879 * t258 * t38626 + 0.13892666666666666667e0 * t38666 - 0.27785333333333333334e0 * t36879 * t1582 * t38622 + 0.83356000000000000001e0 * t38671 - 0.62517000000000000000e0 * t119 * t258 * t38551 - 0.36120933333333333334e1 * t38676 + 0.92617777777777777780e0 * t32465 - 0.15436296296296296297e0 * t32467 - 0.27785333333333333334e0 * t32469 - 0.27785333333333333334e0 * t32471;
20129   t38698 = -0.11114133333333333334e1 * t32474 + 0.46308888888888888890e-1 * t32476 + 0.61745185185185185187e-1 * t32478 + 0.18523555555555555556e0 * t32480 - 0.24790800000000000000e2 * t38544 + 0.20659000000000000000e1 * t38546 - 0.15149933333333333334e2 * t38549 - 0.30988500000000000000e1 * t38553 - 0.13772666666666666666e1 * t38555 + 0.38257407407407407407e0 * t38557 + 0.50499777777777777779e1 * t38559 - 0.57386111111111111112e0 * t38563 - 0.15302962962962962963e1 * t38568 + 0.12395400000000000000e2 * t38572 - 0.68863333333333333333e0 * t38574;
20130   t38717 = 0.22954444444444444444e0 * t38576 - 0.68863333333333333334e0 * t38579 + 0.25006800000000000000e1 * t119 * t258 * t38570 + 0.68863333333333333334e1 * t38584 - 0.12395400000000000000e2 * t38589 + 0.20659000000000000000e1 * t38592 - 0.30988500000000000000e1 * t38595 + 0.20659000000000000000e1 * t38599 + 0.20659000000000000000e1 * t32499 - 0.13772666666666666666e1 * t32506 + 0.18363555555555555555e1 * t32513 - 0.61211851851851851850e0 * t32515 + 0.22954444444444444444e0 * t32517 + 0.38257407407407407407e0 * t32519;
20131   t38721 = t606 * t10437;
20132   t38723 = t606 * t10440;
20133   t38725 = t8513 * t10443;
20134   t38750 = 0.91817777777777777776e0 * t32521 - 0.68863333333333333332e0 * t32523 - 0.27545333333333333332e1 * t32525 - 0.27785333333333333334e0 * t38721 + 0.61745185185185185186e-1 * t38723 + 0.60201555555555555557e0 * t38725 + 0.20839000000000000000e0 * t119 * t1582 * t38597 + 0.55570666666666666666e0 * t119 * t6680 * t38582 - 0.46308888888888888889e-1 * t119 * t6680 * t38561 - 0.10805407407407407407e0 * t119 * t27069 * t38566 + 0.63116250000000000000e0 * t2532 * t8471 + 0.31558125000000000000e0 * t10359 * t1563 - 0.17648625000000000000e1 * t10421 * t1563 - 0.15779062500000000000e0 * t10424 * t1563 - 0.35297250000000000000e1 * t1554 * t10376 * t488;
20135   t38767 = 0.26472937500000000000e1 * t10415 * t1563 + t27013 - 0.35297250000000000000e1 * t2516 * t8471 - 0.16297655555555555556e2 * t32543 + 0.10712074074074074074e1 * t32545 + 0.27785333333333333334e0 * t32621 + 0.61745185185185185187e0 * t32625 - 0.42604177777777777778e1 * t32627 + 0.45908888888888888889e0 * t38613 + 0.41318000000000000000e1 * t38616 - 0.22954444444444444444e0 * t38618 - 0.15302962962962962963e0 * t38620 - 0.27545333333333333334e1 * t38624 + 0.82636000000000000000e1 * t38628;
20136   t38794 = 0.34431666666666666666e0 * t38630 + 0.61745185185185185184e0 * t27030 + 0.23154444444444444444e0 * t27032 + t27034 + 0.45908888888888888888e0 * t26749 + 0.68863333333333333332e0 * t32554 + 0.63116250000000000000e0 * t1571 * t10376 * t488 - 0.66182343750000000000e1 * t27053 * t3275 * t1555 + 0.26472937500000000000e1 * t6730 * t3282 * t1555 + 0.23668593750000000000e0 * t27007 * t3275 * t1555 - 0.15779062500000000000e0 * t6666 * t3282 * t1555 + 0.63116250000000000000e0 * t1571 * t38639 - 0.38590740740740740740e-1 * t27063 - 0.11577222222222222222e0 * t27088 + 0.35297250000000000000e1 * t486 * t38636;
20137   t38798 = (t38504 + t38654 + t38682 + t38698 + t38717 + t38750 + t38767 + t38794) * t506;
20138   t38801 = t38416 * t1600;
20139   t38831 = 0.64327917994770140268e2 * t1598 * t2555 * t8524 + 0.20690405167709360120e4 * t6745 * t10461 * t1592 + 0.19964560303604640732e6 * t27099 * t3271 * t27101 * t1549 + 0.10000000000000000000e1 * t485 * t38798 + 0.64327917994770140268e2 * t1598 * t38801 - 0.77193501593724168323e3 * t8706 * t8969 + 0.60000000000000000000e1 * t1598 * t3272 * t1592 + 0.11579025239058625248e4 * t6745 * t3307 * t1549 - 0.40000000000000000000e1 * t1548 * t950 * t8524 - 0.19298375398431042081e3 * t6656 * t3307 * t1592 - 0.24828486201251232145e5 * t26939 * t10461 * t1549 - 0.40000000000000000000e1 * t6639 * t10355 + 0.64327917994770140268e2 * t6644 * t10453 - 0.40000000000000000000e1 * t1548 * t10449 * t505 - 0.20000000000000000000e1 * t1548 * t3304 * t1592;
20140   t38836 = t10448 * t1600;
20141   t38843 = t3303 * t6747;
20142   t38863 = t3266 * t1547;
20143   t38873 = -0.19298375398431042081e3 * t6656 * t10452 * t1549 + 0.64327917994770140268e2 * t1598 * t38836 * t505 + 0.32163958997385070134e2 * t1598 * t10452 * t1592 + 0.20690405167709360120e4 * t6745 * t38843 * t1549 + 0.12865583598954028054e3 * t6644 * t10458 + 0.41380810335418720240e4 * t27154 * t10462 - t169 * t2685 * t8944 - 0.24000000000000000000e2 * t6656 * t3272 * t1549 + t169 * t10810 * t1757 + 0.32163958997385070134e2 * t27146 * t3307 + 0.82761620670837440480e4 * t8717 * t33848 * t505 - 0.20000000000000000000e1 * t38863 * t1550 + 0.60000000000000000000e1 * t1598 * t3304 * t1549 - 0.80000000000000000000e1 * t32893 * t2513 + 0.12865583598954028054e3 * t32706 * t2556;
20144   t38894 = t32711 * t580;
20145   t38897 = t2681 * t2681;
20146   t38912 = -0.11415555555555555555e-1 * t38469 - 0.19025925925925925925e-1 * t38474 + 0.68493333333333333332e-1 * t38479 + 0.34246666666666666666e-1 * t38483 + 0.35515061728395061728e-1 * t26692 - 0.76103703703703703703e-2 * t26694 - 0.50735802469135802469e-2 * t26696 - 0.15220740740740740740e0 * t38535 - 0.45662222222222222220e-1 * t38538 + 0.54794666666666666664e0 * t38541 - 0.82191999999999999998e0 * t38544 + 0.68493333333333333332e-1 * t38546;
20147   t38925 = -0.50228444444444444442e0 * t38549 - 0.10274000000000000000e0 * t38553 - 0.45662222222222222220e-1 * t38555 + 0.12683950617283950617e-1 * t38557 + 0.16742814814814814814e0 * t38559 - 0.19025925925925925925e-1 * t38563 - 0.50735802469135802467e-1 * t38568 + 0.41096000000000000000e0 * t38572 - 0.22831111111111111110e-1 * t38574 + 0.76103703703703703701e-2 * t38576 - 0.22831111111111111110e-1 * t38579 + 0.22831111111111111110e0 * t38584;
20148   t38939 = -0.41095999999999999999e0 * t38589 + 0.68493333333333333331e-1 * t38592 - 0.10274000000000000000e0 * t38595 + 0.68493333333333333331e-1 * t38599 + 0.68493333333333333330e-1 * t32499 - 0.45662222222222222220e-1 * t32506 + 0.60882962962962962960e-1 * t32513 - 0.20294320987654320986e-1 * t32515 + 0.76103703703703703700e-2 * t32517 + 0.12683950617283950617e-1 * t32519 + 0.30441481481481481480e-1 * t32521 - 0.22831111111111111110e-1 * t32523;
20149   t38952 = -0.91324444444444444440e-1 * t32525 - 0.54033629629629629628e0 * t32543 + 0.35515061728395061727e-1 * t32545 + 0.15220740740740740740e-1 * t38613 + 0.13698666666666666666e0 * t38616 - 0.76103703703703703702e-2 * t38618 - 0.50735802469135802467e-2 * t38620 - 0.91324444444444444440e-1 * t38624 + 0.27397333333333333332e0 * t38628 + 0.11415555555555555555e-1 * t38630 + t26753 + 0.15220740740740740741e-1 * t26749 + 0.22831111111111111110e-1 * t32554;
20150   t38955 = (t38912 + t38925 + t38939 + t38952) * t251;
20151   t38966 = t10724 * t187;
20152   t38969 = t2678 * t2678;
20153   t38991 = 0.4e1 * t10797 * t1735 * t568 * t577 + 0.24e2 * t1736 * t27559 * t3376 * t568 - 0.6e1 * t1736 * t3392 * t568 * t7025 + 0.4e1 * t1735 * t38969 * t568 - 0.24e2 * t32747 * t32748 * t8883 - t10726 * t1755 + 0.8e1 * t10741 * t1730 - 0.12e2 * t2654 * t8880 + 0.8e1 * t2654 * t8884 - 0.2e1 * t2654 * t8942 + 0.2e1 * t3377 * t7016 - t3393 * t7016 - 0.2e1 * t38966 * t578;
20154   t39000 = t1628 * t10585;
20155   t39003 = t531 * t6896 * t3354;
20156   t39005 = t2612 * t2612;
20157   t39006 = t39005 * t265;
20158   t39015 = t6975 * t10573;
20159   t39024 = t557 * t1616 * t10581;
20160   t39028 = t1723 * t10679;
20161   t39036 = -0.4e1 / 0.243e3 * t32786 + 0.2e1 / 0.81e2 * t32788 + t39000 / 0.216e3 + t39003 / 0.6912e4 - t531 * t533 * t474 * t39006 / 0.768e3 - t32911 / 0.2592e4 + 0.5e1 / 0.1944e4 * t32915 + 0.19e2 / 0.432e3 * t27324 * t3326 - t39015 / 0.108e3 - t557 * t37549 * t560 * t38626 / 0.144e3 - t1723 * t10582 / 0.216e3 + t39024 / 0.1728e4 - 0.19e2 / 0.648e3 * t7006 * t3364 + t39028 / 0.162e3 - 0.19e2 / 0.648e3 * t32919 - 0.19e2 / 0.864e3 * t6889 * t3355 + t26812 / 0.243e3 + t32926 / 0.216e3 - t32938 / 0.54e2;
20162   t39038 = t32999 * t37737;
20163   t39055 = t1671 * t8565 * t10508;
20164   t39066 = t39005 * t1672;
20165   t39072 = t517 * t498 * t3319;
20166   t39074 = t32942 / 0.81e2 + t39038 * t33392 * t38485 / 0.6e1 + t26817 / 0.6912e4 + t32962 / 0.72e2 + t32972 / 0.162e3 - t32976 / 0.243e3 + t32979 / 0.324e3 + 0.7e1 / 0.972e3 * t32983 + t1723 * t10505 / 0.27e2 - t531 * t2578 * t10692 * t1621 / 0.1536e4 + t39055 / 0.576e3 - t531 * t2578 * t10471 * t1717 / 0.1536e4 - 0.19e2 / 0.3888e4 * t26875 - t26877 / 0.486e3 - t26882 - t33010 / 0.81e2 + 0.19e2 / 0.972e3 * t33012 + t33015 / 0.162e3 + t1671 * t533 * t474 * t39066 / 0.384e3 - t39072 / 0.1296e4;
20167   t39086 = t1631 * t10485;
20168   t39093 = t1723 * t10554;
20169   t39115 = t557 * t6896 * t3359;
20170   t39118 = t1682 * t27210 * t3330;
20171   t39123 = t517 * t715 * t1643 * t5 / 0.27e2 + t517 * t1576 * t1643 * t886 / 0.54e2 - 0.11e2 / 0.162e3 * t6760 * t3316 + t39086 / 0.81e2 + 0.5e1 / 0.864e3 * t557 * t37549 * t1698 * t38622 + t33023 / 0.864e3 - t39093 / 0.324e3 - t1723 * t10500 / 0.36e2 + 0.2e1 / 0.243e3 * t33027 + t6828 * t4988 * t8623 * t33114 / 0.64e2 - t6947 * t10563 / 0.54e2 - t1682 * t1684 * t3348 * t1536 / 0.2304e4 - 0.5e1 / 0.6912e4 * t1682 * t6841 * t3348 * t1527 + t33040 / 0.162e3 + t33045 / 0.2592e4 - 0.5e1 / 0.31104e5 * t39115 + t39118 / 0.5184e4 - t6975 * t10509 / 0.72e2 + t33048 / 0.1296e4;
20172   t39147 = t476 * t2612;
20173   t39152 = t3323 * t539;
20174   t39160 = t517 * t8825 * t10303;
20175   t39163 = t517 * t32936 * t10307;
20176   t39172 = t540 * t4;
20177   t39180 = t517 * t8829 * t10293;
20178   t39182 = -0.5e1 / 0.7776e4 * t33054 + t33066 / 0.432e3 + t1682 * t1684 * t2613 * t2495 / 0.288e3 + t1682 * t1684 * t963 * t8401 / 0.576e3 + 0.5e1 / 0.576e3 * t1682 * t6841 * t963 * t8411 + t1682 * t8734 * t963 * t8406 / 0.144e3 + t33078 / 0.486e3 - 0.2e1 / 0.9e1 * t39038 * t33006 * t38485 + t33081 / 0.3888e4 - t1682 * t1684 * t963 * t39147 / 0.576e3 - t1682 * t1684 * t39152 * t8641 / 0.1152e4 + 0.5e1 / 0.1944e4 * t26906 + t26909 / 0.648e3 + t39160 / 0.72e2 + 0.7e1 / 0.108e3 * t39163 + t517 * t2570 * t38551 / 0.48e2 - 0.5e1 / 0.1296e4 * t1682 * t27294 * t10287 * t8630 - 0.5e1 / 0.864e3 * t1682 * t33190 * t2489 * t39172 - t1631 * t10531 / 0.9e1 - t39180 / 0.54e2;
20179   t39186 = t517 * t32981 * t10288;
20180   t39216 = t1631 * t10480;
20181   t39219 = t517 * t498 * t3311;
20182   t39226 = t557 * t8565 * t10499;
20183   t39229 = t557 * t31016 * t10504;
20184   t39243 = 0.7e1 / 0.972e3 * t39186 - 0.5e1 / 0.1728e4 * t1682 * t6841 * t2613 * t2490 - 0.5e1 / 0.3456e4 * t1682 * t6841 * t963 * t8419 - 0.5e1 / 0.1296e4 * t1682 * t27294 * t963 * t8424 + t6828 * t1684 * t33283 * t1672 * t475 * t886 / 0.192e3 - 0.5e1 / 0.864e3 * t1682 * t33190 * t963 * t8397 - t1682 * t1684 * t33114 * t10665 / 0.576e3 + t26928 / 0.972e3 + t33128 / 0.162e3 - 0.2e1 / 0.243e3 * t39216 - t39219 / 0.972e3 - 0.5e1 / 0.243e3 * t1723 * t10653 - 0.5e1 / 0.162e3 * t1723 * t10657 + t39226 / 0.288e3 + 0.5e1 / 0.864e3 * t39229 - t6820 * t2578 * t10471 * t8798 / 0.256e3 - t6975 * t10700 / 0.36e2 - t1631 * t10477 / 0.54e2 + t1682 * t1684 * t10318 * t8630 / 0.576e3;
20185   t39260 = t517 * t498 * t3315;
20186   t39278 = t517 * t242 * t10476;
20187   t39293 = -0.5e1 / 0.3456e4 * t1682 * t6841 * t10313 * t8630 + t6828 * t1684 * t3324 * t8625 / 0.192e3 - 0.5e1 / 0.864e3 * t33132 + t33158 / 0.288e3 - t517 * t715 * t1649 * t5 / 0.18e2 - t33167 / 0.864e3 + t39260 / 0.648e3 - t517 * t1576 * t1649 * t886 / 0.36e2 + 0.11e2 / 0.324e3 * t6760 * t3320 - t1682 * t1684 * t8726 * t932 / 0.1152e4 + t6947 * t10645 / 0.108e3 + t33200 / 0.864e3 + t6947 * t10683 / 0.54e2 + t39278 / 0.432e3 - t33216 / 0.1152e4 + t27212 / 0.5184e4 - t517 * t2566 * t38500 / 0.36e2 + t517 * t2566 * t38467 / 0.216e3 + 0.7e1 / 0.648e3 * t517 * t8836 * t38472 + 0.4e1 / 0.27e2 * t1631 * t10522;
20188   t39296 = t517 * t32940 * t10297;
20189   t39314 = t557 * t6896 * t3367;
20190   t39317 = t1682 * t6950 * t10562;
20191   t39321 = t1682 * t6950 * t10644;
20192   t39324 = t1682 * t33406 * t10682;
20193   t39330 = t3347 * t539;
20194   t39345 = t531 * t1616 * t10635;
20195   t39349 = t1723 * t10568;
20196   t39352 = -0.7e1 / 0.162e3 * t39296 - t517 * t2566 * t38597 / 0.36e2 - 0.7e1 / 0.54e2 * t517 * t8836 * t38582 + 0.7e1 / 0.648e3 * t517 * t8836 * t38561 + 0.35e2 / 0.972e3 * t517 * t33441 * t38566 - 0.2e1 / 0.81e2 * t1631 * t10495 + t33243 / 0.1728e4 - t39314 / 0.10368e5 + t39317 / 0.432e3 + t33270 / 0.864e3 - t39321 / 0.864e3 + 0.5e1 / 0.1728e4 * t39324 + t6828 * t1684 * t8623 * t39147 / 0.288e3 - t1682 * t1684 * t39330 * t8641 / 0.1152e4 - t1682 * t1684 * t33503 * t10665 / 0.1152e4 - t1682 * t8734 * t8639 * t8640 * t4 / 0.288e3 - t39345 / 0.1152e4 + 0.95e2 / 0.3888e4 * t7006 * t3360 - 0.5e1 / 0.972e3 * t39349 - 0.2e1 / 0.81e2 * t33288;
20197   t39368 = t531 * t6896 * t3349;
20198   t39372 = t1628 * t10672;
20199   t39375 = t1671 * t6896 * t3325;
20200   t39388 = 0.41e2 / 0.648e3 * t33291 - t27228 / 0.1296e4 - t27231 / 0.972e3 + t33302 / 0.288e3 - t557 * t2645 * t560 * t2494 / 0.288e3 + 0.19e2 / 0.1296e4 * t7006 * t3368 + 0.5e1 / 0.1728e4 * t557 * t2645 * t1698 * t2489 + t39368 / 0.6912e4 - 0.19e2 / 0.864e3 * t6889 * t3350 + t39372 / 0.216e3 - t39375 / 0.3456e4 - t33310 / 0.54e2 - 0.5e1 / 0.31104e5 * t27258 - 0.11e2 / 0.486e3 * t27260 - 0.5e1 / 0.243e3 * t27265 - t27269 - 0.5e1 / 0.486e3 * t33320 + t33325 / 0.192e3 + t27283 / 0.5184e4 + t1682 * t1684 * t3258 * t1717 / 0.1152e4;
20201   t39403 = t557 * t8565 * t10518;
20202   t39406 = t517 * t8825 * t10319;
20203   t39409 = t517 * t8829 * t10314;
20204   t39420 = t1631 * t10467;
20205   t39425 = t557 * t31016 * t10656;
20206   t39427 = t559 * t962;
20207   t39435 = t557 * t8565 * t10514;
20208   t39437 = t3196 * t1451;
20209   t39444 = t6947 * t10578;
20210   t39446 = -t1682 * t1684 * t10323 * t540 / 0.1152e4 - t1682 * t1684 * t3262 * t1717 / 0.2304e4 - 0.5e1 / 0.648e3 * t1723 * t10519 + 0.5e1 / 0.5184e4 * t39403 - t39406 / 0.216e3 + t39409 / 0.324e3 - t517 * t2570 * t38481 / 0.144e3 - t1682 * t1684 * t963 * t8392 / 0.192e3 - t33339 / 0.864e3 - t33342 / 0.1728e4 - t39420 / 0.162e3 + 0.11e2 / 0.243e3 * t6760 * t3312 - 0.25e2 / 0.5184e4 * t39425 - t531 * t8764 * t39427 * t8640 / 0.576e3 + t1723 * t10515 / 0.108e3 - t39435 / 0.864e3 + t557 * t2578 * t8747 * t39437 / 0.384e3 - 0.19e2 / 0.648e3 * t27218 * t3331 + t39444 / 0.162e3;
20211   t39452 = t1682 * t6950 * t10542;
20212   t39498 = t1682 * t6950 * t10546;
20213   t39500 = t1680 * t210;
20214   t39501 = t2662 * t39500;
20215   t39502 = t276 * t39427;
20216   t39504 = t2635 * t539;
20217   t39510 = t276 * t1697 * t962;
20218   t39520 = -t33356 / 0.1728e4 - t33367 / 0.192e3 - t33374 / 0.576e3 + 0.11e2 / 0.486e3 * t33384 - t39452 / 0.1728e4 - t1682 * t1684 * t3262 * t1621 / 0.2304e4 + t6828 * t1684 * t3262 * t1673 / 0.1152e4 + 0.5e1 / 0.3456e4 * t6828 * t6841 * t3254 * t1673 - t27331 * t4988 * t33253 * t33114 / 0.64e2 + t6828 * t1684 * t8623 * t932 * t1716 / 0.576e3 + t6828 * t8734 * t8623 * t2501 * t539 / 0.144e3 - t1682 * t1684 * t10634 * t476 / 0.1152e4 + 0.7e1 / 0.81e2 * t39038 * t33001 * t38485 + t6828 * t1684 * t3324 * t1536 / 0.1152e4 + 0.5e1 / 0.3456e4 * t6828 * t6841 * t3324 * t1527 + t6947 * t10547 / 0.216e3 - t39498 / 0.1728e4 - t39501 * t39502 * t1672 * t1531 * t39504 / 0.144e3 + 0.5e1 / 0.864e3 * t39501 * t39510 * t1672 * t1526 * t39504 + 0.7e1 / 0.768e3 * t1671 * t2578 * t10692 * t1673;
20219   t39541 = t9774 * t413;
20220   t39549 = t557 * t8565 * t10648;
20221   t39552 = t557 * t8565 * t10652;
20222   t39565 = t1682 * t6950 * t10538;
20223   t39568 = t531 * t8565 * t10707;
20224   t39571 = t531 * t8565 * t10711;
20225   t39581 = t1671 * t2578 * t10471 * t1673 / 0.256e3 + t1628 * t10712 / 0.144e3 + t33203 * t8734 * t2489 * t8765 / 0.48e2 - t6828 * t1684 * t3258 * t1673 / 0.576e3 - t33408 / 0.432e3 - 0.5e1 / 0.144e3 * t33203 * t33190 * t8410 * t8765 - t557 * t2578 * t2640 * t39541 / 0.576e3 + t1628 * t10708 / 0.72e2 - 0.5e1 / 0.864e3 * t39549 + 0.5e1 / 0.1944e4 * t39552 - t1682 * t8734 * t2613 * t2501 / 0.288e3 + t1682 * t1684 * t3348 * t1532 / 0.1152e4 - t27392 / 0.2592e4 + t27395 / 0.3888e4 + t39565 / 0.864e3 - t39568 / 0.576e3 - t39571 / 0.1152e4 - t531 * t2578 * t2579 * t8726 / 0.768e3 - t531 * t2578 * t10692 * t1717 / 0.1536e4;
20226   t39593 = t1682 * t27368 * t10550;
20227   t39608 = t3193 * t1451;
20228   t39616 = t6820 * t8565 * t10694;
20229   t39618 = t277 * t10633;
20230   t39627 = t26849 * t1620;
20231   t39635 = -0.5e1 / 0.5184e4 * t33417 - t517 * t2570 * t38570 / 0.12e2 + t1631 * t10492 / 0.27e2 - t1682 * t4988 * t8639 * t2613 / 0.384e3 - 0.5e1 / 0.5184e4 * t39593 + t27421 / 0.6912e4 - t27427 / 0.3456e4 + t517 * t2570 * t38516 / 0.48e2 - t517 * t2570 * t38477 / 0.72e2 + t517 * t2566 * t38506 / 0.108e3 + 0.4e1 / 0.27e2 * t1631 * t10534 - t557 * t2578 * t32441 * t39608 / 0.96e2 - t33431 / 0.54e2 - t33436 / 0.216e3 - t39616 / 0.192e3 - t531 * t2578 * t39618 * t540 / 0.768e3 + t1682 * t1684 * t3353 * t1532 / 0.1152e4 + t26848 * t2578 * t10692 * t39627 / 0.64e2 - t33465 / 0.1728e4 - t6947 * t10539 / 0.108e3;
20232   t39639 = t1671 * t8565 * t10699;
20233   t39645 = t3196 * t1454;
20234   t39669 = t1682 * t27368 * t10660;
20235   t39675 = t3323 * t6822;
20236   t39686 = t1672 * t8725;
20237   t39698 = t1682 * t6950 * t10666;
20238   t39708 = t39639 / 0.288e3 + 0.5e1 / 0.2592e4 * t557 * t2578 * t8781 * t39437 + 0.5e1 / 0.6912e4 * t557 * t2578 * t2634 * t39645 + 0.5e1 / 0.3456e4 * t557 * t2578 * t2634 * t39541 - t531 * t2578 * t10471 * t1621 / 0.1536e4 - t557 * t2578 * t2640 * t39645 / 0.1152e4 - 0.5e1 / 0.1152e4 * t557 * t2578 * t8753 * t39437 + 0.5e1 / 0.324e3 * t6947 * t10661 - 0.5e1 / 0.2592e4 * t39669 - t1682 * t1684 * t3254 * t8630 / 0.192e3 - t27331 * t1684 * t39675 * t8625 / 0.192e3 + 0.5e1 / 0.192e3 * t557 * t2578 * t32437 * t39608 + 0.5e1 / 0.108e3 * t1723 * t10649 + t1671 * t2578 * t2579 * t39686 / 0.384e3 + t1671 * t2578 * t10692 * t6936 / 0.256e3 + t6947 * t10667 / 0.108e3 - t39698 / 0.864e3 + 0.5e1 / 0.576e3 * t1682 * t6841 * t10292 * t8630 + t1682 * t8734 * t2494 * t39172 / 0.144e3;
20239   t39738 = t3193 * t1454;
20240   t39769 = -t27331 * t1684 * t33253 * t932 * t1620 / 0.192e3 - t33485 / 0.864e3 - t33488 / 0.1152e4 + t33490 / 0.108e3 + t517 * t2566 * t38520 / 0.6e1 - 0.14e2 / 0.243e3 * t1631 * t10525 - 0.8e1 / 0.81e2 * t1631 * t10528 - t1682 * t1684 * t3353 * t1536 / 0.2304e4 - 0.5e1 / 0.6912e4 * t1682 * t6841 * t3353 * t1527 - 0.5e1 / 0.6912e4 * t1682 * t6841 * t3254 * t1717 + t33509 / 0.432e3 - 0.5e1 / 0.2592e4 * t33512 + t557 * t2578 * t8747 * t39738 / 0.384e3 - 0.5e1 / 0.1152e4 * t557 * t2578 * t8753 * t39738 - 0.5e1 / 0.216e3 * t557 * t2578 * t33134 * t39608 + 0.5e1 / 0.2592e4 * t557 * t2578 * t8781 * t39738 + 0.55e2 / 0.7776e4 * t557 * t2578 * t33169 * t39608 + t1671 * t2578 * t39618 * t2580 / 0.384e3 + t1682 * t1684 * t3258 * t1621 / 0.1152e4 + t6947 * t10543 / 0.216e3;
20241   t39777 = t1679 * t39500;
20242   t39782 = t6828 * t6950 * t10640;
20243   t39806 = t10327 * t484;
20244   t39830 = t1598 * t10448;
20245   t39833 = -0.39478417604357434478e2 * t39806 * t536 - 0.19739208802178717239e2 * t10330 * t1710 - 0.63489110255409872532e3 * t38430 * t1713 - 0.39478417604357434478e2 * t32701 * t959 - 0.78956835208714868956e2 * t8380 * t2604 - 0.39478417604357434478e2 * t2508 * t8711 + 0.39478417604357434478e2 * t27133 * t3338 - 0.19739208802178717239e2 * t6636 * t3341 - 0.39478417604357434478e2 * t1543 * t10618 - 0.19739208802178717239e2 * t485 * t38798 * t187 - 0.63489110255409872532e3 * t27146 * t3344 - 0.12697822051081974506e4 * t39830 * t2609;
20246   t39843 = t6644 * t3303;
20247   t39868 = 0.78956835208714868956e2 * t1548 * t10448 * t536 + 0.78956835208714868956e2 * t6639 * t3303 * t536 + 0.49009467336851114346e6 * t26939 * t3271 * t8719 - 0.12697822051081974506e4 * t39843 * t2609 - 0.40841222780709261955e5 * t10629 * t8718 * t1592 + 0.61370581910589784405e0 * t38955 * t187 - 0.22856079691947554112e5 * t10629 * t1713 + 0.47374101125228921372e3 * t10610 * t1707 + 0.38093466153245923519e4 * t10610 * t8722 - 0.39408462447654052777e7 * t27099 * t3271 * t32899 * t1549 - 0.11843525281307230343e3 * t10621 * t1707 - 0.12697822051081974506e4 * t10600 * t8722 - 0.81682445561418523910e5 * t27154 * t3271 * t10630;
20248   t39894 = t505 * t2551;
20249   t39903 = 0.15791367041742973791e3 * t32893 * t949 * t536 - 0.25395644102163949012e4 * t32706 * t949 * t2609 + 0.78956835208714868956e2 * t10595 * t1710 - 0.25395644102163949012e4 * t8385 * t2551 * t2609 + 0.76186932306491847037e4 * t32356 * t949 * t1713 + 0.78956835208714868956e2 * t1548 * t38417 * t187 - 0.12697822051081974506e4 * t1598 * t38801 * t187 + 0.39478417604357434478e2 * t38863 * t1707 - 0.63489110255409872532e3 * t10621 * t8722 - 0.47374101125228921373e3 * t2607 * t32839 * t39894 - 0.16336489112283704782e6 * t8717 * t8718 * t39894 + 0.78956835208714868956e2 * t2601 * t8711;
20250   t39931 = t6745 * t3303;
20251   t39938 = 0.15791367041742973791e3 * t8684 * t2551 * t536 + 0.39478417604357434478e2 * t10615 * t1710 + 0.38093466153245923519e4 * t6656 * t3303 * t1713 + 0.15791367041742973791e3 * t8693 * t2604 - 0.81682445561418523907e5 * t32366 * t949 * t8719 - 0.23687050562614460686e3 * t6644 * t3271 * t536 - 0.12697822051081974506e4 * t2607 * t2608 * t8524 + 0.76186932306491847038e4 * t27149 * t3271 * t2609 - 0.23687050562614460687e3 * t10600 * t1707 + 0.15237386461298369407e5 * t8706 * t2608 * t39894 - 0.40841222780709261955e5 * t39931 * t8719 - 0.11843525281307230343e3 * t10605 * t1710 - 0.25395644102163949012e4 * t8698 * t10626;
20252   t39941 = (t39833 + t39868 + t39903 + t39938) * t265;
20253   t39962 = t6828 * t6950 * t10716;
20254   t39965 = -t6828 * t1684 * t3324 * t1532 / 0.576e3 + 0.5e1 / 0.648e3 * t6947 * t10551 + t39777 * t39502 * t8631 / 0.288e3 + t39782 / 0.864e3 + t33559 / 0.2592e4 + t6828 * t1684 * t11835 * t8625 / 0.576e3 + t6828 * t1684 * t10698 * t10715 / 0.288e3 + t33574 / 0.576e3 - t33577 / 0.864e3 + 0.5e1 / 0.324e3 * t33203 * t1804 * t6995 * t8423 * t8765 - 0.5e1 / 0.6912e4 * t1682 * t6841 * t3254 * t1621 - t27309 * t10641 / 0.108e3 - t531 * t533 * t474 * t39941 / 0.1536e4 + t1628 * t10636 / 0.144e3 - 0.5e1 / 0.1728e4 * t39777 * t39510 * t8635 - t6820 * t2578 * t10692 * t27434 / 0.256e3 - t1682 * t1684 * t33283 * t10665 / 0.1152e4 - t27309 * t10717 / 0.54e2 + t39962 / 0.432e3 - t33582 / 0.1152e4;
20255   t39970 = t557 * t6896 * t3363;
20256   t39988 = t1671 * t8565 * t10703;
20257   t39991 = t1682 * t6950 * t10686;
20258   t40000 = t531 * t8565 * t10472;
20259   t40004 = t33586 / 0.108e3 + t33589 / 0.1728e4 - t33591 / 0.324e3 + t39970 / 0.5184e4 + t27252 * t10695 / 0.24e2 - t6975 * t10704 / 0.24e2 - 0.3e1 / 0.128e3 * t6820 * t2578 * t10692 * t8798 + 0.5e1 / 0.5184e4 * t33602 + 0.5e1 / 0.1944e4 * t33605 + 0.5e1 / 0.1296e4 * t33608 - t33622 / 0.216e3 + t33632 / 0.81e2 + t6947 * t10687 / 0.216e3 + t39988 / 0.192e3 - t39991 / 0.1728e4 + t1671 * t2578 * t10471 * t6936 / 0.768e3 + t1628 * t10473 / 0.144e3 - t40000 / 0.1152e4 - t27525 / 0.648e3 - t27528 / 0.10368e5;
20260   t40008 = t39036 + t39074 + t39123 + t39182 + t39243 + t39293 + t39352 + t39388 + t39446 + t39520 + t39581 + t39635 + t39708 + t39769 + t39965 + t40004;
20261   t40013 = t527 * t10723;
20262   t40036 = t565 * t3323;
20263   t40040 = t282 * t10633;
20264   t40044 = t540 * t2612;
20265   t40048 = t10698 * t539;
20266   t40052 = 0.6e1 * t10749 * t2662 * t6936 - 0.2e1 * t10762 * t1679 * t1717 - t10792 * t1621 * t262 - 0.4e1 * t1679 * t2663 * t40044 - 0.2e1 * t1679 * t2663 * t8726 - 0.2e1 * t1679 * t40040 * t540 + 0.12e2 * t2580 * t2662 * t40036 - 0.2e1 * t262 * t2673 * t8726 + 0.2e1 * t262 * t27576 * t3324 - t262 * t39941 * t572 - 0.2e1 * t262 * t40013 * t540 + 0.24e2 * t2662 * t2663 * t40048;
20267   t40053 = t2651 * t962;
20268   t40066 = t1668 * t3371;
20269   t40083 = t972 * t2612;
20270   t40093 = 0.14e2 * t10749 * t1673 * t2662 - t10749 * t1679 * t1717 - 0.6e1 * t10749 * t27434 * t8892 + 0.12e2 * t10762 * t1673 * t2662 - 0.12e2 * t10762 * t8798 * t8892 - 0.6e1 * t10775 * t8798 * t8892 + 0.2e1 * t1673 * t262 * t40066 + 0.4e1 * t1740 * t262 * t39066 + 0.4e1 * t2580 * t2662 * t40040 + 0.8e1 * t2580 * t2662 * t40053 + 0.8e1 * t2580 * t2662 * t40083 - t262 * t3348 * t7049 + 0.4e1 * t2662 * t2663 * t39686;
20271   t40128 = -0.2e1 * t10634 * t1744 * t262 - 0.12e2 * t10693 * t40036 * t8892 + 0.24e2 * t10749 * t33702 * t39627 - 0.36e2 * t10749 * t8798 * t8892 - 0.2e1 * t10762 * t1621 * t1679 - t10775 * t1621 * t1679 - t10775 * t1679 * t1717 + 0.2e1 * t10775 * t2662 * t6936 - t10792 * t1717 * t262 - 0.4e1 * t1679 * t2613 * t8896 - 0.4e1 * t1679 * t40053 * t540 - 0.4e1 * t2613 * t262 * t8931;
20272   t40134 = t565 * t3347;
20273   t40167 = -0.24e2 * t10693 * t2612 * t2663 * t8892 + 0.8e1 * t10698 * t2662 * t8896 - t10749 * t1621 * t1679 + 0.4e1 * t10762 * t2662 * t6936 + 0.6e1 * t10775 * t1673 * t2662 - 0.2e1 * t1679 * t40036 * t540 - 0.4e1 * t1679 * t40083 * t540 - 0.2e1 * t1679 * t40134 * t540 + t188 * t284 * t40008 + 0.4e1 * t2580 * t2662 * t40134 - t262 * t3353 * t7049 - 0.2e1 * t262 * t33691 * t963 - 0.2e1 * t262 * t39006 * t572;
20274   t40192 = -0.4e1 * t8868 * t2679 - 0.6e1 * t568 * t7025 * t3376 * t1754 + params->beta * t40008 * t289 + 0.4e1 * t2654 * t8888 - t568 * t571 * (t40052 + t40093 + t40128 + t40167) - 0.2e1 * t33809 * t980 + 0.4e1 * t568 * t1735 * t979 * t8941 + 0.4e1 * t1730 * t10746 + 0.2e1 * t568 * t1735 * t3392 * t1754 + 0.2e1 * t10726 * t1737 - 0.2e1 * t1730 * t10798 - 0.12e2 * t1730 * t10737 + 0.8e1 * t8868 * t2658;
20275   t40199 = -0.80000000000000000000e1 * t8684 * t8959 - 0.40000000000000000000e1 * t8684 * t8962 - 0.38596750796862084161e3 * t32356 * t8965 + 0.12865583598954028054e3 * t8385 * t8969 + 0.64327917994770140268e2 * t8385 * t8972 + 0.41380810335418720240e4 * t32366 * t8976 + 0.12000000000000000000e2 * t6644 * t10343 - 0.80000000000000000000e1 * t6639 * t10346 - 0.38596750796862084162e3 * t27149 * t10349 + 0.24000000000000000000e2 * t2607 * t8959 + 0.4e1 * t32348 * t38894 - t169 * t38897 * t1763 - 0.3109070e-1 * t38955 + t169 * (t38991 + t40192) * t581 / 0.2e1 + 0.20000000000000000000e1 * t39806 * t507;
20276   t40202 = my_piecewise3(t296, t38448 + t38831 + t38873 + t40199, t36029);
20277   t40226 = t752 * t9774 + t3531 * t1454 / 0.2e1 + t8984 * t886 + t3708 * t1463 / 0.2e1 + t9587 * t905 + t38409 * t46 / 0.2e1 + t40202 * t34 / 0.2e1 + t853 * t9785 + t29840 - t32338 + 0.2e1 * t1038 * t377 + t10815 * t413 + 0.6e1 * t11400 * t15 - 0.2e1 * t1106 * t377 + t11394 * t436 + 0.4e1 * t2867 * t4 * t377 - 0.6e1 * t10821 * t15 + t2102 * t3196 / 0.2e1 + t2325 * t3202 / 0.2e1 - 0.4e1 * t3082 * t4 * t377;
20278   t40228 = 0.2e1 * t7845 * t1037 - 0.4e1 * t449 * t1110 * t7840 - 0.2e1 * t916 * t9601 - 0.4e1 * t9652 * t857 - 0.8e1 * t8342 * t2451 + (t36291 + t36316 + t36343 + t36376 + t36409 + t36442 + t36470 + t36501) * t227 - t1474 * t3714 - (t36536 + t36564) * t97 * t363 - 0.4e1 * t6587 * t3223 - 0.8e1 * t2442 * t8359 - 0.4e1 * t449 * t857 * t9848 - 0.2e1 * t3212 * t1481 * t363 - 0.2e1 * t9796 * t857 - 0.8e1 * t2448 * t11497 - 0.4e1 * t8308 * t3223 - 0.8e1 * t2448 * t10278 - t98 * t40226;
20279   t40230 = t34641 + t34682 + t36048 + t40228;
20280   t40233 = t869 * t3755;
20281   t40240 = t3126 * t1130;
20282   t40244 = t1122 * t3144;
20283   t40246 = t3740 * t878;
20284   t40248 = t11506 * t372;
20285   t40284 = 0.6e1 * t1481 * t3249 * t369 + 0.3e1 * t34832 * t369 * t97 + 0.12e2 * t36041 * t369 * t96 + t370 * t40230 * params->d + 0.12e2 * t1125 * t9631 + 0.24e2 * t1125 * t9634 + 0.6e1 * t1127 * t9617 + 0.6e1 * t11518 * t875 + 0.6e1 * t11541 * t873 + 0.6e1 * t2363 * t3749 + 0.6e1 * t2367 * t3745 + 0.24e2 * t3132 * t3138;
20286   t40316 = 0.12e2 * t1116 * t369 * t7840 + 0.12e2 * t11422 * t369 * t464 + 0.6e1 * t1516 * t3219 * t369 + 0.6e1 * t1516 * t369 * t3732 + 0.24e2 * t2478 * t3115 * t369 + 0.12e2 * t1125 * t9637 + 0.6e1 * t1125 * t9640 + 0.12e2 * t11530 * t873 + 0.24e2 * t11533 * t873 + 0.12e2 * t11538 * t873 + 0.3e1 * t2363 * t3752 + 0.3e1 * t2370 * t3745 + 0.12e2 * t3132 * t3141;
20287   t40321 = 0.4e1 * t40244 + 0.2e1 * t40246 + 0.2e1 * t40248 + 0.2e1 * t29798 + 0.2e1 * t11507 * t878 + t3741 * t2373 + 0.4e1 * t34547 + 0.4e1 * t34549 + 0.2e1 * t34553 + t872 * (t40284 + t40316) + 0.2e1 * t1123 * t9643;
20288   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20289     v4rho4[2] = t372 * t40230 * t7 + 0.2e1 * t1130 * t9605 + 0.2e1 * t11544 * t870 + t2359 * t3755 + 0.4e1 * t3127 * t3144 + 0.2e1 * t29791 + 0.2e1 * t29795 + 0.2e1 * t34606 + 0.2e1 * t40233 + 0.4e1 * t40240 + t40321;
20290 
20291   t40328 = t12723 * t372;
20292   t40329 = t3212 * t464;
20293   t40353 = (t34303 + t26548 - t26550 - t34304 + t34305 + t26558 - t26561 - t34306 + t34307 + t26571) * t80;
20294   t40391 = t40353 * t97 + 0.60e2 * t34310 * t3721 - 0.24e2 * t400 * t3103 * t9848 - 0.360e3 * t34313 * t11467 + 0.120e3 * t7591 * t11471 - 0.48e2 * t2378 * t11486 - 0.24e2 * t400 * t11458 * t2478 - 0.24e2 * t1392 * t12671 - 0.24e2 * t400 * t11482 * t3249 - 0.4e1 * t1392 * t12695 - 0.24e2 * t400 * t7750 * t3249 + 0.6e1 * t2377 * t3219 + 0.60e2 * t36282 * t3100 - 0.24e2 * t9657 * t3104 + 0.2e1 * t11553 * t863 - 0.24e2 * t2378 * t11425 + 0.12e2 * t881 * t11414;
20295   t40400 = t11563 * t443;
20296   t40415 = t96 * t11560;
20297   t40427 = t424 * t12629;
20298   t40436 = t424 * t12632;
20299   t40438 = t923 * t3244;
20300   t40448 = t424 * t12657;
20301   t40457 = t26320 * t11582 * t414;
20302   t40461 = t3164 * t4 * t377;
20303   t40466 = t887 * t3168;
20304   t40467 = t40466 * t414;
20305   t40470 = t1402 * t3168;
20306   t40473 = t2396 * t9722;
20307   t40479 = t1422 * t11590 * t414;
20308   t40484 = 0.6e1 * t15 + 0.12e2 * t26352;
20309   t40485 = t37 * t40484;
20310   t40492 = 0.50e2 / 0.81e2 * t454 * t11583 + 0.40e2 / 0.81e2 * t85 * t40457 - 0.10e2 / 0.9e1 * t33992 * t40461 - 0.50e2 / 0.9e1 * t454 * t11586 - 0.10e2 / 0.9e1 * t33992 * t40467 + 0.10e2 / 0.3e1 * t7811 * t40470 + 0.10e2 / 0.3e1 * t85 * t40473 - 0.25e2 / 0.9e1 * t454 * t11591 + 0.10e2 / 0.9e1 * t85 * t40479 + 0.5e1 / 0.3e1 * t85 * t40485 - 0.2200e4 / 0.81e2 * t12641 * t419 + 0.400e3 / 0.27e2 * t3235 * t2407;
20311   t40504 = t26336 * t11605 * t418;
20312   t40508 = t3179 * t4 * t377;
20313   t40511 = t897 * t3183;
20314   t40512 = t40511 * t418;
20315   t40515 = t1402 * t3183;
20316   t40518 = t2406 * t9744;
20317   t40522 = t1431 * t11612 * t418;
20318   t40526 = -t49 * t40484;
20319   t40529 = -0.200e3 / 0.9e1 * t3235 * t2411 + 0.50e2 / 0.27e2 * t919 * t9733 + 0.100e3 / 0.9e1 * t34806 * t9737 - 0.50e2 / 0.9e1 * t919 * t9741 - 0.25e2 / 0.3e1 * t919 * t9745 + 0.40e2 / 0.81e2 * t89 * t40504 + 0.10e2 / 0.9e1 * t33999 * t40508 - 0.10e2 / 0.9e1 * t33999 * t40512 - 0.10e2 / 0.3e1 * t7826 * t40515 + 0.10e2 / 0.3e1 * t89 * t40518 + 0.10e2 / 0.9e1 * t89 * t40522 + 0.5e1 / 0.3e1 * t89 * t40526;
20320   t40534 = t34723 + 0.2e1 * t40427 + 0.3e1 * t58 * t26299 * t12628 * t459 - 0.9e1 / 0.4e1 * t58 * t9804 * t2473 - 0.2e1 * t40436 - 0.9e1 / 0.4e1 * t17133 * t40438 * t459 + 0.3e1 / 0.4e1 * t58 * t7796 * t3244 + 0.3e1 / 0.4e1 * t58 * t2457 * t9843 + t40448 / 0.3e1 + t58 * t1493 * t12656 * t459 / 0.4e1 - t58 * t453 * (t40492 + t40529) / 0.8e1;
20321   t40536 = my_piecewise3(t95, 0, t26285 + 0.154e3 / 0.27e2 * t26286 + 0.154e3 / 0.9e1 * t34023 + t34026 - t33932 + 0.22e2 / 0.3e1 * t34721 + 0.6e1 * t34684 - 0.4e1 * t34686 - 0.11e2 / 0.3e1 * t34711 - 0.2e1 * t34702 + t40534);
20322   t40560 = 0.6e1 * t2377 * t3732 + 0.6e1 * t881 * t11419 + 0.6e1 * t881 * t11422 + 0.2e1 * t397 * t12692 - 0.360e3 * t23626 * t40400 + 0.120e3 * t7757 * t11563 * t464 - 0.24e2 * t400 * t464 * t3209 * t928 - 0.48e2 * t2378 * t11437 + 0.840e3 * t26389 * t12678 * t443 - 0.240e3 * t6453 * t40415 * t464 + 0.2e1 * t81 * t96 * t40536 + 0.60e2 * t1397 * t1113 * t9792 - 0.24e2 * t9657 * t3112 - 0.24e2 * t400 * t12704 * t443 - 0.24e2 * t400 * t3219 * t2436 + 0.2e1 * t81 * t464 * t12661 - 0.24e2 * t1392 * t12665 - 0.720e3 * t34500 * t3152 * t928 * t443;
20323   t40570 = t11552 * t399;
20324   t40630 = t9688 * t909 / 0.4e1 + t9691 * t909 / 0.4e1 + t3159 * t2433 / 0.4e1 + t2387 * t3206 / 0.8e1 + t2389 * t3206 / 0.8e1 + t884 * t9789 / 0.8e1 + t9702 * t909 / 0.8e1 + t9749 * t909 / 0.8e1 + t3188 * t2433 / 0.8e1 + t2392 * t3206 / 0.8e1 + t2415 * t3206 / 0.8e1 + t902 * t9789 / 0.8e1 + t405 * t11641 / 0.24e2 + t427 * t11641 / 0.24e2 + t9680 * t909 / 0.8e1;
20325   t40652 = t377 * t3196;
20326   t40662 = 0.12e2 * t15 + 0.24e2 * t26352;
20327   t40672 = t377 * t3202;
20328   t40680 = -t40662;
20329   t40683 = 0.3640e4 / 0.81e2 * t26416 * t11624 * t413 - 0.560e3 / 0.9e1 * t9764 * t1402 - 0.280e3 / 0.9e1 * t7681 * t10513 + 0.56e2 / 0.3e1 * t7684 * t40652 + 0.28e2 / 0.3e1 * t2420 * t9774 + 0.28e2 / 0.9e1 * t1450 * t11629 * t413 - 0.4e1 / 0.3e1 * t431 * t40662 + 0.3640e4 / 0.81e2 * t26433 * t11632 * t436 + 0.560e3 / 0.9e1 * t9777 * t1402 - 0.280e3 / 0.9e1 * t7694 * t11097 - 0.56e2 / 0.3e1 * t7697 * t40672 + 0.28e2 / 0.3e1 * t2426 * t9785 + 0.28e2 / 0.9e1 * t1459 * t11637 * t436 - 0.4e1 / 0.3e1 * t435 * t40680;
20330   t40714 = -0.10e2 / 0.3e1 * t7650 * t40515 + 0.80e2 / 0.81e2 * t410 * t11583 - 0.40e2 / 0.9e1 * t410 * t11591 + 0.5e1 / 0.3e1 * t31 * t40485 - 0.6160e4 / 0.81e2 * t11596 * t419 - 0.40e2 / 0.3e1 * t894 * t9745 + 0.5e1 / 0.3e1 * t45 * t40526 - 0.10e2 / 0.9e1 * t34161 * t40461 - 0.10e2 / 0.9e1 * t34161 * t40467 + 0.10e2 / 0.3e1 * t7629 * t40470 + 0.160e3 / 0.9e1 * t36214 * t9737 + 0.10e2 / 0.9e1 * t34168 * t40508;
20331   t40739 = -0.10e2 / 0.9e1 * t34168 * t40512 + 0.40e2 / 0.81e2 * t31 * t40457 + 0.10e2 / 0.3e1 * t31 * t40473 + 0.10e2 / 0.9e1 * t31 * t40479 + 0.880e3 / 0.27e2 * t3174 * t2407 - 0.440e3 / 0.9e1 * t3174 * t2411 + 0.80e2 / 0.27e2 * t894 * t9733 - 0.80e2 / 0.9e1 * t894 * t9741 + 0.40e2 / 0.81e2 * t45 * t40504 + 0.10e2 / 0.3e1 * t45 * t40518 + 0.10e2 / 0.9e1 * t45 * t40522 - 0.80e2 / 0.9e1 * t410 * t11586 - t26456;
20332   t40761 = t9683 * t909 / 0.8e1 + t3156 * t2433 / 0.8e1 + t2386 * t3187 * t74 / 0.8e1 + t883 * t9748 * t74 / 0.8e1 + t11575 * t440 / 0.8e1 + t11617 * t440 / 0.24e2 + t60 * t66 * t40683 / 0.24e2 + t404 * t11616 * t74 / 0.24e2 + t25 * (t40714 + t40739) * t74 / 0.24e2 + (-t34239 - t26503) * t59 * t74 / 0.24e2 + t11566 * t426 * t74 / 0.24e2 + t11567 * t440 / 0.24e2 + t9679 * t901 * t74 / 0.8e1 + t3155 * t2414 * t74 / 0.8e1 + t11570 * t440 / 0.8e1;
20333   t40762 = t40630 + t40761;
20334   t40772 = 0.240e3 * t7757 * t11430 * t2436 + 0.20e2 * t1397 * t12695 * t443 - 0.12e2 * t2378 * t11409 - 0.4e1 * t40570 * t860 - 0.24e2 * t2378 * t11459 + 0.120e3 * t1397 * t11470 * t2478 + 0.60e2 * t6445 * t12684 - 0.24e2 * t400 * t36497 * t928 + 0.120e3 * t1397 * t12665 * t443 - 0.48e2 * t400 * t11430 * t2478 - 0.360e3 * t6453 * t3721 * t2436 + 0.120e3 * t6445 * t12681 + 0.120e3 * t1397 * t464 * t3152 * t928 + 0.60e2 * t7591 * t11455 - 0.4e1 * t400 * t97 * t40762 + 0.120e3 * t7591 * t11462 - 0.48e2 * t7763 * t3724 - 0.48e2 * t2378 * t11483;
20335   t40780 = t96 * t11644;
20336   t40809 = t3209 * t928;
20337   t40819 = -0.120e3 * t26602 * t12678 + 0.240e3 * t36473 * t11431 + 0.60e2 * t1397 * t3107 * t3209 - 0.8e1 * t400 * t40780 * t464 - 0.12e2 * t7763 * t3727 - 0.24e2 * t2378 * t11434 - 0.8e1 * t400 * t12692 * t443 - 0.12e2 * t9657 * t3107 + 0.6e1 * t9656 * t1116 + 0.6e1 * t3149 * t3115 + 0.6e1 * t3149 * t3118 + 0.6e1 * t397 * t12704 + 0.6e1 * t81 * t2478 * t3249 + 0.6e1 * t81 * t928 * t9848 - 0.12e2 * t36335 * t1113 + 0.120e3 * t7757 * t40809 * t443 + 0.120e3 * t7757 * t912 * t3249 * t443 - 0.24e2 * t1392 * t12668;
20338   t40827 = -0.6e1 * t40329 * t929 - 0.6e1 * t9859 * t3250 - 0.6e1 * t2442 * t9854 - 0.6e1 * t449 * t1110 * t9848 - 0.6e1 * t4302 * t9849 - 0.6e1 * t9866 * t2451 - 0.2e1 * t1476 * t12662 - 0.2e1 * t2448 * t12662 - 0.2e1 * t449 * t857 * t12661 - 0.6e1 * t9866 * t2479 + (t40391 + t40560 + t40772 + t40819) * t227 - 0.12e2 * t9859 * t3223 - 0.12e2 * t2442 * t10278;
20339   t40845 = t10292 * t4;
20340   t40847 = t2500 * t560 * t40845;
20341   t40849 = t2489 * t9774;
20342   t40851 = t106 * t560 * t40849;
20343   t40853 = t8396 * t3196;
20344   t40855 = t2500 * t560 * t40853;
20345   t40857 = t11660 * t413;
20346   t40859 = t106 * t474 * t40857;
20347   t40861 = t3254 * t4;
20348   t40863 = t2500 * t474 * t40861;
20349   t40865 = t2494 * t9774;
20350   t40867 = t106 * t474 * t40865;
20351   t40869 = t8405 * t3196;
20352   t40871 = t2500 * t474 * t40869;
20353   t40874 = t26713 * t11624 * t413;
20354   t40876 = t106 * t1698 * t40874;
20355   t40879 = t26703 * t11624 * t413;
20356   t40881 = t106 * t6995 * t40879;
20357   t40883 = t10287 * t4;
20358   t40885 = t2500 * t1698 * t40883;
20359   t40887 = t11656 * t413;
20360   t40889 = t106 * t560 * t40887;
20361   t40891 = 0.12395400000000000000e2 * t40847 - 0.10329500000000000000e1 * t40851 - 0.20659000000000000000e1 * t40855 + 0.12395400000000000000e2 * t40859 - 0.18593100000000000000e2 * t40863 + 0.30988500000000000000e1 * t40867 + 0.61977000000000000000e1 * t40871 + 0.68863333333333333334e1 * t40876 - 0.15302962962962962963e1 * t40881 - 0.34431666666666666667e1 * t40885 - 0.12395400000000000000e2 * t40889;
20362   t40915 = t3282 * t488;
20363   t40922 = -0.34731666666666666667e0 * t38462 - 0.11577222222222222223e0 * t38464 + 0.12503400000000000000e1 * t2547 * t1582 * t40845 - 0.10419500000000000000e0 * t119 * t1582 * t40849 - 0.20839000000000000000e0 * t2547 * t1582 * t40853 + 0.25006800000000000000e1 * t119 * t258 * t40857 - 0.37510200000000000000e1 * t2547 * t258 * t40861 + 0.62517000000000000000e0 * t119 * t258 * t40865 + 0.12503400000000000000e1 * t2547 * t258 * t40869 + 0.79418812500000000000e1 * t8506 * t40915 - 0.47337187500000000000e0 * t8495 * t40915 + 0.94674375000000000000e0 * t8498 * t3282;
20364   t40926 = t606 * t11701;
20365   t40928 = t599 * t11673;
20366   t40931 = t1531 * t11629 * t413;
20367   t40933 = t106 * t474 * t40931;
20368   t40936 = t1526 * t11629 * t413;
20369   t40938 = t106 * t560 * t40936;
20370   t40958 = t11822 * t413;
20371   t40960 = t29968 * t32441 * t40958;
20372   t40963 = t29968 * t32437 * t40958;
20373   t40968 = 0.8e1 * t40847 - 0.2e1 / 0.3e1 * t40851 - 0.4e1 / 0.3e1 * t40855 + 0.8e1 * t40859 - 0.12e2 * t40863 + 0.2e1 * t40867 + 0.4e1 * t40871 + 0.40e2 / 0.9e1 * t40876 - 0.80e2 / 0.81e2 * t40881 - 0.20e2 / 0.9e1 * t40885 - 0.8e1 * t40889 - 0.2e1 / 0.3e1 * t40928 + 0.2e1 / 0.3e1 * t40933 - 0.2e1 / 0.9e1 * t40938 + 0.28e2 / 0.81e2 * t26692 + 0.4e1 * t40960 - 0.10e2 / 0.9e1 * t40963 + 0.2e1 * t38546 - 0.8e1 / 0.3e1 * t38549 - 0.4e1 / 0.3e1 * t38555;
20374   t40974 = t29968 * t32431 * t40958;
20375   t40976 = t599 * t11665;
20376   t40978 = t599 * t11677;
20377   t40980 = t599 * t11669;
20378   t40982 = t599 * t11657;
20379   t40984 = t599 * t11661;
20380   t40986 = t475 * t40662;
20381   t40988 = t106 * t474 * t40986;
20382   t40996 = 0.10e2 / 0.27e2 * t38557 + 0.8e1 / 0.9e1 * t38559 - 0.2e1 / 0.3e1 * t38574 + 0.2e1 / 0.9e1 * t38576 - 0.6e1 * t40974 + 0.2e1 / 0.9e1 * t40976 + t32514 - t32516 + t40978 / 0.9e1 + 0.2e1 / 0.3e1 * t40980 + 0.10e2 / 0.81e2 * t40982 - 0.4e1 / 0.9e1 * t40984 - t40988 / 0.3e1 - 0.8e1 / 0.9e1 * t32543 + 0.28e2 / 0.27e2 * t32545 + 0.8e1 / 0.9e1 * t38613 - 0.4e1 / 0.9e1 * t38618 - 0.8e1 / 0.27e2 * t38620 + t38630 / 0.3e1 + t26998;
20383   t40997 = t40968 + t40996;
20384   t41004 = 0.94674375000000000000e0 * t2532 * t10376 + 0.69463333333333333333e-1 * t40926 - 0.10329500000000000000e1 * t40928 + 0.10329500000000000000e1 * t40933 - 0.34431666666666666667e0 * t40938 - 0.41678000000000000000e0 * t38489 + 0.69463333333333333333e-1 * t38491 + 0.53560370370370370370e0 * t26692 + 0.35297250000000000000e1 * t486 * t40997 + 0.63116250000000000000e0 * t493 * t40997 + 0.69463333333333333335e0 * t38660 + 0.61977000000000000000e1 * t40960;
20385   t41015 = -0.17215833333333333333e1 * t40963 + 0.20839000000000000000e0 * t38666 + 0.12503400000000000000e1 * t38671 - 0.16671200000000000000e1 * t38676 + t32466 - t32468 + 0.30988500000000000000e1 * t38546 - 0.41318000000000000000e1 * t38549 - 0.20658999999999999999e1 * t38555 + 0.57386111111111111110e0 * t38557 + 0.13772666666666666666e1 * t38559 - 0.10329500000000000000e1 * t38574;
20386   t41033 = t606 * t11711;
20387   t41035 = t606 * t11714;
20388   t41037 = t606 * t11717;
20389   t41039 = 0.34431666666666666666e0 * t38576 - 0.18755100000000000000e1 * t29955 * t32375 * t40958 - 0.52945875000000000000e1 * t8509 * t3282 - 0.52945875000000000000e1 * t2516 * t10376 + 0.23668593750000000000e0 * t27007 * t11734 * t488 - 0.47337187500000000000e0 * t10424 * t2524 - 0.92965500000000000000e1 * t40974 + 0.34431666666666666667e0 * t40976 + 0.30872592592592592593e-1 * t41033 + 0.69463333333333333333e-1 * t41035 - 0.13892666666666666667e0 * t41037;
20390   t41051 = t32590 - t32591 - 0.41678000000000000001e0 * t38721 + 0.92617777777777777780e-1 * t38723 + 0.27785333333333333334e0 * t38725 + t27013 + 0.17215833333333333333e0 * t40978 + 0.10329500000000000000e1 * t40980 + 0.19128703703703703704e0 * t40982 - 0.68863333333333333333e0 * t40984 - 0.51647500000000000000e0 * t40988 + 0.55570666666666666666e0 * t119 * t6680 * t40874;
20391   t41068 = t606 * t11704;
20392   t41072 = t1554 * t11749;
20393   t41075 = t1571 * t11749;
20394   t41083 = -0.10805407407407407407e0 * t119 * t27069 * t40879 - 0.27785333333333333333e0 * t2547 * t6680 * t40883 + 0.20839000000000000000e0 * t119 * t258 * t40931 - 0.34731666666666666667e-1 * t119 * t1582 * t40936 - 0.12503400000000000000e1 * t119 * t1582 * t40887 - 0.41678000000000000000e0 * t41068 - 0.13772666666666666666e1 * t32543 + 0.16068111111111111111e1 * t32545 - 0.17648625000000000000e1 * t41072 * t488 + 0.31558125000000000000e0 * t41075 * t488 - 0.66182343750000000000e1 * t27053 * t11734 * t488 + 0.79418812500000000000e1 * t10415 * t2524;
20395   t41097 = t606 * t11720;
20396   t41102 = 0.62517000000000000000e0 * t29955 * t26800 * t40958 - 0.13892666666666666667e0 * t29955 * t26777 * t40958 + 0.92617777777777777779e0 * t32625 - 0.69463333333333333334e0 * t32627 + 0.13772666666666666667e1 * t38613 - 0.68863333333333333332e0 * t38618 - 0.45908888888888888888e0 * t38620 + 0.51647499999999999999e0 * t38630 + 0.30872592592592592592e0 * t27030 + t27034 + 0.41678000000000000000e0 * t41097 - 0.10419500000000000000e0 * t119 * t258 * t40986;
20397   t41106 = (t40891 + t40922 + t41004 + t41015 + t41039 + t41051 + t41083 + t41102) * t506;
20398   t41117 = t11759 * t1600;
20399   t41132 = 0.62071215503128080361e4 * t39931 * t8975 * t505 + 0.10000000000000000000e1 * t1543 * t11760 + 0.10000000000000000000e1 * t485 * t41106 + 0.20690405167709360120e4 * t27154 * t11766 - 0.24828486201251232145e5 * t26939 * t11766 * t505 - 0.20000000000000000000e1 * t1548 * t11760 * t505 + 0.32163958997385070134e2 * t1598 * t41117 * t505 + 0.96491876992155210402e2 * t6644 * t11763 + 0.96491876992155210402e2 * t1598 * t38836 * t949 - 0.3e1 / 0.2e1 * t169 * t38420 * t982 - 0.3e1 / 0.2e1 * t169 * t10804 * t2681;
20400   t41139 = t11680 * t484;
20401   t41185 = 0.41095999999999999999e0 * t40847 - 0.34246666666666666665e-1 * t40851 - 0.68493333333333333330e-1 * t40855 + 0.41096000000000000000e0 * t40859 - 0.61644000000000000000e0 * t40863 + 0.10274000000000000000e0 * t40867 + 0.20548000000000000000e0 * t40871 + 0.22831111111111111110e0 * t40876 - 0.50735802469135802467e-1 * t40881 - 0.11415555555555555555e0 * t40885 - 0.41095999999999999999e0 * t40889 - 0.34246666666666666667e-1 * t40928 + 0.34246666666666666666e-1 * t40933 - 0.11415555555555555555e-1 * t40938 + 0.17757530864197530864e-1 * t26692 + 0.20547999999999999999e0 * t40960 - 0.57077777777777777775e-1 * t40963 + 0.10274000000000000000e0 * t38546 - 0.13698666666666666666e0 * t38549 - 0.68493333333333333330e-1 * t38555;
20402   t41203 = 0.19025925925925925925e-1 * t38557 + 0.45662222222222222220e-1 * t38559 - 0.34246666666666666666e-1 * t38574 + 0.11415555555555555555e-1 * t38576 - 0.30822000000000000000e0 * t40974 + 0.11415555555555555555e-1 * t40976 + t32676 - t32677 + 0.57077777777777777777e-2 * t40978 + 0.34246666666666666667e-1 * t40980 + 0.63419753086419753083e-2 * t40982 - 0.22831111111111111110e-1 * t40984 - 0.17123333333333333333e-1 * t40988 - 0.45662222222222222220e-1 * t32543 + 0.53272592592592592590e-1 * t32545 + 0.45662222222222222220e-1 * t38613 - 0.22831111111111111111e-1 * t38618 - 0.15220740740740740740e-1 * t38620 + 0.17123333333333333333e-1 * t38630 + t26753;
20403   t41205 = (t41185 + t41203) * t251;
20404   t41211 = t8385 * t3303;
20405   t41217 = t1598 * t11759;
20406   t41227 = -0.19739208802178717239e2 * t41139 * t536 - 0.59217626406536151717e2 * t39806 * t959 - 0.59217626406536151717e2 * t10330 * t2604 + 0.11843525281307230343e3 * t32893 * t3338 - 0.59217626406536151717e2 * t8380 * t3341 - 0.59217626406536151717e2 * t2508 * t10618 - 0.19046733076622961759e4 * t32706 * t3344 - 0.11843525281307230343e3 * t6644 * t11797 + 0.38093466153245923519e4 * t27149 * t11802 - 0.19739208802178717239e2 * t1543 * t11805 - 0.19739208802178717239e2 * t485 * t41106 * t187 - 0.40841222780709261955e5 * t27154 * t11811 + 0.61370581910589784405e0 * t41205 * t187 + 0.11843525281307230343e3 * t38863 * t949 * t536 - 0.19046733076622961760e4 * t41211 * t2609 + 0.11843525281307230343e3 * t8684 * t3303 * t536 - 0.63489110255409872532e3 * t41217 * t2609 - 0.22856079691947554112e5 * t6745 * t11691 * t2609 + 0.11843525281307230343e3 * t8693 * t3341 - 0.19046733076622961759e4 * t39843 * t11808;
20407   t41230 = t3303 * t505;
20408   t41283 = -0.38093466153245923518e4 * t10600 * t10626 + 0.11428039845973777055e5 * t8706 * t2608 * t41230 + 0.11843525281307230343e3 * t8703 * t3341 - 0.19046733076622961760e4 * t38430 * t949 * t2609 - 0.19046733076622961759e4 * t39830 * t11808 + 0.11843525281307230343e3 * t2601 * t10618 + 0.11428039845973777056e5 * t10610 * t10626 - 0.35530575843921691029e3 * t8385 * t3271 * t536 + 0.39478417604357434478e2 * t1548 * t11759 * t536 - 0.35530575843921691029e3 * t10605 * t2604 - 0.12252366834212778586e6 * t39931 * t8718 * t949 * t505 - 0.19046733076622961759e4 * t10621 * t10626 + 0.49009467336851114346e6 * t26939 * t11691 * t10630 - 0.35530575843921691029e3 * t2607 * t32839 * t41230 + 0.47374101125228921372e3 * t6656 * t11691 * t536 - 0.12252366834212778586e6 * t10629 * t8718 * t2551 - 0.12252366834212778586e6 * t32366 * t3271 * t10630 - 0.39408462447654052777e7 * t27099 * t11691 * t32899 * t505 + 0.23687050562614460686e3 * t10595 * t2604 + 0.11428039845973777055e5 * t32356 * t3271 * t2609;
20409   t41285 = (t41227 + t41283) * t265;
20410   t41302 = t517 * t242 * t11775;
20411   t41308 = -t531 * t533 * t474 * t41285 / 0.1536e4 + t557 * t533 * t560 * t40986 / 0.2304e4 - 0.5e1 / 0.486e3 * t1723 * t11870 + t39000 / 0.144e3 + t39003 / 0.2304e4 - t32911 / 0.1728e4 - 0.7e1 / 0.243e3 * t1631 * t11776 + 0.7e1 / 0.1944e4 * t41302 + 0.5e1 / 0.1296e4 * t32915 - t39015 / 0.72e2 + t39024 / 0.1152e4 + t39028 / 0.108e3 + t32973 - t32977;
20412   t41317 = t517 * t8829 * t11664;
20413   t41338 = t39055 / 0.384e3 - t26877 / 0.972e3 - t26882 + 0.7e1 / 0.108e3 * t517 * t33448 * t40883 - t1631 * t11892 / 0.27e2 + t41317 / 0.216e3 + t517 * t518 * t521 * t40662 / 0.288e3 - t33015 / 0.1728e4 - t39072 / 0.432e3 + t39086 / 0.54e2 - t517 * t2570 * t40865 / 0.48e2 - t517 * t8816 * t40869 / 0.24e2 + t517 * t2566 * t40887 / 0.6e1 - t517 * t2570 * t40931 / 0.144e3;
20414   t41350 = t517 * t242 * t11771;
20415   t41355 = t517 * t8825 * t11672;
20416   t41375 = t517 * t2566 * t40936 / 0.216e3 + 0.35e2 / 0.972e3 * t517 * t33441 * t40879 - t39093 / 0.216e3 - t1631 * t11772 / 0.108e3 + t41350 / 0.864e3 + t33028 + t1631 * t11889 / 0.18e2 - t41355 / 0.144e3 + t517 * t8816 * t40861 / 0.8e1 - 0.7e1 / 0.54e2 * t517 * t8836 * t40874 - t517 * t8840 * t40845 / 0.6e1 + t517 * t2566 * t40849 / 0.72e2 + t517 * t8840 * t40853 / 0.36e2 - t517 * t2570 * t40857 / 0.12e2;
20417   t41379 = t517 * t242 * t11779;
20418   t41384 = t517 * t242 * t11840;
20419   t41389 = t3196 * t539 * t265;
20420   t41398 = t3193 * t4;
20421   t41403 = -t1631 * t11780 / 0.18e2 + t41379 / 0.144e3 + 0.2e1 / 0.27e2 * t1631 * t11841 - t41384 / 0.108e3 + t6947 * t11885 / 0.144e3 + t1682 * t1684 * t2494 * t41389 / 0.384e3 + t33046 - 0.5e1 / 0.10368e5 * t39115 + t39118 / 0.1728e4 - t6975 * t11837 / 0.48e2 + t33049 - t33055 + t33079 + t557 * t8764 * t8747 * t41398 / 0.64e2;
20422   t41406 = t886 * t9774;
20423   t41411 = t4 * t3196;
20424   t41419 = t557 * t8565 * t11823;
20425   t41422 = t531 * t1616 * t11816;
20426   t41447 = t932 * t2612;
20427   t41460 = -t557 * t2578 * t2640 * t41406 / 0.384e3 - t557 * t8764 * t2640 * t41411 / 0.192e3 - 0.5e1 / 0.432e3 * t1723 * t11824 + 0.5e1 / 0.3456e4 * t41419 - t41422 / 0.2304e4 + t33081 / 0.2592e4 + t6828 * t1684 * t8623 * t3262 * t539 / 0.384e3 + t6828 * t1684 * t11835 * t10715 / 0.384e3 + t1682 * t8734 * t963 * t10307 / 0.96e2 + t6828 * t1684 * t3324 * t10715 / 0.128e3 - t6828 * t1684 * t8623 * t3258 * t539 / 0.192e3 - t1682 * t1684 * t963 * t41447 / 0.384e3 + t1682 * t1684 * t3353 * t2495 / 0.384e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t3353 * t2490;
20428   t41467 = t6820 * t1616 * t11860;
20429   t41472 = t557 * t1616 * t11869;
20430   t41478 = t6822 * t2612;
20431   t41484 = t1671 * t8565 * t11836;
20432   t41486 = 0.5e1 / 0.3888e4 * t26906 + t39160 / 0.48e2 - t39163 / 0.36e2 - t39180 / 0.36e2 + 0.7e1 / 0.648e3 * t39186 - t41467 / 0.384e3 + t27252 * t11861 / 0.48e2 + 0.5e1 / 0.3888e4 * t41472 - t39216 / 0.81e2 - t39219 / 0.324e3 + t39226 / 0.192e3 - t39229 / 0.144e3 - 0.3e1 / 0.256e3 * t6820 * t2578 * t10692 * t41478 + t41484 / 0.384e3;
20433   t41493 = t557 * t8565 * t11827;
20434   t41496 = t531 * t8565 * t11831;
20435   t41498 = t11629 * t413;
20436   t41524 = t11624 * t413;
20437   t41537 = 0.7e1 / 0.216e3 * t33000 * t33001 * t40958 + t39260 / 0.216e3 - t41493 / 0.576e3 - t41496 / 0.768e3 - t557 * t2578 * t2640 * t41498 / 0.1152e4 + 0.5e1 / 0.6912e4 * t557 * t2578 * t2634 * t41498 - t531 * t2578 * t39618 * t963 / 0.512e3 - t531 * t2578 * t10471 * t2613 / 0.512e3 + 0.5e1 / 0.2304e4 * t557 * t2578 * t2634 * t41406 + 0.5e1 / 0.1152e4 * t557 * t8764 * t2634 * t41411 + t39278 / 0.288e3 + 0.5e1 / 0.192e3 * t557 * t2578 * t32437 * t41524 - 0.5e1 / 0.216e3 * t557 * t2578 * t33134 * t41524 - 0.5e1 / 0.192e3 * t557 * t8764 * t8753 * t41398;
20438   t41542 = t277 * t11844;
20439   t41547 = t1672 * t10633;
20440   t41566 = -t531 * t2578 * t10692 * t2613 / 0.512e3 - t531 * t2578 * t41542 * t540 / 0.1536e4 + t1671 * t2578 * t2579 * t41547 / 0.256e3 - t1682 * t1684 * t963 * t10323 / 0.768e3 + t39296 / 0.54e2 + t33244 + t1723 * t11828 / 0.72e2 - t39314 / 0.3456e4 + t39317 / 0.288e3 - t39321 / 0.576e3 - t39324 / 0.288e3 - t39345 / 0.768e3 - 0.5e1 / 0.648e3 * t39349 - t33291 / 0.216e3;
20441   t41570 = t26849 * t539;
20442   t41582 = t277 * t11814;
20443   t41605 = t26848 * t2578 * t41542 * t41570 / 0.64e2 - 0.3e1 / 0.128e3 * t6820 * t2578 * t41542 * t10693 + t39368 / 0.2304e4 + t39372 / 0.144e3 - t39375 / 0.1152e4 + t1671 * t2578 * t41582 * t2580 / 0.768e3 + t1628 * t11832 / 0.96e2 - t557 * t2578 * t32441 * t41524 / 0.96e2 - 0.5e1 / 0.486e3 * t27265 - t27269 - t6828 * t1684 * t3324 * t2495 / 0.192e3 + 0.5e1 / 0.1152e4 * t6828 * t6841 * t3324 * t2490 + 0.5e1 / 0.3456e4 * t39403 - t27309 * t11905 / 0.72e2;
20444   t41643 = t6947 * t11880 / 0.144e3 - t39406 / 0.144e3 + t39409 / 0.216e3 + 0.55e2 / 0.7776e4 * t557 * t2578 * t33169 * t41524 + 0.5e1 / 0.432e3 * t557 * t8764 * t8781 * t41398 - t27331 * t1684 * t39675 * t10715 / 0.128e3 - t1682 * t1684 * t11845 * t476 / 0.2304e4 - t39420 / 0.108e3 + 0.5e1 / 0.864e3 * t39425 - t39435 / 0.576e3 + t1682 * t1684 * t963 * t10319 / 0.384e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t963 * t10314 - t1682 * t1684 * t8639 * t8640 * t3196 / 0.768e3 + t39444 / 0.108e3;
20445   t41657 = t1682 * t6950 * t11884;
20446   t41659 = t3347 * t962;
20447   t41675 = t557 * t1616 * t11865;
20448   t41680 = t1682 * t27368 * t11900;
20449   t41690 = t6828 * t1684 * t8623 * t3347 * t475 * t413 / 0.384e3 + 0.5e1 / 0.384e3 * t1682 * t6841 * t963 * t10293 - t39452 / 0.1152e4 - t41657 / 0.1152e4 + 0.3e1 / 0.256e3 * t6828 * t4988 * t41659 * t2580 + t33000 * t33392 * t40958 / 0.16e2 - t33000 * t33006 * t40958 / 0.12e2 - t1723 * t11866 / 0.72e2 - t1723 * t11784 / 0.432e3 + t41675 / 0.576e3 + 0.5e1 / 0.432e3 * t6947 * t11901 - 0.5e1 / 0.3456e4 * t41680 - 0.5e1 / 0.384e3 * t33203 * t6841 * t8410 * t10513 + t1682 * t1684 * t2613 * t3258 / 0.384e3;
20450   t41702 = t557 * t1616 * t11783;
20451   t41707 = t1671 * t1616 * t11855;
20452   t41712 = t557 * t1616 * t11850;
20453   t41715 = t531 * t1616 * t11846;
20454   t41727 = -t39498 / 0.1152e4 - t1682 * t1684 * t963 * t10303 / 0.128e3 + t1682 * t1684 * t8639 * t33180 * t3193 / 0.384e3 + t41702 / 0.3456e4 - t6975 * t11856 / 0.48e2 + t41707 / 0.384e3 + 0.5e1 / 0.216e3 * t1723 * t11851 - 0.5e1 / 0.1728e4 * t41712 - t41715 / 0.2304e4 + t1628 * t11847 / 0.288e3 + t1628 * t11817 / 0.288e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t3348 * t2490 - 0.5e1 / 0.576e3 * t39549 + 0.5e1 / 0.1296e4 * t39552;
20455   t41768 = -t1682 * t1684 * t39330 * t10665 / 0.768e3 - t27392 / 0.5184e4 + t27395 / 0.7776e4 + t39565 / 0.576e3 - t39568 / 0.384e3 - t39571 / 0.768e3 + t6828 * t8734 * t3324 * t2501 / 0.192e3 + t33203 * t1684 * t2489 * t10513 / 0.128e3 - 0.3e1 / 0.256e3 * t27331 * t4988 * t33253 * t39330 - t1682 * t8734 * t3353 * t2501 / 0.384e3 - t27331 * t1684 * t11859 * t476 / 0.384e3 - t1682 * t1684 * t11668 * t540 / 0.384e3 - 0.5e1 / 0.3456e4 * t39593 - t1682 * t1684 * t41659 * t8641 / 0.768e3;
20456   t41789 = t1682 * t6950 * t11908;
20457   t41798 = t1682 * t6950 * t11896;
20458   t41810 = -t39616 / 0.128e3 - t1682 * t1684 * t10634 * t932 / 0.768e3 + 0.5e1 / 0.864e3 * t33203 * t27294 * t8423 * t10513 - 0.5e1 / 0.2592e4 * t1682 * t27294 * t11656 * t540 - t1682 * t1684 * t11676 * t540 / 0.2304e4 - t6947 * t11909 / 0.72e2 + t41789 / 0.576e3 + 0.5e1 / 0.1152e4 * t1682 * t6841 * t11660 * t540 + t6947 * t11897 / 0.144e3 - t41798 / 0.1152e4 + t39639 / 0.192e3 - 0.5e1 / 0.1728e4 * t39669 + t6828 * t1684 * t8623 * t41447 / 0.192e3 - t1682 * t1684 * t11815 * t476 / 0.2304e4;
20459   t41840 = t1682 * t6950 * t11879;
20460   t41847 = -t39698 / 0.576e3 - t1682 * t1684 * t39152 * t10665 / 0.768e3 - t1682 * t1684 * t2613 * t3262 / 0.768e3 + 0.5e1 / 0.1152e4 * t6828 * t6841 * t8623 * t3254 * t539 - t531 * t2578 * t41582 * t540 / 0.1536e4 + t1671 * t2578 * t8556 * t11835 / 0.256e3 + t39782 / 0.576e3 + t33560 + t6828 * t1684 * t11854 * t476 / 0.384e3 - t33578 - t41840 / 0.1152e4 - t1682 * t8734 * t3348 * t2501 / 0.384e3 + t39962 / 0.288e3 + t33590;
20461   t41890 = t6828 * t6950 * t11904;
20462   t41892 = -t33592 + t39970 / 0.1728e4 - t1682 * t4988 * t41659 * t540 / 0.512e3 + 0.3e1 / 0.256e3 * t1671 * t2578 * t10692 * t10698 + t39988 / 0.128e3 - t39991 / 0.1152e4 - t40000 / 0.768e3 + 0.7e1 / 0.768e3 * t1671 * t2578 * t41542 * t2580 - 0.5e1 / 0.864e3 * t1682 * t27294 * t963 * t10288 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t8639 * t33085 * t3193 - 0.5e1 / 0.576e3 * t1682 * t33190 * t963 * t10297 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2489 * t41389 + t1682 * t1684 * t3348 * t2495 / 0.384e3 - 0.5e1 / 0.2304e4 * t1682 * t6841 * t2613 * t3254 + t41890 / 0.576e3;
20463   t41896 = t41308 + t41338 + t41375 + t41403 + t41460 + t41486 + t41537 + t41566 + t41605 + t41643 + t41690 + t41727 + t41768 + t41810 + t41847 + t41892;
20464   t41899 = t11914 * t187;
20465   t41957 = t972 * t3347;
20466   t41966 = t3371 * t962;
20467   t41978 = t282 * t11844;
20468   t41991 = t972 * t3323;
20469   t42009 = -0.3e1 * t1679 * t10775 * t14275 + 0.12e2 * t2662 * t10762 * t10698 + 0.6e1 * t262 * t7038 * t11854 - 0.3e1 * t1679 * t41957 * t540 + t188 * t284 * t41896 - 0.3e1 * t1679 * t10749 * t2613 - 0.3e1 * t1679 * t41966 * t540 - 0.6e1 * t262 * t27629 * t11859 - t262 * t1744 * t11845 - 0.18e2 * t8892 * t10749 * t41478 - 0.36e2 * t8892 * t41978 * t10693 + 0.24e2 * t33702 * t41978 * t41570 - 0.3e1 * t262 * t40013 * t963 - 0.3e1 * t1679 * t40040 * t963 - 0.3e1 * t1679 * t41991 * t540 - 0.6e1 * t1679 * t10762 * t2613 + 0.6e1 * t2662 * t8896 * t11835 + 0.18e2 * t2662 * t41991 * t2580 - t1679 * t41978 * t540 + 0.14e2 * t2662 * t41978 * t2580;
20470   t42013 = t282 * t11814;
20471   t42029 = t11835 * t539;
20472   t42057 = t6822 * t3347;
20473   t42068 = t527 * t11913;
20474   t42071 = 0.6e1 * t2662 * t41957 * t2580 + 0.2e1 * t2662 * t42013 * t2580 + 0.6e1 * t2662 * t41966 * t2580 - 0.3e1 * t1679 * t40134 * t963 - 0.3e1 * t262 * t2673 * t10634 - 0.3e1 * t262 * t10792 * t2613 + 0.18e2 * t2662 * t2663 * t42029 - t1679 * t42013 * t540 + 0.6e1 * t2662 * t2663 * t41547 - 0.18e2 * t8892 * t41991 * t10693 - 0.3e1 * t262 * t8931 * t3353 - 0.3e1 * t262 * t8931 * t3348 - t262 * t1744 * t11815 - 0.3e1 * t1679 * t10775 * t2613 - t262 * t572 * t41285 + 0.6e1 * t262 * t33796 * t3324 - 0.18e2 * t8892 * t2663 * t42057 * t539 + 0.18e2 * t2662 * t10749 * t10698 + 0.6e1 * t2662 * t8900 * t11835 - t262 * t42068 * t540;
20475   t42075 = -0.3e1 * t2654 * t10798 - 0.6e1 * t1730 * t11923 + 0.24e2 * t568 * t27559 * t11922 * t577 - 0.18e2 * t568 * t7025 * t3376 * t2678 + 0.6e1 * t1730 * t11927 - 0.18e2 * t32747 * t32748 * t10745 + 0.6e1 * t568 * t1735 * t2678 * t3392 + 0.6e1 * t568 * t1735 * t979 * t10797 - t1730 * t11961 + 0.2e1 * t568 * t1735 * t11960 * t577 - t568 * t571 * (t42009 + t42071);
20476   t42087 = t11963 * t1763;
20477   t42104 = -0.57895126195293126241e3 * t8706 * t10453 - 0.3e1 * t169 * t11970 * t27681 * t580 + t169 * (t289 * t41896 * params->beta + 0.6e1 * t10726 * t2658 - 0.3e1 * t10726 * t2679 - 0.18e2 * t10737 * t2654 + 0.12e2 * t10741 * t2654 + 0.6e1 * t10746 * t2654 + 0.6e1 * t3377 * t8868 - 0.3e1 * t3393 * t8868 - 0.3e1 * t38966 * t980 - t41899 * t578 + t42075) * t581 / 0.2e1 + 0.10000000000000000000e1 * t41139 * t507 + 0.30000000000000000000e1 * t39806 * t950 + 0.18000000000000000000e2 * t2607 * t10355 - 0.3109070e-1 * t41205 - t169 * t42087 * t580 / 0.2e1 + 0.3e1 * t169 * t3395 * t14303 + 0.96491876992155210402e2 * t1598 * t10452 * t2551 + 0.62071215503128080360e4 * t6745 * t10461 * t2551 + 0.19964560303604640732e6 * t27099 * t11691 * t27101 * t505;
20478   t42133 = 0.3e1 * t169 * t10810 * t2681 - 0.60000000000000000000e1 * t38863 * t2513 + 0.96491876992155210402e2 * t38430 * t2556 + 0.18000000000000000000e2 * t8385 * t10343 - 0.12000000000000000000e2 * t8684 * t10346 - 0.57895126195293126241e3 * t32356 * t10349 - 0.60000000000000000000e1 * t8684 * t10355 + 0.96491876992155210402e2 * t8385 * t10453 + 0.19298375398431042080e3 * t8385 * t10458 + 0.62071215503128080361e4 * t32366 * t10462 - 0.24000000000000000000e2 * t6656 * t11692 * t505 + 0.18000000000000000000e2 * t1598 * t3272 * t2551;
20479   t42162 = 0.11579025239058625248e4 * t6745 * t11698 * t505 - 0.60000000000000000000e1 * t6639 * t11695 - 0.60000000000000000000e1 * t1548 * t2552 * t3303 - 0.60000000000000000000e1 * t1548 * t950 * t10448 - 0.57895126195293126243e3 * t6656 * t3307 * t2551 + 0.30000000000000000000e1 * t10330 * t2552 - 0.60000000000000000000e1 * t32893 * t3272 + 0.30000000000000000000e1 * t8380 * t3304 + 0.30000000000000000000e1 * t2508 * t10449 + 0.96491876992155210402e2 * t32706 * t3307 + 0.60000000000000000000e1 * t6644 * t11692 - 0.19298375398431042081e3 * t27149 * t11698;
20480   t42166 = t12012 * t149 * t668;
20481   t42167 = 0.58482236226346462070e0 * t42166;
20482   t42168 = 0.58482236226346462070e0 * t27746;
20483   t42169 = 0.48796115851357829289e-1 * t31316;
20484   t42174 = 0.10254018858216406658e4 * t27785;
20485   t42175 = 0.10389515463408878255e3 * t27787;
20486   t42176 = 0.3e1 * t34859;
20487   t42209 = 0.40e2 / 0.81e2 * t28385 * t11624 * t413 - 0.16e2 / 0.9e1 * t9887 * t1402 - 0.8e1 / 0.9e1 * t7943 * t10513 + 0.8e1 / 0.3e1 * t7946 * t40652 + 0.4e1 / 0.3e1 * t2697 * t9774 + 0.4e1 / 0.9e1 * t1780 * t11629 * t413 + 0.4e1 / 0.3e1 * t67 * t40662 + 0.40e2 / 0.81e2 * t28398 * t11632 * t436 + 0.16e2 / 0.9e1 * t9897 * t1402 - 0.8e1 / 0.9e1 * t7955 * t11097 - 0.8e1 / 0.3e1 * t7958 * t40672 + 0.4e1 / 0.3e1 * t2703 * t9785 + 0.4e1 / 0.9e1 * t1785 * t11637 * t436 + 0.4e1 / 0.3e1 * t70 * t40680;
20488   t42210 = t42209 * t133;
20489   t42212 = t128 * t42210 * t161;
20490   t42214 = t128 * t12012 * t656;
20491   t42218 = t3427 * t224;
20492   t42222 = 0.3e1 * t34916;
20493   t42223 = 0.6e1 * t11986 * t169 * t746 * t748 - 0.3e1 * t10238 * t2849 * t2850 + 0.18e2 * t169 * t2728 * t42218 + t27738 + t27745 - t27762 - t27766 + t27775 + t27781 - t27793 + t31323 - t42167 - t42168 + t42169 - t42174 + t42175 + t42176 + t42212 + t42214 + t42222;
20494   t42224 = 0.17544670867903938621e1 * t34924;
20495   t42225 = 0.51947577317044391276e2 * t34926;
20496   t42226 = 0.17544670867903938621e1 * t34929;
20497   t42227 = t999 * t2844;
20498   t42235 = 0.12e2 * t34933;
20499   t42236 = 0.10526802520742363173e2 * t31331;
20500   t42240 = t12209 * t2093;
20501   t42243 = 0.21687162600603479684e-1 * t27864;
20502   t42244 = 0.18e2 * t12134 * t1769 * t2857 - 0.9e1 * t1768 * t2728 * t9948 - t2849 * t42240 * t746 + t27829 + t27834 + t27853 - t27861 + t31337 - t42235 + t42236 - t42243;
20503   t42247 = 0.32530743900905219526e-1 * t27866;
20504   t42248 = 0.48159733137676571078e0 * t27871;
20505   t42249 = 0.16265371950452609763e-1 * t27879;
20506   t42250 = t3427 * t746;
20507   t42254 = 0.12e2 * t27884;
20508   t42259 = 0.65061487801810439052e-1 * t31359;
20509   t42260 = 0.35089341735807877242e1 * t27898;
20510   t42261 = t3448 * t746;
20511   t42265 = 0.97592231702715658578e-1 * t31376;
20512   t42266 = 0.14447919941302971323e1 * t31378;
20513   t42270 = -0.9e1 * t1768 * t2850 * t42261 + 0.9e1 * t1768 * t3448 * t7918 - t27891 - t27897 + t28377 + t31375 - t31380 - t42259 - t42260 - t42265 + t42266;
20514   t42272 = 0.56968947174242584612e-3 * t28378;
20515   t42273 = t3522 * t677;
20516   t42277 = 0.15584273195113317383e3 * t31393;
20517   t42281 = 0.35089341735807877242e1 * t34977;
20518   t42283 = 0.120e3 * t28429;
20519   t42284 = t613 * t12018;
20520   t42285 = 0.4e1 * t42284;
20521   t42286 = t616 * t12018;
20522   t42287 = 0.4e1 * t42286;
20523   t42288 = 0.31168546390226634765e3 * t31398;
20524   t42292 = 0.18e2 * t2857 * t3427 * t7918 + t28222 + t28226 - t28230 - t28426 + t28434 - t28437 - t42283 + t42285 - t42287 + t42288;
20525   t42296 = 0.36e2 * t31414;
20526   t42300 = 0.24e2 * t28450;
20527   t42305 = t12220 * t28769;
20528   t42309 = 0.60e2 * t28458;
20529   t42314 = 0.17544670867903938621e1 * t31707;
20530   t42315 = 0.6e1 * t12035 * t224 * t2857 * t677 + 0.9e1 * t10013 * t1768 * t2853 - 0.6e1 * t2849 * t42305 * t746 + t31476 - t31482 - t31483 + t31703 + t31704 + t31706 + t42309 - t42314;
20531   t42317 = t12220 * t6117;
20532   t42327 = t12012 * t61 * t663;
20533   t42328 = 0.18311447306006545054e-3 * t42327;
20534   t42330 = 0.17090684152272775384e-2 * t31719;
20535   t42333 = 0.36e2 * t35112;
20536   t42334 = 0.10526802520742363173e2 * t31723;
20537   t42335 = 0.35089341735807877242e1 * t28500;
20538   t42336 = 0.18e2 * t11990 * t31406 + t28337 - t28483 - t28486 - t28489 + t28493 - t28499 - t42330 - t42333 - t42334 + t42335;
20539   t42339 = 0.73245789224026180216e-3 * t35130;
20540   t42340 = 0.3e1 * t31732;
20541   t42344 = 0.72e2 * t31733;
20542   t42345 = 0.360e3 * t31739;
20543   t42353 = 0.32530743900905219526e-1 * t35223;
20544   t42354 = 0.51947577317044391277e2 * t28509;
20545   t42358 = t12209 * t748;
20546   t42368 = -0.9e1 * t10242 * t1768 * t9882 + 0.3e1 * t12035 * t1768 * t1769 + 0.9e1 * t1768 * t35064 * t999 + 0.3e1 * t1768 * t42358 * t677 - t28356 + t28508 + t28513 - t31745 + t31747 + t42353 - t42354;
20547   t42370 = t3522 * t746;
20548   t42374 = 0.24e2 * t35229;
20549   t42375 = 0.60e2 * t35231;
20550   t42376 = 0.12e2 * t35233;
20551   t42409 = -0.28e2 / 0.81e2 * t1450 * t11624 * t413 + 0.8e1 / 0.9e1 * t9993 * t1402 + 0.4e1 / 0.9e1 * t904 * t10513 - 0.2e1 / 0.3e1 * t7991 * t40652 - t2716 * t9774 / 0.3e1 - t69 * t11629 * t413 / 0.9e1 + t672 * t40662 / 0.3e1 - 0.28e2 / 0.81e2 * t1459 * t11632 * t436 - 0.8e1 / 0.9e1 * t10003 * t1402 + 0.4e1 / 0.9e1 * t906 * t11097 + 0.2e1 / 0.3e1 * t8002 * t40672 - t2722 * t9785 / 0.3e1 - t72 * t11637 * t436 / 0.9e1 + t674 * t40680 / 0.3e1;
20552   t42419 = t103 * t11986;
20553   t42424 = t6182 * t12083;
20554   t42426 = t103 * t12139;
20555   t42431 = t28578 * t707;
20556   t42436 = t6182 * t12055;
20557   t42438 = t103 * t12128;
20558   t42443 = t6182 * t12079;
20559   t42445 = t6182 * t12069;
20560   t42447 = -t31542 + t31552 + 0.7e1 / 0.768e3 * t35364 + 0.7e1 / 0.1536e4 * t35366 + 0.7e1 / 0.192e3 * t35388 + 0.7e1 / 0.1536e4 * t35394 - 0.7e1 / 0.384e3 * t35405 + 0.5e1 / 0.128e3 * t1903 * t27995 * t42419 * t708 - 0.7e1 / 0.384e3 * t42424 + 0.7e1 / 0.1536e4 * t2744 * t2746 * t42426 * t2748 + t31880 * t2746 * t42426 * t42431 / 0.128e3 - 0.7e1 / 0.384e3 * t42436 + t2744 * t2746 * t42438 * t2748 / 0.1536e4 + t27935 + 0.35e2 / 0.384e3 * t42443 - 0.7e1 / 0.384e3 * t42445;
20561   t42448 = t8077 * t12064;
20562   t42450 = t6182 * t12059;
20563   t42475 = t6263 * t2784;
20564   t42500 = -0.7e1 / 0.768e3 * t42448 + 0.7e1 / 0.1536e4 * t42450 - 0.3e1 / 0.256e3 * t8085 * t2746 * t42426 * t10111 + t1903 * t1905 * t42438 * t1907 / 0.768e3 + t27942 - 0.5e1 / 0.256e3 * t1903 * t8050 * t3479 * t2803 - 0.7e1 / 0.192e3 * t35454 + 0.15e2 / 0.128e3 * t1903 * t32019 * t1014 * t10023 + 0.119e3 / 0.2304e4 * t35482 - 0.119e3 / 0.4608e4 * t35484 + t8085 * t1905 * t42426 * t27982 / 0.128e3 - 0.3e1 / 0.512e3 * t8085 * t2746 * t10045 * t42475 + t1903 * t1905 * t42426 * t1907 / 0.768e3 - t1903 * t2746 * t10045 * t2785 / 0.1024e4 - t1903 * t2746 * t42426 * t708 / 0.3072e4 + t1903 * t1905 * t35513 * t3460 / 0.256e3 + t1903 * t1905 * t10072 * t10067 / 0.256e3;
20565   t42526 = t2037 * t12091;
20566   t42532 = 0.35e2 / 0.384e3 * t35518 - 0.7e1 / 0.192e3 * t35528 - 0.7e1 / 0.192e3 * t35530 - t31616 + 0.455e3 / 0.648e3 * t27957 + t31621 + 0.595e3 / 0.3456e4 * t31628 - 0.3e1 / 0.4e1 * t6319 * t254 * t3436 * t2728 + 0.3e1 / 0.16e2 * t1867 * t254 * t2739 * t3448 + 0.3e1 / 0.16e2 * t1867 * t254 * t1003 * t10013 + 0.7e1 / 0.1536e4 * t35558 + 0.35e2 / 0.64e2 * t35565 - 0.35e2 / 0.192e3 * t35568 - 0.3e1 / 0.4e1 * t31830 * t183 * t12134 * t677 + 0.7e1 / 0.1152e4 * t42526 - t722 * t726 * t532 * t42409 / 0.768e3;
20567   t42549 = t6315 * t12044;
20568   t42556 = t27738 - t42167 + t27745 - t42168 - t27762 - t27766 + t27775 + t42169 + t31323 + t27781 - t42174 + t42175 - t27793 + t42176 + t42212 + t42214;
20569   t42557 = t42222 - t27796 - t27801 - t27805 - t27809 + t27813 - t27816 - t42224 - t42225 - t42226 - t42235 + t42236 + t27829 + t27834 + t31337 + t27853 - t27861;
20570   t42559 = -t42243 - t42247 + t27870 + t42248 + t27875 + t42249 + t27883 - t42254 - t27888 - t27891 - t42259 - t27897 - t42260 + t31375 - t42265 + t42266;
20571   t42560 = -t31380 + t28377 - t42272 - t31386 + t28210 + t28420 + t31392 - t42277 + t28422 + t42281 + t28222 - t28426 - t42283 + t42285 - t42287 + t42288 + t28434;
20572   t42563 = -t28437 + t28226 - t28230 - t28441 - t28444 - t28244 + t31413 - t42296 - t31417 - t28449 - t31474 - t42300 + t31476 - t31482 - t31483 + t42309;
20573   t42564 = t31703 + t31704 + t31706 - t42314 + t31713 + t31716 - t28279 - t42328 - t28323 - t31718 + t28329 - t42330 - t28483 - t28486 - t28489 - t42333 - t42334;
20574   t42566 = t28337 + t28493 - t28499 + t42335 - t31727 + t42339 + t42340 + t42344 + t31736 - t31738 - t42345 + t42353 + t28508 - t42354 - t31745 + t31747;
20575   t42567 = 0.54934341918019635162e-3 * t35237;
20576   t42569 = 0.19751673498613801407e-1 * t42210 * t159;
20577   t42570 = 0.30762056574649219972e4 * t31756;
20578   t42571 = 0.180e3 * t31758;
20579   t42572 = t28513 - t28356 - t31748 - t42374 + t42375 - t42376 + t28518 + t28521 + t28524 - t31752 - t42567 + t42569 + t28369 - t31753 + t31755 - t42570 + t42571;
20580   t42629 = -0.360e3 * t11986 * t2776 * t6283 * t677 - 0.12e2 * t12035 * t2776 * t677 * t724 - 0.36e2 * t10013 * t2776 * t2777 + 0.180e3 * t10033 * t2776 * t8182 + 0.3e1 * t190 * t42409 * t703 + 0.180e3 * t2728 * t2776 * t9980 - 0.36e2 * t2776 * t3448 * t8186 + 0.9e1 * t10014 * t1008 + 0.60e2 * t12119 * t701 - 0.36e2 * t12122 * t8177 + 0.3e1 * t12125 * t701;
20581   t42631 = (-(t42556 + t42557 + t42559 + t42560 + t42563 + t42564 + t42566 + t42572) * t187 * t192 + 0.3e1 * t12111 * t704 + 0.9e1 * t9967 * t1010 - 0.36e2 * t3468 * t62 * t2778 + 0.9e1 * t3468 * t2781 - 0.36e2 * t2770 * t3472 + 0.180e3 * t9973 * t9981 - 0.72e2 * t9973 * t9984 + 0.9e1 * t2770 * t3475 - 0.36e2 * t9973 * t9990 + t42629) * t194;
20582   t42636 = t28139 * t12147;
20583   t42638 = t6204 * t12152;
20584   t42640 = t1899 * t12142;
20585   t42642 = t2037 * t12136;
20586   t42657 = -t2744 * t8056 * t8057 * t3448 * t707 / 0.128e3 - 0.119e3 / 0.1152e4 * t35585 + 0.7e1 / 0.384e3 * t35591 + 0.595e3 / 0.1152e4 * t35593 - t688 * t254 * t102 * t42409 / 0.48e2 + t1903 * t8056 * t35494 * t3460 / 0.256e3 - 0.7e1 / 0.16e2 * t42549 + 0.5e1 / 0.768e3 * t722 * t2043 * t532 * t12035 * t677 - t697 * t699 * t532 * t42631 / 0.3072e4 + 0.7e1 / 0.768e3 * t42636 - 0.7e1 / 0.768e3 * t42638 + 0.7e1 / 0.4608e4 * t42640 - 0.35e2 / 0.384e3 * t42642 - 0.7e1 / 0.384e3 * t35625 - t1903 * t2746 * t42438 * t708 / 0.3072e4 + t1903 * t1905 * t10045 * t10067 / 0.256e3 - t2744 * t1905 * t42426 * t6186 / 0.128e3;
20587   t42676 = t3478 * t1013;
20588   t42703 = t1899 * t12131;
20589   t42705 = t2037 * t12087;
20590   t42707 = 0.3e1 / 0.512e3 * t2744 * t2746 * t10045 * t10040 + t1903 * t1905 * t103 * t12035 * t708 / 0.768e3 - 0.5e1 / 0.256e3 * t1903 * t6301 * t8029 * t12077 - 0.7e1 / 0.384e3 * t35653 - 0.7e1 / 0.768e3 * t35671 + 0.35e2 / 0.192e3 * t35680 + 0.3e1 / 0.512e3 * t2744 * t23548 * t42676 * t2748 - 0.35e2 / 0.384e3 * t35696 - 0.119e3 / 0.4608e4 * t35703 + 0.35e2 / 0.128e3 * t722 * t28079 * t532 * t11986 * t677 - 0.15e2 / 0.128e3 * t722 * t6285 * t532 * t3427 * t2728 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t2728 * t3448 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t999 * t10013 + 0.7e1 / 0.4608e4 * t42703 + 0.35e2 / 0.192e3 * t42705 - t31898;
20591   t42734 = 0.595e3 / 0.864e3 * t31899 + t31902 - 0.35e2 / 0.72e2 * t35719 + 0.455e3 / 0.216e3 * t31913 + 0.35e2 / 0.24e2 * t35723 - t31945 + t31947 - 0.5e1 / 0.256e3 * t1903 * t8050 * t8211 * t12077 - 0.5e1 / 0.128e3 * t1903 * t8050 * t1014 * t10028 - t2744 * t8056 * t12062 * t8051 / 0.128e3 + 0.7e1 / 0.48e2 * t35773 - 0.5e1 / 0.256e3 * t1903 * t8050 * t1014 * t10033 + 0.7e1 / 0.96e2 * t35780 + 0.7e1 / 0.4e1 * t35782 - 0.7e1 / 0.8e1 * t35784 - 0.7e1 / 0.16e2 * t35786 + 0.595e3 / 0.10368e5 * t28123;
20592   t42752 = t999 * t2784;
20593   t42797 = 0.5e1 / 0.4e1 * t28111 * t254 * t12049 * t677 + t1867 * t254 * t12036 * t677 / 0.16e2 + t1903 * t8056 * t8211 * t12053 / 0.256e3 - 0.3e1 / 0.512e3 * t8085 * t23548 * t31925 * t35494 + t1903 * t8056 * t1014 * t42752 / 0.128e3 + t1903 * t8056 * t35753 * t3460 / 0.256e3 + 0.5e1 / 0.128e3 * t2744 * t8050 * t8057 * t3427 * t707 - 0.3e1 / 0.128e3 * t2744 * t8056 * t3454 * t8051 + 0.3e1 / 0.128e3 * t8085 * t8056 * t35682 * t8051 - t2744 * t8056 * t8057 * t3478 * t677 / 0.128e3 + t1903 * t8056 * t42676 * t1907 / 0.256e3 - t2744 * t8056 * t8057 * t42752 / 0.64e2 + 0.5e1 / 0.128e3 * t2744 * t8050 * t3454 * t2803 - 0.5e1 / 0.256e3 * t1903 * t8050 * t3484 * t2803 + 0.119e3 / 0.576e3 * t35817 + 0.7e1 / 0.256e3 * t35820;
20594   t42817 = t1892 * t10017;
20595   t42835 = t8077 * t12074;
20596   t42846 = t28107 * t12050;
20597   t42848 = t1863 * t12037;
20598   t42850 = -0.7e1 / 0.384e3 * t35826 - 0.7e1 / 0.256e3 * t35828 - t2744 * t1905 * t10045 * t1892 * t2728 / 0.128e3 - t1903 * t2746 * t35513 * t1014 / 0.1024e4 - t1903 * t2746 * t10072 * t2785 / 0.1024e4 + t2744 * t2746 * t8029 * t12062 / 0.512e3 + t2744 * t2746 * t2747 * t42817 / 0.512e3 - 0.15e2 / 0.128e3 * t31970 * t27995 * t2796 * t10033 + t1903 * t1905 * t8029 * t12053 / 0.256e3 + t1903 * t1905 * t2747 * t194 * t10013 / 0.256e3 + 0.7e1 / 0.192e3 * t42835 + 0.595e3 / 0.2592e4 * t28613 - t1903 * t23548 * t42676 * t708 / 0.1024e4 - 0.5e1 / 0.256e3 * t1903 * t8050 * t12134 * t708 + t32064 + 0.7e1 / 0.12e2 * t42846 + 0.7e1 / 0.144e3 * t42848;
20599   t42853 = t42447 + t42500 + t42532 + t42657 + t42707 + t42734 + t42797 + t42850;
20600   t42856 = t12160 * t187;
20601   t42910 = t214 * t12128;
20602   t42925 = t1023 * t3478;
20603   t42932 = t1023 * t3453;
20604   t42950 = t3498 * t1013;
20605   t42957 = t214 * t12139;
20606   t42966 = t188 * t197 * t42853 - 0.3e1 * t2833 * t10213 * t2785 + 0.2e1 * t2823 * t42910 * t2748 + 0.18e2 * t2823 * t10187 * t10040 - t2833 * t42910 * t708 - 0.3e1 * t2833 * t35880 * t1014 + 0.6e1 * t2823 * t8253 * t12062 + 0.6e1 * t2823 * t42925 * t2748 - 0.6e1 * t2833 * t10200 * t2785 - 0.3e1 * t2833 * t42932 * t708 + 0.6e1 * t262 * t6359 * t12150 + 0.6e1 * t2823 * t2824 * t42817 + 0.6e1 * t2823 * t8249 * t12062 - 0.3e1 * t262 * t10230 * t2785 - t262 * t2069 * t12140 + 0.6e1 * t2823 * t42950 * t2748 - 0.18e2 * t8245 * t10187 * t42475 - t2833 * t42957 * t708 + 0.14e2 * t2823 * t42957 * t2748 - 0.3e1 * t262 * t8284 * t3479;
20607   t42972 = t694 * t12159;
20608   t42986 = t6263 * t3478;
20609   t43006 = t12062 * t707;
20610   t43028 = -t262 * t738 * t42631 - 0.3e1 * t2833 * t10213 * t14414 - t262 * t42972 * t708 - 0.6e1 * t262 * t28724 * t12145 - 0.3e1 * t262 * t35319 * t1014 - 0.3e1 * t2833 * t10187 * t2785 - t262 * t2069 * t12129 - 0.18e2 * t8245 * t2824 * t42986 * t707 - 0.3e1 * t262 * t2836 * t10018 - 0.18e2 * t8245 * t42932 * t10111 + 0.18e2 * t2823 * t42932 * t2748 + 0.24e2 * t32107 * t42957 * t42431 - 0.36e2 * t8245 * t42957 * t10111 + 0.18e2 * t2823 * t2824 * t43006 + 0.6e1 * t262 * t32213 * t3454 - 0.3e1 * t2833 * t35905 * t1014 - 0.3e1 * t2833 * t42950 * t708 - 0.3e1 * t262 * t8284 * t3484 - 0.3e1 * t2833 * t42925 * t708 + 0.12e2 * t2823 * t10200 * t10040;
20611   t43032 = -0.3e1 * t2815 * t10236 - 0.6e1 * t2055 * t12169 + 0.24e2 * t734 * t28635 * t12168 * t743 - 0.18e2 * t734 * t6346 * t3503 * t2841 + 0.6e1 * t2055 * t12173 - 0.18e2 * t32234 * t32235 * t10183 + 0.6e1 * t734 * t2060 * t2841 * t3519 + 0.6e1 * t734 * t2060 * t1030 * t10235 - t2055 * t12207 + 0.2e1 * t734 * t2060 * t12206 * t743 - t734 * t737 * (t42966 + t43028);
20612   t43046 = t169 * t175 * (t221 * t42853 * params->beta + 0.6e1 * t10164 * t2819 - 0.3e1 * t10164 * t2842 - 0.18e2 * t10175 * t2815 + 0.12e2 * t10179 * t2815 + 0.6e1 * t10184 * t2815 - 0.3e1 * t1031 * t35970 + 0.6e1 * t3504 * t8221 - 0.3e1 * t3520 * t8221 - t42856 * t744 + t43032) * t748 + 0.18e2 * t2857 * t7924 * t3448 + 0.18e2 * t2857 * t2858 * t10013 - t42567 + t42569 + t28369 + 0.18e2 * t2857 * t9915 * t2803 - t31753 + t31755 - t42570 + t42571;
20613   t43050 = t43046 + t31736 + t28521 + t28524 - t42300 - t42296 + t28518 - t42328 - t42225 - t42226 + t42244 + t31413 - t28449 + t27870 - t28441 - t31417 - t27809 + t27813 + t31716 - t31718 - t27888 - t27796 - t31727 - t28323 + t27883 + t42281 + t42223 - t42224 - t27816 - t28444 - t31386 + t42336 + t28420 + t28422 + t28329 - t31748 + t42270 - t42272 + t31713 - t42247 + t42248 + t42249 - t28279 - t27801 + t28210 + t31392 - t31738 + t42315 - t31474 + t42339 + t42340 - t42277 + t42368 - t42254 + t42344 - t28244 + t27875 - 0.18e2 * t1768 * t2850 * t42227 - 0.18e2 * t2857 * t2850 * t42250 + 0.36e2 * t2857 * t2853 * t10028 - 0.9e1 * t1768 * t2850 * t42273 - 0.18e2 * t2857 * t9948 * t2803 + 0.6e1 * t2849 * t9934 * t2844 + 0.6e1 * t1768 * t42317 * t677 + 0.9e1 * t1768 * t9915 * t2728 - 0.3e1 * t2849 * t7972 * t3522 + 0.18e2 * t1768 * t9934 * t9882 + 0.18e2 * t2857 * t2853 * t10033 + 0.6e1 * t2849 * t7889 * t42370 + 0.3e1 * t169 * t671 * t42409 - t42374 + t42375 - t42376 - t42345 - t31752 + t42292 - t27805 + 0.18e2 * t31406 * t11993;
20614   t43051 = my_piecewise3(t296, t41132 + t42104 + t42133 + t42162, t43050);
20615   t43082 = t599 * t12258;
20616   t43086 = t2879 * t9785;
20617   t43088 = t106 * t827 * t43086;
20618   t43090 = t9047 * t3202;
20619   t43092 = t2500 * t827 * t43090;
20620   t43094 = t599 * t12250;
20621   t43096 = t12501 * t436;
20622   t43098 = t29968 * t29973 * t43096;
20623   t43103 = 0.10274000000000000000e0 * t36665 - 0.68493333333333333330e-1 * t36671 + t30270 - t30271 + 0.19025925925925925925e-1 * t36686 - 0.45662222222222222220e-1 * t36688 + 0.13698666666666666666e0 * t36699 - 0.34246666666666666666e-1 * t36710 + 0.11415555555555555555e-1 * t36714 - 0.34246666666666666667e-1 * t43082 + t29161 + 0.17757530864197530864e-1 * t29016 - 0.22831111111111111111e-1 * t36747 - 0.34246666666666666665e-1 * t43088 + 0.68493333333333333330e-1 * t43092 + 0.11415555555555555555e-1 * t43094 - 0.30822000000000000000e0 * t43098 + 0.45662222222222222220e-1 * t36752 + 0.17123333333333333333e-1 * t36764 - 0.15220740740740740740e-1 * t36766;
20624   t43105 = t29968 * t29969 * t43096;
20625   t43108 = t29968 * t30162 * t43096;
20626   t43110 = t759 * t40680;
20627   t43112 = t106 * t758 * t43110;
20628   t43114 = t599 * t12254;
20629   t43116 = t599 * t12262;
20630   t43118 = t12245 * t436;
20631   t43120 = t106 * t758 * t43118;
20632   t43122 = t3538 * t4;
20633   t43124 = t2500 * t758 * t43122;
20634   t43126 = t2884 * t9785;
20635   t43128 = t106 * t758 * t43126;
20636   t43130 = t9060 * t3202;
20637   t43132 = t2500 * t758 * t43130;
20638   t43135 = t2119 * t11637 * t436;
20639   t43137 = t106 * t758 * t43135;
20640   t43140 = t2114 * t11637 * t436;
20641   t43142 = t106 * t827 * t43140;
20642   t43145 = t28887 * t11632 * t436;
20643   t43147 = t106 * t2271 * t43145;
20644   t43150 = t28987 * t11632 * t436;
20645   t43152 = t106 * t7407 * t43150;
20646   t43154 = t10834 * t4;
20647   t43156 = t2500 * t2271 * t43154;
20648   t43158 = t12241 * t436;
20649   t43160 = t106 * t827 * t43158;
20650   t43162 = t10839 * t4;
20651   t43164 = t2500 * t827 * t43162;
20652   t43168 = t599 * t12242;
20653   t43170 = t599 * t12246;
20654   t43172 = 0.20547999999999999999e0 * t43105 - 0.57077777777777777775e-1 * t43108 - 0.17123333333333333333e-1 * t43112 + 0.34246666666666666667e-1 * t43114 + 0.57077777777777777777e-2 * t43116 + 0.41096000000000000000e0 * t43120 + 0.61644000000000000000e0 * t43124 + 0.10274000000000000000e0 * t43128 - 0.20548000000000000000e0 * t43132 + 0.34246666666666666666e-1 * t43137 - 0.11415555555555555555e-1 * t43142 + 0.22831111111111111110e0 * t43147 - 0.50735802469135802467e-1 * t43152 + 0.11415555555555555555e0 * t43156 - 0.41095999999999999999e0 * t43160 - 0.41095999999999999999e0 * t43164 + 0.45662222222222222220e-1 * t30171 + 0.53272592592592592590e-1 * t30179 + 0.63419753086419753083e-2 * t43168 - 0.22831111111111111110e-1 * t43170;
20655   t43174 = (t43103 + t43172) * t318;
20656   t43179 = t12265 * t768;
20657   t43192 = -0.57895126195293126241e3 * t9246 * t11000 + 0.30000000000000000000e1 * t37211 * t1059 + 0.30000000000000000000e1 * t10877 * t2938 - 0.3109070e-1 * t43174 + 0.3e1 * t169 * t3699 * t15847 + 0.10000000000000000000e1 * t43179 * t788 - 0.19298375398431042081e3 * t28807 * t12283 + 0.10000000000000000000e1 * t2131 * t12345 - 0.60000000000000000000e1 * t29951 * t3556 + 0.30000000000000000000e1 * t9221 * t3588 + 0.30000000000000000000e1 * t2896 * t10996;
20658   t43213 = -0.18755100000000000000e1 * t29955 * t29963 * t43096 + 0.30988500000000000000e1 * t36665 - 0.20658999999999999999e1 * t36671 - 0.27785333333333333334e0 * t36815 + 0.62517000000000000000e0 * t29955 * t29453 * t43096 - 0.13892666666666666667e0 * t29955 * t29295 * t43096 - 0.47337187500000000000e0 * t10944 * t2912 + t30001 - t30003 + 0.57386111111111111110e0 * t36686 - 0.13772666666666666666e1 * t36688;
20659   t43242 = 0.41318000000000000000e1 * t36699 - 0.10329500000000000000e1 * t36710 + 0.34431666666666666666e0 * t36714 - 0.10805407407407407407e0 * t119 * t28985 * t43150 + 0.27785333333333333333e0 * t2547 * t7185 * t43154 + 0.20839000000000000000e0 * t119 * t323 * t43135 - 0.34731666666666666667e-1 * t119 * t2169 * t43140 + 0.62517000000000000000e0 * t119 * t323 * t43126 - 0.12503400000000000000e1 * t2547 * t323 * t43130 + 0.55570666666666666666e0 * t119 * t7185 * t43145 - 0.12503400000000000000e1 * t2547 * t2169 * t43162 - 0.10329500000000000000e1 * t43082;
20660   t43252 = t2159 * t12326;
20661   t43262 = 0.94674375000000000000e0 * t9083 * t3566 + 0.94674375000000000000e0 * t2920 * t10932 + t28994 + 0.53560370370370370370e0 * t29016 - 0.41678000000000000000e0 * t36859 + 0.69463333333333333333e-1 * t36861 - 0.11577222222222222223e0 * t36872 + 0.31558125000000000000e0 * t43252 * t772 - 0.66182343750000000000e1 * t29060 * t12294 * t772 + 0.79418812500000000000e1 * t10990 * t2912 - 0.68863333333333333332e0 * t36747 - 0.10329500000000000000e1 * t43088;
20662   t43266 = t606 * t12331;
20663   t43269 = t606 * t12334;
20664   t43281 = 0.20659000000000000000e1 * t43092 + 0.34431666666666666667e0 * t43094 + 0.20839000000000000000e0 * t36886 + 0.69463333333333333333e-1 * t43266 - 0.41678000000000000001e0 * t36897 - 0.41678000000000000000e0 * t43269 - 0.92965500000000000000e1 * t43098 + 0.13772666666666666667e1 * t36752 + 0.51647499999999999999e0 * t36764 - 0.45908888888888888888e0 * t36766 - 0.10419500000000000000e0 * t119 * t2169 * t43086 + 0.20839000000000000000e0 * t2547 * t2169 * t43090;
20665   t43293 = t2142 * t12326;
20666   t43304 = 0.25006800000000000000e1 * t119 * t323 * t43118 - 0.12503400000000000000e1 * t119 * t2169 * t43158 + 0.37510200000000000000e1 * t2547 * t323 * t43122 - 0.17648625000000000000e1 * t43293 * t772 + t29037 + t30196 - t30198 - 0.52945875000000000000e1 * t9007 * t3566 - 0.52945875000000000000e1 * t2904 * t10932 + 0.23668593750000000000e0 * t29080 * t12294 * t772 + 0.30872592592592592592e0 * t29043;
20667   t43309 = t3566 * t772;
20668   t43315 = t606 * t12299;
20669   t43317 = t606 * t12302;
20670   t43319 = t606 * t12340;
20671   t43323 = 0.92617777777777777780e-1 * t36913 + 0.61977000000000000000e1 * t43105 - 0.17215833333333333333e1 * t43108 - 0.34731666666666666667e0 * t36931 + 0.79418812500000000000e1 * t9096 * t43309 - 0.47337187500000000000e0 * t9099 * t43309 - 0.51647500000000000000e0 * t43112 + 0.30872592592592592593e-1 * t43315 + 0.69463333333333333333e-1 * t43317 - 0.13892666666666666667e0 * t43319 + 0.10329500000000000000e1 * t43114 + 0.17215833333333333333e0 * t43116;
20672   t43345 = 0.2e1 * t36665 - 0.4e1 / 0.3e1 * t36671 + t30135 - t30136 + 0.10e2 / 0.27e2 * t36686 - 0.8e1 / 0.9e1 * t36688 + 0.8e1 / 0.3e1 * t36699 - 0.2e1 / 0.3e1 * t36710 + 0.2e1 / 0.9e1 * t36714 - 0.2e1 / 0.3e1 * t43082 + t29085 + 0.28e2 / 0.81e2 * t29016 - 0.4e1 / 0.9e1 * t36747 - 0.2e1 / 0.3e1 * t43088 + 0.4e1 / 0.3e1 * t43092 + 0.2e1 / 0.9e1 * t43094 - 0.6e1 * t43098 + 0.8e1 / 0.9e1 * t36752 + t36764 / 0.3e1 - 0.8e1 / 0.27e2 * t36766;
20673   t43366 = 0.4e1 * t43105 - 0.10e2 / 0.9e1 * t43108 - t43112 / 0.3e1 + 0.2e1 / 0.3e1 * t43114 + t43116 / 0.9e1 + 0.8e1 * t43120 + 0.12e2 * t43124 + 0.2e1 * t43128 - 0.4e1 * t43132 + 0.2e1 / 0.3e1 * t43137 - 0.2e1 / 0.9e1 * t43142 + 0.40e2 / 0.9e1 * t43147 - 0.80e2 / 0.81e2 * t43152 + 0.20e2 / 0.9e1 * t43156 - 0.8e1 * t43160 - 0.8e1 * t43164 + 0.8e1 / 0.9e1 * t30171 + 0.28e2 / 0.27e2 * t30179 + 0.10e2 / 0.81e2 * t43168 - 0.4e1 / 0.9e1 * t43170;
20674   t43367 = t43345 + t43366;
20675   t43378 = 0.12503400000000000000e1 * t37016 + 0.16671200000000000000e1 * t37018 + 0.92617777777777777779e0 * t30219 + 0.35297250000000000000e1 * t770 * t43367 + 0.12395400000000000000e2 * t43120 + 0.18593100000000000000e2 * t43124 + 0.30988500000000000000e1 * t43128 - 0.61977000000000000000e1 * t43132 + 0.10329500000000000000e1 * t43137 - 0.34431666666666666667e0 * t43142 + 0.68863333333333333334e1 * t43147 - 0.15302962962962962963e1 * t43152;
20676   t43393 = t606 * t12337;
20677   t43395 = 0.34431666666666666667e1 * t43156 - 0.12395400000000000000e2 * t43160 - 0.12395400000000000000e2 * t43164 + 0.63116250000000000000e0 * t777 * t43367 + 0.13772666666666666666e1 * t30171 + 0.16068111111111111111e1 * t30179 + 0.69463333333333333334e0 * t30233 + 0.19128703703703703704e0 * t43168 - 0.68863333333333333333e0 * t43170 + 0.69463333333333333335e0 * t37046 - 0.10419500000000000000e0 * t119 * t323 * t43110 + 0.41678000000000000000e0 * t43393;
20678   t43399 = (t43213 + t43242 + t43262 + t43281 + t43304 + t43323 + t43378 + t43395) * t787;
20679   t43404 = t12595 * t2320;
20680   t43422 = 0.96491876992155210402e2 * t29850 * t3591 + 0.60000000000000000000e1 * t7147 * t12277 + 0.10000000000000000000e1 * t769 * t43399 + 0.20690405167709360120e4 * t28812 * t12351 - t169 * t43404 * t847 / 0.2e1 - 0.60000000000000000000e1 * t36597 * t2901 + 0.96491876992155210402e2 * t37267 * t2942 + 0.18000000000000000000e2 * t9000 * t10890 - 0.12000000000000000000e2 * t9224 * t10893 - 0.57895126195293126241e3 * t29938 * t10896 - 0.60000000000000000000e1 * t9224 * t10902 + 0.96491876992155210402e2 * t9000 * t11000;
20681   t43458 = 0.19298375398431042080e3 * t9000 * t11005 + 0.62071215503128080361e4 * t29853 * t11009 - 0.24000000000000000000e2 * t7159 * t12277 * t786 + 0.18000000000000000000e2 * t2185 * t3556 * t2937 + 0.11579025239058625248e4 * t7247 * t12283 * t786 - 0.60000000000000000000e1 * t7142 * t12280 - 0.3e1 * t169 * t12602 * t29662 * t847 + 0.62071215503128080361e4 * t37239 * t9567 * t786 + 0.3e1 * t169 * t11389 * t3073 - 0.60000000000000000000e1 * t2136 * t2938 * t3587 - 0.60000000000000000000e1 * t2136 * t1059 * t10995 - 0.57895126195293126243e3 * t7159 * t3591 * t2937;
20682   t43465 = t12344 * t2187;
20683   t43493 = t12474 * t61;
20684   t43495 = t262 * t804 * t43493;
20685   t43499 = t2217 * t1616 * t12378;
20686   t43502 = t794 * t9156 * t12249;
20687   t43514 = -t37369 / 0.768e3 - t37372 / 0.3456e4 + t30462 / 0.1728e4 + t37381 / 0.1152e4 + t37383 / 0.54e2 + t30469 / 0.216e3 + t30472 - t30480 + 0.209e3 / 0.1296e4 * t43495 * t816 + t43499 / 0.384e3 + t30483 + t43502 / 0.216e3 + t2947 * t11077 / 0.18e2 - t2947 * t11080 / 0.27e2 - t2947 * t11068 / 0.6e1 + 0.2e1 / 0.9e1 * t2947 * t11071 - 0.2e1 / 0.9e1 * t2947 * t11074;
20688   t43522 = t807 * t1616 * t12439;
20689   t43530 = t11632 * t436;
20690   t43535 = t3199 * t4;
20691   t43541 = t3009 * t11219;
20692   t43547 = -0.11e2 / 0.54e2 * t11012 * t2963 + t37409 / 0.288e3 + t37419 / 0.27e2 - 0.19e2 / 0.216e3 * t11286 * t3039 - t43522 / 0.2304e4 - t30505 / 0.1728e4 + t37429 / 0.48e2 + t37432 / 0.36e2 + t37437 / 0.27e2 - 0.2e1 / 0.81e2 * t37439 + 0.5e1 / 0.3888e4 * t28836 - 0.5e1 / 0.216e3 * t824 * t2578 * t31002 * t43530 + 0.5e1 / 0.192e3 * t824 * t8764 * t9434 * t43535 + t37457 / 0.216e3 + t43541 / 0.144e3 - t28851 / 0.5184e4 - 0.7e1 / 0.54e2 * t794 * t9163 * t43145;
20693   t43557 = t262 * t333 * t43493;
20694   t43561 = t7381 * t1616 * t12448;
20695   t43563 = t3009 * t11282;
20696   t43568 = t340 * t12376;
20697   t43574 = t2217 * t8565 * t12519;
20698   t43576 = t12476 * t820;
20699   t43587 = t11012 * t2951;
20700   t43589 = t794 * t9167 * t43162 / 0.6e1 - 0.7e1 / 0.81e2 * t2947 * t11038 + 0.4e1 / 0.27e2 * t2947 * t11041 - 0.209e3 / 0.1944e4 * t43557 * t829 - t43561 / 0.384e3 + t43563 / 0.144e3 + t30554 + t29202 / 0.7776e4 + t37471 / 0.324e3 + t37475 / 0.81e2 - 0.3e1 / 0.128e3 * t7381 * t2578 * t43568 * t11269 + t43574 / 0.384e3 - 0.209e3 / 0.1944e4 * t43576 + 0.7e1 / 0.216e3 * t31043 * t31052 * t43096 + t31043 * t31048 * t43096 / 0.16e2 - t31043 * t31044 * t43096 / 0.12e2 + 0.11e2 / 0.324e3 * t43587;
20701   t43591 = t2947 * t11017;
20702   t43637 = -t37478 / 0.324e3 + t43591 / 0.54e2 - 0.3e1 / 0.256e3 * t29493 * t5366 * t31032 * t38006 + t2232 * t9417 * t3668 * t2889 / 0.384e3 + t9370 * t11253 / 0.144e3 - t794 * t2958 * t43118 / 0.12e2 + t794 * t2954 * t43158 / 0.6e1 - t794 * t9174 * t43122 / 0.8e1 - t794 * t2958 * t43126 / 0.48e2 + t794 * t9174 * t43130 / 0.24e2 + t794 * t2954 * t43086 / 0.72e2 - t794 * t9167 * t43090 / 0.36e2 + 0.35e2 / 0.972e3 * t794 * t30543 * t43150 - 0.7e1 / 0.108e3 * t794 * t30484 * t43154 - t794 * t2958 * t43135 / 0.144e3 + t794 * t2954 * t43140 / 0.216e3 + t37502 / 0.128e3;
20703   t43645 = t340 * t12437;
20704   t43658 = t3015 * t11249;
20705   t43660 = t3015 * t11135;
20706   t43667 = t2232 * t29474 * t12514;
20707   t43684 = -t37528 / 0.384e3 + 0.3e1 / 0.256e3 * t2217 * t2578 * t11110 * t11115 + t2217 * t2578 * t43645 * t2967 / 0.768e3 + t30508 * t11271 / 0.16e2 + 0.19e2 / 0.648e3 * t37547 + t37562 / 0.1728e4 - t37565 / 0.1152e4 - t37567 / 0.216e3 - t30738 * t11224 / 0.36e2 - t43658 / 0.216e3 + t43660 / 0.108e3 + 0.3e1 / 0.256e3 * t7444 * t5366 * t9293 * t38006 - 0.5e1 / 0.3456e4 * t43667 + t2232 * t2233 * t2884 * t3202 * t813 * t329 / 0.384e3 + t2232 * t2233 * t1075 * t10866 / 0.384e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t1075 * t10861 + t37604 / 0.288e3;
20708   t43697 = t794 * t242 * t12363;
20709   t43699 = t2947 * t11026;
20710   t43701 = t2947 * t11029;
20711   t43704 = t794 * t242 * t12459;
20712   t43707 = t794 * t242 * t12463;
20713   t43716 = t2232 * t7427 * t12479;
20714   t43719 = t807 * t8565 * t12510;
20715   t43721 = -0.5e1 / 0.1728e4 * t37607 - t37610 / 0.576e3 - t2232 * t2233 * t9182 * t9183 * t3202 / 0.768e3 + t2232 * t2233 * t3542 * t15819 / 0.384e3 + t43697 / 0.144e3 - t43699 / 0.108e3 - t43701 / 0.81e2 + t43704 / 0.864e3 + 0.7e1 / 0.1944e4 * t43707 + t37626 / 0.192e3 + 0.5e1 / 0.1296e4 * t30610 + t37635 / 0.384e3 + t37643 / 0.144e3 + t37647 / 0.2304e4 - t37654 / 0.432e3 - t43716 / 0.1152e4 - t43719 / 0.768e3;
20716   t43727 = t3667 * t759 * t436;
20717   t43775 = -t2947 * t11021 / 0.36e2 - t37682 / 0.768e3 - t2232 * t2233 * t1075 * t43727 / 0.768e3 - t9370 * t11296 / 0.36e2 + 0.5e1 / 0.216e3 * t9370 * t11139 - t2232 * t2233 * t12253 * t814 / 0.384e3 - t2232 * t2233 * t2997 * t3546 / 0.768e3 - t2232 * t2233 * t1075 * t10870 / 0.768e3 - 0.5e1 / 0.162e3 * t30640 - 0.19e2 / 0.1296e4 * t37742 + t7444 * t2233 * t9293 * t43727 / 0.384e3 + t7444 * t2233 * t3615 * t11222 / 0.128e3 + t794 * t518 * t797 * t40680 / 0.288e3 + t30654 / 0.2592e4 + t2232 * t2233 * t3668 * t2885 / 0.384e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t3668 * t2880 - t2232 * t2233 * t38006 * t11142 / 0.768e3;
20718   t43781 = t794 * t242 * t12455;
20719   t43809 = t1041 * t2996;
20720   t43814 = t3015 * t11246;
20721   t43817 = t824 * t1616 * t12406;
20722   t43828 = -t2232 * t2233 * t11209 * t1041 / 0.768e3 - t43781 / 0.108e3 - t7444 * t2233 * t3615 * t2885 / 0.192e3 + 0.5e1 / 0.1152e4 * t7444 * t7439 * t3615 * t2880 - t7444 * t2233 * t3542 * t15807 / 0.192e3 - t29493 * t2233 * t37581 * t11222 / 0.128e3 + t3009 * t11211 / 0.96e2 + 0.5e1 / 0.384e3 * t2232 * t7439 * t1075 * t10840 + t7444 * t2233 * t12518 * t11222 / 0.384e3 - t2232 * t2233 * t1075 * t43809 / 0.384e3 - 0.5e1 / 0.648e3 * t43814 + 0.5e1 / 0.3888e4 * t43817 + t37797 / 0.192e3 - 0.5e1 / 0.576e3 * t37800 + 0.5e1 / 0.1296e4 * t37803 - 0.5e1 / 0.864e3 * t37806 - t37821 / 0.576e3 - t807 * t2578 * t9306 * t3668 / 0.512e3;
20723   t43837 = t824 * t8565 * t12523;
20724   t43839 = t7382 * t2996;
20725   t43846 = t28880 * t813;
20726   t43852 = t794 * t9152 * t12257;
20727   t43862 = t12382 * t791;
20728   t43864 = t2219 * t11208;
20729   t43871 = t3202 * t4;
20730   t43881 = 0.7e1 / 0.768e3 * t2217 * t2578 * t43568 * t2967 - t43837 / 0.576e3 - 0.3e1 / 0.256e3 * t7381 * t2578 * t11110 * t43839 - t9193 * t11279 / 0.16e2 + t28879 * t2578 * t43568 * t43846 / 0.64e2 - t43852 / 0.144e3 - 0.11e2 / 0.54e2 * t11012 * t2959 + 0.11e2 / 0.81e2 * t11012 * t2955 - t807 * t2578 * t43645 * t814 / 0.1536e4 - 0.77e2 / 0.486e3 * t43862 + t2217 * t2578 * t2966 * t43864 / 0.256e3 + 0.5e1 / 0.3456e4 * t37824 + t37847 / 0.72e2 + t30689 - 0.5e1 / 0.1152e4 * t824 * t8764 * t3027 * t43871 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t2997 * t3538 - t37854 / 0.768e3;
20731   t43885 = t807 * t1616 * t12400;
20732   t43887 = t11127 * t2972;
20733   t43889 = t9193 * t11214;
20734   t43892 = t824 * t1616 * t12390;
20735   t43894 = t11286 * t3024;
20736   t43897 = t2232 * t7427 * t12485;
20737   t43902 = t905 * t813 * t329;
20738   t43925 = -t37861 / 0.128e3 - t37863 / 0.36e2 - t43885 / 0.2304e4 - 0.19e2 / 0.432e3 * t43887 - t43889 / 0.72e2 + t43892 / 0.3456e4 + 0.19e2 / 0.648e3 * t43894 + t43897 / 0.576e3 + t37891 / 0.2304e4 - t30722 / 0.324e3 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t10860 * t43902 - t30726 - t2232 * t5366 * t9182 * t3668 / 0.512e3 + t7444 * t2233 * t12377 * t760 / 0.384e3 - t2232 * t2233 * t12399 * t760 / 0.2304e4 - t9370 * t11292 / 0.72e2 - t7444 * t9417 * t3615 * t2889 / 0.192e3;
20739   t43942 = t11637 * t436;
20740   t43948 = t824 * t1616 * t12535;
20741   t43958 = -0.19e2 / 0.432e3 * t37948 * t2976 - t37911 / 0.144e3 + t37914 / 0.216e3 + 0.7e1 / 0.648e3 * t37917 - t37923 / 0.54e2 - t37929 / 0.36e2 - t29414 - 0.11e2 / 0.162e3 * t37931 + t30714 * t2233 * t2879 * t11097 / 0.128e3 + t9370 * t11238 / 0.144e3 + t37936 / 0.576e3 + 0.5e1 / 0.6912e4 * t824 * t2578 * t3027 * t43942 - 0.5e1 / 0.1728e4 * t43948 - 0.19e2 / 0.432e3 * t37948 * t3021 - t9193 * t11117 / 0.24e2 + t9370 * t11155 / 0.144e3 + 0.5e1 / 0.432e3 * t9370 * t11264;
20742   t43960 = t824 * t8565 * t12502;
20743   t43990 = t3587 * t786;
20744   t44014 = t9000 * t3587;
20745   t44020 = -0.39408462447654052777e7 * t29132 * t12276 * t30345 * t786 - 0.12252366834212778586e6 * t29853 * t3555 * t11205 + 0.47374101125228921372e3 * t7159 * t12276 * t810 + 0.11843525281307230343e3 * t9243 * t3661 + 0.11843525281307230343e3 * t2985 * t11193 + 0.61370581910589784405e0 * t43174 * t187 - 0.35530575843921691029e3 * t11180 * t2988 + 0.11843525281307230343e3 * t9233 * t3661 - 0.35530575843921691029e3 * t9000 * t3555 * t810 + 0.11428039845973777055e5 * t9246 * t2992 * t43990 - 0.19046733076622961759e4 * t37312 * t12431 - 0.19046733076622961760e4 * t37267 * t1058 * t2993 - 0.38093466153245923518e4 * t11175 * t11201 - 0.19046733076622961759e4 * t11196 * t11201 + 0.23687050562614460686e3 * t11170 * t2988 - 0.22856079691947554112e5 * t7247 * t12276 * t2993 - 0.35530575843921691029e3 * t2991 * t30251 * t43990 + 0.11843525281307230343e3 * t9224 * t3587 * t810 - 0.19046733076622961760e4 * t44014 * t2993 + 0.11843525281307230343e3 * t36597 * t1058 * t810;
20746   t44041 = t2185 * t12344;
20747   t44069 = -0.19739208802178717239e2 * t43179 * t810 - 0.59217626406536151717e2 * t37211 * t1071 - 0.59217626406536151717e2 * t10877 * t2988 + 0.11843525281307230343e3 * t29951 * t3658 - 0.59217626406536151717e2 * t9221 * t3661 - 0.59217626406536151717e2 * t2896 * t11193 - 0.19046733076622961759e4 * t29850 * t3664 - 0.11843525281307230343e3 * t7147 * t12420 + 0.38093466153245923519e4 * t28807 * t12425 - 0.19739208802178717239e2 * t2131 * t12428 - 0.63489110255409872532e3 * t44041 * t2993 - 0.12252366834212778586e6 * t37239 * t9258 * t1058 * t786 - 0.19739208802178717239e2 * t769 * t43399 * t187 - 0.40841222780709261955e5 * t28812 * t12434 + 0.11428039845973777055e5 * t29938 * t3555 * t2993 + 0.11428039845973777056e5 * t11185 * t11201 - 0.19046733076622961759e4 * t37248 * t12431 - 0.12252366834212778586e6 * t11204 * t9258 * t2937 + 0.49009467336851114346e6 * t28929 * t12276 * t11205 + 0.39478417604357434478e2 * t2136 * t12344 * t810;
20748   t44071 = (t44020 + t44069) * t329;
20749   t44108 = 0.5e1 / 0.3456e4 * t43960 + 0.5e1 / 0.1152e4 * t2232 * t7439 * t12245 * t814 + t37962 / 0.72e2 - t807 * t533 * t758 * t44071 / 0.1536e4 + t30779 - 0.19e2 / 0.288e3 * t11127 * t2999 - 0.5e1 / 0.10368e5 * t37970 - t3015 * t11053 / 0.18e2 + 0.55e2 / 0.7776e4 * t824 * t2578 * t30763 * t43530 - t3015 * t11059 / 0.24e2 - 0.5e1 / 0.432e3 * t824 * t8764 * t9341 * t43535 - 0.5e1 / 0.384e3 * t30714 * t7439 * t36705 * t3028 + t37982 / 0.108e3 + 0.5e1 / 0.864e3 * t30714 * t29376 * t36725 * t3028 + 0.5e1 / 0.108e3 * t3015 * t11094 + 0.11e2 / 0.324e3 * t37985 - t29493 * t2233 * t12447 * t760 / 0.384e3 + t37994 / 0.288e3;
20750   t44131 = t905 * t9785;
20751   t44152 = t9370 * t11122;
20752   t44160 = -0.19e2 / 0.288e3 * t11127 * t3004 + t2232 * t2233 * t3542 * t2997 / 0.384e3 - t38013 / 0.1152e4 - t38020 / 0.1152e4 - t2232 * t2233 * t12438 * t760 / 0.2304e4 - t824 * t2578 * t29969 * t43530 / 0.96e2 - t824 * t8764 * t9329 * t43535 / 0.64e2 - t824 * t2578 * t3033 * t44131 / 0.384e3 - t824 * t2578 * t3033 * t43942 / 0.1152e4 + 0.5e1 / 0.192e3 * t824 * t2578 * t30162 * t43530 + t7444 * t2233 * t9293 * t3546 * t813 / 0.384e3 - 0.5e1 / 0.324e3 * t38043 - 0.5e1 / 0.162e3 * t3015 * t11090 + t44152 / 0.108e3 + 0.19e2 / 0.144e3 * t37753 * t2969 - 0.19e2 / 0.216e3 * t11286 * t3035 + 0.95e2 / 0.1296e4 * t11286 * t3030;
20753   t44202 = -t38085 / 0.1152e4 - t2232 * t2233 * t12261 * t814 / 0.2304e4 - t9193 * t11275 / 0.48e2 - t38096 / 0.576e3 - t2232 * t2233 * t3538 * t1075 * t436 / 0.128e3 - t2232 * t9417 * t2884 * t1075 * t4 / 0.96e2 + t2232 * t9417 * t3608 * t2889 / 0.384e3 - 0.5e1 / 0.3456e4 * t38109 + t38117 / 0.576e3 + t38120 / 0.1728e4 - t30921 - t807 * t2578 * t2966 * t11209 / 0.512e3 + t3015 * t11099 / 0.72e2 - 0.5e1 / 0.432e3 * t3015 * t11103 + t2217 * t2578 * t9306 * t12518 / 0.256e3 + t30970 + t2232 * t2233 * t3608 * t2885 / 0.384e3;
20754   t44218 = t2232 * t7427 * t12493;
20755   t44221 = t7444 * t7427 * t12489;
20756   t44240 = t2232 * t7427 * t12497;
20757   t44252 = -0.5e1 / 0.2304e4 * t2232 * t7439 * t3608 * t2880 - t2232 * t2233 * t38061 * t11142 / 0.768e3 + 0.5e1 / 0.1152e4 * t7444 * t7439 * t9293 * t3538 * t813 - t44218 / 0.1152e4 + t44221 / 0.576e3 - t30977 - t30738 * t11228 / 0.72e2 + t38153 / 0.108e3 + t3009 * t11086 / 0.96e2 + 0.5e1 / 0.2304e4 * t824 * t2578 * t3027 * t44131 + t9370 * t11144 / 0.72e2 + t38185 / 0.54e2 - 0.5e1 / 0.2592e4 * t2232 * t29376 * t12241 * t814 - t44240 / 0.1152e4 - t3015 * t11161 / 0.144e3 + t824 * t533 * t827 * t43110 / 0.2304e4 - t807 * t2578 * t11110 * t2997 / 0.512e3;
20758   t44261 = t11596 * t516;
20759   t44294 = t824 * t1616 * t12539;
20760   t44296 = -t807 * t2578 * t43568 * t814 / 0.1536e4 - 0.19e2 / 0.432e3 * t38193 + t38196 / 0.288e3 + 0.5e1 / 0.72e2 * t3015 * t11048 - 0.77e2 / 0.486e3 * t44261 * t799 + t31100 + t824 * t8764 * t3033 * t43871 / 0.192e3 + t3009 * t11107 / 0.48e2 + t3009 * t11112 / 0.96e2 + t7444 * t2233 * t9293 * t43809 / 0.192e3 - 0.5e1 / 0.864e3 * t2232 * t29376 * t1075 * t10835 - 0.5e1 / 0.2304e4 * t2232 * t7439 * t9182 * t30862 * t3199 + 0.5e1 / 0.576e3 * t2232 * t31066 * t1075 * t10844 - t9370 * t11242 / 0.36e2 - t29509 + t9370 * t11232 / 0.72e2 + t44294 / 0.576e3 + t31160;
20761   t44300 = t43514 + t43547 + t43589 + t43637 + t43684 + t43721 + t43775 + t43828 + t43881 + t43925 + t43958 + t44108 + t44160 + t44202 + t44252 + t44296;
20762   t44303 = t12546 * t187;
20763   t44358 = t345 * t12376;
20764   t44377 = t3675 * t1074;
20765   t44394 = t1091 * t3667;
20766   t44398 = t345 * t12437;
20767   t44413 = -0.3e1 * t2229 * t11354 * t15819 - 0.3e1 * t2229 * t37124 * t1075 - 0.36e2 * t9487 * t44358 * t11269 - 0.3e1 * t262 * t3065 * t11209 + 0.24e2 * t30433 * t44358 * t43846 + 0.6e1 * t262 * t7475 * t12377 - 0.3e1 * t262 * t11371 * t2997 - 0.3e1 * t262 * t9526 * t3668 + 0.6e1 * t3054 * t44377 * t2967 - 0.6e1 * t2229 * t11341 * t2997 - t262 * t2301 * t12438 + 0.14e2 * t3054 * t44358 * t2967 - t262 * t2301 * t12399 - 0.3e1 * t2229 * t11354 * t2997 - 0.3e1 * t2229 * t44394 * t814 - t2229 * t44398 * t814 + 0.6e1 * t3054 * t9491 * t12518 - 0.6e1 * t262 * t29602 * t12447 - 0.3e1 * t262 * t9526 * t3608 + 0.2e1 * t3054 * t44398 * t2967;
20768   t44425 = t1091 * t3607;
20769   t44434 = t12518 * t813;
20770   t44453 = t7382 * t3667;
20771   t44464 = t803 * t12545;
20772   t44475 = -0.18e2 * t9487 * t11328 * t43839 + t188 * t347 * t44300 - 0.3e1 * t2229 * t11328 * t2997 + 0.18e2 * t3054 * t11328 * t11115 - 0.3e1 * t2229 * t44425 * t814 + 0.12e2 * t3054 * t11341 * t11115 - t2229 * t44358 * t814 + 0.18e2 * t3054 * t3055 * t44434 - 0.18e2 * t9487 * t44425 * t11269 + 0.18e2 * t3054 * t44425 * t2967 + 0.6e1 * t3054 * t3055 * t43864 - 0.3e1 * t262 * t38279 * t1075 + 0.6e1 * t3054 * t44394 * t2967 - 0.18e2 * t9487 * t3055 * t44453 * t813 + 0.6e1 * t3054 * t9495 * t12518 - 0.3e1 * t2229 * t37136 * t1075 - t262 * t44464 * t814 + 0.6e1 * t262 * t31172 * t3615 - t262 * t839 * t44071 - 0.3e1 * t2229 * t44377 * t814;
20773   t44479 = -0.3e1 * t3046 * t11377 - 0.6e1 * t2287 * t12555 + 0.24e2 * t835 * t29537 * t12554 * t844 - 0.18e2 * t835 * t7462 * t3680 * t3070 + 0.6e1 * t2287 * t12559 - 0.18e2 * t29887 * t29888 * t11324 + 0.6e1 * t835 * t2292 * t3070 * t3696 + 0.6e1 * t835 * t2292 * t1098 * t11376 - t2287 * t12593 + 0.2e1 * t835 * t2292 * t12592 * t844 - t835 * t838 * (t44413 + t44475);
20774   t44489 = -0.24828486201251232145e5 * t28929 * t12351 * t786 - 0.20000000000000000000e1 * t2136 * t12345 * t786 + 0.32163958997385070134e2 * t2185 * t43465 * t786 + 0.96491876992155210402e2 * t7147 * t12348 + 0.96491876992155210402e2 * t2185 * t36627 * t1058 + 0.96491876992155210402e2 * t2185 * t10999 * t2937 + 0.62071215503128080360e4 * t7247 * t11008 * t2937 + 0.19964560303604640732e6 * t29132 * t12276 * t29134 * t786 - 0.3e1 / 0.2e1 * t169 * t11383 * t3073 + t169 * (t352 * t44300 * params->beta - 0.3e1 * t1099 * t37092 + 0.6e1 * t11305 * t3050 - 0.3e1 * t11305 * t3071 - 0.18e2 * t11316 * t3046 + 0.12e2 * t11320 * t3046 + 0.6e1 * t11325 * t3046 + 0.6e1 * t3681 * t9463 - 0.3e1 * t3697 * t9463 - t44303 * t845 + t44479) * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t38381 * t1101 + 0.18000000000000000000e2 * t2991 * t10902;
20775   t44492 = my_piecewise3(t359, t43192 + t43422 + t43458 + t44489, t43050);
20776   t44510 = t43051 * t34 / 0.2e1 + t12228 * t413 / 0.2e1 + 0.3e1 / 0.2e1 * t10815 * t886 + 0.3e1 * t3531 * t4 * t377 + 0.3e1 / 0.2e1 * t2867 * t3196 + 0.3e1 / 0.2e1 * t1038 * t9774 + t752 * t11629 / 0.2e1 + t297 * t40662 / 0.2e1 + t44492 * t46 / 0.2e1 + t12606 * t436 / 0.2e1 + 0.3e1 / 0.2e1 * t11394 * t905 - 0.3e1 * t3708 * t4 * t377 + 0.3e1 / 0.2e1 * t3082 * t3202 + 0.3e1 / 0.2e1 * t1106 * t9785 + t853 * t11637 / 0.2e1 + t360 * t40680 / 0.2e1;
20777   t44525 = 0.3e1 * t10267 * t1119 + 0.3e1 * t1037 * t11491 - 0.6e1 * t1110 * t9652 - 0.12e2 * t11497 * t2442 - 0.12e2 * t11497 * t4302 - 0.6e1 * t11549 * t1476 - 0.6e1 * t11549 * t2448 + t12227 * t866 - 0.6e1 * t12718 * t1476 - 0.3e1 * t2440 * t3714 - 0.6e1 * t2442 * t9849 - 0.12e2 * t3223 * t8342 - 0.6e1 * t3250 * t8342 - t44510 * t98;
20778   t44549 = t11647 * t96;
20779   t44557 = -0.6e1 * t11407 * t449 * t928 - 0.6e1 * t2439 * t3219 * t363 - 0.6e1 * t2478 * t3714 * t449 - 0.6e1 * t3091 * t3249 * t449 - 0.3e1 * t1110 * t9796 - 0.6e1 * t12718 * t2448 - 0.6e1 * t14120 * t3250 - 0.6e1 * t14123 * t3250 - 0.12e2 * t16016 * t2479 - 0.3e1 * t3091 * t3213 + t366 * t43050 - 0.6e1 * t4302 * t9854 - 0.2e1 * t44549 * t465;
20780   t44622 = 0.840e3 * t11560 * t26389 * t443 + 0.20e2 * t11644 * t1397 * t443 + 0.60e2 * t1397 * t2436 * t3209 + 0.60e2 * t1397 * t912 * t9792 - 0.360e3 * t2436 * t3152 * t6453 - 0.120e3 * t11560 * t26602 + 0.60e2 * t11563 * t6445 - 0.4e1 * t11644 * t1392 - 0.12e2 * t2378 * t9792 - 0.4e1 * t400 * t40762 - 0.360e3 * t40400 * t6453;
20781   t44633 = -0.6e1 * t34651 * t929 - 0.6e1 * t3220 * t3091 - 0.2e1 * t449 * t363 * t40536 - 0.6e1 * t2442 * t10271 - 0.2e1 * t449 * t12615 * t464 + 0.3e1 * t3121 * t3530 + 0.3e1 * t3735 * t2866 - 0.3e1 * t916 * t11407 - (0.60e2 * t2383 * t36282 - 0.12e2 * t2436 * t9657 + 0.60e2 * t3152 * t34310 - 0.12e2 * t3209 * t7763 - 0.360e3 * t34313 * t9668 - 0.12e2 * t36335 * t912 - 0.4e1 * t40570 * t443 + 0.120e3 * t7591 * t9671 + 0.60e2 * t7591 * t9676 + t40353 + t44622) * t97 * t363 - t11648 * t857 + t12707 * t751 - t447 * t12615 - 0.6e1 * t9866 * t2483 - 0.6e1 * t12621 * t857;
20782   t44635 = t40827 + t44525 + t44557 + t44633;
20783   t44639 = t3740 * t1130;
20784   t44645 = t1122 * t3755;
20785   t44651 = t368 * t12747;
20786   t44699 = params->d * t44635 * t370 + 0.3e1 * t12730 * t875 + 0.9e1 * t11518 * t1127 + 0.18e2 * t3745 * t3138 + 0.9e1 * t3745 * t3141 + 0.18e2 * t3132 * t3749 + 0.18e2 * t1125 * t11530 + 0.36e2 * t1125 * t11533 + 0.9e1 * t3132 * t3752 + 0.18e2 * t1125 * t11538 + 0.9e1 * t1125 * t11541 + 0.6e1 * t873 * t12738 + 0.18e2 * t369 * t3219 * t2478 + 0.18e2 * t873 * t12741 + 0.18e2 * t369 * t3115 * t3249 + 0.18e2 * t369 * t3118 * t3249 + 0.18e2 * t369 * t1116 * t9848 + 0.3e1 * t873 * t12744 + 0.6e1 * t369 * t12692 * t464 + 0.3e1 * t369 * t97 * t40536;
20787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20788     v4rho4[3] = t372 * t44635 * t7 + 0.3e1 * t1123 * t11544 + 0.3e1 * t1130 * t11507 + t12724 * t878 + t12747 * t870 + 0.3e1 * t3127 * t3755 + 0.3e1 * t3144 * t3741 + t44699 * t872 + 0.3e1 * t34606 + 0.3e1 * t40233 + 0.6e1 * t40240 + 0.6e1 * t40244 + 0.3e1 * t40246 + 0.3e1 * t40248 + t40328 + 0.3e1 * t44639 + 0.3e1 * t44645 + t44651;
20789 
20790   t44716 = 0.23392894490538584828e1 * t42166;
20791   t44717 = 0.65061487801810439052e-1 * t31316;
20792   t44718 = 0.4e1 * t42214;
20793   t44719 = 0.6e1 * t34916;
20794   t44720 = t27738 - t44716 + t27745 - t27762 - t27766 + t27775 + t44717 + t27781 - t27793 + t44718 + t44719 - t27796 - t27801 - t27805;
20795   t44721 = 0.35089341735807877242e1 * t34924;
20796   t44722 = 0.10389515463408878255e3 * t34926;
20797   t44723 = 0.48e2 * t34935;
20798   t44724 = 0.14035736694323150897e2 * t31331;
20799   t44725 = -t27809 + t27813 - t27816 - t44721 - t44722 - t44723 + t44724 + t27822 + t27829 + t27853 - t27861 + t27870 + t27875 + t27883 - t27888;
20800   t44727 = 0.86748650402413918736e-1 * t31359;
20801   t44728 = 0.13012297560362087810e0 * t31376;
20802   t44729 = 0.19263893255070628431e1 * t31378;
20803   t44730 = t3522 * t3522;
20804   t44766 = t3193 * t3193;
20805   t44771 = t3196 * t3196;
20806   t44776 = t15 + t26352;
20807   t44777 = 0.24e2 * t44776;
20808   t44780 = t3199 * t3199;
20809   t44785 = t3202 * t3202;
20810   t44790 = -t44777;
20811   t44793 = -0.28e2 / 0.81e2 * t1450 * t44766 + 0.8e1 / 0.9e1 * t9993 * t3196 - t69 * t44771 / 0.3e1 - 0.4e1 / 0.9e1 * t2716 * t11629 + t672 * t44777 / 0.3e1 - 0.28e2 / 0.81e2 * t1459 * t44780 + 0.8e1 / 0.9e1 * t10003 * t3202 - t72 * t44785 / 0.3e1 - 0.4e1 / 0.9e1 * t2722 * t11637 + t674 * t44790 / 0.3e1;
20812   t44804 = t1903 * t1905 * t10045 * t12053 / 0.128e3 - 0.5e1 / 0.128e3 * t1903 * t6301 * t10072 * t12077 + 0.5e1 / 0.64e2 * t2744 * t6301 * t10045 * t1892 * t3427 + 0.3e1 / 0.256e3 * t2744 * t2746 * t10072 * t3454 - 0.3e1 / 0.256e3 * t8085 * t2746 * t10045 * t42986 + t8085 * t1905 * t42426 * t6263 * t999 / 0.32e2 - t2744 * t1905 * t10045 * t1892 * t3448 / 0.64e2 - t688 * t254 * t102 * t44793 / 0.48e2 - 0.7e1 / 0.96e2 * t42424 - 0.7e1 / 0.96e2 * t42436 + t27935 + 0.35e2 / 0.96e2 * t42443 - 0.7e1 / 0.96e2 * t42445 - 0.7e1 / 0.192e3 * t42448 + 0.7e1 / 0.384e3 * t42450 + t27942;
20813   t44820 = t3427 * t3427;
20814   t44825 = t3448 * t3448;
20815   t44857 = 0.119e3 / 0.1152e4 * t35482 - 0.119e3 / 0.2304e4 * t35484 + t1903 * t1905 * t42438 * t3460 / 0.192e3 + 0.595e3 / 0.2592e4 * t31628 - t2744 * t1905 * t42426 * t12072 / 0.32e2 + t2744 * t2746 * t42438 * t8057 / 0.384e3 + 0.5e1 / 0.4e1 * t28111 * t254 * t102 * t44820 + 0.3e1 / 0.16e2 * t1867 * t254 * t102 * t44825 - 0.5e1 / 0.128e3 * t1903 * t6301 * t10045 * t12077 + t1903 * t1905 * t42426 * t3460 / 0.192e3 - 0.3e1 / 0.2e1 * t6319 * t254 * t3436 * t3448 + 0.7e1 / 0.288e3 * t42526 - 0.119e3 / 0.576e3 * t35585 + 0.595e3 / 0.576e3 * t35593 + 0.35e2 / 0.128e3 * t722 * t28079 * t532 * t44820 + 0.5e1 / 0.256e3 * t722 * t2043 * t532 * t44825 - t722 * t726 * t532 * t44793 / 0.768e3;
20816   t44893 = -0.7e1 / 0.4e1 * t42549 + t1903 * t8056 * t42676 * t3460 / 0.64e2 + 0.7e1 / 0.192e3 * t42636 - 0.7e1 / 0.192e3 * t42638 + 0.7e1 / 0.1152e4 * t42640 - 0.35e2 / 0.96e2 * t42642 + t1867 * t254 * t12036 * t999 / 0.4e1 - t2744 * t8056 * t8057 * t3478 * t999 / 0.32e2 - 0.119e3 / 0.2304e4 * t35703 + 0.7e1 / 0.1152e4 * t42703 + 0.35e2 / 0.48e2 * t42705 + 0.595e3 / 0.648e3 * t31899 - 0.35e2 / 0.36e2 * t35719 + 0.455e3 / 0.162e3 * t31913 + 0.35e2 / 0.12e2 * t35723 + t1903 * t1905 * t10072 * t12053 / 0.128e3 + t1903 * t1905 * t2747 * t194 * t12035 / 0.192e3;
20817   t44906 = t3453 * t3453;
20818   t44907 = t44906 * t1892;
20819   t44912 = t44906 * t28578;
20820   t44917 = t44906 * t6263;
20821   t44938 = t44906 * t194;
20822   t44943 = t3478 * t3478;
20823   t44944 = t44943 * t194;
20824   t44949 = t44943 * t1892;
20825   t44954 = t27738 - t44716 + t27745 - t27762 - t27766 + t27775 + t44717 + t27781 - t27793 + t44718 + t44719 - t27796;
20826   t44955 = -t27801 - t27805 - t27809 + t27813 - t27816 - t44721 - t44722 - t44723 + t44724 + t27822 + t27829 + t27853 - t27861;
20827   t44957 = t27870 + t27875 + t27883 - t27888 - t27891 - t44727 - t27897 - t44728 + t44729 - t27901 + t28377 + t28210;
20828   t44958 = 0.20779030926817756511e3 * t31393;
20829   t44959 = 0.70178683471615754484e1 * t34977;
20830   t44960 = 0.16e2 * t42284;
20831   t44961 = 0.16e2 * t42286;
20832   t44962 = 0.41558061853635513020e3 * t31398;
20833   t44963 = t28420 - t44958 + t28422 + t44959 + t28222 - t28426 + t28428 - t44960 - t44961 + t44962 + t28434 - t28437 + t28226;
20834   t44966 = 0.48e2 * t31414;
20835   t44967 = 0.48e2 * t31473;
20836   t44968 = 0.23392894490538584828e1 * t31707;
20837   t44969 = -t28230 - t28441 - t28444 - t28244 - t28446 - t44966 - t28449 - t44967 - t28453 + t28455 + t28466 - t44968;
20838   t44970 = 0.384e3 * t31712;
20839   t44971 = 0.73245789224026180216e-3 * t42327;
20840   t44972 = 0.22787578869697033845e-2 * t31719;
20841   t44973 = 0.72e2 * t35112;
20842   t44974 = 0.192e3 * t35114;
20843   t44975 = 0.14035736694323150897e2 * t31723;
20844   t44997 = (0.40e2 / 0.81e2 * t28385 * t44766 - 0.16e2 / 0.9e1 * t9887 * t3196 + 0.4e1 / 0.3e1 * t1780 * t44771 + 0.16e2 / 0.9e1 * t2697 * t11629 + 0.4e1 / 0.3e1 * t67 * t44777 + 0.40e2 / 0.81e2 * t28398 * t44780 - 0.16e2 / 0.9e1 * t9897 * t3202 + 0.4e1 / 0.3e1 * t1785 * t44785 + 0.16e2 / 0.9e1 * t2703 * t11637 + 0.4e1 / 0.3e1 * t70 * t44790) * t133;
20845   t44999 = 0.19751673498613801407e-1 * t44997 * t159;
20846   t45000 = t44970 - t28279 - t44971 - t28323 + t28329 - t44972 + t28483 - t28486 - t28489 + t44973 + t44974 - t44975 + t44999;
20847   t45002 = 0.14649157844805236043e-2 * t35130;
20848   t45003 = 0.4e1 * t31732;
20849   t45004 = 0.96e2 * t31733;
20850   t45005 = 0.576e3 * t31735;
20851   t45006 = 0.960e3 * t31737;
20852   t45007 = 0.480e3 * t31739;
20853   t45008 = 0.65061487801810439052e-1 * t35223;
20854   t45009 = t28337 + t28493 - t28499 + t45002 + t45003 - t45004 - t45005 - t45006 - t45007 + t45008 + t28508 + t28513;
20855   t45010 = 0.48e2 * t35229;
20856   t45011 = 0.120e3 * t35231;
20857   t45012 = 0.144e3 * t31751;
20858   t45014 = t128 * t44997 * t161;
20859   t45015 = 0.41016075432865626630e4 * t31756;
20860   t45016 = 0.240e3 * t31758;
20861   t45017 = -t28356 - t28515 - t45010 + t45011 + t28518 + t28521 + t28524 + t45012 + t45014 + t28369 + t28526 - t45015 + t45016;
20862   t45050 = -(t44954 + t44955 + t44957 + t44963 + t44969 + t45000 + t45009 + t45017) * t187 * t192 + 0.12e2 * t12111 * t1010 - 0.72e2 * t3468 * t3472 + 0.18e2 * t3468 * t3475 + 0.240e3 * t1008 * t12119 - 0.144e3 * t9973 * t12122 + 0.12e2 * t1008 * t12125 - 0.360e3 * t190 * t28545 * t44820 + 0.360e3 * t2776 * t9980 * t3448 - 0.36e2 * t190 * t2011 * t44825 - 0.48e2 * t2776 * t2777 * t12035 + 0.3e1 * t190 * t703 * t44793;
20863   t45051 = t45050 * t194;
20864   t45058 = 0.5e1 / 0.32e2 * t1903 * t27995 * t42419 * t1014 - t1903 * t2746 * t42438 * t1014 / 0.768e3 - t1903 * t2746 * t10072 * t3484 / 0.512e3 + 0.7e1 / 0.1536e4 * t1890 * t699 * t532 * t44907 + t28577 * t699 * t532 * t44912 / 0.128e3 - 0.3e1 / 0.256e3 * t6262 * t699 * t532 * t44917 - 0.15e2 / 0.64e2 * t722 * t6285 * t532 * t3427 * t3448 + 0.5e1 / 0.192e3 * t722 * t2043 * t532 * t999 * t12035 + 0.119e3 / 0.288e3 * t35817 + 0.7e1 / 0.48e2 * t42835 - 0.5e1 / 0.64e2 * t1903 * t8050 * t12134 * t1014 - t697 * t699 * t532 * t44938 / 0.3072e4 - t697 * t699 * t532 * t44944 / 0.1024e4 + t1890 * t699 * t532 * t44949 / 0.512e3 - t697 * t699 * t532 * t45051 / 0.3072e4 + 0.7e1 / 0.3e1 * t42846 + 0.7e1 / 0.36e2 * t42848;
20865   t45060 = t44804 + t44857 + t44893 + t45058;
20866   t45075 = t3503 * t3503;
20867   t45083 = t3519 * t3519;
20868   t45123 = -0.4e1 * t1014 * t262 * t42972 + 0.36e2 * t10187 * t12062 * t2823 - 0.36e2 * t10187 * t42986 * t8245 - 0.6e1 * t10230 * t262 * t3484 - 0.4e1 * t12140 * t262 * t2836 + 0.24e2 * t12150 * t262 * t8280 + t188 * t197 * t45060 + 0.14e2 * t2065 * t262 * t44907 + 0.6e1 * t2065 * t262 * t44949 + 0.24e2 * t262 * t28679 * t44912 - 0.36e2 * t262 * t44917 * t6355;
20869   t45159 = 0.8e1 * t12128 * t1892 * t2823 * t2824 - 0.4e1 * t1014 * t2833 * t42910 - 0.12e2 * t1014 * t2833 * t42925 + 0.24e2 * t10200 * t12062 * t2823 - 0.6e1 * t10213 * t2833 * t3484 - 0.6e1 * t10230 * t262 * t3479 - 0.4e1 * t12129 * t262 * t2836 - 0.24e2 * t12145 * t262 * t32135 + 0.12e2 * t262 * t3454 * t35901 - t262 * t44938 * t738 - 0.3e1 * t262 * t44944 * t738 - t262 * t45051 * t738;
20870   t45163 = params->beta * t45060 * t221 - 0.4e1 * t42856 * t1031 + 0.12e2 * t10164 * t3504 - 0.6e1 * t10164 * t3520 - 0.24e2 * t2815 * t12169 + 0.24e2 * t2815 * t12173 - 0.4e1 * t2815 * t12207 + 0.24e2 * t734 * t28635 * t45075 - 0.36e2 * t734 * t6346 * t3503 * t3519 + 0.6e1 * t734 * t2060 * t45083 + 0.8e1 * t734 * t2060 * t1030 * t12206 - t734 * t737 * (t45123 + t45159);
20871   t45173 = -0.3e1 * t169 * t175 * t2093 * t44730 + t169 * t175 * t45163 * t748 + 0.18e2 * t169 * t2096 * t44825 + 0.36e2 * t169 * t3448 * t42218 - t27891 - t27897 - t27901 + t28210 + t28377 + t28420 + t28422 - t44727 - t44728 + t44729 - t44958;
20872   t45174 = t44959 + t28222 - t28426 + t28428 - t44960 - t44961 + t44962 + t28434 - t28437 + t28226 - t28230 - t28441 - t28444 - t28244 - t28446;
20873   t45190 = 0.24e2 * t1033 * t11986 * t169 * t748 + 0.3e1 * t169 * t44793 * t671 + 0.18e2 * t1768 * t3448 * t9915 + 0.36e2 * t2857 * t3427 * t9915 - t28279 - t28323 - t28449 - t28453 + t28455 + t28466 - t44966 - t44967 - t44968 + t44970 - t44971;
20874   t45194 = -0.36e2 * t2857 * t3427 * t9948 + t28329 + t28337 + t28483 - t28486 - t28489 + t28493 - t28499 - t44972 + t44973 + t44974 - t44975 + t44999 + t45002 + t45003;
20875   t45205 = t999 * t3522;
20876   t45215 = 0.12e2 * t12035 * t1768 * t2853 + 0.72e2 * t12134 * t2853 * t2857 - 0.4e1 * t12209 * t2849 * t2850 - 0.36e2 * t1768 * t2850 * t45205 - 0.18e2 * t1768 * t3448 * t9948 + 0.24e2 * t1768 * t42317 * t999 - t28356 + t28508 + t28513 - t28515 - t45004 - t45005 - t45006 - t45007 + t45008;
20877   t45219 = t3431 * t3431;
20878   t45230 = -0.6e1 * t169 * t175 * t28769 * t45219 + 0.24e2 * t12035 * t2857 * t2858 + 0.12e2 * t1768 * t42358 * t999 + 0.12e2 * t2849 * t3522 * t9934 + t28369 + t28518 + t28521 + t28524 + t28526 - t45010 + t45011 + t45012 + t45014 - t45015 + t45016;
20879   t45233 = t44720 + t44725 + t45173 + t45174 + t45190 + t45194 + t45215 + t45230;
20880   t45239 = t26544 + t26546 + t26548 + t26550 + t26552 + t26554 + t26556 + t26558 + t26561 + t26563 + t26565 + t26567 + t26571;
20881   t45240 = t45239 * t80;
20882   t45253 = t3152 * t3152;
20883   t45259 = t3209 * t3209;
20884   t45271 = t3164 * t3164;
20885   t45272 = t26320 * t45271;
20886   t45275 = t9707 * t3168;
20887   t45278 = t3168 * t3168;
20888   t45279 = t1422 * t45278;
20889   t45282 = t2396 * t11590;
20890   t45291 = t3179 * t3179;
20891   t45292 = t26336 * t45291;
20892   t45295 = t9732 * t3183;
20893   t45298 = t3183 * t3183;
20894   t45299 = t1431 * t45298;
20895   t45302 = t2406 * t11612;
20896   t45305 = 0.12e2 * t44776;
20897   t45306 = t37 * t45305;
20898   t45310 = 0.1e1 / t42 / t1080;
20899   t45311 = sigma[2] * t45310;
20900   t45321 = -t49 * t45305;
20901   t45324 = 0.40e2 / 0.81e2 * t31 * t45272 - 0.20e2 / 0.9e1 * t31 * t45275 + 0.10e2 / 0.3e1 * t31 * t45279 + 0.40e2 / 0.9e1 * t31 * t45282 + 0.1760e4 / 0.27e2 * t3174 * t3180 + 0.320e3 / 0.81e2 * t894 * t11606 - 0.320e3 / 0.9e1 * t894 * t11609 + 0.40e2 / 0.81e2 * t45 * t45292 - 0.20e2 / 0.9e1 * t45 * t45295 + 0.10e2 / 0.3e1 * t45 * t45299 + 0.40e2 / 0.9e1 * t45 * t45302 + 0.5e1 / 0.3e1 * t31 * t45306 + 0.20944e5 / 0.81e2 * t45311 * t50 - 0.24640e5 / 0.81e2 * t11596 * t898 + 0.880e3 / 0.9e1 * t3174 * t3184 - 0.160e3 / 0.9e1 * t894 * t11613 + 0.5e1 / 0.3e1 * t45 * t45321 - t26456;
20902   t45377 = t11575 * t909 / 0.2e1 + t3159 * t3206 / 0.2e1 + t884 * t11641 / 0.6e1 + t25 * t45324 * t74 / 0.24e2 + t11617 * t909 / 0.6e1 + t3188 * t3206 / 0.4e1 + t902 * t11641 / 0.6e1 + t60 * t66 * (0.3640e4 / 0.81e2 * t26416 * t44766 - 0.560e3 / 0.9e1 * t9764 * t3196 + 0.28e2 / 0.3e1 * t1450 * t44771 + 0.112e3 / 0.9e1 * t2420 * t11629 - 0.4e1 / 0.3e1 * t431 * t44777 + 0.3640e4 / 0.81e2 * t26433 * t44780 - 0.560e3 / 0.9e1 * t9777 * t3202 + 0.28e2 / 0.3e1 * t1459 * t44785 + 0.112e3 / 0.9e1 * t2426 * t11637 - 0.4e1 / 0.3e1 * t435 * t44790) / 0.24e2 + (-t26500 - t26501 - t26503) * t59 * t74 / 0.24e2 + t11566 * t901 * t74 / 0.6e1 + t11567 * t909 / 0.6e1 + t3155 * t3187 * t74 / 0.4e1 + t11570 * t909 / 0.2e1 + t3156 * t3206 / 0.4e1 + t883 * t11616 * t74 / 0.6e1;
20903   t45380 = 0.80e2 * t11644 * t1397 * t912 - 0.720e3 * t3152 * t3209 * t6453 - 0.480e3 * t11560 * t34313 + 0.240e3 * t11563 * t7591 - 0.16e2 * t11644 * t2378 + 0.60e2 * t1397 * t45259 + 0.840e3 * t26389 * t45253 + 0.120e3 * t3152 * t36282 - 0.24e2 * t3209 * t9657 - 0.4e1 * t400 * t45377 - 0.16e2 * t40570 * t912 + t45240;
20904   t45383 = t3249 * t3249;
20905   t45428 = -0.48e2 * t11458 * t3249 * t400 + 0.240e3 * t11470 * t1397 * t3249 - 0.32e2 * t12661 * t3103 * t400 + 0.240e3 * t1397 * t3152 * t3219 - 0.32e2 * t400 * t40780 * t928 - 0.960e3 * t40415 * t6453 * t928 - 0.96e2 * t12668 * t2378 - 0.96e2 * t12671 * t2378 - 0.480e3 * t12678 * t34313 + 0.480e3 * t12681 * t7591 + 0.240e3 * t12684 * t7591 + 0.8e1 * t12692 * t881 + 0.12e2 * t3149 * t3219 + 0.12e2 * t3149 * t3732 - 0.96e2 * t3724 * t9657 + t45240 * t97 + 0.6e1 * t45383 * t81;
20906   t45457 = t3227 * t3227;
20907   t45464 = t3244 * t3244;
20908   t45505 = 0.40e2 / 0.81e2 * t85 * t45272 - 0.20e2 / 0.9e1 * t85 * t45275 + 0.10e2 / 0.3e1 * t85 * t45279 + 0.40e2 / 0.9e1 * t85 * t45282 + 0.800e3 / 0.27e2 * t3235 * t3180 + 0.200e3 / 0.81e2 * t919 * t11606 - 0.200e3 / 0.9e1 * t919 * t11609 + 0.40e2 / 0.81e2 * t89 * t45292 - 0.20e2 / 0.9e1 * t89 * t45295 + 0.10e2 / 0.3e1 * t89 * t45299 + 0.40e2 / 0.9e1 * t89 * t45302 + 0.5e1 / 0.3e1 * t85 * t45306 + 0.6160e4 / 0.81e2 * tau[1] * t11595 * t50 - 0.8800e4 / 0.81e2 * t12641 * t898 + 0.400e3 / 0.9e1 * t3235 * t3184 - 0.100e3 / 0.9e1 * t919 * t11613 + 0.5e1 / 0.3e1 * t89 * t45321;
20909   t45509 = t26285 + 0.616e3 / 0.27e2 * t34023 + 0.44e2 / 0.3e1 * t34721 - 0.22e2 / 0.3e1 * t34711 + 0.8e1 * t40427 - 0.8e1 * t40436 + 0.4e1 / 0.3e1 * t40448 + 0.3e1 * t58 * t26299 * t45457 - 0.9e1 / 0.2e1 * t58 * t9804 * t3244 + 0.3e1 / 0.4e1 * t58 * t1493 * t45464 + t58 * t2457 * t12656 - t58 * t453 * t45505 / 0.8e1;
20910   t45510 = my_piecewise3(t95, 0, t45509);
20911   t45533 = 0.60e2 * t1397 * t97 * t45259 + 0.80e2 * t1397 * t1113 * t11644 - 0.96e2 * t2378 * t12665 + 0.120e3 * t36282 * t3721 - 0.16e2 * t40570 * t1113 + 0.8e1 * t11553 * t1116 + 0.24e2 * t881 * t12704 - 0.720e3 * t6453 * t3721 * t3209 - 0.96e2 * t400 * t11430 * t3249 + 0.2e1 * t81 * t96 * t45510 - 0.16e2 * t2378 * t12695 - 0.4e1 * t400 * t97 * t45377 - 0.24e2 * t9657 * t3727 - 0.48e2 * t400 * t3219 * t3209 + 0.840e3 * t26389 * t97 * t45253 + 0.480e3 * t7757 * t40809 * t912 + 0.8e1 * t81 * t928 * t12661;
20912   t45538 = -0.12e2 * t3220 * t3714 - 0.24e2 * t2442 * t11549 - 0.24e2 * t4302 * t11549 - 0.12e2 * t449 * t3714 * t3249 + 0.6e1 * t3735 * t3530 + t366 * t45233 - 0.12e2 * t9866 * t3250 - 0.4e1 * t11648 * t1110 - t45380 * t97 * t363 - 0.6e1 * t82 * t45383 * t363 - 0.8e1 * t44549 * t929 + (t45428 + t45533) * t227 - 0.24e2 * t9866 * t3223;
20913   t45556 = t3303 * t3303;
20914   t45557 = t45556 * t506;
20915   t45560 = t45556 * t1600;
20916   t45563 = t3399 * t3399;
20917   t45571 = t3271 * t3271;
20918   t45572 = t45571 * t506;
20919   t45587 = 0.6e1 * t169 * t38425 * t3399 + 0.12414243100625616072e5 * t6745 * t38843 * t3271 - 0.60000000000000000000e1 * t1548 * t45557 + 0.96491876992155210402e2 * t1598 * t45560 - 0.3e1 * t169 * t45563 * t27681 - 0.12000000000000000000e2 * t38863 * t3272 + 0.24000000000000000000e2 * t8385 * t11692 - 0.24000000000000000000e2 * t6656 * t45572 + 0.40000000000000000000e1 * t41139 * t950 + 0.60000000000000000000e1 * t10330 * t3304 + 0.19298375398431042080e3 * t38430 * t3307 - 0.77193501593724168322e3 * t32356 * t11698 + 0.40000000000000000000e1 * t2508 * t11760 + 0.82761620670837440481e4 * t32366 * t11766;
20920   t45588 = t45571 * t1600;
20921   t45591 = t45571 * t6747;
20922   t45597 = t2489 * t11629;
20923   t45599 = t106 * t560 * t45597;
20924   t45601 = t3254 * t3196;
20925   t45603 = t106 * t474 * t45601;
20926   t45605 = t2494 * t11629;
20927   t45607 = t106 * t474 * t45605;
20928   t45612 = t3282 * t3282;
20929   t45615 = t3275 * t3275;
20930   t45624 = t26703 * t44766;
20931   t45626 = t106 * t6995 * t45624;
20932   t45628 = t475 * t44777;
20933   t45630 = t106 * t474 * t45628;
20934   t45641 = -0.80e2 / 0.81e2 * t45626 - t45630 / 0.3e1 + 0.16e2 / 0.9e1 * t38613 - 0.8e1 / 0.9e1 * t38618 - 0.8e1 / 0.3e1 * t40928 - 0.16e2 / 0.27e2 * t38620 + 0.4e1 / 0.9e1 * t40978 + 0.8e1 / 0.3e1 * t40980 + 0.40e2 / 0.81e2 * t40982 - 0.16e2 / 0.9e1 * t40984 + 0.8e1 / 0.9e1 * t40976;
20935   t45643 = t26713 * t44766;
20936   t45645 = t106 * t1698 * t45643;
20937   t45647 = t10287 * t3196;
20938   t45649 = t106 * t1698 * t45647;
20939   t45651 = t6604 * t44766;
20940   t45653 = t106 * t560 * t45651;
20941   t45655 = t10292 * t3196;
20942   t45657 = t106 * t560 * t45655;
20943   t45659 = t1526 * t44771;
20944   t45661 = t106 * t560 * t45659;
20945   t45664 = t6610 * t44766;
20946   t45666 = t106 * t474 * t45664;
20947   t45669 = t1531 * t44771;
20948   t45671 = t106 * t474 * t45669;
20949   t45674 = 0.112e3 / 0.81e2 * t32545 + 0.40e2 / 0.9e1 * t45645 - 0.20e2 / 0.9e1 * t45649 - 0.8e1 * t45653 + 0.8e1 * t45657 - 0.2e1 / 0.3e1 * t45661 - 0.8e1 / 0.9e1 * t45599 + 0.8e1 * t45666 - 0.12e2 * t45603 + 0.2e1 * t45671 + 0.8e1 / 0.3e1 * t45607 + t26998;
20950   t45675 = t45641 + t45674;
20951   t45678 = -0.69463333333333333334e0 * t38462 - 0.23154444444444444445e0 * t38464 + 0.27785333333333333333e0 * t40926 - 0.13772666666666666667e1 * t45599 - 0.18593100000000000000e2 * t45603 + 0.41318000000000000000e1 * t45607 - 0.41318000000000000000e1 * t40928 - 0.94674375000000000000e0 * t10424 * t3282 + 0.94674375000000000000e0 * t1571 * t45612 + 0.23668593750000000000e0 * t27007 * t45615 + 0.15883762500000000000e2 * t10415 * t3282 - 0.37510200000000000000e1 * t119 * t258 * t45601 + 0.13892666666666666667e1 * t38660 + 0.35297250000000000000e1 * t486 * t45675;
20952   t45699 = -0.52945875000000000000e1 * t1554 * t45612 + 0.13772666666666666667e1 * t40976 + 0.25006800000000000000e1 * t119 * t258 * t45664 + 0.62517000000000000000e0 * t119 * t258 * t45669 + 0.12349037037037037037e0 * t41033 + 0.27785333333333333333e0 * t41035 - 0.55570666666666666668e0 * t41037 - 0.70594500000000000000e1 * t41072 * t940 + 0.12623250000000000000e1 * t41075 * t940 + t27013 + 0.68863333333333333332e0 * t40978 + 0.41318000000000000000e1 * t40980 + 0.76514814814814814814e0 * t40982 - 0.27545333333333333332e1 * t40984;
20953   t45715 = -0.10329500000000000000e1 * t45661 + 0.12395400000000000000e2 * t45666 + 0.30988500000000000000e1 * t45671 - 0.16671200000000000000e1 * t41068 + 0.21424148148148148148e1 * t32545 - 0.66182343750000000000e1 * t27053 * t45615 + 0.12349037037037037037e1 * t32625 + 0.27545333333333333333e1 * t38613 - 0.13772666666666666666e1 * t38618 - 0.91817777777777777776e0 * t38620 + t27034 + 0.16671200000000000000e1 * t41097 - 0.34431666666666666667e1 * t45649 + 0.12395400000000000000e2 * t45657;
20954   t45749 = -0.15302962962962962963e1 * t45626 - 0.51647500000000000000e0 * t45630 - 0.10805407407407407407e0 * t119 * t27069 * t45624 - 0.10419500000000000000e0 * t119 * t258 * t45628 + 0.55570666666666666666e0 * t119 * t6680 * t45643 - 0.12503400000000000000e1 * t119 * t1582 * t45651 - 0.10419500000000000000e0 * t119 * t1582 * t45659 + 0.68863333333333333334e1 * t45645 - 0.12395400000000000000e2 * t45653 + 0.63116250000000000000e0 * t493 * t45675 - 0.27785333333333333334e0 * t119 * t6680 * t45647 + 0.83356000000000000000e0 * t119 * t258 * t45605 - 0.13892666666666666667e0 * t119 * t1582 * t45597 + 0.12503400000000000000e1 * t119 * t1582 * t45655;
20955   t45752 = (t45678 + t45699 + t45715 + t45749) * t506;
20956   t45755 = t45571 * t27101;
20957   t45770 = t3323 * t3323;
20958   t45771 = t45770 * t1672;
20959   t45781 = t45770 * t26849;
20960   t45787 = 0.55e2 / 0.7776e4 * t557 * t533 * t27189 * t45624 + t557 * t533 * t560 * t45628 / 0.2304e4 + t39003 / 0.1152e4 - t32911 / 0.1296e4 + 0.7e1 / 0.486e3 * t41302 + 0.5e1 / 0.972e3 * t32915 + 0.7e1 / 0.768e3 * t1671 * t533 * t474 * t45771 - t557 * t533 * t560 * t45664 / 0.96e2 - t26882 + t41317 / 0.54e2 + t26848 * t533 * t474 * t45781 / 0.64e2 - t39072 / 0.216e3;
20961   t45788 = t45770 * t6822;
20962   t45813 = -0.3e1 / 0.128e3 * t6820 * t533 * t474 * t45788 + t41350 / 0.216e3 - t41355 / 0.36e2 + t41379 / 0.36e2 - t41384 / 0.27e2 - t1682 * t1684 * t963 * t11668 / 0.96e2 - 0.5e1 / 0.5184e4 * t39115 + t39118 / 0.864e3 + t1682 * t1684 * t3348 * t3258 / 0.192e3 + 0.5e1 / 0.864e3 * t41419 - t531 * t2578 * t10692 * t3348 / 0.256e3 - t41422 / 0.576e3;
20963   t45816 = t3193 * t3196;
20964   t45821 = t886 * t11629;
20965   t45841 = t33081 / 0.1944e4 - 0.5e1 / 0.192e3 * t557 * t2578 * t8753 * t45816 + 0.5e1 / 0.1728e4 * t557 * t2578 * t2634 * t45821 - t41467 / 0.96e2 + 0.5e1 / 0.972e3 * t41472 - t39219 / 0.162e3 - t517 * t518 * t26800 * t44766 / 0.12e2 + t41484 / 0.96e2 + t39260 / 0.108e3 - t531 * t2578 * t41582 * t963 / 0.384e3 - t41493 / 0.144e3 - t41496 / 0.192e3;
20966   t45867 = t45770 * t265;
20967   t45873 = -t39314 / 0.1728e4 + 0.3e1 / 0.128e3 * t1671 * t2578 * t10692 * t11835 - 0.3e1 / 0.128e3 * t6820 * t2578 * t10692 * t42057 - t517 * t2570 * t45605 / 0.36e2 - t517 * t2566 * t45655 / 0.6e1 + t517 * t2566 * t45597 / 0.54e2 + 0.7e1 / 0.108e3 * t517 * t8836 * t45647 + t517 * t2570 * t45601 / 0.8e1 + t39368 / 0.1152e4 - t531 * t533 * t474 * t45867 / 0.1536e4 - t39375 / 0.576e3 - t27269;
20968   t45914 = -0.78956835208714868956e2 * t41139 * t959 - 0.11843525281307230343e3 * t10330 * t3341 - 0.38093466153245923519e4 * t38430 * t3344 + 0.15237386461298369407e5 * t32356 * t11802 - 0.78956835208714868956e2 * t2508 * t11805 - 0.16336489112283704782e6 * t32366 * t11811 - 0.22856079691947554112e5 * t6745 * t45588 * t187 + 0.49009467336851114346e6 * t26939 * t45591 * t187 - 0.19046733076622961759e4 * t1598 * t45560 * t187 - 0.24504733668425557172e6 * t39931 * t8718 * t3271 - 0.25395644102163949012e4 * t41217 * t11808;
20969   t45953 = -0.50735802469135802467e-1 * t45626 - 0.17123333333333333333e-1 * t45630 + 0.91324444444444444440e-1 * t38613 - 0.45662222222222222221e-1 * t38618 - 0.13698666666666666667e0 * t40928 - 0.30441481481481481480e-1 * t38620 + 0.22831111111111111111e-1 * t40978 + 0.13698666666666666667e0 * t40980 + 0.25367901234567901233e-1 * t40982 - 0.91324444444444444440e-1 * t40984 + 0.45662222222222222220e-1 * t40976;
20970   t45965 = 0.71030123456790123454e-1 * t32545 + 0.22831111111111111110e0 * t45645 - 0.11415555555555555555e0 * t45649 - 0.41095999999999999999e0 * t45653 + 0.41095999999999999998e0 * t45657 - 0.34246666666666666665e-1 * t45661 - 0.45662222222222222220e-1 * t45599 + 0.41096000000000000000e0 * t45666 - 0.61644000000000000000e0 * t45603 + 0.10274000000000000000e0 * t45671 + 0.13698666666666666667e0 * t45607 + t26753;
20971   t45967 = (t45953 + t45965) * t251;
20972   t45970 = 0.15791367041742973791e3 * t2601 * t11805 + 0.22856079691947554112e5 * t10610 * t2608 * t3303 + 0.47374101125228921372e3 * t6656 * t45572 * t187 - 0.71061151687843382058e3 * t10605 * t3341 + 0.11843525281307230343e3 * t1548 * t45557 * t187 - 0.76186932306491847037e4 * t41211 * t11808 + 0.47374101125228921372e3 * t10595 * t3341 + 0.23687050562614460686e3 * t38863 * t3338 - 0.47374101125228921372e3 * t8385 * t11797 - 0.19739208802178717239e2 * t485 * t45752 * t187 - 0.39408462447654052777e7 * t27099 * t45755 * t187 + 0.61370581910589784405e0 * t45967 * t187;
20973   t45972 = (t45914 + t45970) * t265;
20974   t45985 = t3347 * t3347;
20975   t45986 = t45985 * t1672;
20976   t46011 = -t1682 * t1684 * t963 * t11676 / 0.576e3 - 0.5e1 / 0.648e3 * t1682 * t27294 * t963 * t11656 + 0.5e1 / 0.576e3 * t6828 * t6841 * t3324 * t3254 - t531 * t533 * t474 * t45972 / 0.1536e4 + 0.5e1 / 0.192e3 * t557 * t533 * t1698 * t45651 + 0.5e1 / 0.2304e4 * t557 * t533 * t1698 * t45659 + t1671 * t533 * t474 * t45986 / 0.256e3 - t1682 * t1684 * t3353 * t3262 / 0.384e3 - t6828 * t1684 * t3324 * t3258 / 0.96e2 - 0.7e1 / 0.54e2 * t517 * t518 * t27233 * t44766 + t517 * t518 * t521 * t44777 / 0.288e3 + 0.35e2 / 0.972e3 * t517 * t518 * t26923 * t44766;
20977   t46047 = t45985 * t265;
20978   t46052 = -t517 * t518 * t1649 * t44771 / 0.48e2 + t517 * t518 * t26777 * t44766 / 0.6e1 + t517 * t518 * t1643 * t44771 / 0.72e2 - t41657 / 0.288e3 - 0.5e1 / 0.216e3 * t557 * t533 * t6995 * t45643 + t41675 / 0.144e3 - t1682 * t1684 * t3348 * t3262 / 0.384e3 - 0.5e1 / 0.1152e4 * t1682 * t6841 * t3348 * t3254 - 0.5e1 / 0.864e3 * t41680 - t1682 * t1684 * t11815 * t932 / 0.576e3 - t1682 * t1684 * t11845 * t932 / 0.576e3 - t531 * t533 * t474 * t46047 / 0.512e3;
20979   t46092 = -t557 * t533 * t560 * t45669 / 0.384e3 - 0.5e1 / 0.1152e4 * t1682 * t6841 * t3353 * t3254 + t41702 / 0.864e3 + t41707 / 0.96e2 - 0.5e1 / 0.432e3 * t41712 - t41715 / 0.576e3 + t6828 * t1684 * t3324 * t3262 / 0.192e3 + t1682 * t1684 * t3353 * t3258 / 0.192e3 - t1682 * t1684 * t41659 * t10665 / 0.192e3 - 0.5e1 / 0.576e3 * t1682 * t6841 * t2489 * t3196 * t962 * t265 - t557 * t2578 * t2640 * t45821 / 0.288e3 + t557 * t2578 * t8747 * t45816 / 0.64e2;
20980   t46107 = t1672 * t11814;
20981   t46128 = t6828 * t1684 * t11854 * t932 / 0.96e2 + t41789 / 0.144e3 + 0.5e1 / 0.288e3 * t1682 * t6841 * t11660 * t963 - t41798 / 0.288e3 + 0.5e1 / 0.432e3 * t557 * t2578 * t8781 * t45816 + t1671 * t2578 * t2579 * t46107 / 0.192e3 - t41840 / 0.288e3 + t39970 / 0.864e3 - t27331 * t1684 * t11859 * t932 / 0.96e2 + t1682 * t1684 * t963 * t11672 / 0.96e2 + t6828 * t1684 * t11835 * t932 * t962 / 0.96e2 + t41890 / 0.144e3;
20982   t46131 = t45787 + t45813 + t45841 + t45873 + t46011 + t46052 + t46092 + t46128;
20983   t46146 = t3376 * t3376;
20984   t46154 = t3392 * t3392;
20985   t46195 = 0.36e2 * t10749 * t11835 * t2662 - 0.36e2 * t10749 * t42057 * t8892 + 0.24e2 * t10762 * t11835 * t2662 - 0.6e1 * t10775 * t1679 * t3353 - 0.6e1 * t10792 * t262 * t3348 - 0.6e1 * t10792 * t262 * t3353 - 0.12e2 * t1679 * t41957 * t963 - 0.4e1 * t1679 * t42013 * t963 + 0.24e2 * t262 * t27645 * t45781 - 0.4e1 * t262 * t42068 * t963 - 0.36e2 * t262 * t45788 * t7034;
20986   t46229 = -0.4e1 * t11815 * t262 * t2673 - 0.4e1 * t11845 * t262 * t2673 + 0.24e2 * t11854 * t262 * t8927 - 0.24e2 * t11859 * t262 * t33789 + 0.14e2 * t1740 * t262 * t45771 + 0.6e1 * t1740 * t262 * t45986 + t188 * t284 * t46131 + 0.12e2 * t262 * t3324 * t40066 - t262 * t45867 * t572 - t262 * t45972 * t572 - 0.3e1 * t262 * t46047 * t572 + 0.8e1 * t2662 * t2663 * t46107;
20987   t46233 = params->beta * t46131 * t289 - 0.4e1 * t41899 * t980 + 0.12e2 * t10726 * t3377 - 0.6e1 * t10726 * t3393 - 0.24e2 * t2654 * t11923 + 0.24e2 * t2654 * t11927 - 0.4e1 * t2654 * t11961 + 0.24e2 * t568 * t27559 * t46146 - 0.36e2 * t568 * t7025 * t3376 * t3392 + 0.6e1 * t568 * t1735 * t46154 + 0.8e1 * t568 * t1735 * t979 * t11960 - t568 * t571 * (t46195 + t46229);
20988   t46257 = t3395 * t3395;
20989   t46261 = 0.11579025239058625248e4 * t6745 * t45588 - 0.24828486201251232145e5 * t26939 * t45591 + 0.10000000000000000000e1 * t485 * t45752 + 0.19964560303604640732e6 * t27099 * t45755 + t169 * t46233 * t581 / 0.2e1 - 0.24000000000000000000e2 * t8684 * t11695 + 0.38596750796862084160e3 * t8385 * t11763 + 0.36000000000000000000e2 * t1598 * t3272 * t3303 - 0.80000000000000000000e1 * t1548 * t950 * t11759 - 0.11579025239058625248e4 * t6656 * t3307 * t3303 + 0.12865583598954028054e3 * t1598 * t41117 * t949 - 0.2e1 * t169 * t42087 * t982 - 0.3109070e-1 * t45967 - 0.3e1 / 0.2e1 * t169 * t46257 * t1763;
20990   t46263 = my_piecewise3(t296, t45587 + t46261, t45233);
20991   t46274 = t3699 * t3699;
20992   t46278 = t2879 * t11637;
20993   t46282 = t10834 * t3202;
20994   t46286 = t2884 * t11637;
20995   t46290 = t3538 * t3202;
20996   t46294 = t7107 * t44780;
20997   t46298 = t28887 * t44780;
20998   t46302 = t28987 * t44780;
20999   t46306 = t759 * t44790;
21000   t46315 = -0.13892666666666666667e0 * t119 * t2169 * t46278 - 0.27785333333333333334e0 * t119 * t7185 * t46282 + 0.83356000000000000000e0 * t119 * t323 * t46286 - 0.37510200000000000000e1 * t119 * t323 * t46290 - 0.12503400000000000000e1 * t119 * t2169 * t46294 + 0.55570666666666666666e0 * t119 * t7185 * t46298 - 0.10805407407407407407e0 * t119 * t28985 * t46302 - 0.10419500000000000000e0 * t119 * t323 * t46306 - 0.41318000000000000000e1 * t43082 + t28994 - 0.23154444444444444445e0 * t36872 - 0.13772666666666666666e1 * t36747 + 0.13772666666666666667e1 * t43094 + 0.27785333333333333333e0 * t43266;
21001   t46317 = t106 * t758 * t46290;
21002   t46320 = t106 * t758 * t46286;
21003   t46323 = t106 * t2271 * t46282;
21004   t46325 = t10839 * t3202;
21005   t46327 = t106 * t827 * t46325;
21006   t46330 = t106 * t827 * t46278;
21007   t46335 = t7113 * t44780;
21008   t46337 = t106 * t758 * t46335;
21009   t46339 = t2119 * t44785;
21010   t46341 = t106 * t758 * t46339;
21011   t46344 = t106 * t827 * t46294;
21012   t46346 = t2114 * t44785;
21013   t46348 = t106 * t827 * t46346;
21014   t46351 = t106 * t2271 * t46298;
21015   t46353 = -0.18593100000000000000e2 * t46317 + 0.41318000000000000000e1 * t46320 - 0.34431666666666666667e1 * t46323 + 0.12395400000000000000e2 * t46327 - 0.13772666666666666667e1 * t46330 - 0.16671200000000000000e1 * t43269 + 0.27545333333333333333e1 * t36752 - 0.91817777777777777776e0 * t36766 + t29037 + 0.12395400000000000000e2 * t46337 + 0.30988500000000000000e1 * t46341 - 0.12395400000000000000e2 * t46344 - 0.10329500000000000000e1 * t46348 + 0.68863333333333333334e1 * t46351;
21016   t46356 = t106 * t7407 * t46302;
21017   t46359 = t106 * t758 * t46306;
21018   t46378 = -0.15302962962962962963e1 * t46356 - 0.51647500000000000000e0 * t46359 - 0.69463333333333333334e0 * t36931 + 0.12349037037037037037e0 * t43315 + 0.27785333333333333333e0 * t43317 - 0.55570666666666666668e0 * t43319 + 0.41318000000000000000e1 * t43114 + 0.68863333333333333332e0 * t43116 - 0.70594500000000000000e1 * t43293 * t1049 + 0.12623250000000000000e1 * t43252 * t1049 + 0.12349037037037037037e1 * t30219 + 0.21424148148148148148e1 * t30179 - 0.10419500000000000000e0 * t119 * t2169 * t46346 + 0.15883762500000000000e2 * t10990 * t3566;
21019   t46387 = t3566 * t3566;
21020   t46390 = t3559 * t3559;
21021   t46411 = -0.8e1 / 0.3e1 * t43082 + 0.8e1 * t46337 - 0.12e2 * t46317 + 0.2e1 * t46341 + 0.8e1 / 0.3e1 * t46320 + 0.16e2 / 0.9e1 * t36752 - 0.20e2 / 0.9e1 * t46323 - 0.8e1 * t46344 + 0.8e1 * t46327 - 0.2e1 / 0.3e1 * t46348 - 0.8e1 / 0.9e1 * t46330;
21022   t46423 = 0.40e2 / 0.9e1 * t46351 + 0.8e1 / 0.3e1 * t43114 + 0.4e1 / 0.9e1 * t43116 + 0.40e2 / 0.81e2 * t43168 - 0.16e2 / 0.9e1 * t43170 + 0.8e1 / 0.9e1 * t43094 + t29085 - 0.16e2 / 0.27e2 * t36766 - 0.80e2 / 0.81e2 * t46356 - t46359 / 0.3e1 - 0.8e1 / 0.9e1 * t36747 + 0.112e3 / 0.81e2 * t30179;
21023   t46424 = t46411 + t46423;
21024   t46433 = -0.94674375000000000000e0 * t10944 * t3566 + 0.25006800000000000000e1 * t119 * t323 * t46335 + 0.62517000000000000000e0 * t119 * t323 * t46339 + 0.94674375000000000000e0 * t2159 * t46387 + 0.23668593750000000000e0 * t29080 * t46390 + 0.76514814814814814814e0 * t43168 - 0.27545333333333333332e1 * t43170 - 0.52945875000000000000e1 * t2142 * t46387 - 0.66182343750000000000e1 * t29060 * t46390 + 0.13892666666666666667e1 * t37046 + 0.35297250000000000000e1 * t770 * t46424 + 0.12503400000000000000e1 * t119 * t2169 * t46325 + 0.63116250000000000000e0 * t777 * t46424 + 0.16671200000000000000e1 * t43393;
21025   t46436 = (t46315 + t46353 + t46378 + t46433) * t787;
21026   t46439 = t3555 * t3555;
21027   t46440 = t46439 * t29134;
21028   t46447 = t46439 * t787;
21029   t46450 = t3587 * t3587;
21030   t46451 = t46450 * t787;
21031   t46454 = t3703 * t3703;
21032   t46468 = t46439 * t2187;
21033   t46471 = -0.3e1 / 0.2e1 * t169 * t46274 * t2320 + 0.10000000000000000000e1 * t769 * t46436 + 0.19964560303604640732e6 * t29132 * t46440 - 0.12000000000000000000e2 * t36597 * t3556 + 0.24000000000000000000e2 * t9000 * t12277 - 0.24000000000000000000e2 * t7159 * t46447 - 0.60000000000000000000e1 * t2136 * t46451 - 0.3e1 * t169 * t46454 * t29662 + 0.60000000000000000000e1 * t10877 * t3588 + 0.19298375398431042080e3 * t37267 * t3591 - 0.77193501593724168322e3 * t29938 * t12283 + 0.40000000000000000000e1 * t2896 * t12345 + 0.82761620670837440481e4 * t29853 * t12351 + 0.11579025239058625248e4 * t7247 * t46468;
21034   t46472 = t46439 * t7249;
21035   t46488 = t3607 * t3607;
21036   t46489 = t46488 * t28880;
21037   t46494 = t46488 * t7382;
21038   t46521 = -t37372 / 0.1728e4 + t43499 / 0.96e2 + t43502 / 0.54e2 - t43522 / 0.576e3 - t30505 / 0.1296e4 - t3015 * t12540 / 0.18e2 + t28879 * t533 * t758 * t46489 / 0.64e2 - 0.3e1 / 0.128e3 * t7381 * t533 * t758 * t46494 - 0.19e2 / 0.144e3 * t11127 * t3610 - 0.19e2 / 0.144e3 * t11127 * t3670 + 0.5e1 / 0.192e3 * t824 * t533 * t2271 * t46294 + t37457 / 0.108e3 + t43541 / 0.36e2 + 0.209e3 / 0.324e3 * t43495 * t1077 + t794 * t2954 * t46278 / 0.54e2 + 0.7e1 / 0.108e3 * t794 * t9163 * t46282 - t43561 / 0.96e2 + t43563 / 0.36e2 + 0.2e1 / 0.9e1 * t2947 * t12356;
21039   t46537 = t3667 * t3667;
21040   t46538 = t46537 * t329;
21041   t46547 = t46450 * t2187;
21042   t46576 = -0.19046733076622961759e4 * t2185 * t46547 * t187 - 0.24504733668425557172e6 * t37239 * t9258 * t3555 - 0.47374101125228921372e3 * t9000 * t12420 + 0.47374101125228921372e3 * t11170 * t3661 + 0.23687050562614460686e3 * t36597 * t3658 + 0.47374101125228921372e3 * t7159 * t46447 * t187 - 0.71061151687843382058e3 * t11180 * t3661 + 0.49009467336851114346e6 * t28929 * t46472 * t187 - 0.19739208802178717239e2 * t769 * t46436 * t187 - 0.39408462447654052777e7 * t29132 * t46440 * t187 - 0.76186932306491847037e4 * t44014 * t12431;
21043   t46608 = -0.13698666666666666667e0 * t43082 + 0.41096000000000000000e0 * t46337 - 0.61644000000000000000e0 * t46317 + 0.10274000000000000000e0 * t46341 + 0.13698666666666666667e0 * t46320 + 0.91324444444444444440e-1 * t36752 - 0.11415555555555555555e0 * t46323 - 0.41095999999999999999e0 * t46344 + 0.41095999999999999998e0 * t46327 - 0.34246666666666666665e-1 * t46348 - 0.45662222222222222220e-1 * t46330;
21044   t46620 = 0.22831111111111111110e0 * t46351 + 0.13698666666666666667e0 * t43114 + 0.22831111111111111111e-1 * t43116 + 0.25367901234567901233e-1 * t43168 - 0.91324444444444444440e-1 * t43170 + 0.45662222222222222220e-1 * t43094 + t29161 - 0.30441481481481481480e-1 * t36766 - 0.50735802469135802467e-1 * t46356 - 0.17123333333333333333e-1 * t46359 - 0.45662222222222222221e-1 * t36747 + 0.71030123456790123454e-1 * t30179;
21045   t46622 = (t46608 + t46620) * t318;
21046   t46630 = -0.25395644102163949012e4 * t44041 * t12431 - 0.78956835208714868956e2 * t43179 * t1071 - 0.11843525281307230343e3 * t10877 * t3661 - 0.38093466153245923519e4 * t37267 * t3664 + 0.15237386461298369407e5 * t29938 * t12425 - 0.78956835208714868956e2 * t2896 * t12428 - 0.16336489112283704782e6 * t29853 * t12434 - 0.22856079691947554112e5 * t7247 * t46468 * t187 + 0.22856079691947554112e5 * t11185 * t2992 * t3587 + 0.61370581910589784405e0 * t46622 * t187 + 0.11843525281307230343e3 * t2136 * t46451 * t187 + 0.15791367041742973791e3 * t2985 * t12428;
21047   t46632 = (t46576 + t46630) * t329;
21048   t46659 = t794 * t2958 * t46290 / 0.8e1 - t794 * t2958 * t46286 / 0.36e2 - t794 * t2954 * t46325 / 0.6e1 + t37471 / 0.162e3 + 0.2e1 / 0.81e2 * t37475 + t43574 / 0.96e2 - 0.209e3 / 0.486e3 * t43576 + t3009 * t12401 / 0.72e2 - t807 * t533 * t758 * t46538 / 0.512e3 + 0.55e2 / 0.7776e4 * t824 * t533 * t29328 * t46302 - t807 * t533 * t758 * t46632 / 0.1536e4 + 0.11e2 / 0.81e2 * t43587 - t37478 / 0.162e3 + 0.2e1 / 0.27e2 * t43591 - t2232 * t2233 * t12438 * t1041 / 0.576e3 - t3015 * t12391 / 0.108e3 - t2232 * t2233 * t3608 * t3546 / 0.384e3 - t2232 * t2233 * t3668 * t3546 / 0.384e3 - t807 * t2578 * t43645 * t1075 / 0.384e3 + t37562 / 0.864e3;
21049   t46686 = -t37565 / 0.576e3 - t37567 / 0.108e3 + 0.5e1 / 0.2304e4 * t824 * t533 * t2271 * t46346 + 0.19e2 / 0.72e2 * t37753 * t3617 - t43658 / 0.54e2 + t43660 / 0.27e2 - 0.5e1 / 0.864e3 * t43667 + t43697 / 0.36e2 - t43699 / 0.27e2 - 0.4e1 / 0.81e2 * t43701 + t43704 / 0.216e3 + 0.7e1 / 0.486e3 * t43707 + 0.5e1 / 0.972e3 * t30610 + t37647 / 0.1152e4 - t37654 / 0.216e3 - t43716 / 0.288e3 - t43719 / 0.192e3 + 0.11e2 / 0.54e2 * t11012 * t3635 + 0.22e2 / 0.81e2 * t11012 * t3639;
21050   t46697 = t11637 * t905;
21051   t46703 = t3202 * t3199;
21052   t46723 = t2219 * t12437;
21053   t46748 = -0.3e1 / 0.128e3 * t7381 * t2578 * t11110 * t44453 + 0.5e1 / 0.576e3 * t7444 * t7439 * t3615 * t3538 - 0.19e2 / 0.108e3 * t37948 * t3621 + 0.5e1 / 0.1728e4 * t824 * t2578 * t3027 * t46697 - 0.10e2 / 0.243e3 * t30640 + 0.5e1 / 0.432e3 * t824 * t2578 * t9341 * t46703 - 0.19e2 / 0.648e3 * t37742 + t3015 * t12524 / 0.18e2 - 0.5e1 / 0.108e3 * t3015 * t12503 - 0.2e1 / 0.9e1 * t2947 * t12364 - t794 * t518 * t29453 * t44780 / 0.12e2 - t794 * t518 * t2204 * t44785 / 0.48e2 + t2217 * t2578 * t2966 * t46723 / 0.192e3 + t30654 / 0.1944e4 + t2232 * t2233 * t3608 * t3542 / 0.192e3 - t2232 * t2233 * t12399 * t1041 / 0.576e3 - t43781 / 0.27e2 + 0.35e2 / 0.972e3 * t794 * t518 * t29438 * t44780 + 0.5e1 / 0.108e3 * t9370 * t12515 - t807 * t2578 * t11110 * t3668 / 0.256e3;
21054   t46789 = 0.3e1 / 0.128e3 * t2217 * t2578 * t11110 * t12518 - 0.5e1 / 0.162e3 * t43814 + 0.5e1 / 0.972e3 * t43817 - t43837 / 0.144e3 - t43852 / 0.36e2 - 0.154e3 / 0.243e3 * t43862 + 0.5e1 / 0.288e3 * t2232 * t7439 * t12245 * t1075 - t9370 * t12486 / 0.18e2 - t7444 * t2233 * t3542 * t3615 / 0.96e2 - 0.5e1 / 0.1152e4 * t2232 * t7439 * t3608 * t3538 - t43885 / 0.576e3 - 0.19e2 / 0.108e3 * t43887 - t43889 / 0.18e2 + t43892 / 0.864e3 + 0.19e2 / 0.162e3 * t43894 + t43897 / 0.144e3 + t37891 / 0.1152e4 - t30722 / 0.243e3 + 0.5225e4 / 0.3888e4 * t262 * t333 / t41 / t12472 / rho[1] * t342;
21055   t46813 = t46488 * t2219;
21056   t46822 = t46488 * t329;
21057   t46840 = -t2232 * t2233 * t12261 * t1075 / 0.576e3 - t29414 + t9370 * t12480 / 0.36e2 - 0.11e2 / 0.81e2 * t37931 - 0.10e2 / 0.243e3 * t3015 * t12407 + t824 * t533 * t827 * t46306 / 0.2304e4 - 0.5e1 / 0.216e3 * t824 * t533 * t7407 * t46298 + t3009 * t12440 / 0.72e2 + t30508 * t12449 / 0.12e2 - t9193 * t12379 / 0.12e2 + 0.7e1 / 0.768e3 * t2217 * t533 * t758 * t46813 + 0.19e2 / 0.216e3 * t11286 * t3647 + 0.95e2 / 0.648e3 * t11286 * t3651 - t807 * t533 * t758 * t46822 / 0.1536e4 - 0.5e1 / 0.432e3 * t43948 - 0.5e1 / 0.192e3 * t824 * t2578 * t9434 * t46703 + 0.5e1 / 0.864e3 * t43960 + t7444 * t2233 * t12377 * t1041 / 0.96e2 - 0.5e1 / 0.5184e4 * t37970 - 0.11e2 / 0.27e2 * t11012 * t3631;
21058   t46869 = t46537 * t2219;
21059   t46896 = -0.154e3 / 0.243e3 * t44261 * t1066 + t9370 * t12498 / 0.36e2 - t30738 * t12490 / 0.18e2 - t9193 * t12520 / 0.12e2 + t44152 / 0.27e2 - t29493 * t2233 * t12447 * t1041 / 0.96e2 + 0.5e1 / 0.54e2 * t3015 * t12536 - 0.19e2 / 0.108e3 * t11286 * t3604 - 0.209e3 / 0.486e3 * t43557 * t1088 - t824 * t533 * t827 * t46335 / 0.96e2 - t824 * t533 * t827 * t46339 / 0.384e3 + t2217 * t533 * t758 * t46869 / 0.256e3 + t38120 / 0.864e3 + 0.1309e4 / 0.486e3 * t45311 * t254 * t324 + 0.8e1 / 0.27e2 * t2947 * t12456 + t794 * t518 * t29295 * t44780 / 0.6e1 - t2947 * t12460 / 0.27e2 + t794 * t518 * t2199 * t44785 / 0.72e2 - 0.28e2 / 0.243e3 * t2947 * t12464 - 0.7e1 / 0.54e2 * t794 * t518 * t29303 * t44780;
21060   t46907 = t1041 * t3667;
21061   t46960 = t794 * t518 * t797 * t44790 / 0.288e3 - t44218 / 0.288e3 + t44221 / 0.144e3 + t7444 * t2233 * t3615 * t3546 / 0.192e3 - t2232 * t2233 * t1075 * t46907 / 0.192e3 + t2232 * t2233 * t3542 * t3668 / 0.192e3 - t824 * t2578 * t3033 * t46697 / 0.288e3 + t3009 * t12511 / 0.24e2 - 0.4e1 / 0.27e2 * t2947 * t12371 - t44240 / 0.288e3 - 0.5e1 / 0.1152e4 * t2232 * t7439 * t3668 * t3538 - 0.5e1 / 0.648e3 * t2232 * t29376 * t1075 * t12241 + t824 * t2578 * t9329 * t46703 / 0.64e2 - 0.5e1 / 0.576e3 * t2232 * t7439 * t10860 * t905 * t1074 * t329 + t7444 * t2233 * t9293 * t46907 / 0.96e2 - t2232 * t2233 * t12253 * t1075 / 0.96e2 - t29509 + t2232 * t2233 * t2884 * t3202 * t1074 * t329 / 0.96e2 + t44294 / 0.144e3 + t9370 * t12494 / 0.36e2;
21062   t46963 = t46521 + t46659 + t46686 + t46748 + t46789 + t46840 + t46896 + t46960;
21063   t46978 = t3680 * t3680;
21064   t46986 = t3696 * t3696;
21065   t47025 = -0.4e1 * t1075 * t2229 * t44398 - 0.4e1 * t1075 * t262 * t44464 + 0.36e2 * t11328 * t12518 * t3054 + 0.24e2 * t12377 * t262 * t9522 - 0.4e1 * t12399 * t262 * t3065 + t188 * t347 * t46963 + 0.14e2 * t2297 * t262 * t46813 + 0.12e2 * t262 * t3615 * t37362 - 0.3e1 * t262 * t46538 * t839 - t262 * t46632 * t839 + 0.8e1 * t3054 * t3055 * t46723;
21066   t47061 = -0.12e2 * t1075 * t2229 * t44394 - 0.36e2 * t11328 * t44453 * t9487 + 0.24e2 * t11341 * t12518 * t3054 - 0.6e1 * t11354 * t2229 * t3608 - 0.6e1 * t11371 * t262 * t3608 - 0.6e1 * t11371 * t262 * t3668 - 0.4e1 * t12438 * t262 * t3065 - 0.24e2 * t12447 * t262 * t29910 + 0.6e1 * t2297 * t262 * t46869 + 0.24e2 * t262 * t29554 * t46489 - 0.36e2 * t262 * t46494 * t7471 - t262 * t46822 * t839;
21067   t47065 = params->beta * t46963 * t352 - 0.4e1 * t44303 * t1099 + 0.12e2 * t11305 * t3681 - 0.6e1 * t11305 * t3697 - 0.24e2 * t3046 * t12555 + 0.24e2 * t3046 * t12559 - 0.4e1 * t3046 * t12593 + 0.24e2 * t835 * t29537 * t46978 - 0.36e2 * t835 * t7462 * t3680 * t3696 + 0.6e1 * t835 * t2292 * t46986 + 0.8e1 * t835 * t2292 * t1098 * t12592 - t835 * t838 * (t47025 + t47061);
21068   t47093 = -0.24828486201251232145e5 * t28929 * t46472 + 0.12865583598954028054e3 * t2185 * t43465 * t1058 + 0.12414243100625616072e5 * t7247 * t36635 * t3555 + t169 * t47065 * t848 / 0.2e1 + 0.40000000000000000000e1 * t43179 * t1059 - 0.2e1 * t169 * t43404 * t1101 - 0.24000000000000000000e2 * t9224 * t12280 + 0.38596750796862084160e3 * t9000 * t12348 + 0.36000000000000000000e2 * t2185 * t3556 * t3587 - 0.80000000000000000000e1 * t2136 * t1059 * t12344 - 0.11579025239058625248e4 * t7159 * t3591 * t3587 + 0.6e1 * t169 * t38384 * t3703 + 0.96491876992155210402e2 * t2185 * t46547 - 0.3109070e-1 * t46622;
21069   t47095 = my_piecewise3(t359, t46471 + t47093, t45233);
21070   t47127 = -0.12e2 * t3212 * t3219 * t363 - 0.4e1 * t916 * t12615 + 0.4e1 * t12707 * t1037 - 0.6e1 * t3213 * t3714 - 0.24e2 * t12621 * t1110 - t98 * (t46263 * t34 / 0.2e1 + 0.2e1 * t12228 * t886 + 0.3e1 * t3531 * t3196 + 0.2e1 * t1038 * t11629 + t297 * t44777 / 0.2e1 + t47095 * t46 / 0.2e1 + 0.2e1 * t12606 * t905 + 0.3e1 * t3708 * t3202 + 0.2e1 * t1106 * t11637 + t360 * t44790 / 0.2e1) - 0.8e1 * t2442 * t12662 - 0.8e1 * t4302 * t12662 - 0.2e1 * t449 * t363 * t45510 - 0.8e1 * t449 * t12615 * t928 + 0.4e1 * t1119 * t12227 - 0.24e2 * t16016 * t3250 - 0.24e2 * t2442 * t12718 - 0.8e1 * t449 * t1110 * t12661;
21071   t47128 = t45538 + t47127;
21072   t47163 = 0.24e2 * t1116 * t12661 * t369 + 0.36e2 * t3219 * t3249 * t369 + 0.18e2 * t369 * t45383 * t96 + 0.3e1 * t369 * t45510 * t97 + t370 * t47128 * params->d + 0.24e2 * t1125 * t12738 + 0.72e2 * t1125 * t12741 + 0.12e2 * t1125 * t12744 + 0.12e2 * t1127 * t12730 + 0.36e2 * t3745 * t3749 + 0.18e2 * t3745 * t3752;
21073   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21074     v4rho4[4] = t372 * t47128 * t7 + 0.4e1 * t1123 * t12747 + 0.4e1 * t1130 * t12724 + 0.6e1 * t3741 * t3755 + t47163 * t872 + 0.4e1 * t40328 + 0.12e2 * t44639 + 0.12e2 * t44645 + 0.4e1 * t44651;
21075 
21076   t47165 = t368 * t13394;
21077   t47167 = t13355 * t372;
21078   t47169 = t1216 * t2373;
21079   t47173 = 0.18e2 * t369 * t3967 * t1516;
21080   t47178 = 0.18e2 * t369 * t13292 * t464;
21081   t47181 = 0.18e2 * t369 * t3970 * t1516;
21082   t47186 = t12791 * t363 * t1398 * t464;
21083   t47189 = t1392 * t12757;
21084   t47192 = t1392 * t12764;
21085   t47197 = t97 * t2331;
21086   t47199 = t1204 * t47197 * t443;
21087   t47204 = t3958 * t12772;
21088   t47209 = t3958 * t12776;
21089   t47214 = t1204 * t465 * t1516;
21090   t47217 = t1204 * t12780 * t1516;
21091   t47221 = t1481 * t363;
21092   t47223 = t1204 * t47221 * t443;
21093   t47226 = t26602 * t3761;
21094   t47229 = t6453 * t12757;
21095   t47232 = t6453 * t12764;
21096   t47235 = t13110 * t61;
21097   t47236 = t1397 * t47235;
21098   t47239 = -0.6e1 * t6587 * t3816 + 0.30e2 * t13159 * t47186 + 0.2e1 * t47189 * t3791 + 0.2e1 * t47192 * t3791 + 0.2e1 * t13167 * t12785 - 0.5e1 / 0.2e1 * t3762 * t47199 - 0.5e1 / 0.2e1 * t12761 * t12754 - 0.5e1 * t3762 * t47204 + t12758 * t12777 + t12788 * t12777 + t3788 * t47209 - 0.5e1 * t12765 * t12773 + t3788 * t47214 + t3788 * t47217 + 0.2e1 * t12788 * t12782 - 0.5e1 * t3762 * t47223 + 0.15e2 * t47226 * t13161 + 0.15e2 * t47229 * t13161 + 0.15e2 * t47232 * t13161 - 0.5e1 / 0.2e1 * t47236 * t3765;
21099   t47240 = t400 * t47235;
21100   t47244 = 0.6e1 * t449 * t857 * t13155;
21101   t47248 = 0.6e1 * t1476 * t13208;
21102   t47250 = 0.2e1 * t29806 * t1144;
21103   t47251 = t26398 * t3761;
21104   t47254 = t6445 * t12757;
21105   t47257 = t6445 * t12764;
21106   t47265 = t3958 * t13160;
21107   t47269 = t1204 * t12771 * t1398;
21108   t47272 = t96 * t2331;
21109   t47274 = t1204 * t47272 * t464;
21110   t47276 = t13195 * t61;
21111   t47277 = t1397 * t47276;
21112   t47280 = t400 * t47276;
21113   t47283 = t1204 * t3789 * t5804;
21114   t47290 = 0.6e1 * t449 * t2331 * t3811;
21115   t47291 = t13336 * t3790;
21116   t47297 = 0.15e2 * t13159 * t47265 + 0.15e2 * t13159 * t47269 + t3788 * t47274 - 0.5e1 / 0.2e1 * t47277 * t3765 + t47280 * t3791 + t3788 * t47283 / 0.3e1 - 0.12e2 * t1476 * t13350 - t47290 + t3788 * t47291 - 0.5e1 * t12765 * t12768 + 0.2e1 * t12788 * t12785;
21117   t47300 = t3958 * t12781;
21118   t47311 = t3958 * t12753;
21119   t47315 = t1204 * t12771 * t1470;
21120   t47319 = t1204 * t3763 * t6533;
21121   t47324 = t6442 * t3761;
21122   t47327 = t26389 * t3761;
21123   t47329 = t1204 * t3763 * t6454;
21124   t47355 = -0.35e2 * t47327 * t47329 - 0.5e1 * t12761 * t12768 + 0.2e1 * t12758 * t12785 + t1392 * t13110 * t1138 / 0.2e1 + t400 * t6463 * t1133 * t1138 / 0.6e1 + t400 * t1406 * t3778 * t1138 / 0.2e1 + t13111 * t3785 / 0.2e1 + t13111 * t3795 / 0.2e1 + t13216 * t3795 + t3780 * t13205 / 0.2e1 + t13088 * t3795;
21125   t47358 = 0.6e1 * t8308 * t3802;
21126   t47364 = t12791 * t363 * t1470 * t464;
21127   t47368 = t12791 * t12792 * t1516;
21128   t47371 = t13055 * t32275;
21129   t47373 = 0.18e2 * t13345 * t47371;
21130   t47375 = 0.2e1 * t26657 * t1144;
21131   t47377 = 0.12e2 * t1476 * t13102;
21132   t47378 = t3976 * t13344;
21133   t47380 = 0.18e2 * t47378 * t12941;
21134   t47381 = t3874 * t6275;
21135   t47383 = 0.18e2 * t14821 * t47381;
21136   t47386 = t3923 * t32297;
21137   t47388 = 0.9e1 * t13345 * t47386;
21138   t47389 = t173 * t3919;
21139   t47392 = 0.18e2 * t1214 * t47389 * t13106;
21140   t47394 = 0.18e2 * t3977 * t13107;
21141   t47397 = t13336 * t3764;
21142   t47404 = 0.3e1 * t13214 * t3986;
21143   t47406 = t14703 * t12792 * t1470;
21144   t47413 = -t47388 + t47392 + t47394 + 0.2e1 * t13167 * t12782 - 0.5e1 / 0.2e1 * t3762 * t47397 + t13167 * t12777 - 0.6e1 * t2448 * t13223 - t47404 + 0.15e2 * t13159 * t47406 - 0.10e2 * t13164 * t12794 - 0.10e2 * t12761 * t12794;
21145   t47417 = t28769 * t6114;
21146   t47420 = 0.6e1 * t1214 * t1191 * t47417;
21147   t47422 = t1214 * t1191 * t27817;
21148   t47426 = t6067 * t1190 * t748;
21149   t47428 = 0.6e1 * t1214 * t47426;
21150   t47443 = t1416 * t37;
21151   t47446 = t409 * t1422;
21152   t47451 = t30 * t5770;
21153   t47454 = t414 * t1427;
21154   t47459 = 0.1232e4 / 0.27e2 * t714;
21155   t47460 = -0.1232e4 / 0.27e2 * t6480 * t38 + 0.440e3 / 0.9e1 * t47443 * t414 - 0.80e2 / 0.9e1 * t47446 * t1423 - 0.40e2 / 0.3e1 * t13185 * t1427 - 0.10e2 / 0.27e2 * t47451 * t5771 + 0.10e2 / 0.3e1 * t13188 * t47454 + 0.5e1 / 0.3e1 * t3774 * t5781 + t47459;
21156   t47474 = 0.3e1 * t3977 * t13174;
21157   t47475 = t3923 * t32306;
21158   t47477 = 0.9e1 * t13345 * t47475;
21159   t47478 = t748 * t6147;
21160   t47481 = 0.3e1 * t1214 * t3979 * t47478;
21161   t47485 = -t47420 - t47422 + 0.3e1 * t13341 * t751 + t47428 + t1392 * t13114 * t1138 + t400 * t404 * t13194 * t1138 / 0.2e1 + t13115 * t3785 + t13115 * t3795 + t3769 * t13097 + t1392 * t13195 * t1138 / 0.2e1 + t400 * t25 * t47460 * t1138 / 0.6e1 + t13196 * t3785 / 0.2e1 + t13196 * t3795 / 0.2e1 + t13216 * t3785 + t3780 * t13093 / 0.2e1 + t3780 * t13097 - t47474 - t47477 + t47481 - 0.6e1 * t449 * t3934 * t1516;
21162   t47488 = 0.3e1 * t1214 * t13048 * t3985;
21163   t47489 = t13055 * t32289;
21164   t47491 = 0.6e1 * t14484 * t47489;
21165   t47494 = t3958 * t96;
21166   t47495 = t47494 * t12793;
21167   t47500 = t12791 * t857 * t443 * t464;
21168   t47505 = 0.9e1 * t1214 * t13124 * t13130;
21169   t47507 = 0.9e1 * t13214 * t3981;
21170   t47508 = t6453 * t13244;
21171   t47511 = t66 * t73 * t1398 * t464;
21172   t47515 = t66 * t13246 * t1470;
21173   t47518 = t6445 * t13244;
21174   t47522 = t1397 * t13280 * t1133;
21175   t47526 = t1397 * t3944 * t3778;
21176   t47531 = t66 * t439 * t443 * t464;
21177   t47536 = t66 * t73 * t1470 * t464;
21178   t47540 = t66 * t13246 * t1516;
21179   t47544 = 0.6e1 * t1391 * t3970;
21180   t47545 = t26535 * t1201;
21181   t47548 = t6442 * t3950;
21182   t47551 = -0.30e2 * t47508 * t47511 - 0.15e2 * t14500 * t47515 + 0.10e2 * t47518 * t13248 + 0.10e2 * t47522 * t13248 + 0.10e2 * t47526 * t13248 + 0.10e2 * t13245 * t47531 + 0.5e1 * t13245 * t47536 + 0.5e1 * t13245 * t47540 + t47544 - t47545 * t1205 / 0.6e1 - t47548 * t1205 / 0.2e1;
21183   t47556 = t1392 * t13321;
21184   t47565 = 0.6e1 * t81 * t464 * t13155;
21185   t47566 = t714 * t92;
21186   t47567 = 0.154e3 / 0.27e2 * t47566;
21187   t47568 = t202 * t453;
21188   t47569 = t47568 * t459;
21189   t47571 = t423 * t1493;
21190   t47572 = t47571 * t1494;
21191   t47574 = t13146 * t1511;
21192   t47575 = t57 * t5751;
21193   t47576 = t47575 * t5752;
21194   t47578 = t459 * t1511;
21195   t47579 = t13149 * t47578;
21196   t47581 = t3807 * t5799;
21197   t47584 = my_piecewise3(t95, 0, -t47567 - 0.11e2 / 0.3e1 * t47569 - 0.2e1 * t47572 + t47574 - 0.3e1 / 0.4e1 * t47576 + 0.3e1 / 0.4e1 * t47579 - t47581 / 0.8e1);
21198   t47587 = 0.2e1 * t81 * t96 * t47584;
21199   t47589 = 0.6e1 * t1391 * t3967;
21200   t47591 = 0.6e1 * t397 * t13299;
21201   t47593 = 0.12e2 * t397 * t13302;
21202   t47595 = 0.24e2 * t1392 * t13236;
21203   t47596 = -t13311 * t3955 / 0.2e1 - t13311 * t3959 / 0.2e1 - t47556 * t1205 / 0.2e1 - t13314 * t3955 - t13314 * t3959 - t3936 * t13330 / 0.2e1 + t47565 + t47587 + t47589 + t47591 + t47593 - t47595;
21204   t47600 = 0.24e2 * t400 * t3967 * t1470;
21205   t47602 = 0.120e3 * t6445 * t13230;
21206   t47605 = 0.120e3 * t1397 * t3967 * t1398;
21207   t47608 = 0.120e3 * t1397 * t3970 * t1398;
21208   t47611 = 0.24e2 * t400 * t3970 * t1470;
21209   t47616 = t400 * t97 * t6463;
21210   t47626 = -t47600 + t47602 + t47605 + t47608 - t47611 - t3936 * t13333 - t3936 * t13337 / 0.2e1 - t47616 * t1205 / 0.6e1 - t13322 * t3955 / 0.2e1 - t13322 * t3959 / 0.2e1 - t3951 * t13330 / 0.2e1 - t3951 * t13333;
21211   t47639 = t65 * t6529;
21212   t47643 = t1392 * t13307;
21213   t47646 = t400 * t1481 * t404;
21214   t47650 = t1143 * t443;
21215   t47653 = 0.120e3 * t7757 * t47650 * t1470;
21216   t47654 = t1397 * t13307;
21217   t47660 = -t3951 * t13337 / 0.2e1 - t1202 * t47460 * t61 * t1204 / 0.6e1 - t1202 * t13329 * t3958 / 0.2e1 - t1202 * t3954 * t13336 / 0.2e1 - t1202 * t1203 * t47639 / 0.6e1 - t47643 * t1205 - t47646 * t1205 - t13308 * t3955 - t13308 * t3959 + t47653 + 0.5e1 * t47654 * t3941 + 0.5e1 / 0.2e1 * t3939 * t13329 * t3940;
21218   t47669 = t13336 * t443;
21219   t47673 = t3958 * t1470;
21220   t47677 = t1204 * t6533;
21221   t47681 = t26389 * t1201;
21222   t47682 = t1204 * t6454;
21223   t47688 = 0.8e1 * t400 * t1208 * t6533;
21224   t47691 = 0.24e2 * t400 * t13299 * t443;
21225   t47694 = 0.48e2 * t400 * t13302 * t443;
21226   t47696 = 0.24e2 * t6442 * t3964;
21227   t47697 = t1204 * t5804;
21228   t47701 = 0.5e1 * t3939 * t3954 * t13272 + 0.5e1 / 0.2e1 * t3939 * t3954 * t13276 + 0.5e1 / 0.2e1 * t3939 * t1203 * t47669 + 0.5e1 / 0.2e1 * t3939 * t1203 * t47673 + 0.5e1 / 0.6e1 * t3939 * t1203 * t47677 + 0.35e2 * t47681 * t1203 * t47682 - t47688 - t47691 - t47694 - t47696 - t3945 * t1203 * t47697 / 0.3e1;
21229   t47704 = 0.24e2 * t400 * t13292 * t443;
21230   t47706 = 0.48e2 * t1392 * t13241;
21231   t47708 = 0.48e2 * t1392 * t13233;
21232   t47710 = t400 * t96 * t1406;
21233   t47721 = t13336 * t464;
21234   t47724 = t6442 * t3944;
21235   t47726 = t1392 * t13280;
21236   t47731 = -t1203 * t3945 * t47721 - 0.2e1 * t13287 * t3945 * t3954 - t13329 * t3945 * t3946 - 0.2e1 * t13263 * t13284 - 0.2e1 * t13281 * t13284 - 0.2e1 * t13281 * t13288 - t3947 * t47710 - t3947 * t47724 - 0.2e1 * t3947 * t47726 - t47704 - t47706 - t47708;
21237   t47735 = t1397 * t13321;
21238   t47744 = t26602 * t1201;
21239   t47747 = t6453 * t3950;
21240   t47753 = t3958 * t1398;
21241   t47760 = -0.2e1 * t13263 * t13288 + 0.5e1 / 0.2e1 * t47735 * t3941 + 0.5e1 * t13266 * t13269 + 0.5e1 * t13266 * t13273 + 0.5e1 / 0.2e1 * t13266 * t13277 - 0.15e2 * t47744 * t13253 - 0.15e2 * t47747 * t13253 - 0.15e2 * t13251 * t3954 * t13252 - 0.15e2 * t13251 * t1203 * t47753 - t13263 * t13257 - t14624 * t13257 - t13281 * t13257;
21242   t47763 = t3958 * t1516;
21243   t47768 = 0.240e3 * t6453 * t1208 * t6454;
21244   t47769 = t26398 * t1201;
21245   t47772 = t6445 * t3950;
21246   t47782 = 0.6e1 * t397 * t13292;
21247   t47785 = 0.2e1 * t81 * t5804 * t1143;
21248   t47788 = 0.6e1 * t81 * t1516 * t3811;
21249   t47790 = 0.2e1 * t6441 * t1208;
21250   t47791 = -t3945 * t3954 * t13256 - t3945 * t1203 * t47763 - t47768 + 0.5e1 / 0.2e1 * t47769 * t3941 + 0.5e1 * t47772 * t3941 + 0.5e1 * t13260 * t13269 + 0.5e1 * t13260 * t13273 + 0.5e1 / 0.2e1 * t13260 * t13277 + t47782 + t47785 + t47788 + t47790;
21251   t47798 = 0.6e1 * t3977 * t13180;
21252   t47804 = 0.12e2 * t7847 * t3802;
21253   t47810 = t66 * t3783 * t2331;
21254   t47814 = t66 * t1136 * t7532;
21255   t47818 = t3923 * t32262;
21256   t47820 = 0.18e2 * t14821 * t47818;
21257   t47822 = 0.6e1 * t33919 * t1144;
21258   t47826 = 0.6e1 * t1476 * t13156;
21259   t47827 = -0.2e1 * t449 * t1199 * t5804 - t47804 + t3769 * t13205 / 0.2e1 + t3758 * t13205 / 0.2e1 + t1135 * t47810 / 0.2e1 + t1135 * t47814 / 0.6e1 + t3758 * t13082 - t47820 - t47822 - 0.3e1 * t447 * t13074 - t47826;
21260   t47831 = 0.6e1 * t6587 * t3802;
21261   t47833 = 0.6e1 * t34069 * t1144;
21262   t47835 = 0.3e1 * t13214 * t3921;
21263   t47839 = 0.6e1 * t8308 * t3812;
21264   t47841 = 0.12e2 * t2448 * t13102;
21265   t47847 = t13051 * t7870;
21266   t47849 = 0.18e2 * t13345 * t47847;
21267   t47853 = 0.6e1 * t1214 * t3920 * t13138;
21268   t47857 = t13114 * t61;
21269   t47858 = t1397 * t47857;
21270   t47861 = t400 * t47857;
21271   t47876 = t66 * t439 * t1481 * t363;
21272   t47878 = t47853 + t13088 * t3785 + t3769 * t13093 / 0.2e1 - 0.5e1 * t47858 * t3765 + 0.2e1 * t47861 * t3791 + t13085 * t3795 / 0.2e1 + t26535 * t1134 * t1138 / 0.6e1 + t6442 * t3768 * t1138 / 0.2e1 + t3769 * t13082 + t3780 * t13082 + t1135 * t47876;
21273   t47881 = t66 * t13080 * t857;
21274   t47884 = 0.6e1 * t2448 * t13156;
21275   t47887 = 0.2e1 * t449 * t7532 * t1143;
21276   t47889 = 0.6e1 * t2448 * t13208;
21277   t47895 = t3843 * t1620;
21278   t47900 = t3848 * t12883;
21279   t47903 = t570 * t6817;
21280   t47904 = t1156 * t6821;
21281   t47921 = t3825 * t6785;
21282   t47925 = t12798 * t183;
21283   t47928 = t12851 * t1634;
21284   t47930 = t3825 * t6765;
21285   t47943 = t262 * t3828 * t6887;
21286   t47948 = t3825 * t6778;
21287   t47952 = -t12851 * t1638 / 0.36e2 + t47921 / 0.288e3 + t3825 * t6792 / 0.288e3 + 0.11e2 / 0.108e3 * t47925 * t523 - t47928 / 0.54e2 - t47930 / 0.432e3 + t12808 * t6971 / 0.128e3 + t12821 * t1719 / 0.48e2 + 0.7e1 / 0.648e3 * t3825 * t6757 - t3830 * t6877 / 0.768e3 - t3830 * t6884 / 0.768e3 - 0.19e2 / 0.144e3 * t47943 * t542 + t12851 * t1651 / 0.18e2 - t47948 / 0.144e3 + t3825 * t6775 / 0.48e2;
21288   t47955 = t3825 * t6788;
21289   t47959 = t3830 * t6924;
21290   t47963 = t12821 * t1617;
21291   t47966 = t262 * t1151 * t6887;
21292   t47969 = t12832 * t1689;
21293   t47971 = t3830 * t6897;
21294   t47975 = t3830 * t6959;
21295   t47981 = t12813 * t6951;
21296   t47985 = -t12851 * t1645 / 0.27e2 + t47955 / 0.216e3 - t3825 * t6770 / 0.36e2 - t47959 / 0.384e3 + t3840 * t6990 / 0.1152e4 + t47963 / 0.36e2 + 0.19e2 / 0.216e3 * t47966 * t562 - t47969 / 0.54e2 + t47971 / 0.1152e4 + t12821 * t1623 / 0.48e2 - t47975 / 0.384e3 - t3840 * t6917 / 0.192e3 - t12813 * t6834 / 0.384e3 - t47981 / 0.288e3 + t12813 * t6955 / 0.192e3;
21297   t47991 = t1679 * sigma[0] * t547 * t209;
21298   t47998 = t3840 * t6986;
21299   t48000 = t3840 * t7002;
21300   t48007 = t262 * t6817 * sigma[0] * t529;
21301   t48011 = t262 * t12806 * t1626;
21302   t48014 = t12808 * t6978;
21303   t48020 = t12799 * t513;
21304   t48022 = t3820 * t1609;
21305   t48025 = 0.5e1 / 0.1296e4 * t1148 * t6809;
21306   t48026 = t3834 * t1655;
21307   t48028 = -t12813 * t6942 / 0.384e3 + t47991 * t1686 / 0.36e2 + t3840 * t6813 / 0.192e3 - 0.5e1 / 0.216e3 * t12832 * t1700 + 0.5e1 / 0.1728e4 * t47998 - t48000 / 0.1728e4 - t14180 * t1582 * t6625 / 0.48e2 - t48007 * t6825 / 0.128e3 - t48011 * t1675 / 0.24e2 + t48014 / 0.192e3 - 0.77e2 / 0.162e3 * t6480 * t114 * t182 * t259 + 0.11e2 / 0.108e3 * t48020 + t48022 / 0.54e2 + t48025 + t48026 / 0.216e3;
21308   t48030 = t1153 * t6903 / 0.2592e4;
21309   t48035 = t12840 * t553;
21310   t48046 = t2662 * t12812;
21311   t48053 = t3840 * t6983;
21312   t48059 = t3840 * t6966;
21313   t48065 = t48030 - 0.209e3 / 0.648e3 * t262 * t1151 * t6908 * t279 + 0.19e2 / 0.216e3 * t48035 + t12808 * t6938 / 0.128e3 + t14180 * t6680 * t6616 / 0.72e2 - t12813 * t6838 / 0.384e3 - 0.5e1 / 0.1152e4 * t12813 * t6843 + t48046 * t6830 / 0.192e3 + 0.5e1 / 0.1152e4 * t3840 * t6933 - t12832 * t1693 / 0.72e2 + t48053 / 0.576e3 - 0.5e1 / 0.576e3 * t3840 * t6921 + t12832 * t1613 / 0.36e2 - t48059 / 0.288e3 + 0.5e1 / 0.1296e4 * t3840 * t6997 - t3830 * t6929 / 0.256e3;
21314   t48067 = t47952 + t47985 + t48028 + t48065;
21315   t48102 = t577 * t1620;
21316   t48107 = t1156 * t265 * t3852 * t3858 * t6874 + 0.12e2 * t12884 * t14262 * t1672 * t48102 - 0.6e1 * t12899 * t1672 * t3852 * t47895 + 0.6e1 * t1754 * t3843 * t3852 * t3853 + t265 * t3852 * t3858 * t47904 - 0.3e1 * t12862 * t1755 - 0.3e1 * t12869 * t3864 + 0.6e1 * t12871 * t12907 + 0.3e1 * t12871 * t12912 + 0.3e1 * t12871 * t12915 - 0.3e1 * t12918 * t3849;
21317   t48114 = t527 * t3843;
21318   t48123 = t12868 * t3851;
21319   t48135 = t1160 * t3851 * t7024;
21320   t48150 = 0.3e1 * t12859 * t265 * t3852 * t3858 * t539 - 0.6e1 * t12884 * t12885 * t1716 * t265 * t577 - 0.6e1 * t12884 * t12885 * t1754 * t265 * t539 + 0.18e2 * t12885 * t1736 * t265 * t48135 * t539 - 0.18e2 * t12878 * t1754 * t3852 * t3854 - 0.12e2 * t12884 * t12887 * t48114 - 0.18e2 * t12871 * t12880 - 0.6e1 * t12871 * t12902 - 0.6e1 * t3846 * t7027 + 0.6e1 * t3855 * t48123 + 0.3e1 * t3861 * t48123;
21321   t48174 = t27558 * t267;
21322   t48181 = t12860 * t187;
21323   t48186 = 0.2e1 * t1156 * t3852 * t3853 * t7069 + 0.24e2 * t1156 * t3852 * t48174 * t7026 - t1159 * t1162 * t1167 * t7013 - t1163 * t1165 * t267 * t48067 + 0.6e1 * t12859 * t3852 * t3853 * t577 - 0.18e2 * t12878 * t1736 * t3843 * t3852 - 0.6e1 * t12884 * t12885 * t265 * t48102 + 0.6e1 * t12871 * t12896 + 0.6e1 * t3846 * t7031 - t3846 * t7070 - 0.3e1 * t48181 * t578;
21324   t48192 = t12920 * t1763;
21325   t48196 = t3866 * t7082;
21326   t48203 = t1169 * t27681;
21327   t48237 = t3919 * t6117;
21328   t48243 = t743 * t1891;
21329   t48244 = t48243 * t194;
21330   t48249 = t743 * t2018 * t194;
21331   t48253 = t736 * t6259;
21332   t48254 = t1181 * t6191;
21333   t48263 = t3902 * t13010;
21334   t48266 = t48243 * t1892;
21335   t48271 = t2079 * t707 * t194;
21336   t48287 = t1184 * t3851 * t6345;
21337   t48289 = t2061 * t707 * t194;
21338   t48293 = t694 * t3897;
21339   t48297 = t12969 * t6308;
21340   t48299 = t12969 * t6173;
21341   t48302 = t262 * t3892 * t2030;
21342   t48303 = t48302 * t728;
21343   t48305 = t12979 * t2045;
21344   t48307 = t12979 * t2049;
21345   t48310 = t262 * t12959 * t714;
21346   t48311 = t48310 * t1895;
21347   t48314 = t262 * t3885 * t2030;
21348   t48315 = t48314 * t710;
21349   t48317 = t3887 * t6255;
21350   t48319 = t12965 * t2026;
21351   t48321 = t6259 * t53;
21352   t48323 = t262 * t48321 * t202;
21353   t48324 = t48323 * t6266;
21354   t48326 = t12961 * t6272;
21355   t48328 = t3887 * t6194;
21356   t48330 = t3894 * t6277;
21357   t48332 = t12965 * t2021;
21358   t48335 = t14329 * t183 * t6275;
21359   t48337 = t48297 / 0.128e3 - t48299 / 0.512e3 - 0.119e3 / 0.576e3 * t48303 - 0.35e2 / 0.192e3 * t48305 + 0.7e1 / 0.192e3 * t48307 - 0.7e1 / 0.384e3 * t48311 - 0.119e3 / 0.2304e4 * t48315 - t48317 / 0.1536e4 + 0.7e1 / 0.768e3 * t48319 - t48324 / 0.256e3 + t48326 / 0.256e3 - t48328 / 0.1536e4 + 0.5e1 / 0.128e3 * t48330 + 0.7e1 / 0.768e3 * t48332 + 0.3e1 / 0.16e2 * t48335;
21360   t48338 = t1178 * t6159;
21361   t48339 = 0.595e3 / 0.5184e4 * t48338;
21362   t48340 = t14336 * t6188;
21363   t48342 = t14336 * t6178;
21364   t48345 = t262 * t3885 * t715;
21365   t48346 = t48345 * t1909;
21366   t48348 = t12969 * t6312;
21367   t48350 = t12969 * t6168;
21368   t48352 = t12969 * t6304;
21369   t48356 = t5226 * t130 * t180 * t516;
21370   t48357 = 0.455e3 / 0.1296e4 * t48356;
21371   t48358 = t3894 * t6293;
21372   t48360 = t3894 * t6287;
21373   t48362 = t3878 * t206;
21374   t48363 = t48362 * t1870;
21375   t48365 = t1173 * t724;
21376   t48366 = t48365 * t6321;
21377   t48368 = t12947 * t191;
21378   t48369 = t48368 * t690;
21379   t48371 = t12951 * t1883;
21380   t48373 = t3882 * t6163;
21381   t48375 = -t48339 - t48340 / 0.64e2 + t48342 / 0.256e3 - 0.7e1 / 0.96e2 * t48346 + t48348 / 0.128e3 + t48350 / 0.128e3 - 0.5e1 / 0.128e3 * t48352 - t48357 - t48358 / 0.384e3 - 0.5e1 / 0.64e2 * t48360 - 0.7e1 / 0.16e2 * t48363 - t48366 / 0.4e1 - 0.35e2 / 0.72e2 * t48369 + 0.7e1 / 0.48e2 * t48371 - t48373 / 0.48e2;
21382   t48376 = t48337 + t48375;
21383   t48379 = t28634 * t196;
21384   t48404 = 0.3e1 * t12986 * t194 * t3905 * t3911 * t707 + 0.3e1 * t194 * t2018 * t3897 * t3905 * t3911 + 0.2e1 * t1181 * t3905 * t3906 * t6390 + 0.24e2 * t1181 * t3905 * t48379 * t6347 - 0.18e2 * t13005 * t2061 * t3897 * t3905 - 0.12e2 * t13011 * t13014 * t48293 + 0.3e1 * t13012 * t14400 * t32189 + 0.18e2 * t13012 * t48287 * t48289 + t221 * t48376 * params->beta + 0.6e1 * t12989 * t2062 - 0.3e1 * t13045 * t3903;
21385   t48409 = t1159 * t6334 * t1162;
21386   t48411 = t12995 * t3851;
21387   t48416 = t3897 * t1891;
21388   t48438 = -t1185 * t1186 * t196 * t48376 - 0.6e1 * t13026 * t1892 * t3905 * t48416 + 0.3e1 * t194 * t3905 * t3911 * t48416 + 0.6e1 * t2079 * t3897 * t3905 * t3906 - t1188 * t48409 - 0.3e1 * t12996 * t3917 - 0.18e2 * t12998 * t13007 - 0.6e1 * t3900 * t6348 + 0.6e1 * t3900 * t6352 + 0.6e1 * t3908 * t48411 + 0.3e1 * t3914 * t48411;
21389   t48454 = t12987 * t187;
21390   t48468 = t1181 * t194 * t3905 * t3911 * t6252 + 0.6e1 * t12986 * t3905 * t3906 * t743 - 0.18e2 * t13005 * t2079 * t3905 * t3907 + t194 * t3905 * t3911 * t48254 + 0.12e2 * t12998 * t13019 + 0.6e1 * t12998 * t13023 + 0.6e1 * t12998 * t13034 + 0.3e1 * t12998 * t13039 + 0.3e1 * t12998 * t13042 - t3900 * t6391 - 0.3e1 * t48454 * t744;
21391   t48472 = t175 * (-0.6e1 * t13026 * t1892 * t3905 * t48254 + 0.6e1 * t3905 * t48253 * t48254 * t6263 - 0.6e1 * t13011 * t13012 * t48244 - 0.6e1 * t13011 * t13012 * t48249 - 0.6e1 * t13011 * t13012 * t48271 + 0.12e2 * t13011 * t14401 * t48266 - 0.6e1 * t14400 * t14401 * t32128 - 0.3e1 * t12989 * t2080 - 0.6e1 * t12998 * t13029 - 0.12e2 * t13015 * t48263 + t48404 + t48438 + t48468) * t748;
21392   t48474 = t13047 * t2093;
21393   t48478 = t1190 * t28769;
21394   t48488 = t13047 * t748;
21395   t48492 = 0.9e1 * t12937 * t1768 * t1881 + 0.18e2 * t12937 * t1868 * t2857 - 0.3e1 * t13051 * t2082 * t2849 + 0.3e1 * t1768 * t3874 * t6147 + 0.9e1 * t1768 * t48488 * t677 + 0.6e1 * t2090 * t2849 * t48237 - t2849 * t3923 * t6393 - 0.3e1 * t2849 * t48474 * t746 - 0.6e1 * t2849 * t48478 * t6114 + 0.6e1 * t169 * t47426 + t169 * t48472 + 0.18e2 * t1768 * t47371 - 0.9e1 * t1768 * t47386 - 0.9e1 * t1768 * t47475 - 0.18e2 * t1768 * t47847 + 0.6e1 * t2849 * t47489 + 0.18e2 * t2857 * t47381 - 0.18e2 * t2857 * t47818;
21396   t48493 = my_piecewise3(t296, t169 * (0.3e1 * t1716 * t265 * t3843 * t3852 * t3858 - 0.6e1 * t12899 * t1672 * t3852 * t47904 + 0.3e1 * t265 * t3852 * t3858 * t47895 + 0.6e1 * t3852 * t47903 * t47904 * t6822 + 0.3e1 * t12885 * t14261 * t33538 - 0.6e1 * t14261 * t14262 * t33479 + t289 * t48067 * params->beta + 0.6e1 * t12862 * t1737 + 0.12e2 * t12871 * t12892 - 0.12e2 * t12888 * t47900 + t48107 + t48150 + t48186) * t581 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t48192 * t580 + 0.3e1 * t169 * t48196 * t1761 - 0.3e1 / 0.2e1 * t169 * t12924 * t1757 - 0.3e1 * t169 * t48203 * t7080 + 0.3e1 * t14302 * t32349 - t169 * t3869 * t7072 / 0.2e1, t48492);
21397   t48502 = my_piecewise3(t359, 0, t48492);
21398   t48515 = 0.3e1 * t1214 * t3920 * t5856;
21399   t48518 = t66 * t6529 * t97 * t363;
21400   t48522 = t66 * t13091 * t857;
21401   t48529 = 0.3e1 * t3977 * t13049;
21402   t48531 = t1214 * t48472;
21403   t48533 = 0.18e2 * t3977 * t13125;
21404   t48539 = t6583 * t167 * t168;
21405   t48540 = t48539 * t1192;
21406   t48541 = t174 * t13047;
21407   t48544 = 0.9e1 * t1214 * t48541 * t3980;
21408   t48546 = 0.6e1 * t3977 * t13139;
21409   t48549 = 0.2e1 * t449 * t363 * t47584;
21410   t48551 = 0.9e1 * t3977 * t13131;
21411   t48553 = 0.6e1 * t6587 * t3812;
21412   t48555 = 0.12e2 * t7847 * t3812;
21413   t48556 = -0.6e1 * t1199 * t6409 - 0.6e1 * t1482 * t3934 + t48531 + t48533 + t48540 + t48544 + t48546 - t48549 + t48551 - t48553 - t48555;
21414   t48560 = -t47248 - t47250 + t47373 - t47375 - t47488 + t47491 - t47380 + t47383 - t47884 + t48529 - t48515 + t47239 + t47505 - t47358 + t47355 + t47835 - t47831 - t47833 - t47798 + t47507 + t47878 + t47827 - t47839 - t47841 - t47887 - t47889 + t47297 - t47244 + t47413 - t47377 + t47485 - t47849 - 0.6e1 * t449 * t13074 * t464 + t6442 * t3779 * t1138 / 0.2e1 + 0.2e1 * t3788 * t47300 - 0.5e1 * t12761 * t12773 + 0.2e1 * t12758 * t12782 - 0.3e1 * t1474 * t3934 - 0.5e1 / 0.2e1 * t12765 * t12754 - 0.5e1 / 0.2e1 * t3762 * t47311 - 0.5e1 / 0.2e1 * t3762 * t47315 + t1211 * t6407 + 0.3e1 * t3973 * t2101 + t13085 * t3785 / 0.2e1 + t3758 * t13093 / 0.2e1 + t3758 * t13097 - 0.5e1 * t3762 * t47364 - 0.5e1 * t3762 * t47368 + t47240 * t3791 - 0.6e1 * t1476 * t13223 - 0.5e1 / 0.2e1 * t47251 * t3765 - t6537 * t1199 - 0.5e1 * t47254 * t3765 - 0.5e1 * t47257 * t3765 - 0.5e1 * t13164 * t12768 - 0.5e1 * t13164 * t12773 + t1135 * t48518 / 0.6e1 + t1135 * t48522 / 0.2e1 - 0.10e2 * t12765 * t12794 - 0.10e2 * t3762 * t47495 - 0.10e2 * t3762 * t47500 - 0.5e1 / 0.6e1 * t3762 * t47319 - 0.5e1 / 0.2e1 * t13164 * t12754 + t47324 * t3791 + t1135 * t47881 + t48556 - t98 * (t48493 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t13062 * t413 + 0.3e1 / 0.2e1 * t3927 * t1454 + t1194 * t5868 / 0.2e1 + t48502 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t13068 * t436 + 0.3e1 / 0.2e1 * t3930 * t1463 + t1196 * t5879 / 0.2e1) + (t47551 + t47596 + t47626 + t47660 + t47701 + t47731 + t47760 + t47791) * t227;
21415   t48564 = 0.3e1 * t7550 * t1221;
21416   t48570 = 0.18e2 * t873 * t13382;
21417   t48572 = 0.36e2 * t873 * t13385;
21418   t48574 = 0.9e1 * t2363 * t4003;
21419   t48577 = 0.6e1 * t369 * t1208 * t5804;
21420   t48580 = 0.18e2 * t369 * t1481 * t3811;
21421   t48582 = 0.18e2 * t873 * t13388;
21422   t48584 = 0.9e1 * t873 * t13391;
21423   t48588 = 0.18e2 * t2363 * t4000;
21424   t48595 = 0.3e1 * t369 * t97 * t47584;
21425   t48596 = t370 * t48560 * params->d + 0.6e1 * t1219 * t7558 + 0.18e2 * t1219 * t7561 + 0.3e1 * t1219 * t7564 + 0.9e1 * t13368 * t875 + 0.18e2 * t2367 * t3994 + 0.9e1 * t2370 * t3994 + t47173 + t47178 + t47181 + t48564 + t48570 + t48572 + t48574 + t48577 + t48580 + t48582 + t48584 + t48588 + t48595;
21426   t48598 = t2358 * t1224;
21427   t48600 = t869 * t4006;
21428   t48610 = t3988 * t878;
21429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21430     v4rho3sigma[0] = t372 * t48560 * t7 + t1217 * t7567 + t1224 * t7544 + 0.3e1 * t13356 * t878 + 0.3e1 * t13394 * t870 + 0.3e1 * t2359 * t4006 + 0.3e1 * t2373 * t3989 + t48596 * t872 + 0.3e1 * t47165 + 0.3e1 * t47167 + 0.3e1 * t47169 + 0.3e1 * t48598 + 0.6e1 * t48600 + 0.6e1 * t48610;
21431 
21432   t48616 = t2358 * t1272;
21433   t48621 = t1264 * t2373;
21434   t48625 = t4131 * t878;
21435   t48629 = t368 * t13796;
21436   t48631 = t13757 * t372;
21437   t48636 = t869 * t4149;
21438   t48648 = 0.308e3 / 0.27e2 * t47566;
21439   t48656 = my_piecewise3(t95, 0, -t48648 - 0.22e2 / 0.3e1 * t47569 - 0.4e1 * t47572 + 0.2e1 * t47574 - 0.3e1 / 0.2e1 * t47576 + 0.3e1 / 0.2e1 * t47579 - t47581 / 0.4e1);
21440   t48675 = t13617 * t61;
21441   t48676 = t400 * t48675;
21442   t48687 = t1392 * t13418;
21443   t48688 = t48687 * t3791;
21444   t48690 = t13419 * t12768;
21445   t48694 = t13625 * t61;
21446   t48695 = t1397 * t48694;
21447   t48696 = t48695 * t3765;
21448   t48704 = t13638 * t61;
21449   t48705 = t400 * t48704;
21450   t48706 = t48705 * t3791;
21451   t48715 = 0.20e2 * t13402 * t12794 - 0.2e1 * t13412 * t12777 - 0.2e1 * t48676 * t3791 - t4009 * t13205 - t1227 * t47810 - t1227 * t47814 / 0.3e1 + 0.5e1 * t4013 * t47199 - 0.4e1 * t4026 * t47300 + 0.32e2 / 0.3e1 * t48688 - 0.80e2 / 0.3e1 * t48690 - 0.30e2 * t13415 * t47265 + 0.440e3 / 0.9e1 * t48696 - 0.3e1 * t1474 * t4090 - 0.4e1 * t13424 * t12782 + 0.5e1 / 0.3e1 * t4013 * t47319 + 0.32e2 / 0.3e1 * t48706 + 0.10e2 * t4013 * t47364 + 0.10e2 * t4013 * t47368 - t6537 * t1252 - 0.60e2 * t13415 * t47186;
21452   t48716 = t13419 * t12794;
21453   t48720 = t13453 * t12777;
21454   t48724 = t13453 * t12782;
21455   t48741 = t13453 * t12785;
21456   t48758 = -t1227 * t48522 - t1227 * t48518 / 0.3e1 + 0.32e2 / 0.3e1 * t48741 - 0.18e2 * t47378 * t13463 - 0.2e1 * t449 * t1252 * t5804 - 0.2e1 * t4026 * t47217 + 0.5e1 * t13409 * t12754 - 0.2e1 * t4009 * t13082 - t6442 * t4016 * t1138 - t13642 * t3785 - t13642 * t3795;
21457   t48761 = t4021 * t13093;
21458   t48763 = t13542 * t32289;
21459   t48768 = t4021 * t13205;
21460   t48775 = t4049 * t6275;
21461   t48778 = t4079 * t32297;
21462   t48793 = t26398 * t4012;
21463   t48796 = t6445 * t13418;
21464   t48797 = t48796 * t3765;
21465   t48807 = 0.1232e4 / 0.81e2 * t400 * t25 * t714 * t1138;
21466   t48809 = t6442 * t4020 * t1138;
21467   t48811 = -t1392 * t13617 * t1138 - t400 * t6463 * t57 * t1138 / 0.3e1 - t13618 * t3785 - t13618 * t3795 + 0.5e1 * t48793 * t3765 - 0.80e2 / 0.3e1 * t48797 - 0.2e1 * t13645 * t3785 - t4017 * t13093 - 0.2e1 * t4017 * t13097 + t48807 + 0.8e1 / 0.3e1 * t48809;
21468   t48814 = t1392 * t13638 * t1138;
21469   t48816 = t13592 * t3785;
21470   t48818 = t13592 * t3795;
21471   t48820 = t13639 * t3785;
21472   t48832 = t6453 * t13401;
21473   t48842 = t6445 * t13401;
21474   t48845 = t1397 * t48675;
21475   t48850 = t400 * t404 * t202 * t1138;
21476   t48852 = t13626 * t3785;
21477   t48854 = t13626 * t3795;
21478   t48856 = t4079 * t32262;
21479   t48867 = 0.5e1 * t4013 * t47311 + 0.10e2 * t13409 * t12773 + 0.10e2 * t48842 * t3765 + 0.5e1 * t48845 * t3765 - 0.88e2 / 0.9e1 * t48850 - 0.88e2 / 0.9e1 * t48852 - 0.88e2 / 0.9e1 * t48854 - 0.18e2 * t14821 * t48856 - 0.6e1 * t1476 * t13427 - 0.2e1 * t449 * t7532 * t1231 - 0.6e1 * t449 * t2331 * t4041;
21480   t48890 = t13419 * t12754;
21481   t48896 = t13419 * t12773;
21482   t48902 = t1392 * t13401;
21483   t48909 = t13538 * t7870;
21484   t48912 = t173 * t4075;
21485   t48916 = 0.18e2 * t3977 * t13605 - 0.2e1 * t4026 * t47291 - 0.3e1 * t1214 * t13535 * t3985 - 0.6e1 * t6409 * t1252 - 0.4e1 * t13424 * t12785 + 0.5e1 * t13402 * t12754 + 0.10e2 * t13409 * t12768 + 0.5e1 * t4013 * t47397 + 0.10e2 * t4013 * t47204 - 0.40e2 / 0.3e1 * t48890 - 0.2e1 / 0.3e1 * t4026 * t47283 - 0.30e2 * t13415 * t47269 - 0.80e2 / 0.3e1 * t48896 - 0.6e1 * t1476 * t13575 - 0.6e1 * t2448 * t13575 - 0.4e1 * t48902 * t3791 - 0.4e1 * t13412 * t12785 - 0.4e1 * t13412 * t12782 - 0.18e2 * t13345 * t48909 + 0.18e2 * t1214 * t48912 * t13106;
21486   t48929 = t6442 * t4012;
21487   t48934 = t174 * t13534;
21488   t48948 = t26602 * t4012;
21489   t48953 = t4021 * t13082;
21490   t48960 = t400 * t48694;
21491   t48961 = t48960 * t3791;
21492   t48964 = t6067 * t1243 * t748;
21493   t48967 = t13639 * t3795;
21494   t48969 = -0.3e1 * t447 * t13561 - 0.6e1 * t449 * t857 * t13435 + 0.9e1 * t13214 * t4125 - 0.30e2 * t48948 * t13161 - 0.12e2 * t1476 * t13612 + 0.16e2 / 0.3e1 * t48953 - 0.2e1 * t4017 * t13082 + 0.3e1 * t1214 * t4124 * t47478 - 0.176e3 / 0.9e1 * t48961 + 0.6e1 * t1214 * t48964 + 0.16e2 / 0.3e1 * t48967;
21495   t48974 = t400 * t1406 * t423 * t1138;
21496   t48976 = t13542 * t32275;
21497   t48990 = t4079 * t32306;
21498   t48993 = t13534 * t2093;
21499   t48999 = t4075 * t6117;
21500   t49005 = t13534 * t748;
21501   t49014 = t1243 * t28769;
21502   t49024 = t1237 * t6191;
21503   t49067 = t4058 * t1891;
21504   t49077 = t694 * t4058;
21505   t49095 = 0.3e1 * t13482 * t194 * t3905 * t3911 * t707 + 0.3e1 * t194 * t3905 * t3911 * t49067 + 0.6e1 * t2079 * t3905 * t3906 * t4058 - 0.12e2 * t13011 * t13014 * t49077 - 0.6e1 * t13011 * t13502 * t48244 - 0.6e1 * t13011 * t13502 * t48271 + 0.12e2 * t13011 * t15258 * t48266 + 0.3e1 * t13502 * t14400 * t32189 + 0.18e2 * t13502 * t48287 * t48289 - 0.6e1 * t12998 * t13516 + 0.6e1 * t13485 * t2062;
21506   t49114 = t48297 / 0.64e2 - t48299 / 0.256e3 - 0.119e3 / 0.288e3 * t48303 - 0.35e2 / 0.96e2 * t48305 + 0.7e1 / 0.96e2 * t48307 - 0.7e1 / 0.192e3 * t48311 - 0.119e3 / 0.1152e4 * t48315 - t48317 / 0.768e3 + 0.7e1 / 0.384e3 * t48319 - t48324 / 0.128e3 + t48326 / 0.128e3 - t48328 / 0.768e3 + 0.5e1 / 0.64e2 * t48330 + 0.7e1 / 0.384e3 * t48332 + 0.3e1 / 0.8e1 * t48335;
21507   t49115 = 0.595e3 / 0.2592e4 * t48338;
21508   t49122 = 0.455e3 / 0.648e3 * t48356;
21509   t49130 = -t49115 - t48340 / 0.32e2 + t48342 / 0.128e3 - 0.7e1 / 0.48e2 * t48346 + t48348 / 0.64e2 + t48350 / 0.64e2 - 0.5e1 / 0.64e2 * t48352 - t49122 - t48358 / 0.192e3 - 0.5e1 / 0.32e2 * t48360 - 0.7e1 / 0.8e1 * t48363 - t48366 / 0.2e1 - 0.35e2 / 0.36e2 * t48369 + 0.7e1 / 0.24e2 * t48371 - t48373 / 0.24e2;
21510   t49131 = t49114 + t49130;
21511   t49158 = -t1185 * t1186 * t196 * t49131 + 0.2e1 * t1237 * t3905 * t3906 * t6390 - 0.18e2 * t13005 * t2079 * t3905 * t4064 - 0.6e1 * t13026 * t1892 * t3905 * t49067 + t221 * t49131 * params->beta - 0.18e2 * t12998 * t13499 + 0.12e2 * t12998 * t13507 + 0.6e1 * t12998 * t13511 + 0.6e1 * t4061 * t6352 - t4061 * t6391 + 0.6e1 * t4065 * t48411;
21512   t49184 = t13483 * t187;
21513   t49187 = 0.24e2 * t1237 * t3905 * t48379 * t6347 - 0.18e2 * t13005 * t2061 * t3905 * t4058 + 0.6e1 * t13482 * t3905 * t3906 * t743 - t1241 * t48409 - 0.3e1 * t12996 * t4073 + 0.6e1 * t12998 * t13521 + 0.3e1 * t12998 * t13526 - 0.3e1 * t13485 * t2080 - 0.3e1 * t13532 * t3903 - 0.6e1 * t4061 * t6348 - 0.3e1 * t49184 * t744;
21514   t49191 = t175 * (t1237 * t194 * t3905 * t3911 * t6252 + 0.3e1 * t194 * t2018 * t3905 * t3911 * t4058 - 0.6e1 * t13026 * t1892 * t3905 * t49024 + t194 * t3905 * t3911 * t49024 + 0.6e1 * t3905 * t48253 * t49024 * t6263 - 0.6e1 * t13011 * t13502 * t48249 - 0.6e1 * t14400 * t15258 * t32128 + 0.3e1 * t12998 * t13529 - 0.12e2 * t13503 * t48263 + 0.3e1 * t4070 * t48411 + t49095 + t49158 + t49187) * t748;
21515   t49193 = 0.9e1 * t13459 * t1768 * t1881 + 0.18e2 * t13459 * t1868 * t2857 - 0.3e1 * t13538 * t2082 * t2849 + 0.3e1 * t1768 * t4049 * t6147 + 0.9e1 * t1768 * t49005 * t677 + 0.6e1 * t2090 * t2849 * t48999 - t2849 * t4079 * t6393 - 0.3e1 * t2849 * t48993 * t746 - 0.6e1 * t2849 * t49014 * t6114 + 0.6e1 * t169 * t48964 + t169 * t49191 - 0.9e1 * t1768 * t48778 - 0.18e2 * t1768 * t48909 + 0.18e2 * t1768 * t48976 - 0.9e1 * t1768 * t48990 + 0.6e1 * t2849 * t48763 + 0.18e2 * t2857 * t48775 - 0.18e2 * t2857 * t48856;
21516   t49194 = my_piecewise3(t296, 0, t49193);
21517   t49203 = my_piecewise3(t359, 0, t49193);
21518   t49228 = t6453 * t13662;
21519   t49234 = t1397 * t3944 * t423;
21520   t49235 = t49234 * t13248;
21521   t49244 = t3945 * t4102 * t13287;
21522   t49247 = t3945 * t4102 * t13256;
21523   t49251 = -0.20e2 * t13663 * t47531 + 0.30e2 * t15099 * t47515 - 0.10e2 * t13663 * t47536 + 0.60e2 * t49228 * t47511 - 0.10e2 * t13663 * t47540 + 0.160e3 / 0.3e1 * t49235 - 0.240e3 * t6453 * t1258 * t6454 + 0.120e3 * t1397 * t4117 * t1398 - 0.32e2 / 0.3e1 * t49244 - 0.16e2 / 0.3e1 * t49247 - 0.5e1 * t47735 * t4094;
21524   t49267 = t13260 * t13681;
21525   t49269 = t13263 * t13684;
21526   t49273 = t13266 * t13681;
21527   t49281 = -0.10e2 * t13266 * t13672 - 0.5e1 * t13266 * t13675 - 0.5e1 * t3939 * t1254 * t47669 - 0.5e1 * t3939 * t1254 * t47673 - 0.5e1 / 0.3e1 * t3939 * t1254 * t47677 + 0.30e2 * t47744 * t13678 + 0.80e2 / 0.3e1 * t49267 - 0.32e2 / 0.3e1 * t49269 + 0.30e2 * t47747 * t13678 + 0.80e2 / 0.3e1 * t49273 + 0.30e2 * t13251 * t1254 * t47753 - 0.24e2 * t400 * t13742 * t443;
21528   t49311 = -0.48e2 * t1392 * t13656 - 0.24e2 * t400 * t4117 * t1470 - 0.8e1 * t400 * t1258 * t6533 + 0.6e1 * t397 * t13736 + 0.2e1 * t14624 * t13700 + 0.2e1 * t13281 * t13700 + 0.2e1 * t3945 * t1254 * t47763 + 0.2e1 / 0.3e1 * t3945 * t1254 * t47697 - 0.5e1 * t47769 * t4094 - 0.10e2 * t47772 * t4094 - 0.10e2 * t13260 * t13672 - 0.5e1 * t13260 * t13675;
21529   t49337 = 0.2e1 * t47724 * t4097 + 0.4e1 * t47726 * t4097 + 0.4e1 * t13263 * t13697 + 0.2e1 * t13263 * t13700 + 0.2e1 * t81 * t5804 * t1231 + 0.6e1 * t81 * t1516 * t4041 + 0.12e2 * t397 * t13739 + 0.6e1 * t81 * t464 * t13435 + 0.6e1 * t397 * t13742 + t47545 * t1255 / 0.3e1 + t47548 * t1255 + t13311 * t4106;
21530   t49349 = t1202 * t4102 * t13336;
21531   t49351 = t13311 * t4103;
21532   t49353 = t13314 * t4103;
21533   t49355 = t3936 * t13716;
21534   t49357 = t13322 * t4103;
21535   t49359 = t47556 * t1255 + 0.2e1 * t13314 * t4106 + t3936 * t13719 + t47616 * t1255 / 0.3e1 + t13322 * t4106 + t3951 * t13719 - 0.8e1 / 0.3e1 * t49349 - 0.8e1 / 0.3e1 * t49351 - 0.16e2 / 0.3e1 * t49353 - 0.16e2 / 0.3e1 * t49355 - 0.8e1 / 0.3e1 * t49357;
21536   t49360 = t3951 * t13716;
21537   t49363 = t1202 * t13726 * t3958;
21538   t49365 = t13308 * t4103;
21539   t49367 = t3951 * t13727;
21540   t49372 = 0.1232e4 / 0.81e2 * t1202 * t714 * t61 * t1204;
21541   t49375 = t3936 * t13727;
21542   t49379 = t6445 * t13662;
21543   t49383 = t1397 * t13280 * t57;
21544   t49391 = -0.16e2 / 0.3e1 * t49360 + 0.88e2 / 0.9e1 * t49363 - 0.16e2 / 0.3e1 * t49365 + 0.88e2 / 0.9e1 * t49367 - t49372 + 0.2e1 * t47643 * t1255 + 0.88e2 / 0.9e1 * t49375 + 0.2e1 * t6441 * t1258 - 0.20e2 * t49379 * t13248 - 0.20e2 * t49383 * t13248 + 0.120e3 * t6445 * t13687 + 0.120e3 * t1397 * t4114 * t1398;
21545   t49422 = -0.48e2 * t1392 * t13692 - 0.24e2 * t400 * t13736 * t443 - 0.48e2 * t400 * t13739 * t443 + 0.2e1 * t81 * t96 * t48656 + 0.6e1 * t1391 * t4114 + 0.6e1 * t1391 * t4117 - 0.24e2 * t6442 * t4111 - 0.24e2 * t1392 * t13659 - 0.24e2 * t400 * t4114 * t1470 + t1202 * t1254 * t47639 / 0.3e1 + 0.2e1 * t47646 * t1255 + 0.2e1 * t13308 * t4106;
21546   t49424 = t3939 * t13726 * t3940;
21547   t49427 = t3945 * t13726 * t3946;
21548   t49430 = t3939 * t4102 * t13272;
21549   t49433 = t3939 * t4102 * t13276;
21550   t49443 = t13251 * t4102 * t13252;
21551   t49454 = t13281 * t13684;
21552   t49456 = -0.440e3 / 0.9e1 * t49424 + 0.176e3 / 0.9e1 * t49427 + 0.80e2 / 0.3e1 * t49430 + 0.40e2 / 0.3e1 * t49433 + 0.120e3 * t7757 * t1231 * t1470 * t443 - 0.70e2 * t47681 * t1254 * t47682 - 0.80e2 * t49443 - 0.10e2 * t47654 * t4094 + 0.2e1 * t47710 * t4097 + 0.4e1 * t13281 * t13697 + 0.2e1 * t3945 * t1254 * t47721 - 0.32e2 / 0.3e1 * t49454;
21553   t49461 = t1397 * t48704;
21554   t49462 = t49461 * t3765;
21555   t49474 = t1392 * t13625 * t1138;
21556   t49489 = t1261 * t6407 - t4009 * t13093 - 0.2e1 * t4009 * t13097 - 0.88e2 / 0.9e1 * t49474 - 0.2e1 * t13645 * t3795 - t4017 * t13205 - 0.6e1 * t1476 * t13436 + 0.3e1 * t3977 * t13536 - 0.6e1 * t6587 * t4042 - 0.2e1 * t26657 * t1232 - 0.6e1 * t2448 * t13436;
21557   t49493 = t4021 * t13097;
21558   t49497 = t26389 * t4012;
21559   t49500 = t6453 * t13418;
21560   t49501 = t49500 * t13161;
21561   t49539 = -0.6e1 * t1214 * t1244 * t47417 - 0.3e1 * t1214 * t4076 * t5856 - 0.2e1 * t363 * t449 * t48656 - 0.2e1 * t1227 * t47876 + 0.20e2 * t12794 * t13409 + 0.18e2 * t13345 * t48976 - 0.6e1 * t13427 * t2448 + 0.3e1 * t13746 * t751 + 0.10e2 * t4013 * t47223 - 0.12e2 * t4035 * t7847 - 0.6e1 * t4046 * t6587;
21562   t49543 = 0.80e2 * t49501 + t48969 + 0.16e2 / 0.3e1 * t48816 + 0.16e2 / 0.3e1 * t48818 + t49489 - 0.80e2 / 0.3e1 * t49462 + 0.8e1 / 0.3e1 * t48974 + 0.8e1 / 0.3e1 * t48768 + t48758 + 0.8e1 / 0.3e1 * t48761 + 0.16e2 / 0.3e1 * t48820 + 0.16e2 / 0.3e1 * t48720 + t49539 + t48916 + t48715 - 0.160e3 / 0.3e1 * t48716 + 0.32e2 / 0.3e1 * t48724 + 0.16e2 / 0.3e1 * t49493 + t48811 + 0.16e2 / 0.3e1 * t48814 + 0.3e1 * t4120 * t2101 + 0.70e2 * t49497 * t47329 + 0.18e2 * t3977 * t13749 - 0.6e1 * t6587 * t4035 + 0.3e1 * t13214 * t4077 + t1214 * t49191 - 0.2e1 * t1227 * t47881 - 0.3e1 * t3977 * t13636 + 0.10e2 * t13402 * t12768 - 0.2e1 * t4026 * t47274 - 0.2e1 * t13424 * t12777 - 0.30e2 * t13415 * t47406 + 0.6e1 * t3977 * t13585 - 0.2e1 * t4026 * t47209 + 0.20e2 * t4013 * t47500 + 0.18e2 * t14821 * t48775 - 0.9e1 * t13345 * t48778 + t48539 * t1245 - 0.3e1 * t13214 * t4129 + 0.6e1 * t14484 * t48763 - 0.12e2 * t1476 * t13580 - 0.6e1 * t1482 * t4090 + 0.20e2 * t4013 * t47495 - 0.30e2 * t48832 * t13161 - 0.6e1 * t3977 * t13595 - t26535 * t1226 * t1138 / 0.3e1 + 0.9e1 * t1214 * t13604 * t13130 + 0.9e1 * t1214 * t48934 * t3980 - 0.6e1 * t449 * t4090 * t1516 + 0.6e1 * t1214 * t4076 * t13138 - t1214 * t1244 * t27817 - 0.6e1 * t449 * t13561 * t464 - 0.9e1 * t13345 * t48990 + 0.5e1 * t4013 * t47315 - 0.6e1 * t8308 * t4042 - 0.12e2 * t2448 * t13612 - 0.6e1 * t33919 * t1232 - 0.2e1 * t29806 * t1232 - 0.6e1 * t8308 * t4035 - 0.2e1 * t48929 * t3791 - 0.6e1 * t34069 * t1232 - 0.12e2 * t7847 * t4042 + 0.9e1 * t3977 * t13448 - 0.2e1 * t4026 * t47214 + 0.10e2 * t13402 * t12773 + (t49251 + t49281 + t49311 + t49337 + t49359 + t49391 + t49422 + t49456) * t227 - t98 * (t49194 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t13549 * t413 + 0.3e1 / 0.2e1 * t4083 * t1454 + t1247 * t5868 / 0.2e1 + t49203 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t13555 * t436 + 0.3e1 / 0.2e1 * t4086 * t1463 + t1249 * t5879 / 0.2e1) + t48867;
21563   t49566 = 0.18e2 * t369 * t4114 * t1516 + 0.6e1 * t369 * t1258 * t5804 + 0.3e1 * t1267 * t7564 + 0.18e2 * t2363 * t4143 + 0.3e1 * t369 * t97 * t48656 + 0.18e2 * t369 * t1481 * t4041 + 0.18e2 * t1267 * t7561 + 0.18e2 * t4137 * t2367 + 0.9e1 * t2363 * t4146 + 0.9e1 * t873 * t13793 + params->d * t49543 * t370 + 0.9e1 * t13770 * t875 + 0.6e1 * t1267 * t7558 + 0.9e1 * t4137 * t2370 + 0.18e2 * t369 * t13742 * t464 + 0.18e2 * t369 * t4117 * t1516 + 0.3e1 * t7550 * t1269 + 0.18e2 * t873 * t13784 + 0.36e2 * t873 * t13787 + 0.18e2 * t873 * t13790;
21564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21565     v4rho3sigma[1] = t372 * t49543 * t7 + t1265 * t7567 + t1272 * t7544 + 0.3e1 * t13758 * t878 + 0.3e1 * t13796 * t870 + 0.3e1 * t2359 * t4149 + 0.3e1 * t2373 * t4132 + t49566 * t872 + 0.3e1 * t48616 + 0.3e1 * t48621 + 0.6e1 * t48625 + 0.3e1 * t48629 + 0.3e1 * t48631 + 0.6e1 * t48636;
21566 
21567   t49572 = t4257 * t878;
21568   t49574 = t869 * t4267;
21569   t49594 = t26389 * t4155;
21570   t49597 = t26398 * t4155;
21571   t49608 = t13823 * t61;
21572   t49609 = t400 * t49608;
21573   t49619 = t6445 * t13869;
21574   t49622 = -0.10e2 * t13882 * t12794 + 0.15e2 * t13892 * t47406 + 0.2e1 * t13870 * t12782 - 0.5e1 * t4156 * t47223 - 0.35e2 * t49594 * t47329 - 0.5e1 / 0.2e1 * t49597 * t3765 + 0.2e1 * t13811 * t12785 + 0.2e1 * t13876 * t12785 + 0.2e1 * t13870 * t12785 + 0.15e2 * t13892 * t47269 + t49609 * t3791 - t47244 - t47248 - t47250 - 0.5e1 * t13808 * t12768 + 0.2e1 * t13811 * t12782 - t47290 - 0.5e1 * t13882 * t12768 - 0.5e1 * t13882 * t12773 - 0.5e1 * t49619 * t3765;
21575   t49623 = t1397 * t49608;
21576   t49626 = t1392 * t13875;
21577   t49629 = t13850 * t61;
21578   t49630 = t400 * t49629;
21579   t49634 = t26602 * t4155;
21580   t49660 = -0.6e1 * t6587 * t4179 + t13811 * t12777 - 0.5e1 * t4156 * t47204 + 0.2e1 * t4173 * t47300 + t4173 * t47274 - 0.5e1 / 0.2e1 * t4156 * t47397 + t4173 * t47291 + t4173 * t47217 + t47373 + 0.3e1 * t13961 * t751 - t47375;
21581   t49672 = my_piecewise3(t296, 0, t48492);
21582   t49681 = t4206 * t14035;
21583   t49685 = t1294 * t3851 * t7461;
21584   t49706 = t844 * t2218;
21585   t49725 = t14020 * t3851;
21586   t49732 = t837 * t7378;
21587   t49733 = t1291 * t7343;
21588   t49753 = t4201 * t2218;
21589   t49758 = 0.3e1 * t14011 * t329 * t4209 * t4215 * t813 - 0.18e2 * t14030 * t2311 * t4209 * t4211 - 0.6e1 * t14051 * t2219 * t4209 * t49733 + 0.6e1 * t2311 * t4201 * t4209 * t4210 + 0.3e1 * t329 * t4209 * t4215 * t49753 + 0.6e1 * t4209 * t49732 * t49733 * t7382 - 0.6e1 * t15805 * t15806 * t29903 + 0.6e1 * t14014 * t2294 + 0.12e2 * t14023 * t14044 - 0.6e1 * t4204 * t7464 + 0.3e1 * t4218 * t49725;
21590   t49764 = t803 * t4201;
21591   t49786 = t4192 * t7416;
21592   t49788 = t4198 * t7370;
21593   t49790 = t4198 * t7402;
21594   t49796 = t262 * t7378 * sigma[2] * t805;
21595   t49801 = t4198 * t7329;
21596   t49804 = 0.5e1 / 0.1296e4 * t1283 * t7253;
21597   t49805 = t13994 * t7428;
21598   t49813 = t3054 * t13993;
21599   t49820 = t4192 * t7352;
21600   t49822 = t4192 * t7349;
21601   t49824 = t4187 * t7275;
21602   t49826 = -t4192 * t7326 / 0.768e3 - t49786 / 0.384e3 + t49788 / 0.576e3 + 0.5e1 / 0.1728e4 * t49790 + 0.5e1 / 0.1296e4 * t4198 * t7409 - t49796 * t7385 / 0.128e3 - t4192 * t7346 / 0.768e3 - t49801 / 0.1728e4 + t49804 - t49805 / 0.288e3 - t13994 * t7432 / 0.384e3 - t13994 * t7436 / 0.384e3 - 0.5e1 / 0.1152e4 * t13994 * t7441 + t49813 * t7446 / 0.192e3 + t13994 * t7420 / 0.192e3 - t13994 * t7424 / 0.384e3 - t49820 / 0.384e3 + t49822 / 0.1152e4 - t49824 / 0.432e3;
21603   t49827 = t4187 * t7278;
21604   t49829 = t4187 * t7281;
21605   t49835 = t4187 * t7267;
21606   t49843 = t4198 * t7340;
21607   t49845 = t13987 * t7356;
21608   t49852 = t1288 * t7374 / 0.2592e4;
21609   t49869 = t49827 / 0.288e3 + t49829 / 0.216e3 + t4187 * t7264 / 0.48e2 - t4187 * t7272 / 0.36e2 - t49835 / 0.144e3 + t13987 * t7367 / 0.128e3 + t4198 * t7333 / 0.192e3 - 0.5e1 / 0.576e3 * t4198 * t7337 - t49843 / 0.288e3 + t49845 / 0.192e3 + t4198 * t7413 / 0.1152e4 + t4187 * t7292 / 0.288e3 + t49852 - t4192 * t7361 / 0.256e3 - t4198 * t7395 / 0.192e3 + 0.7e1 / 0.648e3 * t4187 * t7288 - t15719 * t2169 * t7128 / 0.48e2 + t15719 * t7185 * t7119 / 0.72e2 + t13987 * t7390 / 0.128e3 + 0.5e1 / 0.1152e4 * t4198 * t7399;
21610   t49870 = t49826 + t49869;
21611   t49873 = t14012 * t187;
21612   t49876 = t29536 * t331;
21613   t49883 = -0.6e1 * t14036 * t14037 * t2251 * t329 * t844 - 0.6e1 * t14036 * t14037 * t2311 * t329 * t813 + 0.24e2 * t1291 * t4209 * t49876 * t7463 + 0.6e1 * t14011 * t4209 * t4210 * t844 - 0.12e2 * t14036 * t14039 * t49764 + t352 * t49870 * params->beta - 0.3e1 * t14014 * t2312 - 0.18e2 * t14023 * t14032 + 0.6e1 * t14023 * t14048 + 0.3e1 * t14023 * t14064 - 0.3e1 * t49873 * t845;
21614   t49915 = 0.3e1 * t2251 * t329 * t4201 * t4209 * t4215 - t1159 * t1162 * t1298 * t7450 - t1295 * t1296 * t331 * t49870 - 0.18e2 * t14030 * t2293 * t4201 * t4209 - 0.6e1 * t14051 * t2219 * t4209 * t49753 + t329 * t4209 * t4215 * t49733 - 0.3e1 * t14021 * t4221 + 0.3e1 * t14023 * t14067 + 0.6e1 * t4204 * t7468 - t4204 * t7507 + 0.6e1 * t4212 * t49725;
21615   t49921 = t14072 * t2320;
21616   t49925 = t4223 * t7519;
21617   t49932 = t1300 * t29662;
21618   t49942 = my_piecewise3(t359, t169 * (t1291 * t329 * t4209 * t4215 * t7323 + 0.18e2 * t14037 * t2293 * t329 * t49685 * t813 + 0.2e1 * t1291 * t4209 * t4210 * t7506 - 0.6e1 * t14036 * t14037 * t329 * t49706 + 0.12e2 * t14036 * t15806 * t2219 * t49706 + 0.3e1 * t14037 * t15805 * t30378 - 0.6e1 * t14023 * t14054 + 0.6e1 * t14023 * t14059 - 0.12e2 * t14040 * t49681 - 0.3e1 * t14070 * t4207 + t49758 + t49883 + t49915) * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t49921 * t847 + 0.3e1 * t169 * t49925 * t2318 - 0.3e1 / 0.2e1 * t169 * t14076 * t2314 - 0.3e1 * t169 * t49932 * t7517 + 0.3e1 * t15846 * t31222 - t169 * t4226 * t7509 / 0.2e1, t48492);
21619   t49957 = t1392 * t13869;
21620   t49960 = t13854 * t61;
21621   t49961 = t400 * t49960;
21622   t49971 = t44 * t5786;
21623   t49974 = t418 * t1436;
21624   t49979 = -0.10e2 / 0.27e2 * t49971 * t5787 + 0.10e2 / 0.3e1 * t13817 * t49974 + 0.5e1 / 0.3e1 * t4163 * t5795 + t47459;
21625   t49992 = 0.2e1 * t49957 * t3791 + 0.2e1 * t49961 * t3791 + t47392 + t1392 * t13823 * t1138 / 0.2e1 + t400 * t404 * t13822 * t1138 / 0.2e1 + t400 * t25 * t49979 * t1138 / 0.6e1 + t13824 * t3785 / 0.2e1 + t13824 * t3795 / 0.2e1 + t47394 + t400 * t6463 * t1275 * t1138 / 0.6e1 - t47404;
21626   t50000 = t6453 * t13875;
21627   t50027 = -0.3e1 * t447 * t14092 - t47477 + t4152 * t13093 / 0.2e1 + t4160 * t13093 / 0.2e1 + t4168 * t13093 / 0.2e1 + t1277 * t48518 / 0.6e1 + t1277 * t48522 / 0.2e1 + t1392 * t13850 * t1138 / 0.2e1 + t1392 * t13854 * t1138 + t13833 * t3785 + t13833 * t3795;
21628   t50038 = t6453 * t13869;
21629   t50053 = t4152 * t13205 / 0.2e1 + t4160 * t13205 / 0.2e1 + t1277 * t47814 / 0.6e1 + t47481 + t4160 * t13082 + 0.15e2 * t50038 * t13161 + 0.15e2 * t13892 * t47265 - t47488 + t47491 + t47505 + t47507 + t400 * t1406 * t4166 * t1138 / 0.2e1 + t13851 * t3785 / 0.2e1 + t13851 * t3795 / 0.2e1 + t4152 * t13082 - t47798 - t47804 + t1277 * t47881 - t47820 - t47822;
21630   t50061 = t6453 * t13929;
21631   t50066 = t6445 * t13929;
21632   t50070 = t1397 * t13280 * t1275;
21633   t50074 = t1397 * t3944 * t4166;
21634   t50087 = -t1309 * t3945 * t47721 - t1309 * t3945 * t47763 + 0.10e2 * t13248 * t50066 + 0.10e2 * t13248 * t50070 + 0.10e2 * t13248 * t50074 + 0.10e2 * t13930 * t47531 + 0.5e1 * t13930 * t47536 + 0.5e1 * t13930 * t47540 - 0.15e2 * t15516 * t47515 - 0.30e2 * t47511 * t50061 + t47544;
21635   t50114 = -0.2e1 * t13263 * t13915 - 0.2e1 * t13263 * t13918 - t13263 * t13921 + 0.5e1 * t47772 * t4239 + 0.5e1 / 0.2e1 * t47735 * t4239 + 0.5e1 * t13266 * t13904 + 0.5e1 * t13266 * t13907 + 0.5e1 / 0.2e1 * t13266 * t13910 + 0.5e1 * t13260 * t13904 + 0.5e1 / 0.2e1 * t3939 * t13942 * t3940 + 0.5e1 * t3939 * t4247 * t13272 + 0.5e1 / 0.2e1 * t3939 * t4247 * t13276;
21636   t50128 = t47565 + t47587 + t47589 + t47591 + t47593 - t47595 - t47600 - t47643 * t1310 - t1202 * t49979 * t61 * t1204 / 0.6e1 - t1202 * t13942 * t3958 / 0.2e1 - t3936 * t13946 - t1202 * t4247 * t13336 / 0.2e1;
21637   t50151 = -t3936 * t13949 / 0.2e1 - t1202 * t1309 * t47639 / 0.6e1 - t47545 * t1310 / 0.6e1 - t47548 * t1310 / 0.2e1 - t13311 * t4248 / 0.2e1 - t13311 * t4251 / 0.2e1 - t47646 * t1310 - t13308 * t4248 - t13308 * t4251 - t47556 * t1310 / 0.2e1 - t47616 * t1310 / 0.6e1 - t13322 * t4248 / 0.2e1;
21638   t50171 = t47602 + t47605 + t47608 - t47611 - 0.15e2 * t47747 * t13926 - 0.15e2 * t13251 * t4247 * t13252 + 0.5e1 * t13260 * t13907 + 0.5e1 / 0.2e1 * t3939 * t1309 * t47669 + 0.5e1 / 0.2e1 * t3939 * t1309 * t47673 + 0.5e1 / 0.2e1 * t13260 * t13910 + 0.5e1 / 0.2e1 * t47769 * t4239;
21639   t50183 = -t13322 * t4251 / 0.2e1 - t13314 * t4248 - t3951 * t13943 / 0.2e1 - t3951 * t13946 - t13314 * t4251 - t3951 * t13949 / 0.2e1 - t3936 * t13943 / 0.2e1 + t47653 - t47688 - t47691 - t47694 - t47696;
21640   t50203 = -0.15e2 * t1309 * t13251 * t47753 + 0.35e2 * t1309 * t47681 * t47682 - t13942 * t3945 * t3946 - 0.2e1 * t13281 * t13915 - 0.2e1 * t13281 * t13918 - t13281 * t13921 + 0.5e1 * t4239 * t47654 - t4242 * t47724 - 0.2e1 * t4242 * t47726 - t47704 - t47706 - t47708;
21641   t50219 = -0.2e1 * t3945 * t4247 * t13287 - t3945 * t4247 * t13256 - t3945 * t1309 * t47697 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t1309 * t47677 - t14624 * t13921 - t47710 * t4242 - 0.15e2 * t47744 * t13926 - t47768 + t47782 + t47785 + t47788 + t47790;
21642   t50239 = -t47841 + t13836 * t3785 + t13855 * t3785 - 0.10e2 * t13808 * t12794 - 0.5e1 / 0.2e1 * t13882 * t12754 - 0.5e1 / 0.2e1 * t4156 * t47311 - 0.5e1 / 0.2e1 * t4156 * t47315 + t13870 * t12777 - t47849 + 0.3e1 * t4254 * t2101 + t1313 * t6407;
21643   t50264 = -0.6e1 * t6409 * t1307 - t6537 * t1307 + t13889 * t3795 / 0.2e1 + t13889 * t3785 / 0.2e1 + t48529 + t48531 + t48533 - 0.5e1 / 0.2e1 * t13808 * t12754 - 0.5e1 / 0.2e1 * t13879 * t12754 - 0.5e1 / 0.6e1 * t4156 * t47319 + t13876 * t12777;
21644   t50266 = t6445 * t13875;
21645   t50269 = t1397 * t49629;
21646   t50272 = t1397 * t49960;
21647   t50280 = t6442 * t4155;
21648   t50297 = t48544 + t48546 + t13836 * t3795 + t13855 * t3795 + t4168 * t13205 / 0.2e1 - t48549 + t48551 - 0.5e1 * t4156 * t47364 - 0.10e2 * t13879 * t12794 - t48553 - t48555;
21649   t50301 = t48540 + t50027 - t47380 + t47383 + t47853 - t47884 + t50053 - t48515 - t47358 + t49992 - t47474 + t47835 - t47831 - t47833 + t49660 - t47388 + t50239 - t47826 - t47839 - t47887 - t47889 + t50297 - t47422 - t47377 + t49622 + t47428 - 0.6e1 * t1476 * t13814 + (t50087 + t50114 + t50128 + t50151 + t50171 + t50183 + t50203 + t50219) * t227 - t98 * (t49672 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t13969 * t413 + 0.3e1 / 0.2e1 * t4182 * t1454 + t1280 * t5868 / 0.2e1 + t49942 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t14086 * t436 + 0.3e1 / 0.2e1 * t4231 * t1463 + t1304 * t5879 / 0.2e1) + t26535 * t1276 * t1138 / 0.6e1 - 0.6e1 * t449 * t4235 * t1516 - 0.2e1 * t449 * t1307 * t5804 - 0.6e1 * t449 * t14092 * t464 + t6442 * t4159 * t1138 / 0.2e1 + t6442 * t4167 * t1138 / 0.2e1 - 0.3e1 * t1474 * t4235 + t4152 * t13097 + t4160 * t13097 + t4168 * t13097 + t1277 * t47810 / 0.2e1 - 0.6e1 * t2448 * t13814 - 0.5e1 / 0.2e1 * t49623 * t3765 + 0.2e1 * t49626 * t3791 + t49630 * t3791 + 0.2e1 * t13876 * t12782 + 0.15e2 * t49634 * t13161 + t1277 * t47876 - 0.12e2 * t1476 * t13862 - 0.5e1 * t4156 * t47368 + 0.30e2 * t13892 * t47186 - 0.5e1 * t13808 * t12773 - 0.5e1 / 0.2e1 * t4156 * t47199 + t4173 * t47283 / 0.3e1 + 0.15e2 * t50000 * t13161 - t47420 + t50264 - 0.5e1 * t50266 * t3765 - 0.5e1 / 0.2e1 * t50269 * t3765 - 0.10e2 * t4156 * t47495 + t4173 * t47209 + t4168 * t13082 - 0.10e2 * t4156 * t47500 - 0.6e1 * t1482 * t4235 - 0.5e1 * t50272 * t3765 - 0.5e1 * t13879 * t12768 - 0.5e1 * t13879 * t12773 + t4173 * t47214 + t50280 * t3791;
21650   t50306 = t370 * t50301 * params->d + 0.6e1 * t1318 * t7558 + 0.18e2 * t1318 * t7561 + 0.3e1 * t1318 * t7564 + 0.9e1 * t14109 * t875 + 0.18e2 * t2367 * t4263 + 0.9e1 * t2370 * t4263 + t47173 + t47178 + t47181 + t48564 + t48570 + t48572 + t48574 + t48577 + t48580 + t48582 + t48584 + t48588 + t48595;
21651   t50311 = t2358 * t1320;
21652   t50313 = t14096 * t372;
21653   t50315 = t1315 * t2373;
21654   t50317 = t368 * t14117;
21655   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21656     v4rho3sigma[2] = t372 * t50301 * t7 + t1316 * t7567 + t1320 * t7544 + 0.3e1 * t14097 * t878 + 0.3e1 * t14117 * t870 + 0.3e1 * t2359 * t4267 + 0.3e1 * t2373 * t4258 + t50306 * t872 + 0.6e1 * t49572 + 0.6e1 * t49574 + 0.3e1 * t50311 + 0.3e1 * t50313 + 0.3e1 * t50315 + 0.3e1 * t50317;
21657 
21658   t50329 = 0.2e1 * t3126 * t1224;
21659   t50339 = 0.12e2 * t3132 * t4000;
21660   t50341 = 0.12e2 * t873 * t14911;
21661   t50344 = 0.6e1 * t369 * t1481 * t4311;
21662   t50345 = 0.22e2 / 0.9e1 * t47569;
21663   t50348 = t47568 * t923;
21664   t50350 = t47571 * t14133;
21665   t50351 = 0.4e1 / 0.3e1 * t50350;
21666   t50352 = t13146 * t2473;
21667   t50353 = 0.2e1 / 0.3e1 * t50352;
21668   t50354 = t923 * t1494;
21669   t50355 = t47575 * t50354;
21670   t50357 = t2473 * t459;
21671   t50358 = t13149 * t50357;
21672   t50360 = t923 * t1511;
21673   t50361 = t13149 * t50360;
21674   t50363 = t3807 * t7835;
21675   t50365 = -t47567 - t50345 - 0.2e1 / 0.3e1 * t47572 + t47574 / 0.3e1 - 0.11e2 / 0.9e1 * t50348 - t50351 + t50353 - 0.3e1 / 0.4e1 * t50355 + t50358 / 0.2e1 + t50361 / 0.4e1 - t50363 / 0.8e1;
21676   t50366 = my_piecewise3(t95, 0, t50365);
21677   t50369 = 0.3e1 * t369 * t97 * t50366;
21678   t50371 = 0.3e1 * t1125 * t13391;
21679   t50373 = 0.6e1 * t2363 * t4451;
21680   t50375 = 0.6e1 * t1125 * t13382;
21681   t50380 = 0.6e1 * t369 * t13299 * t928;
21682   t50383 = 0.12e2 * t369 * t13302 * t928;
21683   t50386 = 0.12e2 * t369 * t3967 * t2478;
21684   t50388 = 0.6e1 * t873 * t14914;
21685   t50390 = 0.12e2 * t873 * t14906;
21686   t50392 = 0.6e1 * t1125 * t13388;
21687   t50393 = 0.6e1 * t1219 * t9631 + 0.6e1 * t14882 * t875 + 0.6e1 * t2367 * t4445 + 0.3e1 * t2370 * t4445 + t50339 + t50341 + t50344 + t50369 + t50371 + t50373 + t50375 + t50380 + t50383 + t50386 + t50388 + t50390 + t50392;
21688   t50397 = 0.12e2 * t873 * t14903;
21689   t50399 = 0.12e2 * t1125 * t13385;
21690   t50406 = 0.6e1 * t369 * t1208 * t7840;
21691   t50409 = 0.6e1 * t369 * t13292 * t928;
21692   t50412 = 0.12e2 * t369 * t3970 * t2478;
21693   t50423 = t3946 * t14477;
21694   t50434 = t3958 * t14854;
21695   t50438 = t1204 * t12771 * t2436;
21696   t50441 = 0.2e1 / 0.3e1 * t14848 * t12785 + t47240 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t13167 * t14710 + 0.2e1 / 0.3e1 * t12758 * t14710 - 0.10e2 / 0.3e1 * t3762 * t50423 - 0.5e1 / 0.6e1 * t14851 * t12754 - 0.5e1 / 0.3e1 * t13164 * t14855 - 0.5e1 / 0.3e1 * t12761 * t14855 - 0.5e1 / 0.3e1 * t12765 * t14855 - 0.5e1 / 0.3e1 * t3762 * t50434 - 0.5e1 / 0.3e1 * t3762 * t50438;
21697   t50442 = t4412 * t12772;
21698   t50445 = t4412 * t12781;
21699   t50450 = t6453 * t14847;
21700   t50460 = t1204 * t47197 * t912;
21701   t50469 = -0.5e1 / 0.3e1 * t3762 * t50442 + 0.2e1 / 0.3e1 * t3788 * t50445 - 0.5e1 / 0.3e1 * t12765 * t14841 + 0.5e1 * t50450 * t13161 - 0.5e1 / 0.3e1 * t13164 * t14164 - 0.5e1 / 0.3e1 * t12761 * t14164 - 0.5e1 / 0.3e1 * t12765 * t14164 - 0.5e1 / 0.6e1 * t3762 * t50460 + t14152 * t12777 / 0.3e1 - 0.5e1 / 0.3e1 * t12761 * t14715 + 0.2e1 / 0.3e1 * t12758 * t14720;
21702   t50473 = t6445 * t14847;
21703   t50476 = t1392 * t14847;
21704   t50479 = t7763 * t3761;
21705   t50482 = t2378 * t12757;
21706   t50485 = t2378 * t12764;
21707   t50499 = 0.2e1 / 0.3e1 * t14156 * t12785 - 0.5e1 / 0.3e1 * t50473 * t3765 + 0.2e1 / 0.3e1 * t50476 * t3791 + 0.2e1 / 0.3e1 * t50479 * t3791 + 0.2e1 / 0.3e1 * t50482 * t3791 + 0.2e1 / 0.3e1 * t50485 * t3791 + 0.2e1 / 0.3e1 * t14152 * t12785 + 0.2e1 / 0.3e1 * t14152 * t12782 - 0.4e1 * t449 * t14468 * t464 - 0.4e1 * t7847 * t4316 - 0.2e1 * t8308 * t4316;
21708   t50511 = t1204 * t1517 * t928;
21709   t50515 = t1204 * t1485 * t928;
21710   t50520 = t14782 * t61;
21711   t50521 = t1397 * t50520;
21712   t50526 = 0.2e1 * t449 * t9601 * t1143;
21713   t50529 = -0.4e1 * t2448 * t14749 - 0.5e1 / 0.3e1 * t13164 * t14841 + 0.2e1 / 0.3e1 * t13167 * t14844 + 0.2e1 / 0.3e1 * t13167 * t14729 + 0.2e1 / 0.3e1 * t12758 * t14729 + t3788 * t50511 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t50515 + t4284 * t13082 / 0.3e1 - 0.5e1 / 0.3e1 * t50521 * t3765 - t50526 + t3780 * t14803 / 0.3e1;
21714   t50539 = t1214 * t1191 * t31387;
21715   t50541 = t14703 * t14704 * t1398;
21716   t50544 = t363 * t2436;
21717   t50546 = t12791 * t50544 * t464;
21718   t50550 = t12791 * t14704 * t1516;
21719   t50561 = t3780 * t14807 / 0.3e1 + t4269 * t13093 / 0.6e1 + t4269 * t13205 / 0.6e1 - t50539 - 0.35e2 * t47327 * t50541 - 0.10e2 / 0.3e1 * t3762 * t50546 - 0.5e1 / 0.3e1 * t3762 * t50550 - 0.10e2 / 0.3e1 * t14736 * t12794 - 0.5e1 / 0.6e1 * t47236 * t4273 - 0.5e1 / 0.3e1 * t47858 * t4273 + t14824 * t3795 / 0.3e1;
21720   t50577 = t1204 * t47272 * t928;
21721   t50586 = t4277 * t13205 / 0.6e1 + t14686 * t3785 / 0.3e1 + t14686 * t3795 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t14844 + t14848 * t12777 / 0.3e1 + 0.2e1 / 0.3e1 * t13167 * t14733 + 0.2e1 / 0.3e1 * t12758 * t14733 + t3788 * t50577 / 0.3e1 - 0.5e1 / 0.6e1 * t14858 * t12754 - 0.5e1 / 0.3e1 * t14858 * t12773 + 0.2e1 / 0.3e1 * t14156 * t12782;
21722   t50592 = t12791 * t1110 * t443 * t464;
21723   t50596 = t14703 * t50544 * t443;
21724   t50600 = t14703 * t14704 * t1470;
21725   t50603 = t14793 * t61;
21726   t50604 = t400 * t50603;
21727   t50608 = t1204 * t3789 * t7840;
21728   t50611 = t14790 * t61;
21729   t50612 = t1397 * t50611;
21730   t50615 = t400 * t50611;
21731   t50619 = 0.3e1 * t4431 * t13131;
21732   t50624 = -0.5e1 / 0.3e1 * t14851 * t12768 - 0.10e2 / 0.3e1 * t3762 * t50592 + 0.10e2 * t13159 * t50596 + 0.5e1 * t13159 * t50600 + 0.2e1 / 0.3e1 * t50604 * t3791 + t3788 * t50608 / 0.3e1 - 0.5e1 / 0.3e1 * t50612 * t3765 + 0.2e1 / 0.3e1 * t50615 * t3791 + t50619 + t13216 * t4289 / 0.3e1 + t3758 * t14803 / 0.3e1;
21733   t50629 = t66 * t908 * t1481 * t363;
21734   t50639 = t12791 * t929 * t1398;
21735   t50644 = t4412 * t96;
21736   t50645 = t50644 * t12793;
21737   t50650 = t6453 * t25;
21738   t50651 = t1203 * t65;
21739   t50652 = t50650 * t50651;
21740   t50654 = t73 * t96 * t363;
21741   t50655 = t50654 * t7758;
21742   t50660 = 0.2e1 * t449 * t1110 * t13155;
21743   t50661 = t3758 * t14807 / 0.3e1 + t1135 * t50629 / 0.3e1 + t4284 * t13093 / 0.6e1 + t4284 * t13097 / 0.3e1 - 0.10e2 / 0.3e1 * t14851 * t12794 + 0.10e2 * t13159 * t50639 + t13196 * t4289 / 0.6e1 - 0.10e2 / 0.3e1 * t3762 * t50645 - 0.5e1 / 0.6e1 * t14736 * t12754 + 0.20e2 * t50652 * t50655 - t50660;
21744   t50679 = 0.3e1 * t1214 * t48541 * t4433;
21745   t50680 = t1868 * t1190;
21746   t50683 = 0.6e1 * t1214 * t50680 * t4433;
21747   t50691 = t9882 * t677;
21748   t50694 = 0.12e2 * t14821 * t3923 * t50691;
21749   t50695 = t13196 * t4297 / 0.6e1 + t3780 * t14775 / 0.3e1 + t3780 * t14778 / 0.3e1 + t1392 * t14793 * t1138 / 0.3e1 + t6442 * t4276 * t1138 / 0.6e1 + t50679 + t50683 + t2378 * t13195 * t1138 / 0.6e1 + t14692 * t3785 / 0.3e1 + t14692 * t3795 / 0.3e1 - t50694;
21750   t50702 = t6445 * t14155;
21751   t50705 = t1392 * t14155;
21752   t50708 = t400 * t50520;
21753   t50715 = t34313 * t3761;
21754   t50720 = t13336 * t4272;
21755   t50723 = -0.5e1 / 0.6e1 * t47277 * t4273 - 0.5e1 / 0.3e1 * t13164 * t14715 + 0.2e1 / 0.3e1 * t13167 * t14720 - 0.5e1 / 0.3e1 * t50702 * t3765 + 0.2e1 / 0.3e1 * t50705 * t3791 + 0.2e1 / 0.3e1 * t50708 * t3791 + t47324 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t47189 * t4293 + 0.5e1 * t50715 * t13161 - 0.5e1 / 0.3e1 * t12765 * t14159 - 0.5e1 / 0.6e1 * t3762 * t50720;
21756   t50725 = t3958 * t14163;
21757   t50729 = 0.2e1 * t6587 * t4312;
21758   t50731 = t66 * t4287 * t2331;
21759   t50748 = t12791 * t929 * t1470;
21760   t50752 = 0.4e1 * t1476 * t14830;
21761   t50753 = -0.5e1 / 0.3e1 * t3762 * t50725 - t50729 + t1135 * t50731 / 0.6e1 + t13115 * t4297 / 0.3e1 + t3769 * t14775 / 0.3e1 + t3769 * t14778 / 0.3e1 - 0.4e1 * t2448 * t14683 - 0.4e1 * t1476 * t14749 - 0.2e1 * t449 * t13074 * t928 - 0.5e1 / 0.3e1 * t3762 * t50748 - t50752;
21762   t50755 = t1204 * t14718 * t1516;
21763   t50765 = t857 * t912;
21764   t50767 = t12791 * t50765 * t464;
21765   t50770 = t1033 * t1881;
21766   t50771 = t3923 * t50770;
21767   t50773 = 0.3e1 * t13345 * t50771;
21768   t50775 = 0.6e1 * t3977 * t14495;
21769   t50784 = t3788 * t50755 / 0.3e1 + 0.2e1 / 0.3e1 * t47192 * t4293 - 0.10e2 / 0.3e1 * t14858 * t12794 - 0.2e1 * t449 * t4391 * t1516 - 0.10e2 / 0.3e1 * t3762 * t50767 - t50773 + t50775 + t13088 * t4297 / 0.3e1 + t13216 * t4297 / 0.3e1 + t3758 * t14775 / 0.3e1 + t3758 * t14778 / 0.3e1;
21770   t50788 = t7845 * t167 * t168;
21771   t50789 = t50788 * t1192;
21772   t50790 = t14437 * t746;
21773   t50793 = 0.12e2 * t13345 * t13055 * t50790;
21774   t50807 = t4329 * t12883;
21775   t50814 = t3848 * t14260;
21776   t50821 = t6817 * t1156;
21777   t50844 = t979 * t1620;
21778   t50849 = t4325 * t1620;
21779   t50860 = -0.2e1 * t12862 * t2679 + 0.4e1 * t12871 * t14248 + t14261 * t12885 * t33503 * t265 - 0.4e1 * t50807 * t12888 - 0.4e1 * t12884 * t12885 * t2613 * t577 + 0.2e1 * t50814 * t14276 - 0.2e1 * t14261 * t14262 * t8623 * t1716 + 0.6e1 * t14261 * t50821 * t33253 * t1620 - 0.6e1 * t14261 * t14262 * t8623 * t1620 - t14221 * t1755 + t14230 * t12912 - 0.4e1 * t12884 * t12885 * t962 * t12887 - 0.4e1 * t47900 * t14243 + 0.2e1 * t14261 * t12885 * t40044 + 0.2e1 * t14261 * t48114 * t14275 - 0.2e1 * t12884 * t12885 * t50844 * t265 - 0.2e1 * t3852 * t12899 * t50849 * t1672 - 0.6e1 * t3852 * t12878 * t4325 * t1736 - 0.4e1 * t50814 * t14264;
21780   t50867 = t14227 * t3851;
21781   t50886 = t12851 * t2563 / 0.162e3;
21782   t50895 = t183 * t117;
21783   t50896 = t1147 * t50895;
21784   t50898 = t50896 * t14184 / 0.216e3;
21785   t50900 = t50896 * t14181 / 0.324e3;
21786   t50901 = t47921 / 0.864e3 - t47928 / 0.162e3 - t47930 / 0.648e3 + 0.11e2 / 0.324e3 * t47925 * t954 - t50886 + t47991 * t2591 / 0.108e3 - t3830 * t8728 / 0.768e3 + 0.19e2 / 0.648e3 * t47966 * t969 - t12832 * t2647 / 0.54e2 - t50898 + t50900;
21787   t50908 = t1147 * t37737;
21788   t50921 = t3819 * t14179;
21789   t50929 = t3830 * t8657;
21790   t50931 = t3840 * t8652;
21791   t50933 = t14180 * t6680 * t8419 / 0.216e3 + 0.7e1 / 0.648e3 * t14180 * t27069 * t8424 + t50908 * t6680 * t8397 / 0.54e2 - t14180 * t1582 * t8401 / 0.144e3 - t50908 * t1582 * t8406 / 0.36e2 + t14180 * t1582 * t8392 / 0.48e2 + t50921 * t14184 / 0.27e2 - 0.2e1 / 0.81e2 * t50921 * t14181 - t14180 * t6680 * t8411 / 0.36e2 + t50929 / 0.3456e4 - 0.5e1 / 0.1728e4 * t50931;
21792   t50940 = t12832 * t2631 / 0.162e3;
21793   t50941 = t3825 * t8535;
21794   t50945 = t3825 * t8528;
21795   t50955 = -0.19e2 / 0.432e3 * t47943 * t965 + 0.5e1 / 0.864e3 * t3840 * t8787 - t50940 - t50941 / 0.1296e4 - t12851 * t2575 / 0.27e2 - 0.7e1 / 0.432e3 * t50945 - t47948 / 0.432e3 + t47955 / 0.648e3 + t3840 * t8750 / 0.192e3 + t12813 * t8602 / 0.576e3 - t12813 * t8591 / 0.1152e4;
21796   t50973 = t48046 * t8606 / 0.576e3 - t12813 * t8617 / 0.1152e4 - t12813 * t8736 / 0.288e3 - t47959 / 0.1152e4 + t12813 * t8632 / 0.288e3 + t47963 / 0.108e3 - t47969 / 0.162e3 + t47971 / 0.1728e4 - t47975 / 0.1152e4 + t48046 * t8627 / 0.288e3 - t48007 * t8800 / 0.128e3;
21797   t50992 = t12813 * t8598 / 0.864e3;
21798   t50994 = t12813 * t8579 / 0.864e3;
21799   t50998 = t12808 * t8791 / 0.128e3 + t1153 * t8574 / 0.576e3 + t12808 * t8771 / 0.192e3 - t47981 / 0.864e3 - t12813 * t8583 / 0.576e3 - t12813 * t8587 / 0.1152e4 - 0.5e1 / 0.3456e4 * t12813 * t8539 + t47991 * t2626 / 0.108e3 - t50992 - t50994 + t3825 * t1576 * t521 / 0.144e3;
21800   t51003 = t3830 * t8847 / 0.576e3;
21801   t51005 = t12808 * t8807 / 0.288e3;
21802   t51015 = t12821 * t2587 / 0.108e3;
21803   t51016 = t3840 * t8646;
21804   t51018 = 0.5e1 / 0.5184e4 * t47998 - t48000 / 0.2592e4 + t48014 / 0.576e3 - t51003 + t51005 - t12813 * t8643 / 0.576e3 - 0.5e1 / 0.1728e4 * t12813 * t8636 + 0.5e1 / 0.1296e4 * t3840 * t8783 + t12821 * t2619 / 0.72e2 + t51015 - t51016 / 0.5184e4;
21805   t51023 = t3830 * t8611 / 0.576e3;
21806   t51027 = 0.5e1 / 0.2592e4 * t3840 * t8569;
21807   t51035 = t12821 * t2615 / 0.72e2 - t51023 - t3830 * t8558 / 0.384e3 + t51027 + t12832 * t2642 / 0.54e2 - 0.5e1 / 0.324e3 * t12832 * t2637 + 0.11e2 / 0.324e3 * t48020 + t48022 / 0.81e2 + t48025 + t48026 / 0.324e3 + t48030;
21808   t51038 = t3840 * t8566 / 0.432e3;
21809   t51057 = 0.19e2 / 0.648e3 * t48035 - t51038 - t3830 * t8562 / 0.768e3 - t3840 * t8760 / 0.576e3 - t48011 * t2582 / 0.36e2 + t12808 * t8553 / 0.384e3 - t3830 * t8795 / 0.768e3 - t3840 * t8767 / 0.144e3 + t48053 / 0.1728e4 - t48059 / 0.864e3 + 0.5e1 / 0.3456e4 * t3840 * t8778 - 0.5e1 / 0.576e3 * t3840 * t8755;
21810   t51060 = t50901 + t50933 + t50955 + t50973 + t50998 + t51018 + t51035 + t51057;
21811   t51063 = t527 * t4325;
21812   t51099 = 0.8e1 * t12884 * t14262 * t962 * t1672 * t577 * t539 + 0.2e1 * t50867 * t3861 + t14230 * t12915 - 0.4e1 * t14261 * t14262 * t40048 - 0.2e1 * t12884 * t12885 * t963 * t1754 - 0.4e1 * t47900 * t14257 + params->beta * t51060 * t289 - 0.4e1 * t12884 * t51063 * t12887 + 0.2e1 * t12871 * t14285 + t3852 * t3858 * t50849 * t265 + 0.2e1 * t14230 * t12896 - 0.2e1 * t3849 * t14288 + 0.2e1 * t12871 * t14269 + 0.4e1 * t12884 * t14262 * t50844 * t1672 - 0.4e1 * t12884 * t48114 * t14256 - t1159 * t8865 * t1162 * t1167 - 0.6e1 * t3846 * t8880 - 0.2e1 * t14228 * t3864 + 0.2e1 * t3852 * t3858 * t3843 * t2612 * t265 + 0.4e1 * t12871 * t14252;
21813   t51125 = t1668 * t3843;
21814   t51137 = t14219 * t187;
21815   t51162 = 0.2e1 * t3852 * t3858 * t14218 * t539 * t265 + 0.24e2 * t3852 * t48174 * t4332 * t1736 + t3852 * t3858 * t1156 * t8725 * t265 + t48123 * t4338 - 0.4e1 * t12884 * t12885 * t2678 * t539 * t265 + t14261 * t12885 * t33283 * t265 + 0.4e1 * t12871 * t14280 - 0.4e1 * t14261 * t51125 * t14263 + 0.4e1 * t12862 * t2658 + 0.6e1 * t48135 * t12885 * t963 * t1736 + 0.4e1 * t50867 * t3855 - 0.2e1 * t51137 * t578 - 0.2e1 * t12884 * t12885 * t979 * t1716 * t265 - 0.12e2 * t3852 * t12878 * t14247 * t577 - t1163 * t1165 * t267 * t51060 - t3846 * t8942 + 0.2e1 * t14221 * t1737 + 0.2e1 * t14230 * t12907 + 0.4e1 * t3852 * t3853 * t14218 * t577 - t12869 * t4341;
21816   t51184 = t12885 * t979;
21817   t51220 = 0.2e1 * t12871 * t14273 - 0.4e1 * t12884 * t48114 * t14242 + 0.2e1 * t48123 * t4333 - 0.12e2 * t12871 * t14238 + 0.4e1 * t3852 * t3853 * t3843 * t2678 - 0.12e2 * t3852 * t12878 * t14251 * t577 + t3852 * t3858 * t4325 * t1716 * t265 + 0.12e2 * t48135 * t51184 * t12887 + 0.2e1 * t3846 * t8888 - 0.6e1 * t14230 * t12880 - 0.2e1 * t14230 * t12902 + 0.2e1 * t3852 * t3853 * t1156 * t8941 - t4330 * t12918 + 0.2e1 * t3852 * t3853 * t12859 * t979 - 0.6e1 * t3852 * t12878 * t4332 * t1754 + 0.4e1 * t14230 * t12892 + 0.2e1 * t3852 * t3853 * t4325 * t1754 + 0.4e1 * t3846 * t8884 - t48181 * t980 + t3852 * t3858 * t12859 * t962 * t265;
21818   t51226 = t14291 * t1763;
21819   t51229 = t4343 * t7082;
21820   t51253 = t169 * (t50860 + t51099 + t51162 + t51220) * t581 / 0.2e1 - t169 * t51226 * t580 + t169 * t51229 * t1761 - t169 * t14295 * t1757 / 0.2e1 - t169 * t48192 * t982 / 0.2e1 + 0.2e1 * t169 * t3866 * t14303 - t169 * t12924 * t2681 - 0.3e1 * t14302 * t32362 * t1761 + 0.2e1 * t14302 * t38894 + t14302 * t8979 * t1757 - t169 * t3869 * t8944 / 0.2e1;
21821   t51254 = t1033 * t2090;
21822   t51255 = t48478 * t51254;
21823   t51258 = t1033 * t1868;
21824   t51259 = t3923 * t51258;
21825   t51262 = t14434 * t7870;
21826   t51265 = t13055 * t35071;
21827   t51268 = t13051 * t14437;
21828   t51275 = t3923 * t36018;
21829   t51280 = t169 * t3979;
21830   t51281 = t7889 * t7870;
21831   t51286 = t13051 * t9882;
21832   t51292 = t169 * t13105;
21833   t51295 = t14430 * t2093;
21834   t51302 = -t1033 * t2849 * t48474 + 0.6e1 * t12937 * t1768 * t2728 + 0.3e1 * t14321 * t1768 * t1881 - t14434 * t2082 * t2849 - 0.2e1 * t2849 * t51295 * t746 - 0.3e1 * t1768 * t50771 - 0.6e1 * t1768 * t51262 - 0.6e1 * t1768 * t51268 - 0.6e1 * t1768 * t51275 - 0.6e1 * t1768 * t51286 - 0.6e1 * t2849 * t51255 + 0.4e1 * t2849 * t51265 - 0.6e1 * t2857 * t51259 + 0.6e1 * t32294 * t4350 - 0.12e2 * t35118 * t51292 + 0.12e2 * t51280 * t51281;
21835   t51311 = t14430 * t748;
21836   t51315 = t48237 * t14443;
21837   t51321 = t4377 * t6117;
21838   t51325 = t3923 * t36014;
21839   t51329 = t2841 * t707 * t194;
21840   t51333 = t8057 * t2018;
21841   t51339 = t31845 * t194;
21842   t51342 = t6259 * t1181;
21843   t51343 = t31925 * t1891;
21844   t51347 = t8057 * t1891;
21845   t51359 = t14366 * t3851;
21846   t51368 = t3902 * t14399;
21847   t51374 = t2785 * t743;
21848   t51387 = t32028 * t194;
21849   t51390 = -0.4e1 * t13011 * t13012 * t51329 - 0.2e1 * t14400 * t14401 * t51333 - 0.4e1 * t48263 * t14382 + t14400 * t13012 * t51339 + 0.6e1 * t14400 * t51342 * t51343 - 0.6e1 * t14400 * t14401 * t51347 - 0.4e1 * t48263 * t14396 + t3905 * t3911 * t1181 * t8196 * t194 - 0.12e2 * t12998 * t14377 + 0.2e1 * t51359 * t3914 - 0.2e1 * t14369 * t13029 + t3905 * t3911 * t4359 * t2018 * t194 + 0.2e1 * t51368 * t14415 - 0.4e1 * t13011 * t48293 * t14395 - 0.4e1 * t13011 * t13012 * t51374 + 0.2e1 * t14400 * t13012 * t35868 + 0.2e1 * t12998 * t14424 + 0.24e2 * t3905 * t48379 * t4366 * t2061 + t14400 * t13012 * t51387;
21850   t51391 = t694 * t4359;
21851   t51411 = t4359 * t1891;
21852   t51419 = t1014 * t2061;
21853   t51423 = t4363 * t13010;
21854   t51428 = t1030 * t2018 * t194;
21855   t51444 = t1030 * t1891;
21856   t51445 = t51444 * t1892;
21857   t51449 = t51444 * t194;
21858   t51453 = -0.4e1 * t13011 * t51391 * t13014 - 0.12e2 * t3905 * t13005 * t14386 * t743 - 0.4e1 * t13011 * t48293 * t14381 - t48454 * t1031 + t3905 * t3911 * t12986 * t1013 * t194 - 0.12e2 * t3905 * t13005 * t14390 * t743 + t3905 * t3911 * t51411 * t194 + t48411 * t4372 - t4364 * t13045 - 0.4e1 * t51368 * t14403 + 0.6e1 * t48287 * t13012 * t51419 - 0.4e1 * t51423 * t13015 + t14369 * t13042 - 0.2e1 * t13011 * t13012 * t51428 + 0.2e1 * t14400 * t48293 * t14414 - 0.4e1 * t14400 * t1887 * t3897 * t14402 - 0.4e1 * t14400 * t14401 * t35312 + 0.4e1 * t3900 * t8237 + 0.4e1 * t13011 * t14401 * t51445 - 0.2e1 * t13011 * t13012 * t51449;
21859   t51455 = t1014 * t2079;
21860   t51476 = 0.119e3 / 0.864e3 * t48303;
21861   t51479 = t12969 * t8213;
21862   t51482 = 0.119e3 / 0.3456e4 * t48315;
21863   t51485 = t48345 * t2756;
21864   t51486 = 0.7e1 / 0.288e3 * t51485;
21865   t51487 = t48345 * t2791;
21866   t51488 = 0.7e1 / 0.1152e4 * t51487;
21867   t51489 = t12969 * t8102;
21868   t51491 = t12969 * t8106;
21869   t51493 = -t51476 - 0.35e2 / 0.576e3 * t48305 + 0.7e1 / 0.576e3 * t48307 + t51479 / 0.192e3 - 0.7e1 / 0.1152e4 * t48311 - t51482 + 0.7e1 / 0.2304e4 * t48319 + 0.7e1 / 0.2304e4 * t48332 - t51486 + t51488 + t51489 / 0.192e3 + t51491 / 0.384e3;
21870   t51494 = t14336 * t8031;
21871   t51496 = t14336 * t8127;
21872   t51498 = t12969 * t8069;
21873   t51500 = t12969 * t8110;
21874   t51502 = t12969 * t8096;
21875   t51504 = t12969 * t8114;
21876   t51506 = t48302 * t1020;
21877   t51508 = t12979 * t2809;
21878   t51509 = 0.7e1 / 0.288e3 * t51508;
21879   t51510 = t3894 * t8039;
21880   t51512 = t12969 * t8053;
21881   t51516 = t262 * t12959 * t715 * t2750;
21882   t51517 = 0.7e1 / 0.576e3 * t51516;
21883   t51518 = t12969 * t8204;
21884   t51520 = t12969 * t8208;
21885   t51522 = t51494 / 0.384e3 + t51496 / 0.768e3 + t51498 / 0.384e3 - t51500 / 0.768e3 - t51502 / 0.1536e4 - 0.5e1 / 0.384e3 * t51504 - 0.119e3 / 0.1728e4 * t51506 + t51509 - t51510 / 0.384e3 - 0.5e1 / 0.192e3 * t51512 - t51517 + t51518 / 0.192e3 + t51520 / 0.384e3;
21886   t51525 = t262 * t48321 * t204;
21887   t51526 = t51525 * t8088;
21888   t51528 = t14336 * t8060;
21889   t51531 = t12979 * t2805;
21890   t51532 = 0.35e2 / 0.288e3 * t51531;
21891   t51533 = t3894 * t8146;
21892   t51535 = t3894 * t8151;
21893   t51537 = t12965 * t2787;
21894   t51538 = 0.7e1 / 0.1152e4 * t51537;
21895   t51539 = t3887 * t8199;
21896   t51541 = t48314 * t1016;
21897   t51543 = t3894 * t8137;
21898   t51546 = t3878 * t14328 * t14330;
21899   t51547 = 0.7e1 / 0.24e2 * t51546;
21900   t51548 = -t51526 / 0.256e3 - t51528 / 0.96e2 - t48339 - 0.7e1 / 0.288e3 * t48346 - t48357 - t51532 + 0.5e1 / 0.192e3 * t51533 + 0.5e1 / 0.384e3 * t51535 + t51538 - t51539 / 0.1536e4 - 0.119e3 / 0.6912e4 * t51541 - 0.5e1 / 0.64e2 * t51543 - t51547;
21901   t51550 = t14329 * t183 * t8144;
21902   t51553 = t14329 * t183 * t8149;
21903   t51555 = t12969 * t8073;
21904   t51557 = t48345 * t2798;
21905   t51558 = 0.7e1 / 0.288e3 * t51557;
21906   t51560 = t1173 * t724 * t114;
21907   t51562 = t51560 * t183 * t8135;
21908   t51564 = t14336 * t8092;
21909   t51566 = t14336 * t8081;
21910   t51569 = 0.35e2 / 0.108e3 * t48369;
21911   t51571 = t48368 * t1004;
21912   t51573 = t12951 * t2740;
21913   t51574 = 0.7e1 / 0.72e2 * t51573;
21914   t51575 = t3882 * t8045;
21915   t51577 = t51550 / 0.8e1 + t51553 / 0.16e2 - t51555 / 0.1536e4 - t51558 - t51562 / 0.4e1 + t51564 / 0.256e3 - t51566 / 0.192e3 - 0.7e1 / 0.48e2 * t48363 - t51569 + 0.7e1 / 0.144e3 * t48371 - 0.35e2 / 0.216e3 * t51571 + t51574 - t51575 / 0.48e2;
21916   t51579 = t51493 + t51522 + t51548 + t51577;
21917   t51620 = -0.2e1 * t13011 * t13012 * t51455 + 0.2e1 * t14369 * t13023 + 0.4e1 * t14369 * t13019 + 0.2e1 * t48411 * t4367 + 0.4e1 * t12998 * t14391 + 0.2e1 * t3905 * t3911 * t3897 * t2784 * t194 - 0.2e1 * t3905 * t13026 * t51411 * t1892 + params->beta * t51579 * t221 - 0.6e1 * t3905 * t13005 * t4366 * t2079 + 0.2e1 * t3905 * t3911 * t14357 * t707 * t194 + 0.4e1 * t12998 * t14387 - 0.4e1 * t13011 * t13012 * t1013 * t13014 + 0.2e1 * t3905 * t3906 * t4359 * t2079 - t3900 * t8295 + 0.4e1 * t3905 * t3906 * t3897 * t2841 + 0.2e1 * t3905 * t3906 * t1181 * t8294 + 0.4e1 * t3905 * t3906 * t14357 * t743 + 0.2e1 * t14369 * t13034 + t14369 * t13039 - t1185 * t1186 * t196 * t51579;
21918   t51627 = t1892 * t743 * t707;
21919   t51632 = t1159 * t8218 * t1162;
21920   t51634 = t13012 * t1030;
21921   t51660 = t14358 * t187;
21922   t51671 = 0.4e1 * t12989 * t2819 - 0.2e1 * t12989 * t2842 + 0.8e1 * t13011 * t14401 * t1013 * t51627 - t51632 * t1188 + 0.12e2 * t48287 * t51634 * t13014 - t14360 * t2080 + 0.4e1 * t12998 * t14419 - t12996 * t4375 - 0.2e1 * t14367 * t3917 + 0.4e1 * t51359 * t3908 + 0.2e1 * t3900 * t8241 - 0.6e1 * t14369 * t13007 + 0.2e1 * t3905 * t3906 * t12986 * t1030 - 0.2e1 * t3903 * t14427 + 0.2e1 * t14360 * t2062 - 0.6e1 * t3900 * t8233 - 0.2e1 * t51660 * t744 + 0.2e1 * t12998 * t14408 + 0.2e1 * t12998 * t14412 - 0.6e1 * t3905 * t13005 * t4359 * t2061;
21923   t51675 = t175 * (t51390 + t51453 + t51620 + t51671) * t748;
21924   t51677 = t3874 * t8149;
21925   t51680 = t12937 * t2803;
21926   t51683 = t1033 * t2082;
21927   t51684 = t13055 * t51683;
21928   t51687 = t3923 * t35140;
21929   t51693 = t13055 * t36010;
21930   t51696 = t3874 * t8144;
21931   t51699 = -0.2e1 * t13051 * t2844 * t2849 + 0.6e1 * t14321 * t1868 * t2857 + 0.3e1 * t1768 * t3874 * t8011 + 0.3e1 * t1768 * t48488 * t999 + 0.6e1 * t1768 * t51311 * t677 + 0.2e1 * t2090 * t2849 * t51321 - t2849 * t3923 * t8297 + t169 * t51675 - 0.3e1 * t1768 * t51325 - 0.6e1 * t1768 * t51687 + 0.6e1 * t1768 * t51693 + 0.4e1 * t2849 * t51315 + 0.2e1 * t2849 * t51684 + 0.6e1 * t2857 * t51677 + 0.12e2 * t2857 * t51680 + 0.12e2 * t2857 * t51696;
21932   t51700 = t51302 + t51699;
21933   t51701 = my_piecewise3(t296, t51253, t51700);
21934   t51715 = my_piecewise3(t359, 0, t51700);
21935   t51729 = t51701 * t34 / 0.2e1 + t14450 * t413 + t4384 * t1454 / 0.2e1 + t13062 * t886 / 0.2e1 + 0.2e1 * t3927 * t4 * t377 + t1194 * t377 - 0.3e1 * t14457 * t15 + t51715 * t46 / 0.2e1 + t14459 * t436 + t4387 * t1463 / 0.2e1 + t13068 * t905 / 0.2e1 - 0.2e1 * t3930 * t4 * t377 - t1196 * t377 + 0.3e1 * t14466 * t15;
21936   t51734 = 0.12e2 * t14821 * t51680;
21937   t51736 = 0.4e1 * t8342 * t3812;
21938   t51741 = t50789 + t50793 + t13085 * t4289 / 0.6e1 + t13088 * t4289 / 0.3e1 + t13085 * t4297 / 0.6e1 - t98 * t51729 - 0.2e1 * t447 * t14468 + t51734 - t51736 - 0.10e2 / 0.3e1 * t13164 * t14763 - 0.10e2 / 0.3e1 * t12761 * t14763;
21939   t51744 = t47494 * t14762;
21940   t51748 = 0.6e1 * t14484 * t51255;
21941   t51750 = 0.2e1 * t3977 * t14838;
21942   t51752 = 0.2e1 * t3977 * t14810;
21943   t51770 = -0.10e2 / 0.3e1 * t12765 * t14763 - 0.10e2 / 0.3e1 * t3762 * t51744 - t51748 - t51750 - t51752 + t400 * t883 * t13194 * t1138 / 0.6e1 + t14794 * t3785 / 0.3e1 + t14794 * t3795 / 0.3e1 + t34292 * t1134 * t1138 / 0.6e1 + t7763 * t3768 * t1138 / 0.3e1 + t7763 * t3779 * t1138 / 0.3e1;
21944   t51774 = t66 * t7707 * t97 * t363;
21945   t51778 = t66 * t14801 * t857;
21946   t51782 = 0.2e1 * t4302 * t13156;
21947   t51784 = 0.2e1 * t3977 * t14812;
21948   t51786 = 0.4e1 * t2448 * t14830;
21949   t51789 = 0.4e1 * t449 * t3091 * t3811;
21950   t51803 = t1135 * t51774 / 0.6e1 + t1135 * t51778 / 0.3e1 - t51782 - t51784 - t51786 - t51789 + t4269 * t13082 / 0.3e1 + t6442 * t4283 * t1138 / 0.6e1 + t1392 * t14782 * t1138 / 0.3e1 + t1392 * t14785 * t1138 / 0.3e1 + t14780 * t3785 / 0.3e1;
21951   t51807 = 0.6e1 * t3977 * t14680;
21952   t51815 = t3958 * t97 * t14705;
21953   t51819 = t14703 * t50765 * t443;
21954   t51824 = t3958 * t14709;
21955   t51828 = t1204 * t465 * t2478;
21956   t51832 = t1204 * t12780 * t2478;
21957   t51835 = t14780 * t3795 / 0.3e1 + t51807 + 0.10e2 * t47226 * t14706 + 0.10e2 * t47229 * t14706 + 0.10e2 * t47232 * t14706 + 0.10e2 * t13159 * t51815 + 0.10e2 * t13159 * t51819 + 0.2e1 / 0.3e1 * t12788 * t14710 + 0.2e1 / 0.3e1 * t3788 * t51824 + 0.2e1 / 0.3e1 * t3788 * t51828 + 0.2e1 / 0.3e1 * t3788 * t51832;
21958   t51842 = t4412 * t12753;
21959   t51847 = t14785 * t61;
21960   t51848 = t1397 * t51847;
21961   t51851 = t400 * t51847;
21962   t51855 = t1204 * t47221 * t912;
21963   t51859 = t12791 * t2451 * t443;
21964   t51863 = 0.6e1 * t3977 * t14490;
21965   t51864 = t1473 * t928;
21966   t51866 = 0.2e1 * t51864 * t1144;
21967   t51871 = 0.6e1 * t14821 * t51259;
21968   t51872 = -0.5e1 / 0.3e1 * t12765 * t14715 - 0.5e1 / 0.6e1 * t3762 * t51842 + 0.2e1 / 0.3e1 * t12788 * t14720 - 0.5e1 / 0.3e1 * t51848 * t3765 + 0.2e1 / 0.3e1 * t51851 * t3791 - 0.5e1 / 0.3e1 * t3762 * t51855 - 0.10e2 / 0.3e1 * t3762 * t51859 + t51863 - t51866 - 0.4e1 * t449 * t3934 * t2478 - t51871;
21969   t51873 = t174 * t14430;
21970   t51876 = 0.6e1 * t1214 * t51873 * t3980;
21971   t51877 = t4412 * t13160;
21972   t51881 = 0.6e1 * t13345 * t51262;
21973   t51884 = 0.2e1 * t1214 * t14431 * t3985;
21974   t51888 = t1214 * t4378 * t5856;
21975   t51899 = t51876 + 0.5e1 * t13159 * t51877 - t51881 - t51884 - 0.2e1 * t2440 * t3934 - t51888 + 0.2e1 / 0.3e1 * t14848 * t12782 - 0.5e1 / 0.3e1 * t12761 * t14159 - 0.5e1 / 0.6e1 * t47251 * t4273 - 0.5e1 / 0.3e1 * t47254 * t4273 - 0.5e1 / 0.3e1 * t47257 * t4273;
21976   t51901 = t1214 * t51675;
21977   t51903 = 0.4e1 * t14484 * t51265;
21978   t51904 = t3976 * t14820;
21979   t51906 = 0.12e2 * t51904 * t14309;
21980   t51908 = 0.6e1 * t14821 * t51677;
21981   t51910 = 0.6e1 * t47378 * t14315;
21982   t51913 = 0.4e1 * t9859 * t3812;
21983   t51915 = 0.4e1 * t2442 * t13102;
21984   t51917 = 0.6e1 * t13345 * t51687;
21985   t51919 = 0.2e1 * t4431 * t13139;
21986   t51922 = t51901 + t51903 + t51906 + t51908 - t51910 - t8340 * t1199 - t51913 - t51915 - t51917 + t51919 - 0.10e2 / 0.3e1 * t12761 * t14478;
21987   t51924 = 0.2e1 * t3977 * t14432;
21988   t51927 = t1397 * t50603;
21989   t51932 = t47494 * t14477;
21990   t51935 = t7591 * t3950;
21991   t51944 = t7763 * t3944;
21992   t51947 = t2378 * t13280;
21993   t51964 = 0.5e1 / 0.3e1 * t51935 * t3941 + 0.5e1 / 0.3e1 * t14662 * t13269 + 0.5e1 / 0.3e1 * t14662 * t13273 + 0.5e1 / 0.6e1 * t14662 * t13277 - 0.2e1 / 0.3e1 * t51944 * t3947 - 0.2e1 / 0.3e1 * t51947 * t3947 - 0.2e1 / 0.3e1 * t14614 * t13284 - 0.2e1 / 0.3e1 * t14614 * t13288 - t14614 * t13257 / 0.3e1 + 0.5e1 / 0.3e1 * t3939 * t4408 * t13272 + 0.5e1 / 0.6e1 * t3939 * t4408 * t13276 - 0.2e1 / 0.3e1 * t13263 * t14651;
21994   t51983 = t14582 * t443;
21995   t51987 = t4412 * t1470;
21996   t52001 = -0.2e1 / 0.3e1 * t13281 * t14651 - 0.2e1 / 0.3e1 * t3945 * t14568 * t3946 - 0.2e1 / 0.3e1 * t3945 * t4408 * t13287 - t3945 * t4408 * t13256 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t14655 + 0.5e1 / 0.3e1 * t13266 * t14655 + 0.5e1 / 0.3e1 * t3939 * t3954 * t14654 + 0.5e1 / 0.3e1 * t3939 * t1203 * t51983 + 0.5e1 / 0.6e1 * t3939 * t1203 * t51987 - 0.2e1 / 0.3e1 * t13263 * t14659 + 0.5e1 / 0.3e1 * t13266 * t14618 + 0.5e1 / 0.6e1 * t3939 * t13329 * t4396 + 0.5e1 / 0.3e1 * t3939 * t3954 * t14672;
21997   t52012 = t439 * t912;
21998   t52014 = t66 * t52012 * t464;
21999   t52017 = t73 * t2436;
22000   t52019 = t66 * t52017 * t464;
22001   t52023 = t66 * t14501 * t1516;
22002   t52029 = t1397 * t14623 * t1133;
22003   t52038 = t66 * t439 * t928 * t443;
22004   t52041 = 0.5e1 / 0.3e1 * t3939 * t3954 * t14617 + 0.5e1 / 0.6e1 * t47769 * t4397 + 0.10e2 / 0.3e1 * t47522 * t14507 + 0.10e2 / 0.3e1 * t47526 * t14507 + 0.10e2 / 0.3e1 * t13245 * t52014 + 0.10e2 / 0.3e1 * t13245 * t52019 + 0.5e1 / 0.3e1 * t13245 * t52023 + 0.10e2 / 0.3e1 * t47518 * t14512 + 0.10e2 / 0.3e1 * t52029 * t14512 + 0.10e2 / 0.3e1 * t47522 * t14512 + 0.10e2 / 0.3e1 * t47526 * t14512 + 0.10e2 / 0.3e1 * t13245 * t52038;
22005   t52044 = t66 * t73 * t2478 * t443;
22006   t52048 = t66 * t14510 * t1470;
22007   t52052 = t1397 * t14644 * t1133;
22008   t52056 = t1397 * t3944 * t4282;
22009   t52061 = t66 * t908 * t443 * t464;
22010   t52076 = t66 * t52012 * t443;
22011   t52080 = t66 * t14510 * t1398;
22012   t52083 = t13336 * t928;
22013   t52087 = t3958 * t2478;
22014   t52091 = t1204 * t7840;
22015   t52095 = 0.10e2 / 0.3e1 * t13245 * t52044 + 0.5e1 / 0.3e1 * t13245 * t52048 + 0.10e2 / 0.3e1 * t52052 * t13248 + 0.10e2 / 0.3e1 * t52056 * t13248 + 0.10e2 / 0.3e1 * t13245 * t52061 - 0.10e2 * t26602 * t14499 * t14503 - 0.10e2 * t6453 * t3950 * t1133 * t14503 - 0.10e2 * t6453 * t1201 * t3778 * t14503 - 0.10e2 * t14500 * t52076 - 0.10e2 * t47508 * t52080 - t3945 * t1203 * t52083 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t1203 * t52087 - t3945 * t1203 * t52091 / 0.3e1;
22016   t52098 = t6445 * t4404;
22017   t52101 = t1397 * t14548;
22018   t52121 = t74 * t7758;
22019   t52126 = 0.5e1 / 0.3e1 * t52098 * t3941 + 0.5e1 / 0.3e1 * t52101 * t3941 + 0.5e1 / 0.3e1 * t14641 * t13269 + 0.5e1 / 0.3e1 * t14641 * t13273 + 0.5e1 / 0.6e1 * t14641 * t13277 - t47710 * t4401 / 0.3e1 - 0.2e1 / 0.3e1 * t13281 * t14630 - 0.2e1 / 0.3e1 * t13281 * t14634 - 0.2e1 / 0.3e1 * t13281 * t14638 - t3945 * t13329 * t4400 / 0.3e1 - 0.20e2 * t47508 * t52121 + 0.5e1 / 0.3e1 * t47654 * t4397;
22020   t52127 = t6453 * t4404;
22021   t52133 = t4412 * t1398;
22022   t52137 = t34313 * t1201;
22023   t52148 = 0.16e2 * t400 * t3967 * t2436;
22024   t52151 = 0.40e2 * t1397 * t4424 * t1398;
22025   t52153 = 0.40e2 * t7591 * t13230;
22026   t52156 = 0.16e2 * t400 * t3970 * t2436;
22027   t52158 = 0.16e2 * t1392 * t14525;
22028   t52160 = 0.16e2 * t1392 * t14528;
22029   t52161 = -0.5e1 * t52127 * t13253 - 0.5e1 * t13251 * t4408 * t13252 - 0.5e1 * t13251 * t1203 * t52133 - 0.5e1 * t52137 * t13253 + 0.5e1 / 0.6e1 * t47735 * t4397 + 0.5e1 / 0.3e1 * t13266 * t14669 + 0.5e1 / 0.3e1 * t13266 * t14673 - t52148 + t52151 + t52153 - t52156 - t52158 - t52160;
22030   t52164 = 0.16e2 * t1392 * t14515;
22031   t52167 = 0.8e1 * t400 * t13299 * t912;
22032   t52170 = 0.16e2 * t400 * t13302 * t912;
22033   t52173 = 0.240e3 * t34500 * t14586 * t1398;
22034   t52182 = t1392 * t14623;
22035   t52193 = -t52164 - t52167 - t52170 - t52173 - 0.2e1 / 0.3e1 * t3945 * t3954 * t14633 - 0.2e1 / 0.3e1 * t3945 * t3954 * t14637 - t47724 * t4401 / 0.3e1 - 0.2e1 / 0.3e1 * t52182 * t4401 - 0.2e1 / 0.3e1 * t47726 * t4401 - 0.2e1 / 0.3e1 * t13263 * t14630 - 0.2e1 / 0.3e1 * t13263 * t14634 - 0.2e1 / 0.3e1 * t13263 * t14638;
22036   t52195 = t400 * t1516 * t25;
22037   t52199 = t400 * t464 * t404;
22038   t52208 = t13336 * t912;
22039   t52212 = t3958 * t2436;
22040   t52216 = t1204 * t7737;
22041   t52225 = t14582 * t464;
22042   t52229 = t4412 * t1516;
22043   t52233 = t34310 * t1201;
22044   t52236 = -t52195 * t4401 / 0.3e1 - 0.2e1 / 0.3e1 * t52199 * t4401 - 0.2e1 / 0.3e1 * t14624 * t14630 - 0.2e1 / 0.3e1 * t14624 * t14634 - 0.2e1 / 0.3e1 * t14624 * t14638 + 0.5e1 / 0.6e1 * t3939 * t1203 * t52208 + 0.5e1 / 0.3e1 * t3939 * t1203 * t52212 + 0.5e1 / 0.6e1 * t3939 * t1203 * t52216 - 0.2e1 / 0.3e1 * t13281 * t14659 - 0.2e1 / 0.3e1 * t3945 * t3954 * t14658 - 0.2e1 / 0.3e1 * t3945 * t1203 * t52225 - t3945 * t1203 * t52229 / 0.3e1 + 0.5e1 / 0.3e1 * t52233 * t3941;
22045   t52242 = 0.40e2 * t1397 * t4421 * t1398;
22046   t52244 = t66 * t52017 * t443;
22047   t52248 = t66 * t14501 * t1470;
22048   t52254 = 0.80e2 * t34464 * t14587;
22049   t52256 = 0.80e2 * t36427 * t14587;
22050   t52259 = 0.8e1 * t400 * t1208 * t7737;
22051   t52269 = 0.16e2 * t1392 * t14531;
22052   t52270 = t52242 - 0.10e2 * t14500 * t52244 - 0.5e1 * t14500 * t52248 + 0.10e2 / 0.3e1 * t47518 * t14507 + t52254 + t52256 - t52259 + 0.5e1 / 0.3e1 * t47772 * t4397 + 0.5e1 / 0.3e1 * t13260 * t14669 + 0.5e1 / 0.3e1 * t13260 * t14673 + 0.5e1 / 0.3e1 * t13260 * t14618 - t52269;
22053   t52272 = 0.16e2 * t1392 * t14522;
22054   t52275 = 0.8e1 * t400 * t13292 * t912;
22055   t52277 = 0.16e2 * t7763 * t3964;
22056   t52279 = 0.16e2 * t2378 * t13241;
22057   t52281 = 0.16e2 * t2378 * t13233;
22058   t52283 = 0.8e1 * t2378 * t13236;
22059   t52285 = 0.8e1 * t6442 * t4418;
22060   t52287 = 0.2e1 * t1391 * t4421;
22061   t52298 = -t52272 - t52275 - t52277 - t52279 - t52281 - t52283 - t52285 + t52287 - t13311 * t4409 / 0.6e1 - t13314 * t4409 / 0.3e1 - t3936 * t14569 / 0.3e1 - t3936 * t14572 / 0.3e1 - t13322 * t4409 / 0.6e1;
22062   t52306 = t2378 * t13321;
22063   t52319 = t6442 * t4404;
22064   t52322 = t1392 * t14548;
22065   t52327 = -t3951 * t14569 / 0.3e1 - t3951 * t14572 / 0.3e1 - t14534 * t3959 / 0.3e1 - t52306 * t1205 / 0.6e1 - t14537 * t3955 / 0.3e1 - t14537 * t3959 / 0.3e1 - t4393 * t13330 / 0.6e1 - t4393 * t13333 / 0.3e1 - t4393 * t13337 / 0.6e1 - t52319 * t1205 / 0.6e1 - t52322 * t1205 / 0.3e1 - t14545 * t3955 / 0.3e1;
22066   t52330 = t34292 * t1201;
22067   t52333 = t7763 * t3950;
22068   t52338 = t2378 * t13307;
22069   t52341 = t65 * t7707;
22070   t52350 = t400 * t1481 * t883;
22071   t52354 = 0.4e1 * t397 * t14608;
22072   t52356 = 0.2e1 * t7775 * t1208;
22073   t52358 = 0.4e1 * t2377 * t3967;
22074   t52360 = 0.4e1 * t2377 * t3970;
22075   t52361 = -t14545 * t3959 / 0.3e1 - t52330 * t1205 / 0.6e1 - t52333 * t1205 / 0.3e1 - t14534 * t3955 / 0.3e1 - t52338 * t1205 / 0.3e1 - t1202 * t1203 * t52341 / 0.6e1 - t13308 * t4409 / 0.3e1 - t13308 * t4413 / 0.3e1 - t52350 * t1205 / 0.3e1 + t52354 + t52356 + t52358 + t52360;
22076   t52365 = 0.2e1 * t881 * t13299;
22077   t52366 = t7591 * t13244;
22078   t52369 = t26389 * t14499;
22079   t52371 = t66 * t14501 * t1398;
22080   t52377 = 0.80e2 * t7757 * t3811 * t912 * t443;
22081   t52381 = 0.80e2 * t7757 * t1143 * t2436 * t443;
22082   t52383 = 0.4e1 * t881 * t13302;
22083   t52385 = 0.2e1 * t881 * t13292;
22084   t52392 = t887 * t1423;
22085   t52397 = t887 * t1427;
22086   t52404 = 0.440e3 / 0.27e2 * t47443 * t887 - 0.160e3 / 0.27e2 * t47446 * t14562 - 0.80e2 / 0.9e1 * t13185 * t1402 - 0.10e2 / 0.27e2 * t47451 * t52392 + 0.20e2 / 0.9e1 * t13188 * t7630 + 0.10e2 / 0.9e1 * t13188 * t52397 + 0.5e1 / 0.3e1 * t3774 * t377 - 0.5e1 * t3774 * t5779 + t47459;
22087   t52419 = t52365 + 0.10e2 / 0.3e1 * t52366 * t13248 + 0.35e2 * t52369 * t52371 + t52377 + t52381 + t52383 + t52385 - t1202 * t52404 * t61 * t1204 / 0.6e1 - t1202 * t14568 * t3958 / 0.3e1 - t1202 * t4408 * t13336 / 0.6e1 - t13311 * t4413 / 0.6e1 - t13314 * t4413 / 0.3e1;
22088   t52437 = t400 * t97 * t7713;
22089   t52450 = -t3936 * t14579 / 0.3e1 - t3936 * t14583 / 0.3e1 - t13322 * t4413 / 0.6e1 - t3951 * t14579 / 0.3e1 - t3951 * t14583 / 0.3e1 - t1202 * t13329 * t4412 / 0.6e1 - t1202 * t3954 * t14582 / 0.3e1 - t52437 * t1205 / 0.6e1 - t14549 * t3955 / 0.3e1 - t14549 * t3959 / 0.3e1 - t4405 * t13330 / 0.6e1 - t4405 * t13333 / 0.3e1 - t4405 * t13337 / 0.6e1;
22090   t52454 = 0.8e1 * t400 * t4424 * t1470;
22091   t52457 = 0.16e2 * t400 * t14602 * t443;
22092   t52460 = 0.16e2 * t400 * t14605 * t443;
22093   t52463 = 0.8e1 * t400 * t4421 * t1470;
22094   t52466 = 0.16e2 * t400 * t14608 * t443;
22095   t52467 = t1392 * t14644;
22096   t52471 = t400 * t96 * t2386;
22097   t52484 = -t52454 - t52457 - t52460 - t52463 - t52466 - 0.2e1 / 0.3e1 * t52467 * t3947 - 0.2e1 / 0.3e1 * t52471 * t3947 - 0.2e1 / 0.3e1 * t14645 * t13284 - 0.2e1 / 0.3e1 * t14645 * t13288 - t14645 * t13257 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t14648 + 0.5e1 / 0.3e1 * t13266 * t14648;
22098   t52490 = 0.16e2 * t400 * t14611 * t443;
22099   t52493 = 0.40e2 * t7757 * t14586 * t1470;
22100   t52495 = 0.4e1 * t397 * t14602;
22101   t52497 = 0.4e1 * t397 * t14605;
22102   t52500 = 0.2e1 * t81 * t7840 * t1143;
22103   t52503 = 0.4e1 * t81 * t2478 * t3811;
22104   t52506 = 0.2e1 * t81 * t928 * t13155;
22105   t52508 = 0.2e1 * t1391 * t4424;
22106   t52511 = 0.2e1 * t81 * t1516 * t4311;
22107   t52514 = 0.4e1 * t81 * t464 * t14139;
22108   t52516 = 0.4e1 * t397 * t14611;
22109   t52519 = 0.2e1 * t81 * t96 * t50366;
22110   t52520 = 0.5e1 / 0.3e1 * t3939 * t14568 * t3940 - t52490 + t52493 + t52495 + t52497 + t52500 + t52503 + t52506 + t52508 + t52511 + t52514 + t52516 + t52519;
22111   t52529 = 0.2e1 * t2442 * t13208;
22112   t52531 = 0.2e1 * t2442 * t13156;
22113   t52533 = 0.2e1 * t34672 * t1144;
22114   t52535 = 0.4e1 * t9859 * t3802;
22115   t52536 = t51924 - 0.5e1 / 0.3e1 * t14858 * t12768 - 0.5e1 / 0.3e1 * t51927 * t3765 - 0.10e2 / 0.3e1 * t13164 * t14478 - 0.10e2 / 0.3e1 * t3762 * t51932 + (t51964 + t52001 + t52041 + t52095 + t52126 + t52161 + t52193 + t52236 + t52270 + t52298 + t52327 + t52361 + t52419 + t52450 + t52484 + t52520) * t227 - 0.4e1 * t2442 * t13350 - t52529 - t52531 - t52533 - t52535;
22116   t52539 = t446 * t2478;
22117   t52541 = 0.4e1 * t52539 * t1144;
22118   t52543 = 0.4e1 * t14120 * t3802;
22119   t52546 = 0.3e1 * t1214 * t14494 * t13130;
22120   t52547 = t173 * t4377;
22121   t52550 = 0.6e1 * t1214 * t52547 * t13106;
22122   t52553 = 0.2e1 * t1214 * t4378 * t13138;
22123   t52556 = 0.2e1 * t449 * t2331 * t4311;
22124   t52564 = 0.4e1 * t7847 * t4312;
22125   t52566 = 0.4e1 * t1476 * t14147;
22126   t52567 = -t52541 - t52543 + t52546 + t52550 + t52553 - t52556 + t4277 * t13082 / 0.3e1 + t4284 * t13205 / 0.6e1 + t13111 * t4297 / 0.6e1 - t52564 - t52566;
22127   t52569 = 0.4e1 * t1476 * t14140;
22128   t52570 = t4431 * t13174;
22129   t52582 = 0.6e1 * t4431 * t13107;
22130   t52584 = 0.2e1 * t14484 * t51684;
22131   t52585 = t13214 * t4379;
22132   t52587 = -t52569 - t52570 + 0.2e1 / 0.3e1 * t47861 * t4293 + t47280 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t14725 + 0.2e1 / 0.3e1 * t12788 * t14729 + 0.2e1 / 0.3e1 * t12788 * t14733 + t52582 + t52584 + t52585 - t1474 * t4391;
22133   t52611 = 0.6e1 * t1214 * t13124 * t14489;
22134   t52615 = 0.4e1 * t7847 * t4305;
22135   t52616 = -0.2e1 * t1482 * t4391 + t14824 * t3785 / 0.3e1 + t4277 * t13093 / 0.6e1 + t4277 * t13097 / 0.3e1 + t400 * t1406 * t4282 * t1138 / 0.6e1 + t400 * t404 * t14567 * t1138 / 0.3e1 + t14783 * t3785 / 0.3e1 + t14783 * t3795 / 0.3e1 + t52611 - 0.2e1 * t6587 * t4316 - t52615;
22136   t52633 = t66 * t13080 * t1110;
22137   t52638 = 0.2e1 * t14863 * t3986;
22138   t52639 = t14582 * t3764;
22139   t52642 = t14582 * t3790;
22140   t52645 = t6453 * t14155;
22141   t52648 = t1392 * t14790 * t1138 / 0.3e1 + t400 * t7713 * t1133 * t1138 / 0.6e1 + t400 * t2386 * t3778 * t1138 / 0.3e1 + t14791 * t3785 / 0.3e1 + t14791 * t3795 / 0.3e1 + t1135 * t52633 / 0.3e1 + t1211 * t8303 - t52638 - 0.5e1 / 0.3e1 * t3762 * t52639 + 0.2e1 / 0.3e1 * t3788 * t52642 + 0.5e1 * t52645 * t13161;
22142   t52657 = t12791 * t2479 * t443;
22143   t52663 = 0.3e1 * t13214 * t4434;
22144   t52664 = t13214 * t4438;
22145   t52670 = 0.12e2 * t14821 * t51696;
22146   t52672 = 0.6e1 * t13345 * t51275;
22147   t52675 = 0.2e1 * t449 * t363 * t50366;
22148   t52676 = -0.5e1 / 0.3e1 * t14851 * t12773 + 0.2e1 * t14678 * t751 - 0.10e2 / 0.3e1 * t3762 * t52657 - 0.10e2 / 0.3e1 * t12765 * t14478 + t52663 - t52664 + t14156 * t12777 / 0.3e1 - 0.5e1 / 0.3e1 * t13164 * t14159 + t52670 - t52672 - t52675;
22149   t52678 = 0.6e1 * t4431 * t13125;
22150   t52680 = 0.4e1 * t14484 * t51315;
22151   t52682 = 0.2e1 * t29803 * t1144;
22152   t52687 = 0.2e1 * t8308 * t4312;
22153   t52689 = 0.4e1 * t2448 * t14147;
22154   t52691 = t1214 * t13048 * t2850;
22155   t52693 = t97 * t3091;
22156   t52695 = t1204 * t52693 * t443;
22157   t52698 = t96 * t3091;
22158   t52700 = t1204 * t52698 * t464;
22159   t52704 = 0.6e1 * t13345 * t51286;
22160   t52705 = t52678 + t52680 - t52682 - 0.2e1 * t449 * t1199 * t7840 - t52687 - t52689 - t52691 + t13341 * t1037 - 0.5e1 / 0.3e1 * t3762 * t52695 + 0.2e1 / 0.3e1 * t3788 * t52700 - t52704;
22161   t52732 = t2378 * t13114 * t1138 / 0.3e1 + t14689 * t3785 / 0.3e1 + t14689 * t3795 / 0.3e1 + t4269 * t13097 / 0.3e1 + t400 * t25 * t52404 * t1138 / 0.6e1 + t14786 * t3785 / 0.3e1 + t14786 * t3795 / 0.3e1 + t13111 * t4289 / 0.6e1 + t13115 * t4289 / 0.3e1 + t3769 * t14803 / 0.3e1 + t3769 * t14807 / 0.3e1;
22162   t52734 = t66 * t13091 * t1110;
22163   t52738 = t66 * t3783 * t3091;
22164   t52743 = 0.2e1 * t1214 * t3920 * t7972;
22165   t52745 = 0.4e1 * t8342 * t3802;
22166   t52747 = 0.3e1 * t13345 * t51325;
22167   t52751 = 0.2e1 * t14863 * t3921;
22168   t52752 = t4431 * t13049;
22169   t52754 = 0.6e1 * t13345 * t51268;
22170   t52755 = t3976 * t14483;
22171   t52757 = 0.4e1 * t52755 * t14444;
22172   t52759 = 0.6e1 * t47378 * t14438;
22173   t52760 = t1135 * t52734 / 0.6e1 + t1135 * t52738 / 0.3e1 - t52743 - t52745 - t52747 + 0.2e1 * t3973 * t2866 + t52751 + t52752 - t52754 + t52757 - t52759;
22174   t52766 = t1204 * t14713 * t1398;
22175   t52770 = 0.4e1 * t34632 * t1144;
22176   t52771 = t3958 * t14714;
22177   t52774 = t3958 * t14719;
22178   t52778 = 0.4e1 * t2448 * t14140;
22179   t52781 = 0.4e1 * t449 * t857 * t14139;
22180   t52783 = 0.6e1 * t14863 * t3981;
22181   t52785 = 0.2e1 * t8308 * t4305;
22182   t52787 = 0.4e1 * t2448 * t14758;
22183   t52788 = t34310 * t3761;
22184   t52791 = -0.2e1 * t2442 * t13223 + 0.5e1 * t13159 * t52766 - t52770 - 0.5e1 / 0.3e1 * t3762 * t52771 + 0.2e1 / 0.3e1 * t3788 * t52774 - t52778 - t52781 + t52783 - t52785 - t52787 - 0.5e1 / 0.3e1 * t52788 * t3765;
22185   t52792 = t7591 * t12757;
22186   t52795 = t7591 * t12764;
22187   t52806 = t13336 * t4292;
22188   t52809 = t3958 * t14728;
22189   t52812 = t3958 * t14732;
22190   t52819 = -0.5e1 / 0.3e1 * t52792 * t3765 - 0.5e1 / 0.3e1 * t52795 * t3765 - 0.5e1 / 0.3e1 * t14736 * t12768 - 0.5e1 / 0.3e1 * t14736 * t12773 + 0.2e1 / 0.3e1 * t13167 * t14725 + 0.2e1 / 0.3e1 * t12758 * t14725 + t3788 * t52806 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t52809 + 0.2e1 / 0.3e1 * t3788 * t52812 - 0.5e1 / 0.3e1 * t12761 * t14841 + 0.2e1 / 0.3e1 * t12758 * t14844;
22191   t52822 = t66 * t1136 * t9601;
22192   t52829 = 0.2e1 * t4431 * t13180;
22193   t52830 = t748 * t8011;
22194   t52833 = 0.3e1 * t1214 * t3979 * t52830;
22195   t52844 = 0.4e1 * t1476 * t14758;
22196   t52846 = 0.2e1 * t4302 * t13208;
22197   t52847 = t1135 * t52822 / 0.6e1 + t2378 * t13110 * t1138 / 0.6e1 - t52829 + t52833 - 0.4e1 * t1476 * t14683 + t4427 * t2101 - 0.4e1 * t1476 * t14827 - 0.4e1 * t8342 * t3816 - 0.2e1 * t8367 * t1199 - t52844 - t52846;
22198   t52849 = t1204 * t14713 * t1470;
22199   t52852 = t4412 * t12776;
22200   t52856 = t1204 * t3763 * t7737;
22201   t52859 = t4430 * t13344;
22202   t52861 = 0.6e1 * t52859 * t12941;
22203   t52863 = 0.2e1 * t6587 * t4305;
22204   t52865 = 0.6e1 * t13345 * t51693;
22205   t52867 = t82 * t7840;
22206   t52869 = 0.2e1 * t52867 * t1144;
22207   t52871 = 0.4e1 * t14123 * t3802;
22208   t52873 = 0.4e1 * t14120 * t3812;
22209   t52875 = 0.4e1 * t14123 * t3812;
22210   t52877 = 0.4e1 * t4302 * t13102;
22211   t52878 = -0.5e1 / 0.6e1 * t3762 * t52849 + t3788 * t52852 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t52856 - t52861 - t52863 + t52865 - t916 * t13074 - t52869 - t52871 - t52873 - t52875 - t52877;
22212   t52883 = t51922 + t52705 + t52587 + t52536 + t52878 + t51835 + t51872 + t50723 + t51770 + t51899 + t50561 + t52676 + t50784 + t52732 + t50695 + t50753 + t51741 + t52791 + t50441 + t52760 + t52616 + t50499 + t52567 + t52847 + t52648 + t50529 + t50624 + t51803 + t50586 + t52819 + t50469 + t50661;
22213   t52888 = 0.12e2 * t369 * t14611 * t464;
22214   t52891 = 0.6e1 * t369 * t4424 * t1516;
22215   t52893 = 0.12e2 * t873 * t14900;
22216   t52895 = 0.3e1 * t9617 * t1221;
22217   t52897 = 0.6e1 * t3132 * t4003;
22218   t52899 = 0.3e1 * t2363 * t4454;
22219   t52904 = t370 * t52883 * params->d + 0.3e1 * t1127 * t13368 + 0.12e2 * t1219 * t9634 + 0.6e1 * t1219 * t9637 + 0.3e1 * t1219 * t9640 + 0.12e2 * t3138 * t3994 + 0.6e1 * t3141 * t3994 + t50397 + t50399 + t50406 + t50409 + t50412 + t52888 + t52891 + t52893 + t52895 + t52897 + t52899;
22220   t52909 = 0.2e1 * t368 * t14917;
22221   t52911 = 0.2e1 * t14870 * t372;
22222   t52915 = 0.2e1 * t869 * t4457;
22223   t52917 = t13356 * t1130 + t4441 * t2373 + t47169 + t50329 + 0.2e1 * t48610 + t1217 * t9643 + t872 * (t50393 + t52904) + t1123 * t13394 + t52909 + t52911 + 0.2e1 * t3989 * t3144 + t52915 + 0.2e1 * t48600;
22224   t52919 = 0.2e1 * t1216 * t3144;
22225   t52921 = 0.2e1 * t3988 * t1130;
22226   t52923 = 0.2e1 * t1122 * t4006;
22227   t52935 = 0.2e1 * t4440 * t878;
22228   t52936 = t372 * t52883 * t7 + t1224 * t9605 + 0.2e1 * t14871 * t878 + 0.2e1 * t14917 * t870 + t2359 * t4457 + 0.2e1 * t3127 * t4006 + t47165 + t47167 + t48598 + t52919 + t52921 + t52923 + t52935;
22229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22230     v4rho3sigma[3] = t52917 + t52936;
22231 
22232   t52941 = t13542 * t35071;
22233   t52961 = t4431 * t13536 - t1214 * t13535 * t2850 + 0.4e1 * t14484 * t52941 - 0.2e1 * t52867 * t1232 - 0.4e1 * t14123 * t4035 - 0.2e1 * t34672 * t1232 - 0.4e1 * t449 * t857 * t15176 - 0.2e1 / 0.3e1 * t1227 * t52633 - 0.2e1 / 0.3e1 * t4465 * t13082 - t4465 * t13093 / 0.3e1 - 0.2e1 / 0.3e1 * t4465 * t13097;
22234   t52962 = t1254 * t65;
22235   t52963 = t50650 * t52962;
22236   t52986 = -0.40e2 * t52963 * t50655 - 0.10e2 * t13415 * t50600 - 0.2e1 / 0.3e1 * t48676 * t4293 - 0.4e1 / 0.3e1 * t13424 * t14725 - 0.4e1 / 0.3e1 * t13424 * t14729 - 0.4e1 / 0.3e1 * t13424 * t14733 - 0.4e1 / 0.3e1 * t13412 * t14710 - 0.4e1 / 0.3e1 * t13424 * t14710 - 0.4e1 / 0.3e1 * t4026 * t51824 - 0.4e1 / 0.3e1 * t4026 * t51828 - 0.4e1 / 0.3e1 * t4026 * t51832;
22237   t52988 = t4079 * t35140;
22238   t52993 = t13626 * t4297;
22239   t52999 = t15354 * t61;
22240   t53000 = t400 * t52999;
22241   t53002 = 0.32e2 / 0.9e1 * t53000 * t3791;
22242   t53013 = -0.6e1 * t13345 * t52988 - 0.4e1 / 0.3e1 * t14972 * t12785 - 0.88e2 / 0.27e2 * t52993 + 0.10e2 / 0.3e1 * t4013 * t50434 + 0.5e1 / 0.3e1 * t14967 * t12754 + t53002 + 0.10e2 / 0.3e1 * t4013 * t52695 - 0.2e1 / 0.3e1 * t4026 * t50608 + 0.10e2 / 0.3e1 * t13409 * t14715 + 0.10e2 / 0.3e1 * t13402 * t14715 + 0.10e2 / 0.3e1 * t4013 * t52771;
22243   t53033 = 0.10e2 / 0.3e1 * t4013 * t51855 - 0.4e1 / 0.3e1 * t13412 * t14720 - 0.4e1 / 0.3e1 * t13424 * t14720 - 0.4e1 / 0.3e1 * t4026 * t52774 - 0.4e1 / 0.3e1 * t4026 * t52700 + 0.32e2 / 0.9e1 * t48688 - 0.80e2 / 0.9e1 * t48690 + 0.880e3 / 0.27e2 * t48696 + 0.5e1 / 0.3e1 * t14975 * t12754 + 0.10e2 / 0.3e1 * t4013 * t50442 - 0.4e1 / 0.3e1 * t4026 * t50445;
22244   t53039 = 0.16e2 / 0.9e1 * t4021 * t14807;
22245   t53041 = t2378 * t13625 * t1138;
22246   t53059 = 0.20e2 / 0.3e1 * t4013 * t50645 + t53039 - 0.88e2 / 0.27e2 * t53041 + 0.10e2 / 0.3e1 * t4013 * t52639 - 0.4e1 / 0.3e1 * t4026 * t52642 - 0.4e1 / 0.3e1 * t14978 * t12782 + 0.10e2 / 0.3e1 * t14975 * t12773 - 0.2e1 / 0.3e1 * t14972 * t12777 - 0.4e1 / 0.3e1 * t14972 * t12782 + 0.2e1 * t15192 * t751 + 0.10e2 / 0.3e1 * t13409 * t14841;
22247   t53065 = 0.32e2 / 0.9e1 * t13453 * t14844;
22248   t53071 = t2378 * t13418;
22249   t53073 = 0.32e2 / 0.9e1 * t53071 * t3791;
22250   t53074 = t48695 * t4273;
22251   t53079 = -0.4e1 / 0.3e1 * t13412 * t14844 + 0.5e1 / 0.3e1 * t4013 * t51842 + t53065 + 0.32e2 / 0.9e1 * t48706 - 0.2e1 / 0.3e1 * t4459 * t13082 + 0.20e2 / 0.3e1 * t13409 * t14763 + t53073 + 0.440e3 / 0.27e2 * t53074 - 0.160e3 / 0.9e1 * t48716 + 0.16e2 / 0.9e1 * t48720 + 0.32e2 / 0.9e1 * t48724;
22252   t53082 = 0.160e3 / 0.9e1 * t13419 * t14478;
22253   t53097 = 0.16e2 / 0.9e1 * t1392 * t15354 * t1138;
22254   t53101 = 0.16e2 / 0.9e1 * t400 * t2386 * t423 * t1138;
22255   t53103 = 0.16e2 / 0.9e1 * t15355 * t3785;
22256   t53105 = 0.16e2 / 0.9e1 * t15355 * t3795;
22257   t53106 = -t53082 + 0.20e2 / 0.3e1 * t4013 * t50592 - 0.2e1 / 0.3e1 * t4009 * t14775 - 0.2e1 / 0.3e1 * t4009 * t14778 - t4459 * t13093 / 0.3e1 - 0.2e1 / 0.3e1 * t4459 * t13097 - t4459 * t13205 / 0.3e1 + t53097 + t53101 + t53103 + t53105;
22258   t53112 = 0.160e3 / 0.3e1 * t49500 * t14706;
22259   t53114 = 0.160e3 / 0.9e1 * t13419 * t14763;
22260   t53122 = 0.22e2 / 0.9e1 * t50348;
22261   t53123 = 0.8e1 / 0.3e1 * t50350;
22262   t53124 = 0.4e1 / 0.3e1 * t50352;
22263   t53128 = -t48648 - 0.44e2 / 0.9e1 * t47569 - 0.4e1 / 0.3e1 * t47572 + 0.2e1 / 0.3e1 * t47574 - t53122 - t53123 + t53124 - 0.3e1 / 0.2e1 * t50355 + t50358 + t50361 / 0.2e1 - t50363 / 0.4e1;
22264   t53129 = my_piecewise3(t95, 0, t53128);
22265   t53140 = 0.16e2 / 0.9e1 * t13639 * t4289;
22266   t53141 = -0.2e1 * t3977 * t15346 + 0.70e2 * t49497 * t50541 + t53112 - t53114 - 0.20e2 * t48832 * t14706 - 0.2e1 * t3977 * t15376 - 0.2e1 * t449 * t363 * t53129 + t50788 * t1245 + 0.10e2 / 0.3e1 * t4013 * t50550 + 0.3e1 * t1214 * t48934 * t4433 + t53140;
22267   t53159 = 0.16e2 / 0.9e1 * t4021 * t14803;
22268   t53168 = -t6442 * t4464 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t51778 - 0.2e1 * t2440 * t4090 + 0.12e2 * t13345 * t13542 * t50790 + 0.32e2 / 0.9e1 * t48741 - 0.4e1 * t7847 * t4488 + t53159 - 0.6e1 * t52859 * t13463 - 0.20e2 * t13415 * t51819 + 0.20e2 / 0.3e1 * t4013 * t50767 - 0.20e2 * t48948 * t14706;
22269   t53189 = 0.20e2 / 0.3e1 * t4013 * t52657 + 0.8e1 / 0.9e1 * t48761 + 0.6e1 * t3977 * t15378 - 0.20e2 * t13415 * t50639 + 0.10e2 / 0.3e1 * t4013 * t50748 + 0.20e2 / 0.3e1 * t14975 * t12794 + 0.8e1 / 0.9e1 * t48768 - 0.20e2 * t13415 * t51815 + 0.20e2 / 0.3e1 * t4013 * t51744 - 0.2e1 / 0.3e1 * t1227 * t50629 - t13618 * t4297 / 0.3e1;
22270   t53197 = t13459 * t2803;
22271   t53213 = -0.2e1 / 0.3e1 * t4017 * t14775 - 0.2e1 / 0.3e1 * t4017 * t14778 - t1227 * t51774 / 0.3e1 + 0.12e2 * t14821 * t53197 - t916 * t13561 - 0.4e1 * t8342 * t4035 - 0.2e1 * t51864 * t1232 - 0.4e1 * t1476 * t15334 - 0.4e1 * t2448 * t15334 - 0.2e1 * t6587 * t4478 - 0.4e1 * t7847 * t4478;
22272   t53251 = -0.5e1 / 0.3e1 * t3939 * t1254 * t51987 - 0.10e2 / 0.3e1 * t52233 * t4094 + 0.4e1 / 0.3e1 * t51944 * t4097 - 0.10e2 / 0.3e1 * t51935 * t4094 + 0.4e1 / 0.3e1 * t51947 * t4097 - 0.10e2 / 0.3e1 * t52101 * t4094 + 0.4e1 / 0.3e1 * t52471 * t4097 - 0.10e2 / 0.3e1 * t14641 * t13672 + 0.4e1 / 0.3e1 * t14645 * t13697 - 0.10e2 / 0.3e1 * t3939 * t1254 * t51983 + 0.4e1 / 0.3e1 * t3945 * t1254 * t52225 + 0.2e1 / 0.3e1 * t3945 * t1254 * t52229;
22273   t53259 = t1397 * t14623 * t57;
22274   t53271 = t3950 * t57;
22275   t53283 = -0.5e1 / 0.3e1 * t47769 * t4531 - 0.20e2 / 0.3e1 * t13663 * t52019 - 0.20e2 / 0.3e1 * t49379 * t14512 - 0.20e2 / 0.3e1 * t53259 * t14512 - 0.20e2 / 0.3e1 * t49383 * t14512 + 0.10e2 * t52127 * t13678 + 0.20e2 * t26602 * t15098 * t14503 - 0.20e2 / 0.3e1 * t49379 * t14507 + 0.20e2 * t6453 * t53271 * t14503 - 0.20e2 / 0.3e1 * t49383 * t14507 + 0.20e2 * t15099 * t52076 - 0.20e2 / 0.3e1 * t13663 * t52014 + 0.20e2 * t15099 * t52244;
22276   t53287 = 0.80e2 / 0.9e1 * t14641 * t13681;
22277   t53289 = 0.32e2 / 0.9e1 * t14645 * t13684;
22278   t53293 = 0.80e2 / 0.9e1 * t14662 * t13681;
22279   t53295 = t3945 * t13726 * t4400;
22280   t53302 = 0.80e2 / 0.9e1 * t3939 * t4102 * t14654;
22281   t53305 = 0.32e2 / 0.9e1 * t3945 * t4102 * t14658;
22282   t53307 = 0.80e2 / 0.9e1 * t13260 * t15095;
22283   t53309 = 0.80e2 / 0.9e1 * t13266 * t15095;
22284   t53310 = t7591 * t13662;
22285   t53313 = 0.160e3 / 0.9e1 * t49235 + t53287 - t53289 + 0.10e2 * t52137 * t13678 + t53293 + 0.176e3 / 0.27e2 * t53295 + 0.10e2 * t13251 * t1254 * t52133 + t53302 - t53305 + t53307 + t53309 - 0.20e2 / 0.3e1 * t53310 * t13248;
22286   t53315 = 0.160e3 / 0.9e1 * t49234 * t14512;
22287   t53327 = t1397 * t14644 * t57;
22288   t53342 = t53315 - 0.20e2 / 0.3e1 * t13663 * t52061 - 0.10e2 / 0.3e1 * t47654 * t4531 + 0.10e2 * t15099 * t52248 - 0.20e2 / 0.3e1 * t13663 * t52038 - 0.20e2 / 0.3e1 * t13663 * t52044 - 0.20e2 / 0.3e1 * t53327 * t13248 - 0.10e2 / 0.3e1 * t47772 * t4531 - 0.10e2 / 0.3e1 * t13260 * t15068 - 0.10e2 / 0.3e1 * t13260 * t15071 - 0.5e1 / 0.3e1 * t47735 * t4531 - 0.10e2 / 0.3e1 * t13266 * t15068 + 0.2e1 / 0.3e1 * t14645 * t13700;
22289   t53363 = t26389 * t15098;
22290   t53370 = 0.32e2 / 0.9e1 * t14614 * t13684;
22291   t53371 = 0.2e1 / 0.3e1 * t47724 * t4534 + 0.4e1 / 0.3e1 * t52182 * t4534 + 0.4e1 / 0.3e1 * t47726 * t4534 + 0.4e1 / 0.3e1 * t13263 * t15080 + 0.4e1 / 0.3e1 * t13263 * t15083 + 0.2e1 / 0.3e1 * t52195 * t4534 + 0.4e1 / 0.3e1 * t52199 * t4534 + 0.4e1 / 0.3e1 * t14624 * t15080 + 0.4e1 / 0.3e1 * t14624 * t15083 - 0.70e2 * t53363 * t52371 - 0.8e1 * t400 * t1258 * t7737 - t53370;
22292   t53396 = -0.8e1 * t400 * t13742 * t912 - 0.32e2 / 0.9e1 * t49244 - 0.16e2 / 0.9e1 * t49247 + 0.80e2 / 0.9e1 * t49267 - 0.32e2 / 0.9e1 * t49269 + 0.80e2 / 0.9e1 * t49273 + 0.2e1 / 0.3e1 * t47710 * t4534 + 0.4e1 / 0.3e1 * t13281 * t15080 + 0.4e1 / 0.3e1 * t13281 * t15083 + 0.2e1 / 0.3e1 * t3945 * t1254 * t52083 + 0.4e1 / 0.3e1 * t3945 * t1254 * t52087 + 0.2e1 / 0.3e1 * t14614 * t13700 - 0.10e2 / 0.3e1 * t13266 * t15058;
22293   t53409 = t3939 * t13726 * t4396;
22294   t53420 = 0.4e1 / 0.3e1 * t13281 * t15061 - 0.10e2 / 0.3e1 * t14662 * t13672 + 0.4e1 / 0.3e1 * t14614 * t13697 - 0.10e2 / 0.3e1 * t52098 * t4094 + 0.4e1 / 0.3e1 * t52467 * t4097 - 0.440e3 / 0.27e2 * t53409 - 0.16e2 * t1392 * t15108 - 0.16e2 * t400 * t4114 * t2436 - 0.8e1 / 0.9e1 * t49349 - 0.8e1 / 0.9e1 * t49351 - 0.16e2 / 0.9e1 * t49353 - 0.16e2 / 0.9e1 * t49355;
22295   t53443 = -0.8e1 / 0.9e1 * t49357 - 0.16e2 / 0.9e1 * t49360 + 0.176e3 / 0.27e2 * t49363 - 0.16e2 / 0.9e1 * t49365 + 0.176e3 / 0.27e2 * t49367 - t49372 + 0.176e3 / 0.27e2 * t49375 - 0.16e2 * t1392 * t15163 - 0.16e2 * t400 * t15182 * t443 - 0.16e2 * t400 * t15185 * t443 - 0.8e1 * t400 * t4547 * t1470 - 0.16e2 * t1392 * t15166 + 0.40e2 * t1397 * t4547 * t1398;
22296   t53471 = t4393 * t13719 / 0.3e1 + t52319 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t52322 * t1255 + 0.2e1 / 0.3e1 * t14545 * t4106 + t52437 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t14549 * t4106 + t4405 * t13719 / 0.3e1 + t13311 * t4539 / 0.3e1 + 0.2e1 / 0.3e1 * t13314 * t4539 + 0.2e1 / 0.3e1 * t3936 * t15135 + t13322 * t4539 / 0.3e1 + 0.2e1 / 0.3e1 * t3951 * t15135;
22297   t53488 = 0.16e2 / 0.9e1 * t4405 * t13716;
22298   t53502 = t1202 * t1254 * t52341 / 0.3e1 + t52330 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t52333 * t1255 + 0.2e1 / 0.3e1 * t14534 * t4106 + t52306 * t1255 / 0.3e1 + 0.2e1 / 0.3e1 * t14537 * t4106 + 0.2e1 / 0.3e1 * t52338 * t1255 - t53488 + 0.2e1 / 0.3e1 * t13308 * t4539 - 0.8e1 * t400 * t13736 * t912 - 0.16e2 * t400 * t13739 * t912 + 0.40e2 * t1397 * t4550 * t1398 + 0.40e2 * t7591 * t13687;
22299   t53504 = t1201 * t423;
22300   t53507 = 0.160e3 / 0.3e1 * t6453 * t53504 * t14503;
22301   t53509 = 0.160e3 / 0.9e1 * t49234 * t14507;
22302   t53531 = -t53507 + t53509 + 0.20e2 * t49228 * t52080 - 0.5e1 / 0.3e1 * t14662 * t13675 + 0.2e1 / 0.3e1 * t3945 * t1254 * t52091 - 0.5e1 / 0.3e1 * t14641 * t13675 - 0.10e2 / 0.3e1 * t13260 * t15058 + 0.4e1 / 0.3e1 * t13263 * t15061 - 0.8e1 * t2378 * t13659 - 0.8e1 * t6442 * t4544 - 0.16e2 * t1392 * t15149 - 0.16e2 * t1392 * t15153;
22303   t53544 = 0.16e2 / 0.9e1 * t14534 * t4103;
22304   t53546 = 0.16e2 / 0.9e1 * t14549 * t4103;
22305   t53548 = 0.16e2 / 0.9e1 * t3951 * t15138;
22306   t53551 = 0.16e2 / 0.9e1 * t1202 * t4102 * t14582;
22307   t53553 = t1202 * t13726 * t4412;
22308   t53557 = t4405 * t13727;
22309   t53559 = t4393 * t13727;
22310   t53561 = 0.4e1 * t881 * t13739 + 0.2e1 * t881 * t13742 + 0.2e1 * t81 * t928 * t13435 + 0.2e1 * t1391 * t4550 + 0.40e2 * t49228 * t52121 - t53544 - t53546 - t53548 - t53551 + 0.88e2 / 0.27e2 * t53553 + 0.2e1 / 0.3e1 * t52350 * t1255 + 0.88e2 / 0.27e2 * t53557 + 0.88e2 / 0.27e2 * t53559;
22311   t53565 = 0.16e2 / 0.9e1 * t3936 * t15138;
22312   t53567 = 0.16e2 / 0.9e1 * t14537 * t4103;
22313   t53569 = 0.16e2 / 0.9e1 * t4393 * t13716;
22314   t53571 = 0.16e2 / 0.9e1 * t14545 * t4103;
22315   t53590 = -t53565 - t53567 - t53569 - t53571 - 0.16e2 * t7763 * t4111 - 0.16e2 * t2378 * t13692 - 0.16e2 * t2378 * t13656 + 0.2e1 * t81 * t1516 * t4483 + 0.4e1 * t81 * t464 * t15176 + 0.2e1 * t81 * t96 * t53129 + 0.80e2 * t34464 * t15160 - 0.880e3 / 0.27e2 * t49424;
22316   t53613 = 0.80e2 / 0.9e1 * t3939 * t4102 * t14672;
22317   t53614 = 0.352e3 / 0.27e2 * t49427 + 0.80e2 / 0.9e1 * t49430 + 0.40e2 / 0.9e1 * t49433 - 0.240e3 * t34500 * t15159 * t1398 + 0.2e1 * t7775 * t1258 + 0.4e1 * t2377 * t4114 + 0.4e1 * t2377 * t4117 - 0.10e2 / 0.3e1 * t13663 * t52023 - 0.10e2 / 0.3e1 * t13663 * t52048 - 0.80e2 / 0.3e1 * t49443 - 0.32e2 / 0.9e1 * t49454 + 0.2e1 * t881 * t13736 + t53613;
22318   t53618 = 0.80e2 / 0.9e1 * t3939 * t4102 * t14617;
22319   t53631 = 0.32e2 / 0.9e1 * t13263 * t15055;
22320   t53633 = 0.32e2 / 0.9e1 * t14624 * t15055;
22321   t53635 = 0.32e2 / 0.9e1 * t13281 * t15055;
22322   t53638 = 0.32e2 / 0.9e1 * t3945 * t4102 * t14633;
22323   t53641 = 0.32e2 / 0.9e1 * t3945 * t4102 * t14637;
22324   t53647 = t53618 - 0.10e2 / 0.3e1 * t13266 * t15071 - 0.5e1 / 0.3e1 * t3939 * t1254 * t52208 - 0.10e2 / 0.3e1 * t3939 * t1254 * t52212 - 0.5e1 / 0.3e1 * t3939 * t1254 * t52216 - t53631 - t53633 - t53635 - t53638 - t53641 + 0.40e2 * t7757 * t15159 * t1470 + 0.2e1 * t1391 * t4547;
22325   t53684 = 0.80e2 * t1231 * t2436 * t443 * t7757 + 0.80e2 * t4041 * t443 * t7757 * t912 + 0.2e1 * t1231 * t7840 * t81 - 0.8e1 * t1470 * t400 * t4550 - 0.16e2 * t15169 * t400 * t443 - 0.16e2 * t15177 * t400 * t443 - 0.16e2 * t2436 * t400 * t4117 + 0.4e1 * t2478 * t4041 * t81 + 0.80e2 * t15160 * t36427 + 0.4e1 * t15169 * t397 + 0.4e1 * t15177 * t397 + 0.4e1 * t15182 * t397 + 0.4e1 * t15185 * t397;
22326   t53703 = -0.2e1 * t449 * t13561 * t928 - 0.4e1 * t14120 * t4042 - 0.4e1 * t14123 * t4042 - 0.4e1 * t4302 * t13612 + (t53251 + t53283 + t53313 + t53342 + t53371 + t53396 + t53420 + t53443 + t53471 + t53502 + t53531 + t53561 + t53590 + t53614 + t53647 + t53684) * t227 - 0.2e1 * t3977 * t15382 - 0.80e2 / 0.9e1 * t48797 - 0.2e1 * t1214 * t4076 * t7972 - 0.2e1 * t6587 * t4484 + 0.6e1 * t1214 * t13604 * t14489 - 0.2e1 / 0.3e1 * t4026 * t52852;
22327   t53708 = 0.16e2 / 0.9e1 * t7763 * t4020 * t1138;
22328   t53711 = 0.16e2 / 0.9e1 * t2378 * t13638 * t1138;
22329   t53713 = 0.16e2 / 0.9e1 * t15388 * t3785;
22330   t53715 = 0.16e2 / 0.9e1 * t15388 * t3795;
22331   t53729 = t13538 * t9882;
22332   t53732 = t53708 + t53711 + t53713 + t53715 - 0.12e2 * t14821 * t4079 * t50691 - t13642 * t4297 / 0.3e1 - 0.2e1 / 0.3e1 * t13645 * t4297 + 0.10e2 / 0.3e1 * t13409 * t14159 + 0.10e2 / 0.3e1 * t13409 * t14164 + 0.2e1 * t4431 * t13585 - 0.6e1 * t13345 * t53729;
22333   t53740 = 0.32e2 / 0.9e1 * t48687 * t4293;
22334   t53742 = 0.32e2 / 0.9e1 * t48705 * t4293;
22335   t53744 = 0.32e2 / 0.9e1 * t13453 * t14725;
22336   t53746 = 0.32e2 / 0.9e1 * t13453 * t14729;
22337   t53747 = t48807 + 0.8e1 / 0.9e1 * t48809 + 0.16e2 / 0.9e1 * t48814 + 0.16e2 / 0.9e1 * t48816 + 0.16e2 / 0.9e1 * t48818 + 0.16e2 / 0.9e1 * t48820 - t4431 * t13636 + t53740 + t53742 + t53744 + t53746;
22338   t53750 = 0.32e2 / 0.9e1 * t13453 * t14733;
22339   t53753 = t6445 * t14966;
22340   t53756 = t15014 * t61;
22341   t53757 = t1397 * t53756;
22342   t53764 = t34313 * t4012;
22343   t53767 = t7591 * t13418;
22344   t53769 = 0.80e2 / 0.9e1 * t53767 * t3765;
22345   t53771 = 0.80e2 / 0.9e1 * t13419 * t14164;
22346   t53773 = 0.80e2 / 0.9e1 * t48796 * t4273;
22347   t53775 = 0.32e2 / 0.9e1 * t13453 * t14710;
22348   t53776 = t53750 + 0.5e1 / 0.3e1 * t4013 * t52856 + 0.10e2 / 0.3e1 * t53753 * t3765 + 0.10e2 / 0.3e1 * t53757 * t3765 + 0.10e2 / 0.3e1 * t14967 * t12768 + 0.10e2 / 0.3e1 * t14967 * t12773 - 0.10e2 * t53764 * t13161 - t53769 - t53771 - t53773 + t53775;
22349   t53780 = t174 * t15285;
22350   t53797 = -0.176e3 / 0.27e2 * t48850 - 0.176e3 / 0.27e2 * t48852 - 0.176e3 / 0.27e2 * t48854 + 0.6e1 * t1214 * t53780 * t3980 - 0.4e1 / 0.3e1 * t13424 * t14844 - 0.20e2 * t13415 * t50596 + 0.20e2 / 0.3e1 * t4013 * t50546 + 0.20e2 / 0.3e1 * t14967 * t12794 - t13214 * t4561 - t1227 * t52822 / 0.3e1 + 0.20e2 / 0.3e1 * t13402 * t14763;
22351   t53804 = t7763 * t4012;
22352   t53807 = t2378 * t13401;
22353   t53827 = -t1227 * t50731 / 0.3e1 - 0.4e1 / 0.3e1 * t53804 * t3791 - 0.4e1 / 0.3e1 * t53807 * t3791 + 0.6e1 * t3977 * t15385 + 0.20e2 / 0.3e1 * t13409 * t14478 + 0.20e2 / 0.3e1 * t13402 * t14478 + 0.20e2 / 0.3e1 * t4013 * t51932 + 0.20e2 / 0.3e1 * t4013 * t50423 + 0.20e2 / 0.3e1 * t4013 * t51859 - 0.4e1 * t449 * t3091 * t4041 - t1214 * t4514 * t5856;
22354   t53836 = 0.16e2 / 0.9e1 * t13592 * t4297;
22355   t53838 = 0.16e2 / 0.9e1 * t13639 * t4297;
22356   t53840 = 0.16e2 / 0.9e1 * t4021 * t14775;
22357   t53842 = 0.16e2 / 0.9e1 * t4021 * t14778;
22358   t53854 = -0.2e1 * t1214 * t15286 * t3985 - 0.2e1 * t4302 * t13427 - 0.2e1 / 0.3e1 * t15025 * t3795 + t53836 + t53838 + t53840 + t53842 - t34292 * t1226 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t7763 * t4016 * t1138 - 0.2e1 / 0.3e1 * t15025 * t3785 - t2378 * t13617 * t1138 / 0.3e1;
22359   t53862 = t400 * t883 * t202 * t1138;
22360   t53871 = 0.80e2 / 0.9e1 * t49461 * t4273;
22361   t53876 = 0.16e2 / 0.9e1 * t13592 * t4289;
22362   t53879 = t13626 * t4289;
22363   t53881 = -0.2e1 / 0.3e1 * t15031 * t3785 - 0.2e1 / 0.3e1 * t15031 * t3795 - 0.88e2 / 0.27e2 * t53862 - 0.4e1 * t34632 * t1232 + 0.10e2 / 0.3e1 * t4013 * t50438 - 0.4e1 * t1476 * t15052 - t53871 - 0.2e1 * t449 * t9601 * t1231 + t53876 - t4465 * t13205 / 0.3e1 - 0.88e2 / 0.27e2 * t53879;
22364   t53903 = -0.2e1 / 0.3e1 * t1227 * t52738 - 0.40e2 / 0.9e1 * t48890 - 0.80e2 / 0.9e1 * t48896 + 0.10e2 / 0.3e1 * t13409 * t14855 + 0.5e1 / 0.3e1 * t48845 * t4273 + 0.10e2 / 0.3e1 * t13402 * t14159 + 0.10e2 / 0.3e1 * t13402 * t14164 - 0.2e1 / 0.3e1 * t4026 * t50511 - 0.4e1 / 0.3e1 * t4026 * t50515 - 0.4e1 * t9859 * t4035 - 0.2e1 * t449 * t2331 * t4483;
22365   t53906 = t34310 * t4012;
22366   t53909 = t7591 * t13401;
22367   t53947 = t13502 * t1030;
22368   t53972 = 0.7e1 / 0.144e3 * t51485;
22369   t53973 = 0.7e1 / 0.576e3 * t51487;
22370   t53976 = -0.119e3 / 0.432e3 * t48303 - 0.35e2 / 0.288e3 * t48305 + 0.7e1 / 0.288e3 * t48307 + t51479 / 0.96e2 - 0.7e1 / 0.576e3 * t48311 - 0.119e3 / 0.1728e4 * t48315 + 0.7e1 / 0.1152e4 * t48319 + 0.7e1 / 0.1152e4 * t48332 - t53972 + t53973 + t51489 / 0.96e2 + t51491 / 0.192e3;
22371   t53983 = 0.119e3 / 0.864e3 * t51506;
22372   t53984 = 0.7e1 / 0.144e3 * t51508;
22373   t53987 = 0.7e1 / 0.288e3 * t51516;
22374   t53990 = t51494 / 0.192e3 + t51496 / 0.384e3 + t51498 / 0.192e3 - t51500 / 0.384e3 - t51502 / 0.768e3 - 0.5e1 / 0.192e3 * t51504 - t53983 + t53984 - t51510 / 0.192e3 - 0.5e1 / 0.96e2 * t51512 - t53987 + t51518 / 0.96e2 + t51520 / 0.192e3;
22375   t53995 = 0.35e2 / 0.144e3 * t51531;
22376   t53998 = 0.7e1 / 0.576e3 * t51537;
22377   t54000 = 0.119e3 / 0.3456e4 * t51541;
22378   t54002 = 0.7e1 / 0.12e2 * t51546;
22379   t54003 = -t51526 / 0.128e3 - t51528 / 0.48e2 - t49115 - 0.7e1 / 0.144e3 * t48346 - t49122 - t53995 + 0.5e1 / 0.96e2 * t51533 + 0.5e1 / 0.192e3 * t51535 + t53998 - t51539 / 0.768e3 - t54000 - 0.5e1 / 0.32e2 * t51543 - t54002;
22380   t54007 = 0.7e1 / 0.144e3 * t51557;
22381   t54014 = 0.35e2 / 0.108e3 * t51571;
22382   t54015 = 0.7e1 / 0.36e2 * t51573;
22383   t54017 = t51550 / 0.4e1 + t51553 / 0.8e1 - t51555 / 0.768e3 - t54007 - t51562 / 0.2e1 + t51564 / 0.128e3 - t51566 / 0.96e2 - 0.7e1 / 0.24e2 * t48363 - 0.35e2 / 0.54e2 * t48369 + 0.7e1 / 0.72e2 * t48371 - t54014 + t54015 - t51575 / 0.24e2;
22384   t54019 = t53976 + t53990 + t54003 + t54017;
22385   t54025 = t6259 * t1237;
22386   t54029 = 0.2e1 * t51368 * t15270 - 0.4e1 * t13011 * t49077 * t14395 - 0.4e1 * t13011 * t13502 * t51374 - 0.6e1 * t4061 * t8233 + 0.4e1 * t13485 * t2819 + t14400 * t13502 * t51339 - 0.2e1 * t13011 * t13502 * t51449 - 0.4e1 * t48263 * t15242 - 0.12e2 * t3905 * t13005 * t15246 * t743 + 0.2e1 * t12998 * t15279 + t3905 * t3911 * t1237 * t8196 * t194 + 0.12e2 * t48287 * t53947 * t13014 + 0.24e2 * t3905 * t48379 * t4502 * t2061 + 0.2e1 * t14400 * t49077 * t14414 - 0.4e1 * t51423 * t13503 - 0.12e2 * t3905 * t13005 * t15250 * t743 - t1185 * t1186 * t196 * t54019 + 0.2e1 * t51359 * t4070 + 0.6e1 * t14400 * t54025 * t51343;
22387   t54045 = t15223 * t187;
22388   t54078 = -0.6e1 * t14400 * t15258 * t51347 + 0.6e1 * t48287 * t13502 * t51419 - 0.2e1 * t13011 * t13502 * t51428 + t14400 * t13502 * t51387 + 0.2e1 * t4061 * t8241 + 0.4e1 * t51359 * t4065 - 0.2e1 * t54045 * t744 + 0.2e1 * t14369 * t13521 + t14369 * t13526 + 0.2e1 * t12998 * t15264 + t48411 * t4508 + params->beta * t54019 * t221 - t4061 * t8295 - 0.4e1 * t51368 * t15259 + 0.2e1 * t14400 * t13502 * t35868 + 0.4e1 * t13011 * t15258 * t51445 - 0.2e1 * t13011 * t13502 * t51455 + 0.2e1 * t3905 * t3906 * t1237 * t8294 + 0.2e1 * t14369 * t13511 - 0.4e1 * t13011 * t13502 * t1013 * t13014;
22389   t54080 = t1887 * t4058;
22390   t54089 = t694 * t4497;
22391   t54095 = t4497 * t1891;
22392   t54141 = -0.4e1 * t14400 * t54080 * t14402 - 0.4e1 * t14400 * t15258 * t35312 - 0.4e1 * t48263 * t15255 - 0.4e1 * t13011 * t54089 * t13014 + 0.4e1 * t12998 * t15247 - 0.2e1 * t3905 * t13026 * t54095 * t1892 + 0.2e1 * t48411 * t4503 - 0.4e1 * t13011 * t49077 * t14381 - 0.12e2 * t12998 * t15239 + 0.4e1 * t3905 * t3906 * t15222 * t743 - 0.2e1 * t13485 * t2842 + t3905 * t3911 * t54095 * t194 + 0.8e1 * t13011 * t15258 * t1013 * t51627 - 0.2e1 * t3903 * t15282 + 0.2e1 * t3905 * t3906 * t13482 * t1030 - 0.6e1 * t3905 * t13005 * t4497 * t2061 + 0.2e1 * t12998 * t15268 + 0.2e1 * t3905 * t3911 * t4058 * t2784 * t194 - t49184 * t1031 - 0.2e1 * t14400 * t15258 * t51333;
22393   t54191 = -t15225 * t2080 + 0.4e1 * t12998 * t15274 - t12996 * t4511 - 0.6e1 * t14369 * t13499 - t4364 * t13532 + 0.4e1 * t4061 * t8237 - t51632 * t1241 + 0.2e1 * t15225 * t2062 + 0.4e1 * t14369 * t13507 + 0.4e1 * t12998 * t15251 - 0.6e1 * t3905 * t13005 * t4502 * t2079 - 0.2e1 * t14369 * t13516 + t3905 * t3911 * t13482 * t1013 * t194 + 0.2e1 * t3905 * t3906 * t4497 * t2079 + 0.2e1 * t3905 * t3911 * t15222 * t707 * t194 + t3905 * t3911 * t4497 * t2018 * t194 + 0.4e1 * t3905 * t3906 * t4058 * t2841 + t14369 * t13529 - 0.4e1 * t13011 * t13502 * t51329 - 0.2e1 * t14367 * t4073;
22394   t54195 = t175 * (t54029 + t54078 + t54141 + t54191) * t748;
22395   t54204 = t4079 * t36018;
22396   t54209 = 0.10e2 / 0.3e1 * t53906 * t3765 + 0.10e2 / 0.3e1 * t53909 * t3765 + 0.10e2 / 0.3e1 * t14975 * t12768 + 0.10e2 / 0.3e1 * t13402 * t14841 + 0.2e1 * t14863 * t4077 + t1214 * t54195 - 0.4e1 * t52539 * t1232 - 0.4e1 * t14120 * t4035 - 0.2e1 * t449 * t1110 * t13435 - 0.6e1 * t13345 * t54204 + 0.2e1 * t3977 * t15287;
22397   t54224 = t48960 * t4293;
22398   t54229 = 0.80e2 / 0.9e1 * t13419 * t14715;
22399   t54232 = -0.2e1 * t29803 * t1232 - 0.2e1 * t8308 * t4484 - 0.4e1 * t2448 * t15001 - 0.2e1 / 0.3e1 * t4026 * t50755 + 0.10e2 / 0.3e1 * t13402 * t14855 + 0.5e1 / 0.3e1 * t4013 * t50720 + 0.10e2 / 0.3e1 * t4013 * t50725 - 0.176e3 / 0.27e2 * t54224 - 0.10e2 * t13415 * t52766 - t54229 + 0.3e1 * t4431 * t13448;
22400   t54252 = t4079 * t50770;
22401   t54257 = -0.2e1 / 0.3e1 * t1392 * t15014 * t1138 - 0.2e1 / 0.3e1 * t15011 * t3785 - 0.2e1 / 0.3e1 * t15011 * t3795 - 0.4e1 * t7847 * t4484 - 0.4e1 * t1476 * t15001 - 0.2e1 * t4431 * t13595 - 0.2e1 * t2442 * t13575 - 0.2e1 * t8367 * t1252 + 0.16e2 / 0.9e1 * t48953 - 0.3e1 * t13345 * t54252 + 0.6e1 * t4431 * t13749;
22402   t54261 = 0.80e2 / 0.9e1 * t13419 * t14855;
22403   t54262 = t6453 * t14966;
22404   t54265 = t1397 * t52999;
22405   t54267 = 0.80e2 / 0.9e1 * t54265 * t3765;
22406   t54273 = 0.32e2 / 0.9e1 * t13453 * t14720;
22407   t54274 = t173 * t4513;
22408   t54283 = -0.4e1 / 0.3e1 * t14978 * t12785 - t54261 - 0.10e2 * t54262 * t13161 - t54267 + 0.5e1 / 0.3e1 * t4013 * t50460 + 0.5e1 / 0.3e1 * t4013 * t52849 + t54273 + 0.6e1 * t1214 * t54274 * t13106 + 0.5e1 / 0.3e1 * t48793 * t4273 + 0.10e2 / 0.3e1 * t48842 * t4273 - 0.352e3 / 0.27e2 * t48961;
22409   t54310 = t13746 * t1037 + 0.16e2 / 0.9e1 * t48967 + 0.8e1 / 0.9e1 * t48974 - t400 * t7713 * t57 * t1138 / 0.3e1 - 0.2e1 / 0.3e1 * t15015 * t3785 - 0.2e1 / 0.3e1 * t15015 * t3795 - 0.2e1 * t2442 * t13427 - 0.2e1 * t449 * t1252 * t7840 + 0.6e1 * t14863 * t4125 + 0.2e1 * t1214 * t4514 * t13138 + 0.6e1 * t3977 * t15348;
22410   t54326 = t13542 * t51683;
22411   t54334 = t13538 * t14437;
22412   t54343 = t169 * t4124;
22413   t54346 = t169 * t13748;
22414   t54355 = t4079 * t36014;
22415   t54358 = t48999 * t14443;
22416   t54361 = t13542 * t36010;
22417   t54368 = t15285 * t748;
22418   t54374 = -0.2e1 * t13538 * t2844 * t2849 + 0.3e1 * t15206 * t1768 * t1881 + 0.6e1 * t15206 * t1868 * t2857 - t15289 * t2082 * t2849 + 0.3e1 * t1768 * t4049 * t8011 + 0.3e1 * t1768 * t49005 * t999 + 0.6e1 * t1768 * t54368 * t677 - t2849 * t4079 * t8297 - 0.3e1 * t1768 * t54252 - 0.6e1 * t1768 * t54334 - 0.3e1 * t1768 * t54355 + 0.6e1 * t1768 * t54361 + 0.4e1 * t2849 * t54358 + 0.6e1 * t32294 * t4491 - 0.12e2 * t35118 * t54346 + 0.12e2 * t51281 * t54343;
22419   t54377 = t49014 * t51254;
22420   t54384 = t4049 * t8144;
22421   t54387 = t4049 * t8149;
22422   t54390 = t15285 * t2093;
22423   t54399 = t4079 * t51258;
22424   t54409 = t4513 * t6117;
22425   t54413 = t15289 * t7870;
22426   t54416 = -t1033 * t2849 * t48993 + 0.6e1 * t13459 * t1768 * t2728 + 0.2e1 * t2090 * t2849 * t54409 - 0.2e1 * t2849 * t54390 * t746 + t169 * t54195 - 0.6e1 * t1768 * t52988 - 0.6e1 * t1768 * t53729 - 0.6e1 * t1768 * t54204 - 0.6e1 * t1768 * t54413 + 0.4e1 * t2849 * t52941 + 0.2e1 * t2849 * t54326 - 0.6e1 * t2849 * t54377 + 0.12e2 * t2857 * t53197 + 0.12e2 * t2857 * t54384 + 0.6e1 * t2857 * t54387 - 0.6e1 * t2857 * t54399;
22427   t54417 = t54374 + t54416;
22428   t54418 = my_piecewise3(t296, 0, t54417);
22429   t54432 = my_piecewise3(t359, 0, t54417);
22430   t54446 = t54418 * t34 / 0.2e1 + t15301 * t413 + t4520 * t1454 / 0.2e1 + t13549 * t886 / 0.2e1 + 0.2e1 * t4083 * t4 * t377 + t1247 * t377 - 0.3e1 * t15308 * t15 + t54432 * t46 / 0.2e1 + t15310 * t436 + t4523 * t1463 / 0.2e1 + t13555 * t905 / 0.2e1 - 0.2e1 * t4086 * t4 * t377 - t1249 * t377 + 0.3e1 * t15317 * t15;
22431   t54450 = 0.3e1 * t13214 * t4557 + 0.4e1 * t52755 * t14992 - t8340 * t1252 - 0.2e1 * t14863 * t4129 + 0.3e1 * t1214 * t15384 * t13130 - 0.80e2 / 0.9e1 * t49462 - 0.4e1 * t1476 * t15343 - 0.2e1 * t2442 * t13436 + 0.2e1 * t14484 * t54326 - t98 * t54446 - 0.2e1 * t8308 * t4488;
22432   t54468 = 0.80e2 / 0.9e1 * t13419 * t14841;
22433   t54470 = 0.80e2 / 0.9e1 * t13419 * t14159;
22434   t54475 = -0.4e1 * t2448 * t15052 - 0.176e3 / 0.27e2 * t49474 + 0.6e1 * t1214 * t1868 * t1243 * t4433 + 0.6e1 * t13345 * t54361 + 0.3e1 * t1214 * t4124 * t52830 - t1474 * t4527 - 0.10e2 * t13415 * t51877 - t54468 - t54470 - 0.2e1 * t6587 * t4488 - 0.4e1 * t8342 * t4042;
22435   t54498 = -0.4e1 * t1476 * t15323 - 0.4e1 * t2448 * t15323 - 0.4e1 * t449 * t4090 * t2478 + t1261 * t8303 - 0.2e1 / 0.3e1 * t4026 * t52806 - 0.4e1 / 0.3e1 * t4026 * t52809 - 0.4e1 / 0.3e1 * t4026 * t52812 - 0.2e1 / 0.3e1 * t48929 * t4293 - 0.4e1 / 0.3e1 * t48902 * t4293 - 0.4e1 / 0.3e1 * t13412 * t14725 - 0.4e1 / 0.3e1 * t13412 * t14729;
22436   t54521 = -0.4e1 / 0.3e1 * t13412 * t14733 - 0.4e1 * t1476 * t15326 - 0.4e1 * t449 * t15319 * t464 + t4553 * t2101 - 0.4e1 * t2442 * t13612 - 0.4e1 * t8342 * t4046 + 0.16e2 / 0.9e1 * t49493 + 0.2e1 * t4120 * t2866 - 0.6e1 * t47378 * t15022 - 0.3e1 * t13345 * t54355 + 0.80e2 / 0.3e1 * t49501;
22437   t54543 = -0.4e1 * t1476 * t15045 - 0.2e1 / 0.3e1 * t13645 * t4289 - 0.2e1 / 0.3e1 * t4009 * t14803 - 0.2e1 / 0.3e1 * t4009 * t14807 - t13618 * t4289 / 0.3e1 - 0.2e1 / 0.3e1 * t4017 * t14803 - 0.2e1 / 0.3e1 * t4017 * t14807 - t13642 * t4289 / 0.3e1 - t1227 * t52734 / 0.3e1 - 0.4e1 * t2442 * t13580 + t13214 * t4515;
22438   t54560 = t1392 * t14966;
22439   t54563 = t400 * t53756;
22440   t54570 = -0.2e1 * t8308 * t4478 - 0.4e1 * t2448 * t15343 - 0.4e1 * t2448 * t15045 - 0.2e1 * t449 * t4527 * t1516 - t1214 * t1244 * t31387 - 0.6e1 * t13345 * t54413 - 0.2e1 / 0.3e1 * t4026 * t50577 - 0.4e1 / 0.3e1 * t54560 * t3791 - 0.4e1 / 0.3e1 * t54563 * t3791 - 0.2e1 / 0.3e1 * t14978 * t12777 - 0.6e1 * t14484 * t54377;
22441   t54595 = -0.6e1 * t13345 * t54334 - 0.2e1 * t13436 * t4302 + 0.6e1 * t13605 * t4431 + 0.4e1 * t14484 * t54358 - 0.2e1 * t1482 * t4527 + 0.12e2 * t14821 * t54384 + 0.6e1 * t14821 * t54387 - 0.6e1 * t14821 * t54399 - 0.6e1 * t14996 * t47378 + 0.12e2 * t15195 * t51904 - 0.2e1 * t15319 * t447 - 0.4e1 * t4042 * t9859;
22442   t54600 = t53168 + t53854 + t54450 + t53141 + t54595 + t53213 + t53827 + t54209 + t54521 + t53797 + t53033 + t53747 + t53903 + t53079 + t53732 + t54232 + t53106 + t54310 + t52986 + t53013 + t54283 + t53059 + t53189 + t52961 + t53881 + t54475 + t54257 + t54543 + t54570 + t53703 + t54498 + t53776;
22443   t54608 = 0.2e1 * t4131 * t1130;
22444   t54610 = 0.2e1 * t15400 * t372;
22445   t54614 = 0.2e1 * t1122 * t4149;
22446   t54615 = t372 * t54600 * t7 + t1123 * t13796 + t1130 * t13758 + t1265 * t9643 + t2359 * t4580 + t2373 * t4564 + 0.2e1 * t3127 * t4149 + t48621 + t48629 + t48631 + t54608 + t54610 + t54614;
22447   t54617 = 0.2e1 * t368 * t15447;
22448   t54621 = 0.2e1 * t869 * t4580;
22449   t54661 = 0.6e1 * t1258 * t369 * t7840 + 0.6e1 * t13736 * t369 * t928 + 0.12e2 * t13739 * t369 * t928 + 0.12e2 * t2478 * t369 * t4114 + 0.3e1 * t369 * t53129 * t97 + 0.12e2 * t1125 * t13787 + 0.6e1 * t1125 * t13790 + 0.3e1 * t1125 * t13793 + 0.3e1 * t1127 * t13770 + 0.6e1 * t1267 * t9631 + 0.12e2 * t1267 * t9634 + 0.6e1 * t1267 * t9637 + 0.12e2 * t15430 * t873 + 0.12e2 * t15433 * t873 + 0.12e2 * t15436 * t873 + 0.3e1 * t2370 * t4568 + 0.12e2 * t3132 * t4143;
22450   t54703 = 0.12e2 * t4137 * t3138 + 0.12e2 * t369 * t15177 * t464 + 0.6e1 * t369 * t4550 * t1516 + params->d * t54600 * t370 + 0.12e2 * t873 * t15441 + 0.3e1 * t2363 * t4577 + 0.6e1 * t1125 * t13784 + 0.6e1 * t4137 * t3141 + 0.3e1 * t9617 * t1269 + 0.6e1 * t873 * t15444 + 0.6e1 * t4568 * t2367 + 0.6e1 * t15412 * t875 + 0.3e1 * t1267 * t9640 + 0.12e2 * t369 * t4117 * t2478 + 0.6e1 * t369 * t1481 * t4483 + 0.6e1 * t3132 * t4146 + 0.6e1 * t2363 * t4574 + 0.6e1 * t369 * t13742 * t928;
22451   t54708 = 0.2e1 * t4563 * t878;
22452   t54710 = 0.2e1 * t3126 * t1272;
22453   t54718 = 0.2e1 * t1264 * t3144;
22454   t54719 = t54617 + t9605 * t1272 + 0.2e1 * t48636 + t54621 + t872 * (t54661 + t54703) + 0.2e1 * t48625 + t48616 + t54708 + t54710 + 0.2e1 * t870 * t15447 + 0.2e1 * t4132 * t3144 + 0.2e1 * t15401 * t878 + t54718;
22455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22456     v4rho3sigma[4] = t54615 + t54719;
22457 
22458   t54757 = -0.2e1 * t8367 * t1307 + 0.10e2 * t13892 * t51815 - 0.10e2 / 0.3e1 * t4156 * t51744 - 0.10e2 / 0.3e1 * t15699 * t12794 + 0.2e1 / 0.3e1 * t49957 * t4293 + 0.2e1 / 0.3e1 * t13811 * t14725 + t4173 * t50577 / 0.3e1 - 0.5e1 / 0.3e1 * t13879 * t14841 + 0.2e1 / 0.3e1 * t13876 * t14844 - 0.10e2 / 0.3e1 * t13882 * t14763 + t2378 * t13823 * t1138 / 0.6e1;
22459   t54778 = t15458 * t3785 / 0.3e1 + t15458 * t3795 / 0.3e1 + t4152 * t14807 / 0.3e1 + t4160 * t14807 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t52771 - 0.5e1 / 0.3e1 * t4156 * t50442 + 0.2e1 / 0.3e1 * t4173 * t50445 - t50526 - 0.5e1 / 0.3e1 * t13879 * t14855 - 0.5e1 / 0.3e1 * t13882 * t14855 - 0.5e1 / 0.3e1 * t4156 * t50434;
22460   t54782 = t7591 * t13875;
22461   t54785 = t2378 * t13875;
22462   t54802 = -0.5e1 / 0.3e1 * t4156 * t50438 - t50539 - 0.5e1 / 0.3e1 * t54782 * t3765 + 0.2e1 / 0.3e1 * t54785 * t3791 - 0.5e1 / 0.6e1 * t4156 * t51842 + 0.10e2 * t13892 * t50639 + t13836 * t4289 / 0.3e1 + t13855 * t4289 / 0.3e1 + t13824 * t4289 / 0.6e1 + t4168 * t14803 / 0.3e1 + t4168 * t14807 / 0.3e1;
22463   t54811 = t15475 * t61;
22464   t54812 = t400 * t54811;
22465   t54815 = t6453 * t15682;
22466   t54826 = -0.5e1 / 0.3e1 * t50272 * t4273 - 0.5e1 / 0.3e1 * t13879 * t14159 - 0.5e1 / 0.3e1 * t13879 * t14164 - 0.5e1 / 0.3e1 * t13808 * t14855 + 0.2e1 / 0.3e1 * t54812 * t3791 + t50619 + 0.5e1 * t54815 * t13161 + 0.2e1 / 0.3e1 * t15686 * t12785 + t15610 * t12777 / 0.3e1 + 0.2e1 / 0.3e1 * t13870 * t14720 + 0.2e1 / 0.3e1 * t4173 * t52774;
22467   t54845 = t1392 * t15609;
22468   t54848 = t7591 * t13869;
22469   t54851 = t2378 * t13869;
22470   t54854 = 0.2e1 / 0.3e1 * t4173 * t52700 - 0.5e1 / 0.6e1 * t4156 * t52849 + t4173 * t50608 / 0.3e1 - 0.5e1 / 0.3e1 * t13808 * t14715 - 0.5e1 / 0.3e1 * t13879 * t14715 - 0.5e1 / 0.3e1 * t13882 * t14715 + t4588 * t13093 / 0.6e1 - 0.5e1 / 0.6e1 * t15699 * t12754 + 0.2e1 / 0.3e1 * t54845 * t3791 - 0.5e1 / 0.3e1 * t54848 * t3765 + 0.2e1 / 0.3e1 * t54851 * t3791;
22471   t54867 = -0.5e1 / 0.3e1 * t13882 * t14841 + 0.2e1 / 0.3e1 * t13870 * t14844 - t50660 + t50679 + t50683 - t50694 - t50729 + t4588 * t13082 / 0.3e1 + 0.2e1 / 0.3e1 * t13811 * t14720 + 0.2e1 / 0.3e1 * t13876 * t14720 - 0.2e1 * t2440 * t4235;
22472   t54885 = t1392 * t15682;
22473   t54888 = t15637 * t61;
22474   t54889 = t400 * t54888;
22475   t54892 = t15641 * t61;
22476   t54893 = t400 * t54892;
22477   t54896 = t49609 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t13870 * t14725 + 0.2e1 / 0.3e1 * t13870 * t14729 + 0.2e1 / 0.3e1 * t13870 * t14733 - 0.5e1 / 0.6e1 * t4156 * t50460 + t50280 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t49626 * t4293 - 0.5e1 / 0.6e1 * t15683 * t12754 + 0.2e1 / 0.3e1 * t54885 * t3791 + 0.2e1 / 0.3e1 * t54889 * t3791 + 0.2e1 / 0.3e1 * t54893 * t3791;
22478   t54903 = t34313 * t4155;
22479   t54906 = -t50752 - t50773 + t50775 + t50789 + t50793 + 0.2e1 * t15601 * t751 + t51734 - t51736 + t1277 * t51774 / 0.6e1 + t1277 * t51778 / 0.3e1 + 0.5e1 * t54903 * t13161;
22480   t54910 = t34310 * t4155;
22481   t54913 = t7763 * t4155;
22482   t54930 = -0.5e1 / 0.3e1 * t54910 * t3765 + 0.2e1 / 0.3e1 * t54913 * t3791 - t51748 - t51750 + t400 * t404 * t15487 * t1138 / 0.3e1 + t15476 * t3785 / 0.3e1 + t15476 * t3795 / 0.3e1 - 0.2e1 * t8308 * t4607 - 0.4e1 * t2448 * t15655 - 0.4e1 * t1476 * t15508 - t51752;
22483   t54953 = -t51782 + t4152 * t14803 / 0.3e1 + t4160 * t14803 / 0.3e1 + t4597 * t13082 / 0.3e1 - 0.5e1 / 0.3e1 * t13882 * t14164 - 0.10e2 / 0.3e1 * t4156 * t50767 - 0.2e1 * t6587 * t4607 + t4160 * t14778 / 0.3e1 + t1277 * t50629 / 0.3e1 + t6442 * t4596 * t1138 / 0.6e1 + t1392 * t15475 * t1138 / 0.3e1;
22484   t54969 = t4582 * t13093 / 0.6e1 + t4582 * t13097 / 0.3e1 - t51784 - t51786 - t51789 - 0.10e2 / 0.3e1 * t13808 * t14763 + 0.10e2 * t50000 * t14706 - 0.10e2 / 0.3e1 * t15500 * t12794 + t51807 + t15686 * t12777 / 0.3e1 - 0.10e2 / 0.3e1 * t15683 * t12794;
22485   t54988 = 0.10e2 * t13892 * t50596 - 0.10e2 / 0.3e1 * t4156 * t50546 + t400 * t1406 * t4595 * t1138 / 0.6e1 + t1277 * t52633 / 0.3e1 + t4588 * t13097 / 0.3e1 + t4588 * t13205 / 0.6e1 + t51863 - 0.5e1 / 0.6e1 * t49597 * t4273 - 0.5e1 / 0.3e1 * t50266 * t4273 - t51866 - t51871;
22486   t55001 = my_piecewise3(t296, 0, t51700);
22487   t55015 = t4627 * t2218;
22488   t55032 = t1098 * t2218;
22489   t55037 = t4631 * t14035;
22490   t55052 = t803 * t4627;
22491   t55070 = t4206 * t15804;
22492   t55087 = -0.2e1 * t4209 * t14051 * t55015 * t2219 - 0.2e1 * t14036 * t14037 * t1075 * t2311 - 0.2e1 * t15805 * t15806 * t9293 * t2251 - 0.6e1 * t4209 * t14030 * t4627 * t2293 + 0.4e1 * t14036 * t15806 * t55032 * t2219 - 0.4e1 * t55037 * t14040 + 0.2e1 * t4209 * t4215 * t15762 * t813 * t329 + t4209 * t4215 * t14011 * t1074 * t329 + t15805 * t14037 * t30886 * t329 - 0.4e1 * t14036 * t55052 * t14039 + t15805 * t14037 * t31037 * t329 - 0.2e1 * t14036 * t14037 * t1098 * t2251 * t329 - 0.2e1 * t14014 * t3071 - 0.12e2 * t4209 * t14030 * t15791 * t844 + 0.2e1 * t55070 * t15820 - 0.2e1 * t4207 * t15832 + 0.2e1 * t15805 * t14037 * t37344 + 0.2e1 * t15805 * t49764 * t15819 + 0.8e1 * t14036 * t15806 * t1074 * t2219 * t844 * t813;
22493   t55088 = t4198 * t9338;
22494   t55093 = t13994 * t9381 / 0.864e3;
22495   t55101 = t15746 * t2266 / 0.162e3;
22496   t55107 = t4192 * t9189 / 0.576e3;
22497   t55112 = t1282 * t50895;
22498   t55114 = t55112 * t15723 / 0.216e3;
22499   t55116 = t55112 * t15720 / 0.324e3;
22500   t55122 = 0.5e1 / 0.1728e4 * t55088 + t13994 * t9419 / 0.288e3 - t55093 - t13994 * t9385 / 0.576e3 - t13994 * t9410 / 0.1152e4 + t15740 * t2254 / 0.144e3 - t55101 - t15746 * t2281 / 0.216e3 - 0.5e1 / 0.648e3 * t15746 * t2273 - t55107 - t49786 / 0.1152e4 + t49788 / 0.1728e4 + 0.5e1 / 0.5184e4 * t49790 - t49801 / 0.2592e4 + t49804 - t55114 + t55116 - 0.5e1 / 0.576e3 * t4198 * t9436 + t4198 * t9440 / 0.144e3 - t49805 / 0.864e3;
22501   t55125 = t4198 * t9275;
22502   t55138 = t13994 * t9426 / 0.864e3;
22503   t55147 = t4192 * t9335;
22504   t55155 = -t4192 * t9268 / 0.768e3 - t55125 / 0.5184e4 - t49820 / 0.1152e4 + t49822 / 0.1728e4 - t49824 / 0.648e3 + t49827 / 0.864e3 + t49829 / 0.648e3 - t49835 / 0.432e3 + t13987 * t9365 / 0.128e3 + t13994 * t9423 / 0.576e3 - t55138 - t13994 * t9406 / 0.1152e4 - t49843 / 0.864e3 + t49845 / 0.576e3 + t15713 * t2206 / 0.54e2 - t4192 * t9308 / 0.384e3 + t55147 / 0.3456e4 + t49852 - t4187 * t1576 * t797 / 0.144e3 + t15719 * t7185 * t9052 / 0.216e3;
22505   t55160 = t1282 * t37737;
22506   t55178 = t2229 * sigma[2] * t1082 * t209;
22507   t55188 = t13987 * t9361 / 0.288e3;
22508   t55189 = t4622 * t2263;
22509   t55194 = t15713 * t2194 / 0.162e3;
22510   t55199 = t4187 * t9392;
22511   t55205 = t4187 * t9402;
22512   t55207 = 0.7e1 / 0.648e3 * t15719 * t28985 * t9038 - t55160 * t7185 * t9048 / 0.54e2 - t15719 * t2169 * t9065 / 0.144e3 + t55160 * t2169 * t9061 / 0.36e2 - t15719 * t7185 * t9043 / 0.36e2 + t15719 * t2169 * t9056 / 0.48e2 + t55178 * t2235 / 0.108e3 - t13994 * t9374 / 0.1152e4 - 0.5e1 / 0.3456e4 * t13994 * t9378 + t49813 * t9389 / 0.576e3 + t55188 + t55189 / 0.648e3 - t4192 * t9357 / 0.768e3 - t55194 - t15713 * t2210 / 0.108e3 - t15713 * t2201 / 0.81e2 + 0.7e1 / 0.432e3 * t55199 + 0.5e1 / 0.3456e4 * t4198 * t9447 - t4192 * t9303 / 0.768e3 - t55205 / 0.1296e4;
22513   t55209 = t4192 * t9311 / 0.576e3;
22514   t55213 = t262 * t13985 * t3007;
22515   t55221 = t4198 * t9429 / 0.432e3;
22516   t55222 = t4614 * t2191;
22517   t55229 = t15740 * t2225 / 0.108e3;
22518   t55249 = 0.5e1 / 0.2592e4 * t4198 * t9443;
22519   t55250 = -t55209 - t4198 * t9353 / 0.576e3 - t55213 * t2222 / 0.72e2 + t15740 * t2259 / 0.144e3 + t15746 * t2277 / 0.108e3 - t55221 + t55222 / 0.162e3 + t13994 * t9286 / 0.288e3 - 0.5e1 / 0.1728e4 * t13994 * t9290 + t55229 - t13994 * t9186 / 0.576e3 + t13987 * t9315 / 0.192e3 + t13987 * t9319 / 0.384e3 - t49796 * t9454 / 0.128e3 - 0.5e1 / 0.864e3 * t4198 * t9348 - t1288 * t9141 / 0.576e3 + t49813 * t9297 / 0.288e3 + 0.5e1 / 0.1296e4 * t4198 * t9343 + t4198 * t9332 / 0.192e3 + t55249;
22520   t55252 = t55122 + t55155 + t55207 + t55250;
22521   t55256 = t14037 * t1098;
22522   t55261 = t15771 * t3851;
22523   t55271 = t2214 * t4201;
22524   t55306 = -t1295 * t1296 * t331 * t55252 + 0.12e2 * t49685 * t55256 * t14039 - t15765 * t2312 + 0.2e1 * t55261 * t4218 - 0.2e1 * t15774 * t14054 + 0.2e1 * t4209 * t4215 * t4201 * t2996 * t329 - 0.4e1 * t15805 * t55271 * t15807 - 0.4e1 * t15805 * t15806 * t37348 - 0.12e2 * t14023 * t15782 - 0.6e1 * t4204 * t9475 + 0.2e1 * t14023 * t15829 - t4632 * t14070 + params->beta * t55252 * t352 + t4209 * t4215 * t1291 * t9265 * t329 + t4209 * t4215 * t55015 * t329 - t1159 * t9460 * t1162 * t1298 + 0.4e1 * t55261 * t4212 + t15774 * t14067 - 0.4e1 * t14036 * t14037 * t1074 * t14039 - 0.4e1 * t49681 * t15801;
22525   t55308 = t7378 * t1291;
22526   t55369 = 0.6e1 * t15805 * t55308 * t31032 * t2218 - 0.6e1 * t15805 * t15806 * t9293 * t2218 + 0.4e1 * t4209 * t4210 * t15762 * t844 + 0.6e1 * t49685 * t14037 * t1075 * t2293 - 0.4e1 * t55070 * t15808 - 0.6e1 * t15774 * t14032 - 0.4e1 * t14036 * t14037 * t3070 * t813 * t329 + 0.4e1 * t4204 * t9479 + 0.2e1 * t4204 * t9483 + 0.2e1 * t4209 * t4210 * t14011 * t1098 - 0.4e1 * t14036 * t49764 * t15786 + t49725 * t4640 + 0.24e2 * t4209 * t49876 * t4634 * t2293 - t4204 * t9537 + 0.4e1 * t14014 * t3050 - 0.6e1 * t4209 * t14030 * t4634 * t2311 - 0.4e1 * t14036 * t14037 * t2997 * t844 + 0.2e1 * t49725 * t4635 - 0.12e2 * t4209 * t14030 * t15795 * t844 - 0.2e1 * t15772 * t4221;
22527   t55388 = t15763 * t187;
22528   t55419 = -0.4e1 * t49681 * t15787 + 0.4e1 * t15774 * t14044 - 0.2e1 * t14036 * t14037 * t55032 * t329 + 0.4e1 * t14023 * t15796 + t4209 * t4215 * t4627 * t2251 * t329 + 0.2e1 * t4209 * t4210 * t1291 * t9536 - 0.2e1 * t55388 * t845 + 0.2e1 * t14023 * t15813 + t15774 * t14064 + 0.2e1 * t15774 * t14059 + 0.2e1 * t15774 * t14048 - t14021 * t4643 + 0.2e1 * t14023 * t15817 - 0.4e1 * t14036 * t49764 * t15800 + 0.2e1 * t15765 * t2294 + 0.2e1 * t4209 * t4210 * t4627 * t2311 + 0.4e1 * t4209 * t4210 * t4201 * t3070 + 0.4e1 * t14023 * t15792 + 0.4e1 * t14023 * t15824 - t49873 * t1099;
22529   t55425 = t15835 * t2320;
22530   t55428 = t4645 * t7519;
22531   t55452 = t169 * (t55087 + t55306 + t55369 + t55419) * t848 / 0.2e1 - t169 * t55425 * t847 + t169 * t55428 * t2318 - t169 * t15839 * t2314 / 0.2e1 - t169 * t49921 * t1101 / 0.2e1 + 0.2e1 * t169 * t4223 * t15847 - t169 * t14076 * t3073 - 0.3e1 * t15846 * t31214 * t2318 + 0.2e1 * t15846 * t36600 + t15846 * t9582 * t2314 - t169 * t4226 * t9539 / 0.2e1;
22532   t55453 = my_piecewise3(t359, t55452, t51700);
22533   t55467 = t55001 * t34 / 0.2e1 + t15702 * t413 + t4610 * t1454 / 0.2e1 + t13969 * t886 / 0.2e1 + 0.2e1 * t4182 * t4 * t377 + t1280 * t377 - 0.3e1 * t15709 * t15 + t55453 * t46 / 0.2e1 + t15853 * t436 + t4652 * t1463 / 0.2e1 + t14086 * t905 / 0.2e1 - 0.2e1 * t4231 * t4 * t377 - t1304 * t377 + 0.3e1 * t15860 * t15;
22534   t55471 = t51876 - 0.5e1 / 0.3e1 * t15500 * t12768 + 0.2e1 / 0.3e1 * t15503 * t12785 - 0.5e1 / 0.3e1 * t15683 * t12768 - 0.5e1 / 0.3e1 * t15683 * t12773 - t51881 - t51884 + t1277 * t52822 / 0.6e1 - t98 * t55467 - t51888 + 0.5e1 * t13892 * t50600;
22535   t55498 = -0.10e2 / 0.3e1 * t4156 * t52657 - 0.5e1 / 0.3e1 * t4156 * t50748 + t4582 * t13082 / 0.3e1 + t4597 * t13093 / 0.6e1 + t4597 * t13097 / 0.3e1 + t34292 * t1276 * t1138 / 0.6e1 + t7763 * t4159 * t1138 / 0.3e1 + t7763 * t4167 * t1138 / 0.3e1 + t15452 * t3785 / 0.3e1 + t15452 * t3795 / 0.3e1 + t1392 * t15488 * t1138 / 0.3e1;
22536   t55516 = t15472 * t3785 / 0.3e1 + t15472 * t3795 / 0.3e1 + t4582 * t13205 / 0.6e1 + t13851 * t4297 / 0.6e1 + t13855 * t4297 / 0.3e1 + t4160 * t14775 / 0.3e1 - 0.5e1 / 0.6e1 * t15500 * t12754 + t51901 + t51903 + t51906 + 0.5e1 * t13892 * t51877;
22537   t55533 = -0.5e1 / 0.3e1 * t4156 * t52639 + 0.2e1 / 0.3e1 * t4173 * t52642 - 0.5e1 / 0.3e1 * t49619 * t4273 - 0.5e1 / 0.3e1 * t13808 * t14159 - 0.5e1 / 0.3e1 * t13808 * t14164 - 0.5e1 / 0.6e1 * t49623 * t4273 - 0.5e1 / 0.3e1 * t13882 * t14159 + t51908 + t13851 * t4289 / 0.6e1 - t51910 - t51913;
22538   t55542 = t6445 * t15682;
22539   t55545 = t1397 * t54888;
22540   t55548 = t1397 * t54892;
22541   t55555 = -t51915 - t51917 + t51919 - 0.5e1 / 0.6e1 * t4156 * t50720 - 0.5e1 / 0.6e1 * t4156 * t52856 - 0.5e1 / 0.3e1 * t55542 * t3765 - 0.5e1 / 0.3e1 * t55545 * t3765 - 0.5e1 / 0.3e1 * t55548 * t3765 - 0.5e1 / 0.3e1 * t4156 * t51855 + 0.2e1 / 0.3e1 * t15686 * t12782 + t51924;
22542   t55576 = -0.10e2 / 0.3e1 * t4156 * t50645 + 0.10e2 * t13892 * t51819 + t1277 * t50731 / 0.6e1 + t15638 * t3795 / 0.3e1 + t1277 * t52734 / 0.6e1 + t1277 * t52738 / 0.3e1 + t400 * t883 * t13822 * t1138 / 0.6e1 + t15642 * t3785 / 0.3e1 + t15642 * t3795 / 0.3e1 - t52529 - t52531;
22543   t55592 = -t52533 - t52535 - t52541 - t52543 - 0.5e1 / 0.3e1 * t13808 * t14841 + 0.2e1 / 0.3e1 * t13811 * t14844 - 0.5e1 / 0.3e1 * t4156 * t52695 - 0.10e2 / 0.3e1 * t13808 * t14478 - 0.10e2 / 0.3e1 * t13879 * t14478 - 0.10e2 / 0.3e1 * t13882 * t14478 - 0.10e2 / 0.3e1 * t4156 * t51932;
22544   t55599 = t6445 * t15609;
22545   t55602 = t1397 * t54811;
22546   t55605 = t15488 * t61;
22547   t55606 = t1397 * t55605;
22548   t55619 = -0.10e2 / 0.3e1 * t4156 * t50423 - 0.10e2 / 0.3e1 * t4156 * t51859 + t4173 * t52852 / 0.3e1 - 0.5e1 / 0.3e1 * t55599 * t3765 - 0.5e1 / 0.3e1 * t55602 * t3765 - 0.5e1 / 0.3e1 * t55606 * t3765 - 0.5e1 / 0.3e1 * t15699 * t12768 - 0.5e1 / 0.3e1 * t15699 * t12773 + 0.2e1 / 0.3e1 * t13811 * t14710 + 0.2e1 / 0.3e1 * t13876 * t14710 + 0.2e1 / 0.3e1 * t13870 * t14710;
22549   t55632 = 0.2e1 / 0.3e1 * t4173 * t51824 + 0.2e1 / 0.3e1 * t4173 * t51828 + 0.2e1 / 0.3e1 * t4173 * t51832 + t52546 + t52550 + t52553 - t52556 + t15503 * t12777 / 0.3e1 - 0.10e2 / 0.3e1 * t4156 * t50592 - t52564 - t52566;
22550   t55639 = t400 * t55605;
22551   t55646 = t6453 * t15609;
22552   t55655 = -t52569 - t52570 - 0.5e1 / 0.3e1 * t4156 * t50550 + 0.10e2 * t49634 * t14706 - 0.35e2 * t49594 * t50541 + 0.2e1 / 0.3e1 * t55639 * t3791 + 0.2e1 / 0.3e1 * t15610 * t12785 + 0.2e1 / 0.3e1 * t15610 * t12782 + 0.5e1 * t55646 * t13161 - 0.5e1 / 0.6e1 * t50269 * t4273 + t400 * t7713 * t1275 * t1138 / 0.6e1;
22553   t55672 = t400 * t2386 * t4166 * t1138 / 0.3e1 + t15638 * t3785 / 0.3e1 + t13824 * t4297 / 0.6e1 - t916 * t14092 + t52582 - 0.5e1 / 0.3e1 * t4156 * t50725 + t4173 * t50511 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t50515 + t52584 + t52585 + t52611;
22554   t55694 = -t52615 - 0.2e1 * t2442 * t13814 + t4675 * t2101 - 0.2e1 * t449 * t1307 * t7840 + t1392 * t15637 * t1138 / 0.3e1 + t1392 * t15641 * t1138 / 0.3e1 + t15634 * t3785 / 0.3e1 + t15634 * t3795 / 0.3e1 + t13889 * t4289 / 0.6e1 - 0.2e1 * t449 * t4656 * t1516 - t52638;
22555   t55707 = -0.2e1 * t14092 * t449 * t928 + t1037 * t13961 - t1474 * t4656 - 0.4e1 * t15508 * t2448 - 0.4e1 * t4179 * t8342 + t52663 - t52664 + t52670 - t52672 - t52675 + t52678;
22556   t55712 = t52680 - 0.5e1 / 0.3e1 * t15500 * t12773 + 0.2e1 / 0.3e1 * t15503 * t12782 - t52682 - t52687 - t52689 - t52691 - t52704 - t52743 - t52745 - t52747;
22557   t55714 = t1309 * t65;
22558   t55715 = t50650 * t55714;
22559   t55729 = 0.20e2 * t55715 * t50655 + t52751 + t52752 + t4597 * t13205 / 0.6e1 + t2378 * t13850 * t1138 / 0.6e1 + t2378 * t13854 * t1138 / 0.3e1 - t52754 + t52757 - t52759 - t8340 * t1307 + 0.2e1 / 0.3e1 * t13811 * t14729;
22560   t55752 = 0.2e1 / 0.3e1 * t13811 * t14733 + 0.5e1 * t13892 * t52766 + t49630 * t4293 / 0.3e1 + 0.2e1 / 0.3e1 * t49961 * t4293 + 0.2e1 / 0.3e1 * t13876 * t14725 + 0.2e1 / 0.3e1 * t13876 * t14729 + 0.2e1 / 0.3e1 * t13876 * t14733 + t4173 * t52806 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t52809 + 0.2e1 / 0.3e1 * t4173 * t52812 + t4173 * t50755 / 0.3e1;
22561   t55762 = -0.4e1 * t2478 * t4235 * t449 - 0.4e1 * t1476 * t15655 - 0.4e1 * t4607 * t7847 - t52770 - t52778 - t52781 + t52783 - t52785 - t52787 - t52829 + t52833;
22562   t55769 = t3950 * t1275;
22563   t55775 = t1201 * t4166;
22564   t55781 = t26389 * t15515;
22565   t55789 = t1397 * t3944 * t4595;
22566   t55800 = -0.10e2 * t6453 * t55769 * t14503 + 0.10e2 / 0.3e1 * t50070 * t14507 - 0.10e2 * t6453 * t55775 * t14503 + 0.10e2 / 0.3e1 * t50074 * t14507 + 0.35e2 * t55781 * t52371 - 0.5e1 * t15516 * t52248 + 0.5e1 / 0.3e1 * t13930 * t52023 + 0.10e2 / 0.3e1 * t55789 * t13248 + 0.10e2 / 0.3e1 * t13930 * t52061 - 0.20e2 * t50061 * t52121 - 0.10e2 * t15516 * t52076 + 0.10e2 / 0.3e1 * t13930 * t52014;
22567   t55808 = t1397 * t14623 * t1275;
22568   t55815 = t7591 * t13929;
22569   t55822 = t1397 * t14644 * t1275;
22570   t55833 = -0.10e2 * t15516 * t52244 + 0.10e2 / 0.3e1 * t13930 * t52019 + 0.10e2 / 0.3e1 * t50066 * t14512 + 0.10e2 / 0.3e1 * t55808 * t14512 - 0.10e2 * t50061 * t52080 + 0.10e2 / 0.3e1 * t13930 * t52044 + 0.10e2 / 0.3e1 * t55815 * t13248 - 0.10e2 * t26602 * t15515 * t14503 + 0.10e2 / 0.3e1 * t55822 * t13248 + 0.5e1 / 0.3e1 * t13266 * t15571 - 0.2e1 / 0.3e1 * t13281 * t15550 - 0.2e1 / 0.3e1 * t13281 * t15553 - 0.2e1 / 0.3e1 * t13281 * t15556;
22571   t55866 = -t3945 * t13942 * t4400 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t4247 * t14633 - 0.2e1 / 0.3e1 * t3945 * t4247 * t14637 - t3945 * t1309 * t52083 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t1309 * t52087 - t3945 * t1309 * t52091 / 0.3e1 + 0.5e1 / 0.6e1 * t3939 * t1309 * t52216 - t47724 * t4663 / 0.3e1 - 0.2e1 / 0.3e1 * t52182 * t4663 - 0.2e1 / 0.3e1 * t47726 * t4663 - 0.2e1 / 0.3e1 * t13263 * t15550 - 0.2e1 / 0.3e1 * t13263 * t15553;
22572   t55881 = -t52148 + t52151 + t52153 - t52156 - t52158 - t52160 - t52338 * t1310 / 0.3e1 - t13308 * t4669 / 0.3e1 - t52350 * t1310 / 0.3e1 - t13308 * t4672 / 0.3e1 - t13314 * t4672 / 0.3e1 - t3936 * t15594 / 0.3e1 - t3936 * t15596 / 0.3e1;
22573   t55911 = -t13322 * t4672 / 0.6e1 - t3951 * t15594 / 0.3e1 - t3951 * t15596 / 0.3e1 - t1202 * t13942 * t4412 / 0.6e1 - t1202 * t4247 * t14582 / 0.3e1 - t1202 * t1309 * t52341 / 0.6e1 - t4405 * t13946 / 0.3e1 - t4405 * t13949 / 0.6e1 - t13311 * t4669 / 0.6e1 - t13314 * t4669 / 0.3e1 - t3936 * t15588 / 0.3e1 - t3936 * t15590 / 0.3e1;
22574   t55941 = -t13322 * t4669 / 0.6e1 - t3951 * t15588 / 0.3e1 - t3951 * t15590 / 0.3e1 - t14614 * t13921 / 0.3e1 + 0.5e1 / 0.6e1 * t47769 * t4660 + 0.5e1 / 0.3e1 * t47772 * t4660 - t14645 * t13921 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t15563 + 0.5e1 / 0.3e1 * t13266 * t15563 + 0.5e1 / 0.3e1 * t3939 * t15587 * t3940 + 0.5e1 / 0.3e1 * t3939 * t4668 * t13272 + 0.5e1 / 0.6e1 * t3939 * t4668 * t13276 - 0.2e1 / 0.3e1 * t13263 * t15568;
22575   t55962 = -0.2e1 / 0.3e1 * t13281 * t15568 - 0.2e1 / 0.3e1 * t3945 * t15587 * t3946 - 0.2e1 / 0.3e1 * t3945 * t4668 * t13287 - t3945 * t4668 * t13256 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t15571 - t52164 - t52167 - t52170 - t52173 - 0.5e1 * t52127 * t13926 + 0.5e1 / 0.3e1 * t13260 * t15535 + 0.5e1 / 0.3e1 * t13260 * t15538;
22576   t55990 = 0.5e1 / 0.3e1 * t13260 * t15541 + 0.5e1 / 0.6e1 * t47735 * t4660 + 0.5e1 / 0.3e1 * t13266 * t15535 + 0.5e1 / 0.3e1 * t13266 * t15538 + 0.5e1 / 0.3e1 * t13266 * t15541 + 0.5e1 / 0.6e1 * t3939 * t13942 * t4396 + 0.5e1 / 0.3e1 * t52233 * t4239 + 0.5e1 / 0.3e1 * t51935 * t4239 + 0.5e1 / 0.3e1 * t14662 * t13904 + 0.5e1 / 0.3e1 * t14662 * t13907 + 0.5e1 / 0.6e1 * t14662 * t13910 - 0.2e1 / 0.3e1 * t51944 * t4242 - 0.2e1 / 0.3e1 * t51947 * t4242;
22577   t56011 = -0.2e1 / 0.3e1 * t14614 * t13915 - 0.2e1 / 0.3e1 * t14614 * t13918 + t52242 + t52254 + t52256 + 0.10e2 / 0.3e1 * t50066 * t14507 + 0.10e2 / 0.3e1 * t50070 * t14512 + 0.10e2 / 0.3e1 * t50074 * t14512 + 0.10e2 / 0.3e1 * t13930 * t52038 - t52259 + 0.5e1 / 0.3e1 * t47654 * t4660 - 0.5e1 * t13251 * t4668 * t13252;
22578   t56039 = -0.5e1 * t13251 * t1309 * t52133 - 0.5e1 * t52137 * t13926 - t52269 + 0.5e1 / 0.3e1 * t3939 * t4247 * t14654 + 0.5e1 / 0.3e1 * t3939 * t1309 * t51983 + 0.5e1 / 0.6e1 * t3939 * t1309 * t51987 - 0.2e1 / 0.3e1 * t13263 * t15523 - 0.2e1 / 0.3e1 * t13281 * t15523 - 0.2e1 / 0.3e1 * t3945 * t4247 * t14658 - 0.2e1 / 0.3e1 * t3945 * t1309 * t52225 - t3945 * t1309 * t52229 / 0.3e1 - t52272 - t52275;
22579   t56041 = t893 * t1431;
22580   t56046 = t897 * t1432;
22581   t56051 = t897 * t1436;
22582   t56058 = -0.80e2 / 0.27e2 * t56041 * t1432 - 0.40e2 / 0.9e1 * t15479 * t1436 - 0.10e2 / 0.27e2 * t49971 * t56046 - 0.20e2 / 0.9e1 * t13817 * t7651 + 0.10e2 / 0.9e1 * t13817 * t56051 - 0.5e1 / 0.3e1 * t4163 * t377 + 0.5e1 * t4163 * t5779 + t47459;
22583   t56087 = -t1202 * t56058 * t61 * t1204 / 0.6e1 - t1202 * t15587 * t3958 / 0.3e1 - t1202 * t4668 * t13336 / 0.6e1 - t13311 * t4672 / 0.6e1 - t4393 * t13943 / 0.6e1 - t4393 * t13946 / 0.3e1 - t4393 * t13949 / 0.6e1 - t52319 * t1310 / 0.6e1 - t52322 * t1310 / 0.3e1 - t14545 * t4248 / 0.3e1 - t14545 * t4251 / 0.3e1 - t52437 * t1310 / 0.6e1;
22584   t56108 = -t14549 * t4248 / 0.3e1 - t14549 * t4251 / 0.3e1 - t4405 * t13943 / 0.6e1 - t52330 * t1310 / 0.6e1 - t52333 * t1310 / 0.3e1 - t14534 * t4248 / 0.3e1 - t14534 * t4251 / 0.3e1 - t52306 * t1310 / 0.6e1 - t14537 * t4248 / 0.3e1 - t14537 * t4251 / 0.3e1 - t52277 - t52279 - t52281;
22585   t56131 = -t52283 - t52285 - 0.2e1 / 0.3e1 * t13263 * t15556 - t52195 * t4663 / 0.3e1 - 0.2e1 / 0.3e1 * t52199 * t4663 - 0.2e1 / 0.3e1 * t14624 * t15550 - 0.2e1 / 0.3e1 * t14624 * t15553 - 0.2e1 / 0.3e1 * t14624 * t15556 - t47710 * t4663 / 0.3e1 + 0.5e1 / 0.3e1 * t52098 * t4239 + 0.5e1 / 0.3e1 * t52101 * t4239 + 0.5e1 / 0.3e1 * t14641 * t13904;
22586   t56158 = 0.5e1 / 0.3e1 * t14641 * t13907 + 0.5e1 / 0.6e1 * t14641 * t13910 - 0.2e1 / 0.3e1 * t52467 * t4242 - 0.2e1 / 0.3e1 * t52471 * t4242 - 0.2e1 / 0.3e1 * t14645 * t13915 - 0.2e1 / 0.3e1 * t14645 * t13918 + 0.5e1 / 0.3e1 * t3939 * t4247 * t14672 + 0.5e1 / 0.3e1 * t3939 * t4247 * t14617 + 0.5e1 / 0.6e1 * t3939 * t1309 * t52208 + 0.5e1 / 0.3e1 * t3939 * t1309 * t52212 + t52287 + t52354 + 0.5e1 / 0.3e1 * t13930 * t52048;
22587   t56160 = t52356 + t52358 + t52360 + t52365 + t52377 + t52381 + t52383 + t52385 - t52454 - t52457 - t52460 - t52463;
22588   t56161 = -t52466 - t52490 + t52493 + t52495 + t52497 + t52500 + t52503 + t52506 + t52508 + t52511 + t52514 + t52516 + t52519;
22589   t56179 = t13833 * t4289 / 0.3e1 - 0.10e2 / 0.3e1 * t13879 * t14763 + 0.10e2 * t50038 * t14706 + (t55800 + t55833 + t55866 + t55881 + t55911 + t55941 + t55962 + t55990 + t56011 + t56039 + t56087 + t56108 + t56131 + t56158 + t56160 + t56161) * t227 - 0.4e1 * t1476 * t15659 - 0.4e1 * t449 * t15862 * t464 + t6442 * t4587 * t1138 / 0.6e1 - t52844 - t52846 - 0.4e1 * t2442 * t13862 + t15455 * t3785 / 0.3e1;
22590   t56196 = t15455 * t3795 / 0.3e1 + t13889 * t4297 / 0.6e1 + t13833 * t4297 / 0.3e1 + t13836 * t4297 / 0.3e1 + t4152 * t14775 / 0.3e1 + t4152 * t14778 / 0.3e1 - t52861 - t52863 + 0.2e1 * t4254 * t2866 + t1313 * t8303 + t52865;
22591   t56213 = -0.2e1 * t1482 * t4656 + t4168 * t14775 / 0.3e1 + t4168 * t14778 / 0.3e1 + t400 * t25 * t56058 * t1138 / 0.6e1 + t15489 * t3785 / 0.3e1 + t15489 * t3795 / 0.3e1 - 0.2e1 * t447 * t15862 - t52869 - t52871 - t52873 - t52875 - t52877;
22592   t56218 = t54969 + t54896 + t54778 + t54802 + t54757 + t54854 + t54867 + t54906 + t54826 + t56196 + t56179 + t54953 + t54930 + t54988 + t55752 + t55619 + t55729 + t55592 + t55533 + t55712 + t55576 + t55672 + t55707 + t55498 + t55694 + t55632 + t55655 + t55762 + t55471 + t55555 + t55516 + t56213;
22593   t56227 = t370 * t56218 * params->d + 0.3e1 * t1127 * t14109 + 0.6e1 * t1318 * t9631 + 0.12e2 * t1318 * t9634 + 0.6e1 * t1318 * t9637 + 0.3e1 * t1318 * t9640 + 0.6e1 * t15879 * t875 + 0.6e1 * t2367 * t4683 + 0.12e2 * t3138 * t4263 + 0.6e1 * t3141 * t4263 + t50339 + t50341 + t50344 + t50369 + t50371 + t50373 + t50375;
22594   t56230 = 0.3e1 * t2370 * t4683 + t50380 + t50383 + t50386 + t50388 + t50390 + t50392 + t50397 + t50399 + t50406 + t50409 + t50412 + t52888 + t52891 + t52893 + t52895 + t52897 + t52899;
22595   t56234 = 0.2e1 * t4678 * t878;
22596   t56240 = 0.2e1 * t4257 * t1130;
22597   t56242 = 0.2e1 * t869 * t4687;
22598   t56246 = 0.2e1 * t3126 * t1320;
22599   t56247 = t9605 * t1320 + t2359 * t4687 + t872 * (t56227 + t56230) + t56234 + 0.2e1 * t3127 * t4267 + t7 * t56218 * t372 + t56240 + t56242 + t50311 + t14097 * t1130 + 0.2e1 * t49574 + t56246 + t50317;
22600   t56251 = 0.2e1 * t1315 * t3144;
22601   t56256 = 0.2e1 * t1122 * t4267;
22602   t56261 = 0.2e1 * t368 * t15889;
22603   t56265 = 0.2e1 * t15867 * t372;
22604   t56266 = t1123 * t14117 + t1316 * t9643 + 0.2e1 * t15868 * t878 + 0.2e1 * t15889 * t870 + t2373 * t4679 + 0.2e1 * t3144 * t4258 + 0.2e1 * t49572 + t50313 + t50315 + t56251 + t56256 + t56261 + t56265;
22605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22606     v4rho3sigma[5] = t56247 + t56266;
22607 
22608   t56270 = 0.6e1 * t3745 * t4000;
22609   t56276 = 0.12e2 * t1125 * t14903;
22610   t56278 = 0.12e2 * t1125 * t14911;
22611   t56280 = 0.3e1 * t3745 * t4003;
22612   t56282 = 0.3e1 * t11518 * t1221;
22613   t56287 = 0.12e2 * t369 * t14608 * t928;
22614   t56290 = 0.12e2 * t369 * t14611 * t928;
22615   t56293 = 0.6e1 * t369 * t3967 * t3249;
22616   t56296 = 0.6e1 * t369 * t3970 * t3249;
22617   t56299 = 0.6e1 * t369 * t1208 * t9848;
22618   t56301 = 0.6e1 * t1125 * t14914;
22619   t56303 = 0.6e1 * t3132 * t4454;
22620   t56322 = t66 * t9788 * t97 * t363;
22621   t56326 = t66 * t15970 * t857;
22622   t56332 = t14686 * t4297 / 0.3e1 + t14689 * t4297 / 0.3e1 + t14692 * t4297 / 0.3e1 + t4269 * t14775 / 0.3e1 + t4269 * t14778 / 0.3e1 + t3758 * t15972 / 0.6e1 + t3769 * t15972 / 0.6e1 + t3780 * t15972 / 0.6e1 + t1135 * t56322 / 0.6e1 + t1135 * t56326 / 0.6e1 + t36335 * t1134 * t1138 / 0.6e1;
22623   t56348 = 0.6e1 * t3977 * t16242;
22624   t56351 = 0.6e1 * t1214 * t18521 * t16241;
22625   t56358 = t9657 * t3768 * t1138 / 0.6e1 + t9657 * t3779 * t1138 / 0.6e1 + t15925 * t3785 / 0.6e1 + t15925 * t3795 / 0.6e1 + t14780 * t4289 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t16122 + t56348 + t56351 + t12758 * t15900 / 0.3e1 + t13167 * t15900 / 0.3e1 - 0.5e1 / 0.3e1 * t14858 * t14841;
22626   t56362 = t14582 * t4292;
22627   t56365 = t4412 * t14728;
22628   t56368 = t4412 * t14732;
22629   t56384 = 0.2e1 * t2448 * t15922;
22630   t56385 = 0.2e1 / 0.3e1 * t14156 * t14844 + 0.2e1 / 0.3e1 * t3788 * t56362 + 0.2e1 / 0.3e1 * t3788 * t56365 + 0.2e1 / 0.3e1 * t3788 * t56368 - 0.5e1 / 0.3e1 * t14858 * t14855 - 0.5e1 / 0.3e1 * t50473 * t4273 - 0.5e1 / 0.3e1 * t50521 * t4273 - 0.5e1 / 0.3e1 * t51848 * t4273 - 0.5e1 / 0.3e1 * t14858 * t14715 + 0.2e1 / 0.3e1 * t14156 * t14720 - t56384;
22631   t56388 = 0.2e1 * t449 * t857 * t15921;
22632   t56390 = t12791 * t3250 * t443;
22633   t56411 = -t56388 - 0.5e1 / 0.3e1 * t3762 * t56390 + 0.10e2 * t52645 * t14706 - 0.10e2 / 0.3e1 * t14858 * t14763 - 0.5e1 / 0.3e1 * t50612 * t4273 - 0.5e1 / 0.3e1 * t51927 * t4273 - 0.5e1 / 0.3e1 * t14858 * t14159 - 0.5e1 / 0.3e1 * t14858 * t14164 + 0.2e1 / 0.3e1 * t14152 * t14710 - 0.5e1 / 0.3e1 * t52788 * t4273 - 0.5e1 / 0.3e1 * t52792 * t4273;
22634   t56429 = 0.4e1 * t2442 * t14830;
22635   t56430 = t4412 * t14709;
22636   t56435 = t3958 * t15899;
22637   t56438 = -0.5e1 / 0.3e1 * t52795 * t4273 - 0.5e1 / 0.3e1 * t14736 * t14159 - 0.5e1 / 0.3e1 * t14736 * t14164 - 0.5e1 / 0.3e1 * t14736 * t14841 + t14783 * t4289 / 0.3e1 + t14786 * t4289 / 0.3e1 + t4284 * t14803 / 0.3e1 - t56429 + 0.2e1 / 0.3e1 * t3788 * t56430 + t12788 * t15900 / 0.3e1 + t3788 * t56435 / 0.3e1;
22638   t56440 = t1204 * t465 * t3249;
22639   t56444 = t1204 * t12780 * t3249;
22640   t56448 = t1204 * t3763 * t9792;
22641   t56467 = t3788 * t56440 / 0.3e1 + t3788 * t56444 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t56448 + 0.2e1 / 0.3e1 * t50705 * t4293 + 0.2e1 / 0.3e1 * t50615 * t4293 + 0.2e1 / 0.3e1 * t50604 * t4293 + 0.2e1 / 0.3e1 * t14156 * t14725 + 0.2e1 / 0.3e1 * t14156 * t14729 + 0.2e1 / 0.3e1 * t14156 * t14733 + t15949 * t3785 / 0.6e1 + t15949 * t3795 / 0.6e1;
22642   t56469 = t7591 * t14155;
22643   t56472 = t2378 * t14155;
22644   t56476 = t1204 * t929 * t2478;
22645   t56485 = t15979 * t61;
22646   t56486 = t1397 * t56485;
22647   t56489 = t400 * t56485;
22648   t56492 = t15983 * t61;
22649   t56493 = t1397 * t56492;
22650   t56496 = t400 * t56492;
22651   t56501 = -0.5e1 / 0.3e1 * t56469 * t3765 + 0.2e1 / 0.3e1 * t56472 * t3791 + 0.2e1 / 0.3e1 * t3788 * t56476 - 0.5e1 / 0.6e1 * t13164 * t15939 - 0.5e1 / 0.6e1 * t12761 * t15939 - 0.5e1 / 0.6e1 * t12765 * t15939 - 0.5e1 / 0.6e1 * t56486 * t3765 + t56489 * t3791 / 0.3e1 - 0.5e1 / 0.3e1 * t56493 * t3765 + 0.2e1 / 0.3e1 * t56496 * t3791 - 0.5e1 / 0.3e1 * t14736 * t14715;
22652   t56519 = 0.4e1 * t9859 * t4305;
22653   t56524 = 0.2e1 / 0.3e1 * t14152 * t14720 + 0.2e1 / 0.3e1 * t50479 * t4293 + 0.2e1 / 0.3e1 * t50482 * t4293 + 0.2e1 / 0.3e1 * t50485 * t4293 + 0.2e1 / 0.3e1 * t14152 * t14725 + 0.2e1 / 0.3e1 * t14152 * t14729 + 0.2e1 / 0.3e1 * t14152 * t14733 + 0.2e1 / 0.3e1 * t14848 * t14710 - t56519 + t14824 * t4297 / 0.3e1 + t14791 * t4297 / 0.3e1;
22654   t56532 = t4412 * t14854;
22655   t56545 = t3958 * t15895;
22656   t56549 = t1204 * t12771 * t3152;
22657   t56552 = t4412 * t14714;
22658   t56555 = t14794 * t4297 / 0.3e1 + t4277 * t14775 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t56532 - 0.5e1 / 0.3e1 * t13164 * t15913 + 0.2e1 / 0.3e1 * t14156 * t14710 + 0.5e1 * t47226 * t15896 + 0.5e1 * t47229 * t15896 + 0.5e1 * t47232 * t15896 + 0.5e1 * t13159 * t56545 + 0.5e1 * t13159 * t56549 - 0.5e1 / 0.3e1 * t3762 * t56552;
22659   t56556 = t4412 * t14719;
22660   t56563 = 0.4e1 * t16016 * t3812;
22661   t56565 = t14703 * t14704 * t2436;
22662   t56574 = t47494 * t16112;
22663   t56577 = t3946 * t16112;
22664   t56581 = t12791 * t50765 * t928;
22665   t56584 = 0.2e1 / 0.3e1 * t3788 * t56556 + 0.2e1 * t4427 * t2866 + t3973 * t3530 - t56563 + 0.10e2 * t13159 * t56565 - 0.10e2 / 0.3e1 * t13164 * t16113 - 0.10e2 / 0.3e1 * t12761 * t16113 - 0.10e2 / 0.3e1 * t12765 * t16113 - 0.10e2 / 0.3e1 * t3762 * t56574 - 0.10e2 / 0.3e1 * t3762 * t56577 - 0.10e2 / 0.3e1 * t3762 * t56581;
22666   t56591 = t4412 * t97 * t14705;
22667   t56594 = t50644 * t14762;
22668   t56597 = t9657 * t3761;
22669   t56600 = t15948 * t61;
22670   t56601 = t1397 * t56600;
22671   t56604 = t400 * t56600;
22672   t56609 = t3219 * t363;
22673   t56611 = t1204 * t56609 * t443;
22674   t56614 = t7591 * t14847;
22675   t56620 = 0.10e2 * t50715 * t14706 - 0.10e2 / 0.3e1 * t14736 * t14763 + 0.10e2 * t13159 * t56591 - 0.10e2 / 0.3e1 * t3762 * t56594 + t56597 * t3791 / 0.3e1 - 0.5e1 / 0.6e1 * t56601 * t3765 + t56604 * t3791 / 0.3e1 - 0.5e1 / 0.3e1 * t14736 * t14855 - 0.5e1 / 0.3e1 * t3762 * t56611 - 0.5e1 / 0.3e1 * t56614 * t3765 - 0.4e1 * t449 * t4391 * t2478;
22676   t56622 = 0.4e1 * t14120 * t4312;
22677   t56624 = 0.4e1 * t14123 * t4312;
22678   t56626 = 0.4e1 * t4302 * t14147;
22679   t56634 = t66 * t3783 * t3714;
22680   t56638 = t66 * t1136 * t11407;
22681   t56643 = 0.6e1 * t1214 * t47389 * t16241;
22682   t56645 = t12791 * t50544 * t928;
22683   t56649 = t12791 * t14704 * t2478;
22684   t56652 = -t56622 - t56624 - t56626 + t3758 * t15957 / 0.6e1 + t3769 * t15957 / 0.6e1 + t3780 * t15957 / 0.6e1 + t1135 * t56634 / 0.6e1 + t1135 * t56638 / 0.6e1 + t56643 - 0.10e2 / 0.3e1 * t3762 * t56645 - 0.10e2 / 0.3e1 * t3762 * t56649;
22685   t56656 = t1204 * t52698 * t928;
22686   t56659 = t96 * t3714;
22687   t56661 = t1204 * t56659 * t464;
22688   t56668 = t2378 * t14847;
22689   t56673 = t14321 * t2803;
22690   t56675 = 0.12e2 * t14821 * t56673;
22691   t56678 = t3958 * t15938;
22692   t56682 = t1204 * t12771 * t3209;
22693   t56687 = 0.2e1 / 0.3e1 * t3788 * t56656 + t3788 * t56661 / 0.3e1 - 0.5e1 / 0.3e1 * t14851 * t14715 + 0.2e1 / 0.3e1 * t14848 * t14720 + 0.2e1 / 0.3e1 * t56668 * t3791 - 0.10e2 / 0.3e1 * t14736 * t14478 + t56675 - 0.2e1 * t2440 * t4391 - 0.5e1 / 0.6e1 * t3762 * t56678 - 0.5e1 / 0.6e1 * t3762 * t56682 + 0.2e1 / 0.3e1 * t13167 * t16119;
22694   t56692 = t3958 * t16118;
22695   t56696 = t1204 * t2483 * t928;
22696   t56699 = t1033 * t2844;
22697   t56700 = t13055 * t56699;
22698   t56702 = 0.4e1 * t14484 * t56700;
22699   t56703 = t16220 * t3764;
22700   t56706 = t16220 * t3790;
22701   t56710 = 0.6e1 * t14863 * t4434;
22702   t56711 = t3431 * t746;
22703   t56712 = t48478 * t56711;
22704   t56714 = 0.6e1 * t14484 * t56712;
22705   t56715 = t174 * t16104;
22706   t56718 = 0.3e1 * t1214 * t56715 * t3980;
22707   t56719 = t446 * t3249;
22708   t56721 = 0.2e1 * t56719 * t1144;
22709   t56722 = 0.2e1 / 0.3e1 * t12758 * t16119 + 0.2e1 / 0.3e1 * t12788 * t16119 + 0.2e1 / 0.3e1 * t3788 * t56692 + 0.2e1 / 0.3e1 * t3788 * t56696 + t56702 - 0.5e1 / 0.6e1 * t3762 * t56703 + t3788 * t56706 / 0.3e1 + t56710 - t56714 + t56718 - t56721;
22710   t56725 = t12791 * t3223 * t443;
22711   t56728 = t14434 * t9882;
22712   t56730 = 0.6e1 * t13345 * t56728;
22713   t56732 = 0.2e1 * t4431 * t14810;
22714   t56739 = t3503 * t707 * t194;
22715   t56743 = t35753 * t194;
22716   t56746 = t35494 * t194;
22717   t56749 = t3454 * t743;
22718   t56753 = t8057 * t2784;
22719   t56763 = t3479 * t743;
22720   t56771 = t2841 * t1013 * t194;
22721   t56777 = t4363 * t14399;
22722   t56795 = t35682 * t707;
22723   t56799 = -0.4e1 * t13011 * t51634 * t14414 + 0.6e1 * t48287 * t13012 * t56739 + t14400 * t13012 * t56743 + t14400 * t13012 * t56746 + 0.4e1 * t13011 * t14401 * t56749 - 0.4e1 * t14400 * t14401 * t56753 - 0.4e1 * t13011 * t51391 * t14395 + 0.2e1 * t14400 * t51391 * t14414 - 0.2e1 * t13011 * t13012 * t56763 + 0.12e2 * t48287 * t51634 * t14395 - 0.4e1 * t13011 * t13012 * t56771 - 0.4e1 * t51423 * t14396 + 0.2e1 * t56777 * t14415 - 0.4e1 * t13011 * t51391 * t14381 - 0.4e1 * t14400 * t1887 * t4359 * t14402 - 0.2e1 * t14400 * t14401 * t43006 - 0.4e1 * t48263 * t16073 - 0.4e1 * t13011 * t48293 * t16072 + 0.6e1 * t14400 * t51342 * t56795;
22724   t56800 = t3454 * t707;
22725   t56805 = t3519 * t707 * t194;
22726   t56809 = t1014 * t2784;
22727   t56832 = t1159 * t10161 * t1162;
22728   t56845 = t1030 * t2784 * t194;
22729   t56858 = -0.6e1 * t14400 * t14401 * t56800 - 0.2e1 * t13011 * t13012 * t56805 + 0.2e1 * t14400 * t13012 * t56809 + 0.2e1 * t14369 * t14424 + 0.24e2 * t3905 * t48379 * t16067 * t743 - t16059 * t3917 + 0.2e1 * t51359 * t4372 - t12989 * t3520 + t3905 * t3911 * t3897 * t3478 * t194 + t3905 * t3911 * t1181 * t10017 * t194 - t56832 * t1188 + 0.2e1 * t3900 * t10184 - 0.12e2 * t3905 * t13005 * t4366 * t2841 - 0.4e1 * t56777 * t14403 - 0.4e1 * t51423 * t14382 - 0.4e1 * t13011 * t13012 * t56845 - 0.12e2 * t3905 * t13005 * t16076 * t743 + 0.4e1 * t3900 * t10179 - 0.2e1 * t4364 * t14427 - t3903 * t16102;
22730   t56861 = t14336 * t10156;
22731   t56863 = t14336 * t10106;
22732   t56865 = t12969 * t10147;
22733   t56867 = t12969 * t10152;
22734   t56869 = t48345 * t3462;
22735   t56871 = t12969 * t10074;
22736   t56873 = t12969 * t10078;
22737   t56876 = t3882 * t10102;
22738   t56878 = -0.119e3 / 0.1728e4 * t48303 - t56861 / 0.96e2 + t56863 / 0.768e3 - 0.5e1 / 0.384e3 * t56865 + t56867 / 0.384e3 - 0.7e1 / 0.288e3 * t56869 + t56871 / 0.384e3 - t56873 / 0.1536e4 - 0.119e3 / 0.6912e4 * t48315 - t56876 / 0.48e2 - t51486 + t51488;
22739   t56879 = t12969 * t10118;
22740   t56881 = t12969 * t10122;
22741   t56883 = t12979 * t3495;
22742   t56885 = t3894 * t10128;
22743   t56887 = t12979 * t3491;
22744   t56889 = t48362 * t3437;
22745   t56891 = t12951 * t3450;
22746   t56893 = t12965 * t3486;
22747   t56895 = t3894 * t10035;
22748   t56897 = -0.5e1 / 0.192e3 * t56879 + t56881 / 0.192e3 + 0.7e1 / 0.576e3 * t56883 - t56885 / 0.384e3 - 0.35e2 / 0.576e3 * t56887 - t53983 + t51509 - t51517 - 0.7e1 / 0.48e2 * t56889 + 0.7e1 / 0.144e3 * t56891 - t48339 + 0.7e1 / 0.2304e4 * t56893 + 0.5e1 / 0.384e3 * t56895;
22749   t56899 = t3887 * t10020;
22750   t56901 = t48310 * t3456;
22751   t56903 = t12965 * t3481;
22752   t56905 = t3894 * t10025;
22753   t56908 = t51560 * t183 * t10023;
22754   t56911 = t14329 * t183 * t10028;
22755   t56914 = t14329 * t183 * t10033;
22756   t56916 = t12969 * t10051;
22757   t56918 = -t56899 / 0.1536e4 - 0.7e1 / 0.1152e4 * t56901 + 0.7e1 / 0.2304e4 * t56903 - 0.5e1 / 0.64e2 * t56905 - t56908 / 0.4e1 + t56911 / 0.8e1 + t56914 / 0.16e2 - t48357 - t51532 + t51538 - t54000 - t51547 + t56916 / 0.384e3;
22758   t56919 = t12969 * t10055;
22759   t56921 = t12969 * t10059;
22760   t56923 = t51525 * t10113;
22761   t56925 = t14336 * t10140;
22762   t56927 = t14336 * t10047;
22763   t56929 = t14336 * t10042;
22764   t56931 = t12969 * t10063;
22765   t56933 = t12969 * t10069;
22766   t56936 = t3894 * t10030;
22767   t56938 = -t56919 / 0.768e3 - t56921 / 0.1536e4 - t56923 / 0.256e3 + t56925 / 0.256e3 - t56927 / 0.192e3 + t56929 / 0.384e3 + t56931 / 0.192e3 + t56933 / 0.192e3 - t51558 - 0.35e2 / 0.216e3 * t48369 - t54014 + t51574 + 0.5e1 / 0.192e3 * t56936;
22768   t56940 = t56878 + t56897 + t56918 + t56938;
22769   t56969 = t16058 * t3851;
22770   t56993 = -t1185 * t1186 * t196 * t56940 - 0.2e1 * t12998 * t16086 + 0.2e1 * t3905 * t3911 * t14357 * t1013 * t194 - 0.12e2 * t14369 * t14377 + 0.2e1 * t14369 * t14408 + 0.2e1 * t14369 * t14412 - 0.6e1 * t3905 * t13005 * t16080 * t743 - 0.6e1 * t3905 * t13005 * t3897 * t3503 + 0.2e1 * t3905 * t3906 * t1181 * t10235 + t56969 * t3914 + 0.4e1 * t3905 * t3906 * t4359 * t2841 + 0.4e1 * t14360 * t2819 - 0.2e1 * t14367 * t4375 + 0.2e1 * t56969 * t3908 + 0.4e1 * t12998 * t16077 + 0.4e1 * t51359 * t4367 - 0.6e1 * t12998 * t16068 + params->beta * t56940 * t221 + 0.4e1 * t14369 * t14391 - 0.2e1 * t14360 * t2842;
22771   t56994 = t3484 * t743;
22772   t57010 = t16051 * t187;
22773   t57012 = t3897 * t3453;
22774   t57050 = -0.2e1 * t13011 * t13012 * t56994 + 0.4e1 * t3905 * t3906 * t14357 * t1030 + 0.4e1 * t14369 * t14419 + 0.2e1 * t12989 * t3504 + t3905 * t3911 * t16050 * t707 * t194 - t57010 * t744 - 0.2e1 * t3905 * t13026 * t57012 * t1892 + 0.2e1 * t12998 * t16091 + 0.4e1 * t14369 * t14387 + 0.8e1 * t13011 * t14401 * t1030 * t14402 - 0.2e1 * t51660 * t1031 + 0.2e1 * t12998 * t16081 + t12998 * t16099 + t3905 * t3911 * t57012 * t194 + 0.2e1 * t3905 * t3906 * t3897 * t3519 - t3900 * t10236 - 0.6e1 * t3900 * t10175 + 0.2e1 * t3905 * t3906 * t16050 * t743 + 0.2e1 * t3905 * t3911 * t4359 * t2784 * t194 + t12998 * t16096;
22775   t57054 = t175 * (t56799 + t56858 + t56993 + t57050) * t748;
22776   t57055 = t1214 * t57054;
22777   t57057 = 0.6e1 * t3977 * t16031;
22778   t57078 = t4329 * t14260;
22779   t57086 = t1668 * t4325;
22780   t57090 = t3843 * t3323;
22781   t57116 = -0.2e1 * t12884 * t12885 * t3348 * t577 - 0.4e1 * t12884 * t51063 * t14242 - 0.4e1 * t50807 * t14257 - 0.2e1 * t14261 * t14262 * t42029 - 0.4e1 * t50807 * t14243 - 0.4e1 * t12884 * t51184 * t14275 + 0.2e1 * t14261 * t51063 * t14275 - 0.4e1 * t57078 * t14264 - 0.4e1 * t12884 * t51063 * t14256 + 0.2e1 * t14230 * t14285 - 0.4e1 * t14261 * t57086 * t14263 - 0.2e1 * t3852 * t12899 * t57090 * t1672 - 0.4e1 * t12884 * t12885 * t2678 * t962 * t265 + 0.2e1 * t3852 * t3853 * t3843 * t3392 + 0.4e1 * t12884 * t14262 * t3324 * t577 + 0.4e1 * t14230 * t14280 + 0.4e1 * t12871 * t16302 + 0.2e1 * t12871 * t16316 + 0.4e1 * t14221 * t2658;
22782   t57123 = t12808 * t10573;
22783   t57129 = t3840 * t10568;
22784   t57149 = t12813 * t10578;
22785   t57155 = -t47930 / 0.1296e4 + t57123 / 0.576e3 - 0.5e1 / 0.648e3 * t12832 * t3360 + t12832 * t3364 / 0.108e3 - t50886 + 0.5e1 / 0.5184e4 * t57129 - t3830 * t10708 / 0.384e3 - t3840 * t10505 / 0.144e3 + t12808 * t10700 / 0.192e3 - t3840 * t10515 / 0.576e3 + 0.5e1 / 0.3456e4 * t3840 * t10519 - t48007 * t10695 / 0.128e3 + t12808 * t10704 / 0.128e3 - t3830 * t10473 / 0.768e3 + t47991 * t3331 / 0.108e3 - t57149 / 0.864e3 + t3825 * t10477 / 0.288e3 - t48011 * t3326 / 0.72e2 - t50898 + t50900;
22786   t57156 = t3840 * t10679;
22787   t57158 = t3830 * t10585;
22788   t57177 = t3825 * t10480;
22789   t57181 = t3825 * t10485;
22790   t57192 = t3825 * t10467;
22791   t57194 = -t57156 / 0.864e3 - t57158 / 0.1152e4 - t14180 * t6680 * t10293 / 0.36e2 + 0.7e1 / 0.648e3 * t14180 * t27069 * t10288 + t50908 * t6680 * t10297 / 0.54e2 + t14180 * t1582 * t10303 / 0.48e2 - t50908 * t1582 * t10307 / 0.36e2 + t50929 / 0.1728e4 + t50931 / 0.432e3 + t57177 / 0.648e3 + t12851 * t3316 / 0.54e2 - t57181 / 0.432e3 - t12851 * t3320 / 0.108e3 - t50940 - t50941 / 0.648e3 + t50945 / 0.216e3 - t3830 * t10636 / 0.768e3 + t47971 / 0.3456e4 - t12851 * t3312 / 0.81e2 + t57192 / 0.864e3;
22792   t57212 = t3830 * t10672;
22793   t57232 = 0.5e1 / 0.864e3 * t3840 * t10657 - t3830 * t10712 / 0.768e3 - 0.5e1 / 0.576e3 * t3840 * t10649 + 0.5e1 / 0.1296e4 * t3840 * t10653 + t12808 * t10509 / 0.384e3 + t3840 * t10500 / 0.192e3 + t48046 * t10717 / 0.288e3 + t12821 * t3350 / 0.144e3 - t57212 / 0.1152e4 + t12821 * t3355 / 0.144e3 + t3840 * t10582 / 0.1152e4 + t12813 * t10563 / 0.288e3 - 0.5e1 / 0.1728e4 * t12813 * t10661 - t12813 * t10687 / 0.1152e4 - t12813 * t10645 / 0.576e3 - t12813 * t10543 / 0.1152e4 + t12813 * t10539 / 0.576e3 - t12813 * t10683 / 0.288e3 - t50992 - t50994;
22794   t57234 = t3840 * t10554;
22795   t57255 = -t48000 / 0.5184e4 + t57234 / 0.1728e4 - t51003 + t51005 - t12813 * t10667 / 0.576e3 + t48046 * t10641 / 0.576e3 - 0.5e1 / 0.3456e4 * t12813 * t10551 + t51015 - t51016 / 0.2592e4 - t51023 - t14180 * t1582 * t10319 / 0.144e3 + t14180 * t6680 * t10314 / 0.216e3 + t51027 + t48022 / 0.162e3 + t48025 + t48026 / 0.648e3 + t48030 - t12813 * t10547 / 0.1152e4 - t51038 - t12832 * t3368 / 0.216e3;
22796   t57257 = t57155 + t57194 + t57232 + t57255;
22797   t57284 = t16283 * t3851;
22798   t57320 = 0.2e1 * t3852 * t3858 * t4325 * t2612 * t265 - t1163 * t1165 * t267 * t57257 + 0.2e1 * t14261 * t12885 * t963 * t2612 + 0.4e1 * t3852 * t3853 * t4325 * t2678 + 0.8e1 * t12884 * t14262 * t979 * t14263 + 0.12e2 * t48135 * t51184 * t14256 + 0.2e1 * t57078 * t14276 + 0.4e1 * t3846 * t10741 + t3852 * t3858 * t16275 * t539 * t265 + 0.2e1 * t57284 * t3855 - 0.4e1 * t47900 * t16298 + 0.2e1 * t12871 * t16306 - 0.2e1 * t14228 * t4341 + 0.2e1 * t3852 * t3858 * t14218 * t962 * t265 + 0.2e1 * t14230 * t14273 + 0.24e2 * t3852 * t48174 * t16292 * t577 + 0.6e1 * t14261 * t50821 * t39675 * t539 - 0.6e1 * t14261 * t14262 * t3324 * t539 + 0.4e1 * t3852 * t3853 * t14218 * t979 + 0.2e1 * t3852 * t3853 * t1156 * t10797;
22799   t57380 = -t3849 * t16327 + 0.4e1 * t14230 * t14252 - t16284 * t3864 + 0.6e1 * t48135 * t12885 * t3376 * t539 * t265 - 0.12e2 * t3852 * t12878 * t4332 * t2678 + t12871 * t16324 - 0.4e1 * t14261 * t14262 * t8623 * t2612 - 0.4e1 * t12884 * t12885 * t979 * t2612 * t265 + t14261 * t12885 * t39330 * t265 - 0.2e1 * t12884 * t12885 * t3353 * t577 - 0.6e1 * t12871 * t16293 + 0.2e1 * t3852 * t3853 * t16275 * t577 - 0.4e1 * t12884 * t48114 * t16297 + t3852 * t3858 * t1156 * t10633 * t265 + t3852 * t3858 * t57090 * t265 - 0.2e1 * t12871 * t16311 - 0.12e2 * t14230 * t14238 - 0.6e1 * t3852 * t12878 * t16305 * t577 + 0.4e1 * t50867 * t4333 + 0.2e1 * t50867 * t4338;
22800   t57381 = t16276 * t187;
22801   t57428 = -t57381 * t578 + t12871 * t16321 + t3852 * t3858 * t3843 * t3347 * t265 - 0.2e1 * t12884 * t12885 * t3392 * t539 * t265 - t3846 * t10798 - 0.2e1 * t51137 * t980 + 0.2e1 * t3846 * t10746 + 0.2e1 * t12862 * t3377 + t57284 * t3861 - 0.6e1 * t3852 * t12878 * t3843 * t3376 - 0.12e2 * t3852 * t12878 * t16301 * t577 + 0.2e1 * t14230 * t14269 + 0.4e1 * t14230 * t14248 + t14261 * t12885 * t39152 * t265 - 0.6e1 * t3846 * t10737 - 0.2e1 * t4330 * t14288 - t1159 * t10723 * t1162 * t1167 + params->beta * t57257 * t289 - t12862 * t3393 - 0.2e1 * t14221 * t2679;
22802   t57434 = t16329 * t1763;
22803   t57461 = t169 * (t57116 + t57320 + t57380 + t57428) * t581 / 0.2e1 - t169 * t57434 * t580 / 0.2e1 - t169 * t51226 * t982 + 0.2e1 * t169 * t4343 * t14303 - t169 * t14295 * t2681 + t169 * t48196 * t3399 - 0.3e1 * t14302 * t38412 * t580 + 0.2e1 * t14302 * t8979 * t2681 - t169 * t12924 * t3395 / 0.2e1 + t14302 * t38425 * t580 - t169 * t3869 * t10800 / 0.2e1;
22804   t57462 = t3874 * t10028;
22805   t57465 = t13051 * t16021;
22806   t57468 = t16104 * t2093;
22807   t57474 = t3874 * t10033;
22808   t57477 = t3923 * t42250;
22809   t57487 = t16104 * t748;
22810   t57494 = t2728 * t1033;
22811   t57495 = t3923 * t57494;
22812   t57504 = t3431 * t677;
22813   t57505 = t13055 * t57504;
22814   t57508 = -0.2e1 * t1033 * t2849 * t51295 + 0.3e1 * t12937 * t1768 * t3448 + 0.6e1 * t12937 * t2857 * t3427 - t13051 * t2849 * t3522 + 0.6e1 * t1768 * t51311 * t999 + 0.3e1 * t1768 * t57487 * t677 - t2849 * t57468 * t746 + 0.6e1 * t16341 * t31406 + t169 * t57054 - 0.6e1 * t1768 * t57465 - 0.6e1 * t1768 * t57495 + 0.6e1 * t1768 * t57505 - 0.6e1 * t2849 * t56712 + 0.12e2 * t2857 * t57462 + 0.6e1 * t2857 * t57474 - 0.6e1 * t2857 * t57477;
22815   t57516 = t3923 * t42273;
22816   t57527 = t51321 * t14443;
22817   t57530 = t6117 * t999;
22818   t57531 = t57530 * t14443;
22819   t57534 = t14434 * t14437;
22820   t57537 = t13055 * t42370;
22821   t57542 = t3923 * t42227;
22822   t57545 = t3923 * t42261;
22823   t57548 = t19783 * t14437;
22824   t57554 = 0.3e1 * t10013 * t1768 * t3874 - t10238 * t2849 * t3923 + 0.6e1 * t14321 * t1768 * t2728 - 0.2e1 * t14434 * t2844 * t2849 + 0.2e1 * t2849 * t3431 * t48237 - 0.6e1 * t1768 * t56728 - 0.3e1 * t1768 * t57516 - 0.6e1 * t1768 * t57534 - 0.6e1 * t1768 * t57542 - 0.3e1 * t1768 * t57545 + 0.4e1 * t2849 * t56700 + 0.4e1 * t2849 * t57527 + 0.2e1 * t2849 * t57537 + 0.12e2 * t2857 * t56673 + 0.12e2 * t51280 * t57531 - 0.12e2 * t51292 * t57548;
22825   t57555 = t57508 + t57554;
22826   t57556 = my_piecewise3(t296, t57461, t57555);
22827   t57569 = my_piecewise3(t359, 0, t57555);
22828   t57582 = t57556 * t34 / 0.2e1 + t16362 * t413 / 0.2e1 + t14450 * t886 + 0.2e1 * t4384 * t4 * t377 + t3927 * t3196 / 0.2e1 + t1194 * t9774 / 0.2e1 + t57569 * t46 / 0.2e1 + t16368 * t436 / 0.2e1 + t14459 * t905 - 0.2e1 * t4387 * t4 * t377 + t3930 * t3202 / 0.2e1 + t1196 * t9785 / 0.2e1;
22829   t57585 = 0.6e1 * t13345 * t57542;
22830   t57586 = t16021 * t746;
22831   t57589 = 0.12e2 * t13345 * t13055 * t57586;
22832   t57590 = t1110 * t912;
22833   t57592 = t14703 * t57590 * t443;
22834   t57596 = t12791 * t57590 * t464;
22835   t57599 = -0.10e2 / 0.3e1 * t3762 * t56725 - t56730 - t56732 + t4277 * t14778 / 0.3e1 + t57055 + t57057 - t98 * t57582 - t57585 + t57589 + 0.10e2 * t13159 * t57592 - 0.10e2 / 0.3e1 * t3762 * t57596;
22836   t57600 = t363 * t3209;
22837   t57602 = t14703 * t57600 * t443;
22838   t57606 = t12791 * t57600 * t464;
22839   t57610 = 0.2e1 * t14863 * t4438;
22840   t57617 = 0.2e1 * t1214 * t3920 * t9934;
22841   t57618 = t16232 * t3986;
22842   t57619 = t363 * t3152;
22843   t57621 = t14703 * t57619 * t443;
22844   t57625 = t12791 * t57619 * t464;
22845   t57629 = 0.2e1 * t40329 * t1144;
22846   t57631 = 0.6e1 * t4431 * t14680;
22847   t57632 = 0.5e1 * t13159 * t57602 - 0.5e1 / 0.3e1 * t3762 * t57606 - t57610 + 0.10e2 * t50450 * t14706 - 0.10e2 / 0.3e1 * t14851 * t14763 + t57617 - t57618 - 0.35e2 * t47327 * t57621 + 0.10e2 * t13159 * t57625 - t57629 + t57631;
22848   t57638 = 0.2e1 * t4431 * t14432;
22849   t57645 = 0.12e2 * t14821 * t57462;
22850   t57648 = t748 * t10013;
22851   t57651 = 0.3e1 * t1214 * t3979 * t57648;
22852   t57654 = 0.2e1 * t14863 * t4379;
22853   t57656 = 0.4e1 * t2442 * t14758;
22854   t57665 = t57638 - 0.4e1 * t2448 * t15993 - 0.4e1 * t449 * t14468 * t928 + t57645 + 0.2e1 * t14678 * t1037 + t57651 - t3213 * t3934 + t57654 - t57656 + t400 * t2386 * t4282 * t1138 / 0.3e1 + t400 * t883 * t14567 * t1138 / 0.3e1;
22855   t57671 = 0.6e1 * t14821 * t57477;
22856   t57678 = 0.6e1 * t52859 * t14315;
22857   t57683 = t2439 * t928;
22858   t57685 = 0.4e1 * t57683 * t1144;
22859   t57687 = 0.6e1 * t13345 * t57465;
22860   t57689 = 0.3e1 * t13345 * t57516;
22861   t57690 = t15984 * t3785 / 0.3e1 + t15984 * t3795 / 0.3e1 - t57671 - 0.2e1 * t449 * t16374 * t464 - 0.10e2 / 0.3e1 * t14851 * t14478 - t57678 - 0.2e1 * t9652 * t1199 - 0.2e1 * t3220 * t3934 - t57685 - t57687 - t57689;
22862   t57692 = t82 * t9848;
22863   t57694 = 0.2e1 * t57692 * t1144;
22864   t57696 = 0.2e1 * t15998 * t3802;
22865   t57700 = 0.4e1 * t8342 * t4305;
22866   t57701 = t3977 * t16106;
22867   t57703 = 0.4e1 * t14484 * t57527;
22868   t57705 = 0.3e1 * t13345 * t57545;
22869   t57712 = -t57694 - t57696 - 0.2e1 * t9866 * t3816 - t57700 + t57701 + t57703 - t57705 - t9796 * t1199 + t1211 * t10267 + t4269 * t14807 / 0.3e1 + t14686 * t4289 / 0.3e1;
22870   t57719 = t915 * t2478;
22871   t57721 = 0.4e1 * t57719 * t1144;
22872   t57728 = 0.6e1 * t1214 * t51873 * t4433;
22873   t57731 = 0.3e1 * t1214 * t13124 * t16027;
22874   t57733 = 0.2e1 * t9866 * t3802;
22875   t57735 = 0.2e1 * t4431 * t14812;
22876   t57737 = t14689 * t4289 / 0.3e1 + t14692 * t4289 / 0.3e1 + t4269 * t14803 / 0.3e1 - t57721 - 0.4e1 * t9859 * t4316 - 0.4e1 * t2442 * t14749 + t57728 + t57731 - t57733 - t57735 - t447 * t16374;
22877   t57741 = 0.2e1 * t3977 * t16236;
22878   t57744 = 0.6e1 * t1214 * t14494 * t14489;
22879   t57752 = t66 * t14801 * t1110;
22880   t57756 = t66 * t4287 * t3091;
22881   t57762 = t1204 * t3789 * t9848;
22882   t57769 = t57741 + t57744 + t3758 * t15976 / 0.3e1 + t3769 * t15976 / 0.3e1 + t3780 * t15976 / 0.3e1 + t1135 * t57752 / 0.3e1 + t1135 * t57756 / 0.3e1 + 0.2e1 / 0.3e1 * t14152 * t14844 + t3788 * t57762 / 0.3e1 - 0.5e1 / 0.3e1 * t14851 * t14855 - 0.5e1 / 0.3e1 * t13164 * t15909;
22883   t57774 = t14582 * t4272;
22884   t57777 = t4412 * t14163;
22885   t57781 = t1204 * t14713 * t2436;
22886   t57784 = t97 * t3714;
22887   t57786 = t1204 * t57784 * t443;
22888   t57790 = t1214 * t1191 * t35144;
22889   t57792 = 0.2e1 * t3977 * t15960;
22890   t57794 = 0.4e1 * t8342 * t4312;
22891   t57796 = t47571 * t3227;
22892   t57798 = t3227 * t459;
22893   t57799 = t47575 * t57798;
22894   t57801 = t923 * t2473;
22895   t57802 = t13149 * t57801;
22896   t57804 = t13146 * t3244;
22897   t57806 = t3244 * t459;
22898   t57807 = t13149 * t57806;
22899   t57809 = t3807 * t9843;
22900   t57811 = -t47567 - 0.11e2 / 0.9e1 * t47569 - t53122 - t50351 + t50353 - 0.2e1 / 0.3e1 * t57796 - 0.3e1 / 0.4e1 * t57799 + t57802 / 0.2e1 + t57804 / 0.3e1 + t57807 / 0.4e1 - t57809 / 0.8e1;
22901   t57812 = my_piecewise3(t95, 0, t57811);
22902   t57815 = 0.2e1 * t449 * t363 * t57812;
22903   t57818 = -0.5e1 / 0.3e1 * t12761 * t15909 - 0.5e1 / 0.3e1 * t12765 * t15909 - 0.5e1 / 0.3e1 * t3762 * t57774 - 0.5e1 / 0.3e1 * t3762 * t57777 - 0.5e1 / 0.3e1 * t3762 * t57781 - 0.5e1 / 0.6e1 * t3762 * t57786 - t57790 - t57792 - t57794 - t57815 - 0.4e1 * t2442 * t14827;
22904   t57822 = 0.4e1 * t449 * t1110 * t14139;
22905   t57824 = t1214 * t3920 * t10242;
22906   t57850 = t400 * t464 * t883;
22907   t57855 = 0.5e1 / 0.3e1 * t14641 * t14618 + 0.5e1 / 0.3e1 * t13260 * t16127 + 0.5e1 / 0.3e1 * t13266 * t16127 + 0.5e1 / 0.3e1 * t3939 * t14568 * t4396 + 0.5e1 / 0.3e1 * t3939 * t4408 * t14672 + 0.5e1 / 0.3e1 * t3939 * t4408 * t14617 + 0.5e1 / 0.3e1 * t13260 * t16131 + 0.5e1 / 0.3e1 * t13266 * t16131 + 0.5e1 / 0.3e1 * t3939 * t3954 * t16130 - 0.2e1 / 0.3e1 * t52467 * t4401 - 0.2e1 / 0.3e1 * t57850 * t4401 - 0.2e1 / 0.3e1 * t52471 * t4401;
22908   t57868 = t74 * t11431;
22909   t57885 = t908 * t912;
22910   t57887 = t66 * t57885 * t443;
22911   t57890 = -0.2e1 / 0.3e1 * t14645 * t14630 - 0.2e1 / 0.3e1 * t14645 * t14634 - 0.2e1 / 0.3e1 * t14645 * t14638 - 0.2e1 / 0.3e1 * t13263 * t16140 - 0.2e1 / 0.3e1 * t14624 * t16140 - 0.2e1 / 0.3e1 * t13281 * t16140 - 0.20e2 * t47508 * t57868 + 0.10e2 / 0.3e1 * t52366 * t14512 - 0.10e2 * t6453 * t4404 * t1133 * t14503 + 0.10e2 / 0.3e1 * t52052 * t14507 - 0.10e2 * t6453 * t1201 * t4282 * t14503 + 0.10e2 / 0.3e1 * t52056 * t14507 - 0.10e2 * t14500 * t57887;
22912   t57893 = t66 * t57885 * t464;
22913   t57896 = t73 * t3209;
22914   t57898 = t66 * t57896 * t443;
22915   t57902 = t66 * t57896 * t464;
22916   t57910 = t16220 * t443;
22917   t57914 = t16220 * t464;
22918   t57931 = 0.10e2 / 0.3e1 * t13245 * t57893 - 0.5e1 * t14500 * t57898 + 0.5e1 / 0.3e1 * t13245 * t57902 + 0.10e2 / 0.3e1 * t52052 * t14512 - 0.2e1 / 0.3e1 * t3945 * t4408 * t14658 + 0.5e1 / 0.6e1 * t3939 * t1203 * t57910 - t3945 * t1203 * t57914 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t14568 * t4400 - 0.2e1 / 0.3e1 * t3945 * t4408 * t14633 - 0.2e1 / 0.3e1 * t3945 * t4408 * t14637 - 0.2e1 / 0.3e1 * t13263 * t16144 - 0.2e1 / 0.3e1 * t14624 * t16144;
22919   t57937 = t14582 * t928;
22920   t57941 = t4412 * t2478;
22921   t57954 = t3958 * t3249;
22922   t57964 = t1204 * t9848;
22923   t57970 = -0.2e1 / 0.3e1 * t13281 * t16144 - 0.2e1 / 0.3e1 * t3945 * t3954 * t16143 - 0.2e1 / 0.3e1 * t3945 * t1203 * t57937 - 0.2e1 / 0.3e1 * t3945 * t1203 * t57941 - t13263 * t16148 / 0.3e1 - t14624 * t16148 / 0.3e1 - t13281 * t16148 / 0.3e1 - t3945 * t3954 * t16147 / 0.3e1 - t3945 * t1203 * t57954 / 0.3e1 - t3945 * t16213 * t3946 / 0.3e1 + 0.5e1 / 0.3e1 * t3939 * t4408 * t14654 - t3945 * t1203 * t57964 / 0.3e1 + 0.5e1 / 0.3e1 * t52233 * t4397;
22924   t57999 = 0.5e1 / 0.3e1 * t51935 * t4397 + 0.5e1 / 0.3e1 * t14662 * t14669 + 0.5e1 / 0.3e1 * t14662 * t14673 + 0.5e1 / 0.3e1 * t14662 * t14618 - 0.2e1 / 0.3e1 * t51944 * t4401 + 0.5e1 / 0.3e1 * t52098 * t4397 + 0.5e1 / 0.3e1 * t52101 * t4397 + 0.5e1 / 0.3e1 * t14641 * t14669 + 0.5e1 / 0.3e1 * t14641 * t14673 - t3951 * t16217 / 0.3e1 - t1202 * t14568 * t4412 / 0.3e1 - t1202 * t4408 * t14582 / 0.3e1;
22925   t58007 = t65 * t9788;
22926   t58011 = t1392 * t16224;
22927   t58015 = t400 * t3219 * t404;
22928   t58032 = -t3936 * t16221 / 0.6e1 - t3951 * t16221 / 0.6e1 - t1202 * t3954 * t16220 / 0.6e1 - t1202 * t1203 * t58007 / 0.6e1 - t58011 * t1205 / 0.3e1 - t58015 * t1205 / 0.3e1 - t16225 * t3955 / 0.3e1 - t16225 * t3959 / 0.3e1 - t16198 * t3955 / 0.3e1 - t16198 * t3959 / 0.3e1 - t14534 * t4409 / 0.3e1 - t14537 * t4409 / 0.3e1 - t4393 * t14569 / 0.3e1;
22929   t58044 = t1392 * t16205;
22930   t58048 = t400 * t97 * t9679;
22931   t58061 = -t4393 * t14572 / 0.3e1 - t14534 * t4413 / 0.3e1 - t14537 * t4413 / 0.3e1 - t4393 * t14579 / 0.3e1 - t4393 * t14583 / 0.3e1 - t58044 * t1205 / 0.6e1 - t58048 * t1205 / 0.6e1 - t16206 * t3955 / 0.6e1 - t16206 * t3959 / 0.6e1 - t14545 * t4409 / 0.3e1 - t14549 * t4409 / 0.3e1 + 0.5e1 / 0.3e1 * t14662 * t14648;
22932   t58068 = t2378 * t14623;
22933   t58088 = t66 * t908 * t928 * t443;
22934   t58091 = t73 * t3249;
22935   t58093 = t66 * t58091 * t443;
22936   t58096 = -0.2e1 / 0.3e1 * t14614 * t14651 + 0.5e1 / 0.3e1 * t14662 * t14655 - 0.2e1 / 0.3e1 * t14614 * t14659 - 0.2e1 / 0.3e1 * t58068 * t4401 - 0.2e1 / 0.3e1 * t51947 * t4401 - 0.2e1 / 0.3e1 * t14614 * t14630 - 0.2e1 / 0.3e1 * t14614 * t14634 - 0.2e1 / 0.3e1 * t14614 * t14638 - 0.10e2 * t34313 * t14499 * t14503 + 0.10e2 / 0.3e1 * t52366 * t14507 + 0.10e2 / 0.3e1 * t52056 * t14512 + 0.10e2 / 0.3e1 * t13245 * t58088 + 0.5e1 / 0.3e1 * t13245 * t58093;
22937   t58112 = t3164 * t414;
22938   t58119 = t3168 * t414;
22939   t58124 = -0.80e2 / 0.27e2 * t47446 * t3164 - 0.10e2 / 0.27e2 * t47451 * t58112 + 0.20e2 / 0.9e1 * t13188 * t9712 - 0.40e2 / 0.9e1 * t13185 * t3168 + 0.10e2 / 0.9e1 * t13188 * t58119 + 0.5e1 / 0.3e1 * t3774 * t9722 + t47459;
22940   t58140 = t36335 * t1201;
22941   t58143 = -t14549 * t4413 / 0.3e1 - t4405 * t14579 / 0.3e1 - t4405 * t14583 / 0.3e1 - t3936 * t16214 / 0.6e1 - t3951 * t16214 / 0.6e1 - t1202 * t58124 * t61 * t1204 / 0.6e1 - t1202 * t16213 * t3958 / 0.6e1 - t3936 * t16217 / 0.3e1 - t4405 * t14569 / 0.3e1 - t4405 * t14572 / 0.3e1 - t14545 * t4413 / 0.3e1 - t58140 * t1205 / 0.6e1;
22942   t58144 = t9657 * t3950;
22943   t58151 = t7763 * t4404;
22944   t58154 = t2378 * t14548;
22945   t58158 = t66 * t14501 * t2436;
22946   t58170 = t66 * t52012 * t928;
22947   t58174 = t66 * t52017 * t928;
22948   t58178 = t66 * t14501 * t2478;
22949   t58181 = -t58144 * t1205 / 0.6e1 - t16195 * t3955 / 0.6e1 - t16195 * t3959 / 0.6e1 - t58151 * t1205 / 0.3e1 - t58154 * t1205 / 0.3e1 - 0.10e2 * t14500 * t58158 + 0.10e2 / 0.3e1 * t47518 * t16186 + 0.10e2 / 0.3e1 * t52029 * t16186 + 0.10e2 / 0.3e1 * t47522 * t16186 + 0.10e2 / 0.3e1 * t47526 * t16186 + 0.10e2 / 0.3e1 * t13245 * t58170 + 0.10e2 / 0.3e1 * t13245 * t58174 + 0.10e2 / 0.3e1 * t13245 * t58178;
22950   t58183 = t73 * t3152;
22951   t58185 = t66 * t58183 * t443;
22952   t58189 = t66 * t58183 * t464;
22953   t58194 = 0.8e1 * t400 * t1208 * t9792;
22954   t58196 = 0.40e2 * t6445 * t16192;
22955   t58199 = 0.40e2 * t1397 * t3967 * t3152;
22956   t58202 = 0.40e2 * t1397 * t3970 * t3152;
22957   t58204 = 0.2e1 * t397 * t16157;
22958   t58207 = 0.2e1 * t81 * t9848 * t1143;
22959   t58210 = 0.2e1 * t81 * t3249 * t3811;
22960   t58212 = 0.4e1 * t397 * t16160;
22961   t58215 = 0.4e1 * t81 * t2478 * t4311;
22962   t58218 = 0.4e1 * t81 * t928 * t14139;
22963   t58219 = -0.10e2 * t47508 * t58189 + 0.35e2 * t52369 * t58185 - t58194 + t58196 + t58199 + t58202 + t58204 + t58207 + t58210 + t58212 + t58215 + t58218;
22964   t58220 = t1143 * t3209;
22965   t58223 = 0.40e2 * t7757 * t58220 * t443;
22966   t58227 = 0.240e3 * t34500 * t1143 * t3152 * t443;
22967   t58229 = 0.80e2 * t36473 * t14587;
22968   t58230 = t1397 * t928;
22969   t58232 = 0.80e2 * t58230 * t14587;
22970   t58236 = 0.80e2 * t7757 * t4311 * t912 * t443;
22971   t58238 = 0.2e1 * t9656 * t1208;
22972   t58240 = 0.2e1 * t3149 * t3967;
22973   t58242 = 0.2e1 * t3149 * t3970;
22974   t58244 = 0.4e1 * t2377 * t4421;
22975   t58247 = 0.2e1 * t81 * t96 * t57812;
22976   t58249 = 0.16e2 * t2378 * t14528;
22977   t58251 = 0.16e2 * t2378 * t14531;
22978   t58254 = 0.2e1 * t81 * t464 * t15921;
22979   t58255 = t58223 - t58227 + t58229 + t58232 + t58236 + t58238 + t58240 + t58242 + t58244 + t58247 - t58249 - t58251 + t58254;
22980   t58259 = 0.4e1 * t2377 * t4424;
22981   t58261 = 0.4e1 * t881 * t14608;
22982   t58263 = 0.4e1 * t881 * t14611;
22983   t58264 = t36282 * t1201;
22984   t58267 = t9657 * t3944;
22985   t58270 = t7591 * t4404;
22986   t58273 = t2378 * t14644;
22987   t58276 = t1397 * t16205;
22988   t58280 = t400 * t96 * t3155;
22989   t58285 = 0.8e1 * t400 * t16157 * t443;
22990   t58288 = 0.16e2 * t400 * t16160 * t443;
22991   t58291 = 0.8e1 * t400 * t16163 * t443;
22992   t58292 = t58259 + t58261 + t58263 + 0.5e1 / 0.6e1 * t58264 * t3941 - t58267 * t3947 / 0.3e1 + 0.5e1 / 0.3e1 * t58270 * t3941 - 0.2e1 / 0.3e1 * t58273 * t3947 + 0.5e1 / 0.6e1 * t58276 * t3941 - t58280 * t3947 / 0.3e1 - t58285 - t58288 - t58291;
22993   t58294 = 0.8e1 * t9657 * t3964;
22994   t58296 = 0.16e2 * t2378 * t14525;
22995   t58298 = 0.4e1 * t881 * t14602;
22996   t58300 = 0.4e1 * t881 * t14605;
22997   t58303 = 0.16e2 * t400 * t14608 * t912;
22998   t58306 = 0.16e2 * t400 * t14611 * t912;
22999   t58309 = 0.16e2 * t400 * t4424 * t2436;
23000   t58312 = 0.8e1 * t400 * t3967 * t3209;
23001   t58315 = 0.8e1 * t400 * t3970 * t3209;
23002   t58318 = 0.16e2 * t400 * t14605 * t912;
23003   t58321 = 0.16e2 * t400 * t4421 * t2436;
23004   t58323 = 0.16e2 * t1392 * t16182;
23005   t58325 = 0.2e1 * t397 * t16163;
23006   t58326 = -t58294 - t58296 + t58298 + t58300 - t58303 - t58306 - t58309 - t58312 - t58315 - t58318 - t58321 - t58323 + t58325;
23007   t58329 = 0.16e2 * t7763 * t4418;
23008   t58331 = 0.16e2 * t2378 * t14515;
23009   t58333 = 0.16e2 * t2378 * t14522;
23010   t58345 = t14582 * t912;
23011   t58349 = t4412 * t2436;
23012   t58357 = -t58329 - t58331 - t58333 + 0.5e1 / 0.6e1 * t3939 * t16213 * t3940 + 0.5e1 / 0.3e1 * t14641 * t14648 - 0.2e1 / 0.3e1 * t14645 * t14651 + 0.5e1 / 0.3e1 * t14641 * t14655 - 0.2e1 / 0.3e1 * t14645 * t14659 + 0.5e1 / 0.3e1 * t3939 * t1203 * t58345 + 0.5e1 / 0.3e1 * t3939 * t1203 * t58349 + 0.5e1 / 0.6e1 * t13260 * t16135 + 0.5e1 / 0.6e1 * t13266 * t16135;
23013   t58361 = t3958 * t3209;
23014   t58365 = t1204 * t9792;
23015   t58369 = t1397 * t16224;
23016   t58373 = 0.8e1 * t1392 * t16189;
23017   t58383 = t3958 * t3152;
23018   t58389 = 0.80e2 * t7757 * t14586 * t2436;
23019   t58391 = 0.16e2 * t1392 * t16179;
23020   t58394 = 0.16e2 * t400 * t14602 * t912;
23021   t58395 = 0.5e1 / 0.6e1 * t3939 * t3954 * t16134 + 0.5e1 / 0.6e1 * t3939 * t1203 * t58361 + 0.5e1 / 0.6e1 * t3939 * t1203 * t58365 + 0.5e1 / 0.3e1 * t58369 * t3941 - t58373 - 0.2e1 / 0.3e1 * t19992 * t14638 - 0.5e1 * t47744 * t16152 - 0.5e1 * t47747 * t16152 - 0.5e1 * t13251 * t3954 * t16151 - 0.5e1 * t13251 * t1203 * t58383 + t58389 - t58391 - t58394;
23022   t58402 = 0.6e1 * t14821 * t57474;
23023   t58404 = 0.3e1 * t16232 * t3981;
23024   t58407 = 0.2e1 * t1214 * t4378 * t7972;
23025   t58408 = t50654 * t11431;
23026   t58412 = 0.6e1 * t52859 * t14438;
23027   t58414 = 0.4e1 * t16016 * t3802;
23028   t58416 = 0.4e1 * t9859 * t4312;
23029   t58419 = -t57822 - t57824 + (t57855 + t57890 + t57931 + t57970 + t57999 + t58032 + t58061 + t58096 + t58143 + t58181 + t58219 + t58255 + t58292 + t58326 + t58357 + t58395) * t227 + t58402 + t58404 - t58407 + 0.20e2 * t50652 * t58408 - t58412 - t58414 - t58416 + t14791 * t4289 / 0.3e1;
23030   t58445 = t14794 * t4289 / 0.3e1 + t4277 * t14803 / 0.3e1 + t4277 * t14807 / 0.3e1 + t1392 * t15983 * t1138 / 0.3e1 + t14824 * t4289 / 0.3e1 + t400 * t3155 * t3778 * t1138 / 0.6e1 + t15980 * t3785 / 0.6e1 + t15980 * t3795 / 0.6e1 + t14780 * t4297 / 0.3e1 + t14783 * t4297 / 0.3e1 + t14786 * t4297 / 0.3e1;
23031   t58466 = t16021 * t677;
23032   t58469 = 0.12e2 * t14821 * t3923 * t58466;
23033   t58471 = 0.6e1 * t13345 * t57505;
23034   t58473 = 0.6e1 * t13345 * t57495;
23035   t58475 = 0.2e1 * t15998 * t3812;
23036   t58476 = t4284 * t14775 / 0.3e1 + t4284 * t14778 / 0.3e1 + t2378 * t14790 * t1138 / 0.3e1 + t2378 * t14793 * t1138 / 0.3e1 + t15928 * t3785 / 0.3e1 + t15928 * t3795 / 0.3e1 + t7763 * t4276 * t1138 / 0.3e1 - t58469 + t58471 - t58473 - t58475;
23037   t58482 = 0.6e1 * t4431 * t14490;
23038   t58485 = 0.2e1 * t1214 * t14431 * t2850;
23039   t58487 = 0.2e1 * t34651 * t1144;
23040   t58494 = 0.4e1 * t1476 * t16003;
23041   t58496 = 0.4e1 * t2448 * t16003;
23042   t58499 = 0.4e1 * t449 * t3091 * t4311;
23043   t58502 = -0.5e1 / 0.3e1 * t14851 * t14841 + 0.2e1 / 0.3e1 * t14848 * t14844 + t58482 - t58485 - t58487 - 0.2e1 * t449 * t1199 * t9848 - 0.4e1 * t2442 * t14683 - t58494 - t58496 - t58499 - 0.4e1 * t1476 * t15993;
23044   t58505 = 0.2e1 * t4431 * t14838;
23045   t58522 = t1214 * t16105 * t3985;
23046   t58526 = 0.4e1 * t2442 * t14147;
23047   t58528 = 0.4e1 * t14120 * t4305;
23048   t58529 = -t58505 + t2378 * t14782 * t1138 / 0.3e1 + t2378 * t14785 * t1138 / 0.3e1 + t15931 * t3785 / 0.3e1 + t15931 * t3795 / 0.3e1 + t4284 * t14807 / 0.3e1 + t7763 * t4283 * t1138 / 0.3e1 - t58522 - 0.4e1 * t8342 * t4316 - t58526 - t58528;
23049   t58531 = 0.4e1 * t14123 * t4305;
23050   t58533 = 0.4e1 * t4302 * t14758;
23051   t58535 = 0.6e1 * t13345 * t57534;
23052   t58536 = t36282 * t3761;
23053   t58540 = 0.2e1 * t9866 * t3812;
23054   t58549 = 0.2e1 * t1476 * t16011;
23055   t58554 = -t58531 - t58533 - t58535 - 0.5e1 / 0.6e1 * t58536 * t3765 - t58540 - 0.2e1 * t1476 * t15967 - 0.2e1 * t2448 * t15967 - 0.2e1 * t449 * t3934 * t3249 - t58549 - 0.5e1 / 0.3e1 * t12761 * t15913 - 0.5e1 / 0.3e1 * t12765 * t15913;
23056   t58557 = t3958 * t15912;
23057   t58561 = t1204 * t52693 * t912;
23058   t58581 = 0.2e1 * t1476 * t15922;
23059   t58582 = -0.5e1 / 0.3e1 * t3762 * t58557 - 0.5e1 / 0.3e1 * t3762 * t58561 + 0.2e1 / 0.3e1 * t50476 * t4293 + 0.2e1 / 0.3e1 * t50708 * t4293 + 0.2e1 / 0.3e1 * t51851 * t4293 + 0.2e1 / 0.3e1 * t14848 * t14725 + 0.2e1 / 0.3e1 * t14848 * t14729 + 0.2e1 / 0.3e1 * t14848 * t14733 - 0.5e1 / 0.3e1 * t50702 * t4273 - 0.2e1 * t916 * t14468 - t58581;
23060   t58584 = 0.2e1 * t14484 * t57537;
23061   t58586 = 0.6e1 * t47378 * t16022;
23062   t58588 = 0.6e1 * t4431 * t14495;
23063   t58591 = t50644 * t14477;
23064   t58595 = 0.2e1 * t2448 * t16011;
23065   t58598 = 0.2e1 * t449 * t11407 * t1143;
23066   t58600 = 0.4e1 * t4302 * t14830;
23067   t58601 = t4430 * t14483;
23068   t58603 = 0.4e1 * t58601 * t14444;
23069   t58605 = 0.4e1 * t4302 * t14140;
23070   t58606 = t4430 * t14820;
23071   t58608 = 0.12e2 * t58606 * t14309;
23072   t58609 = t58584 - t58586 + t58588 - 0.10e2 / 0.3e1 * t14858 * t14478 - 0.10e2 / 0.3e1 * t3762 * t58591 - t58595 - t58598 - t58600 + t58603 - t58605 + t58608;
23073   t58630 = t66 * t439 * t3219 * t363;
23074   t58634 = t66 * t16247 * t857;
23075   t58645 = t1204 * t14718 * t2478;
23076   t58648 = t1392 * t15948 * t1138 / 0.6e1 + t400 * t404 * t15947 * t1138 / 0.6e1 + t400 * t25 * t58124 * t1138 / 0.6e1 + t3758 * t16249 / 0.3e1 + t3769 * t16249 / 0.3e1 + t3780 * t16249 / 0.3e1 + t1135 * t58630 / 0.3e1 + t1135 * t58634 / 0.3e1 + t1392 * t15979 * t1138 / 0.6e1 + t400 * t9679 * t1133 * t1138 / 0.6e1 + 0.2e1 / 0.3e1 * t3788 * t58645;
23077   t58661 = 0.3e1 * t3977 * t16028;
23078   t58662 = t3977 * t16245;
23079   t58663 = t16232 * t3921;
23080   t58665 = t11491 * t167 * t168;
23081   t58666 = t58665 * t1192;
23082   t58669 = 0.2e1 * t449 * t3714 * t3811;
23083   t58671 = 0.4e1 * t2442 * t14140;
23084   t58672 = 0.2e1 / 0.3e1 * t13167 * t16122 + 0.2e1 / 0.3e1 * t12758 * t16122 - 0.5e1 / 0.3e1 * t14851 * t14159 - 0.5e1 / 0.3e1 * t14851 * t14164 - 0.4e1 * t4302 * t14683 + t16229 * t751 + t58661 - t58662 + t58663 + t58666 - t58669 - t58671;
23085   t58677 = t57737 + t58554 + t58502 + t57769 + t58445 + t58476 + t58582 + t57665 + t56467 + t57690 + t56620 + t58672 + t56584 + t57712 + t57818 + t56411 + t56358 + t56687 + t56524 + t57599 + t56722 + t58648 + t58609 + t56501 + t56555 + t56385 + t57632 + t58529 + t56438 + t56652 + t56332 + t58419;
23086   t58680 = t370 * t58677 * params->d + 0.6e1 * t1127 * t14882 + 0.12e2 * t3138 * t4445 + 0.6e1 * t3141 * t4445 + 0.6e1 * t3749 * t3994 + t56270 + t56276 + t56278 + t56280 + t56282 + t56287 + t56290 + t56293 + t56296 + t56299 + t56301 + t56303;
23087   t58684 = 0.12e2 * t1125 * t14900;
23088   t58686 = 0.12e2 * t1125 * t14906;
23089   t58691 = 0.6e1 * t369 * t3219 * t3811;
23090   t58696 = 0.6e1 * t369 * t16163 * t464;
23091   t58698 = 0.6e1 * t873 * t16403;
23092   t58700 = 0.12e2 * t873 * t16406;
23093   t58702 = 0.12e2 * t3132 * t4451;
23094   t58707 = 0.12e2 * t369 * t4424 * t2478;
23095   t58712 = 0.3e1 * t369 * t97 * t57812;
23096   t58714 = 0.3e1 * t873 * t16412;
23097   t58716 = 0.6e1 * t873 * t16409;
23098   t58721 = 0.12e2 * t369 * t4421 * t2478;
23099   t58722 = 0.6e1 * t11530 * t1219 + 0.12e2 * t11533 * t1219 + 0.6e1 * t11538 * t1219 + 0.3e1 * t11541 * t1219 + 0.3e1 * t16389 * t875 + 0.3e1 * t3752 * t3994 + t58684 + t58686 + t58691 + t58696 + t58698 + t58700 + t58702 + t58707 + t58712 + t58714 + t58716 + t58721;
23100   t58731 = t1122 * t4457;
23101   t58736 = t3740 * t1224;
23102   t58737 = t872 * (t58680 + t58722) + 0.2e1 * t1123 * t14917 + 0.2e1 * t14871 * t1130 + 0.2e1 * t4441 * t3144 + t50329 + 0.2e1 * t58731 + t16379 * t878 + t3989 * t3755 + t52909 + t1217 * t11544 + t52911 + t52915 + t58736;
23103   t58738 = t16378 * t372;
23104   t58739 = t368 * t16415;
23105   t58742 = t1216 * t3755;
23106   t58743 = t4440 * t1130;
23107   t58750 = t372 * t58677 * t7 + t11507 * t1224 + t16415 * t870 + 0.2e1 * t3127 * t4457 + t3741 * t4006 + t52919 + t52921 + t52923 + t52935 + t58738 + t58739 + t58742 + 0.2e1 * t58743;
23108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23109     v4rho3sigma[6] = t58737 + t58750;
23110 
23111   t58755 = t368 * t16767;
23112   t58759 = t1264 * t3755;
23113   t58762 = 0.2e1 * t1130 * t15401 + t11544 * t1265 + t16731 * t878 + t16767 * t870 + 0.2e1 * t3144 * t4564 + t3741 * t4149 + t3755 * t4132 + t54608 + t54610 + t54614 + t54617 + t58755 + t58759;
23114   t58766 = t1122 * t4580;
23115   t58770 = t3740 * t1272;
23116   t58779 = t15355 * t4297;
23117   t58781 = t4021 * t15976;
23118   t58792 = -0.4e1 * t2442 * t15334 - 0.4e1 / 0.3e1 * t14972 * t14710 + 0.10e2 / 0.3e1 * t14975 * t14855 - 0.4e1 / 0.3e1 * t53804 * t4293 + 0.16e2 / 0.9e1 * t58779 + 0.16e2 / 0.9e1 * t58781 + t1261 * t10267 - 0.2e1 / 0.3e1 * t15025 * t4297 - 0.2e1 / 0.3e1 * t15031 * t4297 - 0.2e1 / 0.3e1 * t4459 * t14775 - 0.2e1 / 0.3e1 * t4459 * t14778;
23119   t58808 = t13453 * t16119;
23120   t58815 = -t1392 * t16449 * t1138 / 0.3e1 - t400 * t9679 * t57 * t1138 / 0.3e1 - t16450 * t3785 / 0.3e1 - t16450 * t3795 / 0.3e1 - 0.4e1 / 0.3e1 * t14972 * t14720 - 0.4e1 / 0.3e1 * t4026 * t56556 + 0.32e2 / 0.9e1 * t58808 - 0.4e1 / 0.3e1 * t4026 * t56476 - 0.176e3 / 0.27e2 * t52993 + t53002 - 0.2e1 * t2448 * t16719;
23121   t58836 = 0.2e1 * t14863 * t4515 + 0.440e3 / 0.27e2 * t48696 - t9657 * t4016 * t1138 / 0.3e1 + t53039 - 0.176e3 / 0.27e2 * t53041 - t16438 * t3785 / 0.3e1 - t16438 * t3795 / 0.3e1 + 0.10e2 / 0.3e1 * t4013 * t56552 + 0.10e2 / 0.3e1 * t14967 * t14855 + 0.10e2 / 0.3e1 * t14975 * t14841 - 0.4e1 / 0.3e1 * t14978 * t14844;
23122   t58858 = -0.2e1 / 0.3e1 * t13412 * t15900 - 0.2e1 / 0.3e1 * t13424 * t15900 - 0.2e1 / 0.3e1 * t4009 * t15976 - 0.2e1 / 0.3e1 * t4017 * t15976 - 0.2e1 / 0.3e1 * t1227 * t57752 - 0.2e1 / 0.3e1 * t1227 * t57756 - 0.2e1 * t2440 * t4527 - t3213 * t4090 - 0.4e1 / 0.3e1 * t13412 * t16119 - 0.4e1 / 0.3e1 * t13424 * t16119 - 0.4e1 / 0.3e1 * t4026 * t56692;
23123   t58869 = t53000 * t4293;
23124   t58881 = t16449 * t61;
23125   t58882 = t1397 * t58881;
23126   t58885 = -0.4e1 / 0.3e1 * t4026 * t56696 - 0.4e1 / 0.3e1 * t4026 * t56656 + 0.10e2 / 0.3e1 * t4013 * t57781 + 0.10e2 / 0.3e1 * t4013 * t56611 + 0.32e2 / 0.9e1 * t58869 + 0.5e1 / 0.3e1 * t4013 * t56703 - 0.2e1 / 0.3e1 * t4026 * t56706 + 0.10e2 / 0.3e1 * t14967 * t14715 + 0.10e2 / 0.3e1 * t14967 * t14841 - 0.4e1 / 0.3e1 * t14972 * t14844 + 0.5e1 / 0.3e1 * t58882 * t3765;
23127   t58897 = t13453 * t15900;
23128   t58907 = -0.2e1 / 0.3e1 * t7763 * t4464 * t1138 - t4009 * t15957 / 0.3e1 - t4017 * t15957 / 0.3e1 - t1227 * t56634 / 0.3e1 - t1227 * t56638 / 0.3e1 + 0.16e2 / 0.9e1 * t58897 + t53065 + 0.10e2 / 0.3e1 * t4013 * t56532 + 0.10e2 / 0.3e1 * t13409 * t15913 + 0.10e2 / 0.3e1 * t13402 * t15913 + 0.10e2 / 0.3e1 * t4013 * t58557;
23129   t58911 = t53071 * t4293;
23130   t58913 = t54265 * t4273;
23131   t58931 = 0.10e2 / 0.3e1 * t4013 * t58561 + 0.32e2 / 0.9e1 * t58911 - 0.80e2 / 0.9e1 * t58913 + 0.10e2 / 0.3e1 * t13409 * t15909 + 0.10e2 / 0.3e1 * t13402 * t15909 + 0.10e2 / 0.3e1 * t4013 * t57774 + 0.10e2 / 0.3e1 * t4013 * t57777 - 0.4e1 / 0.3e1 * t4026 * t58645 - 0.4e1 / 0.3e1 * t13412 * t16122 - 0.4e1 / 0.3e1 * t13424 * t16122 - 0.4e1 / 0.3e1 * t4026 * t56362;
23132   t58936 = t13419 * t15913;
23133   t58938 = t7591 * t14966;
23134   t58942 = -0.4e1 / 0.3e1 * t4026 * t56365 - 0.4e1 / 0.3e1 * t4026 * t56368 - 0.80e2 / 0.9e1 * t58936 + 0.10e2 / 0.3e1 * t58938 * t3765 + t53073 + 0.880e3 / 0.27e2 * t53074 - t53082 + t53097 + t53101 + t53103 + t53105;
23135   t58953 = t400 * t3155 * t423 * t1138;
23136   t58955 = t15388 * t4297;
23137   t58965 = t4079 * t57494;
23138   t58968 = t53112 - t53114 - 0.12e2 * t14821 * t4079 * t58466 - 0.4e1 * t8342 * t4484 + 0.8e1 / 0.9e1 * t58953 + 0.16e2 / 0.9e1 * t58955 - 0.2e1 / 0.3e1 * t15011 * t4289 - 0.2e1 / 0.3e1 * t15015 * t4289 - 0.2e1 / 0.3e1 * t4465 * t14803 - 0.2e1 / 0.3e1 * t4465 * t14807 - 0.6e1 * t13345 * t58965;
23139   t58971 = t15388 * t4289;
23140   t58981 = t49014 * t56711;
23141   t58986 = t13538 * t16021;
23142   t58989 = t4049 * t10033;
23143   t59049 = -0.4e1 * t51423 * t15255 - 0.2e1 * t13011 * t13502 * t56805 + 0.4e1 * t13011 * t15258 * t56749 - 0.4e1 * t14400 * t15258 * t56753 - 0.4e1 * t13011 * t54089 * t14395 + t14400 * t13502 * t56746 - 0.2e1 * t13011 * t13502 * t56994 + 0.2e1 * t14400 * t13502 * t56809 - 0.4e1 * t13011 * t54089 * t14381 - 0.4e1 * t13011 * t53947 * t14414 + 0.12e2 * t48287 * t53947 * t14395 + 0.6e1 * t48287 * t13502 * t56739 - 0.2e1 * t14400 * t15258 * t43006 - 0.4e1 * t56777 * t15259 - 0.4e1 * t13011 * t49077 * t16072 - 0.4e1 * t13011 * t13502 * t56771 + 0.2e1 * t3905 * t3911 * t15222 * t1013 * t194 - 0.6e1 * t4061 * t10175 - 0.4e1 * t13011 * t13502 * t56845;
23144   t59059 = t4058 * t3453;
23145   t59093 = -t51476 - t56861 / 0.48e2 + t56863 / 0.384e3 - 0.5e1 / 0.192e3 * t56865 + t56867 / 0.192e3 - 0.7e1 / 0.144e3 * t56869 + t56871 / 0.192e3 - t56873 / 0.768e3 - t51482 - t56876 / 0.24e2 - t53972 + t53973;
23146   t59104 = -0.5e1 / 0.96e2 * t56879 + t56881 / 0.96e2 + 0.7e1 / 0.288e3 * t56883 - t56885 / 0.192e3 - 0.35e2 / 0.288e3 * t56887 - 0.119e3 / 0.432e3 * t51506 + t53984 - t53987 - 0.7e1 / 0.24e2 * t56889 + 0.7e1 / 0.72e2 * t56891 - t49115 + 0.7e1 / 0.1152e4 * t56893 + 0.5e1 / 0.192e3 * t56895;
23147   t59115 = -t56899 / 0.768e3 - 0.7e1 / 0.576e3 * t56901 + 0.7e1 / 0.1152e4 * t56903 - 0.5e1 / 0.32e2 * t56905 - t56908 / 0.2e1 + t56911 / 0.4e1 + t56914 / 0.8e1 - t49122 - t53995 + t53998 - 0.119e3 / 0.1728e4 * t51541 - t54002 + t56916 / 0.192e3;
23148   t59126 = -t56919 / 0.384e3 - t56921 / 0.768e3 - t56923 / 0.128e3 + t56925 / 0.128e3 - t56927 / 0.96e2 + t56929 / 0.192e3 + t56931 / 0.96e2 + t56933 / 0.96e2 - t54007 - t51569 - 0.35e2 / 0.54e2 * t51571 + t54015 + 0.5e1 / 0.96e2 * t56936;
23149   t59128 = t59093 + t59104 + t59115 + t59126;
23150   t59145 = -0.4e1 * t51423 * t15242 + 0.2e1 * t14400 * t54089 * t14414 - t16059 * t4073 - t56832 * t1241 - 0.2e1 * t12998 * t16506 - 0.2e1 * t3905 * t13026 * t59059 * t1892 + 0.2e1 * t12998 * t16511 - 0.12e2 * t14369 * t15239 - 0.2e1 * t4364 * t15282 + 0.2e1 * t4061 * t10184 + t3905 * t3911 * t4058 * t3478 * t194 + t3905 * t3911 * t1237 * t10017 * t194 + 0.2e1 * t3905 * t3911 * t4497 * t2784 * t194 - t1185 * t1186 * t196 * t59128 + 0.4e1 * t4061 * t10179 + t3905 * t3911 * t16474 * t707 * t194 + 0.2e1 * t14369 * t15264 + 0.2e1 * t14369 * t15268 - 0.2e1 * t14367 * t4511 + t12998 * t16516;
23151   t59194 = t16475 * t187;
23152   t59198 = 0.2e1 * t14369 * t15279 - 0.12e2 * t3905 * t13005 * t16496 * t743 - 0.12e2 * t3905 * t13005 * t4502 * t2841 + t12998 * t16519 + t3905 * t3911 * t59059 * t194 + 0.2e1 * t3905 * t3906 * t1237 * t10235 + params->beta * t59128 * t221 + 0.4e1 * t14369 * t15251 + 0.4e1 * t12998 * t16497 + 0.4e1 * t3905 * t3906 * t15222 * t1030 + 0.8e1 * t13011 * t15258 * t1030 * t14402 - 0.2e1 * t54045 * t1031 - t13485 * t3520 + 0.2e1 * t13485 * t3504 - 0.6e1 * t12998 * t16490 - 0.6e1 * t3905 * t13005 * t4058 * t3503 + 0.2e1 * t56969 * t4065 + 0.4e1 * t14369 * t15247 - t59194 * t744 + 0.2e1 * t12998 * t16501;
23153   t59226 = t1887 * t4497;
23154   t59251 = 0.4e1 * t14369 * t15274 + 0.4e1 * t51359 * t4503 - 0.2e1 * t15225 * t2842 + 0.2e1 * t3905 * t3906 * t4058 * t3519 - 0.6e1 * t3905 * t13005 * t16500 * t743 - 0.2e1 * t13011 * t13502 * t56763 - t4061 * t10236 + 0.4e1 * t3905 * t3906 * t4497 * t2841 + t56969 * t4070 + 0.24e2 * t3905 * t48379 * t16489 * t743 - 0.4e1 * t14400 * t59226 * t14402 - t3903 * t16522 + 0.2e1 * t3905 * t3906 * t16474 * t743 - 0.4e1 * t48263 * t16493 + t14400 * t13502 * t56743 + 0.2e1 * t56777 * t15270 + 0.6e1 * t14400 * t54025 * t56795 - 0.6e1 * t14400 * t15258 * t56800 + 0.4e1 * t15225 * t2819 + 0.2e1 * t51359 * t4508;
23155   t59255 = t175 * (t59049 + t59145 + t59198 + t59251) * t748;
23156   t59257 = t15289 * t9882;
23157   t59262 = t4049 * t10028;
23158   t59270 = t54409 * t14443;
23159   t59273 = t15289 * t14437;
23160   t59276 = -t10238 * t2849 * t4079 - 0.2e1 * t1033 * t2849 * t54390 + 0.3e1 * t13459 * t1768 * t3448 + 0.6e1 * t13459 * t2857 * t3427 + 0.6e1 * t16659 * t31406 + t169 * t59255 - 0.6e1 * t1768 * t58965 - 0.6e1 * t1768 * t58986 - 0.6e1 * t1768 * t59257 - 0.6e1 * t1768 * t59273 - 0.6e1 * t2849 * t58981 + 0.4e1 * t2849 * t59270 + 0.6e1 * t2857 * t58989 + 0.12e2 * t2857 * t59262 + 0.12e2 * t54343 * t57531 - 0.12e2 * t54346 * t57548;
23161   t59277 = t13542 * t57504;
23162   t59280 = t4079 * t42227;
23163   t59289 = t4079 * t42261;
23164   t59292 = t16524 * t748;
23165   t59296 = t16524 * t2093;
23166   t59302 = t4079 * t42273;
23167   t59311 = t4079 * t42250;
23168   t59314 = t15206 * t2803;
23169   t59319 = t13542 * t42370;
23170   t59322 = t13542 * t56699;
23171   t59325 = 0.3e1 * t10013 * t1768 * t4049 - t13538 * t2849 * t3522 + 0.6e1 * t15206 * t1768 * t2728 - 0.2e1 * t15289 * t2844 * t2849 + 0.6e1 * t1768 * t54368 * t999 + 0.3e1 * t1768 * t59292 * t677 + 0.2e1 * t2849 * t3431 * t48999 - t2849 * t59296 * t746 + 0.6e1 * t1768 * t59277 - 0.6e1 * t1768 * t59280 - 0.3e1 * t1768 * t59289 - 0.3e1 * t1768 * t59302 + 0.2e1 * t2849 * t59319 + 0.4e1 * t2849 * t59322 - 0.6e1 * t2857 * t59311 + 0.12e2 * t2857 * t59314;
23172   t59326 = t59276 + t59325;
23173   t59327 = my_piecewise3(t296, 0, t59326);
23174   t59340 = my_piecewise3(t359, 0, t59326);
23175   t59353 = t59327 * t34 / 0.2e1 + t16680 * t413 / 0.2e1 + t15301 * t886 + 0.2e1 * t4520 * t4 * t377 + t4083 * t3196 / 0.2e1 + t1247 * t9774 / 0.2e1 + t59340 * t46 / 0.2e1 + t16686 * t436 / 0.2e1 + t15310 * t905 - 0.2e1 * t4523 * t4 * t377 + t4086 * t3202 / 0.2e1 + t1249 * t9785 / 0.2e1;
23176   t59369 = 0.20e2 / 0.3e1 * t4013 * t56645 + t53140 + 0.16e2 / 0.9e1 * t58971 - t98 * t59353 + t4120 * t3530 - t4009 * t15972 / 0.3e1 - t4017 * t15972 / 0.3e1 - t1227 * t56322 / 0.3e1 - t1227 * t56326 / 0.3e1 - t36335 * t1226 * t1138 / 0.3e1 + 0.2e1 * t4553 * t2866;
23177   t59391 = -0.2e1 * t16692 * t449 * t464 - 0.4e1 * t14120 * t4478 - 0.4e1 * t14120 * t4484 - 0.4e1 * t14123 * t4478 - 0.4e1 * t14123 * t4484 - 0.2e1 * t1476 * t16719 - 0.4e1 * t15001 * t4302 - 0.4e1 * t15343 * t4302 + t16526 * t3977 - 0.4e1 * t4488 * t9859 + t53159;
23178   t59416 = -0.3e1 * t13345 * t59289 + 0.10e2 / 0.3e1 * t4013 * t56390 + 0.20e2 / 0.3e1 * t14967 * t14478 - 0.4e1 * t1476 * t16723 - 0.4e1 * t2448 * t16723 - 0.4e1 * t449 * t3091 * t4483 - 0.6e1 * t13345 * t59257 - 0.2e1 * t449 * t11407 * t1231 - 0.4e1 / 0.3e1 * t14978 * t14710 + 0.5e1 / 0.3e1 * t13409 * t15939 + 0.5e1 / 0.3e1 * t13402 * t15939;
23179   t59430 = t4021 * t16249;
23180   t59434 = t2378 * t14966;
23181   t59441 = 0.5e1 / 0.3e1 * t4013 * t56678 + 0.5e1 / 0.3e1 * t4013 * t56682 - 0.6e1 * t14821 * t59311 + 0.12e2 * t14821 * t59262 + 0.20e2 / 0.3e1 * t4013 * t56574 + t58665 * t1245 + 0.16e2 / 0.9e1 * t59430 - 0.2e1 / 0.3e1 * t15025 * t4289 - 0.4e1 / 0.3e1 * t59434 * t3791 + 0.5e1 / 0.3e1 * t4013 * t57786 - 0.2e1 / 0.3e1 * t4026 * t56661;
23182   t59442 = t13453 * t16122;
23183   t59449 = t9657 * t4012;
23184   t59456 = 0.32e2 / 0.9e1 * t59442 + t53708 + t53711 + t53713 + t53715 - 0.4e1 * t9859 * t4484 - 0.4e1 * t449 * t4527 * t2478 + t48807 - 0.2e1 / 0.3e1 * t59449 * t3791 - 0.4e1 / 0.3e1 * t4026 * t56430 - 0.10e2 * t48948 * t15896;
23185   t59464 = t400 * t58881;
23186   t59481 = -0.10e2 * t48832 * t15896 - 0.10e2 * t13415 * t56545 - 0.10e2 * t13415 * t56549 - 0.2e1 / 0.3e1 * t59464 * t3791 + 0.10e2 / 0.3e1 * t53753 * t4273 + 0.10e2 / 0.3e1 * t53757 * t4273 + 0.10e2 / 0.3e1 * t14967 * t14159 - 0.2e1 / 0.3e1 * t4026 * t56435 - 0.2e1 / 0.3e1 * t4026 * t56440 - 0.2e1 / 0.3e1 * t4026 * t56444 + 0.10e2 / 0.3e1 * t14975 * t14715;
23187   t59498 = 0.10e2 / 0.3e1 * t14967 * t14164 - 0.3e1 * t13345 * t59302 - 0.2e1 * t57692 * t1232 - 0.2e1 * t15998 * t4035 + 0.20e2 / 0.3e1 * t4013 * t56577 + 0.20e2 / 0.3e1 * t4013 * t56581 + 0.6e1 * t13345 * t59277 + 0.4e1 * t14484 * t59322 + t53740 + t53742 + t53744;
23188   t59519 = t53746 + t53750 + 0.4e1 * t14484 * t59270 - t1214 * t16525 * t3985 - 0.4e1 / 0.3e1 * t53807 * t4293 - t53769 - 0.4e1 / 0.3e1 * t14978 * t14725 - 0.4e1 / 0.3e1 * t14978 * t14729 - 0.4e1 / 0.3e1 * t14978 * t14733 - 0.20e2 * t13415 * t57625 + 0.70e2 * t49497 * t57621;
23189   t59532 = t53767 * t4273;
23190   t59534 = -t53771 - t53773 + t53775 - 0.2e1 * t15998 * t4042 - 0.88e2 / 0.27e2 * t48850 - 0.88e2 / 0.27e2 * t48852 - 0.88e2 / 0.27e2 * t48854 - 0.2e1 * t449 * t1252 * t9848 + 0.20e2 / 0.3e1 * t4013 * t58591 - 0.6e1 * t52859 * t15022 - 0.80e2 / 0.9e1 * t59532;
23191   t59559 = -0.2e1 * t9866 * t4046 - 0.20e2 * t13415 * t57592 + 0.20e2 / 0.3e1 * t4013 * t57596 - 0.2e1 / 0.3e1 * t4009 * t16249 - 0.2e1 / 0.3e1 * t4017 * t16249 - 0.4e1 * t2442 * t15001 + 0.20e2 / 0.3e1 * t4013 * t56649 - 0.2e1 * t9866 * t4035 - 0.2e1 * t1476 * t16709 - 0.2e1 * t2448 * t16709 - 0.2e1 * t449 * t4090 * t3249;
23192   t59561 = t13419 * t15909;
23193   t59573 = t53836 + t53838 + t53840 + t53842 - 0.176e3 / 0.27e2 * t53862 - 0.80e2 / 0.9e1 * t59561 - 0.2e1 / 0.3e1 * t1227 * t58630 - 0.2e1 / 0.3e1 * t1227 * t58634 - 0.6e1 * t13345 * t59273 - 0.2e1 / 0.3e1 * t15031 * t4289 - 0.2e1 / 0.3e1 * t4459 * t14803;
23194   t59585 = t13419 * t15939;
23195   t59594 = -0.2e1 / 0.3e1 * t4459 * t14807 - 0.2e1 / 0.3e1 * t2378 * t15014 * t1138 - 0.2e1 / 0.3e1 * t16441 * t3785 - 0.2e1 / 0.3e1 * t16441 * t3795 - 0.40e2 / 0.9e1 * t59585 - 0.4e1 * t2442 * t15052 - t53871 + t53876 - 0.176e3 / 0.27e2 * t53879 + 0.2e1 * t14484 * t59319 - 0.2e1 * t40329 * t1232;
23196   t59600 = t677 * t1243;
23197   t59616 = t36282 * t4012;
23198   t59619 = t1214 * t59255 - 0.6e1 * t13345 * t58986 + 0.6e1 * t3977 * t16706 + 0.6e1 * t1214 * t59600 * t16241 + 0.10e2 / 0.3e1 * t53906 * t4273 + 0.10e2 / 0.3e1 * t53909 * t4273 + 0.10e2 / 0.3e1 * t14975 * t14159 + 0.10e2 / 0.3e1 * t14975 * t14164 + 0.20e2 / 0.3e1 * t14967 * t14763 + 0.6e1 * t14821 * t58989 + 0.5e1 / 0.3e1 * t59616 * t3765;
23199   t59639 = -t447 * t16692 - 0.10e2 * t13415 * t57602 + 0.10e2 / 0.3e1 * t4013 * t57606 - 0.2e1 * t4431 * t15346 - 0.4e1 * t2442 * t15323 - 0.2e1 * t56719 * t1232 - t1214 * t1244 * t35144 - 0.352e3 / 0.27e2 * t54224 - t54229 + 0.5e1 / 0.3e1 * t4013 * t56448 - 0.4e1 / 0.3e1 * t54560 * t4293;
23200   t59663 = -0.4e1 / 0.3e1 * t54563 * t4293 - 0.4e1 / 0.3e1 * t14972 * t14725 - 0.4e1 / 0.3e1 * t14972 * t14729 - 0.4e1 / 0.3e1 * t14972 * t14733 - 0.20e2 * t13415 * t56565 + 0.20e2 / 0.3e1 * t13409 * t16113 + 0.20e2 / 0.3e1 * t13402 * t16113 + 0.6e1 * t1214 * t53780 * t4433 + 0.2e1 * t3977 * t16641 + 0.2e1 * t4431 * t15287 - 0.20e2 * t13415 * t56591;
23201   t59669 = t13419 * t16113;
23202   t59681 = 0.20e2 / 0.3e1 * t4013 * t56594 - 0.160e3 / 0.9e1 * t59669 - 0.2e1 * t4431 * t15382 - t3977 * t16617 + 0.6e1 * t4431 * t15385 - t54261 - t54267 + t54273 - 0.4e1 / 0.3e1 * t14978 * t14720 - 0.2e1 / 0.3e1 * t4026 * t57762 - 0.176e3 / 0.27e2 * t48961;
23203   t59697 = t2378 * t15354 * t1138;
23204   t59699 = t4021 * t15957;
23205   t59701 = t174 * t16524;
23206   t59710 = -0.2e1 / 0.3e1 * t15011 * t4297 - 0.2e1 / 0.3e1 * t15015 * t4297 - 0.2e1 / 0.3e1 * t4465 * t14775 + 0.12e2 * t13345 * t13542 * t57586 - 0.4e1 * t4302 * t15045 + 0.6e1 * t1214 * t15384 * t14489 + 0.16e2 / 0.9e1 * t59697 + 0.8e1 / 0.9e1 * t59699 + 0.3e1 * t1214 * t59701 * t3980 + 0.3e1 * t1214 * t13604 * t16027 + 0.12e2 * t14821 * t59314;
23207   t59730 = 0.4e1 * t58601 * t14992 - 0.2e1 * t1214 * t15286 * t2850 - 0.2e1 * t9652 * t1252 - 0.2e1 * t3220 * t4090 + t16232 * t4077 - 0.88e2 / 0.27e2 * t49474 - t54468 - t1214 * t4076 * t10242 + 0.3e1 * t1214 * t4124 * t57648 - t54470 - 0.4e1 * t16016 * t4042;
23208   t59740 = -t48648 - t50345 - 0.44e2 / 0.9e1 * t50348 - t53123 + t53124 - 0.4e1 / 0.3e1 * t57796 - 0.3e1 / 0.2e1 * t57799 + t57802 + 0.2e1 / 0.3e1 * t57804 + t57807 / 0.2e1 - t57809 / 0.4e1;
23209   t59741 = my_piecewise3(t95, 0, t59740);
23210   t59748 = t49500 * t15896;
23211   t59763 = -0.2e1 * t449 * t3714 * t4041 - 0.2e1 * t449 * t363 * t59741 - 0.6e1 * t14484 * t58981 - t9796 * t1252 + 0.80e2 / 0.3e1 * t59748 + 0.3e1 * t3977 * t16619 - 0.2e1 * t1476 * t16654 - 0.2e1 * t2448 * t16654 - 0.2e1 * t449 * t857 * t16563 - 0.4e1 * t2442 * t15326 - 0.4e1 * t57719 * t1232;
23212   t59777 = t4021 * t15972;
23213   t59779 = t15355 * t4289;
23214   t59789 = -0.4e1 * t16016 * t4035 - 0.4e1 * t8342 * t4488 - 0.4e1 * t1476 * t16716 - 0.4e1 * t2448 * t16716 - 0.4e1 * t449 * t15319 * t928 + 0.8e1 / 0.9e1 * t59777 + 0.16e2 / 0.9e1 * t59779 + 0.6e1 * t3977 * t16624 - 0.4e1 * t4302 * t15334 - 0.4e1 * t8342 * t4478 - 0.4e1 * t2442 * t15045;
23215   t59813 = -0.4e1 * t9859 * t4478 - 0.4e1 * t2442 * t15343 - 0.6e1 * t13345 * t59280 + 0.20e2 / 0.3e1 * t14975 * t14763 - t16232 * t4129 + 0.6e1 * t1214 * t48912 * t16241 - 0.20e2 * t53764 * t14706 + 0.2e1 * t1214 * t4076 * t9934 + 0.6e1 * t4431 * t15348 + 0.6e1 * t4431 * t15378 - 0.2e1 * t4431 * t15376;
23216   t59817 = t49234 * t16186;
23217   t59832 = 0.40e2 * t49228 * t57868 + 0.160e3 / 0.9e1 * t59817 - 0.20e2 / 0.3e1 * t13663 * t58178 - 0.20e2 / 0.3e1 * t53327 * t14512 - 0.20e2 / 0.3e1 * t13663 * t58088 - 0.10e2 / 0.3e1 * t13663 * t58093 + 0.20e2 * t15099 * t57887 - 0.20e2 / 0.3e1 * t13663 * t57893 + t53287 - t53289 + t53293 + 0.352e3 / 0.27e2 * t53295;
23218   t59849 = t53302 - t53305 + t53307 + t53309 + t53315 + 0.20e2 * t34313 * t15098 * t14503 - 0.20e2 / 0.3e1 * t53310 * t14507 - 0.20e2 / 0.3e1 * t53310 * t14512 + 0.20e2 * t6453 * t4404 * t57 * t14503 - 0.20e2 / 0.3e1 * t53327 * t14507 - t53370 - 0.880e3 / 0.27e2 * t53409 + 0.80e2 * t36473 * t15160;
23219   t59871 = 0.80e2 * t58230 * t15160 - 0.70e2 * t53363 * t58185 + 0.20e2 * t49228 * t58189 + 0.20e2 * t15099 * t58158 - 0.20e2 / 0.3e1 * t49379 * t16186 - 0.20e2 / 0.3e1 * t53259 * t16186 - 0.20e2 / 0.3e1 * t49383 * t16186 - 0.20e2 / 0.3e1 * t13663 * t58170 - 0.20e2 / 0.3e1 * t13663 * t58174 + 0.88e2 / 0.27e2 * t49363 + 0.88e2 / 0.27e2 * t49367 - t49372;
23220   t59873 = t1231 * t3209;
23221   t59895 = 0.88e2 / 0.27e2 * t49375 + 0.40e2 * t7757 * t59873 * t443 - t53488 + 0.10e2 * t15099 * t57898 - 0.10e2 / 0.3e1 * t13663 * t57902 - t53507 + t53509 + 0.4e1 * t881 * t15182 + 0.4e1 * t881 * t15185 + 0.4e1 * t2377 * t4550 + 0.4e1 * t881 * t15169 + 0.4e1 * t881 * t15177 - 0.240e3 * t34500 * t1231 * t3152 * t443;
23222   t59925 = 0.80e2 * t7757 * t15159 * t2436 + 0.4e1 / 0.3e1 * t14614 * t15083 - 0.10e2 / 0.3e1 * t52098 * t4531 - 0.10e2 / 0.3e1 * t52101 * t4531 - 0.10e2 / 0.3e1 * t14641 * t15068 - 0.10e2 / 0.3e1 * t14641 * t15071 - 0.10e2 / 0.3e1 * t13260 * t16550 - 0.10e2 / 0.3e1 * t13266 * t16550 - 0.10e2 / 0.3e1 * t3939 * t1254 * t58345 + 0.10e2 * t47744 * t16533 + 0.10e2 * t47747 * t16533 + 0.10e2 * t13251 * t1254 * t58383;
23223   t59940 = t13251 * t4102 * t16151;
23224   t59942 = t14645 * t15055;
23225   t59945 = t3945 * t4102 * t16143;
23226   t59948 = t3945 * t4102 * t16147;
23227   t59958 = 0.4e1 * t2377 * t4547 - 0.8e1 * t1392 * t16605 - 0.8e1 * t400 * t4114 * t3209 - 0.8e1 * t400 * t4117 * t3209 + 0.40e2 * t1397 * t4117 * t3152 - 0.80e2 / 0.3e1 * t59940 - 0.32e2 / 0.9e1 * t59942 - 0.32e2 / 0.9e1 * t59945 - 0.16e2 / 0.9e1 * t59948 + 0.2e1 * t9656 * t1258 + 0.2e1 * t3149 * t4114 + 0.2e1 * t3149 * t4117 + 0.4e1 / 0.3e1 * t52467 * t4534;
23228   t59986 = 0.4e1 / 0.3e1 * t57850 * t4534 + 0.4e1 / 0.3e1 * t52471 * t4534 + 0.4e1 / 0.3e1 * t14645 * t15080 + 0.4e1 / 0.3e1 * t14645 * t15083 + 0.4e1 / 0.3e1 * t13263 * t16538 + 0.4e1 / 0.3e1 * t14624 * t16538 + 0.4e1 / 0.3e1 * t13281 * t16538 + 0.4e1 / 0.3e1 * t3945 * t1254 * t57937 + 0.4e1 / 0.3e1 * t3945 * t1254 * t57941 + 0.2e1 / 0.3e1 * t13263 * t16541 + 0.2e1 / 0.3e1 * t14624 * t16541 + 0.2e1 / 0.3e1 * t13281 * t16541;
23229   t60010 = -0.10e2 / 0.3e1 * t3939 * t1254 * t58349 - 0.5e1 / 0.3e1 * t13260 * t16528 - 0.5e1 / 0.3e1 * t13266 * t16528 - 0.5e1 / 0.3e1 * t3939 * t1254 * t58361 - 0.5e1 / 0.3e1 * t3939 * t1254 * t58365 - 0.10e2 / 0.3e1 * t58369 * t4094 + 0.4e1 / 0.3e1 * t19992 * t15083 + 0.4e1 / 0.3e1 * t14614 * t15061 - 0.5e1 / 0.3e1 * t58276 * t4094 + 0.2e1 / 0.3e1 * t58280 * t4097 - t53544 - t53546 - t53548;
23230   t60022 = t14662 * t15095;
23231   t60024 = t14614 * t15055;
23232   t60026 = -t53551 + 0.176e3 / 0.27e2 * t53553 + 0.176e3 / 0.27e2 * t53557 + 0.176e3 / 0.27e2 * t53559 - t53565 - t53567 - t53569 - t53571 - 0.8e1 * t400 * t16553 * t443 - 0.10e2 / 0.3e1 * t14662 * t15058 + 0.80e2 / 0.9e1 * t60022 - 0.32e2 / 0.9e1 * t60024;
23233   t60027 = t14641 * t15095;
23234   t60061 = 0.80e2 / 0.9e1 * t60027 + 0.2e1 * t397 * t16553 + 0.2e1 * t81 * t9848 * t1231 + 0.2e1 * t81 * t3249 * t4041 + 0.4e1 * t397 * t16556 + 0.4e1 * t81 * t2478 * t4483 + 0.4e1 * t81 * t928 * t15176 + 0.2e1 * t397 * t16564 + 0.2e1 * t81 * t464 * t16563 - 0.16e2 * t400 * t15185 * t912 - 0.16e2 * t400 * t4547 * t2436 - 0.16e2 * t1392 * t16593 + 0.2e1 * t81 * t96 * t59741;
23235   t60091 = -0.440e3 / 0.27e2 * t49424 + 0.176e3 / 0.27e2 * t49427 - 0.16e2 * t2378 * t15108 - 0.16e2 * t1392 * t16590 - 0.16e2 * t400 * t15182 * t912 - 0.8e1 * t9657 * t4111 - 0.16e2 * t400 * t16556 * t443 - 0.8e1 * t400 * t16564 * t443 - 0.16e2 * t400 * t15169 * t912 - 0.16e2 * t400 * t15177 * t912 - 0.16e2 * t400 * t4550 * t2436 + 0.2e1 / 0.3e1 * t58267 * t4097;
23236   t60107 = -0.10e2 / 0.3e1 * t58270 * t4094 + 0.4e1 / 0.3e1 * t58273 * t4097 + t53613 + t53618 - t53631 - t53633 - t53635 - t53638 - t53641 + 0.80e2 * t7757 * t4483 * t912 * t443 + 0.40e2 * t6445 * t16600 + 0.40e2 * t1397 * t4114 * t3152 - 0.10e2 / 0.3e1 * t14641 * t15058;
23237   t60133 = t3939 * t4102 * t16130;
23238   t60135 = 0.4e1 / 0.3e1 * t14645 * t15061 - 0.10e2 / 0.3e1 * t52233 * t4531 - 0.10e2 / 0.3e1 * t51935 * t4531 - 0.10e2 / 0.3e1 * t14662 * t15068 - 0.10e2 / 0.3e1 * t14662 * t15071 + 0.4e1 / 0.3e1 * t51944 * t4534 + 0.4e1 / 0.3e1 * t58068 * t4534 + 0.4e1 / 0.3e1 * t51947 * t4534 + 0.4e1 / 0.3e1 * t14614 * t15080 - 0.16e2 * t2378 * t15163 - 0.16e2 * t2378 * t15166 + 0.80e2 / 0.9e1 * t60133;
23239   t60137 = t3939 * t4102 * t16134;
23240   t60168 = 0.40e2 / 0.9e1 * t60137 + 0.2e1 / 0.3e1 * t3945 * t1254 * t57954 + 0.2e1 / 0.3e1 * t3945 * t1254 * t57964 - 0.5e1 / 0.3e1 * t3939 * t1254 * t57910 + 0.2e1 / 0.3e1 * t3945 * t1254 * t57914 - 0.5e1 / 0.3e1 * t58264 * t4094 - 0.8e1 * t400 * t1258 * t9792 + 0.2e1 / 0.3e1 * t58151 * t1255 + 0.2e1 / 0.3e1 * t58154 * t1255 + 0.2e1 / 0.3e1 * t16198 * t4106 + 0.2e1 / 0.3e1 * t14534 * t4539 + 0.2e1 / 0.3e1 * t14537 * t4539 + 0.2e1 / 0.3e1 * t4393 * t15135;
23241   t60195 = t58044 * t1255 / 0.3e1 + t58048 * t1255 / 0.3e1 + t16206 * t4106 / 0.3e1 + 0.2e1 / 0.3e1 * t14545 * t4539 + 0.2e1 / 0.3e1 * t14549 * t4539 + 0.2e1 / 0.3e1 * t4405 * t15135 + 0.2e1 / 0.3e1 * t58011 * t1255 + 0.2e1 / 0.3e1 * t58015 * t1255 + 0.2e1 / 0.3e1 * t16225 * t4106 + t3936 * t16573 / 0.3e1 + t3951 * t16573 / 0.3e1 + t1202 * t1254 * t58007 / 0.3e1;
23242   t60202 = t16225 * t4103;
23243   t60204 = t4393 * t15138;
23244   t60206 = t16206 * t4103;
23245   t60208 = t4405 * t15138;
23246   t60211 = t1202 * t4102 * t16220;
23247   t60213 = t16195 * t4103;
23248   t60215 = t16198 * t4103;
23249   t60223 = t58140 * t1255 / 0.3e1 + t58144 * t1255 / 0.3e1 + t16195 * t4106 / 0.3e1 - 0.16e2 / 0.9e1 * t60202 - 0.16e2 / 0.9e1 * t60204 - 0.8e1 / 0.9e1 * t60206 - 0.16e2 / 0.9e1 * t60208 - 0.8e1 / 0.9e1 * t60211 - 0.8e1 / 0.9e1 * t60213 - 0.16e2 / 0.9e1 * t60215 - 0.16e2 * t7763 * t4544 - 0.16e2 * t2378 * t15149 - 0.16e2 * t2378 * t15153;
23250   t60239 = t9657 * t4020 * t1138;
23251   t60249 = (t59832 + t59849 + t59871 + t59895 + t59925 + t59958 + t59986 + t60010 + t60026 + t60061 + t60091 + t60107 + t60135 + t60168 + t60195 + t60223) * t227 + 0.20e2 / 0.3e1 * t14975 * t14478 - 0.20e2 * t54262 * t14706 - 0.6e1 * t47378 * t16611 - 0.2e1 / 0.3e1 * t4465 * t14778 + t16609 * t751 + 0.8e1 / 0.9e1 * t60239 - 0.4e1 * t4302 * t15323 - 0.2e1 * t14863 * t4561 - 0.2e1 * t9866 * t4042 - 0.2e1 * t3977 * t16703;
23252   t60276 = 0.6e1 * t14863 * t4557 - 0.4e1 * t449 * t1110 * t15176 - 0.2e1 * t1214 * t4514 * t7972 - 0.40e2 * t52963 * t58408 - 0.4e1 * t57683 * t1232 - 0.2e1 * t916 * t15319 + 0.2e1 * t15192 * t1037 + 0.12e2 * t58606 * t15195 + 0.20e2 / 0.3e1 * t4013 * t56725 - 0.6e1 * t52859 * t14996 + 0.3e1 * t16232 * t4125 - 0.2e1 * t34651 * t1232;
23253   t60281 = t59534 + t59681 + t59594 + t59456 + t60276 + t59663 + t59559 + t59573 + t58815 + t58858 + t59710 + t58931 + t59498 + t59619 + t59441 + t59763 + t58907 + t58836 + t58792 + t59519 + t59639 + t60249 + t59481 + t59416 + t59391 + t59789 + t59369 + t58942 + t58885 + t59730 + t58968 + t59813;
23254   t60284 = t4563 * t1130;
23255   t60286 = t16730 * t372;
23256   t60329 = 0.6e1 * t1258 * t369 * t9848 + 0.12e2 * t15169 * t369 * t928 + 0.12e2 * t15177 * t369 * t928 + 0.12e2 * t2478 * t369 * t4550 + 0.6e1 * t3219 * t369 * t4041 + 0.6e1 * t3249 * t369 * t4114 + 0.6e1 * t3249 * t369 * t4117 + 0.3e1 * t369 * t59741 * t97 + 0.12e2 * t1125 * t15430 + 0.12e2 * t1125 * t15433 + 0.12e2 * t1125 * t15436 + 0.6e1 * t1127 * t15412 + 0.6e1 * t11530 * t1267 + 0.6e1 * t16761 * t873 + 0.6e1 * t3132 * t4577 + 0.3e1 * t3745 * t4146 + 0.3e1 * t3752 * t4137;
23257   t60368 = 0.3e1 * t1267 * t11541 + 0.12e2 * t1267 * t11533 + 0.12e2 * t369 * t4547 * t2478 + 0.6e1 * t1125 * t15444 + 0.12e2 * t1125 * t15441 + 0.12e2 * t4568 * t3138 + 0.6e1 * t873 * t16755 + 0.12e2 * t873 * t16758 + 0.6e1 * t4137 * t3749 + 0.6e1 * t4568 * t3141 + 0.6e1 * t1267 * t11538 + params->d * t60281 * t370 + 0.3e1 * t16741 * t875 + 0.6e1 * t3745 * t4143 + 0.6e1 * t369 * t16564 * t464 + 0.3e1 * t873 * t16764 + 0.3e1 * t11518 * t1269 + 0.12e2 * t3132 * t4574;
23258   t60371 = t11507 * t1272 + 0.2e1 * t3127 * t4580 + t54621 + 0.2e1 * t58766 + 0.2e1 * t1123 * t15447 + t54708 + t54710 + t58770 + t7 * t60281 * t372 + 0.2e1 * t60284 + t60286 + t872 * (t60329 + t60368) + t54718;
23259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23260     v4rho3sigma[7] = t58762 + t60371;
23261 
23262   t60398 = t13870 * t15900 / 0.3e1 + t4173 * t56435 / 0.3e1 + t4173 * t56440 / 0.3e1 + t4173 * t56444 / 0.3e1 + 0.2e1 / 0.3e1 * t54785 * t4293 + 0.2e1 / 0.3e1 * t54851 * t4293 + 0.2e1 / 0.3e1 * t15503 * t14725 + 0.2e1 / 0.3e1 * t15503 * t14729 + 0.2e1 / 0.3e1 * t15503 * t14733 + 0.2e1 / 0.3e1 * t13811 * t16122 + 0.2e1 / 0.3e1 * t13876 * t16122;
23263   t60419 = t56348 + t56351 + t4152 * t15957 / 0.6e1 + t4160 * t15957 / 0.6e1 + t4168 * t15957 / 0.6e1 + t1277 * t56634 / 0.6e1 + t1277 * t56638 / 0.6e1 + t7763 * t4596 * t1138 / 0.3e1 + t2378 * t15475 * t1138 / 0.3e1 + 0.2e1 / 0.3e1 * t13870 * t16122 + 0.2e1 / 0.3e1 * t4173 * t56362;
23264   t60441 = 0.2e1 / 0.3e1 * t4173 * t56365 + 0.2e1 / 0.3e1 * t4173 * t56368 - 0.5e1 / 0.3e1 * t15699 * t14164 - 0.5e1 / 0.3e1 * t55542 * t4273 - 0.5e1 / 0.3e1 * t55545 * t4273 - 0.5e1 / 0.3e1 * t55548 * t4273 - 0.5e1 / 0.3e1 * t15500 * t14715 + 0.2e1 / 0.3e1 * t15503 * t14720 + 0.5e1 * t49634 * t15896 + 0.5e1 * t50000 * t15896 - t56384;
23265   t60462 = -t56388 + 0.10e2 * t54903 * t14706 - 0.10e2 / 0.3e1 * t15500 * t14763 - 0.10e2 / 0.3e1 * t15699 * t14478 + t15472 * t4289 / 0.3e1 + t15476 * t4289 / 0.3e1 + t15489 * t4289 / 0.3e1 + t4597 * t14803 / 0.3e1 + t4597 * t14807 / 0.3e1 - 0.5e1 / 0.3e1 * t55606 * t4273 - 0.5e1 / 0.3e1 * t15699 * t14159;
23266   t60485 = -0.5e1 / 0.3e1 * t4156 * t58561 - 0.2e1 * t449 * t1307 * t9848 + t4160 * t15972 / 0.6e1 + t4168 * t15972 / 0.6e1 + t1277 * t56322 / 0.6e1 + t1277 * t56326 / 0.6e1 - t56429 - 0.5e1 / 0.3e1 * t15683 * t14855 - 0.5e1 / 0.3e1 * t55599 * t4273 - 0.5e1 / 0.3e1 * t55602 * t4273 - t9796 * t1307;
23267   t60502 = t17042 * t61;
23268   t60503 = t1397 * t60502;
23269   t60506 = -t56519 - 0.5e1 / 0.3e1 * t13879 * t15909 - 0.5e1 / 0.3e1 * t13882 * t15909 - 0.5e1 / 0.3e1 * t4156 * t57774 - 0.5e1 / 0.3e1 * t4156 * t57777 - 0.5e1 / 0.6e1 * t4156 * t56448 + 0.2e1 / 0.3e1 * t54885 * t4293 + 0.2e1 / 0.3e1 * t54889 * t4293 + 0.2e1 / 0.3e1 * t54893 * t4293 - 0.5e1 / 0.6e1 * t60503 * t3765 - t56563;
23270   t60524 = t16776 * t61;
23271   t60525 = t400 * t60524;
23272   t60532 = t15634 * t4289 / 0.3e1 + t15638 * t4289 / 0.3e1 + t15642 * t4289 / 0.3e1 + t4588 * t14803 / 0.3e1 + t4588 * t14807 / 0.3e1 + 0.2e1 / 0.3e1 * t54845 * t4293 + 0.2e1 / 0.3e1 * t54812 * t4293 + 0.2e1 / 0.3e1 * t55639 * t4293 + t60525 * t3791 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t56430 + 0.5e1 * t13892 * t57602;
23273   t60549 = -0.5e1 / 0.3e1 * t4156 * t57606 - t56622 - t56624 - t56626 + 0.5e1 * t50038 * t15896 + 0.5e1 * t13892 * t56545 + 0.5e1 * t13892 * t56549 - 0.10e2 / 0.3e1 * t13808 * t16113 - 0.10e2 / 0.3e1 * t13879 * t16113 - 0.10e2 / 0.3e1 * t13882 * t16113 - 0.10e2 / 0.3e1 * t4156 * t56574;
23274   t60567 = t9657 * t4155;
23275   t60574 = -0.10e2 / 0.3e1 * t4156 * t56577 - 0.10e2 / 0.3e1 * t4156 * t56581 - 0.5e1 / 0.3e1 * t4156 * t56552 + 0.2e1 / 0.3e1 * t4173 * t56556 + t56643 - 0.10e2 / 0.3e1 * t4156 * t56645 - 0.10e2 / 0.3e1 * t4156 * t56649 - 0.10e2 / 0.3e1 * t4156 * t58591 + t60567 * t3791 / 0.3e1 + 0.2e1 / 0.3e1 * t15686 * t14720 - 0.5e1 / 0.3e1 * t13882 * t15913;
23276   t60579 = t16780 * t61;
23277   t60580 = t1397 * t60579;
23278   t60589 = t15455 * t4297 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t56476 - 0.5e1 / 0.3e1 * t60580 * t3765 + 0.20e2 * t55715 * t58408 + t56675 + t56702 - 0.5e1 / 0.3e1 * t15683 * t14841 + 0.2e1 / 0.3e1 * t15686 * t14844 + t56710 - t56714 + t56718;
23279   t60619 = 0.10e2 / 0.3e1 * t13930 * t58170 + 0.10e2 / 0.3e1 * t13930 * t58174 + 0.10e2 / 0.3e1 * t13930 * t58178 + 0.10e2 / 0.3e1 * t50066 * t16186 + 0.10e2 / 0.3e1 * t55808 * t16186 + 0.10e2 / 0.3e1 * t50070 * t16186 - 0.10e2 * t34313 * t15515 * t14503 + 0.10e2 / 0.3e1 * t55815 * t14507 + 0.10e2 / 0.3e1 * t55815 * t14512 - t13281 * t16988 / 0.3e1 - t3945 * t4247 * t16147 / 0.3e1 - t3945 * t1309 * t57954 / 0.3e1;
23280   t60649 = -t3945 * t1309 * t57964 / 0.3e1 - 0.5e1 * t47744 * t16991 - 0.5e1 * t47747 * t16991 - 0.5e1 * t13251 * t4247 * t16151 - 0.5e1 * t13251 * t1309 * t58383 - 0.2e1 / 0.3e1 * t14614 * t15523 + 0.5e1 / 0.6e1 * t58276 * t4239 - t58280 * t4242 / 0.3e1 + 0.5e1 / 0.3e1 * t14641 * t15563 - 0.2e1 / 0.3e1 * t14645 * t15568 - 0.2e1 / 0.3e1 * t14645 * t15553 - 0.2e1 / 0.3e1 * t14645 * t15556 - 0.2e1 / 0.3e1 * t13263 * t16982;
23281   t60678 = -0.2e1 / 0.3e1 * t14624 * t16982 - 0.2e1 / 0.3e1 * t13281 * t16982 - 0.2e1 / 0.3e1 * t3945 * t15587 * t4400 - 0.2e1 / 0.3e1 * t3945 * t4668 * t14633 - 0.2e1 / 0.3e1 * t3945 * t4668 * t14637 - 0.2e1 / 0.3e1 * t13263 * t16985 + 0.5e1 / 0.6e1 * t58264 * t4239 - t58267 * t4242 / 0.3e1 + 0.5e1 / 0.3e1 * t58270 * t4239 - 0.2e1 / 0.3e1 * t58273 * t4242 + 0.5e1 / 0.3e1 * t14662 * t15563 - 0.2e1 / 0.3e1 * t14614 * t15568;
23282   t60708 = -0.2e1 / 0.3e1 * t57850 * t4663 - 0.2e1 / 0.3e1 * t52471 * t4663 - 0.2e1 / 0.3e1 * t14645 * t15550 + 0.5e1 / 0.3e1 * t52098 * t4660 + 0.5e1 / 0.3e1 * t52101 * t4660 + 0.5e1 / 0.3e1 * t14641 * t15535 + 0.5e1 / 0.3e1 * t14641 * t15538 + 0.5e1 / 0.3e1 * t14641 * t15541 + 0.5e1 / 0.3e1 * t13260 * t16971 + 0.5e1 / 0.3e1 * t13266 * t16971 + 0.5e1 / 0.3e1 * t3939 * t15587 * t4396 + 0.5e1 / 0.3e1 * t3939 * t4668 * t14672 + 0.5e1 / 0.3e1 * t3939 * t4668 * t14617;
23283   t60719 = t1201 * t4595;
23284   t60739 = -t14624 * t16988 / 0.3e1 - 0.10e2 * t6453 * t4404 * t1275 * t14503 + 0.10e2 / 0.3e1 * t55822 * t14507 - 0.10e2 * t6453 * t60719 * t14503 + 0.10e2 / 0.3e1 * t55789 * t14507 - 0.10e2 * t15516 * t57887 + 0.10e2 / 0.3e1 * t13930 * t57893 - 0.5e1 * t15516 * t57898 + 0.5e1 / 0.3e1 * t13930 * t57902 - 0.20e2 * t50061 * t57868 + 0.10e2 / 0.3e1 * t55822 * t14512 + 0.10e2 / 0.3e1 * t55789 * t14512;
23285   t60767 = 0.10e2 / 0.3e1 * t13930 * t58088 + 0.5e1 / 0.3e1 * t13930 * t58093 + 0.35e2 * t55781 * t58185 - 0.10e2 * t50061 * t58189 - 0.10e2 * t15516 * t58158 + 0.5e1 / 0.3e1 * t14641 * t15571 - 0.2e1 / 0.3e1 * t14645 * t15523 + 0.5e1 / 0.3e1 * t52233 * t4660 + 0.5e1 / 0.3e1 * t51935 * t4660 + 0.10e2 / 0.3e1 * t50074 * t16186 - 0.2e1 / 0.3e1 * t14624 * t16985 - 0.2e1 / 0.3e1 * t13281 * t16985 - 0.2e1 / 0.3e1 * t3945 * t4247 * t16143;
23286   t60777 = -0.2e1 / 0.3e1 * t3945 * t1309 * t57937 - 0.2e1 / 0.3e1 * t3945 * t1309 * t57941 - t13263 * t16988 / 0.3e1 - t58194 + t58196 + t58199 + t58202 + t58204 + t58207 + t58210 + t58212 + t58215;
23287   t60802 = t58218 + 0.5e1 / 0.3e1 * t3939 * t1309 * t58349 + 0.5e1 / 0.6e1 * t13260 * t16977 + 0.5e1 / 0.6e1 * t13266 * t16977 + 0.5e1 / 0.6e1 * t3939 * t4247 * t16134 + 0.5e1 / 0.6e1 * t3939 * t1309 * t58361 + 0.5e1 / 0.6e1 * t3939 * t1309 * t58365 + 0.5e1 / 0.3e1 * t58369 * t4239 - 0.2e1 / 0.3e1 * t19992 * t15556 - 0.2e1 / 0.3e1 * t52467 * t4663 + 0.5e1 / 0.3e1 * t14662 * t15571 + t58223 - t58227;
23288   t60806 = t58229 + t58232 + t58236 + t58238 + t58240 + t58242 + t58244 + t58247 - t58249 - t58251 + t58254 + t58259;
23289   t60807 = t58261 + t58263 - t58285 - t58288 - t58291 - t58294 - t58296 + t58298 + t58300 - t58303 - t58306 - t58309 - t58312;
23290   t60813 = t3173 * t49;
23291   t60820 = t3179 * t418;
23292   t60825 = t3183 * t418;
23293   t60830 = 0.440e3 / 0.27e2 * t60813 * t418 - 0.160e3 / 0.27e2 * t56041 * t15482 + 0.80e2 / 0.9e1 * t15479 * t1402 - 0.10e2 / 0.27e2 * t49971 * t60820 - 0.20e2 / 0.9e1 * t13817 * t9737 + 0.10e2 / 0.9e1 * t13817 * t60825 + 0.5e1 / 0.3e1 * t4163 * t9744 + t47459;
23294   t60848 = -t58315 - t58318 - t58321 - t58323 - t3936 * t17017 / 0.6e1 - t3951 * t17017 / 0.6e1 - t1202 * t60830 * t61 * t1204 / 0.6e1 - t1202 * t17016 * t3958 / 0.6e1 - t3936 * t17020 / 0.3e1 - t3951 * t17020 / 0.3e1 - t1202 * t15587 * t4412 / 0.3e1 - t1202 * t4668 * t14582 / 0.3e1;
23295   t60877 = -t3936 * t17023 / 0.6e1 - t3951 * t17023 / 0.6e1 - t1202 * t4247 * t16220 / 0.6e1 - t1202 * t1309 * t58007 / 0.6e1 - t58154 * t1310 / 0.3e1 - t16198 * t4248 / 0.3e1 - t16198 * t4251 / 0.3e1 - t14534 * t4669 / 0.3e1 - t14537 * t4669 / 0.3e1 - t4393 * t15588 / 0.3e1 - t4393 * t15590 / 0.3e1 - t14534 * t4672 / 0.3e1 - t14537 * t4672 / 0.3e1;
23296   t60908 = 0.5e1 / 0.6e1 * t3939 * t17016 * t3940 - t3945 * t17016 * t3946 / 0.3e1 + 0.5e1 / 0.3e1 * t3939 * t4668 * t14654 - 0.2e1 / 0.3e1 * t3945 * t4668 * t14658 + 0.5e1 / 0.6e1 * t3939 * t1309 * t57910 - t3945 * t1309 * t57914 / 0.3e1 + 0.5e1 / 0.3e1 * t13260 * t16974 + 0.5e1 / 0.3e1 * t13266 * t16974 + 0.5e1 / 0.3e1 * t3939 * t4247 * t16130 + 0.5e1 / 0.3e1 * t3939 * t1309 * t58345 + t58325 - t58329;
23297   t60931 = -t58331 - t58333 - t4393 * t15594 / 0.3e1 - t4393 * t15596 / 0.3e1 - t58044 * t1310 / 0.6e1 - t58048 * t1310 / 0.6e1 - t16206 * t4248 / 0.6e1 - t16206 * t4251 / 0.6e1 - t14545 * t4669 / 0.3e1 - t14549 * t4669 / 0.3e1 - t4405 * t15588 / 0.3e1 - t4405 * t15590 / 0.3e1 - t14545 * t4672 / 0.3e1;
23298   t60957 = -t14549 * t4672 / 0.3e1 - t4405 * t15594 / 0.3e1 - t4405 * t15596 / 0.3e1 - t58011 * t1310 / 0.3e1 - t58015 * t1310 / 0.3e1 - t16225 * t4248 / 0.3e1 - t16225 * t4251 / 0.3e1 - t58140 * t1310 / 0.6e1 - t58144 * t1310 / 0.6e1 - t16195 * t4248 / 0.6e1 - t16195 * t4251 / 0.6e1 - t58151 * t1310 / 0.3e1;
23299   t60976 = -t58373 + 0.5e1 / 0.3e1 * t14662 * t15535 + 0.5e1 / 0.3e1 * t14662 * t15538 + 0.5e1 / 0.3e1 * t14662 * t15541 - 0.2e1 / 0.3e1 * t51944 * t4663 - 0.2e1 / 0.3e1 * t58068 * t4663 - 0.2e1 / 0.3e1 * t51947 * t4663 - 0.2e1 / 0.3e1 * t14614 * t15550 - 0.2e1 / 0.3e1 * t14614 * t15553 - 0.2e1 / 0.3e1 * t14614 * t15556 + t58389 - t58391 - t58394;
23300   t60994 = -t447 * t16945 - t56721 + (t60619 + t60649 + t60678 + t60708 + t60739 + t60767 + t60777 + t60802 + t60806 + t60807 + t60848 + t60877 + t60908 + t60931 + t60957 + t60976) * t227 - 0.10e2 / 0.3e1 * t4156 * t56725 - t56730 - t56732 + 0.2e1 / 0.3e1 * t15503 * t14844 - 0.5e1 / 0.3e1 * t15500 * t14855 + 0.2e1 / 0.3e1 * t54913 * t4293 - 0.2e1 * t1476 * t16771 - 0.2e1 * t2448 * t16771;
23301   t61015 = -0.2e1 * t449 * t4235 * t3249 - 0.2e1 * t916 * t15862 - 0.5e1 / 0.3e1 * t15699 * t14855 - 0.5e1 / 0.3e1 * t13808 * t15909 + t57055 + 0.2e1 / 0.3e1 * t15686 * t14725 + 0.2e1 / 0.3e1 * t15686 * t14729 + t57057 - 0.4e1 * t2442 * t15508 + t15452 * t4297 / 0.3e1 + t2378 * t15488 * t1138 / 0.3e1;
23302   t61042 = t16807 * t3785 / 0.3e1 + t16807 * t3795 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t58645 - 0.5e1 / 0.3e1 * t4156 * t56611 + t1392 * t17042 * t1138 / 0.6e1 + t400 * t404 * t17015 * t1138 / 0.6e1 + t400 * t25 * t60830 * t1138 / 0.6e1 - 0.2e1 * t9652 * t1307 - 0.2e1 * t3220 * t4235 + t4254 * t3530 - t57585;
23303   t61063 = t15634 * t4297 / 0.3e1 + t15638 * t4297 / 0.3e1 + t15642 * t4297 / 0.3e1 + t4588 * t14775 / 0.3e1 + t4588 * t14778 / 0.3e1 + t4152 * t15972 / 0.6e1 + t57589 + 0.10e2 * t13892 * t56591 - 0.10e2 / 0.3e1 * t4156 * t56594 - 0.35e2 * t49594 * t57621 - 0.5e1 / 0.6e1 * t13808 * t15939;
23304   t61083 = -0.5e1 / 0.6e1 * t13879 * t15939 - 0.5e1 / 0.6e1 * t13882 * t15939 - 0.5e1 / 0.6e1 * t4156 * t56678 - t57610 - 0.2e1 * t2440 * t4656 - 0.4e1 * t9859 * t4607 - 0.4e1 * t2442 * t15655 + t57617 + t4152 * t15976 / 0.3e1 + t4160 * t15976 / 0.3e1 + t4168 * t15976 / 0.3e1;
23305   t61111 = t1277 * t57752 / 0.3e1 + t1277 * t57756 / 0.3e1 + t1277 * t58630 / 0.3e1 + t1277 * t58634 / 0.3e1 + t1392 * t16780 * t1138 / 0.3e1 + t400 * t2386 * t4595 * t1138 / 0.3e1 + t400 * t883 * t15487 * t1138 / 0.3e1 + t16781 * t3785 / 0.3e1 + t16781 * t3795 / 0.3e1 + 0.10e2 * t13892 * t57625 + t15452 * t4289 / 0.3e1;
23306   t61126 = t7591 * t15609;
23307   t61131 = t2378 * t15609;
23308   t61136 = t15455 * t4289 / 0.3e1 + t15458 * t4289 / 0.3e1 + t4582 * t14803 / 0.3e1 + t4582 * t14807 / 0.3e1 - 0.5e1 / 0.3e1 * t15699 * t14841 - 0.5e1 / 0.3e1 * t61126 * t3765 + 0.2e1 / 0.3e1 * t15610 * t14844 + 0.2e1 / 0.3e1 * t61131 * t3791 + t4173 * t57762 / 0.3e1 - t57618 - t57629;
23309   t61145 = t57631 + t57638 + t57645 + t57651 + 0.2e1 / 0.3e1 * t15686 * t14733 + 0.2e1 / 0.3e1 * t15686 * t14710 + 0.2e1 / 0.3e1 * t15610 * t14710 + t57654 - 0.4e1 * t4302 * t15508 - t57656 - t57671;
23310   t61167 = -t57678 + 0.2e1 / 0.3e1 * t13811 * t16119 + 0.2e1 / 0.3e1 * t13876 * t16119 + 0.2e1 / 0.3e1 * t13870 * t16119 + 0.2e1 / 0.3e1 * t4173 * t56692 + 0.2e1 / 0.3e1 * t4173 * t56696 + 0.2e1 / 0.3e1 * t4173 * t56656 - 0.5e1 / 0.3e1 * t54910 * t4273 - 0.5e1 / 0.3e1 * t54782 * t4273 - 0.5e1 / 0.3e1 * t54848 * t4273 - 0.5e1 / 0.3e1 * t15500 * t14159;
23311   t61180 = -0.5e1 / 0.3e1 * t15500 * t14164 - t57685 - t57687 + 0.2e1 * t4675 * t2866 - 0.5e1 / 0.3e1 * t15683 * t14715 - t57689 + t17043 * t3785 / 0.6e1 - t57694 - t57696 - 0.5e1 / 0.6e1 * t4156 * t56682 + 0.2e1 / 0.3e1 * t15610 * t14725;
23312   t61187 = t1397 * t60524;
23313   t61190 = my_piecewise3(t296, 0, t57555);
23314   t61203 = t2214 * t4627;
23315   t61253 = t4631 * t15804;
23316   t61265 = -0.4e1 * t15805 * t61203 * t15807 + 0.2e1 * t15805 * t14037 * t1075 * t2996 - 0.12e2 * t4209 * t14030 * t16899 * t844 + 0.6e1 * t15805 * t55308 * t37581 * t813 - 0.6e1 * t15805 * t15806 * t3615 * t813 + t4209 * t4215 * t4201 * t3667 * t329 - 0.12e2 * t15774 * t15782 + t14023 * t16922 + t14023 * t16919 + 0.2e1 * t4209 * t4215 * t15762 * t1074 * t329 - 0.6e1 * t4209 * t14030 * t16903 * t844 + t4209 * t4215 * t16873 * t813 * t329 - 0.4e1 * t14036 * t14037 * t1098 * t2996 * t329 - 0.4e1 * t55037 * t15787 + 0.2e1 * t14023 * t16914 + 0.2e1 * t61253 * t15820 - 0.2e1 * t14036 * t14037 * t3608 * t844 - 0.2e1 * t15765 * t3071 + 0.2e1 * t15805 * t55052 * t15819;
23317   t61322 = -0.2e1 * t14036 * t14037 * t3668 * t844 - 0.4e1 * t14036 * t55052 * t15800 + t15805 * t14037 * t38006 * t329 - 0.2e1 * t14036 * t14037 * t3696 * t813 * t329 - 0.4e1 * t61253 * t15808 - 0.2e1 * t14023 * t16909 + 0.6e1 * t49685 * t14037 * t3680 * t813 * t329 - 0.4e1 * t49681 * t16896 - 0.4e1 * t14036 * t49764 * t16895 + 0.4e1 * t15765 * t3050 - 0.4e1 * t14036 * t55256 * t15819 - t16882 * t4221 - 0.12e2 * t4209 * t14030 * t4634 * t3070 + 0.4e1 * t55261 * t4635 - 0.6e1 * t4209 * t14030 * t4201 * t3680 - t4207 * t16925 - 0.4e1 * t15805 * t15806 * t9293 * t2996 + 0.2e1 * t4204 * t11325 - 0.2e1 * t55388 * t1099 + 0.2e1 * t14023 * t16904;
23318   t61357 = t4201 * t3607;
23319   t61379 = -0.6e1 * t14023 * t16891 + 0.4e1 * t4209 * t4210 * t4627 * t3070 + 0.2e1 * t4209 * t4215 * t4627 * t2996 * t329 + 0.4e1 * t15774 * t15792 - 0.4e1 * t14036 * t55052 * t15786 + 0.4e1 * t14036 * t15806 * t3615 * t844 + 0.2e1 * t14014 * t3681 - t4204 * t11377 + 0.12e2 * t49685 * t55256 * t15800 + 0.4e1 * t15774 * t15796 + 0.2e1 * t15774 * t15829 - 0.4e1 * t55037 * t15801 - t14014 * t3697 + t4209 * t4215 * t61357 * t329 + t15805 * t14037 * t38061 * t329 - 0.2e1 * t15805 * t15806 * t44434 + 0.4e1 * t4204 * t11320 + 0.4e1 * t4209 * t4210 * t15762 * t1098 - 0.6e1 * t4204 * t11316 + 0.2e1 * t4209 * t4210 * t4201 * t3696;
23320   t61380 = t16881 * t3851;
23321   t61401 = t16874 * t187;
23322   t61415 = t4192 * t11282;
23323   t61419 = t4198 * t11246;
23324   t61421 = t4198 * t11249;
23325   t61423 = t4613 * t14179;
23326   t61435 = t262 * t1286 * t11125;
23327   t61440 = -t55088 / 0.432e3 - t61415 / 0.1152e4 + t15740 * t2999 / 0.72e2 + 0.5e1 / 0.5184e4 * t61419 + t61421 / 0.1728e4 + t61423 * t15723 / 0.27e2 - 0.2e1 / 0.81e2 * t61423 * t15720 + t15719 * t2169 * t10850 / 0.48e2 + t15719 * t7185 * t10861 / 0.216e3 + 0.19e2 / 0.648e3 * t61435 * t829 - t55213 * t2969 / 0.36e2;
23328   t61445 = t13994 * t11122;
23329   t61458 = -t4192 * t11107 / 0.384e3 - t4192 * t11112 / 0.768e3 - t55093 - t61445 / 0.864e3 + t13994 * t11242 / 0.288e3 - t13994 * t11232 / 0.576e3 - t55101 - t55107 - t49801 / 0.5184e4 + 0.7e1 / 0.648e3 * t15719 * t28985 * t10835 - t55160 * t7185 * t10844 / 0.54e2;
23330   t61463 = t13987 * t11214;
23331   t61476 = -t15719 * t2169 * t10866 / 0.144e3 + t61463 / 0.576e3 + t49804 - t55114 + t55116 - t55125 / 0.2592e4 + t49822 / 0.3456e4 - t15719 * t7185 * t10840 / 0.36e2 + t55160 * t2169 * t10854 / 0.36e2 - t13994 * t11253 / 0.1152e4 - t49824 / 0.1296e4;
23332   t61477 = t16838 * t791;
23333   t61481 = t4187 * t11017;
23334   t61497 = 0.11e2 / 0.324e3 * t61477 - t55138 + t49813 * t11224 / 0.288e3 - t61481 / 0.432e3 - 0.5e1 / 0.864e3 * t4198 * t11094 + 0.5e1 / 0.1296e4 * t4198 * t11090 + 0.5e1 / 0.3456e4 * t4198 * t11103 - t4198 * t11099 / 0.576e3 + t15740 * t3004 / 0.72e2 + t13987 * t11275 / 0.384e3 + t15746 * t3035 / 0.54e2;
23335   t61506 = t15746 * t3024;
23336   t61508 = t15740 * t2972;
23337   t61512 = t4192 * t11219;
23338   t61514 = t4198 * t11135;
23339   t61517 = t262 * t4190 * t11125;
23340   t61520 = t4187 * t11026;
23341   t61523 = -t4192 * t11086 / 0.768e3 - t4192 * t11211 / 0.768e3 + t15746 * t3039 / 0.54e2 - t61506 / 0.162e3 + t61508 / 0.108e3 + t4198 * t11161 / 0.1152e4 - t61512 / 0.1152e4 - t61514 / 0.864e3 - 0.19e2 / 0.432e3 * t61517 * t816 + t61520 / 0.864e3 + t55147 / 0.1728e4;
23342   t61538 = t49852 + t13987 * t11117 / 0.192e3 - 0.5e1 / 0.324e3 * t15746 * t3030 + t55178 * t2976 / 0.108e3 + t13994 * t11292 / 0.576e3 + t49813 * t11228 / 0.576e3 + t55188 + t55189 / 0.324e3 + t4187 * t11021 / 0.288e3 - t55194 - t55199 / 0.216e3;
23343   t61541 = t4187 * t11029;
23344   t61546 = t16837 * t183;
23345   t61549 = t15713 * t2951;
23346   t61555 = -t55205 / 0.648e3 + t61541 / 0.648e3 - t55209 - t55221 + t55222 / 0.81e2 + t15713 * t2963 / 0.27e2 + 0.11e2 / 0.324e3 * t61546 * t799 + t55229 - t61549 / 0.162e3 + t4198 * t11059 / 0.192e3 + t13994 * t11296 / 0.288e3;
23347   t61568 = t16843 * t820;
23348   t61578 = -0.5e1 / 0.1728e4 * t13994 * t11139 - t13994 * t11144 / 0.576e3 - t13994 * t11155 / 0.1152e4 - 0.5e1 / 0.3456e4 * t13994 * t11264 - t13994 * t11238 / 0.1152e4 + t55178 * t3021 / 0.108e3 + 0.19e2 / 0.648e3 * t61568 + t55249 + t13987 * t11279 / 0.128e3 - t49796 * t11271 / 0.128e3 - 0.5e1 / 0.576e3 * t4198 * t11048 + t4198 * t11053 / 0.144e3;
23349   t61581 = t61440 + t61458 + t61476 + t61497 + t61523 + t61538 + t61555 + t61578;
23350   t61605 = t61380 * t4218 + 0.2e1 * t55261 * t4640 - 0.2e1 * t15772 * t4643 + 0.24e2 * t4209 * t49876 * t16890 * t844 + 0.4e1 * t15774 * t15824 + t4209 * t4215 * t1291 * t11208 * t329 - 0.4e1 * t14036 * t14037 * t3070 * t1074 * t329 - t61401 * t845 + 0.2e1 * t4209 * t4210 * t16873 * t844 - 0.2e1 * t4209 * t14051 * t61357 * t2219 - t1159 * t11302 * t1162 * t1298 - t1295 * t1296 * t331 * t61581 + 0.8e1 * t14036 * t15806 * t1098 * t15807 + 0.2e1 * t15774 * t15817 + 0.2e1 * t15774 * t15813 + params->beta * t61581 * t352 + 0.4e1 * t14023 * t16900 - 0.2e1 * t4632 * t15832 + 0.2e1 * t4209 * t4210 * t1291 * t11376 + 0.2e1 * t61380 * t4212;
23351   t61611 = t16927 * t2320;
23352   t61638 = t169 * (t61265 + t61322 + t61379 + t61605) * t848 / 0.2e1 - t169 * t61611 * t847 / 0.2e1 - t169 * t55425 * t1101 + 0.2e1 * t169 * t4645 * t15847 - t169 * t15839 * t3073 + t169 * t49925 * t3703 - 0.3e1 * t15846 * t38322 * t847 + 0.2e1 * t15846 * t9582 * t3073 - t169 * t14076 * t3699 / 0.2e1 + t15846 * t38384 * t847 - t169 * t4226 * t11379 / 0.2e1;
23353   t61639 = my_piecewise3(t359, t61638, t57555);
23354   t61652 = t61190 * t34 / 0.2e1 + t16826 * t413 / 0.2e1 + t15702 * t886 + 0.2e1 * t4610 * t4 * t377 + t4182 * t3196 / 0.2e1 + t1280 * t9774 / 0.2e1 + t61639 * t46 / 0.2e1 + t16939 * t436 / 0.2e1 + t15853 * t905 - 0.2e1 * t4652 * t4 * t377 + t4231 * t3202 / 0.2e1 + t1304 * t9785 / 0.2e1;
23355   t61654 = t7591 * t15682;
23356   t61657 = t400 * t60502;
23357   t61660 = t2378 * t15682;
23358   t61663 = 0.2e1 / 0.3e1 * t15610 * t14729 + 0.2e1 / 0.3e1 * t15610 * t14733 - t57700 + t57701 + t57703 - t57705 - 0.5e1 / 0.6e1 * t61187 * t3765 - t98 * t61652 - 0.5e1 / 0.3e1 * t61654 * t3765 + t61657 * t3791 / 0.3e1 + 0.2e1 / 0.3e1 * t61660 * t3791;
23359   t61672 = -0.5e1 / 0.3e1 * t15683 * t14159 - 0.5e1 / 0.3e1 * t15683 * t14164 - t57721 + t57728 + t57731 - t57733 - t57735 + t57741 - 0.5e1 / 0.6e1 * t4156 * t57786 + t4173 * t56661 / 0.3e1 + t57744;
23360   t61695 = -0.5e1 / 0.3e1 * t15699 * t14715 + 0.2e1 / 0.3e1 * t15610 * t14720 - 0.5e1 / 0.3e1 * t15500 * t14841 - 0.2e1 * t9866 * t4179 - t57790 + t7763 * t4587 * t1138 / 0.3e1 + t2378 * t15637 * t1138 / 0.3e1 + t2378 * t15641 * t1138 / 0.3e1 + t16803 * t3785 / 0.3e1 + t16803 * t3795 / 0.3e1 - t57792;
23361   t61703 = t36282 * t4155;
23362   t61706 = -t57794 - t57815 - 0.4e1 * t2442 * t15659 - t57822 - 0.2e1 * t449 * t16945 * t464 - t57824 - 0.5e1 / 0.3e1 * t4156 * t58557 - 0.5e1 / 0.6e1 * t61703 * t3765 + t58402 + t58404 - t58407;
23363   t61720 = -t58412 + 0.2e1 / 0.3e1 * t15503 * t14710 - 0.5e1 / 0.3e1 * t4156 * t57781 - t58414 - t58416 + 0.10e2 * t55646 * t14706 - 0.10e2 / 0.3e1 * t15699 * t14763 - 0.10e2 / 0.3e1 * t15500 * t14478 - t58469 + t58471 - t58473;
23364   t61728 = -0.4e1 * t15862 * t449 * t928 - 0.4e1 * t1476 * t16951 - 0.4e1 * t16951 * t2448 - t58475 + t58482 - t58485 - t58487 - t58494 - t58496 - t58499 - t58505;
23365   t61742 = -t58522 - t58526 - t58528 - t58531 - t58533 - t58535 + t1313 * t10267 + t36335 * t1276 * t1138 / 0.6e1 + t9657 * t4159 * t1138 / 0.6e1 + t9657 * t4167 * t1138 / 0.6e1 + t4152 * t16249 / 0.3e1;
23366   t61747 = t400 * t60579;
23367   t61758 = t16800 * t3785 / 0.6e1 + t4160 * t16249 / 0.3e1 - t58540 - t58549 + 0.2e1 / 0.3e1 * t61747 * t3791 - 0.5e1 / 0.3e1 * t4156 * t56532 - 0.5e1 / 0.3e1 * t13808 * t15913 - 0.5e1 / 0.3e1 * t13879 * t15913 + 0.2e1 * t15601 * t1037 - t58581 + t58584;
23368   t61769 = -t58586 + t58588 - t58595 - t58598 - t58600 + 0.10e2 * t54815 * t14706 - 0.10e2 / 0.3e1 * t15683 * t14763 + t58603 - t58605 - 0.4e1 * t8342 * t4607 + t16800 * t3795 / 0.6e1;
23369   t61795 = t4168 * t16249 / 0.3e1 + t58608 + t17043 * t3795 / 0.6e1 + t1392 * t16776 * t1138 / 0.6e1 + t400 * t9679 * t1275 * t1138 / 0.6e1 + t400 * t3155 * t4166 * t1138 / 0.6e1 + t16777 * t3785 / 0.6e1 + t16777 * t3795 / 0.6e1 + t15472 * t4297 / 0.3e1 + t15476 * t4297 / 0.3e1 + t15489 * t4297 / 0.3e1;
23370   t61820 = t4597 * t14775 / 0.3e1 + t4597 * t14778 / 0.3e1 - 0.4e1 * t449 * t4656 * t2478 + t15458 * t4297 / 0.3e1 + t4582 * t14775 / 0.3e1 + t4582 * t14778 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t56390 - 0.10e2 / 0.3e1 * t15683 * t14478 + 0.10e2 * t13892 * t57592 - 0.10e2 / 0.3e1 * t4156 * t57596 + 0.10e2 * t13892 * t56565;
23371   t61831 = -0.5e1 / 0.6e1 * t4156 * t56703 + t4173 * t56706 / 0.3e1 + t13811 * t15900 / 0.3e1 + t13876 * t15900 / 0.3e1 + t58661 + t17031 * t751 - t58662 + t58663 + t58666 - t3213 * t4235 - t58669 - t58671;
23372   t61836 = t61145 + t61728 + t61695 + t61663 + t60398 + t60532 + t60441 + t61180 + t61063 + t61136 + t61795 + t61672 + t61111 + t61015 + t61042 + t60419 + t61820 + t60589 + t61758 + t61706 + t61742 + t61831 + t60574 + t60506 + t60994 + t61083 + t60462 + t60549 + t61720 + t61769 + t60485 + t61167;
23373   t61839 = t1315 * t3755;
23374   t61840 = t3740 * t1320;
23375   t61841 = t4678 * t1130;
23376   t61846 = t372 * t61836 * t7 + 0.2e1 * t1130 * t15868 + t17072 * t870 + 0.2e1 * t3144 * t4679 + t3741 * t4267 + t3755 * t4258 + t56234 + t56240 + t56242 + t56246 + t61839 + t61840 + 0.2e1 * t61841;
23377   t61847 = t17053 * t372;
23378   t61858 = t370 * t61836 * params->d + 0.6e1 * t11530 * t1318 + 0.6e1 * t11538 * t1318 + 0.12e2 * t3138 * t4683 + 0.3e1 * t3752 * t4263 + t56270 + t56276 + t56278 + t56280 + t56282 + t56287 + t56290 + t56293 + t56296 + t56299 + t56301 + t56303;
23379   t61871 = 0.6e1 * t1127 * t15879 + 0.12e2 * t11533 * t1318 + 0.3e1 * t11541 * t1318 + 0.3e1 * t17064 * t875 + 0.6e1 * t3141 * t4683 + 0.6e1 * t3749 * t4263 + t58684 + t58686 + t58691 + t58696 + t58698 + t58700 + t58702 + t58707 + t58712 + t58714 + t58716 + t58721;
23380   t61875 = t368 * t17072;
23381   t61882 = t1122 * t4687;
23382   t61884 = t61847 + t56251 + t872 * (t61858 + t61871) + t1316 * t11544 + t61875 + t56256 + t17054 * t878 + t11507 * t1320 + 0.2e1 * t3127 * t4687 + 0.2e1 * t1123 * t15889 + t56261 + t56265 + 0.2e1 * t61882;
23383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23384     v4rho3sigma[8] = t61846 + t61884;
23385 
23386   t61892 = 0.3e1 * t12730 * t1221;
23387   t61895 = 0.18e2 * t369 * t3219 * t4311;
23388   t61900 = 0.6e1 * t369 * t1208 * t12661;
23389   t61902 = 0.18e2 * t1125 * t16403;
23390   t61904 = 0.36e2 * t1125 * t16406;
23391   t61906 = 0.18e2 * t1125 * t16409;
23392   t61909 = t47575 * t12628;
23393   t61911 = t13149 * t40438;
23394   t61913 = t3807 * t12656;
23395   t61916 = my_piecewise3(t95, 0, -t47567 - 0.11e2 / 0.3e1 * t50348 - 0.2e1 * t57796 + t57804 - 0.3e1 / 0.4e1 * t61909 + 0.3e1 / 0.4e1 * t61911 - t61913 / 0.8e1);
23396   t61919 = 0.3e1 * t369 * t97 * t61916;
23397   t61921 = 0.18e2 * t3745 * t4451;
23398   t61924 = 0.18e2 * t369 * t4421 * t3249;
23399   t61944 = t4412 * t15938;
23400   t61948 = t1204 * t14713 * t3209;
23401   t61952 = t1204 * t3763 * t11644;
23402   t61967 = t1204 * t14713 * t3152;
23403   t61976 = t15980 * t4297 / 0.2e1 + t400 * t11566 * t1133 * t1138 / 0.6e1 + t400 * t3155 * t4282 * t1138 / 0.2e1 + t15980 * t4289 / 0.2e1 + t4284 * t15972 / 0.2e1 + t4284 * t15976 - 0.5e1 / 0.2e1 * t3762 * t61944 - 0.5e1 / 0.2e1 * t3762 * t61948 - 0.5e1 / 0.6e1 * t3762 * t61952 + 0.2e1 * t56472 * t4293 + t56489 * t4293 + 0.2e1 * t56496 * t4293 + t15925 * t4297 / 0.2e1 + t15931 * t4297 + t15984 * t4297 + t4284 * t15957 / 0.2e1 + 0.15e2 * t13159 * t61967 + 0.15e2 * t50715 * t15896 - 0.5e1 / 0.2e1 * t14736 * t15939 + 0.15e2 * t52645 * t15896;
23404   t61980 = t16220 * t4292;
23405   t61983 = t4412 * t15899;
23406   t61989 = t66 * t11640 * t97 * t363;
23407   t61993 = t66 * t15970 * t1110;
23408   t62004 = t12707 * t167 * t168;
23409   t62005 = t62004 * t1192;
23410   t62012 = t1204 * t3763 * t11560;
23411   t62025 = t979 * t3323;
23412   t62047 = t4325 * t3323;
23413   t62085 = t1156 * t11814 * t265 * t3852 * t3858 + 0.24e2 * t1156 * t11922 * t3852 * t48174 + 0.2e1 * t1156 * t11960 * t3852 * t3853 - 0.18e2 * t12878 * t3392 * t3852 * t4332 - 0.6e1 * t12899 * t1672 * t3852 * t62047 - 0.12e2 * t12884 * t16297 * t51063 - t11961 * t3846 + 0.6e1 * t14221 * t3377 + 0.3e1 * t14230 * t16324 - 0.3e1 * t16284 * t4341 - 0.3e1 * t16327 * t4330;
23414   t62123 = t57123 / 0.192e3 + 0.5e1 / 0.1728e4 * t57129 - t57149 / 0.288e3 + t14180 * t6680 * t11664 / 0.72e2 - t14180 * t1582 * t11672 / 0.48e2 - t57156 / 0.288e3 - t57158 / 0.384e3 + t50929 / 0.1152e4 + t57177 / 0.216e3 - t57181 / 0.144e3 - t48007 * t11861 / 0.128e3 + t12808 * t11856 / 0.128e3 + t3840 * t11784 / 0.1152e4 + 0.5e1 / 0.1296e4 * t3840 * t11870 - t3830 * t11817 / 0.768e3 - t50941 / 0.432e3 - 0.5e1 / 0.576e3 * t3840 * t11851 + t3840 * t11866 / 0.192e3 - t3830 * t11847 / 0.768e3;
23415   t62156 = t57192 / 0.288e3 - t57212 / 0.384e3 - t3840 * t11828 / 0.192e3 + t12808 * t11837 / 0.128e3 + t57234 / 0.576e3 + 0.5e1 / 0.1152e4 * t3840 * t11824 - t51016 / 0.1728e4 - t12813 * t11885 / 0.384e3 + t48025 + t48030 - t3825 * t11841 / 0.36e2 - t3830 * t11832 / 0.256e3 + t48046 * t11905 / 0.192e3 + t12813 * t11909 / 0.192e3 - t12813 * t11880 / 0.384e3 - t12813 * t11897 / 0.384e3 - 0.5e1 / 0.1152e4 * t12813 * t11901 + t3825 * t11780 / 0.48e2 + 0.7e1 / 0.648e3 * t3825 * t11776 + t3825 * t11772 / 0.288e3;
23416   t62157 = t62123 + t62156;
23417   t62168 = t1156 * t11844;
23418   t62188 = -0.6e1 * t12884 * t12885 * t265 * t3392 * t962 + 0.18e2 * t12885 * t265 * t3376 * t48135 * t962 - 0.18e2 * t12878 * t3376 * t3852 * t4325 + 0.6e1 * t3392 * t3852 * t3853 * t4325 + 0.6e1 * t3852 * t47903 * t62168 * t6822 + t289 * t62157 * params->beta - 0.6e1 * t11923 * t3846 - 0.3e1 * t14221 * t3393 + 0.12e2 * t14230 * t16302 + 0.6e1 * t14230 * t16306 - 0.3e1 * t57381 * t980;
23419   t62223 = 0.3e1 * t16275 * t265 * t3852 * t3858 * t962 + 0.3e1 * t265 * t3347 * t3852 * t3858 * t4325 - t1163 * t1165 * t267 * t62157 - 0.6e1 * t12899 * t1672 * t3852 * t62168 + 0.6e1 * t16275 * t3852 * t3853 * t979 + t265 * t3852 * t3858 * t62168 - 0.18e2 * t14230 * t16293 - 0.6e1 * t14230 * t16311 + 0.6e1 * t14230 * t16316 + 0.3e1 * t14230 * t16321 + 0.6e1 * t4333 * t57284;
23420   t62250 = t1030 * t3453;
23421   t62251 = t62250 * t194;
23422   t62256 = t1030 * t3478 * t194;
23423   t62270 = t8057 * t3478;
23424   t62279 = t42676 * t194;
23425   t62292 = t14329 * t183 * t12134;
23426   t62294 = t12969 * t12079;
23427   t62296 = t12969 * t12083;
23428   t62299 = t14336 * t12064;
23429   t62304 = t3882 * t12037;
23430   t62306 = t48365 * t12050;
23431   t62308 = t3894 * t12087;
23432   t62310 = t3894 * t12091;
23433   t62312 = t3887 * t12142;
23434   t62314 = t3887 * t12131;
23435   t62316 = t3894 * t12136;
23436   t62318 = 0.3e1 / 0.16e2 * t62292 - 0.5e1 / 0.128e3 * t62294 + t62296 / 0.128e3 - 0.7e1 / 0.96e2 * t56869 + t62299 / 0.256e3 + 0.7e1 / 0.192e3 * t56883 - 0.35e2 / 0.192e3 * t56887 - 0.119e3 / 0.576e3 * t51506 - t62304 / 0.48e2 - t62306 / 0.4e1 - 0.5e1 / 0.64e2 * t62308 - t62310 / 0.384e3 - t62312 / 0.1536e4 - t62314 / 0.1536e4 + 0.5e1 / 0.128e3 * t62316;
23437   t62319 = t48323 * t12147;
23438   t62321 = t12961 * t12152;
23439   t62330 = t14336 * t12074;
23440   t62332 = t12969 * t12069;
23441   t62334 = t12969 * t12055;
23442   t62336 = t12969 * t12059;
23443   t62338 = -t62319 / 0.256e3 + t62321 / 0.256e3 - 0.7e1 / 0.16e2 * t56889 + 0.7e1 / 0.48e2 * t56891 - t48339 + 0.7e1 / 0.768e3 * t56893 - 0.7e1 / 0.384e3 * t56901 + 0.7e1 / 0.768e3 * t56903 - t48357 - 0.119e3 / 0.2304e4 * t51541 - 0.35e2 / 0.72e2 * t51571 - t62330 / 0.64e2 + t62332 / 0.128e3 + t62334 / 0.128e3 - t62336 / 0.512e3;
23444   t62339 = t62318 + t62338;
23445   t62342 = t4359 * t3453;
23446   t62362 = t62250 * t1892;
23447   t62366 = t1181 * t12128 * t194 * t3905 * t3911 - t1185 * t1186 * t196 * t62339 - 0.18e2 * t13005 * t3503 * t3905 * t4359 - 0.6e1 * t13026 * t1892 * t3905 * t62342 + 0.3e1 * t194 * t3905 * t3911 * t62342 + 0.12e2 * t13011 * t14401 * t62362 + t221 * t62339 * params->beta - t12207 * t3900 - 0.3e1 * t14360 * t3520 + 0.6e1 * t14369 * t16081 + 0.3e1 * t14369 * t16099;
23448   t62370 = t1181 * t12139;
23449   t62398 = t3503 * t1013 * t194;
23450   t62402 = 0.3e1 * t194 * t3478 * t3905 * t3911 * t4359 - 0.6e1 * t13026 * t1892 * t3905 * t62370 + t194 * t3905 * t3911 * t62370 + 0.6e1 * t3905 * t48253 * t62370 * t6263 + 0.18e2 * t13012 * t48287 * t62398 - 0.6e1 * t14369 * t16086 - 0.3e1 * t16059 * t4375 - 0.12e2 * t16073 * t51423 - 0.3e1 * t16102 * t4364 + 0.6e1 * t4367 * t56969 + 0.3e1 * t4372 * t56969;
23451   t62407 = t3519 * t1013 * t194;
23452   t62424 = t1159 * t12159 * t1162;
23453   t62438 = 0.6e1 * t1030 * t16050 * t3905 * t3906 + 0.2e1 * t1181 * t12206 * t3905 * t3906 - 0.18e2 * t13005 * t3519 * t3905 * t4366 + 0.6e1 * t3519 * t3905 * t3906 * t4359 - 0.6e1 * t13011 * t13012 * t62407 - 0.12e2 * t13011 * t16072 * t51391 - 0.3e1 * t1031 * t57010 - t1188 * t62424 - 0.6e1 * t12169 * t3900 + 0.6e1 * t12173 * t3900 + 0.6e1 * t14360 * t3504;
23454   t62442 = t175 * (0.3e1 * t1013 * t16050 * t194 * t3905 * t3911 + 0.24e2 * t1181 * t12168 * t3905 * t48379 - 0.6e1 * t13011 * t13012 * t62251 - 0.6e1 * t13011 * t13012 * t62256 + 0.3e1 * t13012 * t14400 * t62279 - 0.6e1 * t14400 * t14401 * t62270 - 0.18e2 * t14369 * t16068 + 0.12e2 * t14369 * t16077 + 0.6e1 * t14369 * t16091 + 0.3e1 * t14369 * t16096 + t62366 + t62402 + t62438) * t748;
23455   t62444 = t3448 * t1033;
23456   t62445 = t3923 * t62444;
23457   t62448 = t3923 * t45205;
23458   t62454 = t3427 * t1033;
23459   t62455 = t3923 * t62454;
23460   t62458 = t3874 * t12134;
23461   t62467 = t14434 * t16021;
23462   t62471 = t11986 * t1190 * t748;
23463   t62477 = t999 * t3431;
23464   t62478 = t13055 * t62477;
23465   t62487 = t1033 * t3522;
23466   t62488 = t13055 * t62487;
23467   t62499 = -0.3e1 * t1033 * t2849 * t57468 + 0.3e1 * t12035 * t1768 * t3874 - t12209 * t2849 * t3923 - 0.6e1 * t12220 * t2849 * t48478 + 0.9e1 * t14321 * t1768 * t3448 + 0.18e2 * t14321 * t2857 * t3427 - 0.3e1 * t14434 * t2849 * t3522 + 0.9e1 * t1768 * t57487 * t999 + 0.6e1 * t2849 * t3431 * t51321 + t169 * t62442 + 0.6e1 * t169 * t62471 - 0.9e1 * t1768 * t62445 - 0.9e1 * t1768 * t62448 - 0.18e2 * t1768 * t62467 + 0.18e2 * t1768 * t62478 + 0.6e1 * t2849 * t62488 - 0.18e2 * t2857 * t62455 + 0.18e2 * t2857 * t62458;
23468   t62500 = my_piecewise3(t296, t169 * (-0.6e1 * t12884 * t12885 * t265 * t3347 * t979 - t1159 * t1162 * t1167 * t11913 - 0.6e1 * t12884 * t12885 * t265 * t62025 + 0.12e2 * t12884 * t14262 * t1672 * t62025 + 0.3e1 * t12885 * t14261 * t265 * t41659 - 0.6e1 * t14261 * t14262 * t3347 * t8623 + 0.3e1 * t265 * t3852 * t3858 * t62047 + 0.6e1 * t11927 * t3846 - 0.12e2 * t16298 * t50807 + 0.3e1 * t4338 * t57284 + t62085 + t62188 + t62223) * t581 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t57434 * t982 + 0.3e1 * t169 * t51229 * t3399 - 0.3e1 / 0.2e1 * t169 * t14295 * t3395 - 0.3e1 * t169 * t48203 * t11970 + 0.3e1 * t14302 * t8979 * t3395 - t169 * t3869 * t11963 / 0.2e1, t62499);
23469   t62509 = my_piecewise3(t359, 0, t62499);
23470   t62521 = t1214 * t1191 * t42240;
23471   t62527 = t15925 * t4289 / 0.2e1 + t62005 + t4269 * t15957 / 0.2e1 + t4269 * t15972 / 0.2e1 + t4269 * t15976 - 0.35e2 * t47327 * t62012 + t4277 * t15976 - t98 * (t62500 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t16362 * t886 + 0.3e1 / 0.2e1 * t4384 * t3196 + t1194 * t11629 / 0.2e1 + t62509 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t16368 * t905 + 0.3e1 / 0.2e1 * t4387 * t3202 + t1196 * t11637 / 0.2e1) - t62521 - 0.6e1 * t3220 * t4391 + t40570 * t1134 * t1138 / 0.6e1;
23472   t62535 = t50644 * t16112;
23473   t62539 = t12791 * t57590 * t928;
23474   t62546 = 0.6e1 * t1214 * t4378 * t9934;
23475   t62549 = 0.9e1 * t1214 * t56715 * t4433;
23476   t62552 = 0.3e1 * t1214 * t16105 * t2850;
23477   t62559 = 0.3e1 * t16232 * t4438;
23478   t62560 = t3212 * t928;
23479   t62562 = 0.6e1 * t62560 * t1144;
23480   t62565 = t2378 * t16224;
23481   t62568 = t66 * t57896 * t928;
23482   t62588 = -t16225 * t4409 - t16225 * t4413 - t62565 * t1205 + 0.5e1 * t13245 * t62568 - 0.2e1 * t14645 * t16144 + 0.5e1 / 0.2e1 * t3939 * t16213 * t4396 - t3945 * t16213 * t4400 + 0.5e1 * t3939 * t4408 * t16130 - 0.2e1 * t3945 * t4408 * t16143 + 0.10e2 * t52366 * t16186 + 0.10e2 * t52052 * t16186;
23483   t62590 = t66 * t58183 * t928;
23484   t62595 = 0.120e3 * t7757 * t58220 * t912;
23485   t62597 = 0.2e1 * t11553 * t1208;
23486   t62599 = 0.6e1 * t3149 * t4421;
23487   t62601 = 0.6e1 * t3149 * t4424;
23488   t62604 = 0.24e2 * t400 * t16157 * t912;
23489   t62607 = 0.48e2 * t400 * t16160 * t912;
23490   t62615 = 0.24e2 * t9657 * t4418;
23491   t62617 = 0.48e2 * t2378 * t16179;
23492   t62618 = 0.5e1 * t14641 * t16127 + 0.5e1 * t14641 * t16131 - 0.2e1 * t14645 * t16140 - 0.30e2 * t47508 * t62590 + t62595 + t62597 + t62599 + t62601 - t62604 - t62607 - t62615 - t62617;
23493   t62621 = 0.48e2 * t2378 * t16182;
23494   t62623 = 0.24e2 * t2378 * t16189;
23495   t62626 = 0.24e2 * t400 * t4421 * t3209;
23496   t62629 = 0.24e2 * t400 * t16163 * t912;
23497   t62632 = 0.24e2 * t400 * t4424 * t3209;
23498   t62641 = t400 * t97 * t11566;
23499   t62646 = -t62621 - t62623 - t62626 - t62629 - t62632 - t16198 * t4409 - t16198 * t4413 - t4393 * t16214 / 0.2e1 - t4393 * t16217 - t4393 * t16221 / 0.2e1 - t62641 * t1205 / 0.6e1 - t16206 * t4409 / 0.2e1;
23500   t62654 = t40570 * t1201;
23501   t62657 = t9657 * t4404;
23502   t62664 = t2378 * t16205;
23503   t62673 = -0.10e2 / 0.27e2 * t47451 * t11582 + 0.10e2 / 0.3e1 * t13188 * t40466 + 0.5e1 / 0.3e1 * t3774 * t11590 + t47459;
23504   t62684 = -t16206 * t4413 / 0.2e1 - t4405 * t16214 / 0.2e1 - t4405 * t16217 - t4405 * t16221 / 0.2e1 - t62654 * t1205 / 0.6e1 - t62657 * t1205 / 0.2e1 - t16195 * t4409 / 0.2e1 - t16195 * t4413 / 0.2e1 - t62664 * t1205 / 0.2e1 - t1202 * t62673 * t61 * t1204 / 0.6e1 - t1202 * t16213 * t4412 / 0.2e1 - t1202 * t4408 * t16220 / 0.2e1;
23505   t62687 = t65 * t11640;
23506   t62692 = t400 * t3219 * t883;
23507   t62696 = 0.2e1 * t81 * t96 * t61916;
23508   t62699 = 0.8e1 * t400 * t1208 * t11644;
23509   t62701 = 0.6e1 * t881 * t16157;
23510   t62704 = 0.2e1 * t81 * t12661 * t1143;
23511   t62707 = 0.6e1 * t81 * t3249 * t4311;
23512   t62709 = 0.12e2 * t881 * t16160;
23513   t62712 = 0.6e1 * t81 * t928 * t15921;
23514   t62714 = 0.6e1 * t881 * t16163;
23515   t62717 = -t1202 * t1203 * t62687 / 0.6e1 - t62692 * t1205 + t62696 - t62699 + t62701 + t62704 + t62707 + t62709 + t62712 + t62714 + 0.10e2 * t52056 * t16186;
23516   t62719 = t66 * t57885 * t928;
23517   t62723 = t66 * t57896 * t912;
23518   t62742 = t66 * t58091 * t912;
23519   t62747 = 0.10e2 * t13245 * t62719 - 0.15e2 * t14500 * t62723 + 0.5e1 * t58270 * t4397 - 0.2e1 * t58273 * t4401 + 0.5e1 * t14662 * t16127 - 0.2e1 * t14614 * t16140 + 0.5e1 * t14662 * t16131 - 0.2e1 * t14614 * t16144 + 0.5e1 / 0.2e1 * t58276 * t4397 - t58280 * t4401 + 0.5e1 * t13245 * t62742 - 0.15e2 * t52137 * t16152;
23520   t62753 = t4412 * t3249;
23521   t62756 = t1204 * t12661;
23522   t62762 = 0.240e3 * t6453 * t1208 * t11560;
23523   t62763 = t16220 * t912;
23524   t62767 = t16220 * t928;
23525   t62773 = t4412 * t3152;
23526   t62782 = -0.15e2 * t52127 * t16152 - t3945 * t4408 * t16147 - t3945 * t1203 * t62753 - t3945 * t1203 * t62756 / 0.3e1 - t62762 + 0.5e1 / 0.2e1 * t3939 * t1203 * t62763 - t3945 * t1203 * t62767 - 0.15e2 * t13251 * t4408 * t16151 - 0.15e2 * t13251 * t1203 * t62773 + 0.5e1 / 0.2e1 * t14662 * t16135 - t14614 * t16148 + 0.5e1 / 0.2e1 * t14641 * t16135;
23527   t62786 = t1204 * t11560;
23528   t62790 = t4412 * t3209;
23529   t62794 = t1204 * t11644;
23530   t62806 = 0.120e3 * t7591 * t16192;
23531   t62809 = 0.120e3 * t1397 * t4421 * t3152;
23532   t62812 = 0.120e3 * t1397 * t4424 * t3152;
23533   t62813 = 0.5e1 / 0.2e1 * t3939 * t4408 * t16134 + 0.35e2 * t47681 * t1203 * t62786 + 0.5e1 / 0.2e1 * t3939 * t1203 * t62790 + 0.5e1 / 0.6e1 * t3939 * t1203 * t62794 + 0.5e1 * t58369 * t4397 - t19992 * t16148 - t14645 * t16148 + 0.5e1 / 0.2e1 * t58264 * t4397 - t58267 * t4401 + t62806 + t62809 + t62812;
23534   t62829 = 0.6e1 * t9866 * t4312;
23535   t62831 = t1204 * t56659 * t928;
23536   t62833 = -t62559 - t62562 + (t62588 + t62618 + t62646 + t62684 + t62717 + t62747 + t62782 + t62813) * t227 - 0.5e1 / 0.2e1 * t58536 * t4273 + t56597 * t4293 - 0.5e1 / 0.2e1 * t14858 * t15939 - 0.5e1 / 0.2e1 * t14851 * t15939 + 0.3e1 * t4427 * t3530 + t1211 * t12227 - t62829 + t3788 * t62831;
23537   t62837 = 0.3e1 * t1214 * t4378 * t10242;
23538   t62838 = t748 * t12035;
23539   t62841 = 0.3e1 * t1214 * t3979 * t62838;
23540   t62851 = 0.3e1 * t16232 * t4379;
23541   t62854 = 0.9e1 * t1214 * t14494 * t16027;
23542   t62856 = 0.6e1 * t2442 * t16011;
23543   t62858 = 0.6e1 * t4302 * t16011;
23544   t62862 = 0.2e1 * t449 * t12615 * t1143;
23545   t62864 = t12791 * t14704 * t3249;
23546   t62868 = 0.18e2 * t4431 * t16031;
23547   t62871 = t1204 * t57784 * t912;
23548   t62876 = t1204 * t56609 * t912;
23549   t62880 = t1204 * t3789 * t12661;
23550   t62883 = t4412 * t16118;
23551   t62886 = t4412 * t15912;
23552   t62891 = -t62862 - 0.5e1 * t3762 * t62864 + t62868 + t56604 * t4293 - 0.5e1 / 0.2e1 * t3762 * t62871 + t14152 * t15900 - 0.5e1 * t3762 * t62876 + t3788 * t62880 / 0.3e1 + 0.2e1 * t3788 * t62883 - 0.5e1 * t3762 * t62886 - 0.5e1 * t56614 * t4273;
23553   t62898 = t1204 * t929 * t3249;
23554   t62901 = t1204 * t14718 * t3249;
23555   t62903 = t4412 * t15895;
23556   t62907 = 0.9e1 * t4431 * t16028;
23557   t62909 = 0.6e1 * t14484 * t62488;
23558   t62913 = 0.6e1 * t4431 * t16236;
23559   t62921 = 0.6e1 * t1214 * t1191 * t42305;
23560   t62923 = 0.18e2 * t4431 * t16242;
23561   t62925 = 0.12e2 * t2442 * t16003;
23562   t62930 = t66 * t908 * t3219 * t363;
23563   t62933 = t66 * t16247 * t1110;
23564   t62938 = 0.6e1 * t449 * t3714 * t4311;
23565   t62941 = -0.2e1 * t1199 * t12661 * t449 + t1135 * t62930 + t1135 * t62933 - 0.6e1 * t1199 * t12621 + 0.15e2 * t13159 * t62903 + t15984 * t4289 + t16249 * t4277 + t16249 * t4284 - 0.3e1 * t16374 * t916 - 0.3e1 * t3213 * t4391 + t3788 * t62898 + t3788 * t62901 + 0.2e1 * t4293 * t56668 + t62907 + t62909 + t62913 - t62921 + t62923 - t62925 - t62938;
23566   t62943 = 0.3e1 * t4431 * t16106;
23567   t62944 = t1214 * t62442;
23568   t62957 = t16220 * t4272;
23569   t62961 = 0.12e2 * t16016 * t4312;
23570   t62965 = 0.6e1 * t449 * t1110 * t15921;
23571   t62967 = 0.6e1 * t4431 * t15960;
23572   t62969 = 0.6e1 * t4302 * t15922;
23573   t62971 = 0.18e2 * t14821 * t62458;
23574   t62975 = 0.18e2 * t13345 * t62467;
23575   t62980 = 0.6e1 * t15998 * t4312;
23576   t62982 = 0.12e2 * t4302 * t16003;
23577   t62984 = 0.18e2 * t14821 * t62455;
23578   t62985 = 0.3e1 * t1037 * t16229 - t11648 * t1199 + 0.2e1 * t14848 * t16119 - t62965 - t62967 - t62969 + t62971 - t62975 - t62980 - t62982 - t62984;
23579   t62989 = 0.9e1 * t13345 * t62445;
23580   t62993 = t14703 * t57600 * t912;
23581   t62997 = t12791 * t57600 * t928;
23582   t63009 = 0.6e1 * t9866 * t4305;
23583   t63019 = 0.12e2 * t16016 * t4305;
23584   t63026 = 0.9e1 * t13345 * t62448;
23585   t63028 = 0.6e1 * t2442 * t15922;
23586   t63031 = 0.2e1 * t449 * t363 * t61916;
23587   t63033 = 0.3e1 * t4431 * t16245;
23588   t63035 = t12791 * t57619 * t928;
23589   t63039 = 0.6e1 * t1214 * t62471;
23590   t63040 = -0.6e1 * t16374 * t449 * t928 - 0.6e1 * t3249 * t4391 * t449 + 0.30e2 * t13159 * t63035 - 0.6e1 * t15967 * t4302 - 0.12e2 * t15993 * t2442 - t63019 - t63026 - t63028 - t63031 - t63033 + t63039;
23591   t63043 = 0.2e1 * t44549 * t1144;
23592   t63044 = t915 * t3249;
23593   t63046 = 0.6e1 * t63044 * t1144;
23594   t63047 = t82 * t12661;
23595   t63049 = 0.2e1 * t63047 * t1144;
23596   t63051 = 0.6e1 * t15998 * t4305;
23597   t63053 = 0.18e2 * t13345 * t62478;
23598   t63055 = 0.9e1 * t16232 * t4434;
23599   t63061 = t66 * t4287 * t3714;
23600   t63065 = t66 * t1136 * t12615;
23601   t63091 = 0.18e2 * t52859 * t16022;
23602   t63094 = 0.18e2 * t1214 * t52547 * t16241;
23603   t63095 = t4277 * t15957 / 0.2e1 + t400 * t883 * t15947 * t1138 / 0.2e1 + t400 * t25 * t62673 * t1138 / 0.6e1 + t15949 * t4289 / 0.2e1 + t15949 * t4297 / 0.2e1 + t2378 * t15979 * t1138 / 0.2e1 + t2378 * t15983 * t1138 + t15928 * t4289 + t15928 * t4297 - t63091 + t63094;
23604   t63099 = t62891 + t61976 + t62851 + t62854 + t62985 + t62527 + t63040 + t62546 + t63053 + t63055 - t63043 + t62941 + t62943 - t63046 - t63049 - t63051 - t62989 + t62944 - t62837 + t62549 - t62552 - t62858 - t62856 - 0.6e1 * t9866 * t4316 - 0.5e1 * t56469 * t4273 - 0.5e1 / 0.2e1 * t3762 * t62957 + t15931 * t4289 + t1135 * t63061 / 0.2e1 - 0.5e1 * t14851 * t15909 + 0.2e1 * t14848 * t16122 - 0.10e2 * t3762 * t62535 - 0.10e2 * t3762 * t62539 - 0.10e2 * t14736 * t16113 - 0.6e1 * t2442 * t15967 + 0.15e2 * t50450 * t15896 + t14156 * t15900 + t3788 * t61980 + t14848 * t15900 + t3788 * t61983 + t4277 * t15972 / 0.2e1 + t1135 * t61989 / 0.6e1 + t1135 * t61993 / 0.2e1 - 0.5e1 / 0.2e1 * t56601 * t4273 - t62961 + t62833 + t62841 + t9657 * t4276 * t1138 / 0.2e1 + t2378 * t15948 * t1138 / 0.2e1 + t9657 * t4283 * t1138 / 0.2e1 - t63009 + t63095 + 0.2e1 * t14156 * t16122 + 0.2e1 * t14156 * t16119 - 0.5e1 * t14736 * t15909 + 0.2e1 * t14152 * t16122 + t1135 * t63065 / 0.6e1 + t4269 * t16249 - 0.10e2 * t14851 * t16113 - 0.10e2 * t14858 * t16113 + 0.15e2 * t13159 * t62993 - 0.5e1 * t3762 * t62997 - 0.5e1 * t56493 * t4273 - 0.5e1 * t14858 * t15909 - 0.5e1 * t14858 * t15913 - 0.5e1 * t14851 * t15913 - 0.5e1 / 0.2e1 * t56486 * t4273 - 0.5e1 * t14736 * t15913 + 0.2e1 * t14152 * t16119;
23605   t63106 = 0.18e2 * t369 * t16163 * t928;
23606   t63109 = 0.18e2 * t369 * t4424 * t3249;
23607   t63111 = 0.9e1 * t1125 * t16412;
23608   t63113 = 0.9e1 * t3745 * t4454;
23609   t63118 = t370 * t63099 * params->d + 0.9e1 * t1127 * t16389 + 0.6e1 * t1219 * t12738 + 0.18e2 * t1219 * t12741 + 0.3e1 * t1219 * t12744 + 0.18e2 * t3749 * t4445 + 0.9e1 * t3752 * t4445 + t61892 + t61895 + t61900 + t61902 + t61904 + t61906 + t61919 + t61921 + t61924 + t63106 + t63109 + t63111 + t63113;
23610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23611     v4rho3sigma[9] = t372 * t63099 * t7 + 0.3e1 * t1123 * t16415 + 0.3e1 * t1130 * t16379 + t1217 * t12747 + t1224 * t12724 + 0.3e1 * t3741 * t4457 + 0.3e1 * t3755 * t4441 + t63118 * t872 + 0.6e1 * t58731 + 0.3e1 * t58736 + 0.3e1 * t58738 + 0.3e1 * t58739 + 0.3e1 * t58742 + 0.6e1 * t58743;
23612 
23613   t63189 = 0.5e1 / 0.3e1 * t4013 * t61952 + 0.20e2 * t4013 * t62539 - t16438 * t4289 - t16438 * t4297 + 0.16e2 / 0.3e1 * t58779 + 0.16e2 / 0.3e1 * t58781 + 0.32e2 / 0.3e1 * t58808 - 0.88e2 / 0.9e1 * t52993 - 0.2e1 * t59464 * t4293 - 0.4e1 * t14972 * t16122 - 0.4e1 * t14972 * t16119 - 0.60e2 * t13415 * t63035 - 0.88e2 / 0.9e1 * t53041 - 0.2e1 * t449 * t1252 * t12661 + 0.32e2 / 0.3e1 * t58869 + 0.16e2 / 0.3e1 * t58897 - 0.2e1 / 0.3e1 * t4026 * t62880 - 0.30e2 * t54262 * t15896 - 0.30e2 * t13415 * t62903 - 0.30e2 * t13415 * t61967;
23614   t63223 = t4079 * t62444;
23615   t63230 = 0.10e2 * t14975 * t15913 + 0.5e1 * t4013 * t62871 - 0.2e1 * t4026 * t62831 + 0.440e3 / 0.9e1 * t53074 - 0.2e1 * t4026 * t61983 - 0.2e1 * t4026 * t62898 - 0.2e1 * t4026 * t62901 + 0.10e2 * t4013 * t62876 - 0.9e1 * t13345 * t63223 + 0.20e2 * t14967 * t16113 + 0.10e2 * t4013 * t62997;
23616   t63235 = t13542 * t62477;
23617   t63257 = t4497 * t3453;
23618   t63294 = t1237 * t12139;
23619   t63322 = 0.3e1 * t1013 * t16474 * t194 * t3905 * t3911 - 0.18e2 * t13005 * t3519 * t3905 * t4502 - 0.6e1 * t13026 * t1892 * t3905 * t63294 + 0.6e1 * t3905 * t48253 * t6263 * t63294 - 0.6e1 * t13011 * t13502 * t62256 - 0.6e1 * t13011 * t13502 * t62407 + 0.12e2 * t13011 * t15258 * t62362 - 0.12e2 * t13011 * t16072 * t54089 + 0.18e2 * t13502 * t48287 * t62398 + 0.6e1 * t14369 * t16511 + 0.3e1 * t14369 * t16516;
23620   t63345 = 0.3e1 / 0.8e1 * t62292 - 0.5e1 / 0.64e2 * t62294 + t62296 / 0.64e2 - 0.7e1 / 0.48e2 * t56869 + t62299 / 0.128e3 + 0.7e1 / 0.96e2 * t56883 - 0.35e2 / 0.96e2 * t56887 - 0.119e3 / 0.288e3 * t51506 - t62304 / 0.24e2 - t62306 / 0.2e1 - 0.5e1 / 0.32e2 * t62308 - t62310 / 0.192e3 - t62312 / 0.768e3 - t62314 / 0.768e3 + 0.5e1 / 0.64e2 * t62316;
23621   t63359 = -t62319 / 0.128e3 + t62321 / 0.128e3 - 0.7e1 / 0.8e1 * t56889 + 0.7e1 / 0.24e2 * t56891 - t49115 + 0.7e1 / 0.384e3 * t56893 - 0.7e1 / 0.192e3 * t56901 + 0.7e1 / 0.384e3 * t56903 - t49122 - 0.119e3 / 0.1152e4 * t51541 - 0.35e2 / 0.36e2 * t51571 - t62330 / 0.32e2 + t62332 / 0.64e2 + t62334 / 0.64e2 - t62336 / 0.256e3;
23622   t63360 = t63345 + t63359;
23623   t63381 = -t1185 * t1186 * t196 * t63360 + 0.24e2 * t12168 * t1237 * t3905 * t48379 - 0.18e2 * t13005 * t3503 * t3905 * t4497 + t194 * t3905 * t3911 * t63294 + t221 * t63360 * params->beta - 0.3e1 * t1031 * t59194 + 0.6e1 * t12173 * t4061 - t12207 * t4061 - t1241 * t62424 - 0.3e1 * t16059 * t4511 + 0.3e1 * t4508 * t56969;
23624   t63410 = 0.6e1 * t1030 * t16474 * t3905 * t3906 + 0.2e1 * t12206 * t1237 * t3905 * t3906 + 0.6e1 * t3519 * t3905 * t3906 * t4497 - 0.6e1 * t12169 * t4061 - 0.18e2 * t14369 * t16490 + 0.12e2 * t14369 * t16497 + 0.6e1 * t14369 * t16501 + 0.6e1 * t15225 * t3504 - 0.3e1 * t15225 * t3520 - 0.3e1 * t16522 * t4364 + 0.6e1 * t4503 * t56969;
23625   t63414 = t175 * (t12128 * t1237 * t194 * t3905 * t3911 + 0.3e1 * t194 * t3478 * t3905 * t3911 * t4497 - 0.6e1 * t13026 * t1892 * t3905 * t63257 + 0.3e1 * t194 * t3905 * t3911 * t63257 - 0.6e1 * t13011 * t13502 * t62251 + 0.3e1 * t13502 * t14400 * t62279 - 0.6e1 * t14400 * t15258 * t62270 - 0.6e1 * t14369 * t16506 + 0.3e1 * t14369 * t16519 - 0.12e2 * t16493 * t51423 + t63322 + t63381 + t63410) * t748;
23626   t63435 = t13542 * t62487;
23627   t63439 = t4049 * t12134;
23628   t63442 = -t40570 * t1226 * t1138 / 0.3e1 - t9657 * t4464 * t1138 - t2378 * t16449 * t1138 - 0.2e1 * t16441 * t4289 + 0.18e2 * t4431 * t16706 + 0.5e1 * t4013 * t62957 - 0.2e1 * t4026 * t61980 - 0.6e1 * t1214 * t1244 * t42305 + 0.6e1 * t14484 * t63435 + 0.16e2 / 0.3e1 * t59430 + 0.18e2 * t14821 * t63439;
23629   t63481 = -0.6e1 * t12621 * t1252 - 0.2e1 * t4459 * t16249 - t4459 * t15972 - t4465 * t15972 - t1227 * t61989 / 0.3e1 - t1227 * t61993 - t400 * t11566 * t57 * t1138 / 0.3e1 - t16450 * t4289 - t16450 * t4297 - 0.2e1 * t4459 * t15976 - 0.2e1 * t4465 * t15976;
23630   t63504 = t4079 * t62454;
23631   t63538 = 0.60e2 * t49228 * t62590 + 0.30e2 * t15099 * t62723 - 0.20e2 * t53310 * t16186 - 0.20e2 * t53327 * t16186 - 0.20e2 * t13663 * t62719 - 0.10e2 * t13663 * t62568 - 0.10e2 * t13663 * t62742 + 0.160e3 / 0.3e1 * t59817 + t62641 * t1255 / 0.3e1 + t16206 * t4539 + t4393 * t16573;
23632   t63561 = t4405 * t16573 + t1202 * t1254 * t62687 / 0.3e1 + t62654 * t1255 / 0.3e1 + t62657 * t1255 + t16195 * t4539 + t62664 * t1255 + 0.2e1 * t16198 * t4539 + 0.2e1 * t62565 * t1255 + 0.176e3 / 0.9e1 * t53295 - 0.24e2 * t400 * t16564 * t912 - 0.24e2 * t400 * t4550 * t3209 + 0.120e3 * t7591 * t16600;
23633   t63592 = 0.120e3 * t1397 * t4547 * t3152 + 0.120e3 * t7757 * t59873 * t912 + 0.2e1 * t3945 * t1254 * t62753 + 0.2e1 * t14614 * t16541 + 0.2e1 * t19992 * t16541 + 0.2e1 / 0.3e1 * t3945 * t1254 * t62756 - 0.5e1 * t3939 * t1254 * t62763 - 0.5e1 * t58264 * t4531 + 0.2e1 * t58267 * t4534 - 0.440e3 / 0.9e1 * t53409 - 0.8e1 * t400 * t1258 * t11644 - 0.48e2 * t2378 * t16590;
23634   t63618 = -0.48e2 * t2378 * t16593 - 0.240e3 * t6453 * t1258 * t11560 - 0.24e2 * t9657 * t4544 - t49372 - 0.5e1 * t3939 * t1254 * t62790 - 0.5e1 / 0.3e1 * t3939 * t1254 * t62794 - 0.5e1 * t14641 * t16528 - 0.5e1 * t14662 * t16528 - 0.5e1 * t58276 * t4531 - 0.10e2 * t14641 * t16550 + 0.30e2 * t52137 * t16533 + 0.30e2 * t52127 * t16533;
23635   t63646 = 0.30e2 * t1254 * t13251 * t62773 + 0.2e1 * t1254 * t3945 * t62767 - 0.70e2 * t1254 * t47681 * t62786 + 0.4e1 * t14614 * t16538 + 0.4e1 * t14645 * t16538 + 0.2e1 * t14645 * t16541 - 0.10e2 * t14662 * t16550 - 0.10e2 * t4531 * t58270 - 0.10e2 * t4531 * t58369 + 0.4e1 * t4534 * t58273 + 0.2e1 * t4534 * t58280;
23636   t63669 = 0.12e2 * t881 * t16556 + 0.6e1 * t881 * t16553 + 0.6e1 * t3149 * t4550 - 0.80e2 * t59940 - 0.32e2 / 0.3e1 * t59942 - 0.32e2 / 0.3e1 * t59945 - 0.16e2 / 0.3e1 * t59948 + 0.2e1 * t81 * t12661 * t1231 + 0.6e1 * t81 * t3249 * t4483 + 0.6e1 * t81 * t928 * t16563 + 0.2e1 * t11553 * t1258 + 0.88e2 / 0.9e1 * t53553;
23637   t63696 = my_piecewise3(t95, 0, -t48648 - 0.22e2 / 0.3e1 * t50348 - 0.4e1 * t57796 + 0.2e1 * t57804 - 0.3e1 / 0.2e1 * t61909 + 0.3e1 / 0.2e1 * t61911 - t61913 / 0.4e1);
23638   t63702 = 0.88e2 / 0.9e1 * t53557 + 0.88e2 / 0.9e1 * t53559 + 0.80e2 / 0.3e1 * t60022 - 0.32e2 / 0.3e1 * t60024 + 0.80e2 / 0.3e1 * t60027 - 0.24e2 * t2378 * t16605 - 0.24e2 * t400 * t16553 * t912 - 0.48e2 * t400 * t16556 * t912 - 0.24e2 * t400 * t4547 * t3209 + 0.6e1 * t881 * t16564 + 0.2e1 * t81 * t96 * t63696 + 0.2e1 * t62692 * t1255;
23639   t63719 = 0.2e1 * t16225 * t4539 + 0.6e1 * t3149 * t4547 + 0.120e3 * t1397 * t4550 * t3152 + 0.80e2 / 0.3e1 * t60133 + 0.40e2 / 0.3e1 * t60137 - 0.16e2 / 0.3e1 * t60202 - 0.16e2 / 0.3e1 * t60204 - 0.8e1 / 0.3e1 * t60206 - 0.16e2 / 0.3e1 * t60208 - 0.8e1 / 0.3e1 * t60211 - 0.8e1 / 0.3e1 * t60213 - 0.16e2 / 0.3e1 * t60215;
23640   t63729 = -t1227 * t63061 - 0.2e1 * t4465 * t16249 - 0.6e1 * t449 * t16692 * t928 - 0.6e1 * t449 * t4527 * t3249 - 0.6e1 * t2442 * t16719 - 0.6e1 * t3220 * t4527 - 0.80e2 / 0.3e1 * t59532 - t1214 * t1244 * t42240 + 0.3e1 * t1214 * t4124 * t62838 - 0.18e2 * t14821 * t63504 - 0.6e1 * t9866 * t4478 - 0.6e1 * t4302 * t16719 - 0.6e1 * t449 * t3714 * t4483 - 0.2e1 * t14972 * t15900 + 0.5e1 * t58882 * t4273 - 0.88e2 / 0.9e1 * t53862 + (t63538 + t63561 + t63592 + t63618 + t63646 + t63669 + t63702 + t63719) * t227 - 0.80e2 / 0.3e1 * t59561 + 0.20e2 * t14975 * t16113 - 0.3e1 * t16232 * t4561;
23641   t63761 = t11986 * t1243 * t748;
23642   t63771 = -0.176e3 / 0.9e1 * t54224 + 0.3e1 * t4553 * t3530 - 0.12e2 * t2442 * t16723 - 0.3e1 * t4431 * t16617 + 0.9e1 * t16232 * t4557 - 0.160e3 / 0.3e1 * t59669 + 0.6e1 * t1214 * t63761 + 0.3e1 * t16232 * t4515 + t62004 * t1245 - 0.2e1 * t59449 * t4293 - 0.4e1 * t59434 * t4293;
23643   t63797 = t15289 * t16021;
23644   t63843 = t4079 * t45205;
23645   t63856 = -0.3e1 * t1033 * t2849 * t59296 + 0.3e1 * t12035 * t1768 * t4049 - t12209 * t2849 * t4079 - 0.6e1 * t12220 * t2849 * t49014 + 0.9e1 * t15206 * t1768 * t3448 + 0.18e2 * t15206 * t2857 * t3427 - 0.3e1 * t15289 * t2849 * t3522 + 0.9e1 * t1768 * t59292 * t999 + 0.6e1 * t2849 * t3431 * t54409 + t169 * t63414 + 0.6e1 * t169 * t63761 - 0.9e1 * t1768 * t63223 + 0.18e2 * t1768 * t63235 - 0.18e2 * t1768 * t63797 - 0.9e1 * t1768 * t63843 + 0.6e1 * t2849 * t63435 + 0.18e2 * t2857 * t63439 - 0.18e2 * t2857 * t63504;
23646   t63857 = my_piecewise3(t296, 0, t63856);
23647   t63866 = my_piecewise3(t359, 0, t63856);
23648   t63880 = -0.2e1 * t449 * t363 * t63696 - 0.18e2 * t13345 * t63797 - 0.2e1 * t63047 * t1232 - 0.6e1 * t15998 * t4478 - 0.6e1 * t63044 * t1232 - 0.12e2 * t16016 * t4478 - 0.12e2 * t16016 * t4484 - 0.4e1 * t14978 * t16122 - t98 * (t63857 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t16680 * t886 + 0.3e1 / 0.2e1 * t4520 * t3196 + t1247 * t11629 / 0.2e1 + t63866 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t16686 * t905 + 0.3e1 / 0.2e1 * t4523 * t3202 + t1249 * t11637 / 0.2e1) + 0.80e2 * t59748 - 0.3e1 * t3213 * t4527;
23649   t63922 = -t4465 * t15957 - t1227 * t63065 / 0.3e1 - 0.3e1 * t916 * t16692 + 0.3e1 * t16609 * t1037 + 0.8e1 / 0.3e1 * t60239 - 0.6e1 * t62560 * t1232 + 0.18e2 * t1214 * t54274 * t16241 - 0.9e1 * t13345 * t63843 - 0.6e1 * t2442 * t16709 - 0.6e1 * t4302 * t16654 + t1261 * t12227;
23650   t63926 = t63729 + t63771 + t63481 + 0.32e2 / 0.3e1 * t58911 - 0.80e2 / 0.3e1 * t58913 + 0.8e1 / 0.3e1 * t59699 + t63230 + t63442 + 0.16e2 / 0.3e1 * t59697 + t63880 + t63189 + 0.32e2 / 0.3e1 * t59442 - 0.2e1 * t14978 * t15900 + 0.5e1 * t14967 * t15939 + 0.5e1 * t4013 * t61944 + 0.5e1 * t4013 * t61948 - 0.30e2 * t53764 * t15896 - 0.6e1 * t9866 * t4484 - 0.12e2 * t2442 * t16716 - 0.6e1 * t2442 * t16654 + 0.9e1 * t4431 * t16619 - 0.30e2 * t13415 * t62993 + 0.18e2 * t13345 * t63235 - 0.6e1 * t9866 * t4488 + t1214 * t63414 + 0.18e2 * t4431 * t16624 - 0.6e1 * t4302 * t16709 + 0.5e1 * t14975 * t15939 + 0.3e1 * t4431 * t16526 + 0.20e2 * t4013 * t62535 - 0.2e1 * t16441 * t4297 - t11648 * t1252 - 0.2e1 * t1227 * t62930 - 0.2e1 * t1227 * t62933 - 0.6e1 * t15998 * t4484 - 0.12e2 * t4302 * t16723 + 0.10e2 * t14967 * t15913 - 0.4e1 * t14978 * t16119 + 0.70e2 * t49497 * t62012 + 0.10e2 * t14967 * t15909 + 0.5e1 * t59616 * t4273 + 0.10e2 * t58938 * t4273 + 0.10e2 * t14975 * t15909 + 0.10e2 * t4013 * t62864 - 0.6e1 * t4431 * t16703 - 0.18e2 * t52859 * t16611 - 0.4e1 * t4026 * t62883 + 0.10e2 * t4013 * t62886 + t48807 - 0.2e1 * t44549 * t1232 - t4459 * t15957 + 0.6e1 * t4431 * t16641 - 0.80e2 / 0.3e1 * t58936 + 0.16e2 / 0.3e1 * t58971 + t63922 - 0.88e2 / 0.9e1 * t53879 - 0.2e1 * t449 * t12615 * t1231 - 0.3e1 * t1214 * t4514 * t10242 + 0.6e1 * t1214 * t4514 * t9934 - 0.6e1 * t449 * t1110 * t16563 + 0.9e1 * t1214 * t59701 * t4433 - 0.3e1 * t1214 * t16525 * t2850 + 0.9e1 * t1214 * t15384 * t16027 + 0.8e1 / 0.3e1 * t59777 + 0.16e2 / 0.3e1 * t59779 + 0.8e1 / 0.3e1 * t58953 + 0.16e2 / 0.3e1 * t58955 - 0.40e2 / 0.3e1 * t59585;
23651   t63952 = 0.9e1 * t4568 * t3752 + 0.18e2 * t1267 * t12741 + 0.9e1 * t16741 * t1127 + 0.18e2 * t369 * t4547 * t3249 + 0.6e1 * t1267 * t12738 + 0.18e2 * t4568 * t3749 + 0.3e1 * t12730 * t1269 + 0.18e2 * t369 * t16564 * t928 + 0.18e2 * t369 * t4550 * t3249 + params->d * t63926 * t370 + 0.18e2 * t3745 * t4574 + 0.3e1 * t1267 * t12744 + 0.6e1 * t369 * t1258 * t12661 + 0.9e1 * t3745 * t4577 + 0.3e1 * t369 * t97 * t63696 + 0.9e1 * t1125 * t16764 + 0.18e2 * t1125 * t16755 + 0.36e2 * t1125 * t16758 + 0.18e2 * t1125 * t16761 + 0.18e2 * t369 * t3219 * t4483;
23652   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23653     v4rho3sigma[10] = t372 * t63926 * t7 + 0.3e1 * t1123 * t16767 + 0.3e1 * t1130 * t16731 + t1265 * t12747 + t1272 * t12724 + 0.3e1 * t3741 * t4580 + 0.3e1 * t3755 * t4564 + t63952 * t872 + 0.3e1 * t58755 + 0.3e1 * t58759 + 0.6e1 * t58766 + 0.3e1 * t58770 + 0.6e1 * t60284 + 0.3e1 * t60286;
23654 
23655   t64005 = -0.5e1 * t4156 * t62876 + 0.15e2 * t13892 * t62903 - 0.5e1 / 0.2e1 * t61703 * t4273 + 0.2e1 * t15686 * t16122 + t15503 * t15900 + t15686 * t15900 + t15610 * t15900 + t4173 * t61983 + t1277 * t61993 / 0.2e1 + t2378 * t16780 * t1138 + t16807 * t4297 + t16781 * t4297 + t4597 * t15957 / 0.2e1 + t4597 * t15976 + t1277 * t63061 / 0.2e1 + 0.2e1 * t15610 * t16119 + 0.2e1 * t15503 * t16122 + t60525 * t4293 - 0.6e1 * t4302 * t16771 - 0.6e1 * t449 * t4656 * t3249;
23656   t64042 = -0.1232e4 / 0.27e2 * t11595 * t50 + 0.440e3 / 0.9e1 * t60813 * t897 - 0.80e2 / 0.9e1 * t56041 * t3179 - 0.40e2 / 0.3e1 * t15479 * t3183 - 0.10e2 / 0.27e2 * t49971 * t11605 + 0.10e2 / 0.3e1 * t13817 * t40511 + 0.5e1 / 0.3e1 * t4163 * t11612 + t47459;
23657   t64065 = t400 * t25 * t64042 * t1138 / 0.6e1 + t17043 * t4289 / 0.2e1 + t17043 * t4297 / 0.2e1 + 0.2e1 * t15610 * t16122 - 0.6e1 * t12621 * t1307 + 0.2e1 * t15503 * t16119 + 0.2e1 * t15686 * t16119 + 0.2e1 * t61747 * t4293 + t62005 - 0.5e1 / 0.6e1 * t4156 * t61952 - 0.5e1 / 0.2e1 * t15699 * t15939;
23658   t64108 = t4582 * t15976 + t4588 * t15976 + t4173 * t62831 + t4582 * t16249 + t4588 * t16249 + t4597 * t16249 + t1277 * t62930 + t1277 * t62933 + t4582 * t15972 / 0.2e1 + t4588 * t15972 / 0.2e1 + t4597 * t15972 / 0.2e1;
23659   t64132 = -t62829 - 0.10e2 * t15699 * t16113 - 0.10e2 * t15683 * t16113 - t62837 + t62841 + t16803 * t4297 + t4588 * t15957 / 0.2e1 - 0.5e1 / 0.2e1 * t61187 * t4273 - 0.5e1 * t60580 * t4273 - 0.5e1 * t15683 * t15909 + t62851;
23660   t64148 = t12227 * t1313 + 0.15e2 * t13892 * t62993 + 0.30e2 * t13892 * t63035 + 0.15e2 * t15896 * t55646 + 0.3e1 * t3530 * t4675 + t4173 * t62901 - 0.35e2 * t49594 * t62012 + t62854 - t62856 - t62858 - t62862 + t62868 + t62907 + t62909 + t62913 - t62921 + t62923 - t62925 - t62938 + t62943;
23661   t64175 = my_piecewise3(t296, 0, t62499);
23662   t64184 = t1098 * t3607;
23663   t64242 = -t61415 / 0.384e3 + 0.5e1 / 0.1728e4 * t61419 + t61421 / 0.576e3 - t15713 * t3635 / 0.36e2 - t15713 * t3639 / 0.27e2 - t4187 * t12456 / 0.36e2 - 0.209e3 / 0.648e3 * t262 * t1286 * t12474 * t342 + t4187 * t12460 / 0.288e3 + 0.7e1 / 0.648e3 * t4187 * t12464 - t61445 / 0.288e3 + t13987 * t12379 / 0.128e3 - t49796 * t12449 / 0.128e3 - t15746 * t3647 / 0.72e2 - t55213 * t3617 / 0.24e2 + t15746 * t3604 / 0.36e2;
23664   t64270 = t4198 * t12540 / 0.192e3 + t15740 * t3610 / 0.48e2 - t15719 * t2169 * t12257 / 0.48e2 + t61463 / 0.192e3 + t49804 - t55125 / 0.1728e4 + t13994 * t12486 / 0.192e3 + t49813 * t12490 / 0.192e3 + t15740 * t3670 / 0.48e2 + t4198 * t12391 / 0.1152e4 - 0.5e1 / 0.576e3 * t4198 * t12536 + 0.19e2 / 0.216e3 * t61435 * t1088 - 0.19e2 / 0.144e3 * t61517 * t1077 - t4192 * t12401 / 0.768e3 - 0.5e1 / 0.216e3 * t15746 * t3651;
23665   t64294 = 0.5e1 / 0.1296e4 * t4198 * t12407 - t4192 * t12440 / 0.768e3 + 0.11e2 / 0.108e3 * t61477 - 0.77e2 / 0.162e3 * t11595 * t114 * t182 * t324 - t4198 * t12524 / 0.192e3 - t61481 / 0.144e3 - t61506 / 0.54e2 + t61508 / 0.36e2 - t61512 / 0.384e3 - t61514 / 0.288e3 + t61520 / 0.288e3 + t55147 / 0.1152e4 + t49852 + t4187 * t12364 / 0.48e2 + 0.11e2 / 0.108e3 * t61546 * t1066;
23666   t64322 = t15713 * t3631 / 0.18e2 + 0.5e1 / 0.1152e4 * t4198 * t12503 + t13987 * t12520 / 0.128e3 + t55189 / 0.216e3 - t55205 / 0.432e3 + t15719 * t7185 * t12249 / 0.72e2 + t61541 / 0.216e3 + t55222 / 0.54e2 - t61549 / 0.54e2 - t13994 * t12498 / 0.384e3 - 0.5e1 / 0.1152e4 * t13994 * t12515 - t13994 * t12494 / 0.384e3 + t55178 * t3621 / 0.36e2 + 0.19e2 / 0.216e3 * t61568 - t4192 * t12511 / 0.256e3 - t13994 * t12480 / 0.384e3;
23667   t64324 = t64242 + t64270 + t64294 + t64322;
23668   t64331 = t4627 * t3607;
23669   t64371 = 0.3e1 * t1074 * t16873 * t329 * t4209 * t4215 - 0.6e1 * t1098 * t14036 * t14037 * t329 * t3667 + t12437 * t1291 * t329 * t4209 * t4215 + 0.3e1 * t329 * t3667 * t4209 * t4215 * t4627 - 0.6e1 * t14051 * t2219 * t4209 * t64331 + 0.3e1 * t329 * t4209 * t4215 * t64331 + 0.6e1 * t3696 * t4209 * t4210 * t4627 + 0.6e1 * t15765 * t3681 + 0.6e1 * t15774 * t16904 - 0.6e1 * t15774 * t16909 + 0.3e1 * t15774 * t16919;
23670   t64375 = t1291 * t12376;
23671   t64406 = 0.3e1 * t1074 * t14037 * t15805 * t329 * t3667 + 0.24e2 * t12554 * t1291 * t4209 * t49876 + 0.2e1 * t12592 * t1291 * t4209 * t4210 - 0.6e1 * t14051 * t2219 * t4209 * t64375 + t329 * t4209 * t4215 * t64375 + t352 * t64324 * params->beta - 0.3e1 * t1099 * t61401 - 0.3e1 * t15765 * t3697 - 0.18e2 * t15774 * t16891 + 0.12e2 * t15774 * t16900 - 0.3e1 * t16882 * t4643;
23672   t64437 = 0.6e1 * t1098 * t16873 * t4209 * t4210 - t1159 * t1162 * t12545 * t1298 - 0.18e2 * t14030 * t3680 * t4209 * t4627 - 0.18e2 * t14030 * t3696 * t4209 * t4634 + 0.6e1 * t4209 * t49732 * t64375 * t7382 - 0.6e1 * t12555 * t4204 + 0.6e1 * t12559 * t4204 - t12593 * t4204 - 0.12e2 * t16896 * t55037 - 0.3e1 * t16925 * t4632 + 0.6e1 * t4635 * t61380;
23673   t64462 = my_piecewise3(t359, t169 * (-0.6e1 * t1074 * t14036 * t14037 * t329 * t3696 + 0.18e2 * t1074 * t14037 * t329 * t3680 * t49685 - t1295 * t1296 * t331 * t64324 - 0.6e1 * t14036 * t14037 * t329 * t64184 + 0.12e2 * t14036 * t15806 * t2219 * t64184 - 0.6e1 * t15805 * t15806 * t3667 * t9293 - 0.12e2 * t14036 * t16895 * t55052 + 0.6e1 * t15774 * t16914 + 0.3e1 * t15774 * t16922 + 0.3e1 * t4640 * t61380 + t64371 + t64406 + t64437) * t848 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t61611 * t1101 + 0.3e1 * t169 * t55428 * t3703 - 0.3e1 / 0.2e1 * t169 * t15839 * t3699 - 0.3e1 * t169 * t49932 * t12602 + 0.3e1 * t15846 * t9582 * t3699 - t169 * t4226 * t12595 / 0.2e1, t62499);
23674   t64473 = -0.5e1 * t15699 * t15909 - 0.5e1 * t15699 * t15913 - 0.5e1 * t4156 * t62997 - 0.5e1 * t4156 * t62864 - t62961 - t98 * (t64175 * t34 / 0.2e1 + 0.3e1 / 0.2e1 * t16826 * t886 + 0.3e1 / 0.2e1 * t4610 * t3196 + t1280 * t11629 / 0.2e1 + t64462 * t46 / 0.2e1 + 0.3e1 / 0.2e1 * t16939 * t905 + 0.3e1 / 0.2e1 * t4652 * t3202 + t1304 * t11637 / 0.2e1) - t62965 - t62967 - t62969 + t62971 - t62975;
23675   t64495 = 0.10e2 * t55789 * t16186 + 0.10e2 * t13930 * t62719 - 0.15e2 * t15516 * t62723 + 0.5e1 * t13930 * t62568 - 0.30e2 * t50061 * t62590 + 0.10e2 * t55822 * t16186 + t62595 - t14645 * t16988 + 0.5e1 * t14641 * t16971 + 0.5e1 * t14641 * t16974 + 0.5e1 / 0.2e1 * t14641 * t16977;
23676   t64515 = 0.5e1 / 0.2e1 * t3939 * t17016 * t4396 + 0.5e1 * t3939 * t4668 * t16130 + 0.5e1 / 0.2e1 * t3939 * t4668 * t16134 + 0.5e1 / 0.2e1 * t3939 * t1309 * t62763 + 0.5e1 / 0.2e1 * t3939 * t1309 * t62790 + t62597 + t62599 + t62601 - t62604 - t62607 + 0.5e1 * t13930 * t62742 + 0.5e1 * t58270 * t4660;
23677   t64540 = 0.5e1 * t14662 * t16971 + 0.5e1 * t14662 * t16974 + 0.5e1 / 0.2e1 * t14662 * t16977 - t3945 * t4668 * t16147 - t3945 * t1309 * t62767 - t3945 * t1309 * t62753 + 0.5e1 / 0.6e1 * t3939 * t1309 * t62794 + 0.5e1 * t58369 * t4660 - t19992 * t16988 - t58280 * t4663 - 0.2e1 * t14645 * t16982 - 0.2e1 * t14645 * t16985;
23678   t64546 = -t62615 - t62617 - t62621 - t62623 - t62626 - t62629 - t62632 - t4393 * t17017 / 0.2e1 - t4393 * t17020 - t4393 * t17023 / 0.2e1 + t62696 - t62699;
23679   t64560 = t62701 + t62704 + t62707 + t62709 + t62712 + t62714 + 0.10e2 * t55815 * t16186 - t3945 * t17016 * t4400 - 0.2e1 * t3945 * t4668 * t16143 - t62641 * t1310 / 0.6e1 - t16206 * t4669 / 0.2e1;
23680   t64580 = -t16206 * t4672 / 0.2e1 - t4405 * t17017 / 0.2e1 - t4405 * t17020 - t4405 * t17023 / 0.2e1 - t62565 * t1310 - t62692 * t1310 - t16225 * t4669 - t16225 * t4672 - t62654 * t1310 / 0.6e1 - t62657 * t1310 / 0.2e1 - t16195 * t4669 / 0.2e1 - t16195 * t4672 / 0.2e1;
23681   t64611 = -t62664 * t1310 / 0.2e1 - t16198 * t4669 - t16198 * t4672 - t1202 * t64042 * t61 * t1204 / 0.6e1 - t1202 * t17016 * t4412 / 0.2e1 - t1202 * t4668 * t16220 / 0.2e1 - t1202 * t1309 * t62687 / 0.6e1 - 0.15e2 * t13251 * t1309 * t62773 + 0.35e2 * t47681 * t1309 * t62786 - t3945 * t1309 * t62756 / 0.3e1 - t58267 * t4663 - 0.2e1 * t58273 * t4663;
23682   t64628 = -0.2e1 * t14614 * t16982 - 0.2e1 * t14614 * t16985 - t14614 * t16988 + 0.5e1 / 0.2e1 * t58276 * t4660 + 0.5e1 / 0.2e1 * t58264 * t4660 - t62762 - 0.15e2 * t52137 * t16991 - 0.15e2 * t52127 * t16991 - 0.15e2 * t13251 * t4668 * t16151 + t62806 + t62809 + t62812;
23683   t64658 = t40570 * t1276 * t1138 / 0.6e1 + t9657 * t4587 * t1138 / 0.2e1 + t9657 * t4596 * t1138 / 0.2e1 + t16800 * t4289 / 0.2e1 + t16800 * t4297 / 0.2e1 - t63009 - t63019 + t16807 * t4289 + t16781 * t4289 - t63026 - t63028;
23684   t64681 = -0.6e1 * t16945 * t449 * t928 - t11648 * t1307 - 0.6e1 * t16771 * t2442 - 0.3e1 * t16945 * t916 - 0.12e2 * t16951 * t2442 - 0.6e1 * t3220 * t4656 + 0.2e1 * t4293 * t61660 - 0.6e1 * t4607 * t9866 + t63055 - t63091 + t63094;
23685   t64685 = -t62980 + t64108 + t64658 + t64681 + t64005 + t63039 + t62546 + t63053 - t63043 - t63046 - t63049 - t63051 - t62982 - t62984 - t62989 + t62944 + t64148 + t64132 - t62521 + t64065 + t62549 - t62552 - t62559 + t64473 - 0.5e1 * t61126 * t4273 - 0.5e1 / 0.2e1 * t60503 * t4273 - 0.10e2 * t4156 * t62535 - 0.5e1 / 0.2e1 * t4156 * t61948 + t4173 * t61980 + t61657 * t4293 + 0.15e2 * t13892 * t61967 - 0.10e2 * t4156 * t62539 - 0.5e1 * t61654 * t4273 - t62562 + t2378 * t17042 * t1138 / 0.2e1 + t2378 * t16776 * t1138 / 0.2e1 - 0.2e1 * t449 * t1307 * t12661 + t400 * t883 * t17015 * t1138 / 0.2e1 + t400 * t11566 * t1275 * t1138 / 0.6e1 + t400 * t3155 * t4595 * t1138 / 0.2e1 - t63033 - t63031 + (t64495 + t64515 + t64540 + t64546 + t64560 + t64580 + t64611 + t64628) * t227 - 0.5e1 * t15500 * t15909 - 0.5e1 / 0.2e1 * t4156 * t62957 - 0.5e1 * t4156 * t62886 + t16777 * t4289 / 0.2e1 + t16777 * t4297 / 0.2e1 + t4582 * t15957 / 0.2e1 + t1277 * t63065 / 0.6e1 + t60567 * t4293 - 0.5e1 * t15683 * t15913 - 0.5e1 / 0.2e1 * t15500 * t15939 + 0.15e2 * t54815 * t15896 + t4173 * t62898 + 0.2e1 * t4173 * t62883 + t4173 * t62880 / 0.3e1 + t1277 * t61989 / 0.6e1 - 0.3e1 * t3213 * t4656 + 0.15e2 * t54903 * t15896 - 0.10e2 * t15500 * t16113 + t16803 * t4289 + 0.3e1 * t17031 * t1037 - 0.5e1 / 0.2e1 * t4156 * t61944 - 0.5e1 * t15500 * t15913 - 0.5e1 / 0.2e1 * t4156 * t62871 + 0.2e1 * t61131 * t4293 - 0.5e1 / 0.2e1 * t15683 * t15939;
23686   t64705 = t370 * t64685 * params->d + 0.9e1 * t1127 * t17064 + 0.6e1 * t12738 * t1318 + 0.18e2 * t12741 * t1318 + 0.3e1 * t12744 * t1318 + 0.18e2 * t3749 * t4683 + 0.9e1 * t3752 * t4683 + t61892 + t61895 + t61900 + t61902 + t61904 + t61906 + t61919 + t61921 + t61924 + t63106 + t63109 + t63111 + t63113;
23687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23688     v4rho3sigma[11] = t372 * t64685 * t7 + 0.3e1 * t1123 * t17072 + 0.3e1 * t1130 * t17054 + t12724 * t1320 + t12747 * t1316 + 0.3e1 * t3741 * t4687 + 0.3e1 * t3755 * t4679 + t64705 * t872 + 0.3e1 * t61839 + 0.3e1 * t61840 + 0.6e1 * t61841 + 0.3e1 * t61847 + 0.3e1 * t61875 + 0.6e1 * t61882;
23689 
23690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23691     v4rho3lapl[0] = 0.0e0;
23692 
23693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23694     v4rho3lapl[1] = 0.0e0;
23695 
23696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23697     v4rho3lapl[2] = 0.0e0;
23698 
23699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23700     v4rho3lapl[3] = 0.0e0;
23701 
23702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23703     v4rho3lapl[4] = 0.0e0;
23704 
23705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23706     v4rho3lapl[5] = 0.0e0;
23707 
23708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23709     v4rho3lapl[6] = 0.0e0;
23710 
23711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23712     v4rho3lapl[7] = 0.0e0;
23713 
23714   t64716 = t869 * t4754;
23715   t64718 = t1333 * t2373;
23716   t64720 = t17191 * t372;
23717   t64722 = t2358 * t1341;
23718   t64733 = t17161 * t227;
23719   t64737 = t1392 * t464;
23720   t64745 = t6442 * t96;
23721   t64761 = 0.120e3 * t1398 * t17097 * t7757 - 0.6e1 * t17161 * t449 * t857 - 0.240e3 * t34500 * t4721 * t6454 - 0.24e2 * t443 * t4720 * t64733 - 0.2e1 * t1327 * t26657 - 0.2e1 * t1327 * t29806 - 0.48e2 * t17094 * t17113 - 0.48e2 * t17098 * t17116 + 0.120e3 * t17106 * t34464 + 0.120e3 * t17106 * t36427 + 0.12e2 * t17109 * t397 - 0.6e1 * t17120 * t2448 - 0.6e1 * t4694 * t8308 - 0.48e2 * t4722 * t64737 - 0.24e2 * t4722 * t64745;
23722   t64768 = t4714 * t751;
23723   t64781 = t1326 * t2101;
23724   t64800 = 0.120e3 * t1398 * t17112 * t7757 + 0.12e2 * t17087 * t751 * t81 - 0.6e1 * t2331 * t449 * t4714 - 0.48e2 * t443 * t4720 * t64768 - 0.24e2 * t443 * t4720 * t64781 + 0.120e3 * t4721 * t6457 * t7757 + 0.2e1 * t1330 * t6441 + 0.6e1 * t1391 * t4726 + 0.6e1 * t1391 * t4730 + 0.6e1 * t1391 * t4733 - 0.6e1 * t1476 * t17120 + 0.6e1 * t17084 * t397 + 0.12e2 * t17088 * t397 - 0.6e1 * t4694 * t6587 - 0.6e1 * t4715 * t6587;
23725   t64840 = 0.2e1 * t1326 * t227 * t5804 * t81 + 0.6e1 * t1516 * t227 * t4714 * t81 + 0.2e1 * t1329 * t6407 * t81 - 0.24e2 * t1470 * t17097 * t4720 + 0.6e1 * t17162 * t751 * t81 + 0.6e1 * t2101 * t4725 * t81 - 0.6e1 * t1327 * t33919 - 0.6e1 * t1327 * t34069 - 0.6e1 * t1476 * t17166 - 0.12e2 * t17080 * t2448 - 0.24e2 * t17094 * t17101 - 0.24e2 * t17101 * t17116 - 0.6e1 * t17166 * t2448 - 0.12e2 * t4694 * t7847 - 0.12e2 * t4715 * t7847;
23726   t64850 = t400 * t1516;
23727   t64875 = 0.154e3 / 0.27e2 * t5742 * t1323;
23728   t64876 = t1440 * t4705;
23729   t64878 = t424 * t17148;
23730   t64894 = t17125 * t17141;
23731   t64903 = t1440 * t453;
23732   t64904 = t64903 * t4710;
23733   t64906 = t17125 * t17144;
23734   t64908 = t17130 * t3775;
23735   t64910 = t17130 * t17157;
23736   t64912 = 0.55e2 / 0.27e2 * t58 * t453 * t1416 * t38 + t64875 + 0.55e2 / 0.9e1 * t64876 + 0.40e2 / 0.9e1 * t64878 - 0.25e2 / 0.6e1 * t4699 * t3774 * t17140 + 0.5e1 / 0.4e1 * t4699 * t4709 * t1511 * t414 + 0.5e1 / 0.4e1 * t4699 * t4709 * t459 * t1427 - 0.5e1 / 0.12e2 * t4708 * t17153 * t47454 - 0.20e2 / 0.3e1 * t64894 - 0.15e2 / 0.4e1 * t17133 * t4709 * t1494 * t414 - 0.9e1 / 0.4e1 * t17133 * t4700 * t47578 - 0.55e2 / 0.9e1 * t64904 - 0.2e1 * t64906 - 0.50e2 / 0.9e1 * t64908 + 0.5e1 / 0.3e1 * t64910;
23737   t64926 = t1440 * t1493;
23738   t64927 = t64926 * t4701;
23739   t64938 = t84 * t5770;
23740   t64942 = t424 * t5751;
23741   t64943 = t64942 * t17134;
23742   t64945 = t17125 * t17137;
23743   t64947 = t17130 * t17154;
23744   t64949 = t58 * t26299;
23745   t64956 = -0.5e1 / 0.4e1 * t4699 * t1132 * t1511 + t4699 * t4700 * t5799 / 0.4e1 - 0.25e2 / 0.9e1 * t4708 * t13186 + 0.25e2 / 0.24e2 * t4708 * t13191 - 0.5e1 / 0.24e2 * t4708 * t4709 * t5781 + 0.22e2 / 0.3e1 * t64927 + 0.5e1 / 0.6e1 * t4699 * t17153 * t459 * t1423 + 0.10e2 / 0.3e1 * t4699 * t3772 * t459 + 0.25e2 / 0.36e2 * t4708 * t13189 + 0.5e1 / 0.108e3 * t4708 * t64938 * t5771 + 0.6e1 * t64943 + 0.20e2 / 0.3e1 * t64945 + 0.10e2 / 0.9e1 * t64947 + 0.3e1 * t64949 * t4700 * t5752 + 0.15e2 / 0.4e1 * t17133 * t1132 * t1494;
23746   t64958 = my_piecewise3(t95, 0, t64912 + t64956);
23747   t64973 = -0.12e2 * t1476 * t17080 + 0.6e1 * t397 * t17177 - 0.6e1 * t8308 * t4715 - 0.2e1 * t449 * t7532 * t1326 - 0.24e2 * t64850 * t4722 - 0.48e2 * t17094 * t17098 + 0.6e1 * t81 * t17083 * t751 - 0.24e2 * t4720 * t17112 * t1470 - 0.8e1 * t4720 * t4721 * t6533 + 0.6e1 * t397 * t17163 + 0.6e1 * t81 * t464 * t17161 * t227 + 0.2e1 * t81 * t96 * t64958 * t227 + 0.6e1 * t81 * t4729 * t2101 - 0.2e1 * t449 * t363 * t64958 + 0.12e2 * t397 * t17091 - 0.48e2 * t17116 * t17113;
23748   t64975 = t64761 + t64800 + t64840 + t64973;
23749   t64980 = t368 * t17230;
23750   t64984 = t4736 * t878;
23751   t65036 = 0.3e1 * t369 * t97 * t64958 + 0.18e2 * t369 * t1481 * t4714 + 0.18e2 * t369 * t17162 * t464 + 0.18e2 * t369 * t4729 * t1516 + 0.18e2 * t369 * t4725 * t1516 + 0.18e2 * t873 * t17218 + 0.36e2 * t873 * t17221 + 0.18e2 * t873 * t17224 + 0.18e2 * t2363 * t4748 + 0.6e1 * t369 * t1329 * t5804 + 0.9e1 * t873 * t17227 + 0.6e1 * t1336 * t7558 + 0.9e1 * t2363 * t4751 + 0.3e1 * t7550 * t1338 + 0.9e1 * t4742 * t2370 + 0.18e2 * t4742 * t2367 + 0.18e2 * t1336 * t7561 + 0.3e1 * t1336 * t7564 + params->d * t64975 * t370 + 0.9e1 * t17204 * t875;
23752   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23753     v4rho3tau[0] = t372 * t64975 * t7 + t1334 * t7567 + t1341 * t7544 + 0.3e1 * t17192 * t878 + 0.3e1 * t17230 * t870 + 0.3e1 * t2359 * t4754 + 0.3e1 * t2373 * t4737 + t65036 * t872 + 0.6e1 * t64716 + 0.3e1 * t64718 + 0.3e1 * t64720 + 0.3e1 * t64722 + 0.3e1 * t64980 + 0.6e1 * t64984;
23754 
23755   t65040 = t2358 * t1362;
23756   t65051 = 0.154e3 / 0.27e2 * t5742 * t1344;
23757   t65052 = t64926 * t4767;
23758   t65054 = t64903 * t4771;
23759   t65056 = t17125 * t17264;
23760   t65058 = t17130 * t17271;
23761   t65066 = t64942 * t17257;
23762   t65068 = t17125 * t17261;
23763   t65070 = t17130 * t17268;
23764   t65094 = t88 * t5786;
23765   t65101 = t65051 + 0.22e2 / 0.3e1 * t65052 - 0.55e2 / 0.9e1 * t65054 - 0.2e1 * t65056 + 0.5e1 / 0.3e1 * t65058 + t4699 * t4766 * t5799 / 0.4e1 - 0.5e1 / 0.24e2 * t4708 * t4770 * t5795 + 0.6e1 * t65066 - 0.20e2 / 0.3e1 * t65068 + 0.10e2 / 0.9e1 * t65070 + 0.3e1 * t64949 * t4766 * t5752 + 0.5e1 / 0.6e1 * t4699 * t17267 * t459 * t1432 - 0.15e2 / 0.4e1 * t17133 * t4770 * t1494 * t418 - 0.9e1 / 0.4e1 * t17133 * t4766 * t47578 + 0.5e1 / 0.4e1 * t4699 * t4770 * t1511 * t418 + 0.5e1 / 0.4e1 * t4699 * t4770 * t459 * t1436 + 0.5e1 / 0.108e3 * t4708 * t65094 * t5787 - 0.5e1 / 0.12e2 * t4708 * t17267 * t49974;
23766   t65102 = my_piecewise3(t95, 0, t65101);
23767   t65149 = t1347 * t2101;
23768   t65153 = -0.2e1 * t1347 * t449 * t7532 - 0.6e1 * t17275 * t449 * t857 - 0.6e1 * t2331 * t449 * t4775 - 0.24e2 * t443 * t4720 * t65149 - 0.2e1 * t1348 * t26657 - 0.2e1 * t1348 * t29806 - 0.6e1 * t1476 * t17248 - 0.6e1 * t1476 * t17276 - 0.6e1 * t17248 * t2448 - 0.6e1 * t17276 * t2448 - 0.12e2 * t17301 * t2448 - 0.6e1 * t4761 * t8308 - 0.6e1 * t4776 * t6587 - 0.12e2 * t4776 * t7847 - 0.6e1 * t4776 * t8308;
23769   t65190 = 0.120e3 * t1398 * t17236 * t7757 + 0.120e3 * t1398 * t17328 * t7757 + 0.6e1 * t17292 * t751 * t81 + 0.12e2 * t17297 * t751 * t81 - 0.240e3 * t34500 * t4781 * t6454 - 0.2e1 * t363 * t449 * t65102 - 0.6e1 * t1348 * t33919 + 0.6e1 * t1391 * t4793 - 0.24e2 * t17116 * t17323 + 0.120e3 * t17281 * t36427 + 0.6e1 * t17293 * t397 + 0.12e2 * t17298 * t397 + 0.6e1 * t17311 * t397 + 0.12e2 * t17314 * t397 - 0.12e2 * t4761 * t7847;
23770   t65229 = 0.6e1 * t17275 * t227 * t464 * t81 + 0.2e1 * t227 * t65102 * t81 * t96 + 0.6e1 * t17310 * t751 * t81 - 0.8e1 * t4720 * t4781 * t6533 + 0.120e3 * t4781 * t6457 * t7757 + 0.2e1 * t1351 * t6441 + 0.6e1 * t1391 * t4786 + 0.6e1 * t1391 * t4790 - 0.48e2 * t17094 * t17237 - 0.48e2 * t17094 * t17329 - 0.48e2 * t17116 * t17329 + 0.12e2 * t17242 * t397 - 0.48e2 * t4782 * t64737 - 0.24e2 * t4782 * t64745 - 0.24e2 * t4782 * t64850;
23771   t65257 = t4775 * t751;
23772   t65269 = t17275 * t227;
23773   t65275 = -0.48e2 * t17116 * t17237 - 0.24e2 * t17094 * t17323 - 0.24e2 * t4720 * t17328 * t1470 - 0.6e1 * t34069 * t1348 + 0.6e1 * t81 * t4789 * t2101 - 0.12e2 * t1476 * t17301 - 0.6e1 * t6587 * t4761 + 0.2e1 * t81 * t1350 * t6407 + 0.2e1 * t81 * t5804 * t1347 * t227 + 0.6e1 * t81 * t1516 * t4775 * t227 - 0.48e2 * t4720 * t65257 * t443 + 0.120e3 * t34464 * t17281 + 0.6e1 * t81 * t4785 * t2101 - 0.24e2 * t4720 * t17236 * t1470 - 0.24e2 * t4720 * t65269 * t443 + 0.6e1 * t397 * t17245;
23774   t65277 = t65153 + t65190 + t65229 + t65275;
23775   t65301 = 0.18e2 * t4802 * t2367 + 0.18e2 * t369 * t17310 * t464 + 0.18e2 * t369 * t4789 * t1516 + 0.3e1 * t369 * t97 * t65102 + 0.18e2 * t369 * t1481 * t4775 + 0.18e2 * t369 * t4785 * t1516 + 0.18e2 * t873 * t17360 + 0.36e2 * t873 * t17363 + 0.18e2 * t873 * t17366 + params->d * t65277 * t370 + 0.6e1 * t369 * t1350 * t5804 + 0.9e1 * t4802 * t2370 + 0.9e1 * t17346 * t875 + 0.18e2 * t2363 * t4808 + 0.18e2 * t1357 * t7561 + 0.3e1 * t7550 * t1359 + 0.6e1 * t1357 * t7558 + 0.3e1 * t1357 * t7564 + 0.9e1 * t873 * t17369 + 0.9e1 * t2363 * t4811;
23776   t65303 = t17333 * t372;
23777   t65305 = t1354 * t2373;
23778   t65314 = t869 * t4814;
23779   t65319 = t4796 * t878;
23780   t65323 = t368 * t17372;
23781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23782     v4rho3tau[1] = t372 * t65277 * t7 + t1355 * t7567 + t1362 * t7544 + 0.3e1 * t17334 * t878 + 0.3e1 * t17372 * t870 + 0.3e1 * t2359 * t4814 + 0.3e1 * t2373 * t4797 + t65301 * t872 + 0.3e1 * t65040 + 0.3e1 * t65303 + 0.3e1 * t65305 + 0.6e1 * t65314 + 0.6e1 * t65319 + 0.3e1 * t65323;
23783 
23784   t65334 = 0.2e1 * t368 * t17574;
23785   t65336 = 0.2e1 * t17527 * t372;
23786   t65358 = 0.4e1 * t64942 * t17393;
23787   t65360 = 0.20e2 / 0.9e1 * t17125 * t17400;
23788   t65379 = 0.20e2 / 0.9e1 * t17125 * t17409;
23789   t65381 = 0.20e2 / 0.27e2 * t17130 * t17414;
23790   t65388 = t65358 - t65360 - 0.3e1 / 0.2e1 * t17133 * t4700 * t50357 - 0.3e1 / 0.4e1 * t17133 * t4700 * t50360 - 0.25e2 / 0.18e2 * t4699 * t3774 * t17399 + 0.5e1 / 0.6e1 * t4699 * t4709 * t2473 * t414 + 0.5e1 / 0.12e2 * t4699 * t4709 * t923 * t1427 - t65379 + t65381 + 0.5e1 / 0.12e2 * t4699 * t4709 * t887 * t1511 + 0.25e2 / 0.54e2 * t4708 * t14563;
23791   t65395 = 0.4e1 / 0.3e1 * t17125 * t17403;
23792   t65403 = t58 * t5751 * t84;
23793   t65404 = t37 * t923;
23794   t65412 = t64926 * t4823;
23795   t65415 = 0.20e2 / 0.9e1 * t17125 * t17396;
23796   t65416 = -0.5e1 / 0.36e2 * t4708 * t17153 * t52397 + t64875 + 0.110e3 / 0.27e2 * t64876 + 0.40e2 / 0.27e2 * t64878 - t65395 - 0.5e1 / 0.6e1 * t4699 * t1132 * t2473 - 0.5e1 / 0.24e2 * t5742 * t1322 * t37 - 0.5e1 / 0.2e1 * t65403 * t65404 * t17140 - 0.20e2 / 0.9e1 * t64894 + t4699 * t4700 * t7835 / 0.4e1 + 0.22e2 / 0.9e1 * t65412 + t65415;
23797   t65421 = t64903 * t4826;
23798   t65424 = 0.50e2 / 0.27e2 * t17130 * t4280;
23799   t65425 = t26283 * t453;
23800   t65426 = t65425 * t17418;
23801   t65434 = t58 * t1493 * t84;
23802   t65452 = 0.10e2 / 0.9e1 * t4699 * t3772 * t923 - 0.55e2 / 0.27e2 * t65421 - t65424 + 0.125e3 / 0.72e2 * t65426 - 0.25e2 / 0.27e2 * t4708 * t14560 + 0.25e2 / 0.36e2 * t17417 * t3774 * t4 + 0.5e1 / 0.9e1 * t65434 * t2396 * t17140 + 0.3e1 * t64949 * t4700 * t50354 + 0.5e1 / 0.2e1 * t17133 * t1132 * t14133 + 0.5e1 / 0.18e2 * t4699 * t17153 * t923 * t1423 - 0.5e1 / 0.4e1 * t17133 * t4709 * t887 * t1494;
23803   t65456 = t5742 * t1493;
23804   t65457 = t4 * t459;
23805   t65476 = -0.25e2 / 0.18e2 * t4699 * t3774 * t17408 + 0.5e1 / 0.6e1 * t65456 * t4709 * t65457 + 0.5e1 / 0.108e3 * t4708 * t64938 * t52392 - 0.5e1 / 0.18e2 * t17417 * t17153 * t4 * t414 - 0.110e3 / 0.27e2 * t64904 - 0.2e1 / 0.3e1 * t64906 - 0.50e2 / 0.27e2 * t64908 + 0.5e1 / 0.9e1 * t64910 + 0.44e2 / 0.9e1 * t64927 + 0.2e1 * t64943 + 0.20e2 / 0.9e1 * t64945 + 0.10e2 / 0.27e2 * t64947;
23806   t65479 = my_piecewise3(t95, 0, t65388 + t65416 + t65452 + t65476);
23807   t65498 = 0.6e1 * t1516 * t369 * t4843 + 0.6e1 * t17083 * t369 * t928 + 0.12e2 * t2478 * t369 * t4729 + 0.3e1 * t369 * t65479 * t97 + 0.6e1 * t1125 * t17218 + 0.12e2 * t1125 * t17221 + 0.6e1 * t1125 * t17224 + 0.3e1 * t1125 * t17227 + 0.6e1 * t1336 * t9631 + 0.3e1 * t1336 * t9640 + 0.12e2 * t17568 * t873 + 0.3e1 * t2363 * t4864 + 0.6e1 * t2367 * t4855 + 0.3e1 * t2370 * t4855 + 0.6e1 * t3132 * t4751 + 0.12e2 * t3138 * t4742 + 0.6e1 * t3141 * t4742;
23808   t65557 = t4830 * t751;
23809   t65567 = -0.16e2 * t17457 * t17113 + 0.2e1 * t881 * t17163 + 0.2e1 * t81 * t7840 * t1326 * t227 + 0.4e1 * t81 * t2478 * t4714 * t227 + 0.2e1 * t81 * t4839 * t2101 - 0.2e1 * t51864 * t1327 - 0.2e1 * t449 * t2331 * t4830 + 0.4e1 * t397 * t17444 - 0.4e1 * t8342 * t4694 + 0.2e1 * t881 * t17177 + 0.2e1 * t81 * t928 * t17161 * t227 + 0.4e1 * t881 * t17109 - 0.16e2 * t4720 * t65557 * t443 + 0.4e1 * t81 * t17447 * t751 + 0.4e1 * t81 * t17460 * t751;
23810   t65589 = t17422 * t227;
23811   t65607 = 0.40e2 * t1398 * t17470 * t7757 + 0.80e2 * t17097 * t2383 * t7757 - 0.16e2 * t443 * t4720 * t65589 - 0.8e1 * t4720 * t64781 * t912 + 0.80e2 * t4721 * t7757 * t8331 + 0.40e2 * t4721 * t7757 * t8334 - 0.4e1 * t1476 * t17423 - 0.16e2 * t17094 * t17471 - 0.8e1 * t17101 * t17457 - 0.16e2 * t17116 * t17471 + 0.80e2 * t17426 * t36427 + 0.4e1 * t17518 * t397 + 0.4e1 * t2377 * t4733 - 0.2e1 * t4820 * t6587 - 0.16e2 * t4836 * t64737 - 0.8e1 * t4836 * t64745;
23812   t65619 = t2378 * t464;
23813   t65648 = 0.80e2 * t34464 * t17426 - 0.4e1 * t14120 * t4694 + 0.40e2 * t36473 * t17106 - 0.16e2 * t17116 * t17512 - 0.16e2 * t17515 * t17113 - 0.16e2 * t65619 * t4722 + 0.2e1 * t81 * t17162 * t1037 + 0.4e1 * t397 * t17480 + 0.4e1 * t81 * t17464 * t751 - 0.16e2 * t17116 * t17502 + 0.2e1 * t81 * t1329 * t8303 + 0.2e1 * t7775 * t1330 + 0.4e1 * t81 * t17087 * t1037 - 0.4e1 * t34632 * t1327 - 0.16e2 * t4720 * t17097 * t2436 + 0.4e1 * t81 * t4729 * t2866;
23814   t65657 = t1326 * t2866;
23815   t65691 = 0.2e1 * t1391 * t4844 + 0.2e1 * t1391 * t4840 + 0.4e1 * t397 * t17486 + 0.4e1 * t397 * t17448 - 0.16e2 * t4720 * t65657 * t443 - 0.8e1 * t17515 * t17101 + 0.2e1 * t81 * t96 * t65479 * t227 - 0.2e1 * t52867 * t1327 - 0.4e1 * t14123 * t4694 - 0.8e1 * t4720 * t17451 * t1470 + 0.40e2 * t58230 * t17106 - 0.2e1 * t8308 * t4831 - 0.4e1 * t2448 * t17383 + 0.2e1 * t81 * t1516 * t4830 * t227 + 0.4e1 * t81 * t464 * t17422 * t227 + 0.40e2 * t7757 * t17451 * t1398;
23816   t65728 = 0.2e1 * t1037 * t17083 * t81 - 0.240e3 * t34500 * t4721 * t8328 - 0.2e1 * t363 * t449 * t65479 - 0.8e1 * t4720 * t64733 * t912 - 0.4e1 * t1327 * t52539 - 0.4e1 * t14123 * t4715 + 0.4e1 * t17091 * t881 - 0.16e2 * t17094 * t17512 - 0.16e2 * t17098 * t17457 - 0.16e2 * t17116 * t17452 - 0.16e2 * t17116 * t17509 + 0.4e1 * t17461 * t397 + 0.4e1 * t17465 * t397 + 0.4e1 * t2377 * t4726 + 0.4e1 * t2377 * t4730;
23817   t65764 = -0.2e1 * t1110 * t17161 * t449 - 0.4e1 * t17422 * t449 * t857 - 0.8e1 * t4720 * t4721 * t7737 - 0.2e1 * t1327 * t34672 - 0.4e1 * t1476 * t17383 - 0.4e1 * t17080 * t2442 + 0.2e1 * t17084 * t881 + 0.4e1 * t17088 * t881 - 0.2e1 * t17120 * t2442 - 0.2e1 * t17166 * t2442 - 0.4e1 * t17423 * t2448 - 0.4e1 * t4694 * t9859 - 0.4e1 * t4715 * t8342 - 0.4e1 * t4715 * t9859 - 0.2e1 * t4831 * t6587 - 0.4e1 * t4831 * t7847;
23818   t65770 = t4714 * t1037;
23819   t65805 = -0.8e1 * t64850 * t4836 - 0.16e2 * t17094 * t17509 - 0.16e2 * t4720 * t65770 * t443 + 0.4e1 * t81 * t4725 * t2866 + 0.4e1 * t397 * t17441 + 0.2e1 * t1391 * t4847 - 0.2e1 * t29803 * t1327 - 0.4e1 * t1476 * t17499 - 0.4e1 * t2448 * t17499 - 0.4e1 * t449 * t3091 * t4714 - 0.4e1 * t14120 * t4715 - 0.16e2 * t4720 * t17112 * t2436 - 0.2e1 * t4302 * t17166 + 0.4e1 * t81 * t17485 * t751 + 0.80e2 * t7757 * t17112 * t2383 - 0.2e1 * t8308 * t4820;
23820   t65810 = t1392 * t928;
23821   t65813 = t400 * t2478;
23822   t65824 = t7763 * t96;
23823   t65845 = -0.2e1 * t1326 * t449 * t9601 - 0.8e1 * t1470 * t17470 * t4720 + 0.2e1 * t2101 * t4843 * t81 - 0.16e2 * t4720 * t64768 * t912 - 0.4e1 * t1476 * t17438 - 0.4e1 * t17080 * t4302 - 0.16e2 * t17094 * t17452 - 0.16e2 * t17094 * t17502 - 0.16e2 * t17098 * t17515 - 0.2e1 * t17120 * t4302 - 0.4e1 * t17438 * t2448 + 0.4e1 * t17489 * t397 - 0.16e2 * t4722 * t65810 - 0.16e2 * t4722 * t65813 - 0.16e2 * t4722 * t65824 - 0.4e1 * t4820 * t7847;
23824   t65848 = t65567 + t65607 + t65648 + t65691 + t65728 + t65764 + t65805 + t65845;
23825   t65865 = 0.12e2 * t369 * t17464 * t464 + 0.6e1 * t17539 * t875 + 0.12e2 * t873 * t17563 + 0.6e1 * t369 * t17162 * t928 + 0.6e1 * t873 * t17571 + 0.6e1 * t369 * t1481 * t4830 + 0.6e1 * t369 * t1329 * t7840 + 0.12e2 * t1336 * t9634 + 0.6e1 * t1336 * t9637 + 0.3e1 * t9617 * t1338 + 0.3e1 * t17204 * t1127 + params->d * t65848 * t370 + 0.12e2 * t873 * t17560 + 0.12e2 * t369 * t17087 * t928 + 0.12e2 * t369 * t4725 * t2478 + 0.12e2 * t3132 * t4748 + 0.6e1 * t2363 * t4861 + 0.12e2 * t873 * t17557;
23826   t65869 = 0.2e1 * t1122 * t4754;
23827   t65871 = 0.2e1 * t3126 * t1341;
23828   t65872 = t17192 * t1130 + 0.2e1 * t3127 * t4754 + 0.2e1 * t4737 * t3144 + t4851 * t2373 + t64718 + 0.2e1 * t64984 + t64722 + t1334 * t9643 + t65334 + t65336 + t872 * (t65498 + t65865) + t65869 + t65871;
23829   t65874 = 0.2e1 * t1333 * t3144;
23830   t65880 = 0.2e1 * t4736 * t1130;
23831   t65883 = 0.2e1 * t869 * t4867;
23832   t65885 = 0.2e1 * t4850 * t878;
23833   t65891 = t372 * t65848 * t7 + t1123 * t17230 + t1341 * t9605 + 0.2e1 * t17528 * t878 + 0.2e1 * t17574 * t870 + t2359 * t4867 + 0.2e1 * t64716 + t64720 + t64980 + t65874 + t65880 + t65883 + t65885;
23834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23835     v4rho3tau[2] = t65872 + t65891;
23836 
23837   t65897 = 0.2e1 * t4907 * t878;
23838   t65901 = 0.2e1 * t368 * t17765;
23839   t65904 = 0.2e1 * t1122 * t4814;
23840   t65909 = t1355 * t9643 + t1362 * t9605 + 0.2e1 * t17719 * t878 + 0.2e1 * t17765 * t870 + t2359 * t4924 + t2373 * t4908 + 0.2e1 * t3144 * t4797 + t65305 + 0.2e1 * t65319 + t65323 + t65897 + t65901 + t65904;
23841   t65945 = 0.2e1 * t1037 * t17292 * t81 - 0.2e1 * t1347 * t449 * t9601 + 0.40e2 * t1398 * t17618 * t7757 - 0.16e2 * t17328 * t2436 * t4720 + 0.2e1 * t2101 * t4900 * t81 - 0.2e1 * t1348 * t51864 - 0.2e1 * t1348 * t52867 - 0.4e1 * t1476 * t17681 - 0.16e2 * t17094 * t17707 - 0.16e2 * t17116 * t17707 - 0.2e1 * t17276 * t2442 - 0.4e1 * t17685 * t2448 - 0.16e2 * t4782 * t65824 - 0.4e1 * t4888 * t7847 - 0.2e1 * t4888 * t8308;
23842   t65964 = t4887 * t751;
23843   t65986 = -0.4e1 * t14123 * t4761 + 0.2e1 * t1391 * t4904 - 0.8e1 * t64745 * t4893 - 0.16e2 * t64737 * t4893 - 0.16e2 * t17116 * t17608 + 0.40e2 * t7757 * t17710 * t1398 - 0.16e2 * t17094 * t17711 + 0.4e1 * t81 * t4785 * t2866 - 0.16e2 * t4720 * t65964 * t443 + 0.2e1 * t81 * t7840 * t1347 * t227 + 0.4e1 * t81 * t2478 * t4775 * t227 + 0.2e1 * t1391 * t4901 + 0.4e1 * t397 * t17639 - 0.4e1 * t2442 * t17301 - 0.16e2 * t17515 * t17237 - 0.2e1 * t6587 * t4888;
23844   t66021 = t17677 * t227;
23845   t66027 = -0.8e1 * t1470 * t17618 * t4720 - 0.8e1 * t1470 * t17710 * t4720 + 0.4e1 * t17614 * t751 * t81 - 0.4e1 * t17677 * t449 * t857 + 0.4e1 * t2866 * t4789 * t81 - 0.16e2 * t443 * t4720 * t66021 - 0.2e1 * t1348 * t29803 - 0.4e1 * t1476 * t17685 - 0.16e2 * t17094 * t17599 - 0.16e2 * t17094 * t17619 - 0.16e2 * t17116 * t17599 - 0.16e2 * t17116 * t17619 - 0.2e1 * t17248 * t4302 - 0.4e1 * t17681 * t2448 - 0.4e1 * t17689 * t2448 - 0.16e2 * t4782 * t65813;
23846   t66068 = 0.2e1 * t1516 * t227 * t4887 * t81 + 0.4e1 * t17677 * t227 * t464 * t81 + 0.2e1 * t1037 * t17310 * t81 + 0.4e1 * t17638 * t751 * t81 + 0.4e1 * t17678 * t751 * t81 + 0.2e1 * t2101 * t4896 * t81 + 0.2e1 * t1351 * t7775 + 0.2e1 * t1391 * t4897 - 0.16e2 * t17237 * t17457 + 0.40e2 * t17281 * t36473 - 0.8e1 * t17323 * t17457 - 0.8e1 * t17323 * t17515 + 0.4e1 * t17588 * t397 + 0.4e1 * t2377 * t4786 + 0.4e1 * t2377 * t4790 + 0.4e1 * t2377 * t4793;
23847   t66077 = t49 * t923;
23848   t66086 = t64903 * t4883;
23849   t66088 = t64926 * t4876;
23850   t66091 = 0.4e1 / 0.3e1 * t17125 * t17654;
23851   t66096 = 0.20e2 / 0.9e1 * t17125 * t17659;
23852   t66098 = 0.50e2 / 0.27e2 * t17130 * t4164;
23853   t66104 = t65425 * t17673;
23854   t66113 = t1440 * t4880;
23855   t66115 = 0.5e1 / 0.9e1 * t23004 * t2406 * t17260 - 0.5e1 / 0.2e1 * t22997 * t66077 * t17260 + 0.5e1 / 0.4e1 * t17133 * t1274 * t1494 + 0.25e2 / 0.108e3 * t4708 * t13818 - 0.55e2 / 0.27e2 * t66086 + 0.22e2 / 0.9e1 * t66088 + t65051 - t66091 + t4699 * t4766 * t7835 / 0.4e1 + t66096 - t66098 - 0.5e1 / 0.12e2 * t4699 * t1274 * t1511 + 0.25e2 / 0.72e2 * t4708 * t13820 - 0.125e3 / 0.72e2 * t66104 + 0.44e2 / 0.9e1 * t65052 - 0.110e3 / 0.27e2 * t65054 - 0.2e1 / 0.3e1 * t65056 + 0.5e1 / 0.9e1 * t65058 + 0.5e1 / 0.24e2 * t5742 * t1343 * t49 + 0.55e2 / 0.27e2 * t66113;
23856   t66137 = 0.20e2 / 0.9e1 * t17125 * t17667;
23857   t66139 = 0.20e2 / 0.27e2 * t17130 * t17670;
23858   t66155 = 0.4e1 * t64942 * t17647;
23859   t66157 = 0.20e2 / 0.9e1 * t17125 * t17651;
23860   t66172 = 0.2e1 * t65066 + 0.10e2 / 0.27e2 * t65070 - 0.20e2 / 0.9e1 * t65068 - 0.5e1 / 0.4e1 * t17133 * t4770 * t897 * t1494 + 0.5e1 / 0.108e3 * t4708 * t65094 * t56046 + 0.3e1 * t64949 * t4766 * t50354 + 0.5e1 / 0.18e2 * t4699 * t17267 * t923 * t1432 - 0.25e2 / 0.18e2 * t4699 * t4163 * t17260 - t66137 + t66139 + 0.5e1 / 0.12e2 * t4699 * t4770 * t897 * t1511 - 0.5e1 / 0.6e1 * t65456 * t4770 * t65457 - 0.5e1 / 0.36e2 * t4708 * t17267 * t56051 + 0.5e1 / 0.18e2 * t17417 * t17267 * t4 * t418 + t66155 - t66157 - 0.3e1 / 0.2e1 * t17133 * t4766 * t50357 - 0.3e1 / 0.4e1 * t17133 * t4766 * t50360 + 0.5e1 / 0.6e1 * t4699 * t4770 * t2473 * t418 + 0.5e1 / 0.12e2 * t4699 * t4770 * t923 * t1436;
23861   t66174 = my_piecewise3(t95, 0, t66115 + t66172);
23862   t66209 = 0.2e1 * t227 * t66174 * t81 * t96 - 0.16e2 * t17236 * t2436 * t4720 - 0.2e1 * t2331 * t449 * t4887 - 0.4e1 * t3091 * t449 * t4775 - 0.8e1 * t4720 * t65149 * t912 - 0.8e1 * t4720 * t65269 * t912 - 0.4e1 * t1348 * t52539 - 0.4e1 * t14120 * t4761 - 0.4e1 * t14120 * t4776 + 0.40e2 * t17281 * t58230 - 0.16e2 * t17329 * t17457 - 0.16e2 * t17329 * t17515 - 0.4e1 * t4776 * t8342 - 0.16e2 * t4782 * t65619 - 0.8e1 * t4893 * t64850;
23863   t66234 = t4775 * t1037;
23864   t66248 = 0.2e1 * t17275 * t227 * t81 * t928 + 0.4e1 * t17593 * t751 * t81 - 0.240e3 * t34500 * t4781 * t8328 - 0.16e2 * t443 * t4720 * t66234 - 0.16e2 * t17094 * t17608 + 0.4e1 * t17242 * t881 + 0.2e1 * t17245 * t881 - 0.2e1 * t17248 * t2442 + 0.2e1 * t17293 * t881 + 0.4e1 * t17298 * t881 + 0.2e1 * t17311 * t881 + 0.4e1 * t17594 * t397 + 0.4e1 * t17630 * t397 + 0.4e1 * t17679 * t397 - 0.4e1 * t4761 * t8342 - 0.16e2 * t4782 * t65810;
23865   t66288 = 0.4e1 * t881 * t17314 + 0.2e1 * t81 * t1350 * t8303 + 0.4e1 * t397 * t17615 - 0.2e1 * t449 * t1110 * t17275 - 0.2e1 * t4302 * t17276 - 0.4e1 * t7847 * t4873 - 0.4e1 * t1476 * t17581 + 0.4e1 * t397 * t17603 - 0.16e2 * t4720 * t65257 * t912 - 0.8e1 * t4720 * t4781 * t7737 - 0.4e1 * t34632 * t1348 - 0.2e1 * t449 * t363 * t66174 + 0.4e1 * t81 * t17297 * t1037 + 0.4e1 * t397 * t17641 - 0.2e1 * t34672 * t1348 - 0.4e1 * t9859 * t4761;
23866   t66317 = t1347 * t2866;
23867   t66327 = 0.80e2 * t17236 * t2383 * t7757 + 0.80e2 * t17328 * t2383 * t7757 - 0.16e2 * t443 * t4720 * t66317 + 0.80e2 * t4781 * t7757 * t8331 + 0.40e2 * t4781 * t7757 * t8334 - 0.4e1 * t14123 * t4776 - 0.4e1 * t1476 * t17689 - 0.16e2 * t17116 * t17711 - 0.4e1 * t17301 * t4302 - 0.4e1 * t17581 * t2448 + 0.80e2 * t17611 * t34464 + 0.80e2 * t17611 * t36427 + 0.4e1 * t17696 * t397 - 0.4e1 * t4776 * t9859 - 0.2e1 * t4873 * t6587 - 0.2e1 * t4873 * t8308;
23868   t66330 = t65945 + t65986 + t66027 + t66068 + t66209 + t66248 + t66288 + t66327;
23869   t66335 = 0.2e1 * t869 * t4924;
23870   t66337 = 0.2e1 * t4796 * t1130;
23871   t66339 = 0.2e1 * t3126 * t1362;
23872   t66341 = 0.2e1 * t17718 * t372;
23873   t66344 = 0.2e1 * t1354 * t3144;
23874   t66388 = 0.6e1 * t1516 * t369 * t4900 + 0.6e1 * t17292 * t369 * t928 + 0.12e2 * t17297 * t369 * t928 + 0.12e2 * t17678 * t369 * t464 + 0.12e2 * t2478 * t369 * t4785 + 0.3e1 * t369 * t66174 * t97 + t370 * t66330 * params->d + 0.12e2 * t1125 * t17363 + 0.3e1 * t1359 * t9617 + 0.12e2 * t17748 * t873 + 0.12e2 * t17751 * t873 + 0.12e2 * t17754 * t873 + 0.12e2 * t17759 * t873 + 0.12e2 * t3132 * t4808 + 0.6e1 * t3132 * t4811 + 0.12e2 * t3138 * t4802 + 0.6e1 * t3141 * t4802;
23875   t66429 = 0.6e1 * t1350 * t369 * t7840 + 0.6e1 * t1481 * t369 * t4887 + 0.6e1 * t17310 * t369 * t928 + 0.12e2 * t2478 * t369 * t4789 + 0.6e1 * t1125 * t17360 + 0.6e1 * t1125 * t17366 + 0.3e1 * t1125 * t17369 + 0.3e1 * t1127 * t17346 + 0.6e1 * t1357 * t9631 + 0.12e2 * t1357 * t9634 + 0.6e1 * t1357 * t9637 + 0.3e1 * t1357 * t9640 + 0.6e1 * t17730 * t875 + 0.6e1 * t17762 * t873 + 0.6e1 * t2363 * t4918 + 0.3e1 * t2363 * t4921 + 0.6e1 * t2367 * t4912 + 0.3e1 * t2370 * t4912;
23876   t66432 = t7 * t66330 * t372 + t17334 * t1130 + t66335 + t65040 + t66337 + t66339 + t66341 + 0.2e1 * t65314 + t66344 + t65303 + 0.2e1 * t3127 * t4814 + t1123 * t17372 + t872 * (t66388 + t66429);
23877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23878     v4rho3tau[3] = t65909 + t66432;
23879 
23880   t66440 = t1122 * t4867;
23881   t66445 = t4850 * t1130;
23882   t66447 = 0.2e1 * t1123 * t17574 + t11507 * t1341 + t11544 * t1334 + t17860 * t878 + 0.2e1 * t3127 * t4867 + 0.2e1 * t3144 * t4851 + t3741 * t4754 + t65334 + t65336 + t65869 + t65871 + 0.2e1 * t66440 + 0.2e1 * t66445;
23883   t66449 = t17859 * t372;
23884   t66450 = t1333 * t3755;
23885   t66502 = 0.40e2 * t17097 * t3152 * t7757 + 0.40e2 * t17112 * t3152 * t7757 - 0.2e1 * t17791 * t449 * t857 - 0.4e1 * t3091 * t449 * t4830 - 0.4e1 * t1476 * t17821 - 0.16e2 * t17116 * t17831 - 0.4e1 * t17423 * t4302 - 0.16e2 * t17452 * t17515 - 0.4e1 * t17499 * t2442 - 0.16e2 * t17512 * t17515 - 0.4e1 * t17821 * t2448 + 0.40e2 * t17836 * t34464 + 0.40e2 * t17836 * t36427 - 0.2e1 * t17847 * t2448 - 0.2e1 * t4715 * t9866;
23886   t66516 = t4830 * t1037;
23887   t66537 = t1326 * t3530;
23888   t66547 = 0.2e1 * t1326 * t227 * t81 * t9848 + 0.2e1 * t227 * t3249 * t4714 * t81 - 0.8e1 * t17112 * t3209 * t4720 + 0.2e1 * t17796 * t751 * t81 + 0.4e1 * t2866 * t4839 * t81 - 0.16e2 * t443 * t4720 * t66516 - 0.8e1 * t443 * t4720 * t66537 - 0.16e2 * t4720 * t65770 * t912 - 0.16e2 * t17094 * t17831 - 0.16e2 * t17457 * t17509 - 0.16e2 * t17509 * t17515 + 0.4e1 * t17850 * t397 - 0.16e2 * t4836 * t65619 - 0.16e2 * t4836 * t65810 - 0.16e2 * t4836 * t65813 - 0.16e2 * t4836 * t65824;
23889   t66587 = t2378 * t928;
23890   t66590 = 0.4e1 * t1037 * t17447 * t81 + 0.4e1 * t1037 * t17460 * t81 + 0.4e1 * t1037 * t17485 * t81 - 0.16e2 * t17451 * t2436 * t4720 + 0.4e1 * t2866 * t4843 * t81 - 0.8e1 * t4720 * t4721 * t9792 - 0.16e2 * t4720 * t65557 * t912 + 0.40e2 * t4721 * t7757 * t9676 - 0.2e1 * t1327 * t40329 + 0.80e2 * t17426 * t36473 - 0.16e2 * t17457 * t17502 - 0.16e2 * t17502 * t17515 + 0.2e1 * t17769 * t397 - 0.2e1 * t4694 * t9866 - 0.16e2 * t4722 * t66587 - 0.4e1 * t4820 * t8342;
23891   t66628 = -0.16e2 * t17116 * t17855 - 0.4e1 * t9859 * t4820 - 0.4e1 * t2442 * t17438 + 0.4e1 * t2377 * t4844 + 0.4e1 * t881 * t17461 + 0.4e1 * t881 * t17465 + 0.4e1 * t81 * t17464 * t1037 + 0.80e2 * t58230 * t17426 + 0.80e2 * t7757 * t17470 * t2383 + 0.4e1 * t81 * t17800 * t751 - 0.240e3 * t34500 * t4721 * t9668 + 0.80e2 * t7757 * t4721 * t9671 + 0.4e1 * t881 * t17444 + 0.2e1 * t3149 * t4733 - 0.2e1 * t56719 * t1327 - 0.4e1 * t16016 * t4715;
23892   t66646 = t17125 * t17778;
23893   t66651 = t923 * t4;
23894   t66665 = t64942 * t17774;
23895   t66670 = t17125 * t17781;
23896   t66675 = t17130 * t17784;
23897   t66679 = t17130 * t17787;
23898   t66683 = t65358 - t65360 - t65379 + t65381 - 0.20e2 / 0.9e1 * t66646 - 0.25e2 / 0.18e2 * t4699 * t3774 * t17777 + 0.5e1 / 0.6e1 * t65456 * t4709 * t66651 - 0.5e1 / 0.18e2 * t17417 * t17153 * t9711 + t64875 + 0.55e2 / 0.27e2 * t64876 + t4699 * t4700 * t9843 / 0.4e1 - 0.5e1 / 0.24e2 * t4708 * t4709 * t9722 + 0.2e1 * t66665 + 0.5e1 / 0.4e1 * t17133 * t1132 * t3227 - 0.2e1 / 0.3e1 * t66670 - 0.5e1 / 0.12e2 * t4699 * t1132 * t3244 + 0.10e2 / 0.27e2 * t66675 + 0.25e2 / 0.108e3 * t4708 * t15943 + 0.5e1 / 0.9e1 * t66679 + 0.25e2 / 0.72e2 * t4708 * t15945;
23899   t66731 = -t65395 - 0.5e1 / 0.2e1 * t65403 * t65404 * t17408 + 0.5e1 / 0.9e1 * t65434 * t1422 * t923 * t14562 + 0.3e1 * t64949 * t4700 * t57798 - 0.5e1 / 0.4e1 * t17133 * t4709 * t3227 * t414 - 0.3e1 / 0.2e1 * t17133 * t4700 * t57801 + 0.5e1 / 0.6e1 * t4699 * t4709 * t2473 * t887 - 0.3e1 / 0.4e1 * t17133 * t4700 * t57806 + 0.5e1 / 0.12e2 * t4699 * t4709 * t3244 * t414 + 0.5e1 / 0.18e2 * t4699 * t17153 * t3164 * t459 + 0.5e1 / 0.108e3 * t4708 * t64938 * t58112 + 0.5e1 / 0.12e2 * t4699 * t4709 * t3168 * t459 - 0.5e1 / 0.36e2 * t4708 * t17153 * t58119 + 0.44e2 / 0.9e1 * t65412 + t65415 - 0.110e3 / 0.27e2 * t65421 - t65424 + 0.10e2 / 0.9e1 * t65426 - 0.55e2 / 0.27e2 * t64904 + 0.22e2 / 0.9e1 * t64927;
23900   t66733 = my_piecewise3(t95, 0, t66683 + t66731);
23901   t66756 = 0.4e1 * t397 * t17801 + 0.4e1 * t81 * t2478 * t4830 * t227 + 0.2e1 * t81 * t1329 * t10267 - 0.2e1 * t1476 * t17847 - 0.4e1 * t57683 * t1327 + 0.2e1 * t3149 * t4730 + 0.2e1 * t81 * t96 * t66733 * t227 - 0.8e1 * t17116 * t17839 + 0.4e1 * t2377 * t4847 - 0.4e1 * t9859 * t4831 + 0.2e1 * t81 * t4729 * t3530 - 0.2e1 * t449 * t363 * t66733 + 0.2e1 * t9656 * t1330 - 0.2e1 * t15998 * t4715 - 0.4e1 * t14120 * t4831;
23902   t66765 = t9657 * t96;
23903   t66795 = 0.4e1 * t17422 * t227 * t81 * t928 - 0.16e2 * t17470 * t2436 * t4720 - 0.16e2 * t4720 * t65589 * t912 - 0.16e2 * t4720 * t65657 * t912 - 0.4e1 * t14123 * t4831 - 0.16e2 * t17094 * t17855 - 0.4e1 * t17383 * t2442 - 0.4e1 * t17383 * t4302 + 0.4e1 * t17441 * t881 + 0.4e1 * t17448 * t881 - 0.16e2 * t17452 * t17457 - 0.16e2 * t17457 * t17471 + 0.4e1 * t17486 * t881 + 0.4e1 * t17810 * t397 - 0.8e1 * t4722 * t66765 - 0.4e1 * t4831 * t8342;
23904   t66820 = t400 * t3249;
23905   t66838 = -0.4e1 * t14120 * t4820 - 0.4e1 * t14123 * t4820 - 0.4e1 * t4302 * t17438 - 0.2e1 * t449 * t3714 * t4714 - 0.4e1 * t449 * t1110 * t17422 + 0.4e1 * t2377 * t4840 + 0.2e1 * t397 * t17793 + 0.2e1 * t81 * t464 * t17791 * t227 + 0.2e1 * t81 * t4725 * t3530 - 0.8e1 * t66820 * t4722 - 0.16e2 * t17515 * t17471 + 0.2e1 * t81 * t17792 * t751 - 0.2e1 * t449 * t11407 * t1326 - 0.4e1 * t4302 * t17499 + 0.4e1 * t881 * t17518 + 0.80e2 * t7757 * t17451 * t2383;
23906   t66847 = t17791 * t227;
23907   t66874 = -0.8e1 * t17097 * t3209 * t4720 - 0.8e1 * t443 * t4720 * t66847 - 0.2e1 * t1327 * t34651 - 0.2e1 * t1327 * t57692 - 0.4e1 * t1327 * t57719 - 0.2e1 * t1476 * t17844 - 0.2e1 * t15998 * t4694 - 0.4e1 * t16016 * t4694 - 0.8e1 * t17094 * t17839 - 0.4e1 * t17423 * t2442 - 0.16e2 * t17457 * t17512 + 0.4e1 * t17480 * t881 + 0.4e1 * t17489 * t881 + 0.2e1 * t17797 * t397 - 0.2e1 * t17844 * t2448 + 0.2e1 * t3149 * t4726;
23908   t66877 = t66502 + t66547 + t66590 + t66628 + t66756 + t66795 + t66838 + t66874;
23909   t66897 = 0.6e1 * t17792 * t369 * t464 + 0.6e1 * t3249 * t369 * t4725 + t370 * t66877 * params->d + 0.12e2 * t1125 * t17557 + 0.12e2 * t1125 * t17563 + 0.12e2 * t1125 * t17568 + 0.6e1 * t1127 * t17539 + 0.6e1 * t11530 * t1336 + 0.12e2 * t11533 * t1336 + 0.12e2 * t17887 * t873 + 0.6e1 * t17890 * t873 + 0.3e1 * t17893 * t873 + 0.12e2 * t3132 * t4861 + 0.6e1 * t3132 * t4864 + 0.6e1 * t3141 * t4855 + 0.6e1 * t3745 * t4748 + 0.6e1 * t3749 * t4742;
23910   t66942 = 0.3e1 * t1336 * t11541 + 0.12e2 * t369 * t17460 * t928 + 0.3e1 * t3745 * t4751 + 0.6e1 * t369 * t3219 * t4714 + 0.12e2 * t1125 * t17560 + 0.6e1 * t369 * t4729 * t3249 + 0.6e1 * t369 * t1329 * t9848 + 0.3e1 * t4742 * t3752 + 0.3e1 * t369 * t97 * t66733 + 0.12e2 * t4855 * t3138 + 0.3e1 * t17870 * t875 + 0.12e2 * t369 * t17464 * t928 + 0.12e2 * t369 * t4843 * t2478 + 0.3e1 * t11518 * t1338 + 0.6e1 * t1336 * t11538 + 0.6e1 * t1125 * t17571 + 0.6e1 * t873 * t17884 + 0.12e2 * t369 * t4839 * t2478;
23911   t66945 = t368 * t17896;
23912   t66948 = t3740 * t1341;
23913   t66952 = t65874 + t870 * t17896 + t66449 + t66450 + t872 * (t66897 + t66942) + t66945 + t65880 + 0.2e1 * t17528 * t1130 + t65883 + t65885 + t66948 + t7 * t66877 * t372 + t4737 * t3755;
23914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23915     v4rho3tau[4] = t66447 + t66952;
23916 
23917   t66990 = 0.4e1 * t17677 * t227 * t81 * t928 + 0.2e1 * t17951 * t227 * t464 * t81 + 0.4e1 * t227 * t2478 * t4887 * t81 + 0.4e1 * t1037 * t17638 * t81 - 0.2e1 * t1348 * t34651 - 0.2e1 * t1348 * t56719 - 0.2e1 * t1348 * t57692 - 0.2e1 * t15998 * t4761 - 0.16e2 * t17116 * t17917 - 0.16e2 * t17515 * t17599 + 0.2e1 * t17979 * t397 - 0.2e1 * t4776 * t9866 - 0.4e1 * t4873 * t8342 - 0.4e1 * t4888 * t8342 - 0.4e1 * t4888 * t9859;
23918   t67028 = 0.4e1 * t1037 * t17614 * t81 - 0.2e1 * t11407 * t1347 * t449 - 0.4e1 * t3091 * t449 * t4887 - 0.2e1 * t3714 * t449 * t4775 - 0.16e2 * t4720 * t66234 * t912 - 0.2e1 * t1476 * t17957 - 0.4e1 * t1476 * t17960 - 0.2e1 * t15998 * t4776 - 0.16e2 * t17515 * t17608 + 0.4e1 * t17594 * t881 + 0.4e1 * t17615 * t881 - 0.4e1 * t17689 * t2442 - 0.2e1 * t17957 * t2448 + 0.4e1 * t2377 * t4897 - 0.16e2 * t4893 * t65810 - 0.16e2 * t4893 * t65813;
23919   t67061 = t424 * t17939;
23920   t67075 = 0.40e2 / 0.27e2 * t67061 - 0.110e3 / 0.27e2 * t66086 + 0.44e2 / 0.9e1 * t66088 + t65051 - t66091 + t66096 - t66098 - 0.10e2 / 0.9e1 * t66104 - 0.5e1 / 0.6e1 * t4699 * t1274 * t2473 + t4699 * t4766 * t9843 / 0.4e1 + 0.10e2 / 0.9e1 * t4699 * t4591 * t459;
23921   t67084 = t17125 * t17928;
23922   t67086 = t17125 * t17935;
23923   t67088 = t17130 * t4593;
23924   t67090 = t17130 * t17944;
23925   t67092 = t17130 * t17947;
23926   t67094 = t64942 * t17925;
23927   t67101 = -0.25e2 / 0.27e2 * t4708 * t15480 - 0.25e2 / 0.36e2 * t17417 * t4163 * t4 - 0.5e1 / 0.24e2 * t4708 * t4770 * t9744 + 0.20e2 / 0.9e1 * t67084 - 0.2e1 / 0.3e1 * t67086 - 0.50e2 / 0.27e2 * t67088 + 0.10e2 / 0.27e2 * t67090 + 0.5e1 / 0.9e1 * t67092 + 0.2e1 * t67094 + 0.22e2 / 0.9e1 * t65052 - 0.55e2 / 0.27e2 * t65054 - 0.5e1 / 0.2e1 * t22997 * t66077 * t17666;
23928   t67124 = 0.5e1 / 0.9e1 * t23004 * t1431 * t923 * t15482 + 0.110e3 / 0.27e2 * t66113 - t66137 + t66139 + t66155 - t66157 - 0.5e1 / 0.36e2 * t4708 * t17267 * t60825 - 0.3e1 / 0.2e1 * t17133 * t4766 * t57801 + 0.5e1 / 0.2e1 * t17133 * t1274 * t14133 - 0.25e2 / 0.18e2 * t4699 * t4163 * t17650 + 0.5e1 / 0.6e1 * t4699 * t4770 * t2473 * t897;
23929   t67161 = t17125 * t17932;
23930   t67163 = -0.5e1 / 0.6e1 * t65456 * t4770 * t66651 - 0.3e1 / 0.4e1 * t17133 * t4766 * t57806 + 0.5e1 / 0.12e2 * t4699 * t4770 * t3244 * t418 - 0.25e2 / 0.18e2 * t4699 * t4163 * t17666 + 0.25e2 / 0.54e2 * t4708 * t15483 + 0.5e1 / 0.18e2 * t4699 * t17267 * t3179 * t459 + 0.5e1 / 0.108e3 * t4708 * t65094 * t60820 + 0.5e1 / 0.18e2 * t17417 * t17267 * t9736 + 0.5e1 / 0.12e2 * t4699 * t4770 * t3183 * t459 + 0.3e1 * t64949 * t4766 * t57798 - 0.5e1 / 0.4e1 * t17133 * t4770 * t3227 * t418 - 0.20e2 / 0.9e1 * t67161;
23931   t67166 = my_piecewise3(t95, 0, t67075 + t67101 + t67124 + t67163);
23932   t67175 = -0.4e1 * t2442 * t17681 - 0.16e2 * t17457 * t17707 - 0.16e2 * t4720 * t17618 * t2436 - 0.4e1 * t57683 * t1348 - 0.16e2 * t17515 * t17707 - 0.16e2 * t17116 * t17994 - 0.16e2 * t17094 * t17994 - 0.16e2 * t4720 * t66021 * t912 + 0.4e1 * t81 * t4900 * t2866 - 0.4e1 * t2448 * t17960 + 0.4e1 * t397 * t17963 - 0.16e2 * t4720 * t66317 * t912 - 0.8e1 * t4720 * t17236 * t3209 + 0.2e1 * t81 * t96 * t67166 * t227 - 0.4e1 * t14120 * t4873 - 0.4e1 * t14123 * t4873;
23933   t67184 = t1347 * t3530;
23934   t67203 = t4887 * t1037;
23935   t67217 = 0.40e2 * t17328 * t3152 * t7757 - 0.8e1 * t17328 * t3209 * t4720 - 0.16e2 * t17710 * t2436 * t4720 + 0.4e1 * t17913 * t751 * t81 - 0.8e1 * t443 * t4720 * t67184 - 0.16e2 * t443 * t4720 * t67203 - 0.16e2 * t4720 * t65964 * t912 + 0.2e1 * t1351 * t9656 - 0.4e1 * t16016 * t4776 - 0.16e2 * t17094 * t17917 - 0.4e1 * t17581 * t4302 - 0.4e1 * t17689 * t4302 + 0.40e2 * t17967 * t34464 + 0.40e2 * t17967 * t36427 + 0.2e1 * t3149 * t4786 + 0.2e1 * t3149 * t4790;
23936   t67252 = 0.40e2 * t17236 * t3152 * t7757 + 0.2e1 * t17978 * t751 * t81 - 0.4e1 * t1348 * t57719 - 0.4e1 * t14120 * t4888 - 0.4e1 * t14123 * t4888 - 0.4e1 * t16016 * t4761 - 0.8e1 * t17116 * t17900 - 0.16e2 * t17457 * t17599 - 0.4e1 * t17581 * t2442 + 0.4e1 * t17603 * t881 + 0.80e2 * t17611 * t58230 - 0.4e1 * t17685 * t4302 + 0.4e1 * t17914 * t397 + 0.2e1 * t17991 * t397 - 0.4e1 * t4873 * t9859;
23937   t67288 = 0.4e1 * t1037 * t17593 * t81 + 0.2e1 * t3530 * t4785 * t81 - 0.8e1 * t4720 * t4781 * t9792 - 0.2e1 * t1348 * t40329 - 0.8e1 * t17094 * t17900 - 0.16e2 * t17457 * t17608 - 0.16e2 * t17457 * t17711 + 0.4e1 * t17588 * t881 + 0.4e1 * t17639 * t881 + 0.4e1 * t17641 * t881 + 0.4e1 * t17679 * t881 - 0.4e1 * t17685 * t2442 + 0.4e1 * t17982 * t397 + 0.4e1 * t2377 * t4901 - 0.16e2 * t4893 * t65619 - 0.16e2 * t4893 * t65824;
23938   t67322 = t17951 * t227;
23939   t67334 = 0.2e1 * t81 * t4789 * t3530 - 0.240e3 * t34500 * t4781 * t9668 + 0.80e2 * t7757 * t4781 * t9671 + 0.4e1 * t81 * t4896 * t2866 + 0.4e1 * t881 * t17630 + 0.2e1 * t3149 * t4793 - 0.16e2 * t17515 * t17711 - 0.8e1 * t66765 * t4782 + 0.2e1 * t397 * t17910 + 0.2e1 * t81 * t9848 * t1347 * t227 + 0.2e1 * t81 * t3249 * t4775 * t227 + 0.80e2 * t36473 * t17611 - 0.8e1 * t4720 * t67322 * t443 + 0.40e2 * t7757 * t4781 * t9676 + 0.80e2 * t7757 * t17618 * t2383 - 0.16e2 * t66587 * t4782;
23940   t67374 = -0.8e1 * t66820 * t4782 + 0.2e1 * t81 * t1350 * t10267 - 0.2e1 * t1476 * t17952 - 0.2e1 * t2448 * t17952 - 0.2e1 * t449 * t857 * t17951 - 0.4e1 * t4302 * t17681 + 0.80e2 * t7757 * t17710 * t2383 - 0.4e1 * t449 * t1110 * t17677 - 0.2e1 * t449 * t363 * t67166 - 0.2e1 * t9866 * t4761 + 0.4e1 * t881 * t17696 + 0.4e1 * t81 * t17678 * t1037 + 0.2e1 * t81 * t17909 * t751 + 0.4e1 * t2377 * t4904 - 0.16e2 * t17515 * t17619 - 0.16e2 * t17457 * t17619;
23941   t67377 = t66990 + t67028 + t67175 + t67217 + t67252 + t67288 + t67334 + t67374;
23942   t67424 = 0.6e1 * t1350 * t369 * t9848 + 0.12e2 * t17638 * t369 * t928 + 0.12e2 * t17678 * t369 * t928 + 0.12e2 * t2478 * t369 * t4900 + 0.6e1 * t3219 * t369 * t4775 + 0.6e1 * t3249 * t369 * t4785 + 0.6e1 * t3249 * t369 * t4789 + 0.12e2 * t1125 * t17748 + 0.12e2 * t1125 * t17751 + 0.12e2 * t1125 * t17759 + 0.3e1 * t11541 * t1357 + 0.6e1 * t18025 * t873 + 0.12e2 * t18028 * t873 + 0.6e1 * t18031 * t873 + 0.12e2 * t3138 * t4912 + 0.6e1 * t3141 * t4912 + 0.3e1 * t3745 * t4811;
23943   t67464 = 0.6e1 * t1357 * t11538 + 0.3e1 * t873 * t18034 + 0.3e1 * t369 * t97 * t67166 + 0.6e1 * t3745 * t4808 + 0.12e2 * t1125 * t17754 + 0.6e1 * t17730 * t1127 + 0.12e2 * t3132 * t4918 + 0.6e1 * t1125 * t17762 + 0.12e2 * t1357 * t11533 + 0.6e1 * t369 * t17978 * t464 + 0.12e2 * t369 * t4896 * t2478 + 0.6e1 * t4802 * t3749 + 0.6e1 * t1357 * t11530 + 0.3e1 * t4802 * t3752 + 0.3e1 * t18011 * t875 + 0.3e1 * t11518 * t1359 + 0.6e1 * t3132 * t4921 + params->d * t67377 * t370;
23944   t67467 = t18000 * t372;
23945   t67469 = t4907 * t1130;
23946   t67472 = t3740 * t1362;
23947   t67475 = t7 * t67377 * t372 + 0.2e1 * t4908 * t3144 + t3741 * t4814 + t872 * (t67424 + t67464) + t65897 + t67467 + t1355 * t11544 + t65901 + 0.2e1 * t67469 + t65904 + t11507 * t1362 + t67472 + 0.2e1 * t3127 * t4924;
23948   t67476 = t1354 * t3755;
23949   t67479 = t368 * t18037;
23950   t67480 = t1122 * t4924;
23951   t67487 = 0.2e1 * t1123 * t17765 + 0.2e1 * t1130 * t17719 + t18001 * t878 + t18037 * t870 + t3755 * t4797 + t66335 + t66337 + t66339 + t66341 + t66344 + t67476 + t67479 + 0.2e1 * t67480;
23952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23953     v4rho3tau[5] = t67475 + t67487;
23954 
23955   t67555 = 0.2e1 * t12661 * t1326 * t227 * t81 + 0.6e1 * t1037 * t17792 * t81 + 0.6e1 * t3530 * t4843 * t81 - 0.2e1 * t1327 * t44549 - 0.6e1 * t1327 * t63044 - 0.2e1 * t1327 * t63047 - 0.6e1 * t15998 * t4820 - 0.6e1 * t15998 * t4831 - 0.12e2 * t16016 * t4831 - 0.48e2 * t17457 * t17855 + 0.6e1 * t17769 * t881 + 0.120e3 * t17836 * t36473 - 0.6e1 * t17847 * t2442 - 0.6e1 * t4831 * t9866 - 0.24e2 * t4836 * t66820;
23956   t67604 = t4699 * t4700 * t12656 / 0.4e1 - 0.5e1 / 0.24e2 * t4708 * t4709 * t11590 + 0.5e1 / 0.6e1 * t4699 * t17153 * t923 * t3164 + 0.3e1 * t64949 * t4700 * t12628 - 0.15e2 / 0.4e1 * t17133 * t4709 * t3227 * t887 + t64875 - 0.20e2 / 0.3e1 * t66646 + 0.6e1 * t66665 - 0.2e1 * t66670 + 0.10e2 / 0.9e1 * t66675 + 0.5e1 / 0.3e1 * t66679 + 0.22e2 / 0.3e1 * t65412 - 0.55e2 / 0.9e1 * t65421 - 0.9e1 / 0.4e1 * t17133 * t4700 * t40438 + 0.5e1 / 0.4e1 * t4699 * t4709 * t3244 * t887 + 0.5e1 / 0.4e1 * t4699 * t4709 * t923 * t3168 + 0.5e1 / 0.108e3 * t4708 * t64938 * t11582 - 0.5e1 / 0.12e2 * t4708 * t17153 * t40466;
23957   t67605 = my_piecewise3(t95, 0, t67604);
23958   t67636 = -0.48e2 * t66587 * t4836 + 0.120e3 * t7757 * t17451 * t3152 - 0.6e1 * t2442 * t17844 + 0.2e1 * t81 * t96 * t67605 * t227 + 0.12e2 * t881 * t17850 - 0.24e2 * t66765 * t4836 - 0.48e2 * t4720 * t66516 * t912 - 0.24e2 * t4720 * t17470 * t3209 - 0.12e2 * t16016 * t4820 - 0.6e1 * t62560 * t1327 - 0.24e2 * t4720 * t66537 * t912 - 0.24e2 * t17457 * t17839 - 0.48e2 * t17457 * t17831 - 0.48e2 * t17515 * t17831 - 0.240e3 * t34500 * t4721 * t11560;
23959   t67675 = -0.24e2 * t17515 * t17839 - 0.24e2 * t4720 * t66847 * t912 + 0.6e1 * t81 * t17796 * t1037 + 0.6e1 * t881 * t17797 + 0.12e2 * t881 * t17801 + 0.6e1 * t81 * t928 * t17791 * t227 + 0.6e1 * t81 * t4839 * t3530 + 0.6e1 * t3149 * t4847 + 0.2e1 * t11553 * t1330 + 0.6e1 * t3149 * t4840 + 0.6e1 * t3149 * t4844 + 0.120e3 * t7757 * t4721 * t11563 - 0.6e1 * t4302 * t17844 - 0.12e2 * t4302 * t17821 - 0.6e1 * t449 * t3714 * t4830;
23960   t67718 = -0.6e1 * t449 * t1110 * t17791 + 0.12e2 * t81 * t17800 * t1037 - 0.2e1 * t449 * t12615 * t1326 - 0.24e2 * t4720 * t17451 * t3209 - 0.8e1 * t4720 * t4721 * t11644 - 0.6e1 * t4302 * t17847 + 0.6e1 * t881 * t17793 + 0.6e1 * t81 * t3249 * t4830 * t227 + 0.2e1 * t81 * t1329 * t12227 - 0.48e2 * t17515 * t17855 + 0.120e3 * t58230 * t17836 + 0.120e3 * t7757 * t17470 * t3152 - 0.2e1 * t449 * t363 * t67605 - 0.12e2 * t2442 * t17821 - 0.6e1 * t9866 * t4820 + 0.12e2 * t881 * t17810;
23961   t67720 = t67555 + t67636 + t67675 + t67718;
23962   t67745 = 0.9e1 * t17870 * t1127 + 0.3e1 * t12730 * t1338 + 0.9e1 * t4855 * t3752 + 0.18e2 * t1125 * t17884 + 0.36e2 * t1125 * t17887 + 0.18e2 * t1125 * t17890 + 0.18e2 * t1336 * t12741 + 0.9e1 * t1125 * t17893 + 0.9e1 * t3745 * t4864 + 0.3e1 * t1336 * t12744 + 0.18e2 * t3745 * t4861 + params->d * t67720 * t370 + 0.18e2 * t369 * t17792 * t928 + 0.18e2 * t369 * t4843 * t3249 + 0.18e2 * t369 * t4839 * t3249 + 0.3e1 * t369 * t97 * t67605 + 0.18e2 * t4855 * t3749 + 0.6e1 * t369 * t1329 * t12661 + 0.6e1 * t1336 * t12738 + 0.18e2 * t369 * t3219 * t4830;
23963   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23964     v4rho3tau[6] = t372 * t67720 * t7 + 0.3e1 * t1123 * t17896 + 0.3e1 * t1130 * t17860 + t12724 * t1341 + t12747 * t1334 + 0.3e1 * t3741 * t4867 + 0.3e1 * t3755 * t4851 + t67745 * t872 + 0.6e1 * t66440 + 0.6e1 * t66445 + 0.3e1 * t66449 + 0.3e1 * t66450 + 0.3e1 * t66945 + 0.3e1 * t66948;
23965 
23966   t67826 = 0.40e2 / 0.9e1 * t67061 + 0.5e1 / 0.6e1 * t4699 * t17267 * t923 * t3179 - 0.15e2 / 0.4e1 * t17133 * t4770 * t3227 * t897 - 0.9e1 / 0.4e1 * t17133 * t4766 * t40438 - 0.25e2 / 0.6e1 * t4699 * t4163 * t17931 + 0.5e1 / 0.4e1 * t4699 * t4770 * t3244 * t897 + 0.5e1 / 0.4e1 * t4699 * t4770 * t923 * t3183 - 0.5e1 / 0.12e2 * t4708 * t17267 * t40511 - 0.55e2 / 0.9e1 * t66086 + 0.22e2 / 0.3e1 * t66088 + 0.15e2 / 0.4e1 * t17133 * t1274 * t3227 + 0.10e2 / 0.3e1 * t4699 * t4591 * t923 + 0.25e2 / 0.36e2 * t4708 * t17011 + 0.5e1 / 0.108e3 * t4708 * t65094 * t11605 - 0.5e1 / 0.4e1 * t4699 * t1274 * t3244;
23967   t67852 = t4699 * t4766 * t12656 / 0.4e1 - 0.25e2 / 0.9e1 * t4708 * t17009 + 0.25e2 / 0.24e2 * t4708 * t17013 - 0.5e1 / 0.24e2 * t4708 * t4770 * t11612 + t65051 + 0.20e2 / 0.3e1 * t67084 - 0.2e1 * t67086 - 0.50e2 / 0.9e1 * t67088 + 0.10e2 / 0.9e1 * t67090 + 0.5e1 / 0.3e1 * t67092 + 0.6e1 * t67094 + 0.55e2 / 0.27e2 * t58 * t453 * t3173 * t50 + 0.3e1 * t64949 * t4766 * t12628 + 0.55e2 / 0.9e1 * t66113 - 0.20e2 / 0.3e1 * t67161;
23968   t67854 = my_piecewise3(t95, 0, t67826 + t67852);
23969   t67885 = 0.120e3 * t11563 * t4781 * t7757 - 0.8e1 * t11644 * t4720 * t4781 + 0.120e3 * t17618 * t3152 * t7757 - 0.2e1 * t363 * t449 * t67854 - 0.48e2 * t4720 * t67203 * t912 - 0.2e1 * t1348 * t44549 - 0.6e1 * t1348 * t62560 - 0.12e2 * t16016 * t4873 - 0.24e2 * t17457 * t17900 - 0.48e2 * t17515 * t17994 - 0.6e1 * t17957 * t2442 - 0.6e1 * t17957 * t4302 + 0.120e3 * t17967 * t58230 - 0.6e1 * t4888 * t9866 - 0.24e2 * t4893 * t66820;
23970   t67924 = -0.24e2 * t4720 * t67322 * t912 - 0.48e2 * t17515 * t17917 + 0.6e1 * t81 * t4900 * t3530 - 0.6e1 * t449 * t1110 * t17951 + 0.6e1 * t81 * t4896 * t3530 - 0.12e2 * t16016 * t4888 - 0.12e2 * t2442 * t17960 - 0.6e1 * t449 * t3714 * t4887 - 0.24e2 * t17515 * t17900 - 0.24e2 * t4720 * t17618 * t3209 + 0.120e3 * t7757 * t17710 * t3152 + 0.120e3 * t36473 * t17967 - 0.240e3 * t34500 * t4781 * t11560 - 0.24e2 * t66765 * t4893 - 0.48e2 * t66587 * t4893;
23971   t67963 = 0.2e1 * t227 * t67854 * t81 * t96 + 0.12e2 * t1037 * t17913 * t81 + 0.6e1 * t1037 * t17978 * t81 + 0.2e1 * t12227 * t1350 * t81 - 0.24e2 * t17710 * t3209 * t4720 - 0.24e2 * t4720 * t67184 * t912 - 0.48e2 * t17457 * t17917 - 0.48e2 * t17457 * t17994 + 0.6e1 * t17910 * t881 + 0.12e2 * t17914 * t881 - 0.12e2 * t17960 * t4302 + 0.6e1 * t17979 * t881 + 0.12e2 * t17982 * t881 + 0.6e1 * t17991 * t881 + 0.6e1 * t3149 * t4904;
23972   t68004 = 0.2e1 * t12661 * t1347 * t227 * t81 + 0.6e1 * t17951 * t227 * t81 * t928 + 0.6e1 * t227 * t3249 * t4887 * t81 + 0.6e1 * t1037 * t17909 * t81 - 0.2e1 * t12615 * t1347 * t449 + 0.2e1 * t11553 * t1351 - 0.6e1 * t1348 * t63044 - 0.2e1 * t1348 * t63047 - 0.6e1 * t15998 * t4873 - 0.6e1 * t15998 * t4888 - 0.6e1 * t17952 * t2442 - 0.6e1 * t17952 * t4302 + 0.12e2 * t17963 * t881 + 0.6e1 * t3149 * t4897 + 0.6e1 * t3149 * t4901 - 0.6e1 * t4873 * t9866;
23973   t68006 = t67885 + t67924 + t67963 + t68004;
23974   t68038 = 0.18e2 * t1357 * t12741 + 0.6e1 * t1357 * t12738 + 0.18e2 * t4912 * t3749 + 0.3e1 * t1357 * t12744 + 0.18e2 * t369 * t4896 * t3249 + 0.9e1 * t3745 * t4921 + 0.3e1 * t12730 * t1359 + params->d * t68006 * t370 + 0.9e1 * t1125 * t18034 + 0.18e2 * t3745 * t4918 + 0.18e2 * t369 * t17978 * t928 + 0.18e2 * t369 * t4900 * t3249 + 0.18e2 * t369 * t3219 * t4887 + 0.3e1 * t369 * t97 * t67854 + 0.9e1 * t18011 * t1127 + 0.18e2 * t1125 * t18025 + 0.36e2 * t1125 * t18028 + 0.18e2 * t1125 * t18031 + 0.6e1 * t369 * t1350 * t12661 + 0.9e1 * t4912 * t3752;
23975   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23976     v4rho3tau[7] = t372 * t68006 * t7 + 0.3e1 * t1123 * t18037 + 0.3e1 * t1130 * t18001 + t12724 * t1362 + t12747 * t1355 + 0.3e1 * t3741 * t4924 + 0.3e1 * t3755 * t4908 + t68038 * t872 + 0.3e1 * t67467 + 0.6e1 * t67469 + 0.3e1 * t67472 + 0.3e1 * t67476 + 0.3e1 * t67479 + 0.6e1 * t67480;
23977 
23978   t68048 = t18474 * t372;
23979   t68050 = t5065 * t878;
23980   t68052 = t47189 * t4940;
23981   t68054 = t47192 * t4940;
23982   t68056 = t13167 * t18071;
23983   t68058 = t13167 * t18075;
23984   t68060 = t13167 * t18079;
23985   t68063 = t1204 * t18210 * t1516;
23986   t68067 = t1204 * t18205 * t1398;
23987   t68070 = t47280 * t4940;
23988   t68072 = t12788 * t18071;
23989   t68074 = t12788 * t18075;
23990   t68077 = t12788 * t18079;
23991   t68080 = t1204 * t1517 * t1143;
23992   t68081 = t3788 * t68080;
23993   t68083 = t47324 * t4940;
23994   t68087 = t12765 * t18064;
23995   t68089 = t12761 * t18064;
23996   t68091 = t3811 * t3811;
23997   t68094 = 0.4e1 * t82 * t68091 * t363;
23998   t68095 = t404 * t404;
23999   t68101 = t12791 * t1144 * t1398;
24000   t68102 = t13159 * t68101;
24001   t68104 = t6445 * t18048;
24002   t68108 = t5044 * t12771 * t3778;
24003   t68111 = 0.4e1 / 0.3e1 * t68077 + 0.2e1 / 0.3e1 * t68081 + 0.2e1 / 0.3e1 * t68083 - 0.10e2 / 0.3e1 * t13164 * t18207 - 0.20e2 / 0.3e1 * t68087 - 0.20e2 / 0.3e1 * t68089 - t68094 - 0.5e1 / 0.72e2 * t1397 * t68095 * t4927 * t4936 + 0.20e2 * t68102 - 0.5e1 / 0.36e2 * t68104 * t18051 - 0.5e1 / 0.36e2 * t18049 * t68108;
24004   t68114 = t449 * t13074 * t1143;
24005   t68120 = t3958 * t18206;
24006   t68123 = t97 * t3934;
24007   t68125 = t1204 * t68123 * t443;
24008   t68128 = t5044 * t12753;
24009   t68131 = t6445 * t18088;
24010   t68135 = 0.4e1 * t5097 * t13156;
24011   t68140 = t449 * t1199 * t13155;
24012   t68142 = t12758 * t18075;
24013   t68144 = -0.4e1 * t68114 - 0.10e2 / 0.3e1 * t12761 * t18207 - 0.10e2 / 0.3e1 * t12765 * t18207 - 0.10e2 / 0.3e1 * t3762 * t68120 - 0.10e2 / 0.3e1 * t3762 * t68125 + 0.5e1 / 0.24e2 * t18082 * t68128 - 0.5e1 / 0.36e2 * t68131 * t18091 - t68135 - 0.2e1 * t449 * t5039 * t1516 - 0.4e1 * t68140 + 0.4e1 / 0.3e1 * t68142;
24014   t68145 = t12758 * t18079;
24015   t68148 = t1204 * t47272 * t1143;
24016   t68149 = t3788 * t68148;
24017   t68152 = t5044 * t12771 * t404;
24018   t68155 = t6453 * t18048;
24019   t68156 = t363 * t3778;
24020   t68158 = t18543 * t68156 * t443;
24021   t68162 = t12791 * t3812 * t443;
24022   t68163 = t3762 * t68162;
24023   t68167 = t3958 * t18211;
24024   t68170 = t96 * t3934;
24025   t68172 = t1204 * t68170 * t464;
24026   t68175 = t3958 * t18078;
24027   t68176 = t3788 * t68175;
24028   t68178 = t13336 * t4939;
24029   t68179 = t3788 * t68178;
24030   t68181 = t3958 * t18074;
24031   t68182 = t3788 * t68181;
24032   t68184 = 0.4e1 / 0.3e1 * t68145 + 0.2e1 / 0.3e1 * t68149 - 0.5e1 / 0.36e2 * t18089 * t68152 + 0.5e1 / 0.6e1 * t68155 * t68158 - 0.20e2 / 0.3e1 * t68163 + 0.4e1 / 0.3e1 * t12788 * t18212 + 0.4e1 / 0.3e1 * t3788 * t68167 + 0.4e1 / 0.3e1 * t3788 * t68172 + 0.4e1 / 0.3e1 * t68176 + 0.2e1 / 0.3e1 * t68179 + 0.4e1 / 0.3e1 * t68182;
24033   t68188 = t5044 * t3763 * t1406;
24034   t68194 = t1204 * t1485 * t1143;
24035   t68195 = t3788 * t68194;
24036   t68197 = t13167 * t18202;
24037   t68199 = t12758 * t18202;
24038   t68201 = t12788 * t18202;
24039   t68204 = t1204 * t3789 * t13155;
24040   t68205 = t3788 * t68204;
24041   t68207 = t363 * t439;
24042   t68209 = t18555 * t68207 * t443;
24043   t68213 = t18555 * t68207 * t404;
24044   t68216 = t18056 * t96;
24045   t68218 = t68216 * t68207 * t464;
24046   t68221 = t5060 * t13107;
24047   t68223 = -0.5e1 / 0.72e2 * t18089 * t68188 - 0.2e1 * t1482 * t5039 + 0.4e1 / 0.3e1 * t68195 + 0.4e1 / 0.3e1 * t68197 + 0.4e1 / 0.3e1 * t68199 + 0.4e1 / 0.3e1 * t68201 + 0.2e1 / 0.3e1 * t68205 + 0.5e1 / 0.6e1 * t18082 * t68209 - 0.5e1 / 0.18e2 * t18089 * t68213 - 0.5e1 / 0.18e2 * t18055 * t68218 + 0.12e2 * t68221;
24048   t68224 = t5060 * t13131;
24049   t68227 = t1397 * t1134 * t114;
24050   t68229 = t18543 * t68156 * t404;
24051   t68233 = t18555 * t68156 * t439;
24052   t68237 = t18560 * t68156 * t464;
24053   t68241 = t12791 * t1144 * t1470;
24054   t68242 = t3762 * t68241;
24055   t68244 = t18560 * t12793;
24056   t68248 = t18560 * t465 * t404;
24057   t68251 = t174 * t18188;
24058   t68254 = 0.6e1 * t1214 * t68251 * t3980;
24059   t68256 = 0.2e1 * t3977 * t18190;
24060   t68257 = t5060 * t13125;
24061   t68261 = 0.6e1 * t68224 - 0.5e1 / 0.18e2 * t68227 * t68229 - 0.5e1 / 0.18e2 * t18049 * t68233 - 0.5e1 / 0.18e2 * t18049 * t68237 - 0.10e2 / 0.3e1 * t68242 + 0.5e1 / 0.6e1 * t18082 * t68244 - 0.5e1 / 0.18e2 * t18089 * t68248 + t68254 + t68256 + 0.12e2 * t68257 + 0.2e1 / 0.3e1 * t3758 * t18456;
24062   t68266 = t4932 * t4934 * t2331;
24063   t68269 = t28769 * t2090;
24064   t68272 = 0.6e1 * t1214 * t5030 * t68269;
24065   t68274 = 0.2e1 * t6587 * t4955;
24066   t68276 = 0.4e1 * t3977 * t18443;
24067   t68277 = t5060 * t13174;
24068   t68280 = 0.6e1 * t3977 * t18220;
24069   t68283 = 0.2e1 * t449 * t2331 * t4954;
24070   t68285 = 0.2e1 * t8308 * t4955;
24071   t68287 = 0.4e1 * t2448 * t18098;
24072   t68289 = 0.2e1 * t4948 * t2331;
24073   t68290 = 0.2e1 / 0.3e1 * t3758 * t18460 - 0.5e1 / 0.144e3 * t4929 * t68266 - t68272 - t68274 - t68276 - 0.2e1 * t68277 - t68280 - t68283 - t68285 - t68287 - t68289;
24074   t68292 = t13341 * t167 * t168;
24075   t68293 = t68292 * t1192;
24076   t68296 = 0.2e1 * t3977 * t18197;
24077   t68297 = t5060 * t13180;
24078   t68300 = 0.6e1 * t3977 * t18440;
24079   t68301 = t3958 * t18201;
24080   t68302 = t3788 * t68301;
24081   t68305 = t1204 * t465 * t3811;
24082   t68306 = t3788 * t68305;
24083   t68309 = t1204 * t12780 * t3811;
24084   t68310 = t3788 * t68309;
24085   t68314 = 0.3e1 * t1214 * t18439 * t13130;
24086   t68316 = 0.4e1 * t3977 * t18105;
24087   t68322 = 0.2e1 * t68293 - t68296 - 0.4e1 * t68297 + t68300 + 0.4e1 / 0.3e1 * t68302 + 0.4e1 / 0.3e1 * t68306 + 0.4e1 / 0.3e1 * t68310 + t68314 + t68316 - 0.5e1 / 0.144e3 * t26398 * t4928 * t4936 - 0.5e1 / 0.72e2 * t18040 * t18044;
24088   t68326 = t2448 * t18194;
24089   t68330 = t4932 * t4933 * t1481 * t363;
24090   t68334 = t66 * t13091 * t1199;
24091   t68338 = t66 * t3783 * t3934;
24092   t68341 = t3946 * t18063;
24093   t68342 = t3762 * t68341;
24094   t68344 = t6453 * t18088;
24095   t68346 = t18543 * t12792 * t404;
24096   t68351 = t12791 * t1199 * t443 * t464;
24097   t68354 = t13164 * t18064;
24098   t68357 = t66 * t1136 * t13074;
24099   t68361 = t1214 * t5026 * t5856;
24100   t68364 = t66 * t13080 * t1199;
24101   t68373 = t5059 * t13344;
24102   t68374 = t68373 * t12941;
24103   t68376 = t677 * t3919;
24104   t68377 = t3923 * t68376;
24105   t68379 = 0.12e2 * t13345 * t68377;
24106   t68382 = 0.2e1 * t1214 * t1191 * t48474;
24107   t68383 = t18469 * t3986;
24108   t68385 = t3778 * t3778;
24109   t68390 = t18469 * t3981;
24110   t68392 = 0.2e1 / 0.3e1 * t1135 * t68364 + t13085 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t13088 * t4944 + 0.2e1 / 0.3e1 * t13216 * t4944 - 0.12e2 * t68374 - t68379 - t68382 - 0.4e1 * t68383 - 0.5e1 / 0.72e2 * t1397 * t4926 * t68385 * t4936 - t4957 + 0.12e2 * t68390;
24111   t68394 = t3919 * t3919;
24112   t68396 = t175 * t68394 * t2093;
24113   t68398 = 0.2e1 * t1214 * t68396;
24114   t68399 = t173 * t5029;
24115   t68400 = t2093 * t1868;
24116   t68403 = 0.6e1 * t1214 * t68399 * t68400;
24117   t68409 = 0.4e1 * t18094;
24118   t68410 = 0.4e1 * t18096;
24119   t68411 = 0.4e1 * t18099;
24120   t68412 = t13214 * t5031;
24121   t68413 = t439 * t439;
24122   t68416 = t4932 * t68413 * t97 * t363;
24123   t68419 = t18345 * t7870;
24124   t68421 = 0.12e2 * t13345 * t68419;
24125   t68423 = t449 * t3934 * t3811;
24126   t68425 = -t68398 - t68403 - 0.4e1 * t1476 * t18465 - 0.4e1 * t449 * t18357 * t464 - t68409 - t68410 - t68411 - t68412 - 0.5e1 / 0.72e2 * t4929 * t68416 + t68421 - 0.8e1 * t68423;
24127   t68427 = 0.8e1 * t5097 * t13102;
24128   t68430 = 0.2e1 * t1214 * t5030 * t28746;
24129   t68436 = t5060 * t13049;
24130   t68440 = 0.2e1 * t1214 * t5026 * t13138;
24131   t68441 = t439 * t1143;
24132   t68443 = t66 * t68441 * t443;
24133   t68444 = t13245 * t68443;
24134   t68446 = t73 * t3811;
24135   t68448 = t66 * t68446 * t443;
24136   t68449 = t13245 * t68448;
24137   t68452 = t66 * t18388 * t1470;
24138   t68453 = t13245 * t68452;
24139   t68455 = t18367 * t4927;
24140   t68456 = t6453 * t68455;
24141   t68457 = t4933 * t443;
24142   t68459 = t4932 * t68457 * t464;
24143   t68463 = t66 * t18388 * t1398;
24144   t68464 = t47508 * t68463;
24145   t68468 = 0.32e2 * t400 * t47650 * t3811;
24146   t68469 = t47518 * t18390;
24147   t68471 = t52029 * t18390;
24148   t68473 = t47522 * t18390;
24149   t68475 = t47526 * t18390;
24150   t68479 = 0.40e2 * t1397 * t5054 * t1398;
24151   t68481 = 0.16e2 * t1392 * t18418;
24152   t68483 = t1397 * t18367 * t1133;
24153   t68484 = t4933 * t464;
24154   t68486 = t4932 * t68484 * t3778;
24155   t68489 = t1397 * t68455;
24156   t68492 = t4932 * t73 * t464 * t439;
24157   t68495 = t1397 * t14499;
24158   t68496 = t4933 * t404;
24159   t68498 = t4932 * t68496 * t3778;
24160   t68501 = t1201 * t4927;
24161   t68502 = t1397 * t68501;
24162   t68505 = t4932 * t73 * t404 * t439;
24163   t68508 = t5041 * t1133;
24164   t68509 = t1397 * t68508;
24165   t68512 = t4932 * t73 * t3778 * t439;
24166   t68517 = 0.16e2 * t400 * t18421 * t443;
24167   t68518 = 0.20e2 / 0.3e1 * t68444 + 0.20e2 / 0.3e1 * t68449 + 0.10e2 / 0.3e1 * t68453 - 0.5e1 / 0.6e1 * t68456 * t68459 - 0.20e2 * t68464 - t68468 + 0.20e2 / 0.3e1 * t68469 + 0.20e2 / 0.3e1 * t68471 + 0.20e2 / 0.3e1 * t68473 + 0.20e2 / 0.3e1 * t68475 + t68479 - t68481 + 0.5e1 / 0.18e2 * t68483 * t68486 + 0.5e1 / 0.18e2 * t68489 * t68492 + 0.5e1 / 0.18e2 * t68495 * t68498 + 0.5e1 / 0.18e2 * t68502 * t68505 + 0.5e1 / 0.18e2 * t68509 * t68512 - t68517;
24168   t68521 = 0.8e1 * t400 * t5054 * t1470;
24169   t68522 = 0.16e2 * t18419;
24170   t68523 = t26398 * t5041;
24171   t68527 = t1397 * t1481 * t4926;
24172   t68531 = t1397 * t97 * t68095;
24173   t68538 = t4931 * t68413;
24174   t68542 = t26389 * t5041;
24175   t68543 = t5044 * t1398;
24176   t68548 = t3945 * t13329 * t5048;
24177   t68551 = t3945 * t3954 * t18400;
24178   t68554 = t3945 * t3954 * t18404;
24179   t68556 = t13336 * t1143;
24180   t68558 = t3945 * t1203 * t68556;
24181   t68560 = t3958 * t3811;
24182   t68562 = t3945 * t1203 * t68560;
24183   t68564 = t1204 * t13155;
24184   t68566 = t3945 * t1203 * t68564;
24185   t68568 = t6445 * t18367;
24186   t68577 = -t68521 + t5056 - t68522 + 0.5e1 / 0.144e3 * t68523 * t5045 + 0.5e1 / 0.72e2 * t68527 * t5045 + 0.5e1 / 0.72e2 * t68531 * t5045 + 0.5e1 / 0.72e2 * t5042 * t68385 * t114 * t5044 + 0.5e1 / 0.72e2 * t5042 * t5043 * t68538 + 0.35e2 / 0.24e2 * t68542 * t5043 * t68543 - 0.2e1 / 0.3e1 * t68548 - 0.4e1 / 0.3e1 * t68551 - 0.4e1 / 0.3e1 * t68554 - 0.2e1 / 0.3e1 * t68558 - 0.4e1 / 0.3e1 * t68562 - 0.2e1 / 0.3e1 * t68566 + 0.5e1 / 0.36e2 * t68568 * t18370 + 0.5e1 / 0.36e2 * t13260 * t18374 + 0.5e1 / 0.36e2 * t18359 * t18379 + 0.5e1 / 0.36e2 * t18359 * t18383;
24187   t68579 = t5044 * t1470;
24188   t68583 = t13281 * t18405;
24189   t68585 = t6453 * t68501;
24190   t68587 = t4932 * t68457 * t404;
24191   t68590 = t6453 * t68508;
24192   t68592 = t4932 * t68457 * t3778;
24193   t68595 = t5041 * t4927;
24194   t68596 = t6453 * t68595;
24195   t68598 = t4932 * t13246 * t439;
24196   t68602 = t1397 * t3944 * t4927;
24197   t68604 = t4932 * t68484 * t404;
24198   t68607 = 0.4e1 * t18416;
24199   t68608 = 0.4e1 * t18422;
24200   t68610 = 0.4e1 * t81 * t68091;
24201   t68611 = t13263 * t18397;
24202   t68613 = t13263 * t18401;
24203   t68615 = t13263 * t18405;
24204   t68617 = t52195 * t5049;
24205   t68619 = t52199 * t5049;
24206   t68621 = t14624 * t18397;
24207   t68623 = t14624 * t18401;
24208   t68625 = t14624 * t18405;
24209   t68627 = t47710 * t5049;
24210   t68629 = -0.5e1 / 0.24e2 * t18362 * t5043 * t68579 - 0.4e1 / 0.3e1 * t68583 - 0.5e1 / 0.6e1 * t68585 * t68587 - 0.5e1 / 0.6e1 * t68590 * t68592 - 0.5e1 / 0.6e1 * t68596 * t68598 + 0.5e1 / 0.18e2 * t68602 * t68604 + t68607 + t68608 + t68610 - 0.4e1 / 0.3e1 * t68611 - 0.4e1 / 0.3e1 * t68613 - 0.4e1 / 0.3e1 * t68615 - 0.2e1 / 0.3e1 * t68617 - 0.4e1 / 0.3e1 * t68619 - 0.4e1 / 0.3e1 * t68621 - 0.4e1 / 0.3e1 * t68623 - 0.4e1 / 0.3e1 * t68625 - 0.2e1 / 0.3e1 * t68627;
24211   t68630 = t13281 * t18397;
24212   t68632 = t13281 * t18401;
24213   t68636 = 0.4e1 * t81 * t1143 * t13155;
24214   t68638 = 0.2e1 * t1391 * t5054;
24215   t68640 = 0.4e1 * t397 * t18421;
24216   t68643 = 0.40e2 * t1397 * t4947 * t1398;
24217   t68646 = 0.8e1 * t400 * t4947 * t1470;
24218   t68648 = 0.2e1 * t1391 * t4947;
24219   t68651 = 0.2e1 * t81 * t1516 * t4954;
24220   t68653 = 0.16e2 * t1392 * t18410;
24221   t68655 = 0.8e1 * t397 * t18413;
24222   t68656 = t5044 * t1516;
24223   t68660 = t5044 * t1406;
24224   t68664 = t5044 * t13194;
24225   t68668 = t26602 * t5041;
24226   t68671 = t18056 * t1466;
24227   t68675 = t47724 * t5049;
24228   t68677 = t52182 * t5049;
24229   t68679 = t47726 * t5049;
24230   t68681 = -0.4e1 / 0.3e1 * t68630 - 0.4e1 / 0.3e1 * t68632 + t68636 + t68638 + t68640 + t68643 - t68646 + t68648 + t68651 - t68653 + t68655 + 0.5e1 / 0.72e2 * t18368 * t5043 * t68656 + 0.5e1 / 0.72e2 * t3939 * t5043 * t68660 + 0.5e1 / 0.72e2 * t5042 * t18377 * t68664 - 0.5e1 / 0.12e2 * t68668 * t18364 + 0.5e1 / 0.72e2 * t5042 * t5043 * t68671 - 0.2e1 / 0.3e1 * t68675 - 0.4e1 / 0.3e1 * t68677 - 0.4e1 / 0.3e1 * t68679;
24231   t68686 = t5044 * t3763 * t13194;
24232   t68689 = t3919 * t746;
24233   t68690 = t13055 * t68689;
24234   t68692 = 0.8e1 * t14484 * t68690;
24235   t68693 = t26389 * t18054;
24236   t68694 = t5044 * t13160;
24237   t68697 = -t68427 + t68430 + t5057 * t2101 - 0.2e1 * t447 * t18357 + 0.2e1 * t18424 * t751 + 0.2e1 * t68436 + t68440 + (t68518 + t68577 + t68629 + t68681) * t227 - 0.5e1 / 0.72e2 * t18049 * t68686 + t68692 - 0.35e2 / 0.24e2 * t68693 * t68694;
24238   t68702 = 0.2e1 * t1214 * t18189 * t3985;
24239   t68705 = t5014 * t5020 * t1887 * t714;
24240   t68706 = t68705 * t710;
24241   t68707 = 0.7e1 / 0.576e3 * t68706;
24242   t68711 = t3897 * t3897;
24243   t68717 = t18137 * t196 * t2079;
24244   t68720 = t4973 * t2052;
24245   t68721 = t68720 * t4976;
24246   t68725 = t5013 * t5115 * t6345;
24247   t68726 = t1887 * t5007;
24248   t68734 = t4959 * t196 * t714 * t203;
24249   t68735 = t68734 * t18125;
24250   t68736 = 0.7e1 / 0.288e3 * t68735;
24251   t68737 = t68734 * t18130;
24252   t68738 = 0.7e1 / 0.1152e4 * t68737;
24253   t68739 = t5022 * t2033;
24254   t68740 = 0.119e3 / 0.6912e4 * t68739;
24255   t68743 = t18123 * t6301 * t18112 * t1868;
24256   t68747 = t18123 * t1905 * t18112 * t1881;
24257   t68751 = t4958 * t5000 * t2030 * t5004;
24258   t68752 = 0.119e3 / 0.6912e4 * t68751;
24259   t68754 = t5014 * t5015 * t18175;
24260   t68755 = t698 * t209;
24261   t68758 = t68754 * t68755 * t18170 * t708;
24262   t68760 = -t68707 - 0.16e2 * t18596 * t14401 * t13033 - 0.4e1 * t1159 * t68711 * t1162 * t5010 + 0.4e1 * t5009 * t68717 + 0.2e1 * t68721 * t5017 + 0.24e2 * t68725 * t68726 * t13014 - 0.4e1 * t18134 * t13045 + t68736 + t68738 - t68740 + 0.5e1 / 0.384e3 * t68743 - t68747 / 0.384e3 + t68752 - t68758 / 0.192e3;
24263   t68761 = t725 * t209;
24264   t68763 = t18177 * t68761 * t1908;
24265   t68765 = t18177 * t2021;
24266   t68767 = t18147 * t18176;
24267   t68768 = t68767 * t710;
24268   t68771 = t5014 * t5015 * t18109;
24269   t68772 = t743 * t677;
24270   t68775 = t68771 * t726 * t532 * t68772;
24271   t68780 = t18169 * t207 * t209 * t103 * t2079;
24272   t68784 = t18111 * t2746 * t18112 * t2019;
24273   t68792 = t18147 * t18168;
24274   t68793 = t68792 * t18172;
24275   t68796 = t4959 * t18109 * t725;
24276   t68800 = t68796 * t210 * t220 * t707 * t1907;
24277   t68803 = t4959 * t18109 * t698;
24278   t68805 = t194 * t743;
24279   t68808 = t68803 * t210 * t736 * t707 * t68805;
24280   t68812 = t5014 * t5020 * t6259 * t202;
24281   t68813 = t68812 * t1895;
24282   t68815 = t18177 * t2026;
24283   t68817 = t3911 * t2019;
24284   t68820 = -t68763 / 0.96e2 + t68765 / 0.768e3 + t68768 / 0.384e3 - t68775 / 0.96e2 + t68780 / 0.768e3 - t68784 / 0.1536e4 + 0.4e1 * t5014 * t5015 * t694 * t68711 - 0.8e1 * t18588 * t18158 + t68793 / 0.384e3 + t68800 / 0.192e3 + t68808 / 0.768e3 - t68813 / 0.256e3 + t68815 / 0.768e3 + 0.2e1 * t18142 * t68817;
24285   t68822 = t13026 * t1893;
24286   t68825 = t18133 * t3851;
24287   t68828 = t1164 * t6345;
24288   t68830 = t68828 * t196 * t2061;
24289   t68833 = t18165 * t18185;
24290   t68835 = t4978 * t6345;
24291   t68837 = t5014 * t68835 * t694;
24292   t68841 = t68837 * t207 * t209 * t103 * t2061;
24293   t68844 = t18169 * t716 * t18171;
24294   t68845 = 0.7e1 / 0.576e3 * t68844;
24295   t68847 = t694 * t714 * t203;
24296   t68848 = t4959 * t68847;
24297   t68849 = t68848 * t18114;
24298   t68850 = 0.7e1 / 0.1152e4 * t68849;
24299   t68853 = t18111 * t2746 * t18112 * t2024;
24300   t68855 = t18165 * t717;
24301   t68856 = 0.7e1 / 0.1152e4 * t68855;
24302   t68859 = t18123 * t2746 * t18128 * t2079;
24303   t68861 = t103 * t2059;
24304   t68864 = t18123 * t2746 * t68861 * t2061;
24305   t68866 = t5117 * t13014;
24306   t68873 = t204 * t2041;
24307   t68877 = t5022 * t68873 * t209 * t103 * t1868;
24308   t68879 = -0.4e1 * t18142 * t68822 + 0.8e1 * t68825 * t13034 - 0.12e2 * t5009 * t68830 + t68833 / 0.192e3 - t68841 / 0.256e3 - t68845 + t68850 - t68853 / 0.1536e4 + t68856 - t68859 / 0.1536e4 + t68864 / 0.768e3 - 0.8e1 * t18142 * t68866 - 0.24e2 * t5116 * t18150 * t3907 * t3897 - 0.5e1 / 0.384e3 * t68877;
24309   t68880 = t18175 * t203;
24310   t68881 = t4959 * t68880;
24311   t68884 = t68881 * t2746 * t18112 * t1893;
24312   t68886 = t5007 * t1891;
24313   t68896 = t715 * t724;
24314   t68898 = t5022 * t68896 * t18184;
24315   t68899 = 0.7e1 / 0.288e3 * t68898;
24316   t68903 = t5022 * t18182 * t209 * t103 * t1881;
24317   t68907 = t18123 * t1905 * t18128 * t68772;
24318   t68910 = t68721 * t5021 * t211;
24319   t68922 = t3911 * t2024;
24320   t68925 = t28634 * t694;
24321   t68934 = t2059 * t6259;
24322   t68939 = t68884 / 0.768e3 - 0.4e1 * t5116 * t18155 * t68886 * t194 - 0.4e1 * t5116 * t18155 * t5007 * t2018 * t194 - t68899 + t68903 / 0.384e3 + t68907 / 0.192e3 - t68910 / 0.1536e4 + 0.4e1 * t5116 * t5117 * t1181 * t12986 - 0.12e2 * t18588 * t18152 - 0.6e1 * t5116 * t18150 * t5007 * t2079 + 0.2e1 * t18142 * t68922 + 0.24e2 * t5116 * t68925 * t5007 * t2061 + 0.8e1 * t18588 * t18162 + 0.16e2 * t68825 * t13019 + 0.12e2 * t5116 * t68934 * t68886 * t1892;
24323   t68943 = t175 * (t68760 + t68820 + t68879 + t68939) * t748;
24324   t68944 = t1214 * t68943;
24325   t68946 = 0.4e1 * t18426 * t857;
24326   t68947 = t5060 * t13139;
24327   t68956 = t12791 * t3802 * t443;
24328   t68957 = t3762 * t68956;
24329   t68959 = t26602 * t18054;
24330   t68962 = t5044 * t12772;
24331   t68965 = t18056 * t13092;
24332   t68968 = -t68702 + t68944 - t68946 + 0.4e1 * t68947 + t13196 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t3780 * t18456 + 0.2e1 / 0.3e1 * t3780 * t18460 - 0.20e2 / 0.3e1 * t68957 + 0.5e1 / 0.12e2 * t68959 * t18083 + 0.5e1 / 0.12e2 * t18082 * t68962 - 0.5e1 / 0.72e2 * t18055 * t68965;
24333   t68969 = t6445 * t18054;
24334   t68972 = t5044 * t12781;
24335   t68984 = t1204 * t18205 * t1470;
24336   t68992 = 0.4e1 * t1476 * t18098;
24337   t68993 = t1476 * t18194;
24338   t68995 = -0.5e1 / 0.36e2 * t68969 * t18060 - 0.5e1 / 0.36e2 * t18055 * t68972 + t13111 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t13115 * t4944 + 0.2e1 / 0.3e1 * t3769 * t18456 + 0.2e1 / 0.3e1 * t3769 * t18460 - 0.5e1 / 0.3e1 * t3762 * t68984 + 0.4e1 / 0.3e1 * t13167 * t18212 + 0.4e1 / 0.3e1 * t12758 * t18212 - t68992 - 0.8e1 * t68993;
24339   t68997 = t8308 * t4951;
24340   t68999 = t2448 * t18436;
24341   t69001 = t2093 * t1881;
24342   t69004 = 0.3e1 * t1214 * t18218 * t69001;
24343   t69006 = t18335 * t7870;
24344   t69008 = 0.6e1 * t13345 * t69006;
24345   t69009 = t13214 * t5027;
24346   t69010 = t18469 * t3921;
24347   t69012 = t6587 * t4951;
24348   t69015 = 0.4e1 * t7847 * t4955;
24349   t69016 = t47494 * t18063;
24350   t69017 = t3762 * t69016;
24351   t69019 = t173 * t5025;
24352   t69022 = 0.6e1 * t1214 * t69019 * t13106;
24353   t69023 = -0.4e1 * t68997 - 0.8e1 * t68999 - t69004 - t1474 * t5039 - t69008 + t69009 + 0.4e1 * t69010 - 0.4e1 * t69012 - t69015 - 0.20e2 / 0.3e1 * t69017 + t69022;
24354   t69024 = t5044 * t12776;
24355   t69027 = t47240 * t4940;
24356   t69029 = t47861 * t4940;
24357   t69031 = t12758 * t18071;
24358   t69034 = 0.8e1 * t18654 * t3812;
24359   t69035 = t7847 * t4951;
24360   t69037 = t1476 * t18436;
24361   t69039 = t18252 * t3851;
24362   t69043 = t4959 * t18232 * t209;
24363   t69050 = t18296 * t209;
24364   t69051 = t4959 * t69050;
24365   t69060 = t18266 * t18289;
24366   t69068 = t527 * t547;
24367   t69070 = t4959 * t69068 * t209;
24368   t69077 = t18266 * t18311;
24369   t69081 = t4974 * t5115 * t1734;
24370   t69087 = t4977 * t4984 * t1668 * t547;
24371   t69090 = t18265 * t5115;
24372   t69094 = t4986 * t18303 * t18307;
24373   t69099 = t18225 * t29967 * t18228;
24374   t69101 = t4978 * t7024;
24375   t69103 = t4977 * t69101 * t18223;
24376   t69109 = 0.16e2 * t69039 * t12892 - t69043 * t18244 / 0.108e3 - t18225 * t18226 * t18227 * t1621 / 0.768e3 + t69051 * t18226 * t18227 * t1673 / 0.384e3 + t18241 * t18226 * t18242 * t1536 / 0.1152e4 + t69060 * t18293 / 0.192e3 + t18290 * t210 * t276 * t277 * t1754 / 0.384e3 + t69070 * t18229 / 0.72e2 - t18225 * t18226 * t18227 * t1717 / 0.768e3 - t69077 * t18313 / 0.576e3 - 0.16e2 * t69081 * t14262 * t12906 - t69087 * t18300 / 0.36e2 - 0.8e1 * t69090 * t18278 + t69094 / 0.108e3 + t18286 * t18304 / 0.72e2 - t69099 / 0.576e3 - t69103 * t210 * t276 * t277 * t1736 / 0.128e3;
24377   t69111 = t4977 * t4979 * t69068;
24378   t69116 = t18290 * t210 * t229 * t18291;
24379   t69118 = t1734 * t6817;
24380   t69119 = t4967 * t1620;
24381   t69124 = t18286 * t18308;
24382   t69129 = t4986 * t4987 * t586 * t474 / 0.3456e4;
24383   t69133 = t4962 * t1616 * t18248;
24384   t69151 = t4973 * t1727 * t4976;
24385   t69160 = t529 * t532;
24386   t69161 = t4958 * t1164 * t527 * t69160;
24387   t69162 = t276 * t18242;
24388   t69167 = t18269 * t18275 * t529;
24389   t69173 = t18269 * t18281 * t529;
24390   t69185 = t18241 * t29967 * t18243;
24391   t69187 = -t69111 * t18293 / 0.36e2 + t69116 / 0.288e3 + 0.12e2 * t18269 * t69118 * t69119 * t1672 - t69124 / 0.576e3 + t69129 + t18234 * t18249 / 0.72e2 - t69133 / 0.576e3 - 0.12e2 * t69090 * t18272 - 0.19e2 / 0.432e3 * t4986 * t6887 * t208 * t4988 + t4962 * t533 * t474 * t1734 * t1736 / 0.384e3 - 0.24e2 * t18269 * t18270 * t3854 * t3843 - t69151 * t4985 * t4989 / 0.768e3 + 0.2e1 * t18261 * t3858 * t1717 - t69161 * t69162 * t1685 / 0.576e3 - t69167 * t2578 * t18291 * t540 / 0.96e2 + t69173 * t2578 * t559 * t577 * t476 / 0.288e3 - t4962 * t533 * t474 * t570 * t1754 / 0.768e3 + t69185 / 0.864e3;
24392   t69193 = t3843 * t3843;
24393   t69205 = t209 * t105;
24394   t69207 = t18298 * t69205 * t541;
24395   t69213 = t265 * t577;
24396   t69218 = t570 * t475;
24397   t69226 = t4977 * t4984 * t6817 * t273;
24398   t69230 = t18266 * t18297;
24399   t69237 = t4977 * t4984 * t69068;
24400   t69241 = t18312 * t69205 * t561;
24401   t69253 = t4974 * t5115 * t7024;
24402   t69254 = t1668 * t4967;
24403   t69258 = 0.4e1 * t18269 * t18281 * t1156 * t12859 - 0.4e1 * t1159 * t69193 * t1162 * t4970 - 0.4e1 * t18269 * t18275 * t4967 * t1716 * t265 + 0.8e1 * t69039 * t12907 + t69207 / 0.288e3 + t18298 * t18299 * t1622 / 0.384e3 + t18225 * t4988 * t570 * t539 * t69213 / 0.384e3 - t18241 * t1684 * t69218 * t413 * t577 / 0.576e3 - t69226 * t18299 * t1674 / 0.128e3 + t69230 * t18300 / 0.192e3 + t18298 * t18299 * t1718 / 0.384e3 + t69237 * t18313 / 0.108e3 - t69241 / 0.864e3 - 0.8e1 * t18261 * t18281 * t12887 + t18312 * t18299 * t1612 / 0.576e3 - 0.4e1 * t18261 * t12899 * t1673 + 0.24e2 * t69253 * t69254 * t12887;
24404   t69259 = t1164 * t7024;
24405   t69266 = t1697 * t288;
24406   t69272 = t18269 * t12899 * t529;
24407   t69295 = t18234 * t18237;
24408   t69299 = t4962 * t6896 * t4963 / 0.3456e4;
24409   t69300 = t27558 * t527;
24410   t69326 = -0.12e2 * t4969 * t69259 * t267 * t1736 - 0.4e1 * t18253 * t12918 + 0.5e1 / 0.3456e4 * t18241 * t18226 * t69266 * t1527 + t69272 * t2578 * t559 * t539 * t8641 / 0.288e3 + 0.4e1 * t4969 * t18256 * t267 * t1754 + 0.2e1 * t18261 * t3858 * t1621 + 0.2e1 * t69151 * t4981 + 0.4e1 * t4977 * t4979 * t527 * t69193 - 0.6e1 * t18269 * t18270 * t4967 * t1754 - t69295 / 0.108e3 - t69299 + 0.24e2 * t18269 * t69300 * t4967 * t1736 - 0.4e1 * t18269 * t18275 * t69119 * t265 - 0.5e1 / 0.3456e4 * t18312 * t18299 * t1699 + 0.8e1 * t69090 * t18283 + 0.19e2 / 0.432e3 * t4959 * t267 * t1660 * t61 * t4964 - t18312 * t18299 * t1692 / 0.1152e4 - t18241 * t18226 * t18242 * t1532 / 0.576e3;
24411   t69332 = t18316 * t1763;
24412   t69335 = t4992 * t7082;
24413   t69341 = t3866 * t3866;
24414   t69349 = t4995 * t27681;
24415   t69359 = t18188 * t748;
24416   t69369 = t18188 * t2093;
24417   t69373 = t5025 * t6117;
24418   t69396 = t5029 * t28769;
24419   t69403 = -0.2e1 * t13047 * t2849 * t3923 + 0.3e1 * t1768 * t18330 * t1881 - 0.3e1 * t1768 * t18338 * t1881 + 0.6e1 * t1768 * t677 * t69359 + 0.6e1 * t18330 * t1868 * t2857 - t18335 * t2082 * t2849 - 0.6e1 * t18338 * t1868 * t2857 + 0.2e1 * t18345 * t2082 * t2849 + 0.2e1 * t2090 * t2849 * t69373 - 0.6e1 * t2090 * t2849 * t69396 - 0.2e1 * t2849 * t69369 * t746 - 0.2e1 * t169 * t68396 + t169 * t68943 - 0.12e2 * t1768 * t68377 + 0.12e2 * t1768 * t68419 - 0.6e1 * t1768 * t69006 + 0.8e1 * t2849 * t68690;
24420   t69404 = my_piecewise3(t296, t169 * (t69109 + t69187 + t69258 + t69326) * t581 / 0.2e1 - t169 * t69332 * t580 + t169 * t69335 * t1761 - t169 * t18320 * t1757 / 0.2e1 - t169 * t69341 * t1763 + 0.4e1 * t14302 * t48196 * t580 - t169 * t3869 * t12920 - 0.3e1 * t169 * t69349 * t1761 + t169 * t18326 * t1757, t69403);
24421   t69410 = my_piecewise3(t359, 0, t69403);
24422   t69412 = t69410 * t46 / 0.2e1;
24423   t69413 = t18353 * t436;
24424   t69415 = t5036 * t1463 / 0.2e1;
24425   t69420 = 0.2e1 * t1473 * t4947 * t363;
24426   t69423 = t18056 * t13096;
24427   t69426 = -0.5e1 / 0.72e2 * t18055 * t69024 + 0.2e1 / 0.3e1 * t69027 + 0.4e1 / 0.3e1 * t69029 + 0.4e1 / 0.3e1 * t69031 - t69034 - 0.8e1 * t69035 - 0.8e1 * t69037 - t98 * (t69404 * t34 / 0.2e1 + t18350 * t413 + t5034 * t1454 / 0.2e1 + t69412 + t69413 + t69415) - t69420 - 0.5e1 / 0.36e2 * t68969 * t18057 - 0.5e1 / 0.36e2 * t18055 * t69423;
24428   t69430 = t69023 + t69426 + 0.2e1 / 0.3e1 * t3788 * t68063 + 0.10e2 * t13159 * t68067 + t68995 - 0.5e1 / 0.72e2 * t4929 * t68330 + t1135 * t68334 / 0.3e1 + 0.2e1 / 0.3e1 * t1135 * t68338 + 0.5e1 / 0.6e1 * t68344 * t68346 - 0.20e2 / 0.3e1 * t3762 * t68351 + t1135 * t68357 / 0.3e1 + t68184 - t68361 - 0.20e2 / 0.3e1 * t68354 + t68968 + t68290 + t68144 - 0.8e1 * t68326 + t68322 + t68392 + t68223 + t68261 + t68111 + t68697 - 0.20e2 / 0.3e1 * t68342 + 0.4e1 / 0.3e1 * t68074 + 0.2e1 / 0.3e1 * t68070 + 0.4e1 / 0.3e1 * t68072 + 0.4e1 / 0.3e1 * t68058 + 0.4e1 / 0.3e1 * t68060 + 0.4e1 / 0.3e1 * t68056 + 0.4e1 / 0.3e1 * t68052 + 0.4e1 / 0.3e1 * t68054 + t68425;
24429   t69436 = t3988 * t1224;
24430   t69438 = t1216 * t4006;
24431   t69446 = t869 * t5080;
24432   t69448 = t368 * t18509;
24433   t69453 = t3994 * t4003;
24434   t69456 = 0.3e1 * t2363 * t5077;
24435   t69459 = 0.12e2 * t369 * t96 * t68091;
24436   t69461 = 0.12e2 * t873 * t18506;
24437   t69466 = 0.12e2 * t369 * t1208 * t13155;
24438   t69467 = t13368 * t1221;
24439   t69470 = 0.24e2 * t873 * t18501;
24440   t69472 = 0.6e1 * t2363 * t5074;
24441   t69475 = 0.6e1 * t369 * t1516 * t4947;
24442   t69476 = t3994 * t4000;
24443   t69478 = t370 * t69430 * params->d + t5079 + 0.12e2 * t69453 + t69456 + t69459 + t69461 + t69466 + 0.6e1 * t69467 + t69470 + t69472 + t69475 + 0.24e2 * t69476;
24444   t69481 = 0.24e2 * t369 * t3967 * t3811;
24445   t69484 = t1219 * t13388;
24446   t69488 = t1219 * t13382;
24447   t69491 = 0.12e2 * t873 * t18498;
24448   t69494 = t1219 * t13391;
24449   t69498 = 0.6e1 * t369 * t1481 * t4954;
24450   t69499 = 0.12e2 * t18507;
24451   t69500 = t1219 * t13385;
24452   t69502 = 0.6e1 * t18504;
24453   t69505 = 0.6e1 * t369 * t5054 * t1516;
24454   t69506 = 0.6e1 * t18486 * t875 + 0.6e1 * t2367 * t5070 + 0.3e1 * t2370 * t5070 + t69481 + 0.12e2 * t69484 + 0.12e2 * t69488 + t69491 + 0.6e1 * t69494 + t69498 + t69499 + 0.24e2 * t69500 + t69502 + t69505;
24455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24456     v4rho2sigma2[0] = 0.2e1 * t68048 + 0.2e1 * t68050 + t7 * t69430 * t372 + 0.2e1 * t18475 * t878 + t5066 * t2373 + 0.4e1 * t69436 + 0.4e1 * t69438 + 0.2e1 * t13356 * t1224 + 0.4e1 * t3989 * t4006 + 0.2e1 * t1217 * t13394 + 0.2e1 * t69446 + 0.2e1 * t69448 + t2359 * t5080 + 0.2e1 * t870 * t18509 + t872 * (t69478 + t69506);
24457 
24458   t69509 = t1216 * t4149;
24459   t69511 = t4131 * t1224;
24460   t69513 = t869 * t5175;
24461   t69517 = 0.3e1 * t13770 * t1221;
24462   t69521 = 0.6e1 * t4137 * t4003;
24463   t69529 = 0.12e2 * t1267 * t13385;
24464   t69531 = 0.12e2 * t873 * t18888;
24465   t69533 = 0.12e2 * t873 * t18894;
24466   t69537 = 0.12e2 * t873 * t18891;
24467   t69539 = 0.6e1 * t1267 * t13382;
24468   t69543 = 0.12e2 * t4137 * t4000;
24469   t69544 = 0.12e2 * t1219 * t13787 + 0.6e1 * t1219 * t13790 + 0.3e1 * t1219 * t13793 + 0.3e1 * t1269 * t13368 + 0.6e1 * t2367 * t5166 + 0.12e2 * t3994 * t4143 + t5079 + t69456 + t69461 + t69517 + t69521 + t69529 + t69531 + t69533 + t69537 + t69539 + t69543;
24470   t69547 = 0.6e1 * t369 * t1258 * t13155;
24471   t69550 = 0.6e1 * t369 * t13742 * t1143;
24472   t69553 = 0.12e2 * t369 * t4117 * t3811;
24473   t69555 = 0.3e1 * t1267 * t13391;
24474   t69558 = 0.6e1 * t369 * t13736 * t1143;
24475   t69561 = 0.12e2 * t369 * t13739 * t1143;
24476   t69564 = 0.12e2 * t369 * t4114 * t3811;
24477   t69568 = 0.6e1 * t2363 * t5172;
24478   t69573 = t3958 * t18534;
24479   t69577 = t1204 * t465 * t4041;
24480   t69581 = t1204 * t12780 * t4041;
24481   t69590 = t3958 * t18718;
24482   t69593 = t3958 * t18723;
24483   t69597 = 0.2e1 / 0.3e1 * t4026 * t68080;
24484   t69599 = 0.4e1 / 0.3e1 * t13412 * t18202;
24485   t69601 = 0.4e1 / 0.3e1 * t13424 * t18202;
24486   t69603 = t5044 * t47221 * t1133;
24487   t69607 = t18560 * t18544 * t1516;
24488   t69613 = t18543 * t18544 * t1470;
24489   t69619 = 0.20e2 / 0.3e1 * t4013 * t68162;
24490   t69620 = 0.2e1 / 0.3e1 * t3788 * t69573 + 0.2e1 / 0.3e1 * t3788 * t69577 + 0.2e1 / 0.3e1 * t3788 * t69581 + 0.2e1 / 0.3e1 * t12758 * t18715 + 0.2e1 / 0.3e1 * t12758 * t18719 + 0.2e1 / 0.3e1 * t12758 * t18724 + 0.2e1 / 0.3e1 * t3788 * t69590 + 0.2e1 / 0.3e1 * t3788 * t69593 - t69597 - t69599 - t69601 + 0.5e1 / 0.36e2 * t5084 * t69603 + 0.5e1 / 0.36e2 * t5084 * t69607 - 0.4e1 * t1476 * t18565 - 0.5e1 / 0.12e2 * t18542 * t69613 + 0.2e1 / 0.3e1 * t13167 * t18535 + t69619;
24491   t69622 = 0.10e2 / 0.3e1 * t4013 * t68241;
24492   t69624 = 0.4e1 / 0.3e1 * t4026 * t68194;
24493   t69626 = 0.2e1 / 0.3e1 * t4026 * t68178;
24494   t69628 = 0.4e1 / 0.3e1 * t4026 * t68181;
24495   t69630 = 0.4e1 / 0.3e1 * t4026 * t68175;
24496   t69636 = 0.4e1 / 0.3e1 * t4026 * t68301;
24497   t69638 = 0.4e1 / 0.3e1 * t4026 * t68305;
24498   t69640 = 0.4e1 / 0.3e1 * t4026 * t68309;
24499   t69642 = t18543 * t18544 * t1406;
24500   t69648 = t12791 * t1232 * t1470;
24501   t69653 = t12791 * t1252 * t443 * t464;
24502   t69657 = t1204 * t47272 * t1231;
24503   t69665 = t18679 * t18051;
24504   t69667 = t69622 - t69624 - t69626 - t69628 - t69630 + t47240 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t47861 * t5094 - t69636 - t69638 - t69640 + 0.5e1 / 0.36e2 * t18550 * t69642 + 0.20e2 / 0.3e1 * t4013 * t68351 - 0.5e1 / 0.3e1 * t3762 * t69648 - 0.10e2 / 0.3e1 * t3762 * t69653 + t3788 * t69657 / 0.3e1 + 0.5e1 / 0.36e2 * t1397 * t68095 * t57 * t114 * t5086 - 0.10e2 / 0.27e2 * t69665;
24505   t69676 = t1204 * t18732 * t1516;
24506   t69680 = 0.176e3 / 0.27e2 * t48960 * t4940;
24507   t69681 = t13453 * t18202;
24508   t69682 = 0.32e2 / 0.9e1 * t69681;
24509   t69684 = t1204 * t1517 * t1231;
24510   t69688 = t1204 * t1485 * t1231;
24511   t69692 = 0.2e1 / 0.3e1 * t4026 * t68204;
24512   t69708 = 0.2e1 / 0.3e1 * t4026 * t68148;
24513   t69709 = 0.5e1 / 0.36e2 * t5084 * t68108 - 0.5e1 / 0.3e1 * t13164 * t18729 + 0.2e1 / 0.3e1 * t13167 * t18734 + t3788 * t69676 / 0.3e1 - t69680 + t69682 + t3788 * t69684 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t69688 - t69692 + t13111 * t5104 / 0.6e1 + t13115 * t5104 / 0.3e1 + t3769 * t18754 / 0.3e1 + t3769 * t18758 / 0.3e1 - t13642 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t12758 * t18535 + 0.2e1 / 0.3e1 * t12788 * t18535 - t69708;
24514   t69711 = t1214 * t1244 * t48474;
24515   t69728 = 0.4e1 / 0.3e1 * t13424 * t18079;
24516   t69729 = t3958 * t18733;
24517   t69732 = t97 * t4090;
24518   t69734 = t1204 * t69732 * t443;
24519   t69739 = t47494 * t18538;
24520   t69747 = 0.20e2 * t13415 * t68101;
24521   t69748 = t13419 * t18064;
24522   t69749 = 0.160e3 / 0.9e1 * t69748;
24523   t69751 = 0.4e1 / 0.3e1 * t13412 * t18071;
24524   t69752 = -t69711 + 0.2e1 / 0.3e1 * t47189 * t5094 + 0.2e1 / 0.3e1 * t47192 * t5094 + 0.2e1 / 0.3e1 * t13167 * t18715 + 0.2e1 / 0.3e1 * t13167 * t18719 + 0.2e1 / 0.3e1 * t13167 * t18724 + 0.5e1 / 0.72e2 * t26398 * t5083 * t5086 + 0.5e1 / 0.36e2 * t18527 * t18531 - t69728 + 0.2e1 / 0.3e1 * t3788 * t69729 - 0.5e1 / 0.3e1 * t3762 * t69734 + t47324 * t5094 / 0.3e1 - 0.10e2 / 0.3e1 * t3762 * t69739 + 0.5e1 / 0.18e2 * t5084 * t68233 + 0.5e1 / 0.18e2 * t5084 * t68237 - t69747 - t69749 - t69751;
24525   t69756 = 0.4e1 / 0.3e1 * t13412 * t18075;
24526   t69758 = 0.4e1 / 0.3e1 * t13412 * t18079;
24527   t69770 = 0.4e1 / 0.3e1 * t13424 * t18071;
24528   t69773 = t3958 * t18728;
24529   t69777 = 0.4e1 / 0.3e1 * t13424 * t18075;
24530   t69779 = t12791 * t4042 * t443;
24531   t69785 = t1204 * t18727 * t1470;
24532   t69789 = t1204 * t18727 * t1398;
24533   t69795 = 0.2e1 / 0.3e1 * t48929 * t4940;
24534   t69796 = -t69756 - t69758 - 0.2e1 / 0.3e1 * t4026 * t68063 - 0.4e1 / 0.3e1 * t13412 * t18212 - 0.4e1 / 0.3e1 * t13424 * t18212 - 0.4e1 / 0.3e1 * t4026 * t68167 - 0.4e1 / 0.3e1 * t4026 * t68172 - t69770 + 0.2e1 / 0.3e1 * t12788 * t18734 - 0.5e1 / 0.3e1 * t3762 * t69773 - t69777 - 0.10e2 / 0.3e1 * t3762 * t69779 - 0.10e2 / 0.3e1 * t12765 * t18539 - 0.5e1 / 0.6e1 * t3762 * t69785 + 0.5e1 * t13159 * t69789 + 0.5e1 / 0.72e2 * t5084 * t68686 - t69795;
24535   t69798 = 0.4e1 / 0.3e1 * t48902 * t4940;
24536   t69800 = t3946 * t18538;
24537   t69803 = t18679 * t18557;
24538   t69805 = t18679 * t18562;
24539   t69809 = t18617 * t7870;
24540   t69811 = 0.6e1 * t13345 * t69809;
24541   t69815 = t1204 * t3789 * t13435;
24542   t69819 = t5044 * t47197 * t1133;
24543   t69827 = 0.20e2 / 0.3e1 * t13409 * t18064;
24544   t69828 = t68538 * t5085;
24545   t69833 = t13419 * t18207;
24546   t69839 = 0.55e2 / 0.81e2 * t1397 * t4926 * t202 * t114 * t5086;
24547   t69840 = -t69798 + t5152 * t2101 - 0.10e2 / 0.3e1 * t3762 * t69800 - 0.20e2 / 0.27e2 * t69803 - 0.20e2 / 0.27e2 * t69805 - 0.2e1 / 0.3e1 * t13645 * t4944 - t69811 + 0.5e1 / 0.36e2 * t18527 * t18051 + t3788 * t69815 / 0.3e1 + 0.5e1 / 0.72e2 * t5084 * t69819 + 0.2e1 * t18853 * t751 - t1227 * t68334 / 0.3e1 + t69827 + 0.5e1 / 0.36e2 * t5084 * t69828 - 0.10e2 * t13415 * t68067 - 0.80e2 / 0.9e1 * t69833 + t69839;
24548   t69849 = 0.12e2 * t13345 * t13542 * t18521 * t746;
24549   t69850 = t173 * t5123;
24550   t69853 = 0.6e1 * t1214 * t69850 * t13106;
24551   t69855 = 0.3e1 * t5155 * t13131;
24552   t69858 = 0.2e1 * t449 * t1252 * t13155;
24553   t69860 = t1397 * t4020 * t114;
24554   t69861 = t69860 * t18552;
24555   t69864 = t12791 * t4035 * t443;
24556   t69870 = 0.6e1 * t3977 * t18661;
24557   t69877 = 0.5e1 / 0.18e2 * t18527 * t18557 + 0.5e1 / 0.18e2 * t18527 * t18562 + t69849 + t69853 + t69855 - t69858 - 0.20e2 / 0.27e2 * t69861 - 0.10e2 / 0.3e1 * t3762 * t69864 - 0.10e2 / 0.3e1 * t12761 * t18539 - t68274 + t69870 - t68283 - t68285 - t68287 + t47280 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t18715 + 0.2e1 / 0.3e1 * t12788 * t18719;
24558   t69880 = t48687 * t4940;
24559   t69881 = 0.32e2 / 0.9e1 * t69880;
24560   t69882 = t48705 * t4940;
24561   t69883 = 0.32e2 / 0.9e1 * t69882;
24562   t69884 = t13453 * t18071;
24563   t69885 = 0.32e2 / 0.9e1 * t69884;
24564   t69886 = t13453 * t18075;
24565   t69887 = 0.32e2 / 0.9e1 * t69886;
24566   t69888 = t13453 * t18079;
24567   t69889 = 0.32e2 / 0.9e1 * t69888;
24568   t69893 = t5111 * t13010;
24569   t69899 = 0.7e1 / 0.288e3 * t68706;
24570   t69900 = t15258 * t1181;
24571   t69912 = 0.7e1 / 0.144e3 * t68735;
24572   t69913 = 0.7e1 / 0.576e3 * t68737;
24573   t69914 = 0.119e3 / 0.3456e4 * t68739;
24574   t69925 = -0.4e1 * t18596 * t15258 * t13038 - 0.8e1 * t69893 * t13015 + 0.12e2 * t18596 * t54025 * t13028 - t69899 + 0.24e2 * t68725 * t69900 * t13014 - 0.12e2 * t18588 * t18592 + 0.4e1 * t18581 * t13023 - 0.6e1 * t5116 * t18150 * t5118 * t2079 + t69912 + t69913 - t69914 + 0.5e1 / 0.192e3 * t68743 - t68747 / 0.192e3 + 0.24e2 * t5116 * t68925 * t5118 * t2061 + 0.4e1 * t18581 * t13034 - 0.4e1 * t18578 * t3917;
24575   t69938 = t18577 * t3851;
24576   t69954 = t18146 * t18595;
24577   t69965 = 0.119e3 / 0.3456e4 * t68751;
24578   t69970 = -0.12e2 * t5116 * t18150 * t18600 * t743 - 0.12e2 * t5116 * t18150 * t18604 * t743 + 0.2e1 * t5116 * t5117 * t1237 * t12986 + 0.8e1 * t69938 * t3908 - 0.2e1 * t1159 * t13482 * t1162 * t1188 - 0.4e1 * t18596 * t15258 * t13041 - 0.8e1 * t18596 * t54080 * t3913 - 0.8e1 * t18596 * t15258 * t13033 - 0.8e1 * t69954 * t18597 + 0.2e1 * t5116 * t5117 * t13482 * t1181 + 0.4e1 * t5116 * t5117 * t4058 * t3897 + t69965 - t68758 / 0.96e2 - t68763 / 0.48e2 + t68765 / 0.384e3 + t68768 / 0.192e3;
24579   t69988 = 0.7e1 / 0.288e3 * t68844;
24580   t69989 = 0.7e1 / 0.576e3 * t68849;
24581   t69991 = -t68775 / 0.48e2 + t68780 / 0.384e3 - t68784 / 0.768e3 + 0.2e1 * t18581 * t13039 - 0.2e1 * t5112 * t13045 + t68793 / 0.192e3 + 0.4e1 * t69938 * t3914 + t68800 / 0.96e2 + t68808 / 0.384e3 - t68813 / 0.128e3 + t68815 / 0.384e3 + t68833 / 0.96e2 - t68841 / 0.128e3 - t69988 + t69989 - t68853 / 0.768e3;
24582   t69992 = 0.7e1 / 0.576e3 * t68855;
24583   t70008 = 0.7e1 / 0.144e3 * t68898;
24584   t70016 = t69992 - t68859 / 0.768e3 + t68864 / 0.384e3 + 0.2e1 * t68720 * t5115 * t5119 + 0.4e1 * t18588 * t18601 + 0.4e1 * t18588 * t18605 - 0.5e1 / 0.192e3 * t68877 + t68884 / 0.384e3 - 0.4e1 * t18581 * t13029 + 0.2e1 * t18581 * t13042 - t70008 + t68903 / 0.192e3 + t68907 / 0.96e2 - t68910 / 0.768e3 - 0.12e2 * t18581 * t13007 + 0.8e1 * t18581 * t13019;
24585   t70020 = t175 * (t69925 + t69970 + t69991 + t70016) * t748;
24586   t70021 = t1214 * t70020;
24587   t70024 = t4079 * t50680;
24588   t70026 = 0.6e1 * t14821 * t70024;
24589   t70028 = 0.6e1 * t47378 * t18522;
24590   t70029 = t5154 * t13344;
24591   t70031 = 0.6e1 * t70029 * t12941;
24592   t70032 = t13538 * t18521;
24593   t70034 = 0.6e1 * t13345 * t70032;
24594   t70037 = t13542 * t68689;
24595   t70039 = 0.4e1 * t14484 * t70037;
24596   t70040 = t13453 * t18212;
24597   t70045 = t6445 * t18678 * t5086;
24598   t70047 = t13336 * t5093;
24599   t70050 = 0.2e1 / 0.3e1 * t12788 * t18724 + t69881 + t69883 + t69885 + t69887 + t69889 + t70021 - 0.6e1 * t68373 * t13463 - t70026 - t70028 - t70031 - t70034 + 0.2e1 * t5060 * t13585 + t70039 + 0.32e2 / 0.9e1 * t70040 + 0.5e1 / 0.3e1 * t4013 * t68984 - 0.10e2 / 0.27e2 * t70045 + t3788 * t70047 / 0.3e1;
24600   t70058 = 0.3e1 * t1214 * t18660 * t13130;
24601   t70063 = 0.2e1 * t449 * t13561 * t1143;
24602   t70066 = t5137 * t4931;
24603   t70067 = t50650 * t70066;
24604   t70068 = t1133 * t443;
24605   t70069 = t70068 * t404;
24606   t70070 = t4935 * t70069;
24607   t70073 = t6453 * t4926;
24608   t70074 = t70073 * t70066;
24609   t70075 = t70068 * t439;
24610   t70076 = t1137 * t70075;
24611   t70080 = t4933 * t96 * t363;
24612   t70081 = t70068 * t464;
24613   t70082 = t70080 * t70081;
24614   t70085 = t1397 * t25;
24615   t70086 = t70085 * t70066;
24616   t70087 = t3768 * t439;
24617   t70088 = t1137 * t70087;
24618   t70091 = t3768 * t464;
24619   t70092 = t70080 * t70091;
24620   t70095 = t13214 * t5125;
24621   t70097 = 0.2e1 * t5155 * t13180;
24622   t70099 = 0.6e1 * t18738 * t3981;
24623   t70101 = t1214 * t13535 * t3923;
24624   t70104 = t48999 * t18624;
24625   t70106 = 0.4e1 * t14484 * t70104;
24626   t70108 = -0.2e1 / 0.3e1 * t1227 * t68364 + t70058 + 0.3e1 * t5060 * t13448 - t70063 - 0.4e1 * t2448 * t18565 - 0.5e1 / 0.3e1 * t70067 * t70070 - 0.5e1 / 0.3e1 * t70074 * t70076 - 0.5e1 / 0.3e1 * t70074 * t70082 + 0.5e1 / 0.9e1 * t70086 * t70088 + 0.5e1 / 0.9e1 * t70086 * t70092 + t70095 - t70097 + t70099 - t70101 - 0.10e2 / 0.3e1 * t13164 * t18539 + t70106 - t5060 * t13636;
24627   t70114 = 0.2e1 * t5155 * t13139;
24628   t70120 = t96 * t4090;
24629   t70122 = t1204 * t70120 * t464;
24630   t70131 = t857 * t1133;
24631   t70133 = t18543 * t70131 * t443;
24632   t70137 = t18543 * t70131 * t404;
24633   t70141 = t66 * t1136 * t13561;
24634   t70147 = t66 * t13091 * t1252;
24635   t70151 = t66 * t3783 * t4090;
24636   t70158 = -0.5e1 / 0.6e1 * t18542 * t68158 + 0.5e1 / 0.18e2 * t18550 * t68229 + t70114 - 0.4e1 * t1476 * t18765 - 0.2e1 * t449 * t1199 * t13435 + 0.2e1 / 0.3e1 * t3788 * t70122 + t3758 * t18758 / 0.3e1 - 0.2e1 / 0.3e1 * t4009 * t18456 - 0.2e1 / 0.3e1 * t4009 * t18460 - 0.5e1 / 0.6e1 * t18542 * t70133 + 0.5e1 / 0.18e2 * t18550 * t70137 + t1135 * t70141 / 0.6e1 - 0.2e1 / 0.3e1 * t1227 * t68338 + t1135 * t70147 / 0.6e1 + t1135 * t70151 / 0.3e1 - t1227 * t68357 / 0.3e1 + t13196 * t5104 / 0.6e1;
24637   t70171 = 0.2e1 * t3977 * t18615;
24638   t70172 = t1397 * t4926;
24639   t70173 = t70172 * t70066;
24640   t70174 = t1133 * t439;
24641   t70175 = t70174 * t464;
24642   t70176 = t50654 * t70175;
24643   t70179 = t13592 * t4944;
24644   t70181 = t13639 * t4944;
24645   t70183 = t4021 * t18456;
24646   t70185 = t4021 * t18460;
24647   t70190 = 0.2e1 * t18738 * t3921;
24648   t70191 = t5155 * t13049;
24649   t70193 = 0.2e1 * t6587 * t5107;
24650   t70196 = t3780 * t18754 / 0.3e1 + t3780 * t18758 / 0.3e1 - t13618 * t4944 / 0.3e1 - 0.2e1 / 0.3e1 * t4017 * t18456 - 0.2e1 / 0.3e1 * t4017 * t18460 + t70171 + 0.5e1 / 0.9e1 * t70173 * t70176 + 0.16e2 / 0.9e1 * t70179 + 0.16e2 / 0.9e1 * t70181 + 0.16e2 / 0.9e1 * t70183 + 0.16e2 / 0.9e1 * t70185 - t4957 + t13088 * t5104 / 0.3e1 + t70190 + t70191 - t70193 - 0.4e1 * t7847 * t5100;
24651   t70205 = 0.4e1 * t52755 * t18625;
24652   t70207 = t13542 * t1190 * t2082;
24653   t70209 = 0.2e1 * t14484 * t70207;
24654   t70213 = t66 * t13080 * t1252;
24655   t70217 = 0.88e2 / 0.27e2 * t13626 * t4944;
24656   t70220 = 0.2e1 * t449 * t5135 * t1516;
24657   t70221 = t49234 * t18390;
24658   t70222 = 0.160e3 / 0.9e1 * t70221;
24659   t70224 = t1397 * t18367 * t423;
24660   t70225 = t70224 * t18825;
24661   t70227 = t1397 * t53504;
24662   t70228 = t70227 * t18830;
24663   t70231 = t4932 * t18774 * t1406;
24664   t70234 = t5041 * t423;
24665   t70235 = t1397 * t70234;
24666   t70236 = t70235 * t18836;
24667   t70240 = 0.2e1 * t81 * t1143 * t13435;
24668   t70242 = t4932 * t18774 * t1470;
24669   t70246 = t4932 * t18774 * t1516;
24670   t70251 = 0.16e2 * t400 * t18843 * t443;
24671   t70254 = 0.16e2 * t400 * t18846 * t443;
24672   t70257 = 0.8e1 * t400 * t5149 * t1470;
24673   t70259 = t1397 * t4114 * t25;
24674   t70263 = t1397 * t4117 * t25;
24675   t70267 = t1397 * t1258 * t404;
24676   t70270 = t70222 + 0.20e2 / 0.27e2 * t70225 + 0.20e2 / 0.27e2 * t70228 - 0.5e1 / 0.36e2 * t18828 * t70231 + 0.20e2 / 0.27e2 * t70236 + t70240 + 0.5e1 / 0.12e2 * t18773 * t70242 - 0.5e1 / 0.36e2 * t18823 * t70246 - t70251 - t70254 - t70257 + 0.10e2 / 0.3e1 * t70259 * t3941 + 0.10e2 / 0.3e1 * t70263 * t3941 + 0.10e2 / 0.3e1 * t70267 * t3941;
24677   t70271 = t4932 * t73;
24678   t70272 = t70271 * t70087;
24679   t70275 = t70271 * t70175;
24680   t70281 = 0.20e2 / 0.3e1 * t53259 * t18390;
24681   t70283 = 0.20e2 / 0.3e1 * t49383 * t18390;
24682   t70285 = t4932 * t18834 * t1466;
24683   t70289 = 0.10e2 / 0.3e1 * t13663 * t68452;
24684   t70290 = t6445 * t18772;
24685   t70299 = t68479 - t68481 - 0.5e1 / 0.9e1 * t18828 * t70272 - 0.5e1 / 0.9e1 * t18823 * t70275 - 0.5e1 / 0.18e2 * t18833 * t68512 - t70281 - t70283 - 0.5e1 / 0.36e2 * t18833 * t70285 - t70289 - 0.5e1 / 0.18e2 * t70290 * t18836 + 0.5e1 / 0.6e1 * t18773 * t68592 - 0.5e1 / 0.18e2 * t18823 * t68486 - 0.5e1 / 0.18e2 * t18828 * t68498 - t68517;
24686   t70303 = 0.40e2 * t1397 * t5149 * t1398;
24687   t70305 = 0.16e2 * t1392 * t18849;
24688   t70306 = t6453 * t18768;
24689   t70309 = t26389 * t18772;
24690   t70311 = t4932 * t18774 * t1398;
24691   t70314 = t6453 * t70234;
24692   t70315 = t70314 * t18776;
24693   t70319 = t26602 * t18772;
24694   t70322 = t6445 * t18822;
24695   t70325 = t6445 * t15098;
24696   t70329 = 0.20e2 / 0.3e1 * t13663 * t68443;
24697   t70331 = t5042 * t18799 * t18378;
24698   t70336 = -t68521 + t70303 - t70305 + t5056 - 0.10e2 * t70306 * t13253 - 0.35e2 / 0.12e2 * t70309 * t70311 - 0.20e2 / 0.9e1 * t70315 + 0.5e1 / 0.3e1 * t18769 * t13277 + 0.5e1 / 0.6e1 * t70319 * t18776 - 0.5e1 / 0.18e2 * t70322 * t18825 - 0.5e1 / 0.18e2 * t70325 * t18830 - t70329 + 0.10e2 / 0.27e2 * t70331 - t400 * t13742 * t5146 / 0.3e1;
24699   t70338 = 0.4e1 / 0.3e1 * t13263 * t18790;
24700   t70340 = 0.4e1 / 0.3e1 * t13263 * t18793;
24701   t70342 = 0.2e1 / 0.3e1 * t52195 * t5142;
24702   t70344 = 0.4e1 / 0.3e1 * t52199 * t5142;
24703   t70361 = t18359 * t18800;
24704   t70364 = t3945 * t4102 * t18400;
24705   t70365 = 0.32e2 / 0.9e1 * t70364;
24706   t70366 = -t68522 + t70338 + t70340 + t70342 + t70344 - 0.2e1 / 0.3e1 * t18796 * t18816 - 0.2e1 / 0.3e1 * t18796 * t18819 - t400 * t13736 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t400 * t13739 * t5146 - 0.2e1 / 0.3e1 * t18806 * t18813 - 0.2e1 / 0.3e1 * t18806 * t18816 - 0.2e1 / 0.3e1 * t18806 * t18819 + 0.10e2 / 0.27e2 * t70361 - t70365;
24707   t70370 = t3945 * t4102 * t18404;
24708   t70371 = 0.32e2 / 0.9e1 * t70370;
24709   t70372 = t13263 * t18803;
24710   t70373 = 0.32e2 / 0.9e1 * t70372;
24711   t70374 = t14624 * t18803;
24712   t70375 = 0.32e2 / 0.9e1 * t70374;
24713   t70376 = t13281 * t18803;
24714   t70377 = 0.32e2 / 0.9e1 * t70376;
24715   t70378 = t68538 * t1133;
24716   t70384 = 0.176e3 / 0.27e2 * t3945 * t13726 * t5048;
24717   t70390 = 0.20e2 * t49228 * t68463;
24718   t70393 = 0.2e1 / 0.3e1 * t3945 * t1254 * t68564;
24719   t70405 = -t70371 - t70373 - t70375 - t70377 - 0.5e1 / 0.36e2 * t5042 * t5137 * t70378 + t70384 + 0.10e2 / 0.3e1 * t18769 * t13269 + 0.10e2 / 0.3e1 * t18769 * t13273 + t70390 + t70393 - t6442 * t1258 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t1392 * t4114 * t5146 - 0.2e1 / 0.3e1 * t1392 * t4117 * t5146 - 0.2e1 / 0.3e1 * t18796 * t18813;
24720   t70411 = 0.55e2 / 0.81e2 * t5042 * t202 * t114 * t5138;
24721   t70413 = 0.4e1 / 0.3e1 * t13281 * t18790;
24722   t70415 = 0.4e1 / 0.3e1 * t13281 * t18793;
24723   t70418 = 0.2e1 / 0.3e1 * t3945 * t1254 * t68556;
24724   t70421 = 0.4e1 / 0.3e1 * t3945 * t1254 * t68560;
24725   t70422 = t3779 * t440;
24726   t70425 = t1134 * t1467;
24727   t70429 = 0.4e1 / 0.3e1 * t14624 * t18790;
24728   t70431 = 0.4e1 / 0.3e1 * t14624 * t18793;
24729   t70433 = 0.2e1 / 0.3e1 * t47710 * t5142;
24730   t70440 = -0.5e1 / 0.36e2 * t68531 * t5139 - t70411 + t70413 + t70415 + t70418 + t70421 - 0.2e1 / 0.3e1 * t5145 * t70422 - t5145 * t70425 / 0.3e1 + t70429 + t70431 + t70433 - 0.5e1 / 0.36e2 * t68527 * t5139 - 0.5e1 / 0.72e2 * t68523 * t5139 - 0.5e1 / 0.36e2 * t18359 * t18781;
24731   t70446 = 0.2e1 / 0.3e1 * t47724 * t5142;
24732   t70448 = 0.4e1 / 0.3e1 * t52182 * t5142;
24733   t70450 = 0.4e1 / 0.3e1 * t47726 * t5142;
24734   t70451 = t6453 * t18822;
24735   t70452 = t23764 * t70081;
24736   t70455 = t23764 * t70069;
24737   t70458 = t70271 * t70075;
24738   t70461 = t23764 * t70091;
24739   t70465 = 0.2e1 * t1391 * t5149;
24740   t70467 = 0.4e1 * t397 * t18843;
24741   t70469 = 0.4e1 * t397 * t18846;
24742   t70472 = 0.2e1 * t81 * t13155 * t1231;
24743   t70473 = -0.5e1 / 0.72e2 * t5042 * t5137 * t68664 + t70446 + t70448 + t70450 + t68607 + t68608 + 0.5e1 / 0.3e1 * t70451 * t70452 + 0.5e1 / 0.3e1 * t15099 * t70455 + 0.5e1 / 0.3e1 * t18773 * t70458 - 0.5e1 / 0.9e1 * t13663 * t70461 + t70465 + t70467 + t70469 + t70472;
24744   t70476 = 0.4e1 * t81 * t3811 * t4041;
24745   t70478 = 0.20e2 / 0.3e1 * t13663 * t68448;
24746   t70479 = t6445 * t18768;
24747   t70483 = 0.20e2 / 0.3e1 * t49379 * t18390;
24748   t70490 = t13110 * t74;
24749   t70493 = t13114 * t74;
24750   t70496 = t3768 * t440;
24751   t70499 = t13195 * t74;
24752   t70502 = t70476 - t70478 + 0.10e2 / 0.3e1 * t70479 * t3941 - t70483 - 0.2e1 / 0.3e1 * t18809 * t18813 - 0.2e1 / 0.3e1 * t18809 * t18816 - 0.2e1 / 0.3e1 * t18809 * t18819 - t5145 * t70490 / 0.3e1 - 0.2e1 / 0.3e1 * t5145 * t70493 - 0.2e1 / 0.3e1 * t5145 * t70496 - t5145 * t70499 / 0.3e1 + t68638 + t68640 + t68651;
24753   t70508 = t18555 * t18544 * t1466;
24754   t70513 = 0.20e2 / 0.3e1 * t4013 * t68956;
24755   t70514 = t26602 * t5083;
24756   t70517 = t6445 * t18549;
24757   t70520 = -0.2e1 * t8308 * t5100 - 0.4e1 * t2448 * t18765 - 0.2e1 * t449 * t13074 * t1231 - t68409 - t68410 - t68411 + t70205 + t70209 - 0.2e1 * t6587 * t5100 + t1135 * t70213 / 0.3e1 - t70217 - t70220 + (t70270 + t70299 + t70336 + t70366 + t70405 + t70440 + t70473 + t70502) * t227 + 0.5e1 / 0.36e2 * t5084 * t70508 + t68292 * t1245 + t70513 - 0.5e1 / 0.6e1 * t70514 * t18546 + 0.5e1 / 0.18e2 * t70517 * t18552;
24758   t70524 = 0.4e1 * t1476 * t18651;
24759   t70526 = 0.4e1 * t2448 * t18651;
24760   t70529 = 0.4e1 * t449 * t4090 * t3811;
24761   t70533 = 0.4e1 * t18640 * t4042;
24762   t70535 = 0.4e1 * t7847 * t5107;
24763   t70537 = 0.20e2 / 0.3e1 * t13402 * t18064;
24764   t70539 = 0.20e2 / 0.3e1 * t4013 * t69016;
24765   t70541 = 0.20e2 / 0.3e1 * t4013 * t68341;
24766   t70551 = 0.2e1 * t18738 * t3986;
24767   t70553 = 0.2e1 * t3977 * t18704;
24768   t70557 = t5155 * t13174;
24769   t70558 = -t70524 - t70526 - t70529 + 0.6e1 * t5060 * t13605 - t70533 - t70535 + t70537 + t70539 + t70541 + 0.10e2 / 0.3e1 * t13402 * t18207 + 0.10e2 / 0.3e1 * t4013 * t68120 + 0.10e2 / 0.3e1 * t4013 * t68125 + 0.2e1 * t18469 * t4077 - t70551 - t70553 - 0.4e1 * t449 * t3934 * t4041 - t70557;
24770   t70562 = 0.2e1 * t1482 * t5135;
24771   t70564 = t12791 * t1232 * t1398;
24772   t70567 = t26389 * t5083;
24773   t70569 = t18543 * t18544 * t1398;
24774   t70572 = t6453 * t18678;
24775   t70573 = t70572 * t18546;
24776   t70575 = t18679 * t18531;
24777   t70577 = t1473 * t1143;
24778   t70579 = 0.2e1 * t70577 * t1232;
24779   t70581 = 0.4e1 * t18654 * t4035;
24780   t70583 = 0.2e1 * t5097 * t13427;
24781   t70584 = t446 * t3811;
24782   t70586 = 0.4e1 * t70584 * t1232;
24783   t70588 = t49014 * t1190 * t2090;
24784   t70590 = 0.6e1 * t14484 * t70588;
24785   t70592 = t13746 * t167 * t168;
24786   t70593 = t70592 * t1192;
24787   t70603 = 0.2e1 / 0.3e1 * t48676 * t4940;
24788   t70606 = -0.2e1 * t18469 * t4129 - t70562 + 0.10e2 * t13159 * t70564 + 0.35e2 / 0.12e2 * t70567 * t70569 + 0.20e2 / 0.9e1 * t70573 - 0.10e2 / 0.27e2 * t70575 - t70579 - t70581 - t70583 - t70586 - t70590 + t70593 + 0.10e2 / 0.3e1 * t13409 * t18207 - 0.5e1 / 0.3e1 * t12761 * t18729 + 0.2e1 / 0.3e1 * t12758 * t18734 - 0.5e1 / 0.3e1 * t12765 * t18729 - t70603 + t13216 * t5104 / 0.3e1;
24789   t70611 = t18555 * t70131 * t439;
24790   t70615 = t18560 * t70131 * t464;
24791   t70621 = 0.6e1 * t5155 * t13107;
24792   t70623 = 0.6e1 * t5155 * t13125;
24793   t70625 = t4079 * t68376;
24794   t70627 = 0.6e1 * t13345 * t70625;
24795   t70631 = 0.2e1 * t3977 * t18741;
24796   t70634 = 0.2e1 * t1214 * t5124 * t13138;
24797   t70637 = t13214 * t5159;
24798   t70639 = t4079 * t1190 * t1881;
24799   t70641 = 0.3e1 * t13345 * t70639;
24800   t70643 = 0.4e1 * t18640 * t4035;
24801   t70645 = 0.2e1 * t8308 * t5107;
24802   t70646 = t3758 * t18754 / 0.3e1 + 0.5e1 / 0.18e2 * t5084 * t70611 + 0.5e1 / 0.18e2 * t5084 * t70615 - t68992 + t13085 * t5104 / 0.6e1 + t70621 + t70623 + t5060 * t13536 - t70627 + 0.6e1 * t18469 * t4125 - t70631 + t70634 - 0.2e1 * t5060 * t13595 - t70637 - t70641 - t70643 - t70645;
24803   t70648 = 0.4e1 * t2448 * t18516;
24804   t70651 = 0.2e1 * t1214 * t4076 * t13051;
24805   t70653 = 0.2e1 * t5097 * t13436;
24806   t70654 = t82 * t13155;
24807   t70656 = 0.2e1 * t70654 * t1232;
24808   t70658 = 0.2e1 * t447 * t18638;
24809   t70659 = t1474 * t5135;
24810   t70661 = 0.4e1 * t1476 * t18516;
24811   t70664 = 0.2e1 * t1214 * t18614 * t3985;
24812   t70668 = 0.4e1 * t18654 * t4042;
24813   t70670 = 0.4e1 * t5097 * t13612;
24814   t70672 = 0.4e1 * t1476 * t18657;
24815   t70675 = 0.4e1 * t449 * t18638 * t464;
24816   t70677 = 0.2e1 * t3977 * t18701;
24817   t70679 = t1214 * t5124 * t5856;
24818   t70682 = t18613 * t2093;
24819   t70691 = t18613 * t748;
24820   t70710 = t5123 * t6117;
24821   t70729 = -t2849 * t48993 * t1190 - 0.2e1 * t2849 * t70682 * t746 + t169 * t70020 - t2849 * t4079 * t13047 - t2849 * t18617 * t2082 + 0.6e1 * t1768 * t70691 * t677 - 0.6e1 * t1768 * t69809 + 0.12e2 * t54343 * t13055 * t7870 + 0.3e1 * t1768 * t18569 * t1881 - 0.6e1 * t2849 * t70588 + 0.4e1 * t2849 * t70037 - 0.2e1 * t2849 * t13538 * t3919 + 0.2e1 * t2849 * t70710 * t2090 - 0.6e1 * t1768 * t70032 - 0.6e1 * t1768 * t70625 + 0.2e1 * t2849 * t70207 - 0.3e1 * t1768 * t70639 + 0.4e1 * t2849 * t70104 - 0.6e1 * t2857 * t70024 + 0.6e1 * t2857 * t18569 * t1868;
24822   t70730 = my_piecewise3(t296, 0, t70729);
24823   t70736 = my_piecewise3(t359, 0, t70729);
24824   t70743 = t98 * (t70730 * t34 / 0.2e1 + t18631 * t413 + t5130 * t1454 / 0.2e1 + t70736 * t46 / 0.2e1 + t18634 * t436 + t5132 * t1463 / 0.2e1);
24825   t70744 = t174 * t18613;
24826   t70747 = 0.6e1 * t1214 * t70744 * t3980;
24827   t70748 = 0.6e1 * t13749 * t5060 - t69015 - t70648 - t70651 - t70653 - t70656 - t70658 - t70659 - t70661 - t70664 - t70668 - t70670 - t70672 - t70675 - t70677 - t70679 - t70743 + t70747;
24828   t70752 = t69620 + t69667 + t69709 + t69752 + t69796 + t69840 + t69877 + t70050 + t70108 + t70158 + t70196 + t70520 + t70558 + t70606 + t70646 + t70748;
24829   t70756 = 0.6e1 * t1267 * t13388;
24830   t70759 = t370 * t70752 * params->d + 0.6e1 * t1219 * t13784 + 0.6e1 * t18870 * t875 + 0.3e1 * t2370 * t5166 + 0.6e1 * t3994 * t4146 + t69498 + t69499 + t69502 + t69505 + t69547 + t69550 + t69553 + t69555 + t69558 + t69561 + t69564 + t69568 + t70756;
24831   t70762 = t5161 * t878;
24832   t70764 = t3988 * t1272;
24833   t70768 = t18858 * t372;
24834   t70770 = t368 * t18897;
24835   t70774 = t1264 * t4006;
24836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24837     v4rho2sigma2[1] = 0.2e1 * t69509 + 0.2e1 * t69511 + 0.2e1 * t69513 + t13356 * t1272 + t872 * (t69544 + t70759) + 0.2e1 * t70762 + 0.2e1 * t70764 + t7 * t70752 * t372 + 0.2e1 * t70768 + 0.2e1 * t70770 + t1217 * t13796 + t13758 * t1224 + 0.2e1 * t70774 + 0.2e1 * t870 * t18897 + 0.2e1 * t18859 * t878 + t1265 * t13394 + 0.2e1 * t4132 * t4006 + 0.2e1 * t3989 * t4149 + t5162 * t2373 + t2359 * t5175;
24838 
24839   t70788 = t19075 * t372;
24840   t70790 = t1216 * t4267;
24841   t70792 = t4257 * t1224;
24842   t70794 = t869 * t5223;
24843   t70796 = t3988 * t1320;
24844   t70803 = t4173 * t68309;
24845   t70805 = t5211 * t13125;
24846   t70807 = t18978 * t3981;
24847   t70809 = t13808 * t18064;
24848   t70811 = t13879 * t18064;
24849   t70813 = t13882 * t18064;
24850   t70815 = t4156 * t69016;
24851   t70817 = t26602 * t5178;
24852   t70820 = t6445 * t18956;
24853   t70827 = 0.2e1 / 0.3e1 * t68052 + 0.2e1 / 0.3e1 * t68054 + 0.2e1 / 0.3e1 * t68056 + 0.2e1 / 0.3e1 * t68058 + 0.2e1 / 0.3e1 * t68060 + 0.2e1 / 0.3e1 * t70803 + 0.6e1 * t70805 + 0.6e1 * t70807 - 0.10e2 / 0.3e1 * t70809 - 0.10e2 / 0.3e1 * t70811 - 0.10e2 / 0.3e1 * t70813 - 0.10e2 / 0.3e1 * t70815 + 0.5e1 / 0.12e2 * t70817 * t18546 - 0.5e1 / 0.36e2 * t70820 * t18552 - 0.5e1 / 0.36e2 * t18940 * t18557 - 0.5e1 / 0.36e2 * t18940 * t18562;
24854   t70832 = t1397 * t4926 * t13822 * t114;
24855   t70854 = t5200 * t4931;
24856   t70855 = t70172 * t70854;
24857   t70858 = t70085 * t70854;
24858   t70861 = -0.5e1 / 0.72e2 * t18940 * t18051 - 0.5e1 / 0.144e3 * t70832 * t5086 - 0.5e1 / 0.72e2 * t18945 * t18531 + t68070 / 0.3e1 + 0.2e1 / 0.3e1 * t68072 + 0.2e1 / 0.3e1 * t68074 - 0.5e1 / 0.3e1 * t12761 * t18920 + 0.2e1 / 0.3e1 * t12758 * t18925 + 0.2e1 / 0.3e1 * t68077 + t68081 / 0.3e1 + t68083 / 0.3e1 - 0.5e1 / 0.36e2 * t5179 * t68233 - 0.5e1 / 0.36e2 * t5179 * t68237 + t4152 * t18460 / 0.3e1 - 0.10e2 / 0.3e1 * t68087 - 0.5e1 / 0.18e2 * t70855 * t70176 - 0.5e1 / 0.18e2 * t70858 * t70088;
24859   t70866 = t18978 * t3921;
24860   t70874 = t13811 * t18202;
24861   t70876 = t49630 * t4940;
24862   t70878 = t49961 * t4940;
24863   t70880 = t13876 * t18071;
24864   t70882 = t13876 * t18075;
24865   t70884 = t13876 * t18079;
24866   t70893 = -0.5e1 / 0.18e2 * t70858 * t70092 - 0.10e2 / 0.3e1 * t68089 + 0.2e1 * t70866 - t68094 + t1277 * t68357 / 0.6e1 + t1277 * t68334 / 0.6e1 + t1277 * t68338 / 0.3e1 + 0.2e1 / 0.3e1 * t70874 + t70876 / 0.3e1 + 0.2e1 / 0.3e1 * t70878 + 0.2e1 / 0.3e1 * t70880 + 0.2e1 / 0.3e1 * t70882 + 0.2e1 / 0.3e1 * t70884 - 0.5e1 / 0.72e2 * t5179 * t69828 - 0.5e1 / 0.72e2 * t18945 * t18051 - 0.5e1 / 0.144e3 * t5179 * t69819 + 0.10e2 * t68102;
24867   t70894 = t4173 * t68204;
24868   t70901 = t5211 * t13174;
24869   t70903 = t8308 * t5192;
24870   t70905 = t2448 * t19043;
24871   t70910 = t4156 * t68341;
24872   t70912 = t4156 * t68956;
24873   t70920 = t70894 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t68984 + 0.2e1 / 0.3e1 * t13167 * t18925 - 0.2e1 * t68114 - t70901 - t68135 - 0.2e1 * t68140 - 0.2e1 * t70903 - 0.4e1 * t70905 + 0.2e1 / 0.3e1 * t68142 + 0.2e1 / 0.3e1 * t68145 + t68149 / 0.3e1 - 0.10e2 / 0.3e1 * t70910 - 0.10e2 / 0.3e1 * t70912 + 0.5e1 / 0.12e2 * t18989 * t70133 + 0.5e1 * t13892 * t68067 + t13889 * t4944 / 0.6e1;
24874   t70935 = t26398 * t5178;
24875   t70938 = t6445 * t18944;
24876   t70943 = t50280 * t4940;
24877   t70945 = t49626 * t4940;
24878   t70947 = t26389 * t5178;
24879   t70954 = t13876 * t18202;
24880   t70959 = t13833 * t4944 / 0.3e1 + t13836 * t4944 / 0.3e1 + t4152 * t18456 / 0.3e1 - 0.5e1 / 0.36e2 * t18945 * t18557 - 0.5e1 / 0.36e2 * t18945 * t18562 - 0.5e1 / 0.72e2 * t5179 * t68108 - 0.5e1 / 0.144e3 * t70935 * t5086 - 0.5e1 / 0.72e2 * t70938 * t5086 - 0.5e1 / 0.144e3 * t5179 * t68686 + t70943 / 0.3e1 + 0.2e1 / 0.3e1 * t70945 - 0.35e2 / 0.24e2 * t70947 * t70569 - 0.5e1 / 0.3e1 * t13879 * t18207 + 0.2e1 / 0.3e1 * t13876 * t18212 + 0.2e1 / 0.3e1 * t70954 - 0.10e2 / 0.3e1 * t68163 - 0.5e1 / 0.72e2 * t5179 * t69607;
24881   t70968 = t1204 * t18923 * t1516;
24882   t70973 = t1397 * t68095 * t1275 * t114;
24883   t70986 = t13870 * t18202;
24884   t70988 = t4173 * t68178;
24885   t70990 = t4173 * t68181;
24886   t70992 = t4173 * t68175;
24887   t70995 = -0.10e2 / 0.3e1 * t4156 * t68351 + 0.5e1 / 0.12e2 * t18989 * t68158 + 0.2e1 / 0.3e1 * t68176 + t68179 / 0.3e1 + 0.2e1 / 0.3e1 * t68182 + t3788 * t70968 / 0.3e1 - 0.5e1 / 0.72e2 * t70973 * t5086 - 0.5e1 / 0.72e2 * t5179 * t69603 + t13851 * t4944 / 0.6e1 + t13855 * t4944 / 0.3e1 + t4160 * t18456 / 0.3e1 + t4160 * t18460 / 0.3e1 + 0.2e1 / 0.3e1 * t70986 + t70988 / 0.3e1 + 0.2e1 / 0.3e1 * t70990 + 0.2e1 / 0.3e1 * t70992 + 0.2e1 / 0.3e1 * t68195;
24888   t71001 = t66 * t1136 * t14092;
24889   t71005 = t66 * t13080 * t1307;
24890   t71011 = t4156 * t68241;
24891   t71019 = t66 * t13091 * t1307;
24892   t71023 = t66 * t3783 * t4235;
24893   t71026 = t5210 * t13344;
24894   t71027 = t71026 * t12941;
24895   t71029 = 0.2e1 / 0.3e1 * t68197 + 0.2e1 / 0.3e1 * t68199 + 0.2e1 / 0.3e1 * t68201 + t1135 * t71001 / 0.6e1 + t1135 * t71005 / 0.3e1 + t1277 * t68364 / 0.3e1 + t68205 / 0.3e1 - 0.5e1 / 0.3e1 * t71011 + 0.5e1 / 0.24e2 * t18989 * t69613 + 0.6e1 * t68221 + 0.3e1 * t68224 - 0.5e1 / 0.3e1 * t68242 + t1135 * t71019 / 0.6e1 + t1135 * t71023 / 0.3e1 + t68254 - 0.6e1 * t71027 + t68256;
24896   t71032 = t13961 * t167 * t168;
24897   t71033 = t71032 * t1192;
24898   t71034 = t49957 * t4940;
24899   t71036 = t13811 * t18071;
24900   t71038 = t13811 * t18075;
24901   t71040 = t13811 * t18079;
24902   t71047 = t1204 * t18918 * t1470;
24903   t71050 = 0.6e1 * t68257 - t68272 + t71033 - t68274 + 0.2e1 / 0.3e1 * t71034 + 0.2e1 / 0.3e1 * t71036 + 0.2e1 / 0.3e1 * t71038 + 0.2e1 / 0.3e1 * t71040 - 0.5e1 / 0.3e1 * t13808 * t18207 + 0.2e1 / 0.3e1 * t13811 * t18212 - 0.5e1 / 0.6e1 * t3762 * t71047 - t68276 - t68277 - t68280 - t68283 - t68285 - t68287;
24904   t71066 = t3958 * t18919;
24905   t71075 = t12791 * t1307 * t443 * t464;
24906   t71078 = t13085 * t5189 / 0.6e1 + t13088 * t5189 / 0.3e1 + t13216 * t5189 / 0.3e1 + t3758 * t18935 / 0.3e1 + t3758 * t18953 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t68125 - 0.5e1 / 0.3e1 * t3762 * t71066 - t68289 + t68293 - t68296 - 0.2e1 * t68297 + t68300 + 0.2e1 / 0.3e1 * t68302 + 0.2e1 / 0.3e1 * t68306 + 0.2e1 / 0.3e1 * t68310 - 0.10e2 / 0.3e1 * t3762 * t71075;
24907   t71079 = t4156 * t68162;
24908   t71083 = t4173 * t68301;
24909   t71085 = t4173 * t68080;
24910   t71087 = t4173 * t68194;
24911   t71094 = t1397 * t4167 * t114;
24912   t71099 = t1204 * t18918 * t1398;
24913   t71102 = t49609 * t4940;
24914   t71104 = t13870 * t18071;
24915   t71106 = t13870 * t18075;
24916   t71108 = t13870 * t18079;
24917   t71110 = t68314 - 0.10e2 / 0.3e1 * t71079 + t68316 - 0.5e1 / 0.72e2 * t18940 * t18531 + 0.2e1 / 0.3e1 * t71083 + t71085 / 0.3e1 + 0.2e1 / 0.3e1 * t71087 - 0.5e1 / 0.3e1 * t12765 * t18920 - 0.4e1 * t68326 - 0.10e2 / 0.3e1 * t68342 - 0.5e1 / 0.36e2 * t71094 * t18552 - 0.10e2 / 0.3e1 * t68354 + 0.5e1 * t13159 * t71099 + t71102 / 0.3e1 + 0.2e1 / 0.3e1 * t71104 + 0.2e1 / 0.3e1 * t71106 + 0.2e1 / 0.3e1 * t71108;
24918   t71116 = t5211 * t13131;
24919   t71118 = t13892 * t68101;
24920   t71136 = t70073 * t70854;
24921   t71139 = -0.5e1 / 0.3e1 * t13882 * t18207 + 0.2e1 / 0.3e1 * t13870 * t18212 + 0.3e1 * t71116 - t68361 + 0.10e2 * t71118 - 0.5e1 / 0.72e2 * t5179 * t70508 + t4173 * t68063 / 0.3e1 - 0.5e1 / 0.3e1 * t13164 * t18920 - 0.5e1 / 0.36e2 * t18957 * t68229 - 0.5e1 / 0.36e2 * t18957 * t70137 - 0.5e1 / 0.36e2 * t5179 * t70611 - 0.5e1 / 0.36e2 * t5179 * t70615 - 0.6e1 * t68374 - t68379 - t68382 - 0.2e1 * t68383 + 0.5e1 / 0.6e1 * t71136 * t70076;
24922   t71142 = t4173 * t68305;
24923   t71144 = t4173 * t68148;
24924   t71149 = t96 * t4235;
24925   t71151 = t1204 * t71149 * t464;
24926   t71158 = t2448 * t19046;
24927   t71160 = t5211 * t13139;
24928   t71162 = t3958 * t18924;
24929   t71165 = 0.5e1 / 0.6e1 * t71136 * t70082 - t4957 + 0.2e1 / 0.3e1 * t71142 + t71144 / 0.3e1 + 0.6e1 * t68390 + 0.2e1 / 0.3e1 * t12788 * t18925 + 0.2e1 / 0.3e1 * t3788 * t71151 + 0.2e1 / 0.3e1 * t4173 * t68172 - t68398 - t68403 - 0.2e1 * t447 * t19070 - t68409 - t68410 - t68411 - 0.4e1 * t71158 + 0.2e1 * t71160 + 0.2e1 / 0.3e1 * t3788 * t71162;
24930   t71168 = t97 * t4235;
24931   t71170 = t1204 * t71168 * t443;
24932   t71179 = t18978 * t3986;
24933   t71181 = t6453 * t18944;
24934   t71184 = t50650 * t70854;
24935   t71187 = -0.5e1 / 0.3e1 * t3762 * t71170 - t68412 + t68421 - 0.4e1 * t68423 - 0.4e1 * t449 * t19070 * t464 - t68427 + t68430 - 0.2e1 * t1482 * t5198 + t68436 + t68440 + t68692 - 0.2e1 * t71179 - t68702 + 0.5e1 / 0.12e2 * t71181 * t18546 + t68944 - t68946 + 0.5e1 / 0.6e1 * t71184 * t70070;
24936   t71196 = t449 * t14092 * t1143;
24937   t71206 = t6587 * t5192;
24938   t71208 = t7847 * t5192;
24939   t71210 = t1476 * t19043;
24940   t71213 = t449 * t4235 * t3811;
24941   t71222 = t13196 * t5189 / 0.6e1 + t3780 * t18935 / 0.3e1 + t3780 * t18953 / 0.3e1 + 0.2e1 * t68947 - 0.2e1 * t71196 + t13111 * t5189 / 0.6e1 + t13115 * t5189 / 0.3e1 + t3769 * t18935 / 0.3e1 + t3769 * t18953 / 0.3e1 - 0.2e1 * t71206 - 0.4e1 * t71208 - 0.4e1 * t71210 - 0.4e1 * t71213 - 0.10e2 / 0.3e1 * t68957 + t13824 * t4944 / 0.6e1 + t4168 * t18456 / 0.3e1 + t4168 * t18460 / 0.3e1;
24942   t71234 = t13281 * t19011;
24943   t71237 = t3945 * t13942 * t5048;
24944   t71240 = t3945 * t4247 * t18400;
24945   t71242 = t47710 * t5204;
24946   t71244 = t13281 * t19005;
24947   t71246 = t13281 * t19008;
24948   t71248 = t52199 * t5204;
24949   t71250 = 0.10e2 / 0.3e1 * t68444 + 0.10e2 / 0.3e1 * t68449 + 0.5e1 / 0.3e1 * t68453 + 0.5e1 / 0.72e2 * t68527 * t5201 + 0.5e1 / 0.72e2 * t68531 * t5201 + 0.5e1 / 0.72e2 * t5042 * t5200 * t70378 - 0.2e1 / 0.3e1 * t71234 - t71237 / 0.3e1 - 0.2e1 / 0.3e1 * t71240 - t71242 / 0.3e1 - 0.2e1 / 0.3e1 * t71244 - 0.2e1 / 0.3e1 * t71246 - 0.2e1 / 0.3e1 * t71248;
24950   t71253 = t13930 * t68452;
24951   t71255 = t50074 * t18390;
24952   t71257 = t26389 * t19022;
24953   t71261 = t26602 * t19022;
24954   t71274 = 0.5e1 / 0.72e2 * t19033 * t70285 + 0.5e1 / 0.3e1 * t71253 + 0.10e2 / 0.3e1 * t71255 + 0.35e2 / 0.24e2 * t71257 * t70311 - 0.10e2 * t68464 - 0.5e1 / 0.12e2 * t71261 * t18776 - t68468 - 0.5e1 / 0.24e2 * t19023 * t70242 + 0.10e2 / 0.3e1 * t68469 + 0.10e2 / 0.3e1 * t68471 + 0.10e2 / 0.3e1 * t68473 + 0.10e2 / 0.3e1 * t68475 + 0.5e1 / 0.72e2 * t19027 * t70246 + 0.5e1 / 0.72e2 * t19030 * t70231;
24955   t71276 = t50061 * t68463;
24956   t71286 = t50066 * t18390;
24957   t71288 = t55808 * t18390;
24958   t71290 = t50070 * t18390;
24959   t71292 = t14624 * t19005;
24960   t71294 = -0.10e2 * t71276 + t68479 - t68481 - 0.5e1 / 0.12e2 * t19023 * t68592 + 0.5e1 / 0.36e2 * t19027 * t68486 + 0.5e1 / 0.36e2 * t19030 * t68498 + 0.5e1 / 0.36e2 * t19033 * t68512 + 0.10e2 / 0.3e1 * t71286 + 0.10e2 / 0.3e1 * t71288 + 0.10e2 / 0.3e1 * t71290 - t68517 - t68521 - 0.2e1 / 0.3e1 * t71292;
24961   t71295 = t14624 * t19008;
24962   t71297 = t14624 * t19011;
24963   t71305 = t13822 * t114;
24964   t71310 = t3945 * t1309 * t68564;
24965   t71312 = t6453 * t19026;
24966   t71322 = -0.2e1 / 0.3e1 * t71295 - 0.2e1 / 0.3e1 * t71297 + 0.5e1 / 0.144e3 * t68523 * t5201 + 0.5e1 / 0.72e2 * t18359 * t18993 + 0.5e1 / 0.72e2 * t18359 * t18996 + 0.5e1 / 0.144e3 * t5042 * t71305 * t5138 - t71310 / 0.3e1 + t5056 - 0.5e1 / 0.6e1 * t71312 * t70452 - 0.5e1 / 0.6e1 * t15516 * t70455 - 0.5e1 / 0.6e1 * t19023 * t70458 + 0.5e1 / 0.18e2 * t13930 * t70461 - t68522 - t68548 / 0.3e1;
24967   t71331 = t6445 * t19026;
24968   t71334 = t6445 * t15515;
24969   t71337 = t6445 * t19022;
24970   t71340 = t5041 * t4166;
24971   t71341 = t6453 * t71340;
24972   t71345 = t1397 * t18367 * t4166;
24973   t71352 = -0.2e1 / 0.3e1 * t68551 - 0.2e1 / 0.3e1 * t68554 - t68558 / 0.3e1 - 0.2e1 / 0.3e1 * t68562 - t68566 / 0.3e1 - 0.2e1 / 0.3e1 * t68583 + 0.5e1 / 0.36e2 * t71331 * t18825 + 0.5e1 / 0.36e2 * t71334 * t18830 + 0.5e1 / 0.36e2 * t71337 * t18836 - 0.5e1 / 0.12e2 * t71341 * t18776 + 0.5e1 / 0.36e2 * t71345 * t18825 + 0.5e1 / 0.18e2 * t19027 * t70275 + 0.5e1 / 0.18e2 * t19030 * t70272;
24974   t71353 = t1397 * t55775;
24975   t71356 = t1397 * t71340;
24976   t71359 = t13930 * t68443;
24977   t71361 = t13930 * t68448;
24978   t71363 = t52195 * t5204;
24979   t71366 = t3945 * t4247 * t18404;
24980   t71369 = t3945 * t1309 * t68556;
24981   t71372 = t3945 * t1309 * t68560;
24982   t71380 = t47724 * t5204;
24983   t71382 = 0.5e1 / 0.36e2 * t71353 * t18830 + 0.5e1 / 0.36e2 * t71356 * t18836 + t68607 + t68608 + 0.10e2 / 0.3e1 * t71359 + 0.10e2 / 0.3e1 * t71361 + t68610 - t71363 / 0.3e1 - 0.2e1 / 0.3e1 * t71366 - t71369 / 0.3e1 - 0.2e1 / 0.3e1 * t71372 + 0.5e1 / 0.72e2 * t5042 * t18992 * t18378 + 0.5e1 / 0.144e3 * t5042 * t5200 * t68664 - t71380 / 0.3e1;
24984   t71384 = t52182 * t5204;
24985   t71386 = t47726 * t5204;
24986   t71388 = t13263 * t19005;
24987   t71390 = t13263 * t19008;
24988   t71392 = t13263 * t19011;
24989   t71403 = -0.2e1 / 0.3e1 * t71384 - 0.2e1 / 0.3e1 * t71386 - 0.2e1 / 0.3e1 * t71388 - 0.2e1 / 0.3e1 * t71390 - 0.2e1 / 0.3e1 * t71392 - 0.2e1 / 0.3e1 * t68611 - 0.2e1 / 0.3e1 * t68613 - 0.2e1 / 0.3e1 * t68615 - t68617 / 0.3e1 - 0.2e1 / 0.3e1 * t68619 - 0.2e1 / 0.3e1 * t68621 - 0.2e1 / 0.3e1 * t68623 - 0.2e1 / 0.3e1 * t68625 - t68627 / 0.3e1;
24990   t71409 = -0.2e1 / 0.3e1 * t68630 - 0.2e1 / 0.3e1 * t68632 + t68636 + t68638 + t68640 + t68643 - t68646 + t68648 + t68651 - t68653 + t68655 - t68675 / 0.3e1 - 0.2e1 / 0.3e1 * t68677 - 0.2e1 / 0.3e1 * t68679;
24991   t71423 = t5211 * t13107;
24992   t71425 = t5211 * t13049;
24993   t71429 = t449 * t1307 * t13155;
24994   t71434 = t1476 * t19046;
24995   t71436 = (t71250 + t71274 + t71294 + t71322 + t71352 + t71382 + t71403 + t71409) * t227 - 0.5e1 / 0.3e1 * t4156 * t68120 + 0.2e1 / 0.3e1 * t4173 * t68167 + 0.2e1 * t19041 * t751 - 0.5e1 / 0.72e2 * t18957 * t69642 + t5208 * t2101 + 0.6e1 * t71423 + t71425 - 0.4e1 * t1476 * t19049 - 0.2e1 * t71429 - t68992 - 0.4e1 * t68993 - 0.2e1 * t68997 - 0.4e1 * t68999 - t69004 - 0.4e1 * t71434 - t69008;
24996   t71442 = my_piecewise3(t296, 0, t69403);
24997   t71444 = t71442 * t34 / 0.2e1;
24998   t71445 = t19066 * t413;
24999   t71447 = t5195 * t1454 / 0.2e1;
25000   t71457 = t5211 * t13180;
25001   t71459 = t69009 + 0.2e1 * t69010 - 0.2e1 * t449 * t5198 * t1516 - 0.2e1 * t69012 - t98 * (t71444 + t71445 + t71447 + t69412 + t69413 + t69415) - t69015 - 0.10e2 / 0.3e1 * t69017 + t69022 + t69027 / 0.3e1 + 0.2e1 / 0.3e1 * t69029 + 0.2e1 / 0.3e1 * t69031 - t1474 * t5198 - t69034 - 0.4e1 * t69035 - 0.4e1 * t69037 - 0.2e1 * t71457 - t69420;
25002   t71463 = t70827 + t70861 + t70893 + t70920 + t70959 + t70995 + t71029 + t71050 + t71078 + t71110 + t71139 + t71165 + t71187 + t71222 + t71436 + t71459;
25003   t71471 = t5213 * t878;
25004   t71476 = t1315 * t4006;
25005   t71478 = t368 * t19100;
25006   t71485 = t4263 * t4003;
25007   t71492 = t1318 * t13385;
25008   t71494 = t1318 * t13391;
25009   t71497 = t1318 * t13382;
25010   t71499 = 0.6e1 * t19087 * t875 + 0.3e1 * t2370 * t5218 + t5079 + 0.6e1 * t69453 + t69456 + t69459 + t69461 + t69466 + 0.3e1 * t69467 + t69470 + t69472 + t69475 + 0.6e1 * t71485 + 0.12e2 * t71492 + 0.3e1 * t71494 + 0.6e1 * t71497;
25011   t71508 = t4263 * t4000;
25012   t71511 = t14109 * t1221;
25013   t71513 = t1318 * t13388;
25014   t71515 = t370 * t71463 * params->d + 0.6e1 * t2367 * t5218 + 0.12e2 * t69476 + t69481 + 0.6e1 * t69484 + 0.6e1 * t69488 + t69491 + 0.3e1 * t69494 + t69498 + t69499 + 0.12e2 * t69500 + t69502 + t69505 + 0.12e2 * t71508 + 0.3e1 * t71511 + 0.6e1 * t71513;
25015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25016     v4rho2sigma2[2] = t2359 * t5223 + 0.2e1 * t70788 + 0.2e1 * t70790 + 0.2e1 * t70792 + 0.2e1 * t70794 + 0.2e1 * t70796 + t7 * t71463 * t372 + t1217 * t14117 + t13356 * t1320 + t1316 * t13394 + 0.2e1 * t4258 * t4006 + 0.2e1 * t71471 + t5214 * t2373 + 0.2e1 * t3989 * t4267 + 0.2e1 * t71476 + 0.2e1 * t71478 + t14097 * t1224 + 0.2e1 * t19076 * t878 + 0.2e1 * t870 * t19100 + t872 * (t71499 + t71515);
25017 
25018   t71518 = t19326 * t372;
25019   t71520 = t5285 * t878;
25020   t71536 = t13453 * t18535;
25021   t71540 = t6445 * t19113;
25022   t71546 = t6445 * t19118;
25023   t71549 = t13453 * t18715;
25024   t71551 = t13453 * t18719;
25025   t71553 = t13453 * t18724;
25026   t71560 = 0.352e3 / 0.27e2 * t48960 * t5094;
25027   t71565 = t48687 * t5094;
25028   t71567 = t48705 * t5094;
25029   t71569 = -0.5e1 / 0.9e1 * t19122 * t69423 - 0.5e1 / 0.9e1 * t71546 * t18091 + 0.64e2 / 0.9e1 * t71549 + 0.64e2 / 0.9e1 * t71551 + 0.64e2 / 0.9e1 * t71553 - 0.5e1 / 0.18e2 * t1397 * t68095 * t5226 * t4936 - t71560 - 0.4e1 / 0.3e1 * t4026 * t69684 - 0.8e1 / 0.3e1 * t4026 * t69688 + 0.64e2 / 0.9e1 * t71565 + 0.64e2 / 0.9e1 * t71567;
25030   t71579 = t19264 * t748;
25031   t71583 = t19276 * t7870;
25032   t71621 = t1887 * t5243;
25033   t71627 = -0.8e1 * t18588 * t19252 + 0.24e2 * t5116 * t68925 * t5243 * t2061 - 0.7e1 / 0.144e3 * t68706 - 0.24e2 * t5116 * t18150 * t4064 * t4058 - 0.4e1 * t5116 * t18155 * t5243 * t2018 * t194 - 0.12e2 * t18588 * t19247 + 0.8e1 * t18588 * t19256 - 0.8e1 * t19241 * t68866 + 0.4e1 * t5116 * t5117 * t1237 * t13482 - 0.6e1 * t5116 * t18150 * t5243 * t2079 + 0.2e1 * t19241 * t68922 + 0.24e2 * t68725 * t71621 * t13014 + 0.7e1 / 0.72e2 * t68735 + 0.7e1 / 0.288e3 * t68737;
25034   t71628 = 0.119e3 / 0.1728e4 * t68739;
25035   t71631 = t4058 * t4058;
25036   t71636 = t5243 * t1891;
25037   t71647 = 0.119e3 / 0.1728e4 * t68751;
25038   t71654 = -t71628 + 0.5e1 / 0.96e2 * t68743 - t68747 / 0.96e2 - 0.4e1 * t1159 * t71631 * t1162 * t5010 - 0.4e1 * t5116 * t18155 * t71636 * t194 + 0.8e1 * t18581 * t13521 + 0.12e2 * t5116 * t68934 * t71636 * t1892 + t71647 - t68758 / 0.48e2 - t68763 / 0.24e2 + t68765 / 0.192e3 + t68768 / 0.96e2 - t68775 / 0.24e2 + t68780 / 0.192e3;
25039   t71674 = -t68784 / 0.384e3 - 0.16e2 * t18596 * t15258 * t13520 + t68793 / 0.96e2 + t68800 / 0.48e2 + t68808 / 0.192e3 - t68813 / 0.64e2 + t68815 / 0.192e3 + 0.2e1 * t68721 * t5249 + t68833 / 0.48e2 - t68841 / 0.64e2 - 0.7e1 / 0.144e3 * t68844 + 0.7e1 / 0.288e3 * t68849 - t68853 / 0.384e3 - 0.4e1 * t5112 * t13532;
25040   t71698 = -0.12e2 * t5245 * t68830 + 0.7e1 / 0.288e3 * t68855 - t68859 / 0.384e3 + t68864 / 0.192e3 - 0.5e1 / 0.96e2 * t68877 + t68884 / 0.192e3 + 0.16e2 * t18581 * t13507 - 0.7e1 / 0.72e2 * t68898 + t68903 / 0.96e2 + t68907 / 0.48e2 - t68910 / 0.384e3 + 0.4e1 * t5245 * t68717 - 0.4e1 * t19241 * t68822 + 0.4e1 * t5014 * t5015 * t694 * t71631 + 0.2e1 * t19241 * t68817;
25041   t71702 = t175 * (t71627 + t71654 + t71674 + t71698) * t748;
25042   t71704 = t19264 * t2093;
25043   t71708 = t5253 * t6117;
25044   t71718 = t4079 * t677 * t4075;
25045   t71721 = t19286 * t7870;
25046   t71727 = t4075 * t4075;
25047   t71729 = t175 * t71727 * t2093;
25048   t71733 = t13542 * t4075 * t746;
25049   t71739 = t5257 * t28769;
25050   t71746 = -0.2e1 * t13534 * t2849 * t4079 + 0.3e1 * t1768 * t1881 * t19271 - 0.3e1 * t1768 * t1881 * t19279 + 0.6e1 * t1768 * t677 * t71579 + 0.6e1 * t1868 * t19271 * t2857 - 0.6e1 * t1868 * t19279 * t2857 - t19276 * t2082 * t2849 + 0.2e1 * t19286 * t2082 * t2849 + 0.2e1 * t2090 * t2849 * t71708 - 0.6e1 * t2090 * t2849 * t71739 - 0.2e1 * t2849 * t71704 * t746 + t169 * t71702 - 0.2e1 * t169 * t71729 - 0.6e1 * t1768 * t71583 - 0.12e2 * t1768 * t71718 + 0.12e2 * t1768 * t71721 + 0.8e1 * t2849 * t71733;
25051   t71747 = my_piecewise3(t296, 0, t71746);
25052   t71753 = my_piecewise3(t359, 0, t71746);
25053   t71770 = t19143 * t114;
25054   t71771 = t1397 * t71770;
25055   t71772 = t71771 * t18057;
25056   t71774 = t71771 * t18060;
25057   t71776 = t26389 * t19113;
25058   t71779 = t6453 * t71770;
25059   t71780 = t71779 * t18083;
25060   t71782 = -0.4e1 * t1476 * t19315 - 0.4e1 * t449 * t19298 * t464 - t98 * (t71747 * t34 / 0.2e1 + t19291 * t413 + t5262 * t1454 / 0.2e1 + t71753 * t46 / 0.2e1 + t19294 * t436 + t5264 * t1463 / 0.2e1) - 0.8e1 * t1476 * t19268 - 0.4e1 * t449 * t1252 * t13435 + 0.40e2 / 0.3e1 * t4013 * t69653 - 0.5e1 / 0.18e2 * t19119 * t68188 + 0.80e2 / 0.27e2 * t71772 + 0.80e2 / 0.27e2 * t71774 - 0.35e2 / 0.6e1 * t71776 * t68694 - 0.80e2 / 0.9e1 * t71780;
25061   t71788 = t13453 * t18734;
25062   t71798 = -0.8e1 * t449 * t4090 * t4041 - 0.2e1 * t1214 * t71729 + 0.64e2 / 0.9e1 * t71788 - 0.2e1 * t1482 * t5267 - 0.10e2 / 0.9e1 * t19122 * t68218 - t68274 + 0.2e1 * t70592 * t1245 - t68283 - t68285 - t68287 + 0.4e1 * t18738 * t4077;
25063   t71808 = t13419 * t18729;
25064   t71811 = 0.176e3 / 0.27e2 * t13626 * t5104;
25065   t71844 = 0.20e2 / 0.3e1 * t4013 * t69773 - 0.5e1 / 0.18e2 * t5228 * t68416 + t13214 * t5255 - 0.2e1 * t447 * t19298 + 0.10e2 / 0.3e1 * t19114 * t68244 - 0.2e1 * t449 * t5267 * t1516 - 0.8e1 * t7847 * t5239 - 0.8e1 * t1476 * t19309 - 0.4e1 / 0.3e1 * t4009 * t18754 - 0.4e1 / 0.3e1 * t4009 * t18758 - 0.2e1 * t1473 * t5235 * t363;
25066   t71856 = t26602 * t19113;
25067   t71863 = t1397 * t25 * t19142 * t114;
25068   t71864 = t71863 * t18091;
25069   t71872 = -0.4e1 / 0.3e1 * t48929 * t5094 - 0.8e1 / 0.3e1 * t48902 * t5094 - 0.8e1 / 0.3e1 * t13412 * t18715 - 0.8e1 / 0.3e1 * t13412 * t18719 - 0.8e1 / 0.3e1 * t13412 * t18724 + 0.5e1 / 0.3e1 * t71856 * t18083 + 0.5e1 / 0.3e1 * t19114 * t68962 + 0.80e2 / 0.27e2 * t71864 - 0.2e1 / 0.3e1 * t1227 * t70141 - 0.8e1 / 0.3e1 * t13412 * t18734 - 0.8e1 / 0.3e1 * t4026 * t69573;
25070   t71890 = t173 * t5253;
25071   t71894 = -t1474 * t5267 - 0.5e1 / 0.18e2 * t19122 * t68965 - 0.5e1 / 0.9e1 * t71540 * t18060 - 0.5e1 / 0.9e1 * t19122 * t68972 - 0.8e1 / 0.3e1 * t4026 * t70122 - 0.4e1 / 0.3e1 * t4026 * t69676 - 0.4e1 * t5499 * t13436 + 0.10e2 / 0.3e1 * t4013 * t69785 - t4957 - 0.8e1 / 0.3e1 * t4026 * t69729 + 0.6e1 * t1214 * t71890 * t13106;
25072   t71937 = -0.4e1 / 0.3e1 * t13645 * t5104 + t5279 * t2101 - 0.8e1 * t21649 * t4042 - 0.8e1 * t2448 * t19268 - 0.4e1 * t449 * t13561 * t1231 - 0.2e1 * t1214 * t1244 * t48993 + 0.4e1 * t5155 * t13585 - 0.4e1 / 0.3e1 * t4026 * t69815 + 0.20e2 / 0.3e1 * t13409 * t18729 + 0.20e2 / 0.3e1 * t13402 * t18729 - 0.8e1 / 0.3e1 * t13412 * t18535;
25073   t71943 = t13592 * t5104;
25074   t71945 = t13639 * t5104;
25075   t71963 = -0.8e1 / 0.3e1 * t13424 * t18535 + 0.6e1 * t3977 * t19148 + 0.32e2 / 0.9e1 * t71943 + 0.32e2 / 0.9e1 * t71945 - 0.12e2 * t13345 * t71718 + 0.2e1 * t1214 * t5258 * t28746 - 0.3e1 * t1214 * t19153 * t69001 + 0.6e1 * t5155 * t13448 - 0.2e1 / 0.3e1 * t13618 * t5104 - 0.4e1 / 0.3e1 * t4017 * t18754 - 0.4e1 / 0.3e1 * t4017 * t18758;
25076   t71985 = -0.5e1 / 0.36e2 * t5228 * t68266 - 0.2e1 * t5236 * t2331 - 0.4e1 * t5155 * t13595 - t1214 * t5254 * t5856 + 0.2e1 * t3977 * t19266 - 0.6e1 * t3977 * t19154 - 0.4e1 * t19127 * t857 + 0.20e2 / 0.3e1 * t4013 * t69734 + 0.12e2 * t13345 * t71721 + t1214 * t71702 - 0.4e1 / 0.3e1 * t4026 * t69657;
25077   t71996 = t6445 * t19143 * t4936;
25078   t71998 = t19144 * t18044;
25079   t72001 = 0.1e1 / t54 / t392;
25080   t72005 = 0.380e3 / 0.81e2 * t1397 * t4926 * t72001 * t4936;
25081   t72008 = t6453 * t19118;
25082   t72018 = -0.5e1 / 0.18e2 * t19122 * t69024 - 0.5e1 / 0.36e2 * t26398 * t5227 * t4936 - 0.5e1 / 0.18e2 * t19318 * t18044 + 0.40e2 / 0.27e2 * t71996 + 0.40e2 / 0.27e2 * t71998 - t72005 - 0.6e1 * t13345 * t71583 + 0.10e2 / 0.3e1 * t72008 * t68346 - 0.2e1 * t1214 * t19265 * t3985 + 0.40e2 / 0.3e1 * t13409 * t18539 + 0.40e2 / 0.3e1 * t13402 * t18539;
25083   t72031 = t174 * t19264;
25084   t72041 = 0.40e2 / 0.3e1 * t4013 * t69739 + 0.40e2 / 0.3e1 * t4013 * t69800 + 0.40e2 / 0.3e1 * t4013 * t69864 - 0.4e1 * t6587 * t5239 + 0.8e1 * t14484 * t71733 - t68992 + 0.4e1 * t3977 * t19219 + 0.6e1 * t1214 * t72031 * t3980 - 0.4e1 * t3977 * t19222 - 0.8e1 / 0.3e1 * t13424 * t18734 + 0.12e2 * t5155 * t13749;
25085   t72043 = t173 * t5257;
25086   t72063 = t439 * t1231;
25087   t72065 = t66 * t72063 * t443;
25088   t72068 = t73 * t4041;
25089   t72070 = t66 * t72068 * t443;
25090   t72074 = t66 * t19180 * t1470;
25091   t72077 = t18367 * t5226;
25092   t72078 = t1397 * t72077;
25093   t72081 = t6453 * t72077;
25094   t72084 = t1201 * t5226;
25095   t72085 = t6453 * t72084;
25096   t72088 = t5041 * t5226;
25097   t72089 = t6453 * t72088;
25098   t72093 = t1397 * t3944 * t5226;
25099   t72100 = t18362 * t19171 * t18363;
25100   t72103 = t18368 * t19171 * t18369;
25101   t72105 = t13263 * t19189;
25102   t72109 = t13336 * t1231;
25103   t72113 = -0.40e2 / 0.3e1 * t13663 * t72065 - 0.40e2 / 0.3e1 * t13663 * t72070 - 0.20e2 / 0.3e1 * t13663 * t72074 + 0.10e2 / 0.9e1 * t72078 * t68492 - 0.10e2 / 0.3e1 * t72081 * t68459 - 0.10e2 / 0.3e1 * t72085 * t68587 - 0.10e2 / 0.3e1 * t72089 * t68598 + 0.10e2 / 0.9e1 * t72093 * t68604 + t68479 - t68481 - t68517 - t68521 + 0.35e2 / 0.6e1 * t68542 * t5269 * t68543 + 0.80e2 / 0.9e1 * t72100 - 0.80e2 / 0.27e2 * t72103 - 0.64e2 / 0.9e1 * t72105 - 0.5e1 / 0.3e1 * t68668 * t19162 + 0.4e1 / 0.3e1 * t3945 * t1254 * t72109;
25104   t72114 = t3958 * t4041;
25105   t72118 = t1204 * t13435;
25106   t72123 = t3939 * t19171 * t18373;
25107   t72128 = t13281 * t19189;
25108   t72146 = t5042 * t19171 * t18382;
25109   t72157 = 0.8e1 / 0.3e1 * t3945 * t1254 * t72114 + 0.4e1 / 0.3e1 * t3945 * t1254 * t72118 - 0.80e2 / 0.27e2 * t72123 + 0.40e2 * t1397 * t5235 * t1398 + t5056 - 0.64e2 / 0.9e1 * t72128 + 0.5e1 / 0.9e1 * t68568 * t19165 + 0.5e1 / 0.9e1 * t13260 * t19168 + 0.5e1 / 0.9e1 * t18359 * t19175 - 0.5e1 / 0.6e1 * t18362 * t5269 * t68579 + 0.5e1 / 0.18e2 * t18368 * t5269 * t68656 + 0.5e1 / 0.18e2 * t3939 * t5269 * t68660 - 0.80e2 / 0.27e2 * t72146 + 0.5e1 / 0.18e2 * t5042 * t5269 * t68671 + 0.4e1 / 0.3e1 * t47724 * t5274 + 0.8e1 / 0.3e1 * t52182 * t5274 - t68522 - 0.16e2 * t1392 * t19202;
25110   t72168 = t1397 * t72084;
25111   t72178 = t4041 * t4041;
25112   t72183 = t14624 * t19189;
25113   t72187 = 0.352e3 / 0.27e2 * t3945 * t13726 * t5273;
25114   t72198 = 0.8e1 * t397 * t19205 - 0.8e1 * t400 * t5235 * t1470 - 0.32e2 * t400 * t1231 * t443 * t4041 + 0.10e2 / 0.9e1 * t72168 * t68505 - 0.40e2 / 0.3e1 * t53259 * t19182 - 0.40e2 / 0.3e1 * t49383 * t19182 + 0.4e1 * t81 * t1231 * t13435 + 0.4e1 * t81 * t72178 + 0.2e1 * t1391 * t5235 + t68607 + t68608 - 0.64e2 / 0.9e1 * t72183 + t72187 + 0.8e1 / 0.3e1 * t47726 * t5274 + 0.8e1 / 0.3e1 * t13263 * t19193 + 0.8e1 / 0.3e1 * t13263 * t19197 + 0.4e1 / 0.3e1 * t52195 * t5274 + 0.8e1 / 0.3e1 * t52199 * t5274;
25115   t72210 = t3945 * t4102 * t19192;
25116   t72213 = t3945 * t4102 * t19196;
25117   t72216 = t66 * t19180 * t1398;
25118   t72219 = t49234 * t19182;
25119   t72228 = 0.380e3 / 0.81e2 * t5042 * t72001 * t114 * t5044;
25120   t72234 = t18359 * t19172;
25121   t72238 = 0.8e1 / 0.3e1 * t14624 * t19193 + 0.8e1 / 0.3e1 * t14624 * t19197 + 0.4e1 / 0.3e1 * t47710 * t5274 + 0.8e1 / 0.3e1 * t13281 * t19193 + 0.8e1 / 0.3e1 * t13281 * t19197 - 0.64e2 / 0.9e1 * t72210 - 0.64e2 / 0.9e1 * t72213 + 0.40e2 * t49228 * t72216 + 0.320e3 / 0.9e1 * t72219 - 0.40e2 / 0.3e1 * t49379 * t19182 + 0.5e1 / 0.18e2 * t68531 * t5270 + t72228 + 0.5e1 / 0.18e2 * t5042 * t5269 * t68538 + 0.5e1 / 0.36e2 * t68523 * t5270 - 0.40e2 / 0.27e2 * t72234 + 0.5e1 / 0.18e2 * t68527 * t5270 + t68638 + t68640 + t68651;
25122   t72244 = -0.6e1 * t1214 * t72043 * t68400 + 0.40e2 / 0.3e1 * t4013 * t69779 + 0.20e2 / 0.3e1 * t4013 * t69648 + 0.2e1 * t1214 * t5254 * t13138 + 0.10e2 / 0.3e1 * t19114 * t68209 - 0.5e1 / 0.18e2 * t5228 * t68330 - 0.6e1 * t1214 * t5258 * t68269 - 0.10e2 / 0.9e1 * t19119 * t68213 - t69015 + (t72113 + t72157 + t72198 + t72238) * t227 - 0.2e1 * t3977 * t19301;
25123   t72257 = t13419 * t18539;
25124   t72262 = t4021 * t18754;
25125   t72264 = t4021 * t18758;
25126   t72268 = 0.12e2 * t5155 * t13605 + 0.12e2 * t18738 * t4125 - 0.4e1 * t18738 * t4129 - 0.2e1 * t5155 * t13636 - 0.10e2 / 0.9e1 * t19119 * t68248 - 0.40e2 * t13415 * t70564 - 0.320e3 / 0.9e1 * t72257 - 0.4e1 * t82 * t72178 * t363 + 0.32e2 / 0.9e1 * t72262 + 0.32e2 / 0.9e1 * t72264 + 0.2e1 * t19208 * t751;
25127   t72272 = t71872 + t71894 + t72018 + t71569 - t71811 + t71985 + t71963 + t71798 + 0.64e2 / 0.9e1 * t71536 + t72244 + t72041 + t72268 - 0.160e3 / 0.9e1 * t71808 + t71782 + t71937 - t68409 + 0.3e1 * t1214 * t19147 * t13130 - 0.8e1 / 0.3e1 * t13424 * t18724 + 0.2e1 * t5155 * t13536 - 0.2e1 / 0.3e1 * t13642 * t5104 - 0.8e1 * t2448 * t19309 - 0.20e2 * t13415 * t69789 - 0.4e1 / 0.3e1 * t1227 * t70213 - 0.2e1 / 0.3e1 * t1227 * t70147 - 0.4e1 / 0.3e1 * t1227 * t70151 - 0.12e2 * t70029 * t13463 - t13214 * t5259 - 0.4e1 * t8308 * t5239 - 0.8e1 / 0.3e1 * t13424 * t18715 + t71844 - 0.8e1 / 0.3e1 * t4026 * t69577 - 0.8e1 / 0.3e1 * t4026 * t69581 - 0.4e1 / 0.3e1 * t4026 * t70047 - 0.8e1 / 0.3e1 * t4026 * t69590 - 0.8e1 / 0.3e1 * t4026 * t69593 - 0.8e1 * t5499 * t13612 - 0.4e1 / 0.3e1 * t48676 * t5094 + 0.5e1 / 0.6e1 * t19114 * t68128 - 0.5e1 / 0.9e1 * t71540 * t18057 - 0.5e1 / 0.9e1 * t19119 * t68152 - 0.8e1 / 0.3e1 * t13424 * t18719 - t68410 - t68411;
25128   t72278 = t4131 * t1272;
25129   t72280 = t1264 * t4149;
25130   t72288 = t869 * t5297;
25131   t72290 = t368 * t19356;
25132   t72316 = 0.12e2 * t1258 * t13435 * t369 + 0.6e1 * t1516 * t369 * t5235 + 0.24e2 * t369 * t4041 * t4114 + 0.6e1 * t1269 * t13770 + 0.12e2 * t19350 * t873 + 0.24e2 * t19353 * t873 + 0.6e1 * t2363 * t5294 + 0.3e1 * t2370 * t5290 + 0.12e2 * t4137 * t4146 + t5079 + t69456 + t69461;
25133   t72336 = 0.12e2 * t369 * t72178 * t96 + t370 * t72272 * params->d + 0.12e2 * t1267 * t13784 + 0.24e2 * t1267 * t13787 + 0.12e2 * t1267 * t13790 + 0.6e1 * t1267 * t13793 + 0.6e1 * t19338 * t875 + 0.6e1 * t2367 * t5290 + 0.24e2 * t4137 * t4143 + t69498 + t69499 + t69502 + t69505;
25134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25135     v4rho2sigma2[3] = 0.2e1 * t71518 + 0.2e1 * t71520 + t7 * t72272 * t372 + 0.2e1 * t19327 * t878 + t5286 * t2373 + 0.4e1 * t72278 + 0.4e1 * t72280 + 0.2e1 * t13758 * t1272 + 0.4e1 * t4132 * t4149 + 0.2e1 * t1265 * t13796 + 0.2e1 * t72288 + 0.2e1 * t72290 + t2359 * t5297 + 0.2e1 * t870 * t19356 + t872 * (t72316 + t72336);
25136 
25137   t72339 = t4257 * t1272;
25138   t72345 = t19502 * t372;
25139   t72347 = t869 * t5331;
25140   t72351 = t1315 * t4149;
25141   t72353 = t4131 * t1320;
25142   t72358 = t368 * t19524;
25143   t72360 = t1264 * t4267;
25144   t72377 = t857 * t57;
25145   t72395 = -0.10e2 / 0.3e1 * t13808 * t18539 - t69597 - t69599 - t69601 - 0.5e1 / 0.6e1 * t4156 * t69785 + 0.10e2 / 0.3e1 * t13409 * t18920 + t4173 * t69676 / 0.3e1 - 0.4e1 / 0.3e1 * t13412 * t18925 + 0.10e2 / 0.3e1 * t13402 * t18920 - 0.4e1 / 0.3e1 * t13424 * t18925 - 0.5e1 / 0.6e1 * t18989 * t18543 * t72377 * t443 - 0.5e1 / 0.3e1 * t4156 * t69648 + 0.5e1 / 0.18e2 * t5179 * t18555 * t72377 * t439 + 0.5e1 / 0.18e2 * t5179 * t18560 * t72377 * t464 - 0.2e1 * t449 * t1307 * t13435 + t69619 + t69622;
25146   t72402 = t13453 * t18925;
25147   t72404 = t18940 * t19464;
25148   t72418 = 0.5e1 / 0.36e2 * t5179 * t5044 * t47221 * t57 + 0.5e1 / 0.3e1 * t4013 * t71047 + 0.32e2 / 0.9e1 * t72402 - 0.10e2 / 0.27e2 * t72404 + 0.20e2 / 0.3e1 * t4013 * t71075 - t69624 - t69626 - t69628 - t69630 - 0.10e2 / 0.3e1 * t4156 * t69653 - 0.4e1 * t7847 * t5309 - 0.2e1 * t8308 * t5309 - 0.4e1 * t2448 * t19482 - t69636 - t69638 - t69640 + 0.2e1 / 0.3e1 * t13870 * t18535;
25149   t72436 = t5179 * t5044 * t12771 * t423;
25150   t72447 = t13889 * t5104 / 0.6e1 - t69680 + t4173 * t69815 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t69581 - t13642 * t5189 / 0.3e1 - 0.2e1 / 0.3e1 * t13645 * t5189 - 0.2e1 / 0.3e1 * t4009 * t18935 - 0.2e1 / 0.3e1 * t4009 * t18953 - 0.10e2 / 0.27e2 * t72436 + 0.5e1 / 0.36e2 * t70973 * t5300 + t69682 - t69692 + 0.2e1 / 0.3e1 * t13876 * t18719 + 0.2e1 / 0.3e1 * t13876 * t18724 - t69708 + 0.5e1 / 0.36e2 * t5179 * t68538 * t5299 - t69711;
25151   t72474 = 0.5e1 / 0.18e2 * t18957 * t18543 * t72377 * t404 - t69728 + 0.2e1 / 0.3e1 * t49626 * t5094 + 0.2e1 / 0.3e1 * t49957 * t5094 + 0.5e1 / 0.72e2 * t70935 * t5300 + 0.5e1 / 0.36e2 * t70938 * t5300 - 0.5e1 / 0.3e1 * t13808 * t18729 + t49630 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t49961 * t5094 + 0.2e1 / 0.3e1 * t13876 * t18715 - t69747 - t69749 - t69751 - t69756 - t69758 + 0.5e1 / 0.36e2 * t18957 * t18543 * t19359 * t1406 - 0.10e2 / 0.3e1 * t4156 * t69779 - t69770;
25152   t72479 = t13419 * t18920;
25153   t72481 = t18945 * t19464;
25154   t72499 = -t69777 - t69795 - t69798 - 0.10e2 * t13415 * t71099 - 0.80e2 / 0.9e1 * t72479 - 0.10e2 / 0.27e2 * t72481 + 0.10e2 * t13892 * t70564 + 0.2e1 / 0.3e1 * t13811 * t18535 - t69811 + t1277 * t70151 / 0.3e1 + t69827 + 0.2e1 / 0.3e1 * t13870 * t18719 - 0.4e1 / 0.3e1 * t4026 * t71151 + 0.2e1 / 0.3e1 * t13870 * t18715 + t69849 + t4173 * t70047 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t69590;
25155   t72502 = t363 * t423;
25156   t72505 = t5179 * t18555 * t72502 * t439;
25157   t72509 = t18957 * t18543 * t72502 * t404;
25158   t72531 = t5179 * t18560 * t72502 * t464;
25159   t72537 = 0.2e1 / 0.3e1 * t4173 * t69593 - 0.20e2 / 0.27e2 * t72505 - 0.20e2 / 0.27e2 * t72509 + 0.6e1 * t5211 * t13749 + t69853 + t69855 + 0.10e2 / 0.3e1 * t4013 * t71170 - 0.5e1 / 0.6e1 * t71181 * t19361 + 0.5e1 / 0.18e2 * t71094 * t19365 + 0.5e1 / 0.18e2 * t18945 * t19369 + 0.5e1 / 0.18e2 * t18945 * t19373 - 0.6e1 * t71026 * t13463 + 0.35e2 / 0.12e2 * t70947 * t18543 * t19359 * t1398 - 0.20e2 / 0.27e2 * t72531 - t69858 - 0.10e2 / 0.3e1 * t4156 * t69800 - 0.10e2 / 0.3e1 * t4156 * t69739;
25160   t72545 = t57 * t443;
25161   t72546 = t72545 * t404;
25162   t72550 = t72545 * t439;
25163   t72554 = t72545 * t464;
25164   t72558 = 0.2e1 / 0.3e1 * t13876 * t18734 - t68274 + 0.2e1 / 0.3e1 * t4173 * t69729 + t69870 + 0.2e1 * t5211 * t13585 - 0.5e1 / 0.3e1 * t71184 * t4935 * t72546 - 0.5e1 / 0.3e1 * t71136 * t1137 * t72550 - 0.5e1 / 0.3e1 * t71136 * t70080 * t72554 - t68283 - t68285 - t68287 + t69881 + t69883 + t69885 + t69887 + t69889 + t70021;
25165   t72573 = t57 * t439;
25166   t72574 = t72573 * t464;
25167   t72578 = t4016 * t439;
25168   t72582 = t4016 * t464;
25169   t72587 = 0.2e1 / 0.3e1 * t13870 * t18734 + t1277 * t70147 / 0.6e1 + t4160 * t18758 / 0.3e1 - t70026 - t70028 + t1277 * t70141 / 0.6e1 + 0.5e1 * t13892 * t69789 - t70031 - 0.5e1 / 0.3e1 * t4156 * t69734 + 0.2e1 / 0.3e1 * t4173 * t70122 - t70034 + t70039 + 0.5e1 / 0.9e1 * t70855 * t50654 * t72574 + 0.5e1 / 0.9e1 * t70858 * t1137 * t72578 + 0.5e1 / 0.9e1 * t70858 * t70080 * t72582 - t5211 * t13636 + t70058 - t70063;
25170   t72604 = 0.55e2 / 0.81e2 * t5179 * t5044 * t3763 * t202;
25171   t72621 = 0.10e2 / 0.3e1 * t4013 * t71066 - 0.5e1 / 0.3e1 * t4156 * t69773 - 0.2e1 * t5211 * t13595 - 0.2e1 / 0.3e1 * t4017 * t18953 - 0.2e1 / 0.3e1 * t4026 * t70968 + t72604 + t70095 - 0.10e2 / 0.3e1 * t4156 * t69864 - 0.10e2 / 0.3e1 * t13882 * t18539 + 0.2e1 / 0.3e1 * t13876 * t18535 + t49609 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t13811 * t18715 + 0.2e1 / 0.3e1 * t13811 * t18719 + 0.2e1 / 0.3e1 * t13811 * t18724 - t70097 + t70099 - 0.4e1 / 0.3e1 * t4026 * t71162;
25172   t72634 = t13592 * t5189;
25173   t72636 = t13639 * t5189;
25174   t72654 = -t70101 + 0.5e1 / 0.36e2 * t18940 * t19385 + 0.5e1 / 0.36e2 * t18945 * t19385 + 0.5e1 / 0.72e2 * t5179 * t5044 * t47197 * t57 + t70106 + 0.2e1 / 0.3e1 * t4173 * t69573 + t1277 * t70213 / 0.3e1 + 0.16e2 / 0.9e1 * t72634 + 0.16e2 / 0.9e1 * t72636 - t1227 * t71019 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t71023 + t4173 * t69657 / 0.3e1 + t13824 * t5104 / 0.6e1 + t4168 * t18754 / 0.3e1 + t4168 * t18758 / 0.3e1 + t13833 * t5104 / 0.3e1 + t13836 * t5104 / 0.3e1;
25175   t72668 = t4021 * t18953;
25176   t72676 = 0.88e2 / 0.27e2 * t13626 * t5189;
25177   t72681 = t18989 * t18543 * t72502 * t443;
25178   t72687 = t4152 * t18754 / 0.3e1 + t4152 * t18758 / 0.3e1 + t13851 * t5104 / 0.6e1 + t13855 * t5104 / 0.3e1 + t4160 * t18754 / 0.3e1 + t70114 - 0.2e1 * t18978 * t4129 + 0.16e2 / 0.9e1 * t72668 + 0.5e1 / 0.72e2 * t70832 * t5300 + 0.6e1 * t18978 * t4125 + t71032 * t1245 - t72676 - 0.2e1 * t6587 * t5309 + t70171 + 0.20e2 / 0.9e1 * t72681 + 0.2e1 / 0.3e1 * t13870 * t18724 + 0.2e1 / 0.3e1 * t4173 * t69577;
25179   t72708 = -t4957 + 0.5e1 / 0.36e2 * t5179 * t18560 * t19359 * t1516 + t4173 * t69684 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t69688 + t70190 + t70191 - t70193 - t68409 - t68410 - t68411 + 0.6e1 * t5211 * t13605 + t70205 + 0.2e1 / 0.3e1 * t13811 * t18734 - 0.5e1 / 0.3e1 * t13879 * t18729 + t50280 * t5094 / 0.3e1 + t70209 - 0.5e1 / 0.3e1 * t13882 * t18729 + 0.2e1 * t18978 * t4077;
25180   t72711 = t4021 * t18935;
25181   t72726 = -t70220 + 0.16e2 / 0.9e1 * t72711 + t70513 - t70524 - t70526 - t70529 - t1227 * t71001 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t71005 - t13618 * t5189 / 0.3e1 - 0.2e1 / 0.3e1 * t4017 * t18935 - 0.4e1 * t1476 * t19482 - 0.2e1 * t449 * t14092 * t1231 - t70533 - t70535 + t70537 + t70539 + t70541;
25182   t72741 = t4933 * t423;
25183   t72744 = t19027 * t4932 * t72741 * t464;
25184   t72746 = -0.5e1 / 0.9e1 * t13930 * t23764 * t72582 + t70222 - 0.5e1 / 0.18e2 * t71356 * t19445 + t70240 + 0.10e2 / 0.3e1 * t13930 * t72070 - t70251 - t70254 - t70257 - 0.5e1 / 0.18e2 * t71345 * t19436 + 0.10e2 / 0.3e1 * t50066 * t19182 + t68479 - t68481 - 0.5e1 / 0.18e2 * t71331 * t19436 + 0.20e2 / 0.27e2 * t72744;
25185   t72749 = t19030 * t4932 * t72741 * t404;
25186   t72751 = t73 * t423;
25187   t72754 = t19033 * t4932 * t72751 * t439;
25188   t72764 = t19023 * t4932 * t72741 * t443;
25189   t72770 = 0.20e2 / 0.27e2 * t72749 + 0.20e2 / 0.27e2 * t72754 - 0.10e2 * t50061 * t72216 - 0.35e2 / 0.12e2 * t71257 * t4932 * t19430 * t1398 - 0.20e2 / 0.9e1 * t72764 - 0.5e1 / 0.36e2 * t19033 * t4932 * t19443 * t1466 - t70281 - t70283 - t70289 - t68517 - t68521 + t70303 - t70305 + t5056;
25190   t72772 = t18359 * t19451;
25191   t72775 = t5042 * t18992 * t19450;
25192   t72777 = -t70329 + 0.10e2 / 0.27e2 * t72772 + 0.10e2 / 0.27e2 * t72775 - t68522 + t70338 + t70340 + t70342 + t70344 - t70365 - t70371 - t70373 - t70375 - t70377 + t70384;
25193   t72800 = t70390 - 0.5e1 / 0.36e2 * t68527 * t5313 - 0.5e1 / 0.36e2 * t68531 * t5313 - 0.5e1 / 0.36e2 * t5042 * t5200 * t68538 * t57 - 0.5e1 / 0.36e2 * t19027 * t4932 * t19430 * t1516 - 0.5e1 / 0.18e2 * t71334 * t19440 - 0.5e1 / 0.18e2 * t71353 * t19440 - 0.2e1 / 0.3e1 * t3945 * t1309 * t72114 - t3945 * t1309 * t72118 / 0.3e1 + t70393 + t70413 + t70415 + t70418 + t70421;
25194   t72830 = -0.2e1 / 0.3e1 * t14624 * t19420 - 0.2e1 / 0.3e1 * t14624 * t19423 - 0.2e1 / 0.3e1 * t14624 * t19426 - t47710 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t13281 * t19420 - 0.2e1 / 0.3e1 * t13281 * t19423 - 0.5e1 / 0.9e1 * t19027 * t70271 * t72574 - 0.5e1 / 0.9e1 * t19030 * t70271 * t72578 + 0.5e1 / 0.3e1 * t71312 * t23764 * t72554 + 0.5e1 / 0.3e1 * t15516 * t23764 * t72546 + 0.5e1 / 0.3e1 * t19023 * t70271 * t72550 + t70429 + t70431 + t70433;
25195   t72851 = -0.2e1 / 0.3e1 * t47726 * t5316 - 0.2e1 / 0.3e1 * t13263 * t19420 - 0.2e1 / 0.3e1 * t13263 * t19423 - 0.2e1 / 0.3e1 * t13263 * t19426 - t52195 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t52199 * t5316 + t70446 + t70448 + t70450 - 0.5e1 / 0.36e2 * t19030 * t4932 * t19430 * t1406 - 0.5e1 / 0.18e2 * t71337 * t19445 + 0.5e1 / 0.3e1 * t13930 * t72074 + t68607 + t68608;
25196   t72886 = 0.55e2 / 0.81e2 * t5042 * t5200 * t5044 * t202;
25197   t72887 = 0.5e1 / 0.6e1 * t71261 * t19432 + 0.5e1 / 0.6e1 * t71341 * t19432 + 0.5e1 / 0.12e2 * t19023 * t4932 * t19430 * t1470 + 0.10e2 / 0.3e1 * t55808 * t19182 + 0.10e2 / 0.3e1 * t50070 * t19182 + 0.10e2 / 0.3e1 * t50074 * t19182 + 0.10e2 / 0.3e1 * t13930 * t72065 - 0.2e1 / 0.3e1 * t13281 * t19426 - t3945 * t13942 * t5273 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t4247 * t19192 - 0.2e1 / 0.3e1 * t3945 * t4247 * t19196 - t3945 * t1309 * t72109 / 0.3e1 - t72886 + t70465;
25198   t72899 = t70467 + t70469 + t70472 + t70476 - t70478 - t70483 - 0.5e1 / 0.72e2 * t68523 * t5313 - 0.5e1 / 0.36e2 * t18359 * t19411 - 0.5e1 / 0.72e2 * t5042 * t71305 * t5312 - t47724 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t52182 * t5316 + t68638 + t68640 + t68651;
25199   t72911 = t5211 * t13536 + (t72746 + t72770 + t72777 + t72800 + t72830 + t72851 + t72887 + t72899) * t227 - t70551 - t70553 - t70557 - t70562 - t70579 - t70581 - t70583 - t70586 - t70590 + t70593 - t70603 - t68992 - 0.4e1 * t449 * t4235 * t4041 - 0.4e1 * t1476 * t19475 - 0.4e1 * t2448 * t19475 + t70621;
25200   t72926 = t70623 + 0.2e1 * t19455 * t751 - t70627 + t5319 * t2101 - t70631 + t70634 - t70637 - t70641 + 0.5e1 / 0.36e2 * t5179 * t18555 * t19359 * t1466 - t70643 - t70645 - t70648 - t69015 - t70651 - 0.10e2 / 0.3e1 * t13879 * t18539 - 0.5e1 / 0.6e1 * t70817 * t19361 + 0.5e1 / 0.18e2 * t70820 * t19365;
25201   t72937 = 0.5e1 / 0.18e2 * t18940 * t19369 + 0.5e1 / 0.18e2 * t18940 * t19373 - 0.5e1 / 0.12e2 * t18989 * t18543 * t19359 * t1470 + 0.3e1 * t5211 * t13448 - t70653 - t70656 - t70658 - t70659 - t70661 - t70664 - t70668 - t70670 - t70672 - t70675 - t70677 - t70679 - t70743 + t70747;
25202   t72941 = t72395 + t72418 + t72447 + t72474 + t72499 + t72537 + t72558 + t72587 + t72621 + t72654 + t72687 + t72708 + t72726 + t72911 + t72926 + t72937;
25203   t72948 = t5322 * t878;
25204   t72956 = 0.3e1 * t1269 * t14109 + 0.6e1 * t2367 * t5327 + 0.3e1 * t2370 * t5327 + t5079 + t69456 + t69461 + t69517 + t69521 + t69529 + t69531 + t69533 + t69537 + t69539 + t69543 + t69547 + t69550 + t69553;
25205   t72973 = t370 * t72941 * params->d + 0.6e1 * t1318 * t13784 + 0.12e2 * t1318 * t13787 + 0.6e1 * t1318 * t13790 + 0.3e1 * t1318 * t13793 + 0.6e1 * t19514 * t875 + 0.12e2 * t4143 * t4263 + 0.6e1 * t4146 * t4263 + t69498 + t69499 + t69502 + t69505 + t69555 + t69558 + t69561 + t69564 + t69568 + t70756;
25206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25207     v4rho2sigma2[4] = 0.2e1 * t72339 + 0.2e1 * t19503 * t878 + 0.2e1 * t870 * t19524 + 0.2e1 * t72345 + 0.2e1 * t72347 + 0.2e1 * t4258 * t4149 + 0.2e1 * t72351 + 0.2e1 * t72353 + t2359 * t5331 + t14097 * t1272 + t1265 * t14117 + 0.2e1 * t72358 + 0.2e1 * t72360 + t1316 * t13796 + t7 * t72941 * t372 + 0.2e1 * t4132 * t4267 + t5323 * t2373 + t13758 * t1320 + 0.2e1 * t72948 + t872 * (t72956 + t72973);
25208 
25209   t72976 = t19720 * t372;
25210   t72978 = t5391 * t878;
25211   t72988 = t6445 * t19564;
25212   t72999 = t6453 * t19564;
25213   t73012 = t26602 * t19531;
25214   t73019 = t6445 * t19531;
25215   t73024 = -0.20e2 / 0.3e1 * t70815 + 0.5e1 / 0.6e1 * t72999 * t68346 + 0.5e1 / 0.6e1 * t18989 * t18543 * t12792 * t4166 + 0.5e1 / 0.6e1 * t19560 * t68209 + 0.5e1 / 0.6e1 * t19560 * t68244 + 0.4e1 / 0.3e1 * t13811 * t18925 + 0.5e1 / 0.12e2 * t73012 * t18083 + 0.5e1 / 0.12e2 * t19560 * t68962 - 0.5e1 / 0.72e2 * t19532 * t68965 - 0.5e1 / 0.36e2 * t73019 * t18060 - 0.5e1 / 0.36e2 * t19532 * t68972;
25216   t73036 = t26389 * t19531;
25217   t73049 = 0.2e1 / 0.3e1 * t13855 * t5189 + 0.2e1 / 0.3e1 * t4160 * t18935 + 0.2e1 / 0.3e1 * t4160 * t18953 + 0.2e1 / 0.3e1 * t4173 * t70968 - 0.5e1 / 0.72e2 * t19565 * t68188 - 0.35e2 / 0.24e2 * t73036 * t68694 + t1277 * t71019 / 0.3e1 + 0.2e1 / 0.3e1 * t1277 * t71023 + t13889 * t5189 / 0.3e1 + 0.2e1 / 0.3e1 * t13833 * t5189 + 0.2e1 / 0.3e1 * t13836 * t5189;
25218   t73070 = 0.2e1 / 0.3e1 * t4152 * t18935 + 0.2e1 / 0.3e1 * t4152 * t18953 + t13851 * t5189 / 0.3e1 - 0.10e2 / 0.3e1 * t13879 * t18920 + 0.4e1 / 0.3e1 * t13876 * t18925 - 0.10e2 / 0.3e1 * t4156 * t71066 + 0.4e1 / 0.3e1 * t4173 * t71162 - 0.5e1 / 0.144e3 * t26398 * t5334 * t4936 - 0.5e1 / 0.72e2 * t19582 * t18044 + 0.4e1 * t70866 - t68094;
25219   t73087 = 0.4e1 / 0.3e1 * t70874 + 0.2e1 / 0.3e1 * t70876 + 0.4e1 / 0.3e1 * t70878 + 0.4e1 / 0.3e1 * t70880 + 0.4e1 / 0.3e1 * t70882 + 0.4e1 / 0.3e1 * t70884 + 0.4e1 / 0.3e1 * t13870 * t18925 + 0.2e1 / 0.3e1 * t70894 - 0.2e1 * t70901 - 0.10e2 / 0.3e1 * t13882 * t18920 - 0.10e2 / 0.3e1 * t13808 * t18920;
25220   t73101 = -t1474 * t5381 - t68135 - 0.5e1 / 0.36e2 * t19532 * t69423 - 0.4e1 * t70903 - 0.8e1 * t70905 - 0.20e2 / 0.3e1 * t70910 - 0.20e2 / 0.3e1 * t70912 - 0.5e1 / 0.36e2 * t19565 * t68152 + 0.2e1 / 0.3e1 * t70943 + 0.4e1 / 0.3e1 * t70945 - 0.5e1 / 0.18e2 * t19532 * t68218;
25221   t73117 = -0.5e1 / 0.18e2 * t19565 * t68213 - 0.5e1 / 0.18e2 * t19565 * t68248 - 0.5e1 / 0.72e2 * t5335 * t68330 + 0.4e1 / 0.3e1 * t70954 + 0.4e1 / 0.3e1 * t70986 + 0.2e1 / 0.3e1 * t70988 + 0.4e1 / 0.3e1 * t70990 + 0.4e1 / 0.3e1 * t70992 - 0.10e2 / 0.3e1 * t71011 + t68254 - 0.20e2 / 0.3e1 * t4156 * t71075;
25222   t73130 = t13824 * t5189 / 0.3e1 + 0.2e1 / 0.3e1 * t4168 * t18935 + 0.2e1 / 0.3e1 * t4168 * t18953 + 0.2e1 / 0.3e1 * t1277 * t71005 - 0.12e2 * t71027 + t68256 - t68272 + 0.2e1 * t71033 - t68274 + 0.4e1 / 0.3e1 * t71034 + 0.4e1 / 0.3e1 * t71036;
25223   t73143 = t363 * t4166;
25224   t73156 = -0.10e2 / 0.3e1 * t4156 * t71170 - 0.5e1 / 0.72e2 * t19532 * t69024 + t68300 - 0.5e1 / 0.18e2 * t5179 * t18555 * t73143 * t439 - 0.5e1 / 0.18e2 * t5179 * t18560 * t73143 * t464 + t68314 - 0.20e2 / 0.3e1 * t71079 + t68316 + 0.4e1 / 0.3e1 * t71083 + 0.2e1 / 0.3e1 * t71085 + 0.4e1 / 0.3e1 * t71087;
25225   t73168 = 0.2e1 / 0.3e1 * t71102 + 0.4e1 / 0.3e1 * t71104 + 0.4e1 / 0.3e1 * t71106 + 0.4e1 / 0.3e1 * t71108 + 0.6e1 * t71116 - t68361 + 0.20e2 * t71118 - 0.2e1 * t447 * t19689 - t68379 - t68382 - 0.5e1 / 0.3e1 * t4156 * t71047;
25226   t73178 = -0.5e1 / 0.18e2 * t18957 * t18543 * t363 * t404 * t4166 - t4957 + 0.4e1 / 0.3e1 * t71142 + 0.2e1 / 0.3e1 * t71144 - t68398 - t68403 + t5388 * t2101 - t68409 - t68410 - t68411 - 0.8e1 * t71158;
25227   t73199 = t19591 * t29967 * t19593;
25228   t73203 = t19650 * t210 * t229 * t19651;
25229   t73206 = t19601 * t29967 * t19603;
25230   t73212 = t2270 * t351;
25231   t73223 = t5355 * t5115 * t2291;
25232   t73228 = t5355 * t5115 * t7461;
25233   t73229 = t2214 * t5349;
25234   t73233 = t19656 * t209;
25235   t73234 = t4959 * t73233;
25236   t73239 = t19626 * t19649;
25237   t73248 = t5344 * t1616 * t19608;
25238   t73250 = -t19591 * t18226 * t19592 * t2257 / 0.768e3 - t19601 * t18226 * t19602 * t2120 / 0.576e3 - t73199 / 0.576e3 + t73203 / 0.288e3 + t73206 / 0.864e3 + t19601 * t18226 * t19602 * t2124 / 0.1152e4 + 0.5e1 / 0.3456e4 * t19601 * t18226 * t73212 * t2115 + t19650 * t210 * t276 * t340 * t2311 / 0.384e3 - 0.16e2 * t73223 * t15806 * t14058 + 0.24e2 * t73228 * t73229 * t14039 + t73234 * t18226 * t19592 * t2220 / 0.384e3 + t73239 * t19653 / 0.192e3 - 0.4e1 * t19629 * t19635 * t5349 * t2251 * t329 - t73248 / 0.576e3;
25239   t73251 = t19626 * t19657;
25240   t73270 = t5364 * t5365 * t586 * t758 / 0.3456e4;
25241   t73272 = t19667 * t69205 * t828;
25242   t73280 = t19646 * t19663;
25243   t73283 = t4973 * t2284 * t4976;
25244   t73289 = t5344 * t6896 * t5345 / 0.3456e4;
25245   t73293 = t4201 * t4201;
25246   t73299 = t19658 * t69205 * t815;
25247   t73303 = t5356 * t5362 * t7378 * t337;
25248   t73307 = t73251 * t19659 / 0.192e3 + t19658 * t18299 * t2258 / 0.384e3 - t5344 * t533 * t758 * t837 * t2311 / 0.768e3 + t5344 * t533 * t758 * t2291 * t2293 / 0.384e3 + t73270 - t73272 / 0.864e3 - t19667 * t18299 * t2280 / 0.1152e4 - 0.5e1 / 0.3456e4 * t19667 * t18299 * t2272 - t73280 / 0.576e3 - t73283 * t5363 * t5367 / 0.768e3 - t73289 - 0.8e1 * t19621 * t19641 * t14039 - 0.4e1 * t1159 * t73293 * t1162 * t5352 + t73299 / 0.288e3 - t73303 * t18299 * t2221 / 0.128e3;
25249   t73310 = t19629 * t19635 * t805;
25250   t73315 = t5349 * t2218;
25251   t73320 = t19625 * t5115;
25252   t73328 = t2291 * t7378;
25253   t73339 = t4978 * t7461;
25254   t73341 = t5356 * t73339 * t19589;
25255   t73359 = t1164 * t7461;
25256   t73365 = t329 * t844;
25257   t73370 = -t73310 * t2578 * t19651 * t814 / 0.96e2 - 0.4e1 * t19629 * t19635 * t73315 * t329 - 0.8e1 * t73320 * t19638 + 0.2e1 * t19621 * t4215 * t2257 - 0.4e1 * t19613 * t14070 + 0.12e2 * t19629 * t73328 * t73315 * t2219 - t19591 * t18226 * t19592 * t2252 / 0.768e3 + 0.2e1 * t73283 * t5359 - t73341 * t210 * t276 * t340 * t2293 / 0.128e3 + t19667 * t18299 * t2276 / 0.576e3 - 0.12e2 * t73320 * t19632 + 0.4e1 * t19629 * t19641 * t1291 * t14011 + 0.2e1 * t19621 * t4215 * t2252 - 0.12e2 * t5351 * t73359 * t331 * t2293 + t19591 * t5366 * t837 * t813 * t73365 / 0.384e3;
25258   t73372 = t19629 * t14051 * t805;
25259   t73387 = t19629 * t19641 * t805;
25260   t73395 = t805 * t532;
25261   t73396 = t4958 * t1164 * t803 * t73395;
25262   t73397 = t276 * t19602;
25263   t73401 = t19612 * t3851;
25264   t73408 = t29536 * t803;
25265   t73424 = t837 * t759;
25266   t73430 = t19626 * t19666;
25267   t73436 = t73372 * t2578 * t826 * t813 * t9184 / 0.288e3 - 0.24e2 * t19629 * t19630 * t4211 * t4201 - 0.6e1 * t19629 * t19630 * t5349 * t2311 + t73387 * t2578 * t826 * t844 * t760 / 0.288e3 - t73396 * t73397 * t2234 / 0.576e3 + 0.8e1 * t73401 * t14059 + 0.4e1 * t5351 * t19616 * t331 * t2311 + 0.24e2 * t19629 * t73408 * t5349 * t2293 + 0.8e1 * t73320 * t19643 - 0.4e1 * t19621 * t14051 * t2220 + 0.16e2 * t73401 * t14044 + 0.4e1 * t5356 * t5357 * t803 * t73293 - t19601 * t2233 * t73424 * t436 * t844 / 0.576e3 - t73430 * t19668 / 0.576e3 + t19658 * t18299 * t2253 / 0.384e3;
25268   t73442 = t19671 * t2320;
25269   t73445 = t5370 * t7519;
25270   t73451 = t4223 * t4223;
25271   t73459 = t5373 * t29662;
25272   t73466 = my_piecewise3(t359, t169 * (t73250 + t73307 + t73370 + t73436) * t848 / 0.2e1 - t169 * t73442 * t847 + t169 * t73445 * t2318 - t169 * t19675 * t2314 / 0.2e1 - t169 * t73451 * t2320 + 0.4e1 * t15846 * t49925 * t847 - t169 * t4226 * t14072 - 0.3e1 * t169 * t73459 * t2318 + t169 * t19681 * t2314, t69403);
25273   t73476 = 0.4e1 * t71160 - t68412 + t68421 - 0.5e1 / 0.72e2 * t5179 * t5044 * t3763 * t13822 - 0.5e1 / 0.36e2 * t73019 * t18057 - t68427 + t68430 + 0.10e2 * t13892 * t71099 - t98 * (t71444 + t71445 + t71447 + t73466 * t46 / 0.2e1 + t19685 * t436 + t5378 * t1463 / 0.2e1) + 0.2e1 * t19716 * t751 + t68440;
25274   t73480 = t4166 * t4166;
25275   t73494 = -0.4e1 * t1476 * t19573 + t68692 - 0.4e1 * t71179 - t68702 + t68944 - t68946 - 0.5e1 / 0.72e2 * t1397 * t4926 * t73480 * t4936 - 0.5e1 / 0.72e2 * t1397 * t68095 * t5333 * t4936 + t1277 * t71001 / 0.3e1 - 0.5e1 / 0.144e3 * t5335 * t68266 - 0.4e1 * t71196;
25276   t73530 = t5041 * t5333;
25277   t73531 = t6453 * t73530;
25278   t73535 = t1397 * t3944 * t5333;
25279   t73538 = -0.4e1 / 0.3e1 * t71234 - 0.2e1 / 0.3e1 * t71237 - 0.4e1 / 0.3e1 * t71240 - 0.2e1 / 0.3e1 * t71242 - 0.4e1 / 0.3e1 * t71244 - 0.4e1 / 0.3e1 * t71246 - 0.4e1 / 0.3e1 * t71248 + 0.10e2 / 0.3e1 * t71253 + 0.5e1 / 0.72e2 * t5042 * t5383 * t68671 - 0.5e1 / 0.12e2 * t68668 * t19693 + 0.5e1 / 0.36e2 * t68568 * t19696 + 0.5e1 / 0.36e2 * t13260 * t19699 + 0.5e1 / 0.36e2 * t18359 * t19703 + 0.35e2 / 0.24e2 * t68542 * t5383 * t68543 + 0.20e2 / 0.3e1 * t71255 - 0.5e1 / 0.6e1 * t19023 * t4932 * t68457 * t4166 - 0.5e1 / 0.6e1 * t73531 * t68598 + 0.5e1 / 0.18e2 * t73535 * t68604;
25280   t73543 = t18367 * t5333;
25281   t73544 = t1397 * t73543;
25282   t73572 = 0.5e1 / 0.18e2 * t19027 * t4932 * t68484 * t4166 + 0.5e1 / 0.18e2 * t73544 * t68492 + 0.5e1 / 0.18e2 * t19030 * t4932 * t68496 * t4166 - t68468 + 0.5e1 / 0.36e2 * t18359 * t19706 - 0.5e1 / 0.24e2 * t18362 * t5383 * t68579 + 0.5e1 / 0.72e2 * t18368 * t5383 * t68656 + 0.5e1 / 0.72e2 * t3939 * t5383 * t68660 - 0.20e2 * t71276 + t68479 - t68481 + 0.5e1 / 0.72e2 * t5042 * t5200 * t5044 * t13822 + 0.20e2 / 0.3e1 * t71286 + 0.20e2 / 0.3e1 * t71288 + 0.20e2 / 0.3e1 * t71290 - t68517 - t68521 - 0.4e1 / 0.3e1 * t71292 - 0.4e1 / 0.3e1 * t71295;
25283   t73576 = t1201 * t5333;
25284   t73577 = t6453 * t73576;
25285   t73580 = t6453 * t73543;
25286   t73588 = t1397 * t73576;
25287   t73606 = -0.4e1 / 0.3e1 * t71297 - 0.2e1 / 0.3e1 * t71310 + t5056 - t68522 - 0.5e1 / 0.6e1 * t73577 * t68587 - 0.5e1 / 0.6e1 * t73580 * t68459 + 0.5e1 / 0.18e2 * t19033 * t4932 * t73 * t4166 * t439 + 0.5e1 / 0.18e2 * t73588 * t68505 + t68607 + t68608 + 0.20e2 / 0.3e1 * t71359 + 0.20e2 / 0.3e1 * t71361 + t68610 + 0.5e1 / 0.72e2 * t5042 * t73480 * t114 * t5044 + 0.5e1 / 0.72e2 * t5042 * t5383 * t68538 + 0.5e1 / 0.144e3 * t68523 * t5384 + 0.5e1 / 0.72e2 * t68527 * t5384 + 0.5e1 / 0.72e2 * t68531 * t5384;
25288   t73617 = -0.2e1 / 0.3e1 * t71363 - 0.4e1 / 0.3e1 * t71366 - 0.2e1 / 0.3e1 * t71369 - 0.4e1 / 0.3e1 * t71372 - 0.2e1 / 0.3e1 * t71380 - 0.4e1 / 0.3e1 * t71384 - 0.4e1 / 0.3e1 * t71386 - 0.4e1 / 0.3e1 * t71388 - 0.4e1 / 0.3e1 * t71390 - 0.4e1 / 0.3e1 * t71392 + t68636 + t68638 + t68640 + t68643 - t68646 + t68648 + t68651 - t68653 + t68655;
25289   t73629 = -0.4e1 * t71206 - 0.8e1 * t71208 - 0.8e1 * t71210 - 0.8e1 * t71213 - 0.4e1 * t449 * t19689 * t464 + (t73538 + t73572 + t73606 + t73617) * t227 + 0.4e1 / 0.3e1 * t4173 * t71151 + 0.12e2 * t71423 - 0.2e1 * t449 * t5381 * t1516 + 0.2e1 * t71425 - 0.4e1 * t71429;
25290   t73634 = -0.2e1 * t1482 * t5381 - t68992 - t69004 - t69008 + t69009 - t69015 + t69022 - t69034 - t69420 - 0.8e1 * t71434 - 0.4e1 * t71457;
25291   t73638 = t73476 + t73178 + 0.12e2 * t70807 - 0.20e2 / 0.3e1 * t70809 + t73629 + t73494 + t73130 + t73087 + t73049 + 0.4e1 / 0.3e1 * t70803 + 0.12e2 * t70805 + t73024 + t73101 + t73168 - 0.20e2 / 0.3e1 * t70811 + t73070 + 0.4e1 / 0.3e1 * t71038 + 0.4e1 / 0.3e1 * t71040 + t73634 + t73156 + t73117 - t68296 - 0.20e2 / 0.3e1 * t70813 - 0.5e1 / 0.36e2 * t5179 * t5044 * t12771 * t4166 - t68289 - 0.5e1 / 0.72e2 * t5335 * t68416 - 0.5e1 / 0.36e2 * t18940 * t19528 + 0.5e1 / 0.24e2 * t19560 * t68128 - 0.5e1 / 0.36e2 * t72988 * t18091 - t68280 - t68283 - t68285 - t68287 - t68276;
25292   t73644 = t4257 * t1320;
25293   t73646 = t1315 * t4267;
25294   t73654 = t869 * t5399;
25295   t73656 = t368 * t19739;
25296   t73667 = 0.6e1 * t19732 * t875 + t5079 + t69456 + t69459 + t69461 + t69466 + t69470 + t69472 + 0.12e2 * t71485 + 0.24e2 * t71492 + 0.6e1 * t71494 + 0.12e2 * t71497;
25297   t73677 = t370 * t73638 * params->d + 0.6e1 * t2367 * t5396 + 0.3e1 * t2370 * t5396 + t69475 + t69481 + t69491 + t69498 + t69499 + t69502 + t69505 + 0.24e2 * t71508 + 0.6e1 * t71511 + 0.12e2 * t71513;
25298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25299     v4rho2sigma2[5] = 0.2e1 * t72976 + 0.2e1 * t72978 + t7 * t73638 * t372 + 0.2e1 * t19721 * t878 + t5392 * t2373 + 0.4e1 * t73644 + 0.4e1 * t73646 + 0.2e1 * t14097 * t1320 + 0.4e1 * t4258 * t4267 + 0.2e1 * t1316 * t14117 + 0.2e1 * t73654 + 0.2e1 * t73656 + t2359 * t5399 + 0.2e1 * t870 * t19739 + t872 * (t73667 + t73677);
25300 
25301   t73680 = t20084 * t372;
25302   t73686 = t1204 * t18205 * t2436;
25303   t73689 = t34313 * t18054;
25304   t73692 = t7591 * t18088;
25305   t73695 = t7591 * t18048;
25306   t73698 = t5044 * t14854;
25307   t73701 = t5044 * t14714;
25308   t73705 = t5044 * t14713 * t404;
25309   t73709 = t5044 * t14713 * t3778;
25310   t73712 = t18056 * t14774;
25311   t73715 = t5044 * t14719;
25312   t73720 = t50644 * t18063;
25313   t73721 = t3762 * t73720;
25314   t73723 = t363 * t883;
25315   t73725 = t18543 * t73723 * t443;
25316   t73729 = t18543 * t73723 * t3778;
25317   t73732 = t363 * t908;
25318   t73734 = t18555 * t73732 * t443;
25319   t73737 = 0.2e1 / 0.3e1 * t14848 * t18212 - 0.5e1 / 0.3e1 * t14851 * t18207 - 0.5e1 / 0.3e1 * t3762 * t73686 + 0.5e1 / 0.24e2 * t73689 * t18083 - 0.5e1 / 0.72e2 * t73692 * t18091 - 0.5e1 / 0.72e2 * t73695 * t18051 + 0.5e1 / 0.24e2 * t18082 * t73698 + 0.5e1 / 0.24e2 * t18082 * t73701 - 0.5e1 / 0.72e2 * t18089 * t73705 - 0.5e1 / 0.72e2 * t18049 * t73709 - 0.5e1 / 0.72e2 * t18055 * t73712 - 0.5e1 / 0.72e2 * t18055 * t73715 + 0.2e1 / 0.3e1 * t14152 * t18212 - 0.10e2 / 0.3e1 * t73721 + 0.5e1 / 0.12e2 * t68344 * t73725 - 0.5e1 / 0.36e2 * t68227 * t73729 + 0.5e1 / 0.12e2 * t18082 * t73734;
25320   t73739 = t18555 * t73732 * t404;
25321   t73743 = t18555 * t73732 * t3778;
25322   t73747 = t68216 * t73732 * t464;
25323   t73751 = t1476 * t19744;
25324   t73753 = t2448 * t19744;
25325   t73756 = t449 * t3934 * t4311;
25326   t73761 = t4932 * t4934 * t3091;
25327   t73766 = 0.2e1 * t2439 * t4947 * t363;
25328   t73769 = t12791 * t4316 * t443;
25329   t73776 = t12788 * t20075;
25330   t73778 = t3958 * t20074;
25331   t73779 = t3788 * t73778;
25332   t73781 = t51851 * t4940;
25333   t73783 = -0.5e1 / 0.36e2 * t18089 * t73739 - 0.5e1 / 0.36e2 * t18049 * t73743 - 0.5e1 / 0.36e2 * t18055 * t73747 + t20024 * t751 - 0.4e1 * t73751 - 0.4e1 * t73753 - 0.4e1 * t73756 - 0.5e1 / 0.144e3 * t18040 * t20062 - 0.5e1 / 0.144e3 * t4929 * t73761 - t73766 - t916 * t18357 - 0.10e2 / 0.3e1 * t3762 * t73769 + 0.2e1 / 0.3e1 * t14156 * t18212 - 0.5e1 / 0.3e1 * t14858 * t18207 + 0.2e1 / 0.3e1 * t73776 + 0.2e1 / 0.3e1 * t73779 + 0.2e1 / 0.3e1 * t73781 - t19748;
25334   t73785 = t12761 * t19772;
25335   t73787 = t12765 * t19772;
25336   t73789 = t47494 * t19771;
25337   t73790 = t3762 * t73789;
25338   t73792 = t3946 * t19771;
25339   t73793 = t3762 * t73792;
25340   t73795 = t4412 * t18201;
25341   t73796 = t3788 * t73795;
25342   t73798 = t12758 * t19804;
25343   t73801 = t18555 * t73723 * t439;
25344   t73805 = t18560 * t73723 * t464;
25345   t73812 = t3958 * t20070;
25346   t73816 = t1204 * t3816 * t928;
25347   t73820 = t1204 * t465 * t4311;
25348   t73821 = t3788 * t73820;
25349   t73824 = t1204 * t12780 * t4311;
25350   t73825 = t3788 * t73824;
25351   t73828 = t12791 * t4305 * t443;
25352   t73829 = t3762 * t73828;
25353   t73831 = -t19750 - t19753 - 0.10e2 / 0.3e1 * t73785 - 0.10e2 / 0.3e1 * t73787 - 0.10e2 / 0.3e1 * t73790 - 0.10e2 / 0.3e1 * t73793 + 0.2e1 / 0.3e1 * t73796 + 0.2e1 / 0.3e1 * t73798 - 0.5e1 / 0.36e2 * t18089 * t73801 - 0.5e1 / 0.36e2 * t18089 * t73805 + 0.2e1 / 0.3e1 * t12758 * t20071 + 0.2e1 / 0.3e1 * t12788 * t20071 + 0.2e1 / 0.3e1 * t3788 * t73812 + 0.2e1 / 0.3e1 * t3788 * t73816 + 0.2e1 / 0.3e1 * t73821 + 0.2e1 / 0.3e1 * t73825 - 0.10e2 / 0.3e1 * t73829;
25354   t73832 = t14848 * t18071;
25355   t73834 = t14848 * t18075;
25356   t73836 = t14848 * t18079;
25357   t73841 = 0.2e1 * t19959 * t857;
25358   t73843 = t12791 * t3812 * t912;
25359   t73844 = t3762 * t73843;
25360   t73847 = t12791 * t1144 * t2436;
25361   t73848 = t3762 * t73847;
25362   t73858 = t5044 * t12771 * t4282;
25363   t73861 = t14156 * t18075;
25364   t73863 = t14156 * t18079;
25365   t73865 = t14156 * t18202;
25366   t73867 = t50476 * t4940;
25367   t73869 = t12788 * t19800;
25368   t73871 = t3958 * t19799;
25369   t73872 = t3788 * t73871;
25370   t73881 = 0.2e1 / 0.3e1 * t73832 + 0.2e1 / 0.3e1 * t73834 + 0.2e1 / 0.3e1 * t73836 + 0.5e1 / 0.24e2 * t68959 * t19741 - t73841 - 0.10e2 / 0.3e1 * t73844 - 0.10e2 / 0.3e1 * t73848 - 0.5e1 / 0.72e2 * t68104 * t19759 - 0.5e1 / 0.72e2 * t1397 * t4926 * t3778 * t114 * t19759 - 0.5e1 / 0.72e2 * t18049 * t73858 + 0.2e1 / 0.3e1 * t73861 + 0.2e1 / 0.3e1 * t73863 + 0.2e1 / 0.3e1 * t73865 + 0.2e1 / 0.3e1 * t73867 + 0.2e1 / 0.3e1 * t73869 + 0.2e1 / 0.3e1 * t73872 - 0.5e1 / 0.72e2 * t68131 * t19755 - 0.5e1 / 0.72e2 * t1397 * t404 * t4927 * t114 * t19755;
25371   t73885 = t5044 * t12771 * t883;
25372   t73889 = t1204 * t929 * t3811;
25373   t73890 = t3788 * t73889;
25374   t73892 = t13167 * t19804;
25375   t73894 = t14848 * t18202;
25376   t73896 = t13167 * t19796;
25377   t73898 = t12758 * t19796;
25378   t73900 = t12788 * t19796;
25379   t73902 = t14582 * t4939;
25380   t73903 = t3788 * t73902;
25381   t73905 = t4412 * t18074;
25382   t73906 = t3788 * t73905;
25383   t73908 = t4412 * t18078;
25384   t73909 = t3788 * t73908;
25385   t73914 = t4302 * t18194;
25386   t73916 = t1476 * t19778;
25387   t73918 = t2442 * t18436;
25388   t73921 = t12791 * t3802 * t912;
25389   t73922 = t3762 * t73921;
25390   t73927 = t68796 * t210 * t220 * t999 * t708;
25391   t73932 = t68803 * t210 * t736 * t1030 * t708;
25392   t73934 = t736 * t1013;
25393   t73937 = t68803 * t210 * t73934 * t68805;
25394   t73939 = t220 * t1013;
25395   t73942 = t68803 * t210 * t73939 * t708;
25396   t73944 = t5117 * t14381;
25397   t73949 = t1030 * t677;
25398   t73952 = t68771 * t726 * t532 * t73949;
25399   t73981 = t68796 * t210 * t73939 * t1907;
25400   t73983 = t19900 * t18176;
25401   t73984 = t73983 * t710;
25402   t73986 = t68767 * t1016;
25403   t73988 = t18177 * t2787;
25404   t73992 = t68754 * t68755 * t2747 * t68805;
25405   t73994 = t73927 / 0.384e3 + t73932 / 0.1536e4 + t73937 / 0.1536e4 - t73942 / 0.1536e4 - 0.4e1 * t18142 * t73944 + 0.4e1 * t68825 * t14408 - t73952 / 0.192e3 - 0.4e1 * t5116 * t18155 * t5007 * t2784 * t194 - 0.12e2 * t5116 * t18150 * t19912 * t743 - 0.7e1 / 0.1152e4 * t68706 - 0.8e1 * t18596 * t14401 * t14423 + 0.12e2 * t68725 * t68726 * t14381 + 0.12e2 * t68725 * t68726 * t14395 - 0.8e1 * t18596 * t14401 * t14407 - 0.4e1 * t18596 * t68726 * t14414 + t73981 / 0.384e3 + t73984 / 0.768e3 + t73986 / 0.768e3 + t73988 / 0.768e3 - t73992 / 0.384e3;
25406   t73996 = t18177 * t68761 * t2755;
25407   t73999 = t18177 * t68755 * t2790;
25408   t74002 = t18177 * t68761 * t2797;
25409   t74006 = t5022 * t18182 * t209 * t8202;
25410   t74008 = t999 * t743;
25411   t74011 = t18123 * t1905 * t18128 * t74008;
25412   t74013 = t19916 * t18185;
25413   t74021 = t18123 * t6301 * t18112 * t2803;
25414   t74024 = t18169 * t716 * t19920;
25415   t74026 = t19916 * t717;
25416   t74031 = t18111 * t2746 * t18112 * t2785;
25417   t74038 = t18169 * t207 * t209 * t103 * t2841;
25418   t74040 = t68848 * t19879;
25419   t74044 = t18123 * t1905 * t18128 * t73949;
25420   t74048 = t18123 * t2746 * t68861 * t2818;
25421   t74052 = t18123 * t2746 * t18128 * t2841;
25422   t74056 = t68734 * t19887;
25423   t74058 = -t74031 / 0.1536e4 - 0.4e1 * t18588 * t19909 + t74038 / 0.768e3 + 0.7e1 / 0.2304e4 * t74040 + t74044 / 0.384e3 + t74048 / 0.768e3 - t74052 / 0.1536e4 + 0.7e1 / 0.576e3 * t68735 + 0.7e1 / 0.2304e4 * t68737 - t68740 + 0.7e1 / 0.2304e4 * t74056;
25424   t74061 = t3911 * t14414;
25425   t74064 = t13026 * t14402;
25426   t74068 = t5022 * t68896 * t19926;
25427   t74072 = t68734 * t19883;
25428   t74076 = t68754 * t68755 * t19919 * t708;
25429   t74079 = t68812 * t68755 * t2749;
25430   t74083 = t68771 * t726 * t532 * t74008;
25431   t74087 = t5014 * t5020 * t18109 * t2805;
25432   t74093 = t68705 * t1016;
25433   t74095 = t5117 * t14395;
25434   t74102 = t68792 * t19921;
25435   t74112 = t5014 * t68835 * t18109 * t699 * t532 * t2818;
25436   t74116 = 0.2e1 * t18142 * t74061 - 0.4e1 * t18142 * t74064 - 0.7e1 / 0.576e3 * t74068 + 0.4e1 * t68825 * t14424 + 0.7e1 / 0.576e3 * t74072 + t68752 - t74076 / 0.384e3 - t74079 / 0.256e3 - t74083 / 0.192e3 - 0.5e1 / 0.384e3 * t74087 + 0.12e2 * t18596 * t6259 * t5007 * t14402 - 0.7e1 / 0.1152e4 * t74093 - 0.4e1 * t18142 * t74095 - 0.4e1 * t20319 * t18158 + 0.8e1 * t68825 * t14419 + t74102 / 0.768e3 + 0.4e1 * t20319 * t18162 - 0.6e1 * t18588 * t19904 - t74112 / 0.256e3 - 0.6e1 * t20319 * t18152;
25437   t74129 = t18137 * t196 * t2841;
25438   t74138 = t4973 * t2812;
25439   t74139 = t74138 * t4976;
25440   t74147 = t18123 * t1905 * t18112 * t2728;
25441   t74150 = t19900 * t18168;
25442   t74151 = t74150 * t18172;
25443   t74159 = t13005 * t2818;
25444   t74163 = t74139 * t5021 * t211;
25445   t74165 = t18165 * t19927;
25446   t74167 = t3911 * t2785;
25447   t74174 = t18175 * t698;
25448   t74178 = t4959 * t74174 * t210 * t73939 * t2748;
25449   t74180 = -t74147 / 0.384e3 - 0.7e1 / 0.576e3 * t68898 + t74151 / 0.768e3 + 0.24e2 * t5116 * t68925 * t19903 * t743 + 0.8e1 * t68825 * t14387 - 0.12e2 * t18142 * t74159 - t74163 / 0.1536e4 + t74165 / 0.384e3 + 0.2e1 * t18142 * t74167 - 0.4e1 * t1159 * t3897 * t1162 * t4375 + t74178 / 0.768e3;
25450   t74185 = t175 * (t73994 - t73996 / 0.192e3 + t73999 / 0.768e3 - t74002 / 0.192e3 + t74006 / 0.384e3 + t74011 / 0.384e3 + t74013 / 0.384e3 - 0.12e2 * t5116 * t18150 * t4366 * t3897 + 0.5e1 / 0.384e3 * t74021 - 0.7e1 / 0.1152e4 * t74024 + 0.7e1 / 0.2304e4 * t74026 + t74058 + t74116 - 0.7e1 / 0.1152e4 * t68844 + 0.7e1 / 0.2304e4 * t68849 + 0.7e1 / 0.2304e4 * t68855 - 0.6e1 * t5116 * t18150 * t5007 * t2841 + 0.4e1 * t5116 * t5117 * t1181 * t14357 + 0.4e1 * t5009 * t74129 + 0.4e1 * t18588 * t19913 + 0.4e1 * t5116 * t5117 * t3897 * t4359 + 0.2e1 * t74139 * t5017 - 0.4e1 * t18134 * t14427 + t74180) * t748;
25451   t74186 = t1214 * t74185;
25452   t74187 = t4412 * t18206;
25453   t74190 = -0.5e1 / 0.72e2 * t18089 * t73885 + 0.2e1 / 0.3e1 * t73890 + 0.2e1 / 0.3e1 * t73892 + 0.2e1 / 0.3e1 * t73894 + 0.2e1 / 0.3e1 * t73896 + 0.2e1 / 0.3e1 * t73898 + 0.2e1 / 0.3e1 * t73900 + 0.2e1 / 0.3e1 * t73903 + 0.2e1 / 0.3e1 * t73906 + 0.2e1 / 0.3e1 * t73909 - 0.2e1 * t449 * t5039 * t2478 - 0.4e1 * t73914 - 0.4e1 * t73916 - 0.4e1 * t73918 - 0.10e2 / 0.3e1 * t73922 + t74186 - 0.5e1 / 0.3e1 * t3762 * t74187;
25454   t74191 = t4412 * t18211;
25455   t74199 = t20053 * t3921;
25456   t74201 = t14851 * t18064;
25457   t74209 = t50708 * t4940;
25458   t74211 = t5044 * t14163;
25459   t74216 = t5044 * t14728;
25460   t74220 = t1204 * t2479 * t1143;
25461   t74221 = t3788 * t74220;
25462   t74224 = t1204 * t2451 * t1143;
25463   t74225 = t3788 * t74224;
25464   t74227 = t96 * t4391;
25465   t74229 = t1204 * t74227 * t464;
25466   t74238 = 0.2e1 / 0.3e1 * t3788 * t74191 - 0.5e1 / 0.144e3 * t34310 * t4928 * t4936 - 0.5e1 / 0.144e3 * t20058 * t18044 + 0.2e1 * t74199 - 0.10e2 / 0.3e1 * t74201 + t14692 * t4944 / 0.3e1 + t4269 * t18456 / 0.3e1 + t4269 * t18460 / 0.3e1 + 0.2e1 / 0.3e1 * t74209 + 0.5e1 / 0.24e2 * t18082 * t74211 - 0.5e1 / 0.72e2 * t68969 * t19765 - 0.5e1 / 0.72e2 * t18055 * t74216 + 0.2e1 / 0.3e1 * t74221 + 0.2e1 / 0.3e1 * t74225 + 0.2e1 / 0.3e1 * t3788 * t74229 + t3758 * t20041 / 0.3e1 + t3769 * t20041 / 0.3e1 + t3780 * t20041 / 0.3e1;
25467   t74241 = t66 * t3783 * t4391;
25468   t74245 = t66 * t1136 * t14468;
25469   t74248 = t2448 * t19778;
25470   t74251 = t449 * t14468 * t1143;
25471   t74255 = t1204 * t14718 * t3811;
25472   t74256 = t3788 * t74255;
25473   t74258 = t9859 * t4951;
25474   t74276 = t14863 * t5031;
25475   t74279 = t1135 * t74241 / 0.3e1 + t1135 * t74245 / 0.3e1 - 0.4e1 * t74248 - 0.4e1 * t74251 + t18424 * t1037 + 0.2e1 / 0.3e1 * t74256 - 0.4e1 * t74258 + t14824 * t4944 / 0.3e1 + t14791 * t4944 / 0.3e1 + t14794 * t4944 / 0.3e1 + t14780 * t4944 / 0.3e1 + t14783 * t4944 / 0.3e1 + t14786 * t4944 / 0.3e1 + t4284 * t18456 / 0.3e1 + t4284 * t18460 / 0.3e1 - t74276 + t4277 * t18456 / 0.3e1;
25476   t74282 = t3977 * t19932;
25477   t74294 = 0.2e1 * t9859 * t4955;
25478   t74296 = t14678 * t167 * t168;
25479   t74297 = t74296 * t1192;
25480   t74306 = t66 * t14801 * t1199;
25481   t74310 = t66 * t4287 * t3934;
25482   t74314 = t1204 * t68170 * t928;
25483   t74320 = 0.2e1 * t18426 * t1110;
25484   t74322 = 0.2e1 * t4948 * t3091;
25485   t74323 = t4277 * t18460 / 0.3e1 + t74282 - 0.2e1 * t1476 * t19787 - 0.2e1 * t2448 * t19787 - 0.2e1 * t449 * t18357 * t928 - 0.2e1 * t449 * t19953 * t464 - t74294 + 0.2e1 * t74297 + t3758 * t20030 / 0.3e1 + t3769 * t20030 / 0.3e1 + t3780 * t20030 / 0.3e1 + t1135 * t74306 / 0.3e1 + t1135 * t74310 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t74314 + 0.2e1 / 0.3e1 * t13167 * t20071 - t4957 - t74320 - t74322;
25486   t74327 = t4431 * t18190;
25487   t74328 = t4377 * t677;
25488   t74329 = t3923 * t74328;
25489   t74331 = 0.6e1 * t13345 * t74329;
25490   t74332 = t5060 * t14838;
25491   t74338 = t3958 * t20078;
25492   t74342 = t1204 * t68123 * t912;
25493   t74347 = 0.2e1 * t449 * t3091 * t4954;
25494   t74349 = t449 * t4391 * t3811;
25495   t74351 = t14152 * t18071;
25496   t74353 = t14152 * t18075;
25497   t74355 = t14152 * t18079;
25498   t74357 = t97 * t4391;
25499   t74359 = t1204 * t74357 * t443;
25500   t74362 = t7591 * t18054;
25501   t74365 = t74327 - t74331 - 0.2e1 * t74332 - 0.5e1 / 0.3e1 * t12761 * t20079 - 0.5e1 / 0.3e1 * t12765 * t20079 - 0.5e1 / 0.3e1 * t3762 * t74338 - 0.5e1 / 0.3e1 * t3762 * t74342 - t18095 - t18097 - t18100 - t74347 - 0.4e1 * t74349 + 0.2e1 / 0.3e1 * t74351 + 0.2e1 / 0.3e1 * t74353 + 0.2e1 / 0.3e1 * t74355 - 0.5e1 / 0.3e1 * t3762 * t74359 - 0.5e1 / 0.72e2 * t74362 * t18057;
25502   t74368 = t13167 * t19800;
25503   t74370 = t12758 * t19800;
25504   t74373 = t5044 * t3763 * t2386;
25505   t74376 = t999 * t3919;
25506   t74377 = t3923 * t74376;
25507   t74379 = 0.6e1 * t13345 * t74377;
25508   t74380 = t18469 * t4434;
25509   t74412 = 0.4e1 * t69039 * t14269 - 0.4e1 * t69090 * t19842 - t69103 * t18299 * t474 * t2657 / 0.128e3 - t69077 * t19860 / 0.1152e4 - t69167 * t2578 * t19852 * t540 / 0.192e3 - 0.4e1 * t18261 * t18281 * t14242 + 0.2e1 * t18261 * t3858 * t14275 - 0.12e2 * t18269 * t18270 * t19845 * t577 + t69094 / 0.216e3 - t69099 / 0.1152e4 - t18225 * t18226 * t18227 * t2613 / 0.768e3;
25510   t74416 = t19832 * t5115;
25511   t74425 = t19849 * t18308;
25512   t74440 = t18312 * t69205 * t968;
25513   t74443 = t69116 / 0.576e3 + 0.4e1 * t69039 * t14285 - 0.4e1 * t74416 * t18278 - t69124 / 0.1152e4 + t69129 - t4962 * t533 * t474 * t570 * t2678 / 0.768e3 - t74425 / 0.1152e4 - t18241 * t1684 * t288 * t1531 * t2635 / 0.576e3 + 0.5e1 / 0.3456e4 * t18241 * t6841 * t288 * t1526 * t2635 + t69237 * t19860 / 0.216e3 - t74440 / 0.1728e4 - t69133 / 0.1152e4;
25514   t74445 = t6817 * t4967;
25515   t74453 = t559 * t979;
25516   t74473 = t4962 * t1616 * t19819;
25517   t74476 = t4973 * t2651 * t4976;
25518   t74481 = t19833 * t18289;
25519   t74484 = 0.12e2 * t69081 * t74445 * t14263 + t18225 * t4988 * t19818 * t540 / 0.768e3 + t69173 * t2578 * t74453 * t476 / 0.576e3 - t69167 * t2578 * t2579 * t69213 / 0.192e3 - t69161 * t69162 * t2625 / 0.1152e4 + t18290 * t210 * t276 * t277 * t2678 / 0.384e3 + t18234 * t19820 / 0.144e3 - t74473 / 0.1152e4 - t74476 * t4985 * t4989 / 0.768e3 + t69185 / 0.1728e4 + t74481 * t18293 / 0.384e3;
25520   t74486 = t18225 * t29967 * t19810;
25521   t74495 = t570 * t962;
25522   t74500 = t288 * t962;
25523   t74507 = t19833 * t18297;
25524   t74510 = t886 * t577;
25525   t74518 = t209 * t1804;
25526   t74524 = -t74486 / 0.1152e4 + 0.4e1 * t18269 * t18281 * t1156 * t14218 - 0.4e1 * t18261 * t18281 * t14256 + t18225 * t4988 * t74495 * t69213 / 0.768e3 - t18225 * t4988 * t74500 * t540 / 0.768e3 + 0.2e1 * t74476 * t4981 + t74507 * t18300 / 0.384e3 + t69173 * t2578 * t8572 * t74510 / 0.576e3 + t69060 * t19854 / 0.384e3 + t69207 / 0.576e3 - t18312 * t74518 * t2646 / 0.576e3 - 0.6e1 * t74416 * t18272;
25527   t74534 = t18298 * t69205 * t964;
25528   t74556 = -t18241 * t1684 * t69218 * t74510 / 0.1152e4 - t69087 * t19857 / 0.72e2 + t74534 / 0.576e3 - t18241 * t1684 * t19818 * t476 / 0.1152e4 + 0.8e1 * t69039 * t14248 - 0.12e2 * t18261 * t12878 * t2657 + t19849 * t18304 / 0.144e3 - t69241 / 0.1728e4 + t69051 * t4988 * t74500 * t2580 / 0.384e3 + 0.8e1 * t69039 * t14280 + 0.4e1 * t69090 * t19846;
25529   t74593 = t18241 * t29967 * t19814;
25530   t74595 = -0.4e1 * t69081 * t69254 * t14275 + 0.12e2 * t69253 * t69254 * t14256 - 0.8e1 * t69081 * t14262 * t14268 + 0.2e1 * t18261 * t3858 * t2613 - 0.8e1 * t69081 * t14262 * t14284 - 0.4e1 * t1159 * t3843 * t1162 * t4341 + 0.4e1 * t18269 * t18281 * t3843 * t4325 - 0.6e1 * t18269 * t18270 * t4967 * t2678 - t18269 * t47903 * t529 * t2582 / 0.128e3 + t69272 * t2619 / 0.384e3 - t69043 * t19815 / 0.216e3 + t74593 / 0.1728e4;
25531   t74599 = t18290 * t210 * t229 * t19852;
25532   t74601 = t1804 * t130;
25533   t74625 = t19833 * t18311;
25534   t74635 = t74599 / 0.576e3 + t18241 * t74601 * t18242 * t2501 / 0.576e3 + t69070 * t19811 / 0.144e3 - t69111 * t19854 / 0.72e2 + 0.4e1 * t74416 * t18283 - 0.6e1 * t69090 * t19837 + 0.4e1 * t4969 * t18256 * t267 * t2678 - 0.12e2 * t18269 * t18270 * t4332 * t3843 - 0.4e1 * t18261 * t12899 * t14263 - t74625 * t18313 / 0.1152e4 - 0.4e1 * t18253 * t14288 - 0.4e1 * t18269 * t18275 * t4967 * t2612 * t265;
25535   t74637 = t18269 * t3858 * t529;
25536   t74668 = t277 * t1734;
25537   t74673 = t74637 * t2642 / 0.576e3 - 0.5e1 / 0.3456e4 * t74637 * t2637 + 0.24e2 * t18269 * t69300 * t19836 * t577 - t69161 * t69162 * t2590 / 0.1152e4 - t69295 / 0.216e3 - t69299 + t69272 * t2578 * t39427 * t8641 / 0.576e3 + t69272 * t2578 * t8572 * t886 * t539 * t265 / 0.576e3 + 0.12e2 * t69253 * t69254 * t14242 + t69230 * t19857 / 0.384e3 + t18298 * t18299 * t2614 / 0.384e3 + t18241 * t18226 * t74668 * t2657 / 0.384e3;
25538   t74680 = t19863 * t1763;
25539   t74687 = t169 * t4992;
25540   t74708 = t169 * (t74412 + t74443 + t74484 + t74524 + t74556 + t74595 + t74635 + t74673) * t581 / 0.2e1 - t169 * t74680 * t580 / 0.2e1 - t169 * t69332 * t982 / 0.2e1 + t74687 * t14303 - t169 * t18320 * t2681 / 0.2e1 - t169 * t12924 * t4343 + 0.2e1 * t14302 * t51229 * t580 - t169 * t3869 * t14291 + 0.2e1 * t14302 * t8979 * t3866 - 0.3e1 * t169 * t4995 * t32362 * t580 + t169 * t18326 * t2681;
25541   t74709 = t18330 * t2803;
25542   t74715 = t18335 * t9882;
25543   t74721 = t19930 * t748;
25544   t74726 = t19930 * t2093;
25545   t74729 = t18335 * t14437;
25546   t74734 = t69373 * t14443;
25547   t74739 = -t1033 * t2849 * t69369 + 0.3e1 * t1768 * t18330 * t2728 + 0.3e1 * t1768 * t677 * t74721 + 0.3e1 * t1768 * t69359 * t999 - t18335 * t2844 * t2849 - t2849 * t746 * t74726 + t169 * t74185 - 0.3e1 * t1768 * t74715 - 0.3e1 * t1768 * t74729 + 0.2e1 * t2849 * t74734 + 0.6e1 * t2857 * t74709;
25548   t74740 = t18338 * t2803;
25549   t74745 = t18345 * t9882;
25550   t74756 = t4377 * t746;
25551   t74757 = t13055 * t74756;
25552   t74763 = t18345 * t14437;
25553   t74766 = t1033 * t3919;
25554   t74767 = t13055 * t74766;
25555   t74770 = t69396 * t14443;
25556   t74776 = -0.2e1 * t13051 * t2849 * t4377 - 0.2e1 * t14430 * t2849 * t3923 - 0.3e1 * t1768 * t18338 * t2728 + 0.2e1 * t18345 * t2844 * t2849 - 0.6e1 * t1768 * t74329 - 0.6e1 * t1768 * t74377 + 0.6e1 * t1768 * t74745 + 0.6e1 * t1768 * t74763 + 0.4e1 * t2849 * t74757 + 0.4e1 * t2849 * t74767 - 0.6e1 * t2849 * t74770 - 0.6e1 * t2857 * t74740;
25557   t74777 = t74739 + t74776;
25558   t74778 = my_piecewise3(t296, t74708, t74777);
25559   t74787 = my_piecewise3(t359, 0, t74777);
25560   t74789 = t74787 * t46 / 0.2e1;
25561   t74791 = t19949 * t436 / 0.2e1;
25562   t74793 = t18353 * t905 / 0.2e1;
25563   t74795 = t5036 * t4 * t377;
25564   t74798 = t50654 * t14587;
25565   t74799 = t50652 * t74798;
25566   t74802 = 0.4e1 * t5097 * t14140;
25567   t74804 = t1204 * t3789 * t14139;
25568   t74805 = t3788 * t74804;
25569   t74809 = t14863 * t5027;
25570   t74810 = t4431 * t18197;
25571   t74812 = 0.2e1 * t3977 * t20067;
25572   t74813 = t12788 * t19804;
25573   t74815 = t3958 * t19803;
25574   t74816 = t3788 * t74815;
25575   t74819 = t1204 * t2483 * t1143;
25576   t74820 = t3788 * t74819;
25577   t74823 = t1204 * t52698 * t1143;
25578   t74824 = t3788 * t74823;
25579   t74826 = -0.5e1 / 0.72e2 * t74362 * t18060 + 0.2e1 / 0.3e1 * t74368 + 0.2e1 / 0.3e1 * t74370 - 0.5e1 / 0.72e2 * t18089 * t74373 - t74379 + 0.6e1 * t74380 - t98 * (t74778 * t34 / 0.2e1 + t19946 * t413 / 0.2e1 + t18350 * t886 / 0.2e1 + t5034 * t4 * t377 + t74789 + t74791 + t74793 - t74795) + 0.20e2 * t74799 - t74802 + 0.2e1 / 0.3e1 * t74805 - 0.5e1 / 0.3e1 * t13164 * t20079 + t74809 - t74810 + t74812 + 0.2e1 / 0.3e1 * t74813 + 0.2e1 / 0.3e1 * t74816 + 0.2e1 / 0.3e1 * t74820 + 0.2e1 / 0.3e1 * t74824;
25580   t74830 = 0.2e1 * t1214 * t1191 * t51295;
25581   t74832 = 0.4e1 * t14484 * t74757;
25582   t74833 = t18543 * t14705;
25583   t74837 = t18543 * t14704 * t404;
25584   t74841 = t18543 * t14704 * t3778;
25585   t74845 = t18555 * t14704 * t439;
25586   t74848 = t18560 * t14762;
25587   t74853 = t20053 * t3986;
25588   t74855 = t68373 * t14438;
25589   t74857 = t5060 * t14495;
25590   t74859 = t5060 * t14490;
25591   t74863 = 0.3e1 * t1214 * t18439 * t14489;
25592   t74864 = t5060 * t14812;
25593   t74867 = 0.2e1 * t4431 * t18105;
25594   t74869 = 0.3e1 * t13345 * t74715;
25595   t74870 = t5060 * t14432;
25596   t74872 = -t74830 + t74832 - 0.35e2 / 0.24e2 * t68693 * t74833 + 0.5e1 / 0.12e2 * t68344 * t74837 + 0.5e1 / 0.12e2 * t68155 * t74841 + 0.5e1 / 0.12e2 * t18082 * t74845 + 0.5e1 / 0.12e2 * t18082 * t74848 - 0.2e1 * t2442 * t18465 - 0.2e1 * t74853 - 0.6e1 * t74855 + 0.6e1 * t74857 + 0.6e1 * t74859 + t74863 - 0.2e1 * t74864 + t74867 - t74869 + 0.2e1 * t74870;
25597   t74873 = t5060 * t14810;
25598   t74877 = t4931 * t439;
25599   t74878 = t74877 * t4288;
25600   t74881 = t18056 * t14806;
25601   t74887 = t1204 * t18210 * t2478;
25602   t74890 = t13167 * t20075;
25603   t74892 = t12758 * t20075;
25604   t74895 = 0.2e1 * t14120 * t4955;
25605   t74897 = 0.2e1 * t14123 * t4955;
25606   t74899 = 0.2e1 * t4302 * t18098;
25607   t74900 = t363 * t4282;
25608   t74902 = t18543 * t74900 * t443;
25609   t74907 = 0.2e1 * t1214 * t3920 * t14434;
25610   t74908 = t2093 * t2728;
25611   t74911 = 0.3e1 * t1214 * t18218 * t74908;
25612   t74912 = t50479 * t4940;
25613   t74914 = t50482 * t4940;
25614   t74916 = t50485 * t4940;
25615   t74919 = -0.2e1 * t74873 - 0.5e1 / 0.72e2 * t68969 * t19762 - 0.5e1 / 0.72e2 * t18055 * t74878 - 0.5e1 / 0.72e2 * t18055 * t74881 - 0.5e1 / 0.3e1 * t14736 * t18207 + 0.2e1 / 0.3e1 * t3788 * t74887 + 0.2e1 / 0.3e1 * t74890 + 0.2e1 / 0.3e1 * t74892 - t74895 - t74897 - t74899 + 0.5e1 / 0.12e2 * t68155 * t74902 - t74907 - t74911 + 0.2e1 / 0.3e1 * t74912 + 0.2e1 / 0.3e1 * t74914 + 0.2e1 / 0.3e1 * t74916 + t5057 * t2866;
25616   t74927 = 0.4e1 * t18640 * t4312;
25617   t74929 = 0.4e1 * t5097 * t14147;
25618   t74931 = 0.2e1 * t1476 * t19751;
25619   t74933 = 0.2e1 * t2448 * t19751;
25620   t74935 = t1214 * t18189 * t2850;
25621   t74938 = 0.3e1 * t1214 * t68251 * t4433;
25622   t74941 = 0.3e1 * t4431 * t18440;
25623   t74943 = 0.3e1 * t4431 * t18220;
25624   t74945 = 0.2e1 * t2442 * t18098;
25625   t74946 = t2442 * t18194;
25626   t74949 = t1214 * t5026 * t7972;
25627   t74950 = t5060 * t14680;
25628   t74953 = 0.4e1 * t20281 * t3812;
25629   t74955 = 0.4e1 * t5097 * t14830;
25630   t74956 = t14686 * t4944 / 0.3e1 + t14689 * t4944 / 0.3e1 - t74927 - t74929 - t74931 - t74933 - t74935 + t74938 - t2440 * t5039 + t74941 - t74943 - t74945 - 0.4e1 * t74946 - t74949 + 0.6e1 * t74950 - t74953 - t74955;
25631   t74957 = t5059 * t14483;
25632   t74958 = t74957 * t14444;
25633   t74960 = t68373 * t14315;
25634   t74962 = t20053 * t3981;
25635   t74965 = 0.4e1 * t14484 * t74767;
25636   t74967 = 0.2e1 * t3977 * t19768;
25637   t74969 = 0.3e1 * t3977 * t19784;
25638   t74971 = 0.6e1 * t14821 * t74709;
25639   t74973 = 0.6e1 * t14821 * t74740;
25640   t74974 = t18469 * t4438;
25641   t74976 = t14858 * t18064;
25642   t74978 = t8342 * t4951;
25643   t74980 = t3977 * t20065;
25644   t74981 = t18469 * t4379;
25645   t74983 = t4400 * t18063;
25646   t74984 = t3762 * t74983;
25647   t74986 = t18560 * t14477;
25648   t74990 = t18560 * t929 * t404;
25649   t74994 = t18560 * t929 * t3778;
25650   t74998 = t68216 * t929 * t439;
25651   t75001 = 0.4e1 * t74958 - 0.6e1 * t74960 + 0.6e1 * t74962 + t74965 - t74967 - t74969 + t74971 - t74973 - 0.2e1 * t74974 - 0.10e2 / 0.3e1 * t74976 - 0.4e1 * t74978 - t74980 + 0.2e1 * t74981 - 0.10e2 / 0.3e1 * t74984 + 0.5e1 / 0.12e2 * t18082 * t74986 - 0.5e1 / 0.36e2 * t18089 * t74990 - 0.5e1 / 0.36e2 * t18049 * t74994 - 0.5e1 / 0.36e2 * t18055 * t74998;
25652   t75004 = 0.2e1 * t14484 * t74734;
25653   t75006 = 0.3e1 * t13345 * t74729;
25654   t75007 = t5059 * t14820;
25655   t75008 = t75007 * t14309;
25656   t75011 = t18560 * t74900 * t464;
25657   t75014 = t14736 * t18064;
25658   t75017 = t12791 * t4312 * t443;
25659   t75018 = t3762 * t75017;
25660   t75021 = 0.6e1 * t13345 * t74745;
25661   t75023 = 0.6e1 * t13345 * t74763;
25662   t75024 = t174 * t19930;
25663   t75027 = 0.3e1 * t1214 * t75024 * t3980;
25664   t75029 = t18543 * t74900 * t404;
25665   t75033 = t18555 * t74900 * t439;
25666   t75037 = 0.2e1 * t4431 * t18443;
25667   t75038 = t5044 * t14732;
25668   t75041 = t14152 * t18202;
25669   t75043 = t50705 * t4940;
25670   t75045 = t50615 * t4940;
25671   t75047 = t50604 * t4940;
25672   t75049 = t14156 * t18071;
25673   t75051 = t75004 - t75006 + 0.12e2 * t75008 - 0.5e1 / 0.36e2 * t18049 * t75011 - 0.10e2 / 0.3e1 * t75014 - 0.10e2 / 0.3e1 * t75018 + t75021 + t75023 + t75027 - 0.5e1 / 0.36e2 * t68227 * t75029 - 0.5e1 / 0.36e2 * t18049 * t75033 - t75037 - 0.5e1 / 0.72e2 * t18055 * t75038 + 0.2e1 / 0.3e1 * t75041 + 0.2e1 / 0.3e1 * t75043 + 0.2e1 / 0.3e1 * t75045 + 0.2e1 / 0.3e1 * t75047 + 0.2e1 / 0.3e1 * t75049;
25674   t75052 = t18056 * t14802;
25675   t75055 = t5044 * t14709;
25676   t75059 = t5044 * t3763 * t14567;
25677   t75063 = 0.3e1 * t3977 * t20035;
25678   t75066 = 0.2e1 * t1214 * t5030 * t32250;
25679   t75067 = t14120 * t4951;
25680   t75069 = t14123 * t4951;
25681   t75071 = t4302 * t18436;
25682   t75075 = 0.8e1 * t400 * t20021 * t443;
25683   t75078 = 0.40e2 * t1397 * t20010 * t443;
25684   t75081 = 0.16e2 * t400 * t14586 * t3811;
25685   t75084 = 0.16e2 * t400 * t20013 * t443;
25686   t75085 = t73 * t4282;
25687   t75087 = t4932 * t75085 * t439;
25688   t75090 = t47522 * t19988;
25689   t75092 = t47526 * t19988;
25690   t75095 = t66 * t68441 * t912;
25691   t75096 = t13245 * t75095;
25692   t75099 = t66 * t68446 * t912;
25693   t75100 = t13245 * t75099;
25694   t75103 = 0.2e1 * t2377 * t4947;
25695   t75105 = t66 * t18388 * t2436;
25696   t75106 = t13245 * t75105;
25697   t75109 = t1397 * t19991 * t1133;
25698   t75110 = t75109 * t18390;
25699   t75112 = t52052 * t18390;
25700   t75114 = t52056 * t18390;
25701   t75116 = -t75075 + t75078 - t75081 - t75084 + 0.5e1 / 0.36e2 * t68509 * t75087 + 0.10e2 / 0.3e1 * t75090 + 0.10e2 / 0.3e1 * t75092 + 0.10e2 / 0.3e1 * t75096 + 0.10e2 / 0.3e1 * t75100 + t75103 + 0.10e2 / 0.3e1 * t75106 + 0.10e2 / 0.3e1 * t75110 + 0.10e2 / 0.3e1 * t75112 + 0.10e2 / 0.3e1 * t75114;
25702   t75117 = t908 * t1143;
25703   t75119 = t66 * t75117 * t443;
25704   t75120 = t13245 * t75119;
25705   t75122 = t4933 * t883;
25706   t75124 = t4932 * t75122 * t443;
25707   t75128 = t4932 * t75122 * t464;
25708   t75132 = t4932 * t75122 * t3778;
25709   t75135 = t4933 * t928;
25710   t75137 = t4932 * t75135 * t404;
25711   t75141 = t4932 * t75135 * t3778;
25712   t75145 = t4932 * t14510 * t439;
25713   t75150 = t74877 * t908;
25714   t75154 = t18056 * t2432;
25715   t75158 = t51944 * t5049;
25716   t75160 = t58068 * t5049;
25717   t75162 = t51947 * t5049;
25718   t75164 = t14614 * t18397;
25719   t75166 = 0.10e2 / 0.3e1 * t75120 - 0.5e1 / 0.12e2 * t68585 * t75124 + 0.5e1 / 0.36e2 * t68602 * t75128 + 0.5e1 / 0.36e2 * t68495 * t75132 + 0.5e1 / 0.36e2 * t68602 * t75137 + 0.5e1 / 0.36e2 * t68483 * t75141 + 0.5e1 / 0.36e2 * t68489 * t75145 + t5056 + 0.5e1 / 0.72e2 * t18359 * t19982 + 0.5e1 / 0.72e2 * t5042 * t5043 * t75150 + 0.5e1 / 0.72e2 * t5042 * t5043 * t75154 - 0.2e1 / 0.3e1 * t75158 - 0.2e1 / 0.3e1 * t75160 - 0.2e1 / 0.3e1 * t75162 - 0.2e1 / 0.3e1 * t75164;
25720   t75168 = t14614 * t18401;
25721   t75170 = t14614 * t18405;
25722   t75172 = t1392 * t19991;
25723   t75173 = t75172 * t5049;
25724   t75178 = 0.40e2 * t7757 * t4954 * t912 * t443;
25725   t75179 = t73 * t4311;
25726   t75181 = t66 * t75179 * t443;
25727   t75182 = t13245 * t75181;
25728   t75184 = t4933 * t4282;
25729   t75186 = t4932 * t75184 * t443;
25730   t75190 = t4932 * t75184 * t464;
25731   t75194 = t4932 * t75184 * t404;
25732   t75198 = t4933 * t912;
25733   t75200 = t4932 * t75198 * t443;
25734   t75203 = t13263 * t20005;
25735   t75205 = t14624 * t20005;
25736   t75207 = t13281 * t20005;
25737   t75209 = -0.2e1 / 0.3e1 * t75168 - 0.2e1 / 0.3e1 * t75170 - 0.2e1 / 0.3e1 * t75173 - t18420 + t20017 + t20023 + t75178 + 0.10e2 / 0.3e1 * t75182 - 0.5e1 / 0.12e2 * t68590 * t75186 + 0.5e1 / 0.36e2 * t68483 * t75190 + 0.5e1 / 0.36e2 * t68495 * t75194 + 0.35e2 / 0.24e2 * t26389 * t68595 * t75200 - 0.2e1 / 0.3e1 * t75203 - 0.2e1 / 0.3e1 * t75205 - 0.2e1 / 0.3e1 * t75207;
25738   t75211 = t3945 * t3954 * t20004;
25739   t75213 = t3958 * t4311;
25740   t75215 = t3945 * t1203 * t75213;
25741   t75217 = t1204 * t14139;
25742   t75219 = t3945 * t1203 * t75217;
25743   t75221 = t34313 * t5041;
25744   t75224 = t7591 * t18367;
25745   t75229 = t73 * t883;
25746   t75231 = t4932 * t75229 * t439;
25747   t75235 = t400 * t2478 * t25;
25748   t75236 = t75235 * t5049;
25749   t75239 = t400 * t928 * t404;
25750   t75240 = t75239 * t5049;
25751   t75242 = t19992 * t18397;
25752   t75244 = t19992 * t18401;
25753   t75246 = t19992 * t18405;
25754   t75248 = t52467 * t5049;
25755   t75250 = t57850 * t5049;
25756   t75252 = t52471 * t5049;
25757   t75254 = -0.2e1 / 0.3e1 * t75211 - 0.2e1 / 0.3e1 * t75215 - 0.2e1 / 0.3e1 * t75219 - 0.5e1 / 0.24e2 * t75221 * t18364 + 0.5e1 / 0.72e2 * t75224 * t18370 + 0.5e1 / 0.72e2 * t14662 * t18374 + 0.5e1 / 0.36e2 * t68502 * t75231 - 0.2e1 / 0.3e1 * t75236 - 0.2e1 / 0.3e1 * t75240 - 0.2e1 / 0.3e1 * t75242 - 0.2e1 / 0.3e1 * t75244 - 0.2e1 / 0.3e1 * t75246 - 0.2e1 / 0.3e1 * t75248 - 0.2e1 / 0.3e1 * t75250 - 0.2e1 / 0.3e1 * t75252;
25758   t75257 = t14645 * t18397;
25759   t75259 = t14645 * t18401;
25760   t75261 = t14645 * t18405;
25761   t75263 = t13263 * t19997;
25762   t75265 = t14624 * t19997;
25763   t75267 = t13281 * t19997;
25764   t75270 = t3945 * t14568 * t5048;
25765   t75273 = t3945 * t4408 * t18400;
25766   t75276 = t3945 * t4408 * t18404;
25767   t75279 = t4932 * t75198 * t3778;
25768   t75283 = t4932 * t14501 * t439;
25769   t75287 = t4932 * t75135 * t443;
25770   t75290 = t47518 * t19988;
25771   t75292 = t52029 * t19988;
25772   t75294 = t73 * t908;
25773   t75296 = t4932 * t75294 * t443;
25774   t75299 = -0.2e1 / 0.3e1 * t75257 - 0.2e1 / 0.3e1 * t75259 - 0.2e1 / 0.3e1 * t75261 - 0.2e1 / 0.3e1 * t75263 - 0.2e1 / 0.3e1 * t75265 - 0.2e1 / 0.3e1 * t75267 - 0.2e1 / 0.3e1 * t75270 - 0.2e1 / 0.3e1 * t75273 - 0.2e1 / 0.3e1 * t75276 - 0.5e1 / 0.12e2 * t68590 * t75279 - 0.5e1 / 0.12e2 * t68596 * t75283 - 0.5e1 / 0.12e2 * t68456 * t75287 + 0.10e2 / 0.3e1 * t75290 + 0.10e2 / 0.3e1 * t75292 - 0.5e1 / 0.12e2 * t68596 * t75296;
25775   t75301 = t4932 * t75294 * t464;
25776   t75305 = t4932 * t75294 * t404;
25777   t75309 = t4932 * t75294 * t3778;
25778   t75313 = t4932 * t75198 * t464;
25779   t75317 = t4932 * t75198 * t404;
25780   t75320 = t74 * t14587;
25781   t75321 = t47508 * t75320;
25782   t75323 = t52366 * t18390;
25783   t75325 = t34310 * t5041;
25784   t75329 = 0.8e1 * t2378 * t18418;
25785   t75330 = t5044 * t2386;
25786   t75340 = 0.5e1 / 0.36e2 * t68489 * t75301 + 0.5e1 / 0.36e2 * t68502 * t75305 + 0.5e1 / 0.36e2 * t68509 * t75309 - 0.5e1 / 0.12e2 * t68456 * t75313 - 0.5e1 / 0.12e2 * t68585 * t75317 - 0.20e2 * t75321 + 0.10e2 / 0.3e1 * t75323 - t20020 + 0.5e1 / 0.144e3 * t75325 * t5045 + t18417 + t18423 - t75329 + 0.5e1 / 0.72e2 * t3939 * t5043 * t75330 + 0.5e1 / 0.72e2 * t18359 * t19978 + 0.5e1 / 0.72e2 * t5042 * t3778 * t114 * t19977;
25787   t75342 = t5044 * t14567;
25788   t75348 = 0.4e1 * t81 * t1143 * t14139;
25789   t75350 = 0.2e1 * t2377 * t5054;
25790   t75352 = 0.2e1 * t881 * t18421;
25791   t75353 = t13263 * t20001;
25792   t75355 = t14624 * t20001;
25793   t75357 = t13281 * t20001;
25794   t75360 = t3945 * t3954 * t20000;
25795   t75362 = t14582 * t1143;
25796   t75364 = t3945 * t1203 * t75362;
25797   t75366 = t4412 * t3811;
25798   t75368 = t3945 * t1203 * t75366;
25799   t75372 = 0.8e1 * t400 * t4947 * t2436;
25800   t75374 = 0.4e1 * t397 * t20013;
25801   t75377 = 0.4e1 * t81 * t3811 * t4311;
25802   t75379 = 0.8e1 * t2378 * t18410;
25803   t75381 = 0.4e1 * t881 * t18413;
25804   t75382 = 0.5e1 / 0.72e2 * t5042 * t18377 * t75342 + t75348 + t75350 + t75352 - 0.2e1 / 0.3e1 * t75353 - 0.2e1 / 0.3e1 * t75355 - 0.2e1 / 0.3e1 * t75357 - 0.2e1 / 0.3e1 * t75360 - 0.2e1 / 0.3e1 * t75364 - 0.2e1 / 0.3e1 * t75368 - t75372 + t75374 + t75377 - t75379 + t75381;
25805   t75384 = 0.8e1 * t1392 * t20010;
25806   t75391 = t5044 * t2436;
25807   t75397 = t464 * t4926;
25808   t75398 = t1397 * t75397;
25809   t75401 = t5044 * t2478;
25810   t75410 = 0.2e1 * t397 * t20021;
25811   t75413 = 0.2e1 * t81 * t2478 * t4954;
25812   t75415 = 0.8e1 * t1392 * t20018;
25813   t75418 = 0.8e1 * t400 * t18421 * t912;
25814   t75421 = 0.8e1 * t400 * t5054 * t2436;
25815   t75422 = -t75384 + 0.5e1 / 0.72e2 * t19962 * t18379 + 0.5e1 / 0.72e2 * t19962 * t18383 - 0.5e1 / 0.24e2 * t68668 * t19966 - 0.5e1 / 0.24e2 * t18362 * t5043 * t75391 + 0.5e1 / 0.72e2 * t68568 * t19970 + 0.5e1 / 0.72e2 * t75398 * t19970 + 0.5e1 / 0.72e2 * t18368 * t5043 * t75401 + 0.5e1 / 0.72e2 * t13260 * t19974 + 0.5e1 / 0.72e2 * t13266 * t19974 + t75410 + t75413 - t75415 - t75418 - t75421;
25816   t75428 = t449 * t1199 * t14139;
25817   t75431 = 0.2e1 * t8342 * t4955;
25818   t75433 = 0.6e1 * t14484 * t74770;
25819   t75435 = 0.4e1 * t18654 * t4312;
25820   t75437 = t1214 * t19931 * t3985;
25821   t75438 = t13164 * t19772;
25822   t75440 = t1199 * t912;
25823   t75442 = t14703 * t75440 * t443;
25824   t75446 = t12791 * t75440 * t464;
25825   t75450 = -0.5e1 / 0.72e2 * t18055 * t75052 - 0.5e1 / 0.72e2 * t18055 * t75055 - 0.5e1 / 0.72e2 * t18049 * t75059 + t75063 + t75066 - 0.4e1 * t75067 - 0.4e1 * t75069 - 0.4e1 * t75071 + (t75116 + t75166 + t75209 + t75254 + t75299 + t75340 + t75382 + t75422) * t227 - 0.4e1 * t75428 - t75431 - t75433 - t75435 - t75437 - 0.10e2 / 0.3e1 * t75438 + 0.10e2 * t13159 * t75442 - 0.10e2 / 0.3e1 * t3762 * t75446 - t447 * t19953;
25826   t75454 = t73737 + t73783 + t73831 + t73881 + t74190 + t74238 + t74279 + t74323 + t74365 + t74826 + t74872 + t74919 + t74956 + t75001 + t75051 + t75450;
25827   t75458 = t5065 * t1130;
25828   t75463 = t4440 * t1224;
25829   t75467 = t372 * t7 * t75454 + t1130 * t18475 + 0.2e1 * t1224 * t14871 + t20085 * t878 + t3144 * t5066 + t68048 + t68050 + 0.2e1 * t69436 + 0.2e1 * t69438 + t73680 + t75458 + 0.2e1 * t75463;
25830   t75470 = t1216 * t4457;
25831   t75476 = t1122 * t5080;
25832   t75479 = t368 * t20116;
25833   t75486 = 0.6e1 * t1125 * t18498;
25834   t75487 = t1219 * t14914;
25835   t75491 = 0.12e2 * t369 * t3967 * t4311;
25836   t75494 = 0.12e2 * t369 * t3970 * t4311;
25837   t75497 = 0.12e2 * t369 * t1208 * t14139;
25838   t75499 = 0.6e1 * t873 * t20105;
25839   t75501 = 0.12e2 * t873 * t20108;
25840   t75504 = 0.6e1 * t369 * t2478 * t4947;
25841   t75505 = t14882 * t1221;
25842   t75507 = t3994 * t4451;
25843   t75510 = 0.6e1 * t3132 * t5074;
25844   t75512 = 0.3e1 * t3132 * t5077;
25845   t75513 = t1219 * t14900;
25846   t75515 = 0.3e1 * t1127 * t18486 + 0.6e1 * t3138 * t5070 + t20112 + t5079 + t75486 + 0.6e1 * t75487 + t75491 + t75494 + t75497 + t75499 + t75501 + t75504 + 0.6e1 * t75505 + 0.12e2 * t75507 + t75510 + t75512 + 0.12e2 * t75513;
25847   t75516 = t4445 * t4003;
25848   t75520 = t1219 * t14903;
25849   t75522 = t1219 * t14906;
25850   t75526 = 0.6e1 * t369 * t18421 * t928;
25851   t75527 = t4445 * t4000;
25852   t75529 = t1219 * t14911;
25853   t75531 = t3994 * t4454;
25854   t75536 = 0.12e2 * t1125 * t18501;
25855   t75538 = 0.6e1 * t873 * t20113;
25856   t75542 = 0.6e1 * t1125 * t18506;
25857   t75545 = 0.6e1 * t369 * t5054 * t2478;
25858   t75548 = 0.12e2 * t369 * t4421 * t3811;
25859   t75549 = t370 * t75454 * params->d + 0.3e1 * t20093 * t875 + 0.3e1 * t3141 * t5070 + t18505 + t18508 + t20115 + 0.6e1 * t75516 + 0.12e2 * t75520 + 0.12e2 * t75522 + t75526 + 0.12e2 * t75527 + 0.12e2 * t75529 + 0.6e1 * t75531 + t75536 + t75538 + t75542 + t75545 + t75548;
25860   t75552 = 0.2e1 * t4441 * t4006 + 0.2e1 * t75470 + 0.2e1 * t3989 * t4457 + 0.2e1 * t1217 * t14917 + t69446 + t69448 + t75476 + t3127 * t5080 + t1123 * t18509 + t75479 + t870 * t20116 + t872 * (t75515 + t75549);
25861   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25862     v4rho2sigma2[6] = t75467 + t75552;
25863 
25864   t75556 = 0.10e2 / 0.3e1 * t4013 * t73828;
25865   t75558 = 0.2e1 / 0.3e1 * t4026 * t73795;
25866   t75560 = t1204 * t2451 * t1231;
25867   t75563 = t18679 * t20349;
25868   t75566 = 0.2e1 / 0.3e1 * t4026 * t74815;
25869   t75568 = 0.2e1 / 0.3e1 * t4026 * t74819;
25870   t75570 = 0.2e1 / 0.3e1 * t4026 * t74823;
25871   t75579 = t5154 * t14483;
25872   t75581 = 0.2e1 * t75579 * t14444;
25873   t75582 = t4021 * t20030;
25874   t75585 = t1204 * t929 * t4041;
25875   t75588 = t75556 - t75558 + t3788 * t75560 / 0.3e1 - 0.5e1 / 0.27e2 * t75563 - t75566 - t75568 - t75570 - 0.2e1 / 0.3e1 * t14978 * t18212 - 0.5e1 / 0.6e1 * t13164 * t20123 - 0.5e1 / 0.6e1 * t12761 * t20123 - 0.5e1 / 0.6e1 * t12765 * t20123 + t75581 + 0.8e1 / 0.9e1 * t75582 + t3788 * t75585 / 0.3e1;
25876   t75595 = t3958 * t20139;
25877   t75599 = t1204 * t2483 * t1231;
25878   t75603 = t1204 * t52698 * t1231;
25879   t75607 = t1204 * t70120 * t928;
25880   t75611 = t1204 * t18732 * t2478;
25881   t75617 = 0.2e1 / 0.3e1 * t4026 * t74804;
25882   t75626 = t13167 * t20140 / 0.3e1 + t12758 * t20140 / 0.3e1 + t12788 * t20140 / 0.3e1 + t3788 * t75595 / 0.3e1 + t3788 * t75599 / 0.3e1 + t3788 * t75603 / 0.3e1 + t3788 * t75607 / 0.3e1 + t3788 * t75611 / 0.3e1 - 0.5e1 / 0.6e1 * t14736 * t18729 - t75617 + 0.5e1 / 0.3e1 * t13409 * t20079 + 0.5e1 / 0.3e1 * t13402 * t20079 + 0.5e1 / 0.3e1 * t4013 * t74338 + 0.5e1 / 0.3e1 * t4013 * t74342;
25883   t75628 = t96 * t4527;
25884   t75630 = t1204 * t75628 * t464;
25885   t75652 = 0.10e2 / 0.3e1 * t4013 * t75017;
25886   t75654 = 0.2e1 / 0.3e1 * t54560 * t4940;
25887   t75656 = 0.2e1 / 0.3e1 * t54563 * t4940;
25888   t75658 = 0.2e1 / 0.3e1 * t14972 * t18071;
25889   t75659 = t3788 * t75630 / 0.3e1 + t14156 * t18715 / 0.3e1 + t14156 * t18719 / 0.3e1 + t14156 * t18724 / 0.3e1 + t14152 * t18719 / 0.3e1 - 0.5e1 / 0.3e1 * t13164 * t20226 - 0.5e1 / 0.3e1 * t12761 * t20226 - 0.5e1 / 0.3e1 * t12765 * t20226 - 0.10e2 * t13415 * t75442 + 0.10e2 / 0.3e1 * t4013 * t75446 + t75652 - t75654 - t75656 - t75658;
25890   t75683 = t18543 * t18544 * t2386;
25891   t75686 = 0.5e1 / 0.3e1 * t14967 * t18207 - 0.2e1 / 0.3e1 * t14972 * t18212 - t19748 - t19750 - t19753 - 0.5e1 / 0.3e1 * t14858 * t18539 + 0.5e1 / 0.36e2 * t5084 * t75033 + 0.5e1 / 0.36e2 * t5084 * t75011 + 0.10e2 / 0.3e1 * t4013 * t73769 - 0.2e1 / 0.3e1 * t13412 * t20071 - 0.2e1 / 0.3e1 * t13424 * t20071 - 0.2e1 / 0.3e1 * t4026 * t73812 + t14156 * t18535 / 0.3e1 + 0.5e1 / 0.36e2 * t18550 * t73729 + 0.5e1 / 0.36e2 * t18550 * t75683;
25892   t75691 = t74877 * t97;
25893   t75692 = t75691 * t20238;
25894   t75696 = t18555 * t70131 * t908;
25895   t75701 = t18560 * t70131 * t928;
25896   t75706 = 0.2e1 * t449 * t20380 * t464;
25897   t75707 = t15355 * t4944;
25898   t75709 = 0.16e2 / 0.9e1 * t69681;
25899   t75719 = t18560 * t18544 * t2478;
25900   t75722 = 0.5e1 / 0.36e2 * t18527 * t20239 + 0.5e1 / 0.36e2 * t5084 * t75692 + 0.5e1 / 0.36e2 * t5084 * t75696 - 0.5e1 / 0.27e2 * t69665 + 0.5e1 / 0.36e2 * t5084 * t75701 - t75706 - t69680 + 0.8e1 / 0.9e1 * t75707 + t75709 + 0.5e1 / 0.3e1 * t4013 * t73686 - 0.2e1 / 0.3e1 * t4026 * t74229 - 0.5e1 / 0.3e1 * t14736 * t18539 + 0.5e1 / 0.36e2 * t5084 * t74994 + 0.5e1 / 0.36e2 * t5084 * t75719;
25901   t75724 = t12791 * t4488 * t443;
25902   t75727 = t1252 * t912;
25903   t75729 = t12791 * t75727 * t464;
25904   t75732 = 0.80e2 / 0.9e1 * t69748;
25905   t75734 = t12791 * t4484 * t443;
25906   t75740 = t18555 * t18544 * t2432;
25907   t75745 = t18369 * t20242;
25908   t75749 = 0.2e1 * t2442 * t18651;
25909   t75753 = 0.6e1 * t14484 * t49014 * t20269 * t746;
25910   t75760 = t3958 * t20118;
25911   t75763 = -0.5e1 / 0.3e1 * t3762 * t75724 - 0.5e1 / 0.3e1 * t3762 * t75729 - t75732 - 0.5e1 / 0.3e1 * t3762 * t75734 + 0.5e1 / 0.36e2 * t5084 * t73743 + 0.5e1 / 0.36e2 * t5084 * t75740 + 0.5e1 / 0.36e2 * t18527 * t20243 + 0.5e1 / 0.36e2 * t5084 * t75745 - t75749 - t75753 + t13167 * t20119 / 0.3e1 + t12758 * t20119 / 0.3e1 + t12788 * t20119 / 0.3e1 + t3788 * t75760 / 0.3e1;
25912   t75766 = t1204 * t4046 * t928;
25913   t75776 = t5044 * t52693 * t1133;
25914   t75781 = t4021 * t20041;
25915   t75784 = t7591 * t18678 * t5086;
25916   t75797 = t3788 * t75766 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t73816 - 0.2e1 / 0.3e1 * t4026 * t74314 + 0.5e1 / 0.72e2 * t18527 * t20349 + 0.5e1 / 0.72e2 * t5084 * t75776 + 0.5e1 / 0.72e2 * t5084 * t75059 + 0.8e1 / 0.9e1 * t75781 - 0.5e1 / 0.27e2 * t75784 + t14152 * t18535 / 0.3e1 + t50705 * t5094 / 0.3e1 + t50615 * t5094 / 0.3e1 + t18853 * t1037 + t14152 * t18724 / 0.3e1 + 0.5e1 / 0.3e1 * t4013 * t74359;
25917   t75798 = t13453 * t20071;
25918   t75807 = 0.2e1 / 0.3e1 * t14978 * t18202;
25919   t75808 = t4412 * t18718;
25920   t75811 = t4412 * t18723;
25921   t75815 = 0.2e1 / 0.3e1 * t14972 * t18075;
25922   t75817 = 0.2e1 / 0.3e1 * t14972 * t18079;
25923   t75819 = 0.2e1 / 0.3e1 * t13412 * t20075;
25924   t75821 = t12791 * t4478 * t443;
25925   t75827 = 0.10e2 / 0.3e1 * t4013 * t73843;
25926   t75829 = 0.10e2 / 0.3e1 * t4013 * t73847;
25927   t75832 = 0.16e2 / 0.9e1 * t75798 + t50479 * t5094 / 0.3e1 + t50482 * t5094 / 0.3e1 + t14152 * t18715 / 0.3e1 - t75807 + t3788 * t75808 / 0.3e1 + t3788 * t75811 / 0.3e1 - t75815 - t75817 - t75819 - 0.5e1 / 0.3e1 * t3762 * t75821 - 0.2e1 / 0.3e1 * t4026 * t74887 + t75827 + t75829 - t15025 * t4944 / 0.3e1;
25928   t75838 = t47494 * t20225;
25929   t75841 = t3946 * t20225;
25930   t75845 = t12791 * t4035 * t912;
25931   t75851 = 0.2e1 / 0.3e1 * t4026 * t74220;
25932   t75853 = 0.2e1 / 0.3e1 * t4026 * t74224;
25933   t75855 = t14863 * t5159;
25934   t75862 = -t15031 * t4944 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t75838 - 0.5e1 / 0.3e1 * t3762 * t75841 - 0.5e1 / 0.3e1 * t3762 * t75845 - 0.10e2 / 0.27e2 * t69803 - 0.10e2 / 0.27e2 * t69805 - t75851 - t75853 - 0.40e2 / 0.9e1 * t69833 + t69839 - t75855 - t1227 * t74306 / 0.3e1 - t1227 * t74310 / 0.3e1 - t4009 * t20030 / 0.3e1;
25935   t75873 = t5154 * t14820;
25936   t75875 = 0.6e1 * t75873 * t14309;
25937   t75876 = t82 * t14139;
25938   t75878 = 0.2e1 * t75876 * t1232;
25939   t75880 = 0.2e1 * t20284 * t4035;
25940   t75886 = 0.10e2 / 0.3e1 * t14975 * t18064;
25941   t75888 = 0.10e2 / 0.3e1 * t14967 * t18064;
25942   t75889 = t18679 * t20239;
25943   t75892 = 0.10e2 / 0.3e1 * t4013 * t73720;
25944   t75893 = -t4017 * t20030 / 0.3e1 + t3758 * t20302 / 0.6e1 + t3769 * t20302 / 0.6e1 + t3780 * t20302 / 0.6e1 + t50485 * t5094 / 0.3e1 + t75875 - t75878 - t75880 - 0.5e1 / 0.12e2 * t18542 * t74902 + 0.5e1 / 0.36e2 * t18550 * t75029 + t75886 + t75888 - 0.10e2 / 0.27e2 * t75889 + t75892;
25945   t75896 = t14703 * t75727 * t443;
25946   t75900 = t1214 * t1244 * t51295;
25947   t75903 = 0.2e1 * t449 * t4527 * t3811;
25948   t75904 = t4431 * t18701;
25949   t75907 = t3977 * t20396;
25950   t75909 = 0.2e1 * t18654 * t4478;
25951   t75911 = 0.2e1 * t18640 * t4478;
25952   t75913 = 0.2e1 * t5097 * t15343;
25953   t75924 = 0.5e1 * t13159 * t75896 - t75900 - t75903 - t75904 + 0.5e1 / 0.72e2 * t20345 * t18531 - t75907 - t75909 - t75911 - t75913 + t14780 * t5104 / 0.6e1 + t14783 * t5104 / 0.6e1 + t14786 * t5104 / 0.6e1 + t4284 * t18754 / 0.6e1 + t4284 * t18758 / 0.6e1;
25954   t75925 = t4079 * t74328;
25955   t75927 = 0.3e1 * t13345 * t75925;
25956   t75928 = t26389 * t4926;
25957   t75930 = t1133 * t912;
25958   t75931 = t75930 * t443;
25959   t75932 = t4935 * t75931;
25960   t75935 = t75930 * t404;
25961   t75936 = t4935 * t75935;
25962   t75939 = t75930 * t439;
25963   t75940 = t1137 * t75939;
25964   t75943 = t75930 * t464;
25965   t75944 = t70080 * t75943;
25966   t75952 = t70710 * t14443;
25967   t75954 = 0.2e1 * t14484 * t75952;
25968   t75955 = t18617 * t9882;
25969   t75957 = 0.3e1 * t13345 * t75955;
25970   t75968 = -t75927 + 0.35e2 / 0.12e2 * t75928 * t70066 * t75932 - 0.5e1 / 0.6e1 * t70067 * t75936 - 0.5e1 / 0.6e1 * t70074 * t75940 - 0.5e1 / 0.6e1 * t70074 * t75944 + 0.3e1 * t18469 * t4557 - 0.10e2 / 0.27e2 * t69861 - t4459 * t18460 / 0.3e1 + t75954 - t75957 - 0.2e1 / 0.3e1 * t4026 * t74191 + 0.5e1 / 0.72e2 * t5084 * t73709 + t13167 * t20353 / 0.3e1 + t12758 * t20353 / 0.3e1 + t12788 * t20353 / 0.3e1;
25971   t75978 = t66 * t14801 * t1252;
25972   t75982 = t66 * t4287 * t4090;
25973   t75987 = 0.16e2 / 0.9e1 * t69880;
25974   t75988 = 0.16e2 / 0.9e1 * t69882;
25975   t75989 = 0.16e2 / 0.9e1 * t69884;
25976   t75990 = 0.16e2 / 0.9e1 * t69886;
25977   t75991 = 0.16e2 / 0.9e1 * t69888;
25978   t75992 = t447 * t20380;
25979   t75994 = 0.3e1 * t70029 * t14438;
25980   t75995 = t13453 * t19804;
25981   t75996 = 0.16e2 / 0.9e1 * t75995;
25982   t75997 = t3758 * t20298 / 0.6e1 + t3769 * t20298 / 0.6e1 + t3780 * t20298 / 0.6e1 + t1135 * t75978 / 0.6e1 + t1135 * t75982 / 0.6e1 - 0.5e1 / 0.6e1 * t14851 * t18729 + t75987 + t75988 + t75989 + t75990 + t75991 - t75992 - t75994 + t75996;
25983   t75998 = t20294 * t3986;
25984   t75999 = t4431 * t18741;
25985   t76000 = t18738 * t4438;
25986   t76002 = 0.2e1 / 0.3e1 * t4026 * t73820;
25987   t76004 = 0.2e1 / 0.3e1 * t4026 * t73824;
25988   t76007 = t13453 * t19796;
25989   t76008 = 0.16e2 / 0.9e1 * t76007;
25990   t76011 = 0.2e1 / 0.3e1 * t4026 * t74255;
25991   t76015 = t13542 * t74756;
25992   t76017 = 0.2e1 * t14484 * t76015;
25993   t76018 = t5155 * t14810;
25994   t76019 = t4412 * t18728;
25995   t76022 = t7591 * t18549;
25996   t76025 = -t75998 - t75999 - t76000 - t76002 - t76004 - 0.2e1 * t2442 * t18765 + t76008 + 0.16e2 / 0.9e1 * t70040 - t76011 - 0.5e1 / 0.27e2 * t70045 + 0.5e1 / 0.3e1 * t14975 * t18207 + t76017 - t76018 - 0.5e1 / 0.6e1 * t3762 * t76019 + 0.5e1 / 0.36e2 * t76022 * t18552;
25997   t76032 = 0.10e2 / 0.3e1 * t4013 * t74983;
25998   t76033 = t4412 * t18733;
25999   t76036 = t97 * t4527;
26000   t76038 = t1204 * t76036 * t443;
26001   t76041 = t48999 * t20269;
26002   t76043 = 0.2e1 * t14484 * t76041;
26003   t76047 = 0.2e1 * t52755 * t20270;
26004   t76049 = 0.2e1 / 0.3e1 * t13424 * t19796;
26005   t76051 = 0.2e1 / 0.3e1 * t4026 * t73902;
26006   t76053 = 0.2e1 / 0.3e1 * t4026 * t73905;
26007   t76055 = 0.2e1 / 0.3e1 * t4026 * t73908;
26008   t76058 = t70572 * t20231;
26009   t76060 = 0.5e1 / 0.36e2 * t20345 * t18557 + 0.5e1 / 0.36e2 * t20345 * t18562 + t76032 + t3788 * t76033 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t76038 + t76043 - 0.3e1 * t68373 * t15022 + t76047 - t76049 - t76051 - t76053 - t76055 - 0.5e1 / 0.3e1 * t14851 * t18539 + 0.10e2 / 0.9e1 * t76058;
26010   t76062 = t15192 * t167 * t168;
26011   t76063 = t76062 * t1192;
26012   t76065 = 0.3e1 * t5155 * t14495;
26013   t76069 = t1204 * t14718 * t4041;
26014   t76073 = 0.2e1 / 0.3e1 * t13412 * t19800;
26015   t76075 = 0.2e1 / 0.3e1 * t13424 * t19800;
26016   t76077 = 0.2e1 / 0.3e1 * t4026 * t73871;
26017   t76080 = 0.2e1 * t449 * t1252 * t14139;
26018   t76082 = 0.2e1 * t1476 * t20412;
26019   t76084 = 0.2e1 * t2448 * t20412;
26020   t76087 = 0.2e1 * t449 * t18638 * t928;
26021   t76088 = t54409 * t18624;
26022   t76090 = 0.2e1 * t14484 * t76088;
26023   t76096 = 0.2e1 * t58601 * t18625;
26024   t76097 = t76063 + t76065 + 0.5e1 / 0.72e2 * t20345 * t18051 + t3788 * t76069 / 0.3e1 - t76073 - t76075 - t76077 - t76080 - t76082 - t76084 - t76087 + t76090 - 0.2e1 * t2442 * t18565 - 0.3e1 * t68373 * t14996 + t76096;
26025   t76102 = t18569 * t2803;
26026   t76104 = 0.6e1 * t14821 * t76102;
26027   t76108 = 0.6e1 * t13345 * t13542 * t20275 * t746;
26028   t76109 = t69860 * t20235;
26029   t76111 = t13419 * t19772;
26030   t76112 = 0.80e2 / 0.9e1 * t76111;
26031   t76114 = t15289 * t18521;
26032   t76116 = 0.3e1 * t13345 * t76114;
26033   t76118 = 0.3e1 * t52859 * t18522;
26034   t76129 = t18617 * t14437;
26035   t76145 = t4079 * t74376;
26036   t76151 = t4079 * t1190 * t2728;
26037   t76154 = -t1033 * t2849 * t70682 + 0.6e1 * t13055 * t54343 * t9882 + 0.3e1 * t1768 * t18569 * t2728 - 0.6e1 * t2803 * t3923 * t54346 - 0.3e1 * t1768 * t75925 - 0.3e1 * t1768 * t76114 - 0.3e1 * t1768 * t76129 - 0.3e1 * t1768 * t76145 - 0.3e1 * t1768 * t76151 + 0.2e1 * t2849 * t75952 + 0.2e1 * t2849 * t76015 + 0.2e1 * t2849 * t76041 + 0.2e1 * t2849 * t76088 + 0.6e1 * t2857 * t76102;
26038   t76157 = t13542 * t74766;
26039   t76164 = t13538 * t20275;
26040   t76175 = t5111 * t14399;
26041   t76185 = t19899 * t18595;
26042   t76198 = t73927 / 0.192e3 - 0.4e1 * t18596 * t15258 * t14423 + 0.2e1 * t76175 * t14415 + t73932 / 0.768e3 + t73937 / 0.768e3 - t73942 / 0.768e3 - 0.4e1 * t69893 * t14382 - 0.4e1 * t69893 * t14396 - 0.4e1 * t76185 * t18597 + 0.24e2 * t5013 * t5115 * t28634 * t13502 * t14376 - 0.4e1 * t69954 * t20326 - 0.4e1 * t18596 * t54080 * t4371;
26043   t76216 = -0.4e1 * t18596 * t15258 * t14407 - 0.4e1 * t18596 * t15258 * t14411 - 0.4e1 * t18596 * t59226 * t3913 - t73952 / 0.96e2 - t68707 + t73981 / 0.192e3 + t73984 / 0.384e3 + t73986 / 0.384e3 + t73988 / 0.384e3 - t73992 / 0.192e3 - t73996 / 0.96e2 + t73999 / 0.384e3;
26044   t76245 = -t74002 / 0.96e2 + 0.2e1 * t5116 * t5117 * t1237 * t14357 + 0.2e1 * t5116 * t5117 * t4058 * t4359 + 0.2e1 * t18588 * t20334 + t74006 / 0.192e3 + t74011 / 0.192e3 + 0.2e1 * t5116 * t5117 * t4497 * t3897 + 0.2e1 * t20319 * t18601 + 0.2e1 * t20319 * t18605 + 0.2e1 * t18588 * t20330 + t74013 / 0.192e3 + 0.2e1 * t74138 * t5115 * t5119;
26045   t76247 = 0.7e1 / 0.576e3 * t74024;
26046   t76248 = 0.7e1 / 0.1152e4 * t74026;
26047   t76257 = 0.7e1 / 0.1152e4 * t74040;
26048   t76263 = 0.5e1 / 0.192e3 * t74021 - t76247 + t76248 - t74031 / 0.768e3 - 0.4e1 * t18596 * t69900 * t14414 + 0.12e2 * t68725 * t69900 * t14381 + t74038 / 0.384e3 + t76257 + t74044 / 0.192e3 + t74048 / 0.384e3 - t74052 / 0.768e3 - 0.2e1 * t20310 * t3917;
26049   t76270 = 0.7e1 / 0.1152e4 * t74056;
26050   t76271 = 0.7e1 / 0.288e3 * t74068;
26051   t76272 = 0.7e1 / 0.288e3 * t74072;
26052   t76280 = 0.12e2 * t14395 * t68725 * t69900 + 0.4e1 * t14387 * t18581 - 0.4e1 * t14403 * t76175 - 0.2e1 * t14427 * t5112 + 0.4e1 * t4367 * t69938 + t68736 + t68738 - t69914 + t69965 + t76270 - t76271 + t76272;
26053   t76285 = t20309 * t3851;
26054   t76288 = 0.7e1 / 0.576e3 * t74093;
26055   t76304 = -t74076 / 0.192e3 - t74079 / 0.128e3 - t74083 / 0.96e2 - 0.5e1 / 0.192e3 * t74087 + 0.2e1 * t76285 * t3914 - t76288 + 0.2e1 * t18581 * t14424 + t74102 / 0.384e3 + 0.4e1 * t18581 * t14391 - 0.6e1 * t5116 * t18150 * t18600 * t1030 - 0.6e1 * t5116 * t18150 * t18604 * t1030 - 0.6e1 * t18588 * t20323;
26056   t76326 = -t74112 / 0.128e3 - 0.6e1 * t5116 * t18150 * t20329 * t743 - 0.6e1 * t20319 * t18592 + 0.4e1 * t18581 * t14419 - 0.6e1 * t5116 * t18150 * t20333 * t743 - t68845 + t68850 + t68856 + 0.12e2 * t18596 * t54025 * t1181 * t14402 + 0.2e1 * t69938 * t4372 - t74147 / 0.192e3 - t68899;
26057   t76353 = t74151 / 0.384e3 + 0.2e1 * t5116 * t5117 * t15222 * t1181 - 0.2e1 * t1159 * t15222 * t1162 * t1188 - 0.6e1 * t5116 * t18150 * t5118 * t2841 + 0.2e1 * t18581 * t14408 + 0.2e1 * t18581 * t14412 - t74163 / 0.768e3 + t74165 / 0.192e3 + 0.4e1 * t76285 * t3908 - 0.2e1 * t18578 * t4375 - 0.12e2 * t18581 * t14377 + t74178 / 0.384e3;
26058   t76358 = t175 * (t76198 + t76216 + t76245 + t76263 + t76280 + t76304 + t76326 + t76353) * t748;
26059   t76369 = t20341 * t2093;
26060   t76373 = t13542 * t1190 * t2844;
26061   t76379 = t20341 * t748;
26062   t76383 = -0.6e1 * t1244 * t14443 * t169 * t48478 - t1190 * t2849 * t54390 + 0.6e1 * t13055 * t14437 * t54343 - t13538 * t2849 * t4377 - t14430 * t2849 * t4079 - t15289 * t2849 * t3919 + 0.3e1 * t1768 * t677 * t76379 + 0.3e1 * t1768 * t70691 * t999 - t18617 * t2844 * t2849 - t2849 * t746 * t76369 + t169 * t76358 - 0.3e1 * t1768 * t75955 - 0.3e1 * t1768 * t76164 + 0.2e1 * t2849 * t76157 + 0.2e1 * t2849 * t76373;
26063   t76384 = t76154 + t76383;
26064   t76385 = my_piecewise3(t296, 0, t76384);
26065   t76394 = my_piecewise3(t359, 0, t76384);
26066   t76404 = t98 * (t76385 * t34 / 0.2e1 + t20373 * t413 / 0.2e1 + t18631 * t886 / 0.2e1 + t5130 * t4 * t377 + t76394 * t46 / 0.2e1 + t20376 * t436 / 0.2e1 + t18634 * t905 / 0.2e1 - t5132 * t4 * t377);
26067   t76406 = 0.2e1 / 0.3e1 * t53804 * t4940;
26068   t76408 = 0.2e1 / 0.3e1 * t53807 * t4940;
26069   t76410 = 0.2e1 / 0.3e1 * t14978 * t18071;
26070   t76413 = t3958 * t20135;
26071   t76416 = t76104 + t76108 - t74294 - 0.10e2 / 0.27e2 * t76109 - t76112 - t5060 * t15376 - t76116 - t76118 - t76404 - t76406 - t76408 - t76410 + t12788 * t20136 / 0.3e1 + t3788 * t76413 / 0.3e1;
26072   t76418 = t1204 * t2479 * t1231;
26073   t76421 = t1110 * t1133;
26074   t76423 = t18543 * t76421 * t443;
26075   t76427 = t18543 * t76421 * t404;
26076   t76445 = t916 * t18638;
26077   t76449 = 0.3e1 * t47378 * t20276;
26078   t76450 = t3788 * t76418 / 0.3e1 - 0.5e1 / 0.12e2 * t18542 * t76423 + 0.5e1 / 0.36e2 * t18550 * t76427 + 0.3e1 * t5060 * t15378 + t20053 * t4077 + t14686 * t5104 / 0.6e1 + t14689 * t5104 / 0.6e1 + t14692 * t5104 / 0.6e1 + t4269 * t18754 / 0.6e1 + t4269 * t18758 / 0.6e1 + 0.3e1 * t20053 * t4125 - t76445 + 0.2e1 * t74957 * t14992 - t76449;
26079   t76452 = t1214 * t76358;
26080   t76462 = t1204 * t3789 * t15176;
26081   t76465 = t13419 * t20079;
26082   t76467 = t13453 * t20075;
26083   t76468 = 0.16e2 / 0.9e1 * t76467;
26084   t76469 = t3958 * t20352;
26085   t76473 = 0.2e1 * t14484 * t76157;
26086   t76477 = t12791 * t4042 * t912;
26087   t76481 = t12791 * t1232 * t2436;
26088   t76486 = t76452 - 0.2e1 * t14120 * t5100 - 0.2e1 * t14123 * t5100 - 0.2e1 * t4302 * t18765 + 0.5e1 / 0.72e2 * t5084 * t73858 + t3788 * t76462 / 0.3e1 - 0.40e2 / 0.9e1 * t76465 + t76468 + t3788 * t76469 / 0.3e1 + t76473 + t14156 * t18734 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t76477 - 0.5e1 / 0.3e1 * t3762 * t76481 - 0.2e1 * t9859 * t5100;
26089   t76492 = t4412 * t18534;
26090   t76498 = 0.6e1 * t14821 * t4079 * t20275 * t677;
26091   t76503 = t1133 * t928;
26092   t76504 = t76503 * t443;
26093   t76505 = t70080 * t76504;
26094   t76508 = t76503 * t404;
26095   t76509 = t70080 * t76508;
26096   t76513 = t18555 * t76421 * t439;
26097   t76517 = t18560 * t76421 * t464;
26098   t76522 = -t5060 * t15346 + 0.8e1 / 0.9e1 * t70179 + 0.8e1 / 0.9e1 * t70181 + 0.8e1 / 0.9e1 * t70183 + 0.8e1 / 0.9e1 * t70185 + t3788 * t76492 / 0.3e1 - t4957 - t76498 + t14824 * t5104 / 0.6e1 + t14791 * t5104 / 0.6e1 - 0.5e1 / 0.6e1 * t70074 * t76505 + 0.5e1 / 0.18e2 * t70086 * t76509 + 0.5e1 / 0.36e2 * t5084 * t76513 + 0.5e1 / 0.36e2 * t5084 * t76517 + t14848 * t18734 / 0.3e1;
26099   t76532 = 0.2e1 / 0.3e1 * t14978 * t18075;
26100   t76534 = 0.2e1 / 0.3e1 * t14978 * t18079;
26101   t76535 = t2439 * t1143;
26102   t76537 = 0.2e1 * t76535 * t1232;
26103   t76539 = 0.3e1 * t13345 * t76145;
26104   t76541 = 0.2e1 * t5097 * t15045;
26105   t76543 = t1204 * t465 * t4483;
26106   t76547 = t1204 * t12780 * t4483;
26107   t76551 = 0.5e1 / 0.3e1 * t4013 * t74187 + t13167 * t20136 / 0.3e1 + t12758 * t20136 / 0.3e1 - t76532 - t76534 - t76537 - t76539 - t76541 + t3788 * t76543 / 0.3e1 + t3788 * t76547 / 0.3e1 - t18095 - t18097 - t18100 + t5060 * t15287;
26108   t76556 = t3958 * t20122;
26109   t76560 = t1204 * t69732 * t912;
26110   t76564 = t1204 * t18727 * t2436;
26111   t76571 = t4400 * t18538;
26112   t76574 = t15388 * t4944;
26113   t76578 = t53000 * t4940;
26114   t76579 = 0.16e2 / 0.9e1 * t76578;
26115   t76582 = 0.3e1 * t1214 * t70744 * t4433;
26116   t76584 = t1214 * t4514 * t13051;
26117   t76586 = 0.2e1 / 0.3e1 * t14972 * t18202;
26118   t76587 = -t74347 + t14152 * t18734 / 0.3e1 - 0.5e1 / 0.6e1 * t14858 * t18729 - 0.5e1 / 0.6e1 * t3762 * t76556 - 0.5e1 / 0.6e1 * t3762 * t76560 - 0.5e1 / 0.6e1 * t3762 * t76564 + t14848 * t18535 / 0.3e1 + t13167 * t20132 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t76571 + 0.8e1 / 0.9e1 * t76574 - 0.2e1 * t1476 * t20415 + t76579 + t76582 - t76584 - t76586;
26119   t76590 = 0.2e1 / 0.3e1 * t13412 * t19796;
26120   t76591 = t3977 * t20343;
26121   t76593 = 0.2e1 * t2442 * t18657;
26122   t76595 = 0.2e1 * t20281 * t4042;
26123   t76597 = 0.3e1 * t13345 * t76129;
26124   t76601 = t5155 * t14838;
26125   t76605 = 0.2e1 * t9859 * t5107;
26126   t76607 = 0.2e1 * t2442 * t18516;
26127   t76608 = t4431 * t18615;
26128   t76610 = t66 * t3783 * t4527;
26129   t76613 = -t76590 + t76591 - t76593 - t70217 - t76595 - t76597 + t74296 * t1245 - t4459 * t18456 / 0.3e1 - t76601 + 0.6e1 * t75007 * t15195 - t76605 - t76607 + t76608 + t1135 * t76610 / 0.6e1;
26130   t76615 = t66 * t1136 * t15319;
26131   t76635 = t18543 * t70131 * t912;
26132   t76642 = 0.10e2 / 0.3e1 * t13409 * t19772;
26133   t76644 = 0.10e2 / 0.3e1 * t13402 * t19772;
26134   t76646 = 0.10e2 / 0.3e1 * t4013 * t73789;
26135   t76648 = 0.10e2 / 0.3e1 * t4013 * t73792;
26136   t76649 = t1135 * t76615 / 0.6e1 + t14794 * t5104 / 0.6e1 + t4277 * t18754 / 0.6e1 + t4277 * t18758 / 0.6e1 - t15011 * t4944 / 0.3e1 - t15015 * t4944 / 0.3e1 - t4465 * t18456 / 0.3e1 - t4465 * t18460 / 0.3e1 - 0.5e1 / 0.12e2 * t70514 * t20231 - 0.5e1 / 0.12e2 * t18542 * t76635 + 0.5e1 / 0.72e2 * t34310 * t5083 * t5086 + t76642 + t76644 + t76646 + t76648;
26137   t76654 = 0.10e2 / 0.3e1 * t4013 * t73921;
26138   t76655 = t34313 * t5083;
26139   t76663 = 0.6e1 * t13345 * t13542 * t20269 * t677;
26140   t76666 = t14863 * t5125;
26141   t76671 = t14582 * t5093;
26142   t76674 = t3977 * t20289;
26143   t76675 = t76654 - 0.5e1 / 0.12e2 * t76655 * t18546 + 0.3e1 * t5060 * t15385 + t76663 - t20053 * t4129 - t18469 * t4561 + t76666 + t12758 * t20132 / 0.3e1 + t12788 * t20132 / 0.3e1 + t3788 * t76671 / 0.3e1 - t76674 - t74895 - t74897 - t74899;
26144   t76677 = 0.3e1 * t70029 * t14315;
26145   t76678 = t7591 * t18768;
26146   t76682 = t1397 * t4547 * t25;
26147   t76686 = t1397 * t4550 * t25;
26148   t76689 = 0.80e2 / 0.9e1 * t70221;
26149   t76694 = 0.10e2 / 0.3e1 * t13663 * t75119;
26150   t76695 = t49234 * t19988;
26151   t76696 = 0.80e2 / 0.9e1 * t76695;
26152   t76698 = t4932 * t18834 * t2432;
26153   t76701 = 0.5e1 / 0.3e1 * t76678 * t3941 + 0.5e1 / 0.3e1 * t76682 * t3941 + 0.5e1 / 0.3e1 * t76686 * t3941 - t75075 + t76689 + 0.10e2 / 0.27e2 * t70225 + 0.10e2 / 0.27e2 * t70228 + 0.10e2 / 0.27e2 * t70236 - t76694 + t76696 - 0.5e1 / 0.36e2 * t18833 * t76698;
26154   t76703 = 0.10e2 / 0.3e1 * t49379 * t19988;
26155   t76705 = 0.10e2 / 0.3e1 * t53259 * t19988;
26156   t76707 = 0.10e2 / 0.3e1 * t49383 * t19988;
26157   t76709 = t1397 * t1258 * t883;
26158   t76714 = t70235 * t20166;
26159   t76719 = t4932 * t18774 * t2386;
26160   t76725 = t4932 * t70174 * t908;
26161   t76731 = 0.10e2 / 0.3e1 * t13663 * t75095;
26162   t76732 = -t76703 - t76705 - t76707 + 0.5e1 / 0.3e1 * t76709 * t3941 + 0.5e1 / 0.3e1 * t18769 * t14648 + 0.10e2 / 0.27e2 * t76714 - 0.5e1 / 0.36e2 * t18828 * t75132 - 0.5e1 / 0.36e2 * t18828 * t76719 - 0.5e1 / 0.36e2 * t70290 * t20166 - 0.5e1 / 0.36e2 * t18833 * t76725 - 0.5e1 / 0.36e2 * t18833 * t75309 - t76731;
26163   t76735 = 0.10e2 / 0.3e1 * t13663 * t75099;
26164   t76737 = 0.10e2 / 0.3e1 * t13663 * t75105;
26165   t76742 = 0.8e1 * t400 * t18846 * t912;
26166   t76745 = 0.8e1 * t400 * t5149 * t2436;
26167   t76747 = 0.10e2 / 0.3e1 * t53327 * t18390;
26168   t76751 = 0.10e2 / 0.3e1 * t53310 * t18390;
26169   t76757 = t4932 * t18774 * t2436;
26170   t76760 = -t76735 - t76737 + 0.5e1 / 0.3e1 * t70479 * t4397 - t76742 - t76745 - t76747 - 0.5e1 / 0.36e2 * t18833 * t75087 - t76751 + 0.5e1 / 0.12e2 * t70319 * t20154 + 0.5e1 / 0.12e2 * t18773 * t75279 + 0.5e1 / 0.12e2 * t18773 * t76757;
26171   t76763 = t7591 * t18772;
26172   t76777 = 0.10e2 / 0.3e1 * t13663 * t75181;
26173   t76780 = t34313 * t18772;
26174   t76783 = t7591 * t18822;
26175   t76786 = t7591 * t15098;
26176   t76789 = -0.5e1 / 0.36e2 * t70322 * t20158 - 0.5e1 / 0.36e2 * t76763 * t18836 + 0.5e1 / 0.12e2 * t18773 * t75186 - 0.5e1 / 0.36e2 * t18823 * t75190 - 0.5e1 / 0.36e2 * t18828 * t75194 + 0.5e1 / 0.3e1 * t70259 * t4397 + 0.5e1 / 0.3e1 * t70263 * t4397 - t76777 + 0.5e1 / 0.3e1 * t18769 * t14618 + 0.5e1 / 0.12e2 * t76780 * t18776 - 0.5e1 / 0.36e2 * t76783 * t18825 - 0.5e1 / 0.36e2 * t76786 * t18830;
26177   t76792 = t70227 * t20162;
26178   t76794 = t70224 * t20158;
26179   t76798 = t70314 * t20154;
26180   t76807 = t1397 * t19991 * t57;
26181   t76809 = 0.10e2 / 0.3e1 * t76807 * t18390;
26182   t76812 = 0.10e2 / 0.27e2 * t76792 + 0.10e2 / 0.27e2 * t76794 + 0.5e1 / 0.3e1 * t18769 * t14655 - 0.10e2 / 0.9e1 * t76798 + 0.5e1 / 0.3e1 * t70267 * t4397 + 0.5e1 / 0.3e1 * t18769 * t14669 + 0.5e1 / 0.3e1 * t18769 * t14673 + t5056 - t76809 - 0.10e2 / 0.9e1 * t70315 + 0.5e1 / 0.27e2 * t70331;
26183   t76814 = t4932 * t18774 * t2478;
26184   t76823 = 0.16e2 / 0.9e1 * t70364;
26185   t76824 = 0.16e2 / 0.9e1 * t70370;
26186   t76825 = 0.16e2 / 0.9e1 * t70372;
26187   t76826 = 0.16e2 / 0.9e1 * t70374;
26188   t76827 = 0.16e2 / 0.9e1 * t70376;
26189   t76828 = -t18420 + t20017 + t20023 - 0.5e1 / 0.36e2 * t18823 * t76814 - 0.5e1 / 0.36e2 * t70325 * t20162 - 0.5e1 / 0.36e2 * t1397 * t53271 * t20162 + 0.5e1 / 0.27e2 * t70361 - t76823 - t76824 - t76825 - t76826 - t76827;
26190   t76832 = 0.8e1 * t400 * t20176 * t443;
26191   t76835 = 0.8e1 * t400 * t20180 * t443;
26192   t76837 = 0.8e1 * t1392 * t20171;
26193   t76840 = 0.8e1 * t400 * t18843 * t912;
26194   t76841 = t23764 * t75943;
26195   t76844 = t4276 * t439;
26196   t76845 = t70271 * t76844;
26197   t76848 = t1133 * t908;
26198   t76849 = t76848 * t443;
26199   t76850 = t70271 * t76849;
26200   t76853 = t76848 * t464;
26201   t76854 = t70271 * t76853;
26202   t76857 = t76848 * t404;
26203   t76858 = t70271 * t76857;
26204   t76861 = t70384 + t75178 - t70411 - t76832 - t76835 - t76837 - t76840 + 0.5e1 / 0.6e1 * t70451 * t76841 - 0.5e1 / 0.18e2 * t18828 * t76845 + 0.5e1 / 0.6e1 * t18773 * t76850 - 0.5e1 / 0.18e2 * t18823 * t76854 - 0.5e1 / 0.18e2 * t18828 * t76858;
26205   t76862 = t1397 * t1143;
26206   t76864 = 0.40e2 * t76862 * t15160;
26207   t76866 = t1397 * t75397 * t57;
26208   t76872 = 0.20e2 * t49228 * t75320;
26209   t76873 = t50651 * t14502;
26210   t76884 = 0.2e1 / 0.3e1 * t51944 * t5142;
26211   t76885 = t76864 - 0.5e1 / 0.36e2 * t76866 * t20158 - 0.5e1 / 0.36e2 * t18823 * t75141 + t76872 - 0.10e2 * t70306 * t76873 - t20020 + t18417 + t18423 - 0.5e1 / 0.72e2 * t19962 * t18781 - 0.5e1 / 0.72e2 * t18359 * t20187 - 0.5e1 / 0.72e2 * t5042 * t5137 * t75342 + t76884;
26212   t76890 = 0.2e1 / 0.3e1 * t58068 * t5142;
26213   t76893 = 0.2e1 * t81 * t3811 * t4483;
26214   t76896 = 0.2e1 * t81 * t1143 * t15176;
26215   t76898 = 0.2e1 / 0.3e1 * t51947 * t5142;
26216   t76900 = 0.2e1 / 0.3e1 * t14614 * t18790;
26217   t76902 = 0.2e1 / 0.3e1 * t14614 * t18793;
26218   t76904 = 0.2e1 / 0.3e1 * t75172 * t5142;
26219   t76905 = t19992 * t18803;
26220   t76906 = 0.16e2 / 0.9e1 * t76905;
26221   t76907 = t14645 * t18803;
26222   t76908 = 0.16e2 / 0.9e1 * t76907;
26223   t76910 = t3945 * t4102 * t20000;
26224   t76911 = 0.16e2 / 0.9e1 * t76910;
26225   t76912 = t23764 * t76504;
26226   t76915 = t76890 + t76893 + t76896 + t76898 + t76900 + t76902 + t76904 - t76906 - t76908 - t76911 + 0.5e1 / 0.6e1 * t70451 * t76912;
26227   t76916 = t23764 * t76508;
26228   t76919 = t23764 * t75935;
26229   t76928 = t14790 * t74;
26230   t76931 = t14793 * t74;
26231   t76935 = t3945 * t4102 * t20004;
26232   t76936 = 0.16e2 / 0.9e1 * t76935;
26233   t76937 = t4276 * t440;
26234   t76946 = -0.5e1 / 0.18e2 * t13663 * t76916 + 0.5e1 / 0.6e1 * t15099 * t76919 - t18796 * t20211 / 0.3e1 - t18806 * t20211 / 0.3e1 - t18809 * t20211 / 0.3e1 - t5145 * t76928 / 0.3e1 - t5145 * t76931 / 0.3e1 - t76936 - t5145 * t76937 / 0.3e1 - t18796 * t20214 / 0.3e1 - t18806 * t20214 / 0.3e1 - t18809 * t20214 / 0.3e1;
26235   t76948 = t14782 * t74;
26236   t76951 = t14785 * t74;
26237   t76954 = t4283 * t440;
26238   t76960 = 0.8e1 * t2378 * t18849;
26239   t76961 = t19962 * t18800;
26240   t76972 = 0.2e1 / 0.3e1 * t14624 * t20199;
26241   t76974 = 0.2e1 / 0.3e1 * t13281 * t20199;
26242   t76977 = 0.2e1 / 0.3e1 * t3945 * t1254 * t75213;
26243   t76978 = -t5145 * t76948 / 0.3e1 - t5145 * t76951 / 0.3e1 - t5145 * t76954 / 0.3e1 - t18796 * t20217 / 0.3e1 - t76960 + 0.5e1 / 0.27e2 * t76961 - t2378 * t4114 * t5146 / 0.3e1 - t2378 * t4117 * t5146 / 0.3e1 - t20202 * t18813 / 0.3e1 + t76972 + t76974 + t76977;
26244   t76981 = 0.2e1 / 0.3e1 * t3945 * t1254 * t75217;
26245   t76986 = t5042 * t18799 * t19977;
26246   t76988 = t14614 * t18803;
26247   t76989 = 0.16e2 / 0.9e1 * t76988;
26248   t76993 = 0.2e1 / 0.3e1 * t19992 * t18790;
26249   t76995 = 0.2e1 / 0.3e1 * t19992 * t18793;
26250   t76996 = t52467 * t5142;
26251   t76998 = t57850 * t5142;
26252   t77000 = t52471 * t5142;
26253   t77002 = t14645 * t18790;
26254   t77004 = t14645 * t18793;
26255   t77006 = t76981 - t7763 * t1258 * t5146 / 0.3e1 + 0.5e1 / 0.27e2 * t76986 - t76989 - 0.5e1 / 0.72e2 * t75325 * t5139 + t76993 + t76995 + 0.2e1 / 0.3e1 * t76996 + 0.2e1 / 0.3e1 * t76998 + 0.2e1 / 0.3e1 * t77000 + 0.2e1 / 0.3e1 * t77002 + 0.2e1 / 0.3e1 * t77004;
26256   t77009 = t13263 * t20196;
26257   t77011 = t14624 * t20196;
26258   t77013 = t13281 * t20196;
26259   t77016 = t3945 * t1254 * t75362;
26260   t77019 = t3945 * t1254 * t75366;
26261   t77021 = t13263 * t20199;
26262   t77027 = t3768 * t909;
26263   t77030 = t3779 * t909;
26264   t77033 = t1134 * t2433;
26265   t77036 = 0.2e1 / 0.3e1 * t77009 + 0.2e1 / 0.3e1 * t77011 + 0.2e1 / 0.3e1 * t77013 + 0.2e1 / 0.3e1 * t77016 + 0.2e1 / 0.3e1 * t77019 + 0.2e1 / 0.3e1 * t77021 - t18806 * t20217 / 0.3e1 - t18809 * t20217 / 0.3e1 - t5145 * t77027 / 0.3e1 - t5145 * t77030 / 0.3e1 - t5145 * t77033 / 0.3e1;
26266   t77038 = 0.2e1 / 0.3e1 * t75235 * t5142;
26267   t77040 = 0.2e1 / 0.3e1 * t75239 * t5142;
26268   t77058 = t77038 + t77040 - t75329 + t75350 + t75352 - t20202 * t18816 / 0.3e1 - t20202 * t18819 / 0.3e1 - t1392 * t4547 * t5146 / 0.3e1 - t400 * t15182 * t5146 / 0.3e1 - t400 * t15185 * t5146 / 0.3e1 - t20205 * t18813 / 0.3e1 - t20205 * t18816 / 0.3e1;
26269   t77077 = t70271 * t75939;
26270   t77080 = t23764 * t75931;
26271   t77085 = 0.2e1 * t81 * t4311 * t4041;
26272   t77087 = 0.2e1 * t397 * t20180;
26273   t77089 = 0.2e1 * t2377 * t5149;
26274   t77090 = -t20205 * t18819 / 0.3e1 - t1392 * t4550 * t5146 / 0.3e1 - t400 * t15169 * t5146 / 0.3e1 - t400 * t15177 * t5146 / 0.3e1 - t20208 * t18813 / 0.3e1 - t20208 * t18816 / 0.3e1 - t20208 * t18819 / 0.3e1 + 0.5e1 / 0.6e1 * t18773 * t77077 - 0.35e2 / 0.12e2 * t70309 * t77080 + t77085 + t77087 + t77089;
26275   t77092 = 0.2e1 * t881 * t18843;
26276   t77094 = 0.2e1 * t881 * t18846;
26277   t77096 = 0.2e1 * t397 * t20176;
26278   t77099 = 0.2e1 * t81 * t14139 * t1231;
26279   t77100 = t76503 * t439;
26280   t77101 = t70271 * t77100;
26281   t77104 = t4276 * t443;
26282   t77105 = t23764 * t77104;
26283   t77108 = t4276 * t464;
26284   t77109 = t23764 * t77108;
26285   t77112 = t77092 + t77094 + t77096 + t77099 - 0.5e1 / 0.18e2 * t18823 * t77101 + 0.5e1 / 0.6e1 * t15099 * t77105 - 0.5e1 / 0.18e2 * t13663 * t77109 + t75410 + t75413 - t75415 - t75418 - t75421;
26286   t77118 = t18679 * t20243;
26287   t77121 = 0.2e1 / 0.3e1 * t13424 * t20075;
26288   t77123 = 0.2e1 / 0.3e1 * t4026 * t73778;
26289   t77126 = t915 * t3811;
26290   t77128 = 0.2e1 * t77126 * t1232;
26291   t77130 = 0.2e1 * t20281 * t4035;
26292   t77132 = 0.3e1 * t5155 * t14680;
26293   t77135 = 0.3e1 * t1214 * t18660 * t14489;
26294   t77137 = 0.3e1 * t18738 * t4434;
26295   t77138 = t446 * t4311;
26296   t77140 = 0.2e1 * t77138 * t1232;
26297   t77141 = -t76677 + (t76701 + t76732 + t76760 + t76789 + t76812 + t76828 + t76861 + t76885 + t76915 + t76946 + t76978 + t77006 + t77036 + t77058 + t77090 + t77112) * t227 - 0.10e2 / 0.27e2 * t77118 - t77121 - t77123 - t74931 - t74933 + 0.3e1 * t5060 * t15348 - t77128 - t77130 + t77132 + t77135 + t77137 - t77140;
26298   t77144 = 0.2e1 * t8342 * t5107;
26299   t77146 = 0.3e1 * t13345 * t76164;
26300   t77149 = t1214 * t20342 * t3985;
26301   t77151 = 0.2e1 * t1476 * t20409;
26302   t77153 = 0.2e1 * t2448 * t20409;
26303   t77156 = 0.2e1 * t449 * t4090 * t4311;
26304   t77159 = t4431 * t18704;
26305   t77161 = 0.3e1 * t5155 * t14490;
26306   t77162 = t50654 * t15160;
26307   t77167 = t13453 * t19800;
26308   t77168 = 0.16e2 / 0.9e1 * t77167;
26309   t77169 = -t77144 - t74945 - t77146 + t5152 * t2866 - t77149 - t77151 - t77153 - t77156 - 0.2e1 * t4302 * t18565 - t77159 + t77161 + 0.10e2 * t50652 * t77162 + t50604 * t5094 / 0.3e1 + t77168;
26310   t77173 = t18679 * t19759;
26311   t77175 = t53071 * t4940;
26312   t77176 = 0.16e2 / 0.9e1 * t77175;
26313   t77178 = t5155 * t14432;
26314   t77180 = t1214 * t5124 * t7972;
26315   t77185 = 0.2e1 / 0.3e1 * t4026 * t73889;
26316   t77187 = 0.2e1 / 0.3e1 * t13412 * t19804;
26317   t77189 = 0.2e1 / 0.3e1 * t13424 * t19804;
26318   t77191 = 0.3e1 * t20294 * t3981;
26319   t77196 = 0.5e1 / 0.72e2 * t18527 * t19759 + 0.10e2 / 0.9e1 * t70573 - 0.5e1 / 0.27e2 * t77173 + t77176 - 0.5e1 / 0.27e2 * t70575 + t77178 - t77180 - 0.2e1 * t8342 * t5100 + t18469 * t4515 - t77185 - t77187 - t77189 + t77191 - t4009 * t20041 / 0.3e1 - t4017 * t20041 / 0.3e1;
26320   t77204 = 0.2e1 * t18654 * t4484;
26321   t77206 = 0.2e1 * t18640 * t4484;
26322   t77208 = 0.2e1 * t5097 * t15001;
26323   t77210 = 0.2e1 * t5097 * t15334;
26324   t77217 = t18543 * t18544 * t2436;
26325   t77227 = t18543 * t70131 * t883;
26326   t77234 = 0.2e1 * t14120 * t5107;
26327   t77235 = -t1227 * t74241 / 0.3e1 - t1227 * t74245 / 0.3e1 - t77204 - t77206 - t77208 - t77210 - 0.2e1 * t449 * t1199 * t15176 - 0.5e1 / 0.12e2 * t18542 * t74841 - 0.5e1 / 0.12e2 * t18542 * t77217 + 0.5e1 / 0.36e2 * t70517 * t20235 + 0.5e1 / 0.36e2 * t1397 * t4016 * t114 * t20235 + 0.5e1 / 0.36e2 * t18550 * t77227 - 0.2e1 * t449 * t4391 * t4041 - t77234;
26328   t77237 = 0.2e1 * t14123 * t5107;
26329   t77239 = 0.2e1 * t4302 * t18516;
26330   t77240 = t1137 * t76849;
26331   t77243 = t1137 * t76857;
26332   t77246 = t50654 * t76853;
26333   t77249 = t5155 * t14812;
26334   t77250 = t4935 * t77104;
26335   t77253 = t1137 * t76844;
26336   t77256 = t70080 * t77108;
26337   t77260 = 0.20e2 * t52963 * t74798;
26338   t77261 = t174 * t20341;
26339   t77264 = 0.3e1 * t1214 * t77261 * t3980;
26340   t77267 = 0.2e1 * t14484 * t76373;
26341   t77269 = 0.3e1 * t13345 * t76151;
26342   t77271 = 0.2e1 * t20284 * t4042;
26343   t77272 = -t77237 - t77239 - 0.5e1 / 0.6e1 * t70074 * t77240 + 0.5e1 / 0.18e2 * t70086 * t77243 + 0.5e1 / 0.18e2 * t70173 * t77246 - t77249 - 0.5e1 / 0.6e1 * t70067 * t77250 + 0.5e1 / 0.18e2 * t70086 * t77253 + 0.5e1 / 0.18e2 * t70086 * t77256 - t77260 + t77264 - t5060 * t15382 + t77267 - t77269 - t77271;
26344   t77275 = 0.3e1 * t4431 * t18661;
26345   t77277 = 0.3e1 * t3977 * t20406;
26346   t77279 = t1214 * t4076 * t14434;
26347   t77282 = 0.2e1 * t449 * t5135 * t2478;
26348   t77283 = t2440 * t5135;
26349   t77297 = t1214 * t18614 * t2850;
26350   t77298 = t3977 * t20399;
26351   t77300 = 0.2e1 * t1476 * t20259;
26352   t77302 = 0.2e1 * t2448 * t20259;
26353   t77303 = -0.2e1 * t1231 * t14468 * t449 - 0.2e1 * t3934 * t4483 * t449 - 0.2e1 * t1476 * t20266 - 0.2e1 * t20266 * t2448 - 0.2e1 * t20415 * t2448 + t77275 + t77277 - t77279 - t77282 - t77283 - t77297 - t77298 - t77300 - t77302;
26354   t77306 = 0.2e1 * t449 * t15319 * t1143;
26355   t77309 = 0.2e1 * t4302 * t18651;
26356   t77310 = t20294 * t3921;
26357   t77311 = t50654 * t77100;
26358   t77314 = t50644 * t18538;
26359   t77330 = t1214 * t15286 * t3923;
26360   t77331 = t18738 * t4379;
26361   t77332 = -t77306 + t20221 * t751 - t77309 + t77310 + 0.5e1 / 0.18e2 * t70173 * t77311 - t75431 - 0.5e1 / 0.3e1 * t3762 * t77314 + t50476 * t5094 / 0.3e1 + t50708 * t5094 / 0.3e1 + t51851 * t5094 / 0.3e1 + t14848 * t18715 / 0.3e1 + t14848 * t18719 / 0.3e1 + t14848 * t18724 / 0.3e1 - t77330 + t77331;
26362   t77337 = t77332 + t77303 + t77272 + t77235 + t77196 + t75588 + t75626 + t75659 + t75862 + t76522 + t76060 + t76551 + t75797 + t75722 + t77169 + t76587 + t76097 + t76450 + t77141 + t76416 + t75997 + t76486 + t76613 + t75686 + t76675 + t75968 + t75924 + t75832 + t75893 + t76025 + t75763 + t76649;
26363   t77350 = 0.6e1 * t369 * t4547 * t3811;
26364   t77352 = 0.6e1 * t1267 * t14906;
26365   t77358 = 0.6e1 * t1125 * t18891;
26366   t77360 = 0.3e1 * t4568 * t4003;
26367   t77363 = 0.6e1 * t369 * t15169 * t1143;
26368   t77366 = 0.6e1 * t369 * t15177 * t1143;
26369   t77369 = 0.6e1 * t369 * t4550 * t3811;
26370   t77370 = t370 * t77337 * params->d + 0.6e1 * t1219 * t15430 + 0.6e1 * t1219 * t15433 + 0.3e1 * t1219 * t15444 + t5079 + t77350 + t77352 + t77358 + t77360 + t77363 + t77366 + t77369;
26371   t77373 = 0.6e1 * t369 * t1258 * t14139;
26372   t77377 = 0.6e1 * t1125 * t18894;
26373   t77381 = 0.6e1 * t873 * t20448;
26374   t77384 = 0.6e1 * t369 * t15182 * t1143;
26375   t77389 = 0.6e1 * t369 * t15185 * t1143;
26376   t77394 = 0.6e1 * t369 * t4114 * t4311;
26377   t77397 = 0.6e1 * t369 * t4117 * t4311;
26378   t77399 = 0.6e1 * t4568 * t4000;
26379   t77401 = 0.6e1 * t873 * t20451;
26380   t77402 = 0.6e1 * t3138 * t5166 + 0.6e1 * t3994 * t4574 + 0.3e1 * t3994 * t4577 + 0.6e1 * t4143 * t4445 + t77373 + t77377 + t77381 + t77384 + t77389 + t77394 + t77397 + t77399 + t77401;
26381   t77411 = 0.6e1 * t1267 * t14903;
26382   t77413 = 0.3e1 * t1267 * t14914;
26383   t77415 = 0.6e1 * t4137 * t4451;
26384   t77419 = 0.6e1 * t1267 * t14911;
26385   t77421 = 0.3e1 * t15412 * t1221;
26386   t77423 = 0.6e1 * t3132 * t5172;
26387   t77424 = 0.3e1 * t1127 * t18870 + 0.3e1 * t20430 * t875 + 0.3e1 * t3141 * t5166 + 0.3e1 * t4146 * t4445 + t20112 + t75512 + t75526 + t77411 + t77413 + t77415 + t77419 + t77421 + t77423;
26388   t77426 = 0.6e1 * t1267 * t14900;
26389   t77428 = 0.3e1 * t4137 * t4454;
26390   t77436 = 0.6e1 * t1125 * t18888;
26391   t77438 = 0.6e1 * t873 * t20454;
26392   t77439 = 0.6e1 * t1219 * t15436 + 0.6e1 * t1219 * t15441 + 0.3e1 * t1269 * t14882 + t18505 + t18508 + t20115 + t75538 + t75542 + t75545 + t77426 + t77428 + t77436 + t77438;
26393   t77443 = t4440 * t1272;
26394   t77445 = t368 * t20457;
26395   t77448 = t15401 * t1224 + t20422 * t878 + t7 * t77337 * t372 + t1123 * t18897 + t4441 * t4149 + t70764 + t3989 * t4580 + t1217 * t15447 + t872 * (t77370 + t77402 + t77424 + t77439) + t77443 + t3127 * t5175 + t77445 + t4132 * t4457 + t70762 + t70768 + t18859 * t1130;
26396   t77449 = t1122 * t5175;
26397   t77450 = t1264 * t4457;
26398   t77454 = t20421 * t372;
26399   t77456 = t1216 * t4580;
26400   t77457 = t4563 * t1224;
26401   t77458 = t5161 * t1130;
26402   t77460 = t1265 * t14917 + t1272 * t14871 + t20457 * t870 + t3144 * t5162 + t4006 * t4564 + t69509 + t69511 + t69513 + t70770 + t70774 + t77449 + t77450 + t77454 + t77456 + t77457 + t77458;
26403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26404     v4rho2sigma2[7] = t77448 + t77460;
26405 
26406   t77464 = t4263 * t4451;
26407   t77466 = t1318 * t14911;
26408   t77468 = t4683 * t4000;
26409   t77472 = t1318 * t14900;
26410   t77476 = t1318 * t14914;
26411   t77478 = t4263 * t4454;
26412   t77480 = t1318 * t14903;
26413   t77482 = 0.3e1 * t1127 * t19087 + 0.6e1 * t3138 * t5218 + 0.3e1 * t3141 * t5218 + t5079 + 0.6e1 * t77464 + 0.6e1 * t77466 + 0.6e1 * t77468 + 0.6e1 * t77472 + 0.3e1 * t77476 + 0.3e1 * t77478 + 0.6e1 * t77480;
26414   t77483 = t1318 * t14906;
26415   t77486 = t15879 * t1221;
26416   t77488 = 0.6e1 * t77483 + t75486 + t20112 + 0.3e1 * t75487 + t75491 + t75494 + t75497 + t75499 + 0.3e1 * t77486 + t75501 + t75504;
26417   t77492 = t4683 * t4003;
26418   t77504 = t34310 * t5178;
26419   t77507 = t54913 * t4940;
26420   t77509 = t54785 * t4940;
26421   t77511 = t54851 * t4940;
26422   t77515 = t4173 * t74224;
26423   t77517 = t6445 * t20553;
26424   t77521 = t4284 * t18935 / 0.6e1 + t4284 * t18953 / 0.6e1 + 0.5e1 / 0.24e2 * t70817 * t20231 + 0.5e1 / 0.24e2 * t71181 * t20231 + 0.5e1 / 0.24e2 * t18989 * t76635 - 0.5e1 / 0.144e3 * t77504 * t5086 + t77507 / 0.3e1 + t77509 / 0.3e1 + t77511 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t74342 + t77515 / 0.3e1 - 0.5e1 / 0.144e3 * t77517 * t5086 - 0.5e1 / 0.3e1 * t73721;
26425   t77522 = t55639 * t4940;
26426   t77524 = t15610 * t18071;
26427   t77530 = t14120 * t5192;
26428   t77532 = t14123 * t5192;
26429   t77534 = t4302 * t19043;
26430   t77539 = t8342 * t5192;
26431   t77541 = t54845 * t4940;
26432   t77543 = t54812 * t4940;
26433   t77545 = t77522 / 0.3e1 + t77524 / 0.3e1 - 0.5e1 / 0.36e2 * t70855 * t77246 + t4160 * t20041 / 0.6e1 - 0.2e1 * t77530 - 0.2e1 * t77532 - 0.2e1 * t77534 - 0.2e1 * t73751 - 0.2e1 * t73753 - 0.2e1 * t73756 - 0.2e1 * t77539 - t73766 + t77541 / 0.3e1 + t77543 / 0.3e1;
26434   t77560 = t15503 * t18202;
26435   t77562 = t54885 * t4940;
26436   t77564 = t54893 * t4940;
26437   t77569 = t73776 / 0.3e1 + t73779 / 0.3e1 + t4168 * t20041 / 0.6e1 + t1277 * t74241 / 0.6e1 + t1277 * t74245 / 0.6e1 + t73781 / 0.3e1 + t4269 * t18935 / 0.6e1 + t4269 * t18953 / 0.6e1 + t77560 / 0.3e1 + t77562 / 0.3e1 + t77564 / 0.3e1 - 0.2e1 * t449 * t20508 * t464 - t19748 - t19750;
26438   t77572 = t1397 * t4926 * t15487 * t114;
26439   t77582 = t4156 * t73843;
26440   t77584 = t4156 * t73847;
26441   t77586 = t15503 * t18071;
26442   t77592 = t4156 * t73828;
26443   t77594 = -t19753 - 0.5e1 / 0.144e3 * t77572 * t5086 - 0.5e1 / 0.144e3 * t20554 * t18531 - 0.5e1 / 0.3e1 * t73785 - 0.5e1 / 0.3e1 * t73787 - 0.5e1 / 0.3e1 * t73790 - 0.5e1 / 0.3e1 * t73793 + t73796 / 0.3e1 - 0.5e1 / 0.3e1 * t77582 - 0.5e1 / 0.3e1 * t77584 + t77586 / 0.3e1 - 0.5e1 / 0.6e1 * t15500 * t18207 + t15503 * t18212 / 0.3e1 - 0.5e1 / 0.3e1 * t77592;
26444   t77598 = t96 * t4656;
26445   t77600 = t1204 * t77598 * t464;
26446   t77620 = t1204 * t4179 * t928;
26447   t77623 = t73798 / 0.3e1 + t3788 * t77600 / 0.3e1 - 0.5e1 / 0.36e2 * t70855 * t77311 - 0.5e1 / 0.72e2 * t5179 * t73743 - 0.5e1 / 0.72e2 * t5179 * t75740 - 0.5e1 / 0.72e2 * t18940 * t20243 + t73821 / 0.3e1 + t73825 / 0.3e1 - 0.5e1 / 0.3e1 * t73829 + t73832 / 0.3e1 + t73834 / 0.3e1 + t73836 / 0.3e1 + t4152 * t20041 / 0.6e1 + t3788 * t77620 / 0.3e1;
26448   t77625 = t1204 * t71149 * t928;
26449   t77634 = t13870 * t19800;
26450   t77643 = t66 * t3783 * t4656;
26451   t77647 = t66 * t1136 * t15862;
26452   t77656 = t3788 * t77625 / 0.3e1 - t73841 + t4173 * t73812 / 0.3e1 + t4173 * t73816 / 0.3e1 + t4173 * t74314 / 0.3e1 + t77634 / 0.3e1 + t3758 * t20525 / 0.6e1 + t3769 * t20525 / 0.6e1 + t3780 * t20525 / 0.6e1 + t1135 * t77643 / 0.6e1 + t1135 * t77647 / 0.6e1 + t4152 * t20030 / 0.6e1 + t4160 * t20030 / 0.6e1 + t4168 * t20030 / 0.6e1;
26453   t77662 = t4173 * t73905;
26454   t77678 = t1277 * t74306 / 0.6e1 + t1277 * t74310 / 0.6e1 + t77662 / 0.3e1 - 0.5e1 / 0.144e3 * t20468 * t18051 - 0.5e1 / 0.3e1 * t73844 - 0.5e1 / 0.3e1 * t73848 + t73861 / 0.3e1 + t73863 / 0.3e1 + t73865 / 0.3e1 + t73867 / 0.3e1 + t73869 / 0.3e1 + t73872 / 0.3e1 + t3758 * t20519 / 0.6e1 + t3769 * t20519 / 0.6e1;
26455   t77682 = t66 * t14801 * t1307;
26456   t77686 = t66 * t4287 * t4235;
26457   t77691 = t15610 * t18075;
26458   t77693 = t15610 * t18079;
26459   t77703 = t13811 * t20075;
26460   t77705 = t13876 * t20075;
26461   t77707 = t13870 * t20075;
26462   t77709 = t4173 * t73778;
26463   t77711 = t3780 * t20519 / 0.6e1 + t1135 * t77682 / 0.6e1 + t1135 * t77686 / 0.6e1 - 0.5e1 / 0.6e1 * t14851 * t18920 + t77691 / 0.3e1 + t77693 / 0.3e1 + t14156 * t18925 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t74187 + t4173 * t74191 / 0.3e1 - 0.5e1 / 0.6e1 * t14858 * t18920 + t77703 / 0.3e1 + t77705 / 0.3e1 + t77707 / 0.3e1 + t77709 / 0.3e1;
26464   t77717 = t71026 * t14438;
26465   t77719 = t5210 * t14820;
26466   t77720 = t77719 * t14309;
26467   t77728 = t3958 * t20479;
26468   t77731 = t4173 * t73820;
26469   t77733 = t4173 * t73824;
26470   t77735 = t54889 * t4940;
26471   t77741 = -0.5e1 / 0.144e3 * t20468 * t18531 - 0.3e1 * t77717 + 0.6e1 * t77720 + t13167 * t20480 / 0.3e1 + t12758 * t20480 / 0.3e1 + t12788 * t20480 / 0.3e1 + t3788 * t77728 / 0.3e1 + t77731 / 0.3e1 + t77733 / 0.3e1 + t77735 / 0.3e1 + t73890 / 0.3e1 + t73892 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t76513;
26472   t77745 = t1204 * t18918 * t2436;
26473   t77755 = t3958 * t20472;
26474   t77759 = t1204 * t71168 * t912;
26475   t77768 = -0.5e1 / 0.72e2 * t5179 * t76517 - 0.5e1 / 0.6e1 * t3762 * t77745 + t73894 / 0.3e1 + t73896 / 0.3e1 + t73898 / 0.3e1 + t73900 / 0.3e1 + t73903 / 0.3e1 + t73906 / 0.3e1 + t73909 / 0.3e1 - 0.5e1 / 0.6e1 * t3762 * t77755 - 0.5e1 / 0.6e1 * t3762 * t77759 + t15634 * t4944 / 0.6e1 + t15638 * t4944 / 0.6e1 + t15642 * t4944 / 0.6e1;
26476   t77774 = t13808 * t19772;
26477   t77784 = t15503 * t18075;
26478   t77786 = t15503 * t18079;
26479   t77793 = t18978 * t4438;
26480   t77794 = t18978 * t4379;
26481   t77795 = t4588 * t18456 / 0.6e1 + t4588 * t18460 / 0.6e1 - 0.5e1 / 0.3e1 * t77774 - 0.2e1 * t73914 - 0.2e1 * t73916 - 0.5e1 / 0.144e3 * t5179 * t73709 - 0.5e1 / 0.6e1 * t14736 * t18920 + t14152 * t18925 / 0.3e1 + t77784 / 0.3e1 + t77786 / 0.3e1 - 0.5e1 / 0.6e1 * t15699 * t18207 - 0.2e1 * t449 * t5198 * t2478 - t77793 + t77794;
26482   t77798 = t5211 * t14495;
26483   t77801 = t1204 * t18923 * t2478;
26484   t77810 = t5211 * t14838;
26485   t77818 = -0.2e1 * t73918 - 0.5e1 / 0.3e1 * t73922 + t74186 + 0.3e1 * t77798 + t3788 * t77801 / 0.3e1 - 0.5e1 / 0.144e3 * t18940 * t19759 - 0.5e1 / 0.144e3 * t18945 * t19759 - 0.5e1 / 0.144e3 * t5179 * t73858 - t77810 + t74199 - 0.5e1 / 0.72e2 * t18945 * t20243 - 0.5e1 / 0.72e2 * t5179 * t75745 - 0.5e1 / 0.72e2 * t5179 * t75701 - 0.5e1 / 0.3e1 * t74201;
26486   t77824 = t12791 * t4607 * t443;
26487   t77827 = t5211 * t14490;
26488   t77835 = my_piecewise3(t296, 0, t74777);
26489   t77837 = t77835 * t34 / 0.2e1;
26490   t77839 = t20504 * t413 / 0.2e1;
26491   t77841 = t19066 * t886 / 0.2e1;
26492   t77843 = t5195 * t4 * t377;
26493   t77849 = t2448 * t20531;
26494   t77852 = t449 * t4235 * t4311;
26495   t77854 = t5211 * t14432;
26496   t77855 = t5211 * t14812;
26497   t77857 = t15610 * t18212 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t77824 + 0.3e1 * t77827 + t14780 * t5189 / 0.6e1 + t14783 * t5189 / 0.6e1 + t14786 * t5189 / 0.6e1 - t98 * (t77837 + t77839 + t77841 + t77843 + t74789 + t74791 + t74793 - t74795) + t74209 / 0.3e1 - 0.2e1 * t2442 * t19049 - 0.2e1 * t77849 - 0.2e1 * t77852 + t77854 - t77855 + t74221 / 0.3e1;
26498   t77859 = t4173 * t73795;
26499   t77861 = t13811 * t19800;
26500   t77863 = t13876 * t19800;
26501   t77865 = t6453 * t20553;
26502   t77869 = t1397 * t4596 * t114;
26503   t77876 = t20560 * t3986;
26504   t77877 = t15683 * t18064;
26505   t77885 = t15686 * t18202;
26506   t77887 = t74225 / 0.3e1 + t77859 / 0.3e1 + t77861 / 0.3e1 + t77863 / 0.3e1 + 0.5e1 / 0.24e2 * t77865 * t18546 - 0.5e1 / 0.72e2 * t77869 * t18552 - 0.5e1 / 0.72e2 * t20554 * t18557 - 0.5e1 / 0.72e2 * t20554 * t18562 - t77876 - 0.5e1 / 0.3e1 * t77877 + 0.5e1 / 0.24e2 * t18989 * t74841 + 0.5e1 / 0.24e2 * t18989 * t77217 - 0.5e1 / 0.72e2 * t70820 * t20235 + t77885 / 0.3e1;
26507   t77889 = t5211 * t14810;
26508   t77890 = t4173 * t74255;
26509   t77892 = t4173 * t74220;
26510   t77898 = t4173 * t74804;
26511   t77908 = t18978 * t4434;
26512   t77913 = -t77889 + t77890 / 0.3e1 + t77892 / 0.3e1 + t4173 * t74887 / 0.3e1 - 0.5e1 / 0.144e3 * t5179 * t75059 + t77898 / 0.3e1 - 0.5e1 / 0.6e1 * t13808 * t20079 - 0.5e1 / 0.6e1 * t13879 * t20079 - 0.5e1 / 0.6e1 * t13882 * t20079 - 0.5e1 / 0.6e1 * t4156 * t74338 + 0.3e1 * t77908 - 0.2e1 * t74248 - 0.2e1 * t74251 + t74256 / 0.3e1;
26513   t77915 = t97 * t4656;
26514   t77917 = t1204 * t77915 * t443;
26515   t77920 = t15500 * t18064;
26516   t77928 = t34313 * t5178;
26517   t77937 = t71026 * t14315;
26518   t77944 = -0.2e1 * t74258 - 0.5e1 / 0.6e1 * t3762 * t77917 - 0.5e1 / 0.3e1 * t77920 - 0.5e1 / 0.72e2 * t18957 * t75029 - 0.5e1 / 0.72e2 * t5179 * t75033 - 0.5e1 / 0.72e2 * t5179 * t75011 + 0.5e1 / 0.24e2 * t77928 * t18546 + t14686 * t5189 / 0.6e1 + t14689 * t5189 / 0.6e1 + t14692 * t5189 / 0.6e1 - t74276 - 0.3e1 * t77937 - 0.2e1 * t2448 * t20528 - 0.2e1 * t449 * t19070 * t928;
26519   t77957 = t4173 * t73871;
26520   t77967 = t1476 * t20564;
26521   t77969 = t2448 * t20564;
26522   t77971 = -0.2e1 * t1476 * t20528 + t74282 + 0.5e1 / 0.12e2 * t71184 * t77250 - 0.5e1 / 0.36e2 * t70858 * t77253 - 0.5e1 / 0.36e2 * t70858 * t77256 - t74294 + t77957 / 0.3e1 - 0.5e1 / 0.144e3 * t20554 * t18051 + 0.5e1 / 0.12e2 * t71136 * t75944 + 0.5e1 / 0.12e2 * t71136 * t77240 - 0.5e1 / 0.36e2 * t70858 * t77243 - 0.2e1 * t77967 - 0.2e1 * t77969;
26523   t77973 = t449 * t15862 * t1143;
26524   t77976 = t449 * t1307 * t14139;
26525   t77978 = t13879 * t19772;
26526   t77980 = t13882 * t19772;
26527   t77982 = t4156 * t73789;
26528   t77984 = t4156 * t73792;
26529   t77986 = t4156 * t73921;
26530   t77992 = t13870 * t19804;
26531   t77994 = t4173 * t74815;
26532   t77996 = t4173 * t74819;
26533   t78000 = -0.2e1 * t77973 + t74297 - 0.2e1 * t77976 - 0.5e1 / 0.3e1 * t77978 - 0.5e1 / 0.3e1 * t77980 - 0.5e1 / 0.3e1 * t77982 - 0.5e1 / 0.3e1 * t77984 - 0.5e1 / 0.3e1 * t77986 - 0.5e1 / 0.72e2 * t5179 * t74994 - 0.5e1 / 0.72e2 * t5179 * t75719 + t77992 / 0.3e1 + t77994 / 0.3e1 + t77996 / 0.3e1 - 0.5e1 / 0.6e1 * t15683 * t18207;
26534   t78004 = t4173 * t74823;
26535   t78020 = t4173 * t73889;
26536   t78022 = t1307 * t912;
26537   t78024 = t14703 * t78022 * t443;
26538   t78028 = t12791 * t78022 * t464;
26539   t78035 = t15686 * t18212 / 0.3e1 + t78004 / 0.3e1 - 0.5e1 / 0.144e3 * t18940 * t20349 - 0.5e1 / 0.144e3 * t18945 * t20349 - 0.5e1 / 0.144e3 * t5179 * t75776 - 0.5e1 / 0.6e1 * t4156 * t73686 + t13811 * t20071 / 0.3e1 + t13876 * t20071 / 0.3e1 + t13870 * t20071 / 0.3e1 + t78020 / 0.3e1 + 0.5e1 * t13159 * t78024 - 0.5e1 / 0.3e1 * t3762 * t78028 + t14791 * t5189 / 0.6e1 + t14794 * t5189 / 0.6e1;
26540   t78040 = t4173 * t73908;
26541   t78042 = t15610 * t18202;
26542   t78044 = t13811 * t19796;
26543   t78046 = t13876 * t19796;
26544   t78048 = t13870 * t19796;
26545   t78050 = t4173 * t73902;
26546   t78052 = t2442 * t19043;
26547   t78056 = t4277 * t18935 / 0.6e1 + t4277 * t18953 / 0.6e1 + t78040 / 0.3e1 - t4957 - t74320 - t74322 + t78042 / 0.3e1 + t78044 / 0.3e1 + t78046 / 0.3e1 + t78048 / 0.3e1 + t78050 / 0.3e1 - 0.2e1 * t78052 + t74327 + 0.5e1 / 0.12e2 * t71136 * t75940;
26548   t78059 = t5210 * t14483;
26549   t78060 = t78059 * t14444;
26550   t78062 = t4156 * t74983;
26551   t78064 = t4156 * t75017;
26552   t78066 = t20560 * t3981;
26553   t78068 = t15686 * t18071;
26554   t78070 = t15686 * t18075;
26555   t78072 = t15686 * t18079;
26556   t78075 = -t74331 + 0.2e1 * t78060 - 0.5e1 / 0.3e1 * t78062 - 0.5e1 / 0.3e1 * t78064 - t74332 + 0.3e1 * t78066 + t78068 / 0.3e1 + t78070 / 0.3e1 + t78072 / 0.3e1 - t18095 - t18097 - t18100 - t74347 - 0.2e1 * t74349;
26557   t78091 = t74351 / 0.3e1 + t74353 / 0.3e1 + t74355 / 0.3e1 + t74368 / 0.3e1 + t74370 / 0.3e1 - 0.5e1 / 0.6e1 * t13164 * t20473 - 0.5e1 / 0.6e1 * t12761 * t20473 - 0.5e1 / 0.6e1 * t12765 * t20473 - t74379 + 0.3e1 * t74380 + 0.10e2 * t74799 - t74802 - t916 * t19070 + t74805 / 0.3e1;
26558   t78115 = t74809 - t74810 + t74812 + t4597 * t18456 / 0.6e1 + t4597 * t18460 / 0.6e1 + t15472 * t4944 / 0.6e1 + t15476 * t4944 / 0.6e1 + t15489 * t4944 / 0.6e1 + t15452 * t4944 / 0.6e1 + t15455 * t4944 / 0.6e1 + t15458 * t4944 / 0.6e1 + t4582 * t18456 / 0.6e1 + t4582 * t18460 / 0.6e1 + t14824 * t5189 / 0.6e1;
26559   t78121 = t5211 * t14680;
26560   t78124 = t449 * t4656 * t3811;
26561   t78126 = t75928 * t70854;
26562   t78133 = t15699 * t18064;
26563   t78135 = t7591 * t18944;
26564   t78138 = -t2440 * t5198 + t74813 / 0.3e1 + t74816 / 0.3e1 + t74820 / 0.3e1 + t74824 / 0.3e1 - t74830 + 0.3e1 * t78121 - 0.2e1 * t78124 - 0.35e2 / 0.24e2 * t78126 * t75932 + 0.5e1 / 0.12e2 * t71184 * t75936 + t74832 + 0.5e1 / 0.24e2 * t18989 * t74902 - 0.5e1 / 0.3e1 * t78133 - 0.5e1 / 0.144e3 * t78135 * t5086;
26565   t78142 = t13876 * t19804;
26566   t78147 = t20560 * t3921;
26567   t78150 = t78142 / 0.3e1 - t74853 - 0.3e1 * t74855 + 0.3e1 * t74857 + 0.3e1 * t74859 + t74863 - t74864 + t78147 + t74867 - t74869 + t74870 - t74873 + t5208 * t2866 + t74890 / 0.3e1;
26568   t78157 = t1476 * t20531;
26569   t78160 = t74892 / 0.3e1 - t74895 - t74897 - t74899 - t74907 - t74911 + 0.5e1 * t13892 * t75442 + t74912 / 0.3e1 + t74914 / 0.3e1 + t74916 / 0.3e1 - 0.2e1 * t78157 + t19041 * t1037 - t74927 - t74929;
26570   t78162 = t4302 * t19046;
26571   t78165 = t7591 * t18956;
26572   t78172 = -t74931 - t74933 - t74935 + t74938 - 0.2e1 * t78162 - t447 * t20508 + t74941 - t74943 - 0.5e1 / 0.72e2 * t78165 * t18552 - 0.5e1 / 0.72e2 * t20468 * t18557 - t74945 - 0.2e1 * t74946 - t74949 + 0.3e1 * t74950;
26573   t78176 = t4412 * t18919;
26574   t78179 = t4412 * t18924;
26575   t78188 = t13811 * t19804;
26576   t78191 = t1397 * t4159 * t114;
26577   t78194 = -t74953 - t74955 + 0.2e1 * t74958 - 0.3e1 * t74960 + 0.3e1 * t74962 + t74965 - t74967 - 0.5e1 / 0.6e1 * t3762 * t78176 + t3788 * t78179 / 0.3e1 + t4173 * t74229 / 0.3e1 + t14848 * t18925 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t74359 + t78188 / 0.3e1 - 0.5e1 / 0.72e2 * t78191 * t20235;
26578   t78218 = -0.5e1 / 0.72e2 * t71094 * t20235 - 0.5e1 / 0.72e2 * t18957 * t77227 + 0.5e1 / 0.24e2 * t18989 * t76423 - 0.5e1 / 0.72e2 * t18957 * t76427 - t74969 - 0.5e1 / 0.72e2 * t18957 * t73729 - 0.5e1 / 0.72e2 * t18957 * t75683 - 0.5e1 / 0.72e2 * t18940 * t20239 - 0.5e1 / 0.72e2 * t18945 * t20239 - 0.5e1 / 0.72e2 * t5179 * t75692 + t74971 - t74973 + t20618 * t751 - 0.5e1 / 0.72e2 * t20468 * t18562;
26579   t78231 = -t74974 - 0.5e1 / 0.3e1 * t74976 - 0.2e1 * t74978 - t74980 + t74981 - 0.5e1 / 0.3e1 * t74984 + t75004 - 0.5e1 / 0.3e1 * t4156 * t75446 + 0.5e1 / 0.12e2 * t71136 * t76505 - 0.5e1 / 0.36e2 * t70858 * t76509 - t75006 + 0.6e1 * t75008 - 0.5e1 / 0.3e1 * t75014 - 0.5e1 / 0.3e1 * t75018;
26580   t78235 = t4156 * t73720;
26581   t78250 = -t75075 + t75078 - t75081 - t75084 - 0.5e1 / 0.24e2 * t71261 * t20154 - 0.5e1 / 0.24e2 * t71341 * t20154 - 0.5e1 / 0.24e2 * t19023 * t75279 - 0.5e1 / 0.24e2 * t19023 * t76757 + 0.5e1 / 0.3e1 * t75090 + 0.5e1 / 0.3e1 * t75092 + 0.5e1 / 0.3e1 * t75096;
26582   t78253 = t1397 * t18367 * t4595;
26583   t78256 = t1397 * t60719;
26584   t78259 = t13930 * t75099;
26585   t78261 = t7591 * t15515;
26586   t78264 = t7591 * t19022;
26587   t78271 = 0.5e1 / 0.3e1 * t75100 + 0.5e1 / 0.72e2 * t78253 * t18825 + 0.5e1 / 0.72e2 * t78256 * t18830 + t75103 + 0.5e1 / 0.3e1 * t78259 + 0.5e1 / 0.72e2 * t78261 * t18830 + 0.5e1 / 0.72e2 * t78264 * t18836 + 0.5e1 / 0.3e1 * t75106 + 0.5e1 / 0.3e1 * t75110 + 0.5e1 / 0.3e1 * t75112 + 0.5e1 / 0.3e1 * t75114;
26588   t78274 = t5041 * t4595;
26589   t78275 = t1397 * t78274;
26590   t78286 = t55815 * t18390;
26591   t78289 = t1397 * t19991 * t1275;
26592   t78290 = t78289 * t18390;
26593   t78295 = t1397 * t75397 * t1275;
26594   t78300 = 0.5e1 / 0.3e1 * t75120 + 0.5e1 / 0.72e2 * t78275 * t18836 - 0.5e1 / 0.24e2 * t19023 * t75186 + 0.5e1 / 0.72e2 * t19027 * t75190 + 0.5e1 / 0.72e2 * t19030 * t75194 + 0.5e1 / 0.72e2 * t19033 * t75087 + 0.5e1 / 0.3e1 * t78286 + 0.5e1 / 0.3e1 * t78290 + 0.5e1 / 0.72e2 * t71331 * t20158 + 0.5e1 / 0.72e2 * t78295 * t20158 + 0.5e1 / 0.72e2 * t71345 * t20158;
26595   t78305 = t14614 * t19008;
26596   t78307 = t14645 * t19011;
26597   t78309 = t13263 * t20600;
26598   t78311 = t14624 * t20600;
26599   t78313 = t13281 * t20600;
26600   t78316 = t3945 * t15587 * t5048;
26601   t78319 = t3945 * t4668 * t18400;
26602   t78322 = t3945 * t4668 * t18404;
26603   t78324 = t13263 * t20603;
26604   t78326 = 0.5e1 / 0.72e2 * t19027 * t75141 + 0.5e1 / 0.72e2 * t19027 * t76814 + t5056 - t78305 / 0.3e1 - t78307 / 0.3e1 - t78309 / 0.3e1 - t78311 / 0.3e1 - t78313 / 0.3e1 - t78316 / 0.3e1 - t78319 / 0.3e1 - t78322 / 0.3e1 - t78324 / 0.3e1;
26605   t78329 = t14624 * t20603;
26606   t78331 = t13281 * t20603;
26607   t78334 = t3945 * t4247 * t20000;
26608   t78337 = t3945 * t1309 * t75362;
26609   t78340 = t3945 * t1309 * t75366;
26610   t78349 = -t78329 / 0.3e1 - t78331 / 0.3e1 - t78334 / 0.3e1 - t78337 / 0.3e1 - t78340 / 0.3e1 + 0.5e1 / 0.144e3 * t19962 * t18993 - t75158 / 0.3e1 - t75160 / 0.3e1 - t75162 / 0.3e1 - t75164 / 0.3e1 - t75168 / 0.3e1;
26611   t78358 = t50061 * t75320;
26612   t78362 = t14614 * t19011;
26613   t78364 = -t75170 / 0.3e1 - t75173 / 0.3e1 + 0.35e2 / 0.24e2 * t71257 * t77080 - 0.5e1 / 0.12e2 * t71312 * t76841 - 0.5e1 / 0.12e2 * t15516 * t76919 - 0.10e2 * t78358 - t18420 + t20017 + t20023 + 0.5e1 / 0.144e3 * t75325 * t5201 - t78362 / 0.3e1;
26614   t78366 = t75172 * t5204;
26615   t78367 = t75235 * t5204;
26616   t78368 = t75239 * t5204;
26617   t78369 = t19992 * t19005;
26618   t78370 = t19992 * t19008;
26619   t78371 = t13263 * t20606;
26620   t78372 = t14624 * t20606;
26621   t78373 = t13281 * t20606;
26622   t78375 = t3945 * t4247 * t20004;
26623   t78377 = t3945 * t1309 * t75213;
26624   t78379 = t3945 * t1309 * t75217;
26625   t78380 = -t78366 - t78367 - t78368 - t78369 - t78370 - t78371 - t78372 - t78373 - t78375 - t78377 - t78379;
26626   t78382 = t19992 * t19011;
26627   t78389 = t34313 * t19022;
26628   t78392 = t7591 * t19026;
26629   t78401 = t50066 * t19988;
26630   t78403 = t55808 * t19988;
26631   t78405 = -t78382 / 0.3e1 + t75178 + 0.5e1 / 0.3e1 * t75182 + 0.5e1 / 0.72e2 * t71337 * t20166 + 0.5e1 / 0.72e2 * t71356 * t20166 - 0.5e1 / 0.24e2 * t78389 * t18776 + 0.5e1 / 0.72e2 * t78392 * t18825 + 0.5e1 / 0.72e2 * t19033 * t76725 + 0.5e1 / 0.72e2 * t19033 * t75309 + 0.5e1 / 0.72e2 * t19033 * t76698 + 0.5e1 / 0.3e1 * t78401 + 0.5e1 / 0.3e1 * t78403;
26632   t78409 = -t75203 - t75205 - t75207 - t75211 - t75215 - t75219 - t75236 - t75240 - t75242 - t75244 - t75246;
26633   t78411 = -t75248 - t75250 - t75252 - t75257 - t75259 - t75261 - t75263 - t75265 - t75267 - t75270 - t75273;
26634   t78417 = t13930 * t75119;
26635   t78421 = t55822 * t18390;
26636   t78423 = t55789 * t18390;
26637   t78425 = t50070 * t19988;
26638   t78427 = t50074 * t19988;
26639   t78429 = t13930 * t75095;
26640   t78432 = -t75276 / 0.3e1 + 0.5e1 / 0.3e1 * t75290 + 0.5e1 / 0.3e1 * t75292 + 0.5e1 / 0.3e1 * t78417 + 0.5e1 / 0.72e2 * t19030 * t75132 + 0.5e1 / 0.3e1 * t78421 + 0.5e1 / 0.3e1 * t78423 + 0.5e1 / 0.3e1 * t78425 + 0.5e1 / 0.3e1 * t78427 + 0.5e1 / 0.3e1 * t78429 - 0.10e2 * t75321;
26641   t78433 = t52467 * t5204;
26642   t78435 = t57850 * t5204;
26643   t78437 = t52471 * t5204;
26644   t78439 = t14645 * t19005;
26645   t78441 = t14645 * t19008;
26646   t78444 = t6453 * t78274;
26647   t78451 = -t78433 / 0.3e1 - t78435 / 0.3e1 - t78437 / 0.3e1 - t78439 / 0.3e1 - t78441 / 0.3e1 + 0.5e1 / 0.3e1 * t75323 - 0.5e1 / 0.24e2 * t78444 * t18776 - t20020 + 0.5e1 / 0.72e2 * t19030 * t76719 + t18417 + t18423 + 0.5e1 / 0.72e2 * t71334 * t20162;
26648   t78454 = t1397 * t55769;
26649   t78459 = t13930 * t75181;
26650   t78473 = t13930 * t75105;
26651   t78475 = 0.5e1 / 0.72e2 * t78454 * t20162 + 0.5e1 / 0.72e2 * t71353 * t20162 + 0.5e1 / 0.3e1 * t78459 - 0.5e1 / 0.12e2 * t19023 * t77077 - 0.5e1 / 0.12e2 * t71312 * t76912 + 0.5e1 / 0.36e2 * t13930 * t76916 + 0.5e1 / 0.36e2 * t19027 * t77101 - 0.5e1 / 0.12e2 * t15516 * t77105 + 0.5e1 / 0.36e2 * t13930 * t77109 + 0.5e1 / 0.3e1 * t78473 - t75329;
26652   t78486 = t15487 * t114;
26653   t78490 = t75348 + t75350 + t75352 - t75353 / 0.3e1 - t75355 / 0.3e1 - t75357 / 0.3e1 - t75360 / 0.3e1 - t75364 / 0.3e1 - t75368 / 0.3e1 + 0.5e1 / 0.144e3 * t19962 * t18996 + 0.5e1 / 0.144e3 * t18359 * t20588 + 0.5e1 / 0.144e3 * t5042 * t78486 * t5138;
26654   t78503 = t51944 * t5204;
26655   t78505 = t58068 * t5204;
26656   t78507 = t51947 * t5204;
26657   t78509 = t14614 * t19005;
26658   t78511 = 0.5e1 / 0.144e3 * t5042 * t20587 * t18378 + 0.5e1 / 0.144e3 * t18359 * t20591 + 0.5e1 / 0.144e3 * t5042 * t18992 * t19977 + 0.5e1 / 0.144e3 * t5042 * t5200 * t75342 - t78503 / 0.3e1 - t78505 / 0.3e1 - t78507 / 0.3e1 - t78509 / 0.3e1 - t75372 + t75374 + t75377;
26659   t78520 = -t75379 + t75381 - t75384 + 0.5e1 / 0.36e2 * t19030 * t76845 - 0.5e1 / 0.12e2 * t19023 * t76850 + 0.5e1 / 0.36e2 * t19027 * t76854 + 0.5e1 / 0.36e2 * t19030 * t76858 + t75410 + t75413 - t75415 - t75418 - t75421;
26660   t78531 = t75021 + t75023 - 0.5e1 / 0.72e2 * t5179 * t75696 + t75027 - 0.5e1 / 0.3e1 * t78235 - 0.5e1 / 0.3e1 * t4156 * t73769 + (t78250 + t78271 + t78300 + t78326 + t78349 + t78364 + t78380 / 0.3e1 + t78405 + t78409 / 0.3e1 + t78411 / 0.3e1 + t78432 + t78451 + t78475 + t78490 + t78511 + t78520) * t227 - t75037 + t75041 / 0.3e1 + t75043 / 0.3e1 + t75045 / 0.3e1 + t75047 / 0.3e1 + t75049 / 0.3e1 + t75063;
26661   t78535 = t2442 * t19046;
26662   t78538 = t15601 * t167 * t168;
26663   t78539 = t78538 * t1192;
26664   t78541 = t9859 * t5192;
26665   t78544 = t55715 * t74798;
26666   t78546 = t75066 - 0.2e1 * t75067 - 0.2e1 * t75069 - 0.2e1 * t75071 - 0.2e1 * t78535 + t78539 - 0.2e1 * t75428 - t75431 - 0.2e1 * t78541 - t75433 - t75435 - t75437 - 0.5e1 / 0.3e1 * t75438 + 0.10e2 * t78544;
26667   t78551 = t78546 + t78531 + t78231 + t78218 + t78194 + t78172 + t78160 + t78150 + t78138 + t78115 + t78091 + t78075 + t78056 + t78035 + t78000 + t77971 + t77944 + t77913 + t77887 + t77857 + t77818 + t77795 + t77768 + t77741 + t77711 + t77678 + t77656 + t77623 + t77594 + t77569 + t77545 + t77521;
26668   t78560 = t370 * t78551 * params->d + 0.3e1 * t20632 * t875 + 0.3e1 * t75505 + 0.6e1 * t75507 + t75510 + t75512 + 0.6e1 * t75513 + 0.3e1 * t75516 + 0.6e1 * t75520 + 0.6e1 * t75522 + 0.3e1 * t77492;
26669   t78564 = t75526 + 0.6e1 * t75527 + 0.6e1 * t75529 + 0.3e1 * t75531 + t75536 + t75538 + t18508 + t75542 + t75545 + t75548 + t18505 + t20115;
26670   t78572 = t4678 * t1224;
26671   t78575 = t1122 * t5223;
26672   t78576 = t5213 * t1130;
26673   t78577 = t5214 * t3144 + t872 * (t77482 + t77488 + t78560 + t78564) + t1217 * t15889 + t4679 * t4006 + t15868 * t1224 + t71471 + t20624 * t878 + t70790 + t78572 + t1123 * t19100 + t3989 * t4687 + t78575 + t71476 + t70794 + t70796 + t78576;
26674   t78578 = t20623 * t372;
26675   t78580 = t1315 * t4457;
26676   t78583 = t4440 * t1320;
26677   t78586 = t1216 * t4687;
26678   t78589 = t368 * t20645;
26679   t78592 = t372 * t7 * t78551 + t1130 * t19076 + t1316 * t14917 + t1320 * t14871 + t20645 * t870 + t3127 * t5223 + t4258 * t4457 + t4267 * t4441 + t70788 + t70792 + t71478 + t78578 + t78580 + t78583 + t78586 + t78589;
26680   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26681     v4rho2sigma2[8] = t78577 + t78592;
26682 
26683   t78593 = t20837 * t372;
26684   t78604 = t7591 * t19118;
26685   t78630 = t34313 * t19113;
26686   t78633 = -0.5e1 / 0.18e2 * t71540 * t19762 - 0.2e1 / 0.3e1 * t4465 * t18754 - 0.2e1 / 0.3e1 * t4465 * t18758 - 0.4e1 / 0.3e1 * t13424 * t20140 - 0.4e1 / 0.3e1 * t4026 * t75595 - 0.5e1 / 0.18e2 * t78604 * t18091 - 0.4e1 / 0.3e1 * t14978 * t18719 - 0.5e1 / 0.18e2 * t1397 * t404 * t5226 * t114 * t19755 - 0.5e1 / 0.18e2 * t19119 * t73885 + 0.5e1 / 0.6e1 * t19114 * t73701 - 0.2e1 * t1476 * t20825 + 0.2e1 * t4431 * t19219 - 0.3e1 * t4431 * t19154 - 0.4e1 / 0.3e1 * t4026 * t75560 - 0.4e1 / 0.3e1 * t13412 * t20140 - 0.5e1 / 0.36e2 * t5228 * t73761 + 0.5e1 / 0.6e1 * t78630 * t18083;
26687   t78653 = t53000 * t5094;
26688   t78658 = -0.4e1 / 0.3e1 * t14978 * t18724 - 0.5e1 / 0.18e2 * t19119 * t74373 + 0.5e1 / 0.3e1 * t19114 * t74986 - 0.5e1 / 0.9e1 * t19119 * t74990 + 0.32e2 / 0.9e1 * t71536 - 0.4e1 * t2448 * t20712 - 0.4e1 * t449 * t15319 * t1231 + 0.20e2 / 0.3e1 * t14967 * t18539 + 0.32e2 / 0.9e1 * t71549 + 0.32e2 / 0.9e1 * t71551 + 0.32e2 / 0.9e1 * t71553 + 0.32e2 / 0.9e1 * t78653 - t2440 * t5267 - t71560 - t19748 - t19750 - t19753 - 0.4e1 / 0.3e1 * t14978 * t18535;
26689   t78670 = t71779 * t19741;
26690   t78692 = -0.4e1 / 0.3e1 * t54560 * t5094 - 0.4e1 / 0.3e1 * t54563 * t5094 + 0.32e2 / 0.9e1 * t71565 + 0.32e2 / 0.9e1 * t71567 - 0.4e1 / 0.3e1 * t53807 * t5094 - 0.5e1 / 0.36e2 * t19318 * t20062 - 0.40e2 / 0.9e1 * t78670 - 0.5e1 / 0.18e2 * t19122 * t74216 - 0.4e1 / 0.3e1 * t4026 * t75766 - 0.4e1 / 0.3e1 * t4026 * t75607 - 0.4e1 / 0.3e1 * t4026 * t75611 - 0.4e1 / 0.3e1 * t4026 * t75585 - 0.35e2 / 0.6e1 * t71776 * t74833 + 0.5e1 / 0.3e1 * t72008 * t74837 + 0.5e1 / 0.3e1 * t19114 * t74845 + 0.5e1 / 0.3e1 * t19114 * t74848 - 0.4e1 / 0.3e1 * t4026 * t75760;
26691   t78698 = t7591 * t19143 * t4936;
26692   t78700 = t7591 * t19113;
26693   t78703 = t19271 * t2803;
26694   t78709 = t19276 * t9882;
26695   t78715 = t20685 * t748;
26696   t78733 = t6259 * t5243;
26697   t78748 = 0.4e1 * t5245 * t74129 - 0.4e1 * t18596 * t71621 * t14414 + t73927 / 0.96e2 + t73932 / 0.384e3 + t73937 / 0.384e3 - t73942 / 0.384e3 - 0.8e1 * t18596 * t15258 * t15278 + 0.4e1 * t18581 * t15279 + 0.12e2 * t18596 * t78733 * t14402 - t73952 / 0.48e2 - 0.4e1 * t19241 * t74064 - t69899 + t73981 / 0.96e2 + t73984 / 0.192e3 + t73986 / 0.192e3 + t73988 / 0.192e3 - t73992 / 0.96e2 - t73996 / 0.48e2 + t73999 / 0.192e3 - t74002 / 0.48e2;
26698   t78772 = 0.7e1 / 0.288e3 * t74024;
26699   t78773 = 0.7e1 / 0.576e3 * t74026;
26700   t78782 = 0.7e1 / 0.576e3 * t74040;
26701   t78786 = -t78772 + t78773 - t74031 / 0.384e3 + 0.8e1 * t18581 * t15274 - 0.12e2 * t5116 * t18150 * t4502 * t4058 + t74038 / 0.192e3 + t78782 + t74044 / 0.96e2 + t74048 / 0.192e3 - t74052 / 0.384e3 + t69912;
26702   t78791 = 0.7e1 / 0.576e3 * t74056;
26703   t78796 = 0.7e1 / 0.144e3 * t74068;
26704   t78797 = 0.7e1 / 0.144e3 * t74072;
26705   t78824 = t69913 - t71628 + 0.2e1 * t19241 * t74167 + t78791 - 0.12e2 * t5116 * t18150 * t20677 * t743 - t78796 + t78797 - 0.4e1 * t19241 * t73944 + 0.4e1 * t18581 * t15264 - 0.4e1 * t20319 * t19252 + 0.24e2 * t5116 * t68925 * t20668 * t743 + 0.4e1 * t5116 * t5117 * t1237 * t15222 + t71647 + 0.2e1 * t19241 * t74061 - t74076 / 0.96e2 - t74079 / 0.64e2 + 0.4e1 * t18588 * t20678 + 0.4e1 * t5116 * t5117 * t4058 * t4497 - t74083 / 0.48e2 - 0.5e1 / 0.96e2 * t74087;
26706   t78825 = 0.7e1 / 0.288e3 * t74093;
26707   t78854 = t74151 / 0.192e3 + 0.8e1 * t18581 * t15247 - t74163 / 0.384e3 - 0.4e1 * t18578 * t4511 - 0.4e1 * t5112 * t15282 - 0.6e1 * t20319 * t19247 + 0.4e1 * t20319 * t19256 - 0.6e1 * t18588 * t20669 + t74165 / 0.96e2 + 0.2e1 * t74139 * t5249 + t74178 / 0.192e3;
26708   t78859 = t175 * (t78748 + 0.12e2 * t68725 * t71621 * t14381 + 0.12e2 * t68725 * t71621 * t14395 - 0.8e1 * t18596 * t15258 * t15263 - 0.4e1 * t18588 * t20674 - 0.4e1 * t5116 * t18155 * t5243 * t2784 * t194 + t74006 / 0.96e2 + t74011 / 0.96e2 - 0.4e1 * t19241 * t74095 + t74013 / 0.96e2 + 0.5e1 / 0.96e2 * t74021 + t78786 + t78824 - t78825 + t74102 / 0.192e3 - t74112 / 0.64e2 - 0.6e1 * t5116 * t18150 * t5243 * t2841 - t69988 + t69989 + t69992 - 0.12e2 * t19241 * t74159 - t74147 / 0.96e2 - t70008 + t78854) * t748;
26709   t78861 = t20685 * t2093;
26710   t78864 = t19276 * t14437;
26711   t78869 = t71708 * t14443;
26712   t78874 = -t1033 * t2849 * t71704 + 0.3e1 * t1768 * t19271 * t2728 + 0.3e1 * t1768 * t677 * t78715 + 0.3e1 * t1768 * t71579 * t999 - t19276 * t2844 * t2849 - t2849 * t746 * t78861 + t169 * t78859 - 0.3e1 * t1768 * t78709 - 0.3e1 * t1768 * t78864 + 0.2e1 * t2849 * t78869 + 0.6e1 * t2857 * t78703;
26713   t78875 = t19279 * t2803;
26714   t78879 = t4079 * t999 * t4075;
26715   t78882 = t19286 * t9882;
26716   t78889 = t4079 * t4513 * t677;
26717   t78896 = t13542 * t4513 * t746;
26718   t78902 = t19286 * t14437;
26719   t78906 = t13542 * t1033 * t4075;
26720   t78909 = t71739 * t14443;
26721   t78915 = -0.2e1 * t13538 * t2849 * t4513 - 0.2e1 * t15285 * t2849 * t4079 - 0.3e1 * t1768 * t19279 * t2728 + 0.2e1 * t19286 * t2844 * t2849 - 0.6e1 * t1768 * t78879 + 0.6e1 * t1768 * t78882 - 0.6e1 * t1768 * t78889 + 0.6e1 * t1768 * t78902 + 0.4e1 * t2849 * t78896 + 0.4e1 * t2849 * t78906 - 0.6e1 * t2849 * t78909 - 0.6e1 * t2857 * t78875;
26722   t78916 = t78874 + t78915;
26723   t78917 = my_piecewise3(t296, 0, t78916);
26724   t78926 = my_piecewise3(t359, 0, t78916);
26725   t78947 = t71771 * t19765;
26726   t78960 = -0.5e1 / 0.18e2 * t19119 * t73705 - 0.4e1 / 0.3e1 * t14978 * t18715 + 0.20e2 / 0.27e2 * t78698 - 0.5e1 / 0.18e2 * t78700 * t18057 - t98 * (t78917 * t34 / 0.2e1 + t20758 * t413 / 0.2e1 + t19291 * t886 / 0.2e1 + t5262 * t4 * t377 + t78926 * t46 / 0.2e1 + t20761 * t436 / 0.2e1 + t19294 * t905 / 0.2e1 - t5264 * t4 * t377) - 0.5e1 / 0.18e2 * t19122 * t74878 - 0.5e1 / 0.18e2 * t19122 * t74881 + 0.10e2 / 0.3e1 * t4013 * t76556 - 0.4e1 * t8342 * t5239 + 0.10e2 / 0.3e1 * t13402 * t20123 + 0.40e2 / 0.27e2 * t78947 + 0.40e2 / 0.27e2 * t71772 + 0.40e2 / 0.27e2 * t71774 - 0.4e1 / 0.3e1 * t4026 * t76543 - 0.4e1 / 0.3e1 * t4026 * t76547 - 0.40e2 / 0.9e1 * t71780 + 0.5e1 / 0.3e1 * t72008 * t73725 - 0.5e1 / 0.9e1 * t19119 * t73801;
26727   t78969 = t13453 * t20140;
26728   t78989 = t15355 * t5104;
26729   t78991 = t4021 * t20298;
26730   t78993 = t4021 * t20302;
26731   t78997 = -0.5e1 / 0.18e2 * t78700 * t18060 + 0.20e2 / 0.3e1 * t4013 * t75734 + 0.5e1 / 0.6e1 * t19114 * t74211 + 0.32e2 / 0.9e1 * t78969 - 0.4e1 / 0.3e1 * t13424 * t20353 - 0.4e1 / 0.3e1 * t4026 * t76033 + 0.10e2 / 0.3e1 * t4013 * t76038 - 0.4e1 / 0.3e1 * t4026 * t76469 + 0.10e2 / 0.3e1 * t4013 * t76560 + 0.10e2 / 0.3e1 * t4013 * t76564 - 0.4e1 / 0.3e1 * t13412 * t20119 - 0.4e1 / 0.3e1 * t13424 * t20119 + 0.20e2 / 0.3e1 * t14975 * t18539 + 0.16e2 / 0.9e1 * t78989 + 0.16e2 / 0.9e1 * t78991 + 0.16e2 / 0.9e1 * t78993 - 0.2e1 * t20773 * t857;
26732   t79001 = t174 * t20685;
26733   t79011 = t13453 * t20119;
26734   t79037 = t15388 * t5104;
26735   t79039 = -0.2e1 * t1214 * t1244 * t54390 + 0.3e1 * t1214 * t79001 * t3980 - t4431 * t19301 - 0.2e1 * t2439 * t5235 * t363 - 0.5e1 / 0.9e1 * t19119 * t73805 + 0.32e2 / 0.9e1 * t79011 - 0.2e1 * t449 * t5267 * t2478 - 0.4e1 * t1476 * t20828 - 0.4e1 * t2448 * t20828 - 0.4e1 * t449 * t4090 * t4483 + 0.20e2 / 0.3e1 * t4013 * t77314 - 0.20e2 * t13415 * t75896 + 0.20e2 / 0.3e1 * t4013 * t75729 + 0.32e2 / 0.9e1 * t71788 + 0.3e1 * t1214 * t19147 * t14489 + 0.10e2 / 0.3e1 * t14967 * t18729 - 0.4e1 / 0.3e1 * t13412 * t20353 + 0.16e2 / 0.9e1 * t79037;
26736   t79045 = t13419 * t20226;
26737   t79071 = 0.20e2 / 0.3e1 * t4013 * t75821 - 0.5e1 / 0.9e1 * t19122 * t74998 - 0.160e3 / 0.9e1 * t79045 + 0.2e1 * t5155 * t15287 + 0.5e1 / 0.6e1 * t71856 * t19741 + 0.12e2 * t75873 * t15195 - 0.2e1 * t4431 * t19222 - 0.3e1 * t3977 * t20770 - t447 * t20765 - 0.4e1 * t14123 * t5239 - 0.4e1 * t4302 * t19309 - 0.2e1 * t2442 * t19315 - t1214 * t20686 * t3985 - 0.80e2 / 0.9e1 * t71808 - t71811 - 0.2e1 / 0.3e1 * t4459 * t18758 - 0.5e1 / 0.18e2 * t19122 * t73712;
26738   t79105 = -0.5e1 / 0.18e2 * t19122 * t73715 - 0.4e1 / 0.3e1 * t4026 * t75630 + t19208 * t1037 + 0.20e2 / 0.3e1 * t4013 * t76477 - 0.4e1 / 0.3e1 * t14972 * t18724 - 0.5e1 / 0.18e2 * t19122 * t75055 - 0.4e1 / 0.3e1 * t4026 * t76492 - 0.4e1 / 0.3e1 * t13412 * t20136 - 0.4e1 / 0.3e1 * t13424 * t20136 - 0.4e1 / 0.3e1 * t4026 * t76413 - 0.2e1 / 0.3e1 * t15011 * t5104 - 0.2e1 / 0.3e1 * t15015 * t5104 - 0.2e1 * t19127 * t1110 - t74294 - 0.4e1 / 0.3e1 * t13412 * t20132 - 0.4e1 / 0.3e1 * t13424 * t20132 - 0.4e1 / 0.3e1 * t4026 * t76671 - 0.4e1 / 0.3e1 * t4026 * t75808;
26739   t79111 = t71771 * t19762;
26740   t79119 = t71863 * t19755;
26741   t79121 = t13453 * t20132;
26742   t79123 = t13419 * t20123;
26743   t79142 = -0.4e1 / 0.3e1 * t4026 * t75811 + 0.40e2 / 0.27e2 * t79111 - 0.2e1 * t5236 * t3091 - 0.3e1 * t13345 * t78864 - 0.5e1 / 0.9e1 * t19122 * t73747 + 0.40e2 / 0.27e2 * t79119 + 0.32e2 / 0.9e1 * t79121 - 0.80e2 / 0.9e1 * t79123 - 0.40e2 * t52963 * t77162 - 0.5e1 / 0.18e2 * t19122 * t75038 + 0.40e2 / 0.27e2 * t71864 - 0.4e1 / 0.3e1 * t4026 * t76418 - 0.4e1 * t5499 * t15334 - 0.2e1 / 0.3e1 * t4009 * t20302 - 0.2e1 / 0.3e1 * t4017 * t20302 - 0.2e1 / 0.3e1 * t1227 * t76610 - 0.2e1 / 0.3e1 * t1227 * t76615;
26744   t79175 = 0.20e2 / 0.3e1 * t4013 * t76571 + 0.20e2 / 0.3e1 * t4013 * t75724 - 0.2e1 * t449 * t20765 * t464 - 0.2e1 / 0.3e1 * t1227 * t75978 - 0.2e1 / 0.3e1 * t1227 * t75982 - 0.2e1 / 0.3e1 * t15025 * t5104 - 0.2e1 / 0.3e1 * t15031 * t5104 - 0.2e1 / 0.3e1 * t4459 * t18754 - 0.5e1 / 0.36e2 * t34310 * t5227 * t4936 - 0.5e1 / 0.36e2 * t20651 * t18044 - 0.2e1 / 0.3e1 * t4009 * t20298 - t4957 - 0.2e1 * t5155 * t15382 - 0.4e1 / 0.3e1 * t14972 * t18535 + 0.5e1 / 0.3e1 * t19114 * t73734 - 0.5e1 / 0.9e1 * t19119 * t73739 - t18095 - t18097;
26745   t79185 = t13453 * t20136;
26746   t79202 = t53071 * t5094;
26747   t79206 = -t18100 + 0.3e1 * t3977 * t20738 - 0.4e1 * t22448 * t4042 - 0.4e1 * t5499 * t15045 - t74347 + 0.6e1 * t13345 * t78902 + 0.32e2 / 0.9e1 * t79185 - 0.4e1 / 0.3e1 * t4026 * t76462 - 0.4e1 / 0.3e1 * t53804 * t5094 - t916 * t19298 - 0.6e1 * t13345 * t78879 + 0.6e1 * t14821 * t78703 - t1214 * t19265 * t2850 + 0.6e1 * t5155 * t15378 - 0.2e1 * t18738 * t4561 + 0.32e2 / 0.9e1 * t79202 - 0.4e1 / 0.3e1 * t4026 * t75603;
26748   t79207 = t13453 * t20353;
26749   t79219 = t49234 * t20795;
26750   t79221 = t73 * t4483;
26751   t79223 = t66 * t79221 * t443;
26752   t79228 = t4412 * t4041;
26753   t79238 = t3958 * t4483;
26754   t79243 = t18362 * t19171 * t19965;
26755   t79246 = t18368 * t19171 * t19969;
26756   t79249 = t3939 * t19171 * t19973;
26757   t79252 = t3945 * t4102 * t20802;
26758   t79254 = -t75075 - 0.20e2 / 0.3e1 * t76807 * t19182 + 0.160e3 / 0.9e1 * t79219 - 0.20e2 / 0.3e1 * t13663 * t79223 - 0.5e1 / 0.3e1 * t72085 * t75124 + 0.4e1 / 0.3e1 * t3945 * t1254 * t79228 + 0.4e1 / 0.3e1 * t13263 * t20807 + 0.4e1 / 0.3e1 * t14624 * t20807 + 0.4e1 / 0.3e1 * t13281 * t20807 + 0.4e1 / 0.3e1 * t3945 * t1254 * t79238 + 0.40e2 / 0.9e1 * t79243 - 0.40e2 / 0.27e2 * t79246 - 0.40e2 / 0.27e2 * t79249 - 0.32e2 / 0.9e1 * t79252;
26759   t79255 = t1204 * t15176;
26760   t79260 = t3945 * t4102 * t20806;
26761   t79267 = t66 * t72063 * t912;
26762   t79291 = 0.4e1 / 0.3e1 * t3945 * t1254 * t79255 - 0.32e2 / 0.9e1 * t79260 + 0.5e1 / 0.9e1 * t72168 * t75231 + 0.5e1 / 0.9e1 * t72168 * t75305 - 0.20e2 / 0.3e1 * t13663 * t79267 - 0.5e1 / 0.3e1 * t72081 * t75287 + 0.5e1 / 0.9e1 * t72093 * t75137 + 0.5e1 / 0.9e1 * t72078 * t75145 + 0.5e1 / 0.9e1 * t72078 * t75301 - 0.20e2 / 0.3e1 * t53259 * t20795 + 0.5e1 / 0.9e1 * t72093 * t75128 + 0.35e2 / 0.6e1 * t26389 * t72088 * t75200 - 0.5e1 / 0.3e1 * t72081 * t75313 - 0.20e2 / 0.3e1 * t49379 * t20795 - 0.20e2 / 0.3e1 * t53310 * t19182;
26763   t79295 = t74 * t15160;
26764   t79318 = -0.5e1 / 0.3e1 * t72089 * t75283 + 0.40e2 * t49228 * t79295 + 0.40e2 / 0.9e1 * t72100 - 0.40e2 / 0.27e2 * t72103 - 0.32e2 / 0.9e1 * t72105 - 0.40e2 / 0.27e2 * t72123 + t5056 + 0.5e1 / 0.18e2 * t18359 * t20789 + 0.4e1 / 0.3e1 * t19992 * t19193 + 0.4e1 / 0.3e1 * t19992 * t19197 + 0.4e1 / 0.3e1 * t52467 * t5274 + 0.4e1 / 0.3e1 * t57850 * t5274 + 0.4e1 / 0.3e1 * t52471 * t5274 + 0.4e1 / 0.3e1 * t14645 * t19193 + 0.4e1 / 0.3e1 * t14645 * t19197;
26765   t79325 = t14582 * t1231;
26766   t79333 = t908 * t1231;
26767   t79335 = t66 * t79333 * t443;
26768   t79338 = t19962 * t19172;
26769   t79346 = 0.4e1 / 0.3e1 * t13263 * t20803 + 0.4e1 / 0.3e1 * t14624 * t20803 + 0.4e1 / 0.3e1 * t13281 * t20803 + 0.4e1 / 0.3e1 * t3945 * t1254 * t79325 - 0.32e2 / 0.9e1 * t72128 - 0.40e2 / 0.27e2 * t72146 + 0.2e1 * t2377 * t5235 - t18420 + t20017 + t20023 - 0.20e2 / 0.3e1 * t13663 * t79335 - 0.20e2 / 0.27e2 * t79338 + 0.5e1 / 0.36e2 * t75325 * t5270 - 0.5e1 / 0.3e1 * t72089 * t75296 - 0.20e2 / 0.3e1 * t53327 * t19182;
26770   t79376 = t75178 - 0.20e2 / 0.3e1 * t49383 * t20795 - 0.8e1 * t1392 * t20812 + 0.4e1 / 0.3e1 * t14614 * t19197 + 0.4e1 / 0.3e1 * t75172 * t5274 + 0.4e1 / 0.3e1 * t75235 * t5274 + 0.4e1 / 0.3e1 * t75239 * t5274 - 0.5e1 / 0.6e1 * t75221 * t19162 + 0.5e1 / 0.18e2 * t75224 * t19165 + 0.5e1 / 0.18e2 * t14662 * t19168 + 0.5e1 / 0.18e2 * t19962 * t19175 - 0.5e1 / 0.6e1 * t68668 * t20780 - 0.5e1 / 0.6e1 * t18362 * t5269 * t75391 + 0.5e1 / 0.18e2 * t68568 * t20783;
26771   t79389 = t19992 * t19189;
26772   t79412 = 0.5e1 / 0.18e2 * t75398 * t20783 + 0.5e1 / 0.18e2 * t18368 * t5269 * t75401 + 0.5e1 / 0.18e2 * t13260 * t20786 + 0.5e1 / 0.18e2 * t13266 * t20786 + 0.5e1 / 0.18e2 * t3939 * t5269 * t75330 - 0.32e2 / 0.9e1 * t79389 - 0.16e2 * t400 * t20815 * t443 - t20020 - 0.8e1 * t400 * t5235 * t2436 + 0.4e1 * t397 * t20815 + 0.4e1 * t81 * t4041 * t4483 + 0.4e1 * t81 * t1231 * t15176 - 0.8e1 * t2378 * t19202 + 0.4e1 * t881 * t19205 + 0.40e2 * t1397 * t20812 * t443;
26773   t79420 = t14614 * t19189;
26774   t79423 = t5042 * t19171 * t19981;
26775   t79425 = t14645 * t19189;
26776   t79439 = -0.16e2 * t400 * t15159 * t4041 + t18417 + t18423 - 0.32e2 / 0.9e1 * t72183 + t72187 - 0.32e2 / 0.9e1 * t72210 - 0.32e2 / 0.9e1 * t72213 - 0.32e2 / 0.9e1 * t79420 - 0.40e2 / 0.27e2 * t79423 - 0.32e2 / 0.9e1 * t79425 + 0.5e1 / 0.18e2 * t5042 * t5269 * t75150 + 0.5e1 / 0.18e2 * t5042 * t5269 * t75154 + 0.4e1 / 0.3e1 * t51944 * t5274 + 0.4e1 / 0.3e1 * t58068 * t5274 + 0.4e1 / 0.3e1 * t51947 * t5274;
26777   t79446 = t66 * t72068 * t912;
26778   t79450 = t66 * t19180 * t2436;
26779   t79454 = 0.4e1 / 0.3e1 * t14614 * t19193 + 0.160e3 / 0.9e1 * t72219 - 0.5e1 / 0.3e1 * t72085 * t75317 - 0.20e2 / 0.3e1 * t13663 * t79446 - 0.20e2 / 0.3e1 * t13663 * t79450 + t72228 - 0.20e2 / 0.27e2 * t72234 - t75329 + t75350 + t75352 + t75410 + t75413 - t75415 - t75418 - t75421;
26780   t79478 = 0.32e2 / 0.9e1 * t79207 - 0.4e1 / 0.3e1 * t14972 * t18715 - 0.4e1 / 0.3e1 * t14972 * t18719 + t4431 * t19266 - t1214 * t5254 * t7972 + t1214 * t78859 + (t79254 + t79291 + t79318 + t79346 + t79376 + t79412 + t79439 + t79454) * t227 - 0.4e1 * t449 * t4527 * t4041 - 0.5e1 / 0.18e2 * t71540 * t19765 + 0.10e2 / 0.3e1 * t13409 * t20123 + t3977 * t20687 + t14863 * t5255 + 0.16e2 / 0.9e1 * t71943 + 0.16e2 / 0.9e1 * t71945 + 0.2e1 * t18738 * t4515 + 0.2e1 * t76062 * t1245 + 0.5e1 / 0.6e1 * t19114 * t73698 - 0.5e1 / 0.18e2 * t71546 * t19755;
26781   t79483 = t19144 * t20062;
26782   t79502 = -0.6e1 * t14484 * t78909 - t74895 - t74897 - t74899 + 0.20e2 / 0.27e2 * t79483 + 0.20e2 / 0.3e1 * t4013 * t75838 + 0.20e2 / 0.3e1 * t4013 * t75841 + 0.20e2 / 0.3e1 * t4013 * t75845 - t74931 - t74933 - t74945 - t14863 * t5259 + 0.3e1 * t4431 * t19148 + 0.10e2 / 0.3e1 * t14975 * t18729 + 0.6e1 * t5155 * t15385 - 0.4e1 * t2442 * t19309 - 0.4e1 * t21649 * t4484;
26783   t79534 = -0.4e1 * t21652 * t4484 - 0.4e1 * t5499 * t15001 + 0.2e1 * t20294 * t4077 - 0.6e1 * t70029 * t14996 - 0.6e1 * t13345 * t78889 + t5279 * t2866 + 0.20e2 / 0.27e2 * t71996 + 0.20e2 / 0.27e2 * t71998 - t72005 - 0.6e1 * t14821 * t78875 - 0.4e1 / 0.3e1 * t14972 * t18734 + 0.10e2 / 0.3e1 * t4013 * t76019 + t20818 * t751 - 0.4e1 / 0.3e1 * t4026 * t76069 - 0.2e1 * t1214 * t4076 * t15289 - 0.2e1 * t20294 * t4129 + 0.2e1 * t3977 * t20820 - 0.2e1 / 0.3e1 * t4017 * t20298;
26784   t79573 = -t3977 * t20733 + 0.6e1 * t13345 * t78882 - 0.2e1 * t5155 * t15346 + 0.3e1 * t1214 * t72031 * t4433 - 0.3e1 * t13345 * t78709 - 0.4e1 * t1476 * t20712 - 0.2e1 * t2448 * t20825 - 0.2e1 * t449 * t19298 * t928 - 0.4e1 * t4302 * t19268 - 0.4e1 * t2442 * t19268 - 0.4e1 * t14120 * t5239 - 0.4e1 * t449 * t1252 * t15176 - 0.2e1 * t5155 * t15376 + 0.6e1 * t20294 * t4125 - 0.3e1 * t1214 * t19153 * t74908 - 0.2e1 * t3977 * t20735 + 0.20e2 / 0.3e1 * t13409 * t20226;
26785   t79606 = 0.20e2 / 0.3e1 * t13402 * t20226 + 0.4e1 * t14484 * t78896 - 0.4e1 * t9859 * t5239 + 0.2e1 * t14484 * t78869 + 0.4e1 * t75579 * t14992 - 0.6e1 * t70029 * t15022 + 0.6e1 * t5155 * t15348 + 0.6e1 * t18738 * t4557 - 0.4e1 / 0.3e1 * t4026 * t75599 - 0.160e3 / 0.9e1 * t72257 + 0.2e1 * t1214 * t5258 * t32250 + 0.16e2 / 0.9e1 * t72262 + 0.16e2 / 0.9e1 * t72264 - t75431 + 0.4e1 * t14484 * t78906 - 0.5e1 / 0.18e2 * t19122 * t75052 - 0.4e1 / 0.3e1 * t14978 * t18734 + 0.20e2 / 0.3e1 * t4013 * t76481;
26786   t79610 = t78633 + t78658 + t78692 + t78960 + t78997 + t79039 + t79071 + t79105 + t79142 + t79175 + t79206 + t79478 + t79502 + t79534 + t79573 + t79606;
26787   t79614 = t5285 * t1130;
26788   t79619 = t4563 * t1272;
26789   t79623 = t372 * t7 * t79610 + t1130 * t19327 + 0.2e1 * t1272 * t15401 + t20838 * t878 + t3144 * t5286 + t71518 + t71520 + 0.2e1 * t72278 + 0.2e1 * t72280 + t78593 + t79614 + 0.2e1 * t79619;
26790   t79626 = t1264 * t4580;
26791   t79632 = t1122 * t5297;
26792   t79635 = t368 * t20864;
26793   t79671 = 0.12e2 * t1258 * t15176 * t369 + 0.12e2 * t369 * t4041 * t4547 + 0.12e2 * t369 * t4114 * t4483 + 0.12e2 * t369 * t4117 * t4483 + t370 * t79610 * params->d + 0.6e1 * t1125 * t19350 + 0.12e2 * t1125 * t19353 + 0.12e2 * t1267 * t15430 + 0.12e2 * t1267 * t15433 + 0.12e2 * t1267 * t15436 + 0.12e2 * t1267 * t15441 + 0.6e1 * t1267 * t15444 + 0.3e1 * t20846 * t875 + 0.6e1 * t20858 * t873 + 0.12e2 * t20861 * t873 + t20112 + t5079;
26794   t79693 = 0.6e1 * t2478 * t369 * t5235 + 0.3e1 * t1127 * t19338 + 0.6e1 * t1269 * t15412 + 0.6e1 * t3132 * t5294 + 0.6e1 * t3138 * t5290 + 0.3e1 * t3141 * t5290 + 0.12e2 * t4137 * t4574 + 0.6e1 * t4137 * t4577 + 0.12e2 * t4143 * t4568 + 0.6e1 * t4146 * t4568 + t18505 + t18508 + t20115 + t75512 + t75526 + t75538 + t75542 + t75545;
26795   t79696 = 0.2e1 * t4564 * t4149 + 0.2e1 * t79626 + 0.2e1 * t4132 * t4580 + 0.2e1 * t1265 * t15447 + t72288 + t72290 + t79632 + t3127 * t5297 + t1123 * t19356 + t79635 + t870 * t20864 + t872 * (t79671 + t79693);
26796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26797     v4rho2sigma2[9] = t79623 + t79696;
26798 
26799   t79707 = 0.3e1 * t21005 * t875 + 0.6e1 * t4143 * t4683 + 0.3e1 * t4146 * t4683 + t5079 + t77350 + t77352 + t77358 + t77360 + t77363 + t77366 + t77369 + t77373;
26800   t79729 = t13876 * t20119 / 0.3e1 + t75556 + 0.5e1 / 0.36e2 * t18945 * t20885 + 0.5e1 / 0.36e2 * t5179 * t18369 * t20884 + 0.5e1 / 0.36e2 * t5179 * t18560 * t72377 * t928 + t15503 * t18719 / 0.3e1 - t75558 + t13870 * t20119 / 0.3e1 - t75566 - t75568 - t75570 + t75581 + t13811 * t20119 / 0.3e1 - t75617;
26801   t79732 = t20468 * t19464;
26802   t79740 = t18957 * t18543 * t72502 * t883;
26803   t79760 = -0.2e1 / 0.3e1 * t4026 * t78179 - 0.5e1 / 0.27e2 * t79732 + t4173 * t76492 / 0.3e1 + t13811 * t20136 / 0.3e1 + t75652 - 0.10e2 / 0.27e2 * t79740 + 0.5e1 / 0.36e2 * t5179 * t18555 * t19359 * t2432 + 0.5e1 / 0.36e2 * t18940 * t20885 + 0.3e1 * t5211 * t15385 + t4173 * t75760 / 0.3e1 + t4173 * t75766 / 0.3e1 + t4173 * t75607 / 0.3e1 + t4173 * t75611 / 0.3e1 + t13876 * t20136 / 0.3e1;
26804   t79796 = t13870 * t20136 / 0.3e1 + 0.5e1 / 0.72e2 * t18940 * t20959 + 0.5e1 / 0.72e2 * t18945 * t20959 + 0.5e1 / 0.72e2 * t5179 * t5044 * t52693 * t57 + t4173 * t76413 / 0.3e1 + t4173 * t76418 / 0.3e1 - 0.5e1 / 0.6e1 * t13879 * t20123 - 0.5e1 / 0.6e1 * t13882 * t20123 - 0.5e1 / 0.6e1 * t4156 * t76556 + t4173 * t75585 / 0.3e1 - 0.5e1 / 0.12e2 * t70817 * t20873 - 0.5e1 / 0.12e2 * t71181 * t20873 - 0.5e1 / 0.12e2 * t18989 * t18543 * t72377 * t912 - 0.5e1 / 0.12e2 * t18989 * t18543 * t19359 * t2436;
26805   t79821 = 0.5e1 / 0.36e2 * t70820 * t20877 + 0.5e1 / 0.36e2 * t78191 * t20877 + 0.5e1 / 0.36e2 * t71094 * t20877 - t75654 - t75656 - t75658 + t13811 * t20353 / 0.3e1 + t13876 * t20353 / 0.3e1 + t13870 * t20353 / 0.3e1 + t4173 * t76469 / 0.3e1 + t4173 * t76543 / 0.3e1 + t4173 * t76547 / 0.3e1 + 0.5e1 / 0.3e1 * t4013 * t77917 - 0.2e1 / 0.3e1 * t4026 * t77600 + t1277 * t76615 / 0.6e1;
26806   t79852 = t13811 * t20140 / 0.3e1 + t13876 * t20140 / 0.3e1 + t13870 * t20140 / 0.3e1 + t4173 * t75595 / 0.3e1 + t4173 * t75599 / 0.3e1 + t4173 * t75603 / 0.3e1 - 0.2e1 / 0.3e1 * t13412 * t20480 - 0.2e1 / 0.3e1 * t13424 * t20480 - 0.2e1 / 0.3e1 * t4026 * t77728 - 0.2e1 / 0.3e1 * t4026 * t77620 - 0.2e1 / 0.3e1 * t4026 * t77625 - 0.5e1 / 0.6e1 * t4156 * t76560 + t15610 * t18535 / 0.3e1 + t13811 * t20132 / 0.3e1;
26807   t79873 = t13453 * t20480;
26808   t79881 = t13876 * t20132 / 0.3e1 + t13870 * t20132 / 0.3e1 + t4173 * t76671 / 0.3e1 + t15503 * t18535 / 0.3e1 + t54885 * t5094 / 0.3e1 + t54889 * t5094 / 0.3e1 + t54893 * t5094 / 0.3e1 + t15686 * t18715 / 0.3e1 + t15686 * t18719 / 0.3e1 + t15686 * t18724 / 0.3e1 + 0.16e2 / 0.9e1 * t79873 - 0.2e1 / 0.3e1 * t14978 * t18925 + t15503 * t18734 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t76019;
26809   t79903 = t4152 * t20302 / 0.6e1 + t4160 * t20302 / 0.6e1 + t4168 * t20302 / 0.6e1 + t1277 * t76610 / 0.6e1 + 0.16e2 / 0.9e1 * t72402 - 0.5e1 / 0.27e2 * t72404 - t19748 - t19750 - t19753 + 0.3e1 * t18978 * t4557 + 0.5e1 / 0.3e1 * t14975 * t18920 + 0.5e1 / 0.72e2 * t20554 * t19385 + t15503 * t18724 / 0.3e1 + t4173 * t76462 / 0.3e1;
26810   t79929 = t15686 * t18734 / 0.3e1 - 0.5e1 / 0.12e2 * t77928 * t19361 + 0.5e1 / 0.36e2 * t78165 * t19365 + 0.5e1 / 0.3e1 * t4013 * t78176 + t15476 * t5104 / 0.6e1 + t15489 * t5104 / 0.6e1 + t4597 * t18754 / 0.6e1 + t4597 * t18758 / 0.6e1 + 0.5e1 / 0.72e2 * t77517 * t5300 - 0.5e1 / 0.3e1 * t15683 * t18539 - 0.5e1 / 0.3e1 * t4156 * t77314 - t75706 - t69680 - 0.5e1 / 0.27e2 * t72436 + t4173 * t75808 / 0.3e1;
26811   t79961 = t4173 * t75811 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t76564 + t54913 * t5094 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t77801 + 0.5e1 / 0.3e1 * t13409 * t20473 + 0.5e1 / 0.3e1 * t13402 * t20473 + 0.5e1 / 0.3e1 * t4013 * t77755 + 0.5e1 / 0.3e1 * t4013 * t77759 + t54785 * t5094 / 0.3e1 + 0.5e1 / 0.72e2 * t77504 * t5300 + 0.5e1 / 0.72e2 * t78135 * t5300 + 0.5e1 / 0.72e2 * t20468 * t19385 + t4173 * t75560 / 0.3e1 + t54851 * t5094 / 0.3e1;
26812   t79980 = t57 * t908;
26813   t79981 = t79980 * t443;
26814   t79985 = t79980 * t404;
26815   t79989 = t15686 * t18535 / 0.3e1 + t54845 * t5094 / 0.3e1 + t54812 * t5094 / 0.3e1 + t55639 * t5094 / 0.3e1 + t15610 * t18715 / 0.3e1 + t15610 * t18719 / 0.3e1 + t15610 * t18724 / 0.3e1 + t15503 * t18715 / 0.3e1 + t75709 + 0.5e1 / 0.3e1 * t14967 * t18920 - t75732 - 0.5e1 / 0.6e1 * t71136 * t1137 * t79981 + 0.5e1 / 0.18e2 * t70858 * t1137 * t79985 - t75749;
26816   t79993 = t13419 * t20473;
26817   t79999 = t1110 * t57;
26818   t80022 = -t75753 - 0.5e1 / 0.6e1 * t4156 * t76038 - 0.40e2 / 0.9e1 * t79993 + t15610 * t18734 / 0.3e1 + t4173 * t76033 / 0.3e1 + 0.5e1 / 0.36e2 * t5179 * t18560 * t79999 * t464 - 0.5e1 / 0.12e2 * t18989 * t18543 * t79999 * t443 + 0.5e1 / 0.36e2 * t18957 * t18543 * t79999 * t404 + 0.5e1 / 0.36e2 * t5179 * t18555 * t79999 * t439 + 0.5e1 / 0.36e2 * t20468 * t19369 - 0.5e1 / 0.3e1 * t4156 * t75729 - 0.40e2 / 0.9e1 * t72479 - t75807 - 0.5e1 / 0.27e2 * t72481;
26819   t80043 = t5179 * t5044 * t14713 * t423;
26820   t80045 = -t75815 - t75817 - t75819 + 0.5e1 / 0.3e1 * t4013 * t77745 - 0.5e1 / 0.6e1 * t15500 * t18729 - 0.2e1 * t1476 * t20991 - 0.2e1 * t2448 * t20991 - 0.2e1 * t449 * t4235 * t4483 - 0.2e1 * t449 * t4656 * t4041 - 0.5e1 / 0.3e1 * t4156 * t75734 + t75827 + t75829 + t4173 * t75630 / 0.3e1 - 0.5e1 / 0.27e2 * t80043 - t75851;
26821   t80055 = -t75853 + t78538 * t1245 - 0.3e1 * t71026 * t14996 - t75855 + t75875 - t75878 - t75880 + t15472 * t5104 / 0.6e1 + t75886 + t75888 + t75892 - 0.10e2 / 0.27e2 * t72505 - 0.10e2 / 0.27e2 * t72509 - t75900;
26822   t80071 = -t75903 - t75904 + 0.5e1 / 0.72e2 * t77572 * t5300 - 0.5e1 / 0.3e1 * t15699 * t18539 - t75907 - t75909 - t75911 - t75913 - 0.10e2 / 0.27e2 * t72531 - t15031 * t5189 / 0.3e1 - t4459 * t18935 / 0.3e1 - t4459 * t18953 / 0.3e1 + 0.3e1 * t5211 * t15378 - t75927 - 0.2e1 * t9859 * t5309;
26823   t80078 = t4464 * t443;
26824   t80082 = t4464 * t439;
26825   t80086 = t4464 * t464;
26826   t80090 = -0.2e1 * t2442 * t19482 + 0.6e1 * t77719 * t15195 + t75954 + t18978 * t4515 - t75957 - 0.5e1 / 0.6e1 * t71184 * t4935 * t80078 + 0.5e1 / 0.18e2 * t70858 * t1137 * t80082 + 0.5e1 / 0.18e2 * t70858 * t70080 * t80086 + t75987 + t75988 + t75989 + t75990 + t75991 - t75992;
26827   t80100 = -0.5e1 / 0.3e1 * t4156 * t76477 - 0.5e1 / 0.3e1 * t4156 * t76481 - t75994 + t75996 + t20948 * t751 - t75998 - t75999 - t76000 - t76002 - t76004 + t4173 * t76069 / 0.3e1 + t76008 - t76011 + t76017 - t4009 * t20525 / 0.3e1;
26828   t80111 = t4021 * t20525;
26829   t80115 = t18989 * t18543 * t72502 * t912;
26830   t80119 = t5179 * t18560 * t72502 * t928;
26831   t80133 = -t4017 * t20525 / 0.3e1 - t1227 * t77643 / 0.3e1 - t1227 * t77647 / 0.3e1 + 0.8e1 / 0.9e1 * t80111 + 0.10e2 / 0.9e1 * t80115 - 0.10e2 / 0.27e2 * t80119 - t4017 * t20519 / 0.3e1 - t1227 * t77682 / 0.3e1 - t1227 * t77686 / 0.3e1 - t15015 * t5189 / 0.3e1 - t4465 * t18935 / 0.3e1 - t4465 * t18953 / 0.3e1 - t76018 + t76032;
26832   t80136 = 0.5e1 * t13892 * t75896 + t72604 + t76043 + t76047 - t76049 - t76051 - t76053 - t76055 + t76063 + t76065 - t76073 - t76075 - t76077 - t76080;
26833   t80158 = -t76082 - t76084 - t76087 + t76090 - 0.5e1 / 0.3e1 * t4156 * t75821 - 0.5e1 / 0.12e2 * t77865 * t19361 + t4152 * t20298 / 0.6e1 + t4160 * t20298 / 0.6e1 + t4168 * t20298 / 0.6e1 + t15634 * t5104 / 0.6e1 + t15638 * t5104 / 0.6e1 + t15642 * t5104 / 0.6e1 + t4588 * t18754 / 0.6e1 + t4588 * t18758 / 0.6e1;
26834   t80170 = 0.8e1 / 0.9e1 * t72634 + 0.8e1 / 0.9e1 * t72636 + t76096 + t76104 + t76108 - t74294 - t76112 - t76116 - 0.2e1 * t2442 * t19475 - 0.2e1 * t14120 * t5309 - 0.2e1 * t14123 * t5309 - 0.2e1 * t4302 * t19482 - t76118 + 0.8e1 / 0.9e1 * t72668 - t76404;
26835   t80180 = t20554 * t19464;
26836   t80192 = -0.2e1 * t8342 * t5309 - 0.2e1 * t449 * t1307 * t15176 - t76406 - t76408 - t76410 - 0.5e1 / 0.6e1 * t15683 * t18729 - 0.5e1 / 0.27e2 * t80180 - t72676 + t1277 * t75978 / 0.6e1 + t1277 * t75982 / 0.6e1 - 0.5e1 / 0.3e1 * t4156 * t76571 - 0.10e2 * t13415 * t78024 + 0.10e2 / 0.3e1 * t4013 * t78028 - t76445;
26837   t80193 = t15355 * t5189;
26838   t80210 = -t76449 + 0.8e1 / 0.9e1 * t80193 + t76452 + 0.10e2 / 0.9e1 * t72681 - t15025 * t5189 / 0.3e1 + t76468 + t76473 + 0.10e2 / 0.3e1 * t4013 * t77824 + 0.10e2 * t55715 * t77162 - t4957 - t76498 - 0.5e1 / 0.3e1 * t13808 * t20226 - 0.5e1 / 0.3e1 * t13879 * t20226 - 0.5e1 / 0.3e1 * t13882 * t20226 - 0.5e1 / 0.3e1 * t4156 * t75838;
26839   t80220 = -0.5e1 / 0.3e1 * t4156 * t75841 - 0.5e1 / 0.3e1 * t4156 * t75845 - t76532 - t76534 - t76537 - t76539 - t76541 + t5319 * t2866 - t18095 - t18097 - t18100 - t74347 + t5211 * t15287 - 0.5e1 / 0.6e1 * t15699 * t18729;
26840   t80231 = t79980 * t464;
26841   t80235 = -0.5e1 / 0.6e1 * t13808 * t20123 - 0.2e1 / 0.3e1 * t14972 * t18925 + 0.5e1 / 0.36e2 * t77869 * t19365 + 0.5e1 / 0.36e2 * t20554 * t19369 + 0.5e1 / 0.36e2 * t20554 * t19373 + 0.5e1 / 0.18e2 * t70855 * t50654 * t80231 + t76579 + t76582 - t76584 - t76586 - t76590 + t76591 - t76593 - t76595 - t76597;
26842   t80258 = 0.5e1 / 0.36e2 * t5179 * t18555 * t72377 * t908 - t76601 + 0.5e1 / 0.36e2 * t18945 * t20881 + 0.5e1 / 0.36e2 * t5179 * t75691 * t20880 + 0.5e1 / 0.36e2 * t18957 * t18543 * t19359 * t2386 + 0.5e1 / 0.36e2 * t18940 * t20881 + 0.3e1 * t5211 * t15348 - t76605 - t76607 + t76608 + t19455 * t1037 + 0.8e1 / 0.9e1 * t72711 + t76642 + t76644;
26843   t80259 = t57 * t928;
26844   t80260 = t80259 * t439;
26845   t80274 = t76646 + t76648 + t76654 + t76663 + 0.5e1 / 0.18e2 * t70855 * t50654 * t80260 - 0.2e1 * t4302 * t19475 - 0.2e1 * t1476 * t20982 - 0.2e1 * t2448 * t20982 - 0.2e1 * t449 * t15862 * t1231 + t76666 - t76674 - t5211 * t15382 - t74895 - t74897;
26846   t80278 = -t74899 - t76677 + 0.5e1 / 0.36e2 * t20468 * t19373 - t77121 - t77123 - t74931 - t74933 - t77128 - t77130 + t77132 + t77135 + t77137 - t77140 - t77144;
26847   t80289 = t4021 * t20519;
26848   t80291 = t80259 * t443;
26849   t80295 = t80259 * t404;
26850   t80301 = -t74945 + t15452 * t5104 / 0.6e1 + t15455 * t5104 / 0.6e1 + t15458 * t5104 / 0.6e1 + t4582 * t18754 / 0.6e1 + t4582 * t18758 / 0.6e1 + 0.8e1 / 0.9e1 * t80289 - t77146 - t77149 - 0.5e1 / 0.6e1 * t71136 * t70080 * t80291 + 0.5e1 / 0.18e2 * t70858 * t70080 * t80295 - 0.5e1 / 0.3e1 * t4156 * t75724 - t77151 - t77153 - t77156;
26851   t80316 = t19030 * t4932 * t72741 * t883;
26852   t80320 = t19033 * t4932 * t72751 * t908;
26853   t80322 = -t75075 + t76689 + 0.5e1 / 0.3e1 * t78289 * t19182 + 0.5e1 / 0.3e1 * t55822 * t19182 + 0.5e1 / 0.3e1 * t55789 * t19182 + 0.10e2 / 0.27e2 * t80316 + 0.10e2 / 0.27e2 * t80320 - t76694 + t76696 - t76703 - t76705;
26854   t80340 = t57 * t912;
26855   t80341 = t80340 * t443;
26856   t80345 = -t76707 - 0.5e1 / 0.36e2 * t78256 * t19440 - 0.5e1 / 0.36e2 * t78275 * t19445 + 0.5e1 / 0.3e1 * t55815 * t19182 - t76731 - t76735 - t76737 + 0.5e1 / 0.6e1 * t19023 * t70271 * t79981 - 0.5e1 / 0.18e2 * t19027 * t70271 * t80231 - 0.5e1 / 0.18e2 * t19030 * t70271 * t79985 - 0.10e2 * t50061 * t79295 - 0.35e2 / 0.12e2 * t71257 * t23764 * t80341;
26857   t80347 = t80340 * t464;
26858   t80351 = t80340 * t404;
26859   t80355 = t80340 * t439;
26860   t80371 = 0.5e1 / 0.6e1 * t71312 * t23764 * t80347 + 0.5e1 / 0.6e1 * t15516 * t23764 * t80351 + 0.5e1 / 0.6e1 * t19023 * t70271 * t80355 + 0.5e1 / 0.6e1 * t71312 * t23764 * t80291 - 0.5e1 / 0.18e2 * t13930 * t23764 * t80295 - 0.5e1 / 0.18e2 * t19027 * t70271 * t80260 + 0.5e1 / 0.6e1 * t15516 * t23764 * t80078 - t76742 - t76745 - t76747 - t76751;
26861   t80396 = 0.5e1 / 0.3e1 * t50066 * t20795 + 0.5e1 / 0.3e1 * t55808 * t20795 + 0.5e1 / 0.3e1 * t50070 * t20795 + 0.5e1 / 0.3e1 * t50074 * t20795 + 0.5e1 / 0.3e1 * t13930 * t79267 + 0.5e1 / 0.3e1 * t13930 * t79446 + 0.5e1 / 0.3e1 * t13930 * t79450 + 0.5e1 / 0.12e2 * t78389 * t19432 - 0.5e1 / 0.36e2 * t78392 * t19436 - 0.5e1 / 0.36e2 * t78261 * t19440 - 0.5e1 / 0.36e2 * t78264 * t19445 + 0.5e1 / 0.12e2 * t78444 * t19432;
26862   t80403 = t19023 * t4932 * t72741 * t912;
26863   t80407 = t19027 * t4932 * t72741 * t928;
26864   t80417 = -0.5e1 / 0.36e2 * t78253 * t19436 - t76777 - 0.10e2 / 0.9e1 * t80403 + 0.10e2 / 0.27e2 * t80407 + 0.5e1 / 0.3e1 * t13930 * t79335 + 0.5e1 / 0.3e1 * t13930 * t79223 + 0.10e2 / 0.27e2 * t72744 + 0.10e2 / 0.27e2 * t72749 + 0.10e2 / 0.27e2 * t72754 - 0.10e2 / 0.9e1 * t72764 + t5056;
26865   t80420 = -t76809 + 0.5e1 / 0.27e2 * t72772 + 0.5e1 / 0.27e2 * t72775 - t18420 + t20017 + t20023 - t76823 - t76824 - t76825 - t76826 - t76827 + t70384;
26866   t80436 = t75178 + 0.5e1 / 0.12e2 * t71261 * t20911 + 0.5e1 / 0.12e2 * t71341 * t20911 + 0.5e1 / 0.12e2 * t19023 * t4932 * t19430 * t2436 - 0.5e1 / 0.18e2 * t13930 * t23764 * t80086 - 0.5e1 / 0.18e2 * t19030 * t70271 * t80082 - t76832 - t76835 - t76837 - t76840 + t76864 + t76872;
26867   t80445 = -t20020 - t19992 * t19423 / 0.3e1 + t18417 + t18423 + t76884 + t76890 + t76893 + t76896 - t75172 * t5316 / 0.3e1 - t75235 * t5316 / 0.3e1 - t75239 * t5316 / 0.3e1 + t76898;
26868   t80461 = t76900 + t76902 + t76904 - t3945 * t4668 * t19192 / 0.3e1 - t3945 * t4668 * t19196 / 0.3e1 - t13263 * t20941 / 0.3e1 - t14624 * t20941 / 0.3e1 - t13281 * t20941 / 0.3e1 - t76906 - t76908 - t76911;
26869   t80487 = -t52467 * t5316 / 0.3e1 - t57850 * t5316 / 0.3e1 - t52471 * t5316 / 0.3e1 - t14645 * t19420 / 0.3e1 - 0.5e1 / 0.72e2 * t18359 * t20929 - 0.5e1 / 0.72e2 * t5042 * t78486 * t5312 - t51944 * t5316 / 0.3e1 - t58068 * t5316 / 0.3e1 - t51947 * t5316 / 0.3e1 - t14614 * t19420 / 0.3e1 - t19992 * t19426 / 0.3e1 - t14614 * t19423 / 0.3e1;
26870   t80512 = -t14614 * t19426 / 0.3e1 - t76936 - t14645 * t19426 / 0.3e1 - t3945 * t1309 * t79228 / 0.3e1 - t13263 * t20944 / 0.3e1 - t14624 * t20944 / 0.3e1 - t13281 * t20944 / 0.3e1 - t3945 * t4247 * t20806 / 0.3e1 - t3945 * t1309 * t79238 / 0.3e1 - t76960 - 0.5e1 / 0.72e2 * t75325 * t5313 - 0.5e1 / 0.72e2 * t19962 * t19411;
26871   t80522 = -t14645 * t19423 / 0.3e1 - t72886 + t76972 + t76974 + t76977 + t76981 - t76989 - t14624 * t20938 / 0.3e1 - t13281 * t20938 / 0.3e1 - t3945 * t15587 * t5273 / 0.3e1 + t76993 + t76995;
26872   t80525 = t76996 + t76998 + t77000 + t77002 + t77004 + t77009 + t77011 + t77013 + t77016 + t77019 + t77021;
26873   t80537 = t19962 * t19451;
26874   t80540 = t5042 * t20587 * t19450;
26875   t80542 = -t13263 * t20938 / 0.3e1 + t77038 + t77040 - t75329 - t19992 * t19420 / 0.3e1 + t75350 + t75352 - t3945 * t4247 * t20802 / 0.3e1 - t3945 * t1309 * t79325 / 0.3e1 + 0.5e1 / 0.27e2 * t80537 + 0.5e1 / 0.27e2 * t80540 + t77085;
26876   t80558 = t77087 + t77089 + t77092 + t77094 + t77096 + t77099 - 0.5e1 / 0.36e2 * t71331 * t20915 - 0.5e1 / 0.36e2 * t78295 * t20915 - 0.5e1 / 0.36e2 * t71345 * t20915 - 0.5e1 / 0.36e2 * t19027 * t4932 * t19430 * t2478 - 0.5e1 / 0.36e2 * t71334 * t20919 - 0.5e1 / 0.36e2 * t78454 * t20919;
26877   t80580 = -0.5e1 / 0.36e2 * t71353 * t20919 - 0.5e1 / 0.36e2 * t19030 * t4932 * t19430 * t2386 - 0.5e1 / 0.36e2 * t71337 * t20923 - 0.5e1 / 0.36e2 * t71356 * t20923 - 0.5e1 / 0.36e2 * t19033 * t4932 * t72573 * t908 - 0.5e1 / 0.36e2 * t19033 * t4932 * t19443 * t2432 - t3945 * t1309 * t79255 / 0.3e1 + t75410 + t75413 - t75415 - t75418 - t75421;
26878   t80590 = 0.2e1 * t78059 * t14992 - t77159 + t77161 + t77168 - 0.3e1 * t71026 * t15022 + (t80322 + t80345 + t80371 + t80396 + t80417 + t80420 + t80436 + t80445 + t80461 + t80487 + t80512 + t80522 + 0.2e1 / 0.3e1 * t80525 + t80542 + t80558 + t80580) * t227 - t5211 * t15376 + t77176 + t77178 - t77180 - t77185 - t77187 - t77189 + 0.35e2 / 0.12e2 * t78126 * t4935 * t80341;
26879   t80604 = t15388 * t5189;
26880   t80606 = -0.5e1 / 0.6e1 * t71184 * t4935 * t80351 - 0.5e1 / 0.6e1 * t71136 * t1137 * t80355 - 0.5e1 / 0.6e1 * t71136 * t70080 * t80347 + t77191 - t77204 - t77206 - t77208 - t4009 * t20519 / 0.3e1 - t77210 - t77234 - t77237 - t77239 - t77249 - t15011 * t5189 / 0.3e1 + 0.8e1 / 0.9e1 * t80604;
26881   t80616 = t5179 * t18555 * t72502 * t908;
26882   t80622 = -0.5e1 / 0.3e1 * t15500 * t18539 - t77260 + t77264 + 0.5e1 / 0.36e2 * t18957 * t18543 * t72377 * t883 - 0.10e2 / 0.27e2 * t80616 + t77267 - t77269 - t77271 + t77275 + t77277 - t77279 - t77282 + 0.5e1 / 0.36e2 * t5179 * t18560 * t19359 * t2478 - t77283;
26883   t80629 = -t15346 * t5211 - t18978 * t4561 + t20560 * t4077 + 0.3e1 * t20560 * t4125 - t20560 * t4129 - t75431 - t77297 - t77298 - t77300 - t77302 - t77306 - t77309 + t77310 - t77330 + t77331;
26884   t80634 = t80629 + t80622 + t80606 + t80590 + t80301 + t80278 + t80274 + t80258 + t80235 + t80220 + t80210 + t80192 + t80170 + t80158 + t80136 + t80133 + t80100 + t80090 + t80071 + t80055 + t80045 + t80022 + t79989 + t79961 + t79929 + t79903 + t79881 + t79852 + t79821 + t79796 + t79760 + t79729;
26885   t80639 = t370 * t80634 * params->d + 0.6e1 * t3138 * t5327 + 0.3e1 * t3141 * t5327 + 0.6e1 * t4263 * t4574 + t20112 + t77377 + t77381 + t77384 + t77389 + t77394 + t77397 + t77399 + t77401;
26886   t80653 = 0.3e1 * t1269 * t15879 + 0.6e1 * t1318 * t15430 + 0.6e1 * t1318 * t15433 + 0.6e1 * t1318 * t15441 + 0.3e1 * t1318 * t15444 + 0.3e1 * t4263 * t4577 + t75512 + t75526 + t77411 + t77413 + t77415 + t77419 + t77421;
26887   t80658 = 0.3e1 * t1127 * t19514 + 0.6e1 * t1318 * t15436 + t18505 + t18508 + t20115 + t75538 + t75542 + t75545 + t77423 + t77426 + t77428 + t77436 + t77438;
26888   t80666 = t4563 * t1320;
26889   t80668 = t20996 * t372;
26890   t80670 = t1264 * t4687;
26891   t80671 = t4564 * t4267 + t19503 * t1130 + t20997 * t878 + t4679 * t4149 + t872 * (t79707 + t80639 + t80653 + t80658) + t3127 * t5331 + t72358 + t1265 * t15889 + t7 * t80634 * t372 + t72347 + t80666 + t72345 + t4132 * t4687 + t80668 + t870 * t21015 + t80670;
26892   t80672 = t5322 * t1130;
26893   t80675 = t1122 * t5331;
26894   t80676 = t1315 * t4580;
26895   t80678 = t368 * t21015;
26896   t80679 = t4678 * t1272;
26897   t80683 = t1123 * t19524 + t1272 * t15868 + t1316 * t15447 + t1320 * t15401 + t3144 * t5323 + t4258 * t4580 + t72339 + t72351 + t72353 + t72360 + t72948 + t80672 + t80675 + t80676 + t80678 + t80679;
26898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26899     v4rho2sigma2[10] = t80671 + t80683;
26900 
26901   t80684 = t21182 * t372;
26902   t80708 = -0.5e1 / 0.36e2 * t19532 * t73747 + 0.2e1 / 0.3e1 * t77507 + 0.2e1 / 0.3e1 * t77509 + 0.2e1 / 0.3e1 * t77511 + 0.2e1 / 0.3e1 * t77515 + 0.2e1 / 0.3e1 * t77522 + 0.2e1 / 0.3e1 * t77524 - 0.4e1 * t77530 - 0.4e1 * t77532 - 0.4e1 * t77534 + 0.5e1 / 0.24e2 * t19560 * t73701 - 0.4e1 * t77539 - t73766 - 0.5e1 / 0.72e2 * t19565 * t73705 - 0.5e1 / 0.72e2 * t5179 * t5044 * t14713 * t4166 - 0.5e1 / 0.72e2 * t19532 * t73712 + 0.2e1 / 0.3e1 * t77541;
26903   t80735 = 0.2e1 / 0.3e1 * t77543 + 0.10e2 * t13892 * t78024 - 0.10e2 / 0.3e1 * t4156 * t78028 - 0.5e1 / 0.72e2 * t19532 * t73715 - 0.5e1 / 0.3e1 * t4156 * t77745 - 0.5e1 / 0.72e2 * t73019 * t19762 - 0.5e1 / 0.72e2 * t19532 * t74878 - 0.5e1 / 0.72e2 * t19532 * t74881 - 0.5e1 / 0.3e1 * t15500 * t18920 + 0.2e1 / 0.3e1 * t4173 * t77801 - 0.5e1 / 0.3e1 * t4156 * t77917 + 0.2e1 / 0.3e1 * t4173 * t77600 + 0.2e1 / 0.3e1 * t77560 + 0.2e1 / 0.3e1 * t77562 + 0.2e1 / 0.3e1 * t77564 - t19748 - t19750 - t19753;
26904   t80760 = t363 * t4595;
26905   t80769 = 0.2e1 / 0.3e1 * t15503 * t18925 - 0.5e1 / 0.3e1 * t15699 * t18920 - 0.10e2 / 0.3e1 * t77582 - 0.10e2 / 0.3e1 * t77584 + 0.2e1 / 0.3e1 * t77586 - 0.10e2 / 0.3e1 * t77592 - t2440 * t5381 - t73841 + 0.2e1 / 0.3e1 * t77634 + 0.2e1 / 0.3e1 * t77662 - 0.10e2 / 0.3e1 * t4156 * t77824 + 0.5e1 / 0.12e2 * t72999 * t73725 - 0.5e1 / 0.36e2 * t18957 * t18543 * t73723 * t4166 - 0.5e1 / 0.36e2 * t19565 * t73801 - 0.5e1 / 0.36e2 * t19565 * t73805 + 0.5e1 / 0.12e2 * t18989 * t18543 * t80760 * t443 - 0.5e1 / 0.36e2 * t18957 * t18543 * t80760 * t404;
26906   t80813 = 0.5e1 / 0.12e2 * t19560 * t73734 - 0.5e1 / 0.36e2 * t19565 * t73739 - 0.5e1 / 0.36e2 * t5179 * t18555 * t73732 * t4166 - 0.5e1 / 0.72e2 * t72988 * t19755 - 0.5e1 / 0.72e2 * t1397 * t404 * t5333 * t114 * t19755 - 0.5e1 / 0.72e2 * t19565 * t73885 - 0.5e1 / 0.72e2 * t5179 * t5044 * t3763 * t15487 + 0.2e1 / 0.3e1 * t13811 * t20480 + 0.2e1 / 0.3e1 * t13876 * t20480 + 0.2e1 / 0.3e1 * t13870 * t20480 + 0.2e1 / 0.3e1 * t4173 * t77728 + 0.2e1 / 0.3e1 * t4173 * t77620 + 0.2e1 / 0.3e1 * t4173 * t77625 - 0.5e1 / 0.72e2 * t18945 * t21028 - 0.5e1 / 0.72e2 * t19565 * t74373 - 0.5e1 / 0.72e2 * t18940 * t21028 - 0.5e1 / 0.3e1 * t13808 * t20473 - 0.5e1 / 0.3e1 * t13879 * t20473;
26907   t80845 = -0.5e1 / 0.3e1 * t13882 * t20473 - 0.5e1 / 0.3e1 * t4156 * t77755 - 0.5e1 / 0.3e1 * t4156 * t77759 - 0.5e1 / 0.72e2 * t19532 * t75055 + 0.5e1 / 0.24e2 * t73012 * t19741 + 0.5e1 / 0.24e2 * t19560 * t74211 - 0.5e1 / 0.3e1 * t15683 * t18920 - 0.5e1 / 0.72e2 * t5179 * t5044 * t12771 * t4595 + 0.2e1 / 0.3e1 * t77691 + 0.2e1 / 0.3e1 * t77693 + 0.2e1 / 0.3e1 * t77703 + 0.2e1 / 0.3e1 * t77705 + 0.2e1 / 0.3e1 * t77707 + 0.2e1 / 0.3e1 * t77709 - 0.5e1 / 0.3e1 * t4156 * t78176 + 0.2e1 / 0.3e1 * t4173 * t78179 - 0.6e1 * t77717;
26908   t80859 = t73 * t4595;
26909   t80882 = -t75075 + t75078 - t75081 - t75084 + t75103 + 0.10e2 / 0.3e1 * t78259 + 0.5e1 / 0.36e2 * t19033 * t4932 * t80859 * t439 - 0.5e1 / 0.12e2 * t73531 * t75296 + 0.5e1 / 0.36e2 * t73544 * t75301 + 0.5e1 / 0.36e2 * t73588 * t75305 + 0.5e1 / 0.36e2 * t19033 * t4932 * t75294 * t4166 + 0.5e1 / 0.36e2 * t19030 * t4932 * t75122 * t4166 + 0.5e1 / 0.36e2 * t73588 * t75231 - 0.5e1 / 0.12e2 * t73531 * t75283;
26910   t80908 = t4933 * t4595;
26911   t80923 = -0.5e1 / 0.12e2 * t73580 * t75287 + 0.5e1 / 0.36e2 * t73535 * t75137 + 0.5e1 / 0.36e2 * t19027 * t4932 * t75135 * t4166 + 0.5e1 / 0.36e2 * t73544 * t75145 - 0.5e1 / 0.12e2 * t73577 * t75124 + 0.5e1 / 0.36e2 * t73535 * t75128 + 0.35e2 / 0.24e2 * t26389 * t73530 * t75200 - 0.5e1 / 0.12e2 * t73580 * t75313 - 0.5e1 / 0.12e2 * t73577 * t75317 - 0.5e1 / 0.12e2 * t19023 * t4932 * t75198 * t4166 - 0.5e1 / 0.12e2 * t19023 * t4932 * t80908 * t443 + 0.5e1 / 0.36e2 * t19027 * t4932 * t80908 * t464 + 0.5e1 / 0.36e2 * t19030 * t4932 * t80908 * t404 + 0.10e2 / 0.3e1 * t78286 + 0.10e2 / 0.3e1 * t78290;
26912   t80940 = t5056 - 0.2e1 / 0.3e1 * t78305 + 0.5e1 / 0.72e2 * t13260 * t21155 - 0.2e1 / 0.3e1 * t78307 - 0.2e1 / 0.3e1 * t78309 - 0.2e1 / 0.3e1 * t78311 - 0.2e1 / 0.3e1 * t78313 - 0.2e1 / 0.3e1 * t78316 - 0.2e1 / 0.3e1 * t78319 - 0.2e1 / 0.3e1 * t78322 - 0.2e1 / 0.3e1 * t78324 - 0.2e1 / 0.3e1 * t78329 - 0.2e1 / 0.3e1 * t78331 - 0.2e1 / 0.3e1 * t78334 - 0.2e1 / 0.3e1 * t78337;
26913   t80962 = -0.2e1 / 0.3e1 * t78340 + 0.5e1 / 0.72e2 * t19962 * t19703 + 0.5e1 / 0.72e2 * t19962 * t19706 - 0.5e1 / 0.24e2 * t68668 * t21149 - 0.5e1 / 0.24e2 * t18362 * t5383 * t75391 + 0.5e1 / 0.72e2 * t68568 * t21152 + 0.5e1 / 0.72e2 * t75398 * t21152 + 0.5e1 / 0.72e2 * t18368 * t5383 * t75401 - 0.20e2 * t78358 - t18420 + t20017 + t20023 - 0.2e1 / 0.3e1 * t78362 - 0.2e1 / 0.3e1 * t78366 - 0.2e1 / 0.3e1 * t78367;
26914   t80981 = -0.2e1 / 0.3e1 * t78368 - 0.2e1 / 0.3e1 * t78369 - 0.2e1 / 0.3e1 * t78370 - 0.2e1 / 0.3e1 * t78371 - 0.2e1 / 0.3e1 * t78372 - 0.2e1 / 0.3e1 * t78373 - 0.2e1 / 0.3e1 * t78375 - 0.2e1 / 0.3e1 * t78377 - 0.2e1 / 0.3e1 * t78379 - 0.2e1 / 0.3e1 * t78382 + t75178 + 0.10e2 / 0.3e1 * t78401 + 0.10e2 / 0.3e1 * t78403 - 0.5e1 / 0.24e2 * t75221 * t19693 + 0.5e1 / 0.72e2 * t75224 * t19696;
26915   t80995 = 0.5e1 / 0.72e2 * t14662 * t19699 + 0.10e2 / 0.3e1 * t78417 + 0.10e2 / 0.3e1 * t78421 + 0.10e2 / 0.3e1 * t78423 + 0.10e2 / 0.3e1 * t78425 + 0.10e2 / 0.3e1 * t78427 + 0.10e2 / 0.3e1 * t78429 - 0.2e1 / 0.3e1 * t78433 - 0.2e1 / 0.3e1 * t78435 - 0.2e1 / 0.3e1 * t78437 - 0.2e1 / 0.3e1 * t78439 - 0.2e1 / 0.3e1 * t78441 - t20020 + t18417 + t18423;
26916   t81023 = 0.10e2 / 0.3e1 * t78459 + 0.5e1 / 0.72e2 * t13266 * t21155 + 0.5e1 / 0.72e2 * t3939 * t5383 * t75330 + 0.5e1 / 0.72e2 * t18359 * t21159 + 0.5e1 / 0.72e2 * t5042 * t18992 * t21158 + 0.5e1 / 0.72e2 * t5042 * t5200 * t5044 * t15487 + 0.5e1 / 0.72e2 * t18359 * t21162 + 0.5e1 / 0.72e2 * t5042 * t5383 * t75150 + 0.5e1 / 0.72e2 * t5042 * t5383 * t75154 + 0.10e2 / 0.3e1 * t78473 + 0.5e1 / 0.144e3 * t75325 * t5384 - t75329 + t75348 + t75350 + t75352;
26917   t81028 = -0.2e1 / 0.3e1 * t78503 - 0.2e1 / 0.3e1 * t78505 - 0.2e1 / 0.3e1 * t78507 - 0.2e1 / 0.3e1 * t78509 - t75372 + t75374 + t75377 - t75379 + t75381 - t75384 + t75410 + t75413 - t75415 - t75418 - t75421;
26918   t81038 = 0.12e2 * t77720 + 0.2e1 / 0.3e1 * t77731 + 0.2e1 / 0.3e1 * t77733 + 0.2e1 / 0.3e1 * t77735 + 0.2e1 / 0.3e1 * t15610 * t18925 - 0.10e2 / 0.3e1 * t77774 + t19716 * t1037 + 0.2e1 / 0.3e1 * t77784 + 0.2e1 / 0.3e1 * t77786 - 0.2e1 * t77793 + 0.2e1 * t77794 + (t80882 + t80923 + t80940 + t80962 + t80981 + t80995 + t81023 + t81028) * t227 + t74186 + 0.6e1 * t77798 - 0.2e1 * t77810 + 0.6e1 * t77827 - 0.4e1 * t77849 - 0.4e1 * t77852;
26919   t81046 = t7591 * t19531;
26920   t81064 = 0.2e1 * t77854 - t916 * t19689 - 0.2e1 * t77855 + 0.2e1 / 0.3e1 * t77859 + 0.2e1 / 0.3e1 * t77861 + 0.2e1 / 0.3e1 * t77863 - 0.5e1 / 0.72e2 * t81046 * t18057 - 0.5e1 / 0.72e2 * t81046 * t18060 + t4588 * t18935 / 0.3e1 + t4588 * t18953 / 0.3e1 - 0.2e1 * t77876 - 0.5e1 / 0.72e2 * t19532 * t74216 - 0.5e1 / 0.72e2 * t19532 * t75038 - 0.10e2 / 0.3e1 * t77877 + 0.2e1 / 0.3e1 * t77885 - 0.2e1 * t77889 + 0.2e1 / 0.3e1 * t77890;
26921   t81076 = t34313 * t19531;
26922   t81079 = t7591 * t19564;
26923   t81092 = 0.2e1 / 0.3e1 * t77892 + 0.2e1 / 0.3e1 * t77898 + 0.6e1 * t77908 + t4597 * t18935 / 0.3e1 + t4597 * t18953 / 0.3e1 - 0.5e1 / 0.144e3 * t19582 * t20062 - 0.5e1 / 0.144e3 * t5335 * t73761 + 0.5e1 / 0.24e2 * t81076 * t18083 - 0.5e1 / 0.72e2 * t81079 * t18091 + 0.5e1 / 0.24e2 * t19560 * t73698 - 0.10e2 / 0.3e1 * t77920 - t74276 - 0.6e1 * t77937 + t74282 + t15455 * t5189 / 0.3e1 + t15458 * t5189 / 0.3e1 - 0.5e1 / 0.72e2 * t73019 * t19765 - t74294;
26924   t81117 = -0.5e1 / 0.36e2 * t5179 * t18560 * t929 * t4166 - 0.5e1 / 0.36e2 * t19532 * t74998 + 0.2e1 / 0.3e1 * t77957 - 0.4e1 * t77967 - 0.4e1 * t77969 - 0.4e1 * t77973 - 0.4e1 * t77976 - 0.10e2 / 0.3e1 * t77978 - 0.10e2 / 0.3e1 * t77980 - 0.10e2 / 0.3e1 * t77982 - 0.10e2 / 0.3e1 * t77984 - 0.10e2 / 0.3e1 * t77986 + 0.2e1 / 0.3e1 * t77992 + 0.2e1 / 0.3e1 * t77994 + 0.2e1 / 0.3e1 * t77996 + 0.2e1 / 0.3e1 * t78004 + 0.2e1 / 0.3e1 * t78020;
26925   t81145 = t15452 * t5189 / 0.3e1 - 0.2e1 * t449 * t21137 * t464 - 0.5e1 / 0.36e2 * t5179 * t18555 * t80760 * t439 - 0.5e1 / 0.36e2 * t5179 * t18560 * t80760 * t464 + 0.2e1 / 0.3e1 * t78040 - t4957 - t74320 - t74322 - 0.2e1 * t1476 * t21042 - 0.2e1 * t2448 * t21042 - 0.2e1 * t449 * t19689 * t928 + 0.2e1 / 0.3e1 * t78042 + 0.2e1 / 0.3e1 * t78044 + 0.2e1 / 0.3e1 * t78046 + 0.2e1 / 0.3e1 * t78048 + 0.2e1 / 0.3e1 * t78050 - 0.4e1 * t78052 + t74327;
26926   t81160 = -t74331 + 0.4e1 * t78060 - 0.10e2 / 0.3e1 * t78062 - 0.10e2 / 0.3e1 * t78064 + 0.6e1 * t78066 + 0.2e1 / 0.3e1 * t78068 + 0.2e1 / 0.3e1 * t78070 + 0.2e1 / 0.3e1 * t78072 - t18095 - t18097 - t18100 - t74347 + t1277 * t77643 / 0.3e1 + t1277 * t77647 / 0.3e1 - t74379 - t74802 - 0.5e1 / 0.72e2 * t19532 * t75052;
26927   t81182 = -0.5e1 / 0.72e2 * t20468 * t19528 + t74809 - t74810 + t74812 - t74830 + 0.2e1 / 0.3e1 * t15686 * t18925 + 0.6e1 * t78121 - 0.4e1 * t78124 - 0.35e2 / 0.24e2 * t73036 * t74833 + 0.5e1 / 0.12e2 * t72999 * t74837 + 0.5e1 / 0.12e2 * t18989 * t18543 * t14704 * t4166 + 0.5e1 / 0.12e2 * t19560 * t74845 + 0.5e1 / 0.12e2 * t19560 * t74848 + t74832 - 0.10e2 / 0.3e1 * t78133 + 0.2e1 / 0.3e1 * t78142 + t74863 + 0.2e1 * t78147;
26928   t81192 = t74867 - t74869 - t74895 - t74897 - t74899 - t74907 - t74911 + t4152 * t20525 / 0.3e1 + t4160 * t20525 / 0.3e1 + t4168 * t20525 / 0.3e1 - 0.4e1 * t78157 - t74927 - t74929 - t74931 - t74933 - t74935 + t74938;
26929   t81211 = -0.4e1 * t78162 + t74941 - t74943 - t74945 - 0.2e1 * t2442 * t19573 - t74949 - t74953 - t74955 + t74965 - t447 * t21137 + t4582 * t18935 / 0.3e1 + t4582 * t18953 / 0.3e1 - 0.5e1 / 0.144e3 * t34310 * t5334 * t4936 - 0.5e1 / 0.144e3 * t21140 * t18044 - t74967 + 0.2e1 / 0.3e1 * t78188 + t4152 * t20519 / 0.3e1 + t4160 * t20519 / 0.3e1;
26930   t81226 = t4168 * t20519 / 0.3e1 + t1277 * t77682 / 0.3e1 + t1277 * t77686 / 0.3e1 - t74969 + t21172 * t751 + t74971 - t74973 + t15472 * t5189 / 0.3e1 - t74980 + t75004 - t75006 - 0.2e1 * t449 * t5381 * t2478 + t75021 + t75023 + t75027 - 0.10e2 / 0.3e1 * t78235 - t75037 + t75063;
26931   t81227 = t7378 * t5349;
26932   t81244 = t21087 * t19666;
26933   t81248 = t19658 * t69205 * t1076;
26934   t81265 = 0.12e2 * t73223 * t81227 * t15807 - 0.8e1 * t73223 * t15806 * t15812 + t19650 * t210 * t276 * t340 * t3070 / 0.384e3 - 0.12e2 * t19629 * t19630 * t21099 * t844 - t73199 / 0.1152e4 - t81244 * t19668 / 0.1152e4 + t81248 / 0.576e3 + 0.4e1 * t5351 * t19616 * t331 * t3070 - 0.8e1 * t73223 * t15806 * t15828 + 0.12e2 * t73228 * t73229 * t15800 + 0.5e1 / 0.3456e4 * t19601 * t7439 * t351 * t2114 * t3028;
26935   t81286 = t837 * t1074;
26936   t81291 = t351 * t1074;
26937   t81297 = t19667 * t69205 * t1087;
26938   t81299 = t803 * t1082;
26939   t81301 = t5356 * t5362 * t81299;
26940   t81304 = -0.4e1 * t19621 * t19641 * t15786 + t73203 / 0.576e3 + t73206 / 0.1728e4 - 0.4e1 * t73223 * t73229 * t15819 + 0.2e1 * t19621 * t4215 * t15819 + 0.4e1 * t73401 * t15829 - 0.12e2 * t19629 * t19630 * t4634 * t4201 + 0.12e2 * t73228 * t73229 * t15786 + t19591 * t5366 * t81286 * t73365 / 0.768e3 - t19591 * t5366 * t81291 * t814 / 0.768e3 - t81297 / 0.1728e4 + t81301 * t19668 / 0.216e3;
26941   t81310 = t19650 * t210 * t229 * t21106;
26942   t81317 = t4959 * t81299 * t209;
26943   t81321 = t4959 * t21063 * t209;
26944   t81328 = t340 * t2291;
26945   t81342 = t73239 * t21108 / 0.384e3 + t81310 / 0.576e3 + 0.24e2 * t19629 * t73408 * t21090 * t844 + t81317 * t19594 / 0.144e3 - t81321 * t19604 / 0.216e3 - t19591 * t18226 * t19592 * t2997 / 0.768e3 + t19601 * t18226 * t81328 * t3049 / 0.384e3 - t73248 / 0.1152e4 + t19658 * t18299 * t2998 / 0.384e3 + t19667 * t74518 * t3038 / 0.576e3 + t73251 * t21111 / 0.384e3;
26946   t81356 = t905 * t844;
26947   t81382 = t19591 * t5366 * t21072 * t814 / 0.768e3 + t73270 - t73272 / 0.1728e4 - t19601 * t2233 * t21072 * t760 / 0.1152e4 - 0.6e1 * t19629 * t19630 * t5349 * t3070 - t19601 * t2233 * t73424 * t81356 / 0.1152e4 - t19601 * t2233 * t351 * t2119 * t3028 / 0.576e3 - 0.4e1 * t19621 * t14051 * t15807 + 0.4e1 * t19629 * t19641 * t4201 * t4627 + t73372 * t2578 * t9139 * t43902 / 0.576e3 + 0.4e1 * t19629 * t19641 * t1291 * t15762 - t73280 / 0.1152e4;
26948   t81388 = t5344 * t1616 * t21073;
26949   t81398 = t21087 * t19657;
26950   t81406 = t21086 * t5115;
26951   t81417 = 0.8e1 * t73401 * t15792 - t81388 / 0.1152e4 - t73289 - 0.4e1 * t19621 * t19641 * t15800 - 0.12e2 * t19621 * t14030 * t3049 + t21065 * t19609 / 0.144e3 + t81398 * t19659 / 0.384e3 - t5344 * t533 * t758 * t837 * t3070 / 0.768e3 + 0.4e1 * t81406 * t19643 - t73310 * t2578 * t2966 * t73365 / 0.192e3 + t73387 * t2578 * t9139 * t81356 / 0.576e3;
26952   t81419 = t4973 * t3043 * t4976;
26953   t81426 = t5356 * t5362 * t2214 * t1082;
26954   t81432 = t19629 * t4215 * t805;
26955   t81441 = t826 * t1098;
26956   t81449 = t21103 * t19663;
26957   t81455 = -t81419 * t5363 * t5367 / 0.768e3 + t73299 / 0.576e3 - t81426 * t19659 / 0.72e2 - 0.4e1 * t73320 * t21096 + t81432 * t3035 / 0.576e3 - 0.5e1 / 0.3456e4 * t81432 * t3030 - t73310 * t2578 * t21106 * t814 / 0.192e3 + t73387 * t2578 * t81441 * t760 / 0.576e3 - t73396 * t73397 * t3020 / 0.1152e4 - t81449 / 0.1152e4 - 0.6e1 * t73320 * t21091 - 0.6e1 * t81406 * t19632;
26958   t81458 = t19591 * t29967 * t21059;
26959   t81460 = t21087 * t19649;
26960   t81464 = t5356 * t5357 * t81299;
26961   t81485 = t5364 * t21114 * t19662;
26962   t81493 = -t81458 / 0.1152e4 + t81460 * t19653 / 0.384e3 - t81464 * t19653 / 0.72e2 - t73396 * t73397 * t2975 / 0.1152e4 + t73372 * t3004 / 0.384e3 - t73341 * t18299 * t758 * t3049 / 0.128e3 - 0.4e1 * t1159 * t4201 * t1162 * t4643 - 0.4e1 * t19613 * t15832 + t19646 * t21115 / 0.144e3 + t81485 / 0.216e3 + 0.4e1 * t73320 * t21100 - t19629 * t49732 * t805 * t2969 / 0.128e3;
26963   t81518 = t21065 * t19597;
26964   t81527 = t19601 * t29967 * t21068;
26965   t81529 = -t19601 * t74601 * t19602 * t2889 / 0.576e3 + 0.4e1 * t73401 * t15813 + 0.8e1 * t73401 * t15824 - 0.4e1 * t81406 * t19638 + 0.2e1 * t19621 * t4215 * t2997 - 0.4e1 * t19629 * t19635 * t5349 * t2996 * t329 + 0.2e1 * t81419 * t5359 + t73372 * t2578 * t37747 * t9184 / 0.576e3 - t81518 / 0.216e3 - t73430 * t21118 / 0.1152e4 + t73234 * t5366 * t81291 * t2967 / 0.384e3 + t81527 / 0.1728e4;
26966   t81536 = t21121 * t2320;
26967   t81543 = t169 * t5370;
26968   t81564 = t169 * (t81265 + t81304 + t81342 + t81382 + t81417 + t81455 + t81493 + t81529) * t848 / 0.2e1 - t169 * t81536 * t847 / 0.2e1 - t169 * t73442 * t1101 / 0.2e1 + t81543 * t15847 - t169 * t19675 * t3073 / 0.2e1 - t169 * t14076 * t4645 + 0.2e1 * t15846 * t55428 * t847 - t169 * t4226 * t15835 + 0.2e1 * t15846 * t9582 * t4223 - 0.3e1 * t169 * t5373 * t31214 * t847 + t169 * t19681 * t3073;
26969   t81565 = my_piecewise3(t359, t81564, t74777);
26970   t81595 = -t98 * (t77837 + t77839 + t77841 + t77843 + t81565 * t46 / 0.2e1 + t21133 * t436 / 0.2e1 + t19685 * t905 / 0.2e1 - t5378 * t4 * t377) + t75066 - 0.4e1 * t78535 + 0.2e1 * t78539 - t75431 + t15476 * t5189 / 0.3e1 + t15489 * t5189 / 0.3e1 - 0.4e1 * t78541 - t75433 - t75435 + 0.5e1 / 0.12e2 * t19560 * t74986 - 0.5e1 / 0.36e2 * t19565 * t74990 - t75437 + t5388 * t2866 + t15634 * t5189 / 0.3e1 + t15638 * t5189 / 0.3e1 + t15642 * t5189 / 0.3e1 + 0.20e2 * t78544;
26971   t81599 = t80708 + t80735 + t80769 + t80813 + t80845 + t81038 + t81064 + t81092 + t81117 + t81145 + t81160 + t81182 + t81192 + t81211 + t81226 + t81595;
26972   t81603 = t5391 * t1130;
26973   t81608 = t4678 * t1320;
26974   t81612 = t372 * t7 * t81599 + t1130 * t19721 + 0.2e1 * t1320 * t15868 + t21183 * t878 + t3144 * t5392 + t72976 + t72978 + 0.2e1 * t73644 + 0.2e1 * t73646 + t80684 + t81603 + 0.2e1 * t81608;
26975   t81615 = t1315 * t4687;
26976   t81621 = t1122 * t5399;
26977   t81624 = t368 * t21198;
26978   t81642 = t370 * t81599 * params->d + 0.3e1 * t1127 * t19732 + 0.3e1 * t21191 * t875 + 0.6e1 * t3138 * t5396 + t20112 + t5079 + t75486 + t75491 + t75494 + 0.12e2 * t77464 + 0.12e2 * t77466 + 0.12e2 * t77468 + 0.12e2 * t77472 + 0.6e1 * t77476 + 0.6e1 * t77478 + 0.12e2 * t77480 + 0.12e2 * t77483;
26979   t81647 = 0.3e1 * t3141 * t5396 + t18505 + t18508 + t20115 + t75497 + t75499 + t75501 + t75504 + t75510 + t75512 + t75526 + t75536 + t75538 + t75542 + t75545 + t75548 + 0.6e1 * t77486 + 0.6e1 * t77492;
26980   t81650 = 0.2e1 * t4679 * t4267 + 0.2e1 * t81615 + 0.2e1 * t4258 * t4687 + 0.2e1 * t1316 * t15889 + t73654 + t73656 + t81621 + t3127 * t5399 + t1123 * t19739 + t81624 + t870 * t21198 + t872 * (t81642 + t81647);
26981   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26982     v4rho2sigma2[11] = t81612 + t81650;
26983 
26984   t81659 = t4412 * t20070;
26985   t81663 = t1204 * t74227 * t928;
26986   t81666 = t5044 * t15895;
26987   t81672 = t5044 * t14713 * t4282;
26988   t81675 = t18056 * t15971;
26989   t81681 = t5044 * t15912;
26990   t81685 = t1204 * t18210 * t3249;
26991   t81688 = t14152 * t20075;
26992   t81690 = t14156 * t20075;
26993   t81692 = t56489 * t4940;
26994   t81695 = t1204 * t18205 * t3152;
26995   t81699 = t5044 * t3763 * t3155;
26996   t81703 = t1204 * t3789 * t15921;
26997   t81704 = t3788 * t81703;
26998   t81712 = 0.5e1 / 0.12e2 * t18082 * t81681 + 0.2e1 / 0.3e1 * t3788 * t81685 + 0.4e1 / 0.3e1 * t81688 + 0.4e1 / 0.3e1 * t81690 + 0.2e1 / 0.3e1 * t81692 + 0.10e2 * t13159 * t81695 - 0.5e1 / 0.72e2 * t18089 * t81699 + 0.2e1 / 0.3e1 * t81704 - 0.10e2 / 0.3e1 * t14736 * t20079 - 0.10e2 / 0.3e1 * t14858 * t20079 - 0.10e2 / 0.3e1 * t14851 * t20079;
26999   t81714 = t4412 * t20078;
27000   t81718 = t1204 * t74357 * t912;
27001   t81721 = t56597 * t4940;
27002   t81723 = t5044 * t16118;
27003   t81726 = t16220 * t4939;
27004   t81727 = t3788 * t81726;
27005   t81730 = 0.4e1 * t19959 * t1110;
27006   t81732 = t18555 * t74900 * t908;
27007   t81736 = t18560 * t74900 * t928;
27008   t81740 = t14848 * t20075;
27009   t81742 = t4412 * t20074;
27010   t81743 = t3788 * t81742;
27011   t81745 = -0.10e2 / 0.3e1 * t3762 * t81714 - 0.10e2 / 0.3e1 * t3762 * t81718 + 0.2e1 / 0.3e1 * t81721 - 0.5e1 / 0.36e2 * t18055 * t81723 + 0.2e1 / 0.3e1 * t81727 - t81730 - 0.5e1 / 0.18e2 * t18049 * t81732 - 0.5e1 / 0.18e2 * t18049 * t81736 - t3213 * t5039 + 0.4e1 / 0.3e1 * t81740 + 0.4e1 / 0.3e1 * t81743;
27012   t81748 = t908 * t908;
27013   t81751 = t4932 * t81748 * t97 * t363;
27014   t81754 = 0.4e1 * t19747;
27015   t81755 = 0.4e1 * t19749;
27016   t81756 = 0.4e1 * t19752;
27017   t81758 = t16229 * t167 * t168;
27018   t81759 = t81758 * t1192;
27019   t81762 = t68216 * t73732 * t928;
27020   t81766 = t1204 * t56659 * t1143;
27021   t81767 = t3788 * t81766;
27022   t81770 = t1204 * t929 * t4311;
27023   t81771 = t3788 * t81770;
27024   t81774 = t1204 * t14718 * t4311;
27025   t81775 = t3788 * t81774;
27026   t81778 = t12791 * t1144 * t3152;
27027   t81779 = t13159 * t81778;
27028   t81781 = 0.5e1 / 0.12e2 * t73689 * t19741 - 0.5e1 / 0.72e2 * t4929 * t81751 - t81754 - t81755 - t81756 + 0.2e1 * t81759 - 0.5e1 / 0.18e2 * t18055 * t81762 + 0.2e1 / 0.3e1 * t81767 + 0.4e1 / 0.3e1 * t81771 + 0.4e1 / 0.3e1 * t81775 + 0.20e2 * t81779;
27029   t81784 = t4412 * t19799;
27030   t81785 = t3788 * t81784;
27031   t81787 = t4412 * t19803;
27032   t81788 = t3788 * t81787;
27033   t81790 = t5044 * t15899;
27034   t81793 = t56604 * t4940;
27035   t81795 = t14848 * t19796;
27036   t81797 = t14848 * t19800;
27037   t81799 = t14848 * t19804;
27038   t81801 = t56472 * t4940;
27039   t81803 = t56668 * t4940;
27040   t81805 = t14152 * t19796;
27041   t81807 = t14152 * t19800;
27042   t81809 = 0.4e1 / 0.3e1 * t81785 + 0.4e1 / 0.3e1 * t81788 - 0.5e1 / 0.72e2 * t18055 * t81790 + 0.2e1 / 0.3e1 * t81793 + 0.4e1 / 0.3e1 * t81795 + 0.4e1 / 0.3e1 * t81797 + 0.4e1 / 0.3e1 * t81799 + 0.4e1 / 0.3e1 * t81801 + 0.4e1 / 0.3e1 * t81803 + 0.4e1 / 0.3e1 * t81805 + 0.4e1 / 0.3e1 * t81807;
27043   t81810 = t14152 * t19804;
27044   t81812 = t5044 * t15938;
27045   t81818 = t5044 * t14713 * t883;
27046   t81822 = t18543 * t14704 * t883;
27047   t81826 = t18543 * t14704 * t4282;
27048   t81830 = t18555 * t14704 * t908;
27049   t81833 = t18560 * t16112;
27050   t81837 = t12791 * t4312 * t912;
27051   t81838 = t3762 * t81837;
27052   t81841 = t12791 * t1144 * t3209;
27053   t81842 = t3762 * t81841;
27054   t81844 = t4282 * t4282;
27055   t81849 = 0.4e1 / 0.3e1 * t81810 + 0.5e1 / 0.24e2 * t18082 * t81812 - 0.5e1 / 0.36e2 * t73692 * t19755 - 0.5e1 / 0.36e2 * t18089 * t81818 + 0.5e1 / 0.6e1 * t68344 * t81822 + 0.5e1 / 0.6e1 * t68155 * t81826 + 0.5e1 / 0.6e1 * t18082 * t81830 + 0.5e1 / 0.6e1 * t18082 * t81833 - 0.20e2 / 0.3e1 * t81838 - 0.10e2 / 0.3e1 * t81842 - 0.5e1 / 0.72e2 * t1397 * t4926 * t81844 * t4936;
27056   t81853 = t4932 * t4933 * t3219 * t363;
27057   t81857 = t4932 * t4934 * t3714;
27058   t81868 = 0.6e1 * t1214 * t75024 * t4433;
27059   t81869 = t5060 * t16245;
27060   t81872 = t14736 * t19772;
27061   t81874 = t14858 * t19772;
27062   t81876 = t14851 * t19772;
27063   t81878 = -0.5e1 / 0.72e2 * t4929 * t81853 - 0.5e1 / 0.144e3 * t4929 * t81857 + t15925 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t15928 * t4944 + 0.2e1 / 0.3e1 * t15931 * t4944 + t81868 - 0.2e1 * t81869 + t5057 * t3530 - 0.20e2 / 0.3e1 * t81872 - 0.20e2 / 0.3e1 * t81874 - 0.20e2 / 0.3e1 * t81876;
27064   t81879 = t50644 * t19771;
27065   t81880 = t3762 * t81879;
27066   t81882 = t4400 * t19771;
27067   t81883 = t3762 * t81882;
27068   t81886 = t12791 * t4305 * t912;
27069   t81887 = t3762 * t81886;
27070   t81891 = 0.2e1 * t1214 * t19931 * t2850;
27071   t81893 = 0.4e1 * t4431 * t20067;
27072   t81897 = t449 * t4391 * t4311;
27073   t81900 = t18543 * t73723 * t4282;
27074   t81904 = t18555 * t73723 * t908;
27075   t81908 = t18560 * t73723 * t928;
27076   t81914 = -0.20e2 / 0.3e1 * t81880 - 0.20e2 / 0.3e1 * t81883 - 0.20e2 / 0.3e1 * t81887 - t81891 + t81893 - 0.2e1 * t916 * t19953 - 0.8e1 * t81897 - 0.5e1 / 0.18e2 * t68227 * t81900 - 0.5e1 / 0.18e2 * t18089 * t81904 - 0.5e1 / 0.18e2 * t18089 * t81908 - 0.5e1 / 0.144e3 * t36282 * t4928 * t4936;
27077   t81936 = t4967 * t3323;
27078   t81963 = -0.16e2 * t69081 * t14262 * t16315 - 0.4e1 * t18269 * t18275 * t4967 * t3347 * t265 + 0.24e2 * t69253 * t69254 * t16297 - t69103 * t210 * t276 * t277 * t3376 / 0.128e3 - 0.4e1 * t18269 * t18275 * t81936 * t265 - t18225 * t18226 * t18227 * t3353 / 0.768e3 + 0.12e2 * t18269 * t69118 * t81936 * t1672 + 0.8e1 * t69039 * t16316 + t69129 - t74425 / 0.576e3 - 0.8e1 * t18261 * t18281 * t16297 - t74625 * t19860 / 0.576e3 + t18312 * t18299 * t3363 / 0.576e3 + t18298 * t18299 * t3354 / 0.384e3;
27079   t81991 = t4325 * t4325;
27080   t82011 = -t74440 / 0.864e3 - t18225 * t18226 * t18227 * t3348 / 0.768e3 - t4962 * t533 * t474 * t570 * t3392 / 0.768e3 - t74473 / 0.576e3 + t69173 * t2578 * t74453 * t932 / 0.288e3 - t69161 * t69162 * t3330 / 0.576e3 - t18241 * t18226 * t18242 * t3258 / 0.576e3 + t18241 * t18226 * t18242 * t3262 / 0.1152e4 - t74486 / 0.576e3 - 0.4e1 * t1159 * t81991 * t1162 * t4970 - 0.24e2 * t18269 * t18270 * t4332 * t4325 + t74534 / 0.288e3 + t18298 * t18299 * t3349 / 0.384e3 + t4962 * t533 * t474 * t1734 * t3376 / 0.384e3 - 0.8e1 * t74416 * t19842;
27081   t82014 = t4973 * t3371 * t4976;
27082   t82061 = 0.2e1 * t82014 * t4981 + t18290 * t210 * t276 * t277 * t3392 / 0.384e3 + t69051 * t18226 * t18227 * t3324 / 0.384e3 + 0.4e1 * t18269 * t18281 * t1156 * t16275 - 0.4e1 * t18253 * t16327 + 0.16e2 * t69039 * t16302 - t82014 * t4985 * t4989 / 0.768e3 + 0.4e1 * t4977 * t4979 * t527 * t81991 - t18241 * t1684 * t69218 * t886 * t979 / 0.576e3 + 0.8e1 * t74416 * t19846 - t18312 * t18299 * t3367 / 0.1152e4 - 0.5e1 / 0.3456e4 * t18312 * t18299 * t3359 + t74507 * t19857 / 0.192e3 + t69272 * t2578 * t39427 * t10665 / 0.288e3 + t74593 / 0.864e3;
27083   t82108 = -0.12e2 * t4969 * t69259 * t267 * t3376 - 0.4e1 * t18261 * t12899 * t3324 + t74599 / 0.288e3 + 0.2e1 * t18261 * t3858 * t3353 + 0.24e2 * t18269 * t69300 * t4967 * t3376 + 0.5e1 / 0.3456e4 * t18241 * t18226 * t69266 * t3254 + 0.4e1 * t4969 * t18256 * t267 * t3392 + t74481 * t19854 / 0.192e3 - 0.6e1 * t18269 * t18270 * t4967 * t3392 + 0.2e1 * t18261 * t3858 * t3348 - t69226 * t18299 * t3325 / 0.128e3 - 0.12e2 * t74416 * t19837 - t69167 * t2578 * t19852 * t963 / 0.96e2 - t69299 + t18225 * t4988 * t74495 * t265 * t979 / 0.384e3;
27084   t82121 = t4343 * t4343;
27085   t82141 = t18335 * t16021;
27086   t82149 = t18123 * t2746 * t68861 * t3503;
27087   t82153 = t18123 * t1905 * t18112 * t3448;
27088   t82157 = t18123 * t2746 * t18128 * t3519;
27089   t82164 = t5007 * t3453;
27090   t82169 = t5117 * t16072;
27091   t82172 = t18177 * t3481;
27092   t82174 = t18177 * t3486;
27093   t82177 = t18177 * t68761 * t3461;
27094   t82179 = t19916 * t19927;
27095   t82181 = t999 * t1030;
27096   t82184 = t18123 * t1905 * t18128 * t82181;
27097   t82186 = t4359 * t4359;
27098   t82193 = t18111 * t2746 * t18112 * t3484;
27099   t82197 = t18111 * t2746 * t18112 * t3479;
27100   t82199 = t82149 / 0.768e3 - t82153 / 0.384e3 - t82157 / 0.1536e4 - 0.4e1 * t5116 * t18155 * t5007 * t3478 * t194 + 0.12e2 * t5116 * t68934 * t82164 * t1892 - 0.8e1 * t18142 * t82169 + t82172 / 0.768e3 + t82174 / 0.768e3 - t82177 / 0.96e2 + t82179 / 0.192e3 + t82184 / 0.192e3 + 0.4e1 * t5014 * t5015 * t694 * t82186 - t82193 / 0.1536e4 - t82197 / 0.1536e4;
27101   t82203 = t68837 * t207 * t209 * t103 * t3503;
27102   t82205 = t4973 * t3498;
27103   t82206 = t82205 * t4976;
27104   t82208 = t82206 * t5021 * t211;
27105   t82210 = t74150 * t19921;
27106   t82218 = t5022 * t18182 * t209 * t10150;
27107   t82221 = t68828 * t196 * t3503;
27108   t82226 = t68881 * t2746 * t18112 * t3454;
27109   t82231 = t18169 * t207 * t209 * t103 * t3519;
27110   t82233 = -t82203 / 0.256e3 - t82208 / 0.1536e4 - t76247 + t82210 / 0.384e3 + t76248 - 0.4e1 * t18134 * t16102 + 0.2e1 * t82206 * t5017 + t76257 + t82218 / 0.384e3 - 0.12e2 * t5009 * t82221 + t82226 / 0.768e3 + t82231 / 0.768e3 - t68740 + t76270;
27111   t82251 = t68771 * t726 * t532 * t82181;
27112   t82253 = t73983 * t1016;
27113   t82256 = t18137 * t196 * t3519;
27114   t82271 = 0.8e1 * t68825 * t16091 - 0.8e1 * t20319 * t19909 + 0.24e2 * t68725 * t68726 * t16072 - 0.16e2 * t18596 * t14401 * t16090 - t76271 + t76272 - 0.4e1 * t5116 * t18155 * t82164 * t194 + t68752 - t82251 / 0.96e2 + t82253 / 0.384e3 + 0.4e1 * t5009 * t82256 + 0.4e1 * t5116 * t5117 * t1181 * t16050 - 0.24e2 * t5116 * t18150 * t4366 * t4359 + 0.24e2 * t5116 * t68925 * t5007 * t3503;
27115   t82274 = t3911 * t3484;
27116   t82281 = t68812 * t3456;
27117   t82283 = t3911 * t3479;
27118   t82290 = t68796 * t210 * t73939 * t3460;
27119   t82295 = t68803 * t210 * t73934 * t194 * t1030;
27120   t82299 = t5022 * t68873 * t209 * t10145;
27121   t82301 = t13026 * t3454;
27122   t82308 = t18123 * t6301 * t18112 * t3427;
27123   t82312 = t68754 * t68755 * t19919 * t1014;
27124   t82318 = 0.8e1 * t20319 * t19913 + 0.2e1 * t18142 * t82274 - t76288 - 0.6e1 * t5116 * t18150 * t5007 * t3519 - t82281 / 0.256e3 + 0.2e1 * t18142 * t82283 - 0.12e2 * t20319 * t19904 + t82290 / 0.192e3 + t82295 / 0.768e3 - 0.5e1 / 0.384e3 * t82299 - 0.4e1 * t18142 * t82301 + 0.16e2 * t68825 * t16077 + 0.5e1 / 0.384e3 * t82308 - t82312 / 0.192e3 - 0.4e1 * t1159 * t82186 * t1162 * t5010;
27125   t82322 = t175 * (t82199 + t82233 + t82271 + t82318) * t748;
27126   t82335 = t999 * t4377;
27127   t82336 = t3923 * t82335;
27128   t82339 = t18345 * t16021;
27129   t82345 = t4377 * t4377;
27130   t82347 = t175 * t82345 * t2093;
27131   t82350 = t4377 * t1033;
27132   t82351 = t13055 * t82350;
27133   t82363 = -0.2e1 * t1033 * t2849 * t74726 - 0.2e1 * t16104 * t2849 * t3923 + 0.3e1 * t1768 * t18330 * t3448 - 0.3e1 * t1768 * t18338 * t3448 + 0.6e1 * t1768 * t74721 * t999 + 0.6e1 * t18330 * t2857 * t3427 - t18335 * t2849 * t3522 - 0.6e1 * t18338 * t2857 * t3427 + 0.2e1 * t18345 * t2849 * t3522 + 0.2e1 * t2849 * t3431 * t69373 - 0.6e1 * t2849 * t3431 * t69396 + t169 * t82322 - 0.2e1 * t169 * t82347 - 0.6e1 * t1768 * t82141 - 0.12e2 * t1768 * t82336 + 0.12e2 * t1768 * t82339 + 0.8e1 * t2849 * t82351;
27134   t82364 = my_piecewise3(t296, t169 * (t81963 + t82011 + t82061 + t82108) * t581 / 0.2e1 - t169 * t74680 * t982 + t169 * t69335 * t3399 - t169 * t18320 * t3395 / 0.2e1 - t169 * t82121 * t1763 + 0.4e1 * t14302 * t51229 * t982 - t169 * t3869 * t16329 - 0.3e1 * t169 * t69349 * t3399 + t169 * t18326 * t3395, t82363);
27135   t82370 = my_piecewise3(t359, 0, t82363);
27136   t82372 = t82370 * t46 / 0.2e1;
27137   t82373 = t19949 * t905;
27138   t82375 = t5036 * t3202 / 0.2e1;
27139   t82379 = t1204 * t3223 * t1143;
27140   t82380 = t3788 * t82379;
27141   t82382 = t5060 * t16031;
27142   t82384 = t20053 * t4434;
27143   t82388 = 0.2e1 * t1214 * t1191 * t57468;
27144   t82391 = 0.2e1 * t1214 * t5030 * t35097;
27145   t82393 = 0.6e1 * t4431 * t19784;
27146   t82396 = 0.6e1 * t1214 * t69019 * t16241;
27147   t82398 = 0.6e1 * t4431 * t20035;
27148   t82402 = 0.3e1 * t1214 * t18439 * t16027;
27149   t82404 = 0.2e1 * t15998 * t4955;
27150   t82406 = 0.4e1 * t4302 * t19751;
27151   t82407 = t5060 * t16236;
27152   t82416 = t66 * t4287 * t4391;
27153   t82420 = t66 * t1136 * t16374;
27154   t82423 = t883 * t883;
27155   t82429 = t1204 * t18205 * t3209;
27156   t82432 = t82402 - t82404 - t82406 + 0.4e1 * t82407 + 0.2e1 / 0.3e1 * t4269 * t20041 + 0.2e1 / 0.3e1 * t4277 * t20041 + 0.2e1 / 0.3e1 * t4284 * t20041 + 0.2e1 / 0.3e1 * t1135 * t82416 + t1135 * t82420 / 0.3e1 - 0.5e1 / 0.72e2 * t1397 * t82423 * t4927 * t4936 - 0.5e1 / 0.3e1 * t3762 * t82429;
27157   t82435 = t5044 * t3763 * t15947;
27158   t82448 = 0.2e1 * t3212 * t4947 * t363;
27159   t82450 = t66 * t15970 * t1199;
27160   t82454 = 0.2e1 * t9866 * t4955;
27161   t82458 = t66 * t16247 * t1199;
27162   t82461 = t5060 * t15960;
27163   t82463 = -0.5e1 / 0.72e2 * t18049 * t82435 + 0.2e1 / 0.3e1 * t4277 * t20030 + t15949 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t4284 * t20030 + 0.2e1 / 0.3e1 * t4269 * t20030 - t82448 + t1135 * t82450 / 0.3e1 - t82454 - 0.2e1 * t3220 * t5039 + 0.2e1 / 0.3e1 * t1135 * t82458 - 0.4e1 * t82461;
27164   t82465 = t12791 * t4316 * t912;
27165   t82468 = t5060 * t16242;
27166   t82471 = 0.2e1 * t4948 * t3714;
27167   t82472 = t4311 * t4311;
27168   t82475 = 0.4e1 * t82 * t82472 * t363;
27169   t82479 = 0.8e1 * t5097 * t16003;
27170   t82480 = t2442 * t19744;
27171   t82484 = 0.2e1 * t449 * t3714 * t4954;
27172   t82489 = 0.6e1 * t13345 * t82141;
27173   t82490 = -0.20e2 / 0.3e1 * t3762 * t82465 + 0.12e2 * t82468 - t82471 - t82475 - t4957 - 0.4e1 * t2442 * t19787 - t82479 - 0.8e1 * t82480 - t82484 - 0.2e1 * t449 * t5039 * t3249 - t82489;
27174   t82494 = 0.4e1 * t16016 * t4955;
27175   t82496 = 0.4e1 * t2442 * t19751;
27176   t82498 = t1204 * t3250 * t1143;
27177   t82499 = t3788 * t82498;
27178   t82502 = t449 * t1199 * t15921;
27179   t82505 = 0.12e2 * t13345 * t82336;
27180   t82511 = t1214 * t5026 * t10242;
27181   t82512 = t16016 * t4951;
27182   t82514 = t15998 * t4951;
27183   t82516 = t4302 * t19778;
27184   t82518 = -t82494 - t82496 + 0.2e1 / 0.3e1 * t82499 - 0.4e1 * t82502 - t82505 + t15980 * t4944 / 0.3e1 + 0.2e1 / 0.3e1 * t15984 * t4944 - t82511 - 0.8e1 * t82512 - 0.4e1 * t82514 - 0.8e1 * t82516;
27185   t82522 = t1214 * t82322;
27186   t82523 = t20053 * t4379;
27187   t82527 = 0.2e1 * t1214 * t5026 * t9934;
27188   t82528 = t2093 * t3448;
27189   t82531 = 0.3e1 * t1214 * t18218 * t82528;
27190   t82533 = 0.8e1 * t14484 * t82351;
27191   t82534 = t20053 * t4438;
27192   t82537 = 0.12e2 * t13345 * t82339;
27193   t82538 = t2442 * t19778;
27194   t82541 = t449 * t16374 * t1143;
27195   t82543 = t4302 * t19744;
27196   t82545 = -0.4e1 * t19953 * t449 * t928 + t82522 + 0.4e1 * t82523 + t82527 - t82531 + t82533 - 0.4e1 * t82534 + t82537 - 0.8e1 * t82538 - 0.4e1 * t82541 - 0.8e1 * t82543;
27197   t82548 = 0.4e1 * t5097 * t15922;
27198   t82550 = 0.8e1 * t20281 * t4312;
27199   t82552 = 0.4e1 * t81 * t82472;
27200   t82554 = t66 * t18388 * t3152;
27201   t82555 = t47508 * t82554;
27202   t82558 = 0.2e1 * t3149 * t4947;
27203   t82560 = t4932 * t75135 * t4282;
27204   t82563 = t19992 * t19997;
27205   t82565 = t5044 * t3152;
27206   t82569 = 0.4e1 * t20016;
27207   t82570 = 0.4e1 * t20022;
27208   t82571 = t75109 * t19988;
27209   t82573 = t52052 * t19988;
27210   t82575 = t52056 * t19988;
27211   t82579 = 0.32e2 * t400 * t14586 * t4311;
27212   t82581 = 0.16e2 * t2378 * t20018;
27213   t82584 = 0.16e2 * t400 * t20021 * t912;
27214   t82587 = 0.8e1 * t400 * t5054 * t3209;
27215   t82589 = t66 * t75179 * t912;
27216   t82590 = t13245 * t82589;
27217   t82593 = t66 * t18388 * t3209;
27218   t82594 = t13245 * t82593;
27219   t82596 = t82552 - 0.20e2 * t82555 + t82558 + 0.5e1 / 0.18e2 * t68483 * t82560 + t5056 - 0.4e1 / 0.3e1 * t82563 + 0.35e2 / 0.24e2 * t68542 * t5043 * t82565 + t82569 + t82570 + 0.20e2 / 0.3e1 * t82571 + 0.20e2 / 0.3e1 * t82573 + 0.20e2 / 0.3e1 * t82575 - t82579 - t82581 - t82584 - t82587 + 0.20e2 / 0.3e1 * t82590 + 0.10e2 / 0.3e1 * t82594;
27220   t82598 = t4932 * t75229 * t908;
27221   t82602 = t4932 * t75085 * t908;
27222   t82605 = t52366 * t19988;
27223   t82608 = t4932 * t14510 * t908;
27224   t82612 = t4932 * t75122 * t4282;
27225   t82615 = t16220 * t1143;
27226   t82617 = t3945 * t1203 * t82615;
27227   t82619 = t4412 * t4311;
27228   t82621 = t3945 * t1203 * t82619;
27229   t82623 = t18056 * t3205;
27230   t82627 = t58267 * t5049;
27231   t82629 = t2378 * t19991;
27232   t82630 = t82629 * t5049;
27233   t82632 = t58273 * t5049;
27234   t82635 = t400 * t928 * t883;
27235   t82636 = t82635 * t5049;
27236   t82639 = t66 * t75117 * t912;
27237   t82640 = t13245 * t82639;
27238   t82643 = t4932 * t75198 * t4282;
27239   t82647 = t4932 * t14501 * t908;
27240   t82652 = 0.2e1 * t81 * t3249 * t4954;
27241   t82654 = 0.4e1 * t881 * t20021;
27242   t82659 = 0.5e1 / 0.18e2 * t68502 * t82598 + 0.5e1 / 0.18e2 * t68509 * t82602 + 0.20e2 / 0.3e1 * t82605 + 0.5e1 / 0.18e2 * t68489 * t82608 + 0.5e1 / 0.18e2 * t68495 * t82612 - 0.2e1 / 0.3e1 * t82617 - 0.4e1 / 0.3e1 * t82621 + 0.5e1 / 0.72e2 * t5042 * t5043 * t82623 - 0.2e1 / 0.3e1 * t82627 - 0.4e1 / 0.3e1 * t82630 - 0.4e1 / 0.3e1 * t82632 - 0.4e1 / 0.3e1 * t82636 + 0.20e2 / 0.3e1 * t82640 - 0.5e1 / 0.6e1 * t68590 * t82643 - 0.5e1 / 0.6e1 * t68596 * t82647 + t82652 + t82654 - 0.5e1 / 0.12e2 * t75221 * t19966 + 0.5e1 / 0.36e2 * t75224 * t19970;
27243   t82665 = 0.16e2 * t20019;
27244   t82667 = t4932 * t75135 * t883;
27245   t82671 = 0.16e2 * t2378 * t20010;
27246   t82673 = 0.8e1 * t881 * t20013;
27247   t82674 = t1204 * t15921;
27248   t82676 = t3945 * t1203 * t82674;
27249   t82678 = t5044 * t3249;
27250   t82682 = t5044 * t3155;
27251   t82686 = t5044 * t15947;
27252   t82692 = 0.40e2 * t1397 * t5054 * t3152;
27253   t82695 = 0.8e1 * t400 * t4947 * t3209;
27254   t82696 = t19992 * t20001;
27255   t82698 = t19992 * t20005;
27256   t82700 = t58280 * t5049;
27257   t82702 = t14645 * t19997;
27258   t82704 = t14645 * t20001;
27259   t82706 = t14645 * t20005;
27260   t82708 = 0.5e1 / 0.36e2 * t14662 * t19974 + 0.5e1 / 0.36e2 * t19962 * t19978 - t82665 + 0.5e1 / 0.18e2 * t68602 * t82667 - t82671 + t82673 - 0.2e1 / 0.3e1 * t82676 + 0.5e1 / 0.72e2 * t18368 * t5043 * t82678 + 0.5e1 / 0.72e2 * t3939 * t5043 * t82682 + 0.5e1 / 0.72e2 * t5042 * t18377 * t82686 + t82692 - t82695 - 0.4e1 / 0.3e1 * t82696 - 0.4e1 / 0.3e1 * t82698 - 0.2e1 / 0.3e1 * t82700 - 0.4e1 / 0.3e1 * t82702 - 0.4e1 / 0.3e1 * t82704 - 0.4e1 / 0.3e1 * t82706;
27261   t82710 = t3945 * t16213 * t5048;
27262   t82713 = t3945 * t4408 * t20000;
27263   t82715 = t14614 * t19997;
27264   t82717 = t14614 * t20001;
27265   t82719 = t14614 * t20005;
27266   t82722 = t400 * t3249 * t25;
27267   t82723 = t82722 * t5049;
27268   t82727 = t5044 * t3209;
27269   t82732 = t3945 * t4408 * t20004;
27270   t82735 = t1397 * t3219 * t4926;
27271   t82739 = t1397 * t97 * t82423;
27272   t82746 = t4931 * t81748;
27273   t82750 = t36282 * t5041;
27274   t82754 = t4932 * t75198 * t928;
27275   t82758 = t4932 * t75198 * t883;
27276   t82763 = 0.40e2 * t1397 * t4947 * t3152;
27277   t82766 = 0.4e1 * t81 * t1143 * t15921;
27278   t82768 = 0.2e1 * t3149 * t5054;
27279   t82769 = -0.2e1 / 0.3e1 * t82710 - 0.4e1 / 0.3e1 * t82713 - 0.4e1 / 0.3e1 * t82715 - 0.4e1 / 0.3e1 * t82717 - 0.4e1 / 0.3e1 * t82719 - 0.2e1 / 0.3e1 * t82723 + 0.5e1 / 0.36e2 * t19962 * t19982 - 0.5e1 / 0.24e2 * t18362 * t5043 * t82727 - 0.4e1 / 0.3e1 * t82732 + 0.5e1 / 0.72e2 * t82735 * t5045 + 0.5e1 / 0.72e2 * t82739 * t5045 + 0.5e1 / 0.72e2 * t5042 * t81844 * t114 * t5044 + 0.5e1 / 0.72e2 * t5042 * t5043 * t82746 + 0.5e1 / 0.144e3 * t82750 * t5045 - 0.5e1 / 0.6e1 * t68456 * t82754 - 0.5e1 / 0.6e1 * t68585 * t82758 + t82763 + t82766 + t82768;
27280   t82774 = 0.4e1 * t4431 * t19768;
27281   t82775 = t5060 * t16106;
27282   t82777 = t2093 * t3427;
27283   t82780 = 0.6e1 * t1214 * t68399 * t82777;
27284   t82781 = t68373 * t16022;
27285   t82783 = t16232 * t5031;
27286   t82784 = t16232 * t5027;
27287   t82785 = t5060 * t16028;
27288   t82788 = 0.2e1 * t4431 * t19932;
27289   t82789 = -t82548 - t82550 + (t82596 + t82659 + t82708 + t82769) * t227 - t82774 + 0.2e1 * t82775 - t82780 - 0.12e2 * t82781 - t82783 + t82784 + 0.6e1 * t82785 + t82788;
27290   t82791 = 0.2e1 * t1214 * t82347;
27291   t82796 = t18056 * t15975;
27292   t82799 = t56496 * t4940;
27293   t82801 = t14156 * t19796;
27294   t82803 = t14156 * t19800;
27295   t82805 = t14156 * t19804;
27296   t82807 = t9866 * t4951;
27297   t82811 = 0.6e1 * t1214 * t5030 * t34959;
27298   t82813 = 0.2e1 * t4431 * t20065;
27299   t82814 = -t82791 + 0.2e1 * t20024 * t1037 - 0.5e1 / 0.36e2 * t74362 * t19762 - 0.5e1 / 0.36e2 * t18055 * t82796 + 0.4e1 / 0.3e1 * t82799 + 0.4e1 / 0.3e1 * t82801 + 0.4e1 / 0.3e1 * t82803 + 0.4e1 / 0.3e1 * t82805 - 0.4e1 * t82807 - t82811 - t82813;
27300   t82818 = t82814 + t82789 + t82545 + t82518 + t82490 + t82463 + t82432 + t82398 - t82393 + t82396 - t82388 + t82391 + 0.12e2 * t82382 + 0.12e2 * t82384 + 0.4e1 / 0.3e1 * t82380 + t81914 + t81878 + t81849 + t81809 + t81781 + t81745 + t81712 + 0.4e1 / 0.3e1 * t14152 * t20071 + 0.4e1 / 0.3e1 * t14156 * t20071 + 0.4e1 / 0.3e1 * t14848 * t20071 + 0.4e1 / 0.3e1 * t3788 * t81659 + 0.4e1 / 0.3e1 * t3788 * t81663 - 0.35e2 / 0.24e2 * t68693 * t81666 - 0.5e1 / 0.36e2 * t73695 * t19759 - 0.5e1 / 0.36e2 * t18049 * t81672 - t98 * (t82364 * t34 / 0.2e1 + t19946 * t886 + t5034 * t3196 / 0.2e1 + t82372 + t82373 + t82375) - 0.5e1 / 0.72e2 * t20058 * t20062 - 0.5e1 / 0.72e2 * t18055 * t81675 - 0.5e1 / 0.36e2 * t74362 * t19765;
27301   t82839 = 0.6e1 * t369 * t3219 * t4954;
27302   t82840 = t1219 * t16403;
27303   t82844 = 0.6e1 * t369 * t3249 * t4947;
27304   t82847 = 0.6e1 * t369 * t5054 * t3249;
27305   t82849 = 0.12e2 * t1125 * t20113;
27306   t82852 = 0.12e2 * t369 * t1208 * t15921;
27307   t82853 = t1219 * t16409;
27308   t82856 = 0.6e1 * t3745 * t5074;
27309   t82857 = t4445 * t4454;
27310   t82861 = t1219 * t16412;
27311   t82863 = 0.3e1 * t3752 * t5070 + t5079 + t82839 + 0.12e2 * t82840 + t82844 + t82847 + t82849 + t82852 + 0.12e2 * t82853 + t82856 + 0.12e2 * t82857 + 0.6e1 * t82861;
27312   t82866 = 0.12e2 * t369 * t96 * t82472;
27313   t82867 = t4445 * t4451;
27314   t82870 = 0.3e1 * t3745 * t5077;
27315   t82871 = t1219 * t16406;
27316   t82873 = 0.6e1 * t20111;
27317   t82880 = 0.24e2 * t369 * t4421 * t4311;
27318   t82882 = 0.24e2 * t1125 * t20108;
27319   t82884 = 0.12e2 * t1125 * t20105;
27320   t82887 = t16389 * t1221;
27321   t82889 = 0.12e2 * t20114;
27322   t82890 = t370 * t82818 * params->d + 0.6e1 * t1127 * t20093 + 0.6e1 * t3749 * t5070 + t82866 + 0.24e2 * t82867 + t82870 + 0.24e2 * t82871 + t82873 + t82880 + t82882 + t82884 + 0.6e1 * t82887 + t82889;
27323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27324     v4rho2sigma2[12] = 0.2e1 * t73680 + 0.2e1 * t75458 + t7 * t82818 * t372 + 0.2e1 * t20085 * t1130 + t5066 * t3755 + 0.4e1 * t75463 + 0.4e1 * t75470 + 0.2e1 * t16379 * t1224 + 0.4e1 * t4441 * t4457 + 0.2e1 * t1217 * t16415 + 0.2e1 * t75476 + 0.2e1 * t75479 + t3741 * t5080 + 0.2e1 * t1123 * t20116 + t872 * (t82863 + t82890);
27325 
27326   t82894 = 0.12e2 * t4568 * t4451;
27327   t82897 = 0.6e1 * t369 * t1258 * t15921;
27328   t82899 = 0.12e2 * t1267 * t16406;
27329   t82901 = 0.6e1 * t1267 * t16409;
27330   t82907 = 0.3e1 * t1267 * t16412;
27331   t82911 = 0.6e1 * t4568 * t4454;
27332   t82915 = 0.12e2 * t1125 * t20448;
27333   t82916 = 0.6e1 * t1127 * t20430 + 0.3e1 * t1219 * t16764 + 0.3e1 * t1269 * t16389 + 0.3e1 * t3752 * t5166 + t5079 + t82839 + t82847 + t82849 + t82870 + t82873 + t82894 + t82897 + t82899 + t82901 + t82907 + t82911 + t82915;
27334   t82922 = t12791 * t4484 * t912;
27335   t82926 = 0.20e2 / 0.3e1 * t4013 * t81879;
27336   t82930 = 0.4e1 * t2442 * t20409;
27337   t82932 = 0.2e1 * t15998 * t5107;
27338   t82934 = 0.4e1 * t4302 * t20259;
27339   t82939 = 0.4e1 * t20284 * t4484;
27340   t82941 = 0.2e1 * t5097 * t16709;
27341   t82945 = t18543 * t76421 * t912;
27342   t82949 = t18543 * t18544 * t3209;
27343   t82953 = t12791 * t1232 * t3209;
27344   t82957 = 0.20e2 / 0.3e1 * t4013 * t81837;
27345   t82958 = 0.5e1 / 0.18e2 * t5084 * t81732 + 0.5e1 / 0.18e2 * t5084 * t81736 - 0.10e2 / 0.3e1 * t3762 * t82922 + t82926 - 0.10e2 / 0.27e2 * t75563 + 0.16e2 / 0.9e1 * t75582 - t82930 - t82932 - t82934 - 0.2e1 * t449 * t1199 * t16563 - t82939 - t82941 - 0.5e1 / 0.6e1 * t76655 * t20231 - 0.5e1 / 0.6e1 * t18542 * t82945 - 0.5e1 / 0.12e2 * t18542 * t82949 - 0.5e1 / 0.3e1 * t3762 * t82953 + t82957;
27346   t82960 = 0.10e2 / 0.3e1 * t4013 * t81841;
27347   t82962 = t66 * t16247 * t1252;
27348   t82977 = t4412 * t20118;
27349   t82981 = t1204 * t75628 * t928;
27350   t82985 = t1204 * t18732 * t3249;
27351   t82990 = t915 * t4311;
27352   t82992 = 0.4e1 * t82990 * t1232;
27353   t82995 = t82960 + t1135 * t82962 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t82458 + 0.6e1 * t5060 * t16624 - t81754 - t81755 - t81756 + 0.5e1 / 0.3e1 * t4013 * t82429 + 0.2e1 / 0.3e1 * t14152 * t20119 + 0.2e1 / 0.3e1 * t14156 * t20119 + 0.2e1 / 0.3e1 * t14848 * t20119 + 0.2e1 / 0.3e1 * t3788 * t82977 + 0.2e1 / 0.3e1 * t3788 * t82981 + t3788 * t82985 / 0.3e1 - 0.5e1 / 0.3e1 * t14736 * t20123 - t82992 - 0.2e1 / 0.3e1 * t4026 * t81685;
27354   t83007 = t18555 * t18544 * t3205;
27355   t83011 = t18543 * t18544 * t3152;
27356   t83015 = t12791 * t1232 * t3152;
27357   t83019 = 0.4e1 / 0.3e1 * t4026 * t81787;
27358   t83023 = 0.4e1 / 0.3e1 * t14972 * t20075;
27359   t83025 = 0.4e1 / 0.3e1 * t4026 * t81742;
27360   t83028 = 0.4e1 * t4302 * t20409;
27361   t83030 = 0.6e1 * t4431 * t20406;
27362   t83035 = t4412 * t20122;
27363   t83038 = 0.5e1 / 0.36e2 * t1397 * t82423 * t57 * t114 * t5086 + 0.10e2 / 0.3e1 * t14967 * t20079 - 0.4e1 / 0.3e1 * t14972 * t20071 + 0.5e1 / 0.36e2 * t5084 * t83007 + 0.35e2 / 0.12e2 * t70567 * t83011 + 0.10e2 * t13159 * t83015 - t83019 + 0.2e1 / 0.3e1 * t14156 * t20140 - t83023 - t83025 - t69680 + 0.16e2 / 0.9e1 * t75707 - t83028 + t83030 - 0.5e1 / 0.3e1 * t14858 * t20123 - 0.5e1 / 0.3e1 * t14851 * t20123 - 0.5e1 / 0.3e1 * t3762 * t83035;
27364   t83040 = t1204 * t76036 * t912;
27365   t83053 = t82746 * t5085;
27366   t83057 = t1204 * t18727 * t3152;
27367   t83062 = 0.6e1 * t1214 * t77261 * t4433;
27368   t83066 = t1204 * t3223 * t1231;
27369   t83080 = t18543 * t76421 * t883;
27370   t83084 = -0.5e1 / 0.3e1 * t3762 * t83040 + 0.5e1 / 0.36e2 * t20345 * t19759 + 0.5e1 / 0.36e2 * t5084 * t81672 + t56604 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t14848 * t20132 + 0.2e1 / 0.3e1 * t14848 * t20136 + 0.5e1 / 0.36e2 * t5084 * t83053 + 0.5e1 * t13159 * t83057 + t83062 + 0.2e1 / 0.3e1 * t14152 * t20353 + 0.2e1 / 0.3e1 * t3788 * t83066 + t56489 * t5094 / 0.3e1 + 0.10e2 / 0.3e1 * t4013 * t81718 - 0.4e1 / 0.3e1 * t4026 * t81663 - 0.10e2 * t13415 * t81695 + 0.5e1 / 0.18e2 * t76022 * t20235 + 0.5e1 / 0.18e2 * t18550 * t83080 - t5060 * t16617;
27371   t83089 = 0.6e1 * t1214 * t69850 * t16241;
27372   t83091 = t18543 * t18544 * t3155;
27373   t83097 = t18555 * t76421 * t908;
27374   t83105 = 0.4e1 / 0.3e1 * t14972 * t19796;
27375   t83107 = 0.4e1 / 0.3e1 * t14972 * t19800;
27376   t83111 = 0.2e1 * t4431 * t20399;
27377   t83114 = 0.20e2 / 0.3e1 * t14975 * t19772;
27378   t83118 = t1204 * t3789 * t16563;
27379   t83125 = t83089 + 0.5e1 / 0.36e2 * t18550 * t83091 + 0.5e1 / 0.18e2 * t20345 * t20239 + 0.5e1 / 0.18e2 * t5084 * t83097 - 0.4e1 / 0.3e1 * t14978 * t20071 + 0.2e1 / 0.3e1 * t56496 * t5094 - t83105 - t83107 + 0.16e2 / 0.9e1 * t75781 - 0.10e2 / 0.27e2 * t75784 - t83111 + 0.32e2 / 0.9e1 * t75798 + t83114 + 0.2e1 / 0.3e1 * t14848 * t20140 + t3788 * t83118 / 0.3e1 + 0.2e1 / 0.3e1 * t14156 * t20132 + 0.2e1 / 0.3e1 * t14156 * t20136;
27380   t83127 = t1204 * t3250 * t1231;
27381   t83131 = 0.4e1 / 0.3e1 * t14978 * t19800;
27382   t83133 = 0.4e1 / 0.3e1 * t14978 * t19804;
27383   t83135 = 0.2e1 / 0.3e1 * t59449 * t4940;
27384   t83137 = 0.4e1 / 0.3e1 * t59434 * t4940;
27385   t83139 = 0.4e1 / 0.3e1 * t14978 * t19796;
27386   t83143 = t1204 * t56659 * t1231;
27387   t83147 = t5044 * t56609 * t1133;
27388   t83151 = 0.2e1 * t5155 * t15960;
27389   t83155 = 0.12e2 * t13345 * t13542 * t20269 * t999;
27390   t83160 = t3212 * t1143;
27391   t83162 = 0.2e1 * t83160 * t1232;
27392   t83164 = 0.2e1 * t9866 * t5107;
27393   t83167 = 0.2e1 * t449 * t16692 * t1143;
27394   t83168 = t3788 * t83127 / 0.3e1 - t83131 - t83133 - t83135 - t83137 - t83139 + 0.5e1 / 0.72e2 * t5084 * t82435 + t3788 * t83143 / 0.3e1 + 0.5e1 / 0.36e2 * t5084 * t83147 - t83151 + t83155 + t15980 * t5104 / 0.6e1 + t15984 * t5104 / 0.3e1 - t83162 + t69839 - t83164 - t83167;
27395   t83171 = 0.6e1 * t70029 * t16022;
27396   t83173 = 0.2e1 * t5097 * t16654;
27397   t83176 = 0.2e1 / 0.3e1 * t4026 * t81703;
27398   t83183 = 0.2e1 / 0.3e1 * t4026 * t82498;
27399   t83185 = 0.4e1 / 0.3e1 * t4026 * t82379;
27400   t83189 = 0.6e1 * t20294 * t4434;
27401   t83197 = t18560 * t76421 * t928;
27402   t83201 = 0.20e2 / 0.3e1 * t14967 * t19772;
27403   t83206 = -t83171 - t83173 - 0.20e2 / 0.27e2 * t75889 - t83176 + 0.5e1 / 0.72e2 * t36282 * t5083 * t5086 + 0.5e1 / 0.36e2 * t20345 * t20349 - t83183 - t83185 + t4277 * t20298 / 0.3e1 + t83189 - 0.6e1 * t68373 * t16611 - 0.4e1 * t16016 * t5100 + 0.5e1 / 0.18e2 * t20345 * t20243 + 0.5e1 / 0.18e2 * t5084 * t83197 + t83201 - 0.10e2 / 0.3e1 * t14736 * t20226 - 0.10e2 / 0.3e1 * t14858 * t20226;
27404   t83209 = t50644 * t20225;
27405   t83212 = t4400 * t20225;
27406   t83216 = t12791 * t4478 * t912;
27407   t83224 = t1204 * t18727 * t3209;
27408   t83227 = t13542 * t82350;
27409   t83229 = 0.4e1 * t14484 * t83227;
27410   t83255 = t4079 * t1190 * t3427;
27411   t83259 = t49014 * t1190 * t3431;
27412   t83262 = t18617 * t16021;
27413   t83265 = t15289 * t20275;
27414   t83268 = t4079 * t82335;
27415   t83278 = t13542 * t1190 * t3522;
27416   t83283 = t54409 * t20269;
27417   t83289 = t4079 * t1190 * t3448;
27418   t83323 = t82149 / 0.384e3 - t82153 / 0.192e3 - t82157 / 0.768e3 + 0.24e2 * t68725 * t69900 * t16072 + 0.12e2 * t18596 * t54025 * t16085 - 0.8e1 * t18596 * t59226 * t4371 - 0.8e1 * t18596 * t15258 * t16090 - 0.8e1 * t69893 * t16073 - 0.4e1 * t18596 * t15258 * t16098 + t82172 / 0.384e3 + t82174 / 0.384e3 - t82177 / 0.48e2 + t82179 / 0.96e2 + t82184 / 0.96e2 - 0.4e1 * t20310 * t4375 - t82193 / 0.768e3;
27419   t83352 = -t82197 / 0.768e3 - t82203 / 0.128e3 - t82208 / 0.768e3 + 0.24e2 * t5116 * t68925 * t5118 * t3503 - t78772 + t82210 / 0.192e3 + t78773 - 0.2e1 * t5112 * t16102 - 0.4e1 * t18596 * t15258 * t16095 - 0.8e1 * t76185 * t20326 + 0.2e1 * t5116 * t5117 * t1237 * t16050 + 0.2e1 * t5116 * t5117 * t16474 * t1181 - 0.4e1 * t18581 * t16086 + t78782 + t82218 / 0.192e3 + 0.2e1 * t18581 * t16099;
27420   t83374 = -0.12e2 * t20319 * t20323 + t82226 / 0.384e3 + t82231 / 0.384e3 - t69914 + t78791 - t78796 + 0.4e1 * t18581 * t16081 + t78797 + t69965 + 0.4e1 * t20319 * t20330 + 0.4e1 * t20319 * t20334 + 0.8e1 * t76285 * t4367 + 0.4e1 * t76285 * t4372 + 0.8e1 * t18581 * t16077 + 0.4e1 * t18581 * t16091 + 0.2e1 * t18581 * t16096;
27421   t83408 = -t82251 / 0.48e2 + t82253 / 0.192e3 - t78825 - t82281 / 0.128e3 - 0.12e2 * t18581 * t16068 + 0.2e1 * t82205 * t5115 * t5119 - 0.6e1 * t5116 * t18150 * t5118 * t3519 - 0.2e1 * t1159 * t16474 * t1162 * t1188 + 0.4e1 * t5116 * t5117 * t4497 * t4359 + t82290 / 0.96e2 + t82295 / 0.384e3 - 0.12e2 * t5116 * t18150 * t20329 * t1030 - 0.12e2 * t5116 * t18150 * t20333 * t1030 - 0.5e1 / 0.192e3 * t82299 + 0.5e1 / 0.192e3 * t82308 - t82312 / 0.96e2;
27422   t83412 = t175 * (t83323 + t83352 + t83374 + t83408) * t748;
27423   t83414 = -0.2e1 * t2849 * t15289 * t4377 - 0.2e1 * t2849 * t76369 * t1033 + 0.2e1 * t2849 * t70710 * t3431 - t2849 * t18617 * t3522 - t2849 * t4079 * t16104 + 0.12e2 * t54343 * t13055 * t16021 - 0.6e1 * t2857 * t83255 - 0.6e1 * t2849 * t83259 - 0.6e1 * t1768 * t83262 - 0.6e1 * t1768 * t83265 - 0.6e1 * t1768 * t83268 + 0.3e1 * t1768 * t18569 * t3448 + 0.6e1 * t1768 * t76379 * t999 + 0.2e1 * t2849 * t83278 + 0.4e1 * t2849 * t83227 + 0.4e1 * t2849 * t83283 - t2849 * t59296 * t1190 - 0.3e1 * t1768 * t83289 + 0.6e1 * t2857 * t18569 * t3427 + t169 * t83412;
27424   t83415 = my_piecewise3(t296, 0, t83414);
27425   t83421 = my_piecewise3(t359, 0, t83414);
27426   t83428 = t98 * (t83415 * t34 / 0.2e1 + t20373 * t886 + t5130 * t3196 / 0.2e1 + t83421 * t46 / 0.2e1 + t20376 * t905 + t5132 * t3202 / 0.2e1);
27427   t83431 = 0.32e2 / 0.9e1 * t75995;
27428   t83433 = 0.2e1 * t4431 * t20396;
27429   t83435 = 0.6e1 * t52859 * t20276;
27430   t83437 = t1214 * t16525 * t3923;
27431   t83438 = -0.10e2 / 0.3e1 * t14851 * t20226 - 0.10e2 / 0.3e1 * t3762 * t83209 - 0.10e2 / 0.3e1 * t3762 * t83212 - 0.10e2 / 0.3e1 * t3762 * t83216 + 0.10e2 / 0.3e1 * t4013 * t81714 - 0.4e1 / 0.3e1 * t4026 * t81659 - 0.5e1 / 0.6e1 * t3762 * t83224 + t83229 + t15949 * t5104 / 0.6e1 + t4284 * t20298 / 0.3e1 + t4284 * t20302 / 0.3e1 + t15925 * t5104 / 0.6e1 - t83428 - 0.4e1 * t2442 * t20266 + t83431 - t83433 - t83435 - t83437;
27432   t83444 = 0.32e2 / 0.9e1 * t76007;
27433   t83450 = 0.4e1 * t58601 * t20270;
27434   t83452 = t1214 * t5124 * t10242;
27435   t83460 = 0.4e1 / 0.3e1 * t14978 * t20075;
27436   t83464 = 0.2e1 / 0.3e1 * t59464 * t4940;
27437   t83466 = 0.4e1 / 0.3e1 * t4026 * t81784;
27438   t83475 = 0.6e1 * t5060 * t16706 + t83444 - 0.2e1 * t15998 * t5100 - 0.4e1 * t4302 * t20266 + t83450 - t83452 - t1227 * t82450 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t82416 + 0.2e1 / 0.3e1 * t14152 * t20136 - t83460 + 0.2e1 / 0.3e1 * t14152 * t20140 - t83464 - t83466 + t56597 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t56472 * t5094 + 0.2e1 / 0.3e1 * t56668 * t5094 + 0.2e1 / 0.3e1 * t14152 * t20132;
27439   t83477 = 0.4e1 / 0.3e1 * t4026 * t81774;
27440   t83484 = t16220 * t5093;
27441   t83487 = t4412 * t20135;
27442   t83490 = t4412 * t20139;
27443   t83494 = 0.2e1 / 0.3e1 * t4026 * t81726;
27444   t83495 = t4412 * t20352;
27445   t83499 = t1204 * t929 * t4483;
27446   t83503 = t1204 * t14718 * t4483;
27447   t83507 = 0.2e1 * t20294 * t4379;
27448   t83508 = t5155 * t16106;
27449   t83510 = 0.6e1 * t5155 * t16031;
27450   t83515 = -t83477 + 0.10e2 / 0.3e1 * t14975 * t20079 + 0.2e1 / 0.3e1 * t14156 * t20353 + 0.2e1 / 0.3e1 * t14848 * t20353 + t3788 * t83484 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t83487 + 0.2e1 / 0.3e1 * t3788 * t83490 - t83494 + 0.2e1 / 0.3e1 * t3788 * t83495 + 0.2e1 / 0.3e1 * t3788 * t83499 + 0.2e1 / 0.3e1 * t3788 * t83503 + t83507 + t83508 + t83510 - 0.2e1 * t20053 * t4561 + t5060 * t16526 + 0.20e2 / 0.9e1 * t76058;
27451   t83517 = t5155 * t16245;
27452   t83519 = 0.3e1 * t13345 * t83289;
27453   t83521 = 0.6e1 * t13345 * t83265;
27454   t83522 = t75930 * t883;
27455   t83523 = t4935 * t83522;
27456   t83527 = 0.160e3 / 0.9e1 * t76111;
27457   t83531 = 0.2e1 * t20294 * t4438;
27458   t83533 = 0.2e1 * t4431 * t20343;
27459   t83536 = t75930 * t908;
27460   t83537 = t1137 * t83536;
27461   t83540 = t75930 * t928;
27462   t83541 = t70080 * t83540;
27463   t83545 = 0.2e1 * t4431 * t20289;
27464   t83547 = 0.6e1 * t13345 * t83262;
27465   t83548 = -t82404 - t82406 - t83517 - t83519 - t83521 - 0.5e1 / 0.3e1 * t70067 * t83523 - 0.20e2 / 0.27e2 * t76109 - t83527 - t1227 * t82420 / 0.3e1 - t82454 - t83531 + t83533 - 0.4e1 * t4302 * t20415 - 0.5e1 / 0.3e1 * t70074 * t83537 - 0.5e1 / 0.3e1 * t70074 * t83541 - t83545 - t83547;
27466   t83553 = 0.4e1 * t449 * t4527 * t4311;
27467   t83561 = 0.32e2 / 0.9e1 * t76467;
27468   t83564 = 0.2e1 * t1214 * t4514 * t14434;
27469   t83565 = t4276 * t908;
27470   t83566 = t1137 * t83565;
27471   t83569 = t4276 * t928;
27472   t83570 = t70080 * t83569;
27473   t83573 = t76848 * t928;
27474   t83574 = t50654 * t83573;
27475   t83578 = 0.4e1 / 0.3e1 * t14972 * t19804;
27476   t83581 = t1214 * t1244 * t57468;
27477   t83582 = t16232 * t5159;
27478   t83583 = t3213 * t5135;
27479   t83584 = 0.2e1 * t5060 * t16641 - t83553 - 0.2e1 * t9866 * t5100 - 0.5e1 / 0.6e1 * t18542 * t81826 + 0.5e1 / 0.18e2 * t18550 * t81900 - 0.80e2 / 0.9e1 * t76465 + t83561 - t83564 + 0.5e1 / 0.9e1 * t70086 * t83566 + 0.5e1 / 0.9e1 * t70086 * t83570 + 0.5e1 / 0.9e1 * t70173 * t83574 - t83578 - t4957 - t82484 + t81758 * t1245 - t83581 - t83582 - t83583;
27480   t83588 = t66 * t15970 * t1252;
27481   t83592 = t66 * t4287 * t4527;
27482   t83596 = 0.20e2 / 0.3e1 * t4013 * t81882;
27483   t83598 = 0.20e2 / 0.3e1 * t4013 * t81886;
27484   t83599 = 0.160e3 / 0.9e1 * t76695;
27485   t83601 = t23764 * t83522;
27486   t83604 = t70271 * t83565;
27487   t83611 = 0.4e1 / 0.3e1 * t58273 * t5142;
27488   t83613 = 0.4e1 / 0.3e1 * t14614 * t20196;
27489   t83615 = 0.4e1 / 0.3e1 * t14614 * t20199;
27490   t83617 = 0.2e1 / 0.3e1 * t82722 * t5142;
27491   t83619 = 0.4e1 / 0.3e1 * t82635 * t5142;
27492   t83621 = 0.4e1 / 0.3e1 * t19992 * t20196;
27493   t83622 = t83599 + 0.20e2 / 0.27e2 * t76714 + 0.5e1 / 0.3e1 * t15099 * t83601 - 0.5e1 / 0.9e1 * t18828 * t83604 + 0.20e2 / 0.27e2 * t76792 + 0.20e2 / 0.27e2 * t76794 - 0.20e2 / 0.9e1 * t76798 + t5056 + t83611 + t83613 + t83615 + t83617 + t83619 + t83621;
27494   t83624 = 0.4e1 / 0.3e1 * t19992 * t20199;
27495   t83626 = 0.2e1 / 0.3e1 * t58280 * t5142;
27496   t83628 = 0.4e1 / 0.3e1 * t14645 * t20196;
27497   t83630 = t4932 * t18774 * t3249;
27498   t83638 = 0.20e2 / 0.3e1 * t53310 * t19988;
27499   t83640 = 0.20e2 / 0.3e1 * t76807 * t19988;
27500   t83642 = 0.20e2 / 0.3e1 * t53327 * t19988;
27501   t83644 = 0.20e2 / 0.3e1 * t13663 * t82639;
27502   t83646 = 0.20e2 / 0.3e1 * t13663 * t82589;
27503   t83648 = 0.10e2 / 0.3e1 * t13663 * t82593;
27504   t83650 = 0.20e2 * t49228 * t82554;
27505   t83653 = t83624 + t83626 + t83628 - 0.5e1 / 0.36e2 * t18823 * t83630 - 0.5e1 / 0.18e2 * t76786 * t20162 - 0.5e1 / 0.18e2 * t18828 * t82612 - t83638 - t83640 - t83642 - t83644 - t83646 - t83648 + t83650 - 0.10e2 * t70306 * t16152;
27506   t83656 = t4932 * t18774 * t3152;
27507   t83660 = t4932 * t18774 * t3155;
27508   t83668 = t4932 * t18834 * t3205;
27509   t83672 = 0.16e2 * t2378 * t20171;
27510   t83675 = 0.16e2 * t400 * t20176 * t912;
27511   t83678 = 0.16e2 * t400 * t20180 * t912;
27512   t83679 = -0.35e2 / 0.12e2 * t70309 * t83656 - 0.5e1 / 0.36e2 * t18828 * t83660 - 0.5e1 / 0.18e2 * t76763 * t20166 - 0.5e1 / 0.18e2 * t18833 * t82602 - 0.5e1 / 0.36e2 * t18833 * t83668 + t82569 + t82570 - t83672 - t83675 - t83678 + t70384 - t82581 - t82584 - t82587;
27513   t83682 = 0.8e1 * t400 * t5149 * t3209;
27514   t83685 = 0.40e2 * t1397 * t5149 * t3152;
27515   t83688 = 0.2e1 * t81 * t1143 * t16563;
27516   t83689 = t15983 * t74;
27517   t83692 = t4276 * t909;
27518   t83695 = t15948 * t74;
27519   t83700 = 0.2e1 / 0.3e1 * t3945 * t1254 * t82615;
27520   t83703 = 0.4e1 / 0.3e1 * t3945 * t1254 * t82619;
27521   t83706 = 0.2e1 / 0.3e1 * t3945 * t1254 * t82674;
27522   t83713 = -t70411 - t83682 + t83685 + t82652 + t82654 + t83688 - 0.2e1 / 0.3e1 * t5145 * t83689 - 0.2e1 / 0.3e1 * t5145 * t83692 - t5145 * t83695 / 0.3e1 + t83700 + t83703 + t83706 - t9657 * t1258 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t2378 * t4547 * t5146;
27523   t83728 = 0.32e2 / 0.9e1 * t76905;
27524   t83729 = 0.32e2 / 0.9e1 * t76907;
27525   t83730 = 0.32e2 / 0.9e1 * t76910;
27526   t83742 = -0.2e1 / 0.3e1 * t2378 * t4550 * t5146 - 0.2e1 / 0.3e1 * t20202 * t20211 - 0.2e1 / 0.3e1 * t20202 * t20214 - 0.2e1 / 0.3e1 * t20202 * t20217 - t400 * t16553 * t5146 / 0.3e1 - t82665 - t83728 - t83729 - t83730 - 0.2e1 / 0.3e1 * t400 * t16556 * t5146 - 0.2e1 / 0.3e1 * t20205 * t20211 - 0.2e1 / 0.3e1 * t20205 * t20214 - 0.2e1 / 0.3e1 * t20205 * t20217 - 0.5e1 / 0.36e2 * t82735 * t5139;
27527   t83745 = t4283 * t909;
27528   t83748 = t1134 * t3206;
27529   t83755 = 0.2e1 / 0.3e1 * t58267 * t5142;
27530   t83757 = 0.4e1 / 0.3e1 * t82629 * t5142;
27531   t83759 = 0.4e1 / 0.3e1 * t14645 * t20199;
27532   t83760 = t82746 * t1133;
27533   t83765 = 0.2e1 * t3149 * t5149;
27534   t83767 = 0.4e1 * t881 * t20176;
27535   t83769 = 0.4e1 * t881 * t20180;
27536   t83772 = 0.2e1 * t81 * t15921 * t1231;
27537   t83775 = 0.4e1 * t81 * t4311 * t4483;
27538   t83776 = -0.5e1 / 0.36e2 * t82739 * t5139 - 0.2e1 / 0.3e1 * t5145 * t83745 - t5145 * t83748 / 0.3e1 - 0.5e1 / 0.72e2 * t5042 * t5137 * t82686 + t83755 + t83757 + t82692 + t83759 - 0.5e1 / 0.36e2 * t5042 * t5137 * t83760 + t83765 + t83767 + t83769 + t83772 + t83775;
27539   t83791 = t15979 * t74;
27540   t83794 = 0.32e2 / 0.9e1 * t76935;
27541   t83807 = -0.5e1 / 0.72e2 * t82750 * t5139 - 0.5e1 / 0.36e2 * t19962 * t20187 - t400 * t16564 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t20208 * t20211 - 0.2e1 / 0.3e1 * t20208 * t20214 - 0.2e1 / 0.3e1 * t20208 * t20217 - t5145 * t83791 / 0.3e1 - t83794 - 0.5e1 / 0.18e2 * t76783 * t20158 + 0.10e2 / 0.3e1 * t76678 * t4397 + 0.10e2 / 0.3e1 * t76682 * t4397 + 0.10e2 / 0.3e1 * t76686 * t4397 + 0.10e2 / 0.3e1 * t76709 * t4397 + 0.10e2 / 0.3e1 * t18769 * t16127;
27542   t83817 = t4932 * t18774 * t3209;
27543   t83824 = 0.32e2 / 0.9e1 * t76988;
27544   t83825 = t23764 * t83540;
27545   t83828 = t70271 * t83536;
27546   t83831 = t23764 * t83569;
27547   t83834 = t70271 * t83573;
27548   t83837 = 0.10e2 / 0.3e1 * t18769 * t16131 + 0.5e1 / 0.3e1 * t18769 * t16135 + 0.5e1 / 0.6e1 * t76780 * t20154 + 0.5e1 / 0.6e1 * t18773 * t82643 + 0.5e1 / 0.12e2 * t18773 * t83817 - 0.5e1 / 0.18e2 * t18823 * t82560 + 0.10e2 / 0.27e2 * t76961 + 0.10e2 / 0.27e2 * t76986 - t83824 + 0.5e1 / 0.3e1 * t70451 * t83825 + 0.5e1 / 0.3e1 * t18773 * t83828 - 0.5e1 / 0.9e1 * t13663 * t83831 - 0.5e1 / 0.9e1 * t18823 * t83834 + t82768;
27549   t83843 = t66 * t1136 * t16692;
27550   t83847 = 0.6e1 * t13345 * t83268;
27551   t83855 = 0.32e2 / 0.9e1 * t76578;
27552   t83856 = t82 * t15921;
27553   t83858 = 0.2e1 * t83856 * t1232;
27554   t83860 = 0.4e1 * t20284 * t4478;
27555   t83862 = 0.4e1 * t16016 * t5107;
27556   t83863 = t1135 * t83588 / 0.6e1 + t1135 * t83592 / 0.3e1 + t83596 + t83598 + (t83622 + t83653 + t83679 + t83713 + t83742 + t83776 + t83807 + t83837) * t227 + t1135 * t83843 / 0.6e1 - t83847 + 0.3e1 * t5060 * t16619 + 0.20e2 / 0.3e1 * t4013 * t82465 - 0.2e1 / 0.3e1 * t4465 * t20041 - t82494 - t82496 + 0.16e2 / 0.9e1 * t76574 + t83855 - t83858 - t83860 - t83862;
27557   t83865 = 0.4e1 * t2442 * t20259;
27558   t83868 = 0.2e1 * t1214 * t5124 * t9934;
27559   t83870 = 0.3e1 * t5155 * t16028;
27560   t83877 = 0.2e1 * t1214 * t20342 * t2850;
27561   t83879 = t18560 * t18544 * t3249;
27562   t83883 = t12791 * t4488 * t912;
27563   t83889 = 0.4e1 * t20281 * t4478;
27564   t83891 = 0.2e1 * t5155 * t16236;
27565   t83894 = 0.3e1 * t1214 * t18660 * t16027;
27566   t83897 = 0.6e1 * t14484 * t83259;
27567   t83899 = 0.4e1 * t14484 * t83283;
27568   t83904 = -t83865 - t70217 + t83868 + t83870 - 0.2e1 * t5060 * t16703 + 0.2e1 * t20221 * t1037 - t83877 + 0.5e1 / 0.36e2 * t5084 * t83879 - 0.10e2 / 0.3e1 * t3762 * t83883 + 0.6e1 * t20053 * t4557 - t83889 + t83891 + t83894 - 0.20e2 / 0.27e2 * t77118 - t83897 + t83899 - t16450 * t4944 / 0.3e1 - 0.2e1 / 0.3e1 * t4465 * t20030;
27569   t83908 = 0.4e1 / 0.3e1 * t4026 * t81770;
27570   t83910 = 0.2e1 / 0.3e1 * t4026 * t81766;
27571   t83912 = 0.6e1 * t14821 * t83255;
27572   t83915 = 0.32e2 / 0.9e1 * t77167;
27573   t83917 = 0.4e1 * t5097 * t16723;
27574   t83923 = 0.32e2 / 0.9e1 * t77175;
27575   t83925 = 0.2e1 * t3220 * t5135;
27576   t83936 = t5152 * t3530 - t83908 - t83910 - t83912 + t4277 * t20302 / 0.3e1 + t83915 - t83917 - t16438 * t4944 / 0.3e1 - 0.2e1 / 0.3e1 * t16441 * t4944 - 0.10e2 / 0.27e2 * t77173 + t83923 - t83925 + 0.2e1 * t20053 * t4515 + t15928 * t5104 / 0.3e1 + t15931 * t5104 / 0.3e1 + t4269 * t20298 / 0.3e1 + t4269 * t20302 / 0.3e1;
27577   t83938 = 0.6e1 * t5155 * t16242;
27578   t83940 = 0.20e2 * t13415 * t81778;
27579   t83943 = 0.2e1 * t449 * t1252 * t15921;
27580   t83945 = 0.4e1 * t2442 * t20412;
27581   t83948 = 0.4e1 * t449 * t20380 * t928;
27582   t83950 = 0.2e1 * t916 * t20380;
27583   t83952 = t16609 * t167 * t168;
27584   t83953 = t83952 * t1192;
27585   t83954 = t16232 * t5125;
27586   t83957 = 0.2e1 * t449 * t5135 * t3249;
27587   t83966 = t5044 * t57784 * t1133;
27588   t83972 = 0.4e1 * t20281 * t4484;
27589   t83976 = t1214 * t83412;
27590   t83978 = 0.2e1 * t14484 * t83278;
27591   t83979 = t83938 - t83940 - t83943 - t83945 - t83948 - t83950 + t83953 + t83954 - t83957 - 0.2e1 / 0.3e1 * t4459 * t20030 - 0.2e1 / 0.3e1 * t4459 * t20041 - 0.4e1 * t449 * t4391 * t4483 + 0.5e1 / 0.72e2 * t5084 * t83966 - 0.4e1 * t2442 * t20415 - t83972 - 0.2e1 * t449 * t16374 * t1231 + t83976 + t83978;
27592   t83983 = t82958 + t82995 + t83038 + t83084 + t83125 + t83168 + t83206 + t83438 + t83475 + t83515 + t83548 + t83584 + t83863 + t83904 + t83936 + t83979;
27593   t83988 = 0.6e1 * t369 * t16564 * t1143;
27594   t83991 = 0.12e2 * t369 * t4550 * t4311;
27595   t83993 = 0.12e2 * t1125 * t20451;
27596   t83995 = 0.3e1 * t16741 * t1221;
27597   t83998 = 0.6e1 * t369 * t16553 * t1143;
27598   t84004 = 0.6e1 * t1267 * t16403;
27599   t84011 = 0.12e2 * t369 * t16556 * t1143;
27600   t84014 = 0.12e2 * t369 * t4547 * t4311;
27601   t84016 = 0.6e1 * t3745 * t5172;
27602   t84020 = 0.12e2 * t1125 * t20454;
27603   t84023 = t370 * t83983 * params->d + 0.6e1 * t1219 * t16755 + 0.12e2 * t1219 * t16758 + 0.6e1 * t1219 * t16761 + 0.6e1 * t3749 * t5166 + 0.12e2 * t4445 * t4574 + 0.6e1 * t4445 * t4577 + t82889 + t83988 + t83991 + t83993 + t83995 + t83998 + t84004 + t84011 + t84014 + t84016 + t84020;
27604   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27605     v4rho2sigma2[13] = t872 * (t82916 + t84023) + 0.2e1 * t77458 + 0.2e1 * t77450 + t7 * t83983 * t372 + 0.2e1 * t20422 * t1130 + t1265 * t16415 + t16731 * t1224 + 0.2e1 * t77449 + t3741 * t5175 + 0.2e1 * t77443 + 0.2e1 * t77457 + 0.2e1 * t77454 + t1217 * t16767 + 0.2e1 * t77445 + 0.2e1 * t1123 * t20457 + t5162 * t3755 + 0.2e1 * t4441 * t4580 + 0.2e1 * t77456 + 0.2e1 * t4564 * t4457 + t16379 * t1272;
27606 
27607   t84062 = t15503 * t19804;
27608   t84066 = t60567 * t4940;
27609   t84068 = t61660 * t4940;
27610   t84070 = t61131 * t4940;
27611   t84072 = t15503 * t19796;
27612   t84088 = t1204 * t18918 * t3152;
27613   t84092 = 0.2e1 / 0.3e1 * t84062 - 0.5e1 / 0.144e3 * t5179 * t82435 + t84066 / 0.3e1 + 0.2e1 / 0.3e1 * t84068 + 0.2e1 / 0.3e1 * t84070 + 0.2e1 / 0.3e1 * t84072 - 0.5e1 / 0.72e2 * t5179 * t81672 + t4173 * t81685 / 0.3e1 + 0.2e1 / 0.3e1 * t81688 + 0.2e1 / 0.3e1 * t81690 + t81692 / 0.3e1 - 0.5e1 / 0.3e1 * t15699 * t20079 - 0.5e1 / 0.3e1 * t4156 * t81714 - 0.5e1 / 0.3e1 * t4156 * t81718 + 0.5e1 * t13159 * t84088 + t81704 / 0.3e1;
27614   t84099 = t1204 * t18918 * t3209;
27615   t84103 = t1204 * t18923 * t3249;
27616   t84107 = t15610 * t19800;
27617   t84111 = t15610 * t19804;
27618   t84119 = t81721 / 0.3e1 - 0.5e1 / 0.3e1 * t14858 * t20473 + 0.2e1 / 0.3e1 * t4173 * t81663 - 0.5e1 / 0.6e1 * t3762 * t84099 + t3788 * t84103 / 0.3e1 + t81727 / 0.3e1 - t81730 + 0.2e1 / 0.3e1 * t84107 - 0.5e1 / 0.72e2 * t20554 * t19759 + 0.2e1 / 0.3e1 * t84111 - 0.5e1 / 0.144e3 * t5179 * t83966 + t15980 * t5189 / 0.6e1 + 0.2e1 / 0.3e1 * t81740 + 0.2e1 / 0.3e1 * t81743 - t81754 - t81755 - t81756;
27619   t84136 = t61747 * t4940;
27620   t84138 = t15686 * t19796;
27621   t84140 = t15686 * t19800;
27622   t84142 = t15686 * t19804;
27623   t84144 = t4173 * t81726;
27624   t84146 = t4173 * t81784;
27625   t84151 = -0.5e1 / 0.72e2 * t5179 * t83053 - 0.4e1 * t449 * t20508 * t928 + t81759 - 0.5e1 / 0.6e1 * t4156 * t82429 + 0.2e1 / 0.3e1 * t15503 * t20071 + 0.2e1 / 0.3e1 * t15686 * t20071 + 0.2e1 / 0.3e1 * t15610 * t20071 + 0.2e1 / 0.3e1 * t4173 * t81659 + 0.2e1 / 0.3e1 * t84136 + 0.2e1 / 0.3e1 * t84138 + 0.2e1 / 0.3e1 * t84140 + 0.2e1 / 0.3e1 * t84142 + t84144 / 0.3e1 + 0.2e1 / 0.3e1 * t84146 + t81767 / 0.3e1 + 0.2e1 / 0.3e1 * t81771 + 0.2e1 / 0.3e1 * t81775;
27626   t84157 = t4173 * t81703;
27627   t84165 = t1397 * t82423 * t1275 * t114;
27628   t84170 = t4412 * t20472;
27629   t84179 = t15998 * t5192;
27630   t84182 = t449 * t1307 * t15921;
27631   t84188 = 0.10e2 * t81779 - 0.5e1 / 0.3e1 * t14736 * t20473 + 0.2e1 / 0.3e1 * t14152 * t20480 + t84157 / 0.3e1 - 0.5e1 / 0.3e1 * t15500 * t20079 - 0.5e1 / 0.3e1 * t15683 * t20079 - 0.5e1 / 0.72e2 * t84165 * t5086 - 0.5e1 / 0.72e2 * t20554 * t20349 - 0.5e1 / 0.3e1 * t3762 * t84170 + t15984 * t5189 / 0.3e1 + t4277 * t20519 / 0.3e1 + t4277 * t20525 / 0.3e1 - 0.2e1 * t84179 - 0.2e1 * t84182 + 0.2e1 / 0.3e1 * t81785 + 0.2e1 / 0.3e1 * t81788 + t16777 * t4944 / 0.6e1;
27632   t84201 = t15503 * t19800;
27633   t84212 = t1397 * t4926 * t17015 * t114;
27634   t84218 = t449 * t4656 * t4311;
27635   t84220 = t16781 * t4944 / 0.3e1 + t4588 * t20030 / 0.3e1 + t4588 * t20041 / 0.3e1 + t81793 / 0.3e1 + 0.2e1 / 0.3e1 * t81795 + 0.2e1 / 0.3e1 * t81797 + 0.2e1 / 0.3e1 * t81799 + 0.2e1 / 0.3e1 * t84201 + 0.2e1 / 0.3e1 * t81801 + 0.2e1 / 0.3e1 * t81803 + 0.2e1 / 0.3e1 * t81805 + 0.2e1 / 0.3e1 * t81807 + 0.2e1 / 0.3e1 * t81810 - 0.5e1 / 0.72e2 * t20468 * t19759 - 0.5e1 / 0.144e3 * t84212 * t5086 + 0.5e1 * t13892 * t81695 - 0.4e1 * t84218;
27636   t84221 = t13892 * t81778;
27637   t84223 = t61657 * t4940;
27638   t84225 = t15610 * t19796;
27639   t84227 = t16016 * t5192;
27640   t84231 = t4173 * t81787;
27641   t84233 = t4173 * t81766;
27642   t84237 = t4173 * t82498;
27643   t84239 = t4173 * t82379;
27644   t84241 = t2442 * t20564;
27645   t84246 = 0.10e2 * t84221 + t84223 / 0.3e1 + 0.2e1 / 0.3e1 * t84225 - 0.4e1 * t84227 - 0.10e2 / 0.3e1 * t81838 - 0.5e1 / 0.3e1 * t81842 + 0.2e1 / 0.3e1 * t84231 + t84233 / 0.3e1 + 0.2e1 / 0.3e1 * t14156 * t20480 + t84237 / 0.3e1 + 0.2e1 / 0.3e1 * t84239 + t81868 - 0.4e1 * t84241 - t81869 - 0.10e2 / 0.3e1 * t81872 - 0.10e2 / 0.3e1 * t81874 - 0.10e2 / 0.3e1 * t81876;
27646   t84251 = t20560 * t4434;
27647   t84257 = t1204 * t77915 * t912;
27648   t84261 = t1204 * t77598 * t928;
27649   t84264 = t20560 * t4379;
27650   t84276 = t4156 * t81837;
27651   t84278 = -0.10e2 / 0.3e1 * t81880 - 0.10e2 / 0.3e1 * t81883 - 0.10e2 / 0.3e1 * t81887 - t81891 + 0.6e1 * t84251 + t81893 - 0.4e1 * t81897 - 0.5e1 / 0.72e2 * t5179 * t83147 - 0.5e1 / 0.3e1 * t3762 * t84257 + 0.2e1 / 0.3e1 * t3788 * t84261 + 0.2e1 * t84264 + 0.5e1 / 0.12e2 * t18989 * t82945 - 0.5e1 / 0.36e2 * t18957 * t83080 - 0.5e1 / 0.36e2 * t5179 * t83097 - 0.5e1 / 0.36e2 * t5179 * t83197 - 0.10e2 / 0.3e1 * t4156 * t82465 - 0.10e2 / 0.3e1 * t84276;
27652   t84279 = t15500 * t19772;
27653   t84281 = t15683 * t19772;
27654   t84283 = t15699 * t19772;
27655   t84285 = t4156 * t81879;
27656   t84287 = t4156 * t81882;
27657   t84293 = t5211 * t15960;
27658   t84297 = t5211 * t16106;
27659   t84298 = -0.10e2 / 0.3e1 * t84279 - 0.10e2 / 0.3e1 * t84281 - 0.10e2 / 0.3e1 * t84283 - 0.10e2 / 0.3e1 * t84285 - 0.10e2 / 0.3e1 * t84287 + t5208 * t3530 + 0.2e1 / 0.3e1 * t82380 + 0.6e1 * t82382 + 0.6e1 * t82384 - 0.2e1 * t84293 - t82388 + t82391 - t82393 - 0.35e2 / 0.24e2 * t70947 * t83011 + t84297 + t82396 + t82398;
27660   t84308 = t17031 * t167 * t168;
27661   t84309 = t84308 * t1192;
27662   t84313 = t2442 * t20531;
27663   t84315 = t4302 * t20531;
27664   t84320 = t20560 * t4438;
27665   t84322 = t5211 * t16236;
27666   t84324 = -0.5e1 / 0.36e2 * t20468 * t20239 - 0.5e1 / 0.36e2 * t20468 * t20243 + t82402 - t82404 - t82406 + 0.2e1 * t82407 + t84309 - 0.2e1 * t449 * t5198 * t3249 - 0.4e1 * t84313 - 0.4e1 * t84315 - 0.4e1 * t2442 * t20528 - t82448 - t3213 * t5198 - 0.2e1 * t84320 - t82454 + 0.2e1 * t84322;
27667   t84325 = my_piecewise3(t296, 0, t82363);
27668   t84327 = t84325 * t34 / 0.2e1;
27669   t84328 = t20504 * t886;
27670   t84330 = t5195 * t3196 / 0.2e1;
27671   t84354 = t66 * t1136 * t16945;
27672   t84361 = -t98 * (t84327 + t84328 + t84330 + t82372 + t82373 + t82375) - 0.2e1 * t916 * t20508 + 0.5e1 / 0.6e1 * t71136 * t83537 + 0.5e1 / 0.6e1 * t71136 * t83541 - 0.2e1 * t82461 - 0.5e1 / 0.72e2 * t18957 * t83091 - 0.5e1 / 0.36e2 * t18957 * t81900 + 0.5e1 / 0.12e2 * t77928 * t20231 - 0.5e1 / 0.36e2 * t78165 * t20235 + t15949 * t5189 / 0.6e1 + t4284 * t20519 / 0.3e1 + 0.6e1 * t82468 + t1135 * t84354 / 0.6e1 + t4284 * t20525 / 0.3e1 + t1277 * t82420 / 0.6e1 - t82471 - t82475;
27673   t84363 = t15503 * t20075;
27674   t84365 = t15686 * t20075;
27675   t84367 = t15610 * t20075;
27676   t84369 = t4173 * t81742;
27677   t84371 = t4173 * t81770;
27678   t84373 = t4173 * t81774;
27679   t84375 = t4412 * t20479;
27680   t84382 = t36282 * t5178;
27681   t84385 = t7591 * t20553;
27682   t84390 = t60525 * t4940;
27683   t84396 = 0.2e1 / 0.3e1 * t84363 + 0.2e1 / 0.3e1 * t84365 + 0.2e1 / 0.3e1 * t84367 + 0.2e1 / 0.3e1 * t84369 + 0.2e1 / 0.3e1 * t84371 + 0.2e1 / 0.3e1 * t84373 + 0.2e1 / 0.3e1 * t3788 * t84375 - 0.5e1 / 0.3e1 * t14851 * t20473 + 0.2e1 / 0.3e1 * t14848 * t20480 - 0.5e1 / 0.144e3 * t84382 * t5086 - 0.5e1 / 0.72e2 * t84385 * t5086 - 0.5e1 / 0.72e2 * t20468 * t20349 + t84390 / 0.3e1 - 0.5e1 / 0.36e2 * t5179 * t81732 - 0.5e1 / 0.72e2 * t5179 * t83007 - t4957 - t82479;
27684   t84402 = t5211 * t16242;
27685   t84404 = t4156 * t81886;
27686   t84406 = t4156 * t81841;
27687   t84408 = t5211 * t16031;
27688   t84415 = t66 * t16247 * t1307;
27689   t84426 = -0.4e1 * t82480 - t82484 - 0.5e1 / 0.36e2 * t5179 * t81736 - 0.5e1 / 0.72e2 * t5179 * t83879 + 0.6e1 * t84402 - 0.10e2 / 0.3e1 * t84404 - 0.5e1 / 0.3e1 * t84406 + 0.6e1 * t84408 + t4582 * t20030 / 0.3e1 + t4582 * t20041 / 0.3e1 + t1135 * t84415 / 0.3e1 + t15925 * t5189 / 0.6e1 + t15928 * t5189 / 0.3e1 + t15931 * t5189 / 0.3e1 + t4269 * t20519 / 0.3e1 - t82489 - t82494;
27690   t84445 = -t82496 + t82499 / 0.3e1 - 0.2e1 * t82502 - 0.5e1 / 0.18e2 * t70858 * t83566 - 0.5e1 / 0.18e2 * t70858 * t83570 - 0.5e1 / 0.18e2 * t70855 * t83574 - t82505 - t82511 + 0.5e1 / 0.12e2 * t18989 * t81826 + 0.5e1 / 0.24e2 * t18989 * t82949 - 0.4e1 * t82512 - 0.2e1 * t82514 - 0.4e1 * t82516 + t82522 + 0.2e1 * t82523 + t82527 - t82531;
27691   t84448 = t449 * t16945 * t1143;
27692   t84450 = t4302 * t20564;
27693   t84458 = t12791 * t78022 * t928;
27694   t84464 = t82533 - 0.2e1 * t82534 + t82537 - 0.2e1 * t84448 - 0.4e1 * t84450 - 0.4e1 * t82538 - 0.2e1 * t82541 - 0.4e1 * t82543 - 0.2e1 * t3220 * t5198 - 0.10e2 / 0.3e1 * t3762 * t84458 - t82548 - t82550 - t82774 + t82775 - t82780 - 0.6e1 * t82781 + t1277 * t82458 / 0.3e1;
27695   t84466 = t5211 * t16245;
27696   t84486 = t71026 * t16022;
27697   t84490 = -t84466 + 0.5e1 / 0.6e1 * t71184 * t83523 + 0.2e1 * t20618 * t1037 + 0.5e1 / 0.12e2 * t77865 * t20231 - 0.5e1 / 0.36e2 * t77869 * t20235 - 0.5e1 / 0.36e2 * t20554 * t20239 - 0.5e1 / 0.36e2 * t20554 * t20243 + t4269 * t20525 / 0.3e1 + t1277 * t82450 / 0.6e1 + t1277 * t82416 / 0.3e1 - t82783 + t82784 + 0.3e1 * t82785 + t82788 - t82791 - 0.6e1 * t84486 + t17043 * t4944 / 0.6e1;
27698   t84496 = t66 * t15970 * t1307;
27699   t84500 = t66 * t4287 * t4656;
27700   t84516 = t13930 * t82593;
27701   t84520 = t55815 * t19988;
27702   t84522 = t50061 * t82554;
27703   t84528 = t82552 - 0.10e2 * t82555 + t82558 + 0.5e1 / 0.36e2 * t78275 * t20166 - 0.5e1 / 0.12e2 * t19023 * t82643 + 0.5e1 / 0.36e2 * t19027 * t82560 + 0.5e1 / 0.36e2 * t19030 * t82612 + 0.5e1 / 0.3e1 * t84516 + 0.5e1 / 0.36e2 * t19033 * t82602 + 0.10e2 / 0.3e1 * t84520 - 0.10e2 * t84522 - 0.5e1 / 0.12e2 * t78389 * t20154 + 0.5e1 / 0.36e2 * t78392 * t20158;
27704   t84537 = t58267 * t5204;
27705   t84539 = t82629 * t5204;
27706   t84541 = t58273 * t5204;
27707   t84547 = t55822 * t19988;
27708   t84549 = t55789 * t19988;
27709   t84551 = t13930 * t82639;
27710   t84556 = -0.5e1 / 0.24e2 * t19023 * t83817 + t5056 + 0.5e1 / 0.72e2 * t5042 * t20587 * t19977 + 0.5e1 / 0.144e3 * t5042 * t5200 * t82686 - t84537 / 0.3e1 - 0.2e1 / 0.3e1 * t84539 - 0.2e1 / 0.3e1 * t84541 + 0.5e1 / 0.36e2 * t78253 * t20158 + 0.5e1 / 0.36e2 * t78256 * t20162 + 0.10e2 / 0.3e1 * t84547 + 0.10e2 / 0.3e1 * t84549 + 0.10e2 / 0.3e1 * t84551 - 0.2e1 / 0.3e1 * t82563 + 0.35e2 / 0.24e2 * t71257 * t83656;
27711   t84558 = t14614 * t20603;
27712   t84560 = t14614 * t20606;
27713   t84562 = t82722 * t5204;
27714   t84564 = t82635 * t5204;
27715   t84566 = t14645 * t20606;
27716   t84569 = t3945 * t17016 * t5048;
27717   t84572 = t3945 * t4668 * t20000;
27718   t84575 = t3945 * t4668 * t20004;
27719   t84578 = t3945 * t1309 * t82615;
27720   t84581 = t3945 * t1309 * t82619;
27721   t84583 = t14614 * t20600;
27722   t84585 = t82569 + t82570 - 0.2e1 / 0.3e1 * t84558 - 0.2e1 / 0.3e1 * t84560 - t84562 / 0.3e1 - 0.2e1 / 0.3e1 * t84564 - 0.2e1 / 0.3e1 * t84566 - t84569 / 0.3e1 - 0.2e1 / 0.3e1 * t84572 - 0.2e1 / 0.3e1 * t84575 - t84578 / 0.3e1 - 0.2e1 / 0.3e1 * t84581 - 0.2e1 / 0.3e1 * t84583;
27723   t84601 = 0.10e2 / 0.3e1 * t82571 + 0.10e2 / 0.3e1 * t82573 + 0.10e2 / 0.3e1 * t82575 - t82579 - t82581 - t82584 - t82587 + 0.10e2 / 0.3e1 * t82590 + 0.5e1 / 0.3e1 * t82594 + 0.10e2 / 0.3e1 * t82605 + 0.5e1 / 0.72e2 * t82739 * t5201 + 0.5e1 / 0.72e2 * t5042 * t5200 * t83760 + 0.5e1 / 0.144e3 * t82750 * t5201 + 0.5e1 / 0.72e2 * t19962 * t20588;
27724   t84606 = t17015 * t114;
27725   t84622 = t19992 * t20600;
27726   t84624 = t19992 * t20603;
27727   t84626 = 0.5e1 / 0.72e2 * t19962 * t20591 + 0.5e1 / 0.144e3 * t5042 * t84606 * t5138 - 0.5e1 / 0.6e1 * t15516 * t83601 + 0.5e1 / 0.18e2 * t19030 * t83604 - 0.5e1 / 0.6e1 * t71312 * t83825 - t82617 / 0.3e1 - 0.2e1 / 0.3e1 * t82621 - t82627 / 0.3e1 - 0.2e1 / 0.3e1 * t82630 - 0.2e1 / 0.3e1 * t82632 - 0.2e1 / 0.3e1 * t82636 - 0.2e1 / 0.3e1 * t84622 - 0.2e1 / 0.3e1 * t84624;
27728   t84627 = t19992 * t20606;
27729   t84629 = t58280 * t5204;
27730   t84631 = t14645 * t20600;
27731   t84633 = t14645 * t20603;
27732   t84636 = t3945 * t1309 * t82674;
27733   t84642 = -0.2e1 / 0.3e1 * t84627 - t84629 / 0.3e1 - 0.2e1 / 0.3e1 * t84631 - 0.2e1 / 0.3e1 * t84633 - t84636 / 0.3e1 + 0.5e1 / 0.72e2 * t82735 * t5201 + 0.10e2 / 0.3e1 * t82640 + t82652 + t82654 - t82665 - t82671 + t82673 - t82676 / 0.3e1 + t82692;
27734   t84652 = t13930 * t82589;
27735   t84658 = t78289 * t19988;
27736   t84662 = -t82695 - 0.2e1 / 0.3e1 * t82696 - 0.2e1 / 0.3e1 * t82698 - t82700 / 0.3e1 - 0.2e1 / 0.3e1 * t82702 - 0.2e1 / 0.3e1 * t82704 - 0.2e1 / 0.3e1 * t82706 - t82710 / 0.3e1 - 0.2e1 / 0.3e1 * t82713 + 0.10e2 / 0.3e1 * t84652 + 0.5e1 / 0.72e2 * t19027 * t83630 + 0.5e1 / 0.72e2 * t19030 * t83660 + 0.10e2 / 0.3e1 * t84658 + 0.5e1 / 0.72e2 * t19033 * t83668;
27737   t84680 = 0.5e1 / 0.36e2 * t78261 * t20162 + 0.5e1 / 0.36e2 * t78264 * t20166 - 0.5e1 / 0.12e2 * t78444 * t20154 - 0.2e1 / 0.3e1 * t82715 - 0.2e1 / 0.3e1 * t82717 - 0.2e1 / 0.3e1 * t82719 - t82723 / 0.3e1 - 0.2e1 / 0.3e1 * t82732 - 0.5e1 / 0.6e1 * t19023 * t83828 + 0.5e1 / 0.18e2 * t13930 * t83831 + 0.5e1 / 0.18e2 * t19027 * t83834 + t82763 + t82766 + t82768;
27738   t84692 = t9866 * t5192;
27739   t84694 = t5211 * t16028;
27740   t84696 = t4597 * t20030 / 0.3e1 + t4597 * t20041 / 0.3e1 + t1135 * t84496 / 0.6e1 + t1135 * t84500 / 0.3e1 + 0.2e1 / 0.3e1 * t82799 + 0.2e1 / 0.3e1 * t82801 + 0.2e1 / 0.3e1 * t82803 + 0.2e1 / 0.3e1 * t82805 + (t84528 + t84556 + t84585 + t84601 + t84626 + t84642 + t84662 + t84680) * t227 - 0.2e1 * t82807 + t16800 * t4944 / 0.6e1 - t82811 + t16803 * t4944 / 0.3e1 + t16807 * t4944 / 0.3e1 - 0.2e1 * t84692 + 0.3e1 * t84694 - t82813;
27741   t84700 = t84092 + t84119 + t84151 + t84188 + t84220 + t84246 + t84278 + t84298 + t84324 + t84361 + t84396 + t84426 + t84445 + t84464 + t84490 + t84696;
27742   t84704 = t17064 * t1221;
27743   t84706 = t4683 * t4454;
27744   t84709 = t4683 * t4451;
27745   t84712 = t1318 * t16409;
27746   t84715 = t1318 * t16406;
27747   t84718 = 0.3e1 * t84704 + 0.6e1 * t84706 + t82839 + 0.6e1 * t82840 + 0.12e2 * t84709 + t82844 + t82847 + t82849 + t5079 + t82852 + 0.6e1 * t82853 + t82856 + 0.6e1 * t84712 + 0.6e1 * t82857 + 0.12e2 * t84715 + 0.3e1 * t82861;
27748   t84728 = t1318 * t16403;
27749   t84730 = t1318 * t16412;
27750   t84734 = t370 * t84700 * params->d + 0.6e1 * t1127 * t20632 + 0.6e1 * t3749 * t5218 + 0.3e1 * t3752 * t5218 + t82866 + 0.12e2 * t82867 + t82870 + 0.12e2 * t82871 + t82873 + t82880 + t82882 + t82884 + 0.3e1 * t82887 + t82889 + 0.6e1 * t84728 + 0.3e1 * t84730;
27751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27752     v4rho2sigma2[14] = 0.2e1 * t78572 + 0.2e1 * t4679 * t4457 + 0.2e1 * t20624 * t1130 + 0.2e1 * t78576 + t1217 * t17072 + t1316 * t16415 + 0.2e1 * t4441 * t4687 + 0.2e1 * t78589 + t17054 * t1224 + t7 * t84700 * t372 + 0.2e1 * t78583 + t872 * (t84718 + t84734) + t5214 * t3755 + t16379 * t1320 + 0.2e1 * t78580 + 0.2e1 * t78578 + t3741 * t5223 + 0.2e1 * t78586 + 0.2e1 * t1123 * t20645 + 0.2e1 * t78575;
27753 
27754   t84772 = t4483 * t4483;
27755   t84783 = -0.2e1 / 0.3e1 * t16450 * t5104 - 0.4e1 / 0.3e1 * t4465 * t20298 - t71560 - 0.4e1 * t82 * t84772 * t363 - t81754 - t81755 - t81756 + 0.20e2 / 0.3e1 * t14975 * t20123 - 0.8e1 / 0.3e1 * t14978 * t20119 - 0.2e1 * t916 * t20765 - 0.80e2 / 0.9e1 * t78670;
27756   t84806 = 0.10e2 / 0.3e1 * t4013 * t83224 - 0.4e1 / 0.3e1 * t4026 * t83127 - 0.8e1 / 0.3e1 * t4026 * t83066 - 0.10e2 / 0.9e1 * t19122 * t81762 + 0.2e1 * t20818 * t1037 - 0.10e2 / 0.9e1 * t19119 * t81904 - 0.10e2 / 0.9e1 * t19119 * t81908 + 0.20e2 / 0.3e1 * t14967 * t20123 - 0.4e1 / 0.3e1 * t4026 * t83484 - 0.8e1 / 0.3e1 * t4026 * t83487 + 0.40e2 / 0.27e2 * t78698;
27757   t84823 = 0.10e2 / 0.3e1 * t19114 * t81830 + 0.10e2 / 0.3e1 * t19114 * t81833 + 0.80e2 / 0.27e2 * t78947 + 0.64e2 / 0.9e1 * t78969 + 0.2e1 * t1214 * t5258 * t35097 - 0.8e1 * t2442 * t20712 - t3213 * t5267 + 0.32e2 / 0.9e1 * t78989 + 0.32e2 / 0.9e1 * t78991 + 0.32e2 / 0.9e1 * t78993 - t16232 * t5259;
27758   t84869 = -0.4e1 / 0.3e1 * t4026 * t83118 + 0.64e2 / 0.9e1 * t79011 - 0.2e1 * t3212 * t5235 * t363 + 0.6e1 * t1214 * t71890 * t16241 - 0.2e1 * t1214 * t20686 * t2850 + 0.32e2 / 0.9e1 * t79037 - 0.320e3 / 0.9e1 * t79045 - 0.8e1 / 0.3e1 * t14972 * t20132 - 0.35e2 / 0.6e1 * t71776 * t81666 - 0.20e2 * t13415 * t83057 - 0.4e1 / 0.3e1 * t1227 * t82962;
27759   t84893 = -0.2e1 / 0.3e1 * t1227 * t83843 + 0.40e2 / 0.3e1 * t4013 * t82922 - 0.2e1 * t4431 * t20733 + 0.2e1 * t1214 * t5254 * t9934 - 0.4e1 * t20294 * t4561 - 0.6e1 * t4431 * t20770 - t71811 + 0.12e2 * t5155 * t16624 - 0.40e2 * t13415 * t83015 - t1214 * t5254 * t10242 - 0.3e1 * t1214 * t19153 * t82528;
27760   t84912 = 0.4e1 * t4431 * t20820 + 0.40e2 / 0.3e1 * t4013 * t83209 - t82404 - t82406 - 0.8e1 / 0.3e1 * t4026 * t82981 - 0.5e1 / 0.9e1 * t19122 * t81723 - 0.8e1 / 0.3e1 * t14972 * t20140 - 0.8e1 / 0.3e1 * t14972 * t20119 + 0.20e2 / 0.3e1 * t4013 * t83035 - 0.8e1 / 0.3e1 * t4026 * t82977 + 0.20e2 / 0.3e1 * t4013 * t83040;
27761   t84958 = -0.4e1 / 0.3e1 * t16441 * t5104 - 0.4e1 / 0.3e1 * t4459 * t20298 - 0.4e1 / 0.3e1 * t4459 * t20302 - 0.2e1 / 0.3e1 * t1227 * t83588 - 0.4e1 / 0.3e1 * t1227 * t83592 - 0.4e1 * t4431 * t20735 + 0.12e2 * t5155 * t16706 - 0.6e1 * t1214 * t5258 * t34959 - 0.2e1 * t449 * t5267 * t3249 - 0.8e1 * t2442 * t20828 - 0.8e1 * t4302 * t20828;
27762   t84972 = t19286 * t16021;
27763   t84978 = -0.2e1 * t1214 * t1244 * t59296 - 0.8e1 * t4483 * t449 * t4527 + 0.2e1 * t1245 * t83952 + 0.12e2 * t13345 * t84972 + t16232 * t5255 - 0.8e1 * t16723 * t5499 - 0.8e1 * t22448 * t4484 - 0.2e1 * t3714 * t5236 - t4957 - t82484 - t82494;
27764   t84982 = t4079 * t999 * t4513;
27765   t84992 = t19276 * t16021;
27766   t85001 = t5243 * t3453;
27767   t85023 = t82149 / 0.192e3 - t82153 / 0.96e2 - t82157 / 0.384e3 - 0.4e1 * t5116 * t18155 * t85001 * t194 + 0.8e1 * t18581 * t16511 + 0.12e2 * t5116 * t68934 * t85001 * t1892 + t82172 / 0.192e3 + t82174 / 0.192e3 - 0.16e2 * t18596 * t15258 * t16510 - t82177 / 0.24e2 + t82179 / 0.48e2 + t82184 / 0.48e2 - 0.12e2 * t5245 * t82221 - t82193 / 0.384e3;
27768   t85034 = t4497 * t4497;
27769   t85046 = -t82197 / 0.384e3 - t82203 / 0.64e2 - 0.8e1 * t20319 * t20674 - t82208 / 0.384e3 + 0.2e1 * t82206 * t5249 - 0.7e1 / 0.144e3 * t74024 + t82210 / 0.96e2 + 0.7e1 / 0.288e3 * t74026 - 0.4e1 * t1159 * t85034 * t1162 * t5010 + 0.7e1 / 0.288e3 * t74040 + t82218 / 0.96e2 + 0.24e2 * t68725 * t71621 * t16072 + t82226 / 0.192e3 + t82231 / 0.192e3;
27770   t85073 = 0.4e1 * t5014 * t5015 * t694 * t85034 - t71628 + 0.7e1 / 0.288e3 * t74056 - 0.7e1 / 0.72e2 * t74068 + 0.7e1 / 0.72e2 * t74072 - 0.4e1 * t5116 * t18155 * t5243 * t3478 * t194 - 0.4e1 * t5112 * t16522 + t71647 - 0.24e2 * t5116 * t18150 * t4502 * t4497 - t82251 / 0.24e2 + t82253 / 0.96e2 - 0.4e1 * t19241 * t82301 + 0.4e1 * t5245 * t82256 - 0.7e1 / 0.144e3 * t74093;
27771   t85104 = 0.2e1 * t19241 * t82274 - t82281 / 0.64e2 + 0.2e1 * t19241 * t82283 - 0.12e2 * t20319 * t20669 + 0.4e1 * t5116 * t5117 * t1237 * t16474 + t82290 / 0.48e2 + t82295 / 0.192e3 - 0.8e1 * t19241 * t82169 + 0.8e1 * t20319 * t20678 - 0.6e1 * t5116 * t18150 * t5243 * t3519 + 0.16e2 * t18581 * t16497 + 0.24e2 * t5116 * t68925 * t5243 * t3503 - 0.5e1 / 0.96e2 * t82299 + 0.5e1 / 0.96e2 * t82308 - t82312 / 0.48e2;
27772   t85108 = t175 * (t85023 + t85046 + t85073 + t85104) * t748;
27773   t85128 = t4513 * t4513;
27774   t85130 = t175 * t85128 * t2093;
27775   t85134 = t13542 * t4513 * t1033;
27776   t85146 = -0.2e1 * t1033 * t2849 * t78861 - 0.2e1 * t16524 * t2849 * t4079 + 0.3e1 * t1768 * t19271 * t3448 - 0.3e1 * t1768 * t19279 * t3448 + 0.6e1 * t1768 * t78715 * t999 + 0.6e1 * t19271 * t2857 * t3427 - t19276 * t2849 * t3522 - 0.6e1 * t19279 * t2857 * t3427 + 0.2e1 * t19286 * t2849 * t3522 + 0.2e1 * t2849 * t3431 * t71708 - 0.6e1 * t2849 * t3431 * t71739 + t169 * t85108 - 0.2e1 * t169 * t85130 + 0.12e2 * t1768 * t84972 - 0.12e2 * t1768 * t84982 - 0.6e1 * t1768 * t84992 + 0.8e1 * t2849 * t85134;
27777   t85147 = my_piecewise3(t296, 0, t85146);
27778   t85153 = my_piecewise3(t359, 0, t85146);
27779   t85172 = -t82496 + 0.64e2 / 0.9e1 * t79185 + 0.64e2 / 0.9e1 * t79202 - 0.12e2 * t13345 * t84982 + 0.64e2 / 0.9e1 * t79207 - t98 * (t85147 * t34 / 0.2e1 + t20758 * t886 + t5262 * t3196 / 0.2e1 + t85153 * t46 / 0.2e1 + t20761 * t905 + t5264 * t3202 / 0.2e1) - 0.6e1 * t13345 * t84992 + 0.40e2 / 0.3e1 * t4013 * t83216 - 0.4e1 * t2442 * t20825 - 0.4e1 * t449 * t1252 * t16563 - 0.4e1 * t5155 * t16703;
27780   t85195 = -0.2e1 * t5155 * t16617 + 0.6e1 * t5155 * t16619 + 0.2e1 * t4431 * t20687 + 0.40e2 / 0.27e2 * t79483 + t5279 * t3530 - 0.4e1 / 0.3e1 * t59449 * t5094 - 0.8e1 / 0.3e1 * t59434 * t5094 - 0.8e1 / 0.3e1 * t14978 * t20132 - 0.4e1 / 0.3e1 * t4026 * t83143 - 0.5e1 / 0.9e1 * t78604 * t19755 - 0.5e1 / 0.9e1 * t19119 * t81818;
27781   t85219 = -0.5e1 / 0.36e2 * t36282 * t5227 * t4936 - 0.5e1 / 0.18e2 * t20651 * t20062 - 0.4e1 * t15998 * t5239 - 0.8e1 * t4302 * t20712 - 0.5e1 / 0.9e1 * t19122 * t82796 - 0.8e1 / 0.3e1 * t14972 * t20136 - 0.5e1 / 0.9e1 * t78700 * t19765 - 0.5e1 / 0.18e2 * t19119 * t81699 - 0.5e1 / 0.9e1 * t78700 * t19762 - 0.4e1 / 0.3e1 * t59464 * t5094 - 0.4e1 * t9866 * t5239;
27782   t85241 = -0.8e1 * t16016 * t5239 + 0.2e1 * t5155 * t16526 - 0.2e1 * t3220 * t5267 - t72005 - 0.2e1 * t1214 * t85130 - 0.4e1 * t5499 * t16654 + 0.40e2 / 0.3e1 * t14967 * t20226 + 0.40e2 / 0.3e1 * t14975 * t20226 + 0.12e2 * t20294 * t4557 - 0.5e1 / 0.18e2 * t5228 * t81751 - 0.5e1 / 0.18e2 * t5228 * t81853;
27783   t85255 = t66 * t19180 * t3152;
27784   t85284 = t66 * t19180 * t3209;
27785   t85287 = 0.10e2 / 0.9e1 * t72168 * t82598 + 0.40e2 * t49228 * t85255 - 0.40e2 / 0.3e1 * t53327 * t20795 + 0.320e3 / 0.9e1 * t79219 + 0.80e2 / 0.9e1 * t79243 - 0.80e2 / 0.27e2 * t79246 - 0.80e2 / 0.27e2 * t79249 - 0.64e2 / 0.9e1 * t79252 - 0.64e2 / 0.9e1 * t79260 - 0.5e1 / 0.3e1 * t75221 * t20780 + 0.5e1 / 0.9e1 * t75224 * t20783 + 0.5e1 / 0.9e1 * t14662 * t20786 + 0.5e1 / 0.9e1 * t19962 * t20789 + 0.35e2 / 0.6e1 * t68542 * t5269 * t82565 - 0.40e2 / 0.3e1 * t76807 * t20795 + 0.10e2 / 0.9e1 * t72093 * t82667 - 0.40e2 / 0.3e1 * t53310 * t20795 - 0.20e2 / 0.3e1 * t13663 * t85284;
27786   t85291 = t66 * t79333 * t912;
27787   t85295 = t66 * t79221 * t912;
27788   t85313 = t16220 * t1231;
27789   t85325 = 0.10e2 / 0.9e1 * t72078 * t82608 - 0.40e2 / 0.3e1 * t13663 * t85291 - 0.40e2 / 0.3e1 * t13663 * t85295 - 0.10e2 / 0.3e1 * t72081 * t82754 - 0.10e2 / 0.3e1 * t72085 * t82758 - 0.10e2 / 0.3e1 * t72089 * t82647 + t5056 - 0.32e2 * t400 * t15159 * t4483 + t82569 + t82570 - 0.5e1 / 0.6e1 * t18362 * t5269 * t82727 + 0.5e1 / 0.18e2 * t18368 * t5269 * t82678 + 0.4e1 / 0.3e1 * t3945 * t1254 * t85313 - 0.40e2 / 0.27e2 * t79338 - 0.8e1 * t400 * t5235 * t3209 - 0.16e2 * t2378 * t20812 + 0.8e1 * t881 * t20815 - t82581;
27790   t85337 = t4412 * t4483;
27791   t85341 = t1204 * t16563;
27792   t85351 = -t82584 - t82587 - 0.64e2 / 0.9e1 * t79389 + t82652 + t82654 + 0.40e2 * t1397 * t5235 * t3152 - t82665 + 0.4e1 * t81 * t1231 * t16563 + t72187 - 0.64e2 / 0.9e1 * t79420 - 0.80e2 / 0.27e2 * t79423 - 0.64e2 / 0.9e1 * t79425 + t82692 + 0.8e1 / 0.3e1 * t3945 * t1254 * t85337 + 0.4e1 / 0.3e1 * t3945 * t1254 * t85341 + 0.8e1 / 0.3e1 * t19992 * t20803 + 0.8e1 / 0.3e1 * t19992 * t20807 + 0.4e1 / 0.3e1 * t58280 * t5274;
27793   t85389 = 0.8e1 / 0.3e1 * t14645 * t20803 + 0.8e1 / 0.3e1 * t14645 * t20807 + 0.8e1 / 0.3e1 * t14614 * t20807 + 0.4e1 / 0.3e1 * t82722 * t5274 + 0.8e1 / 0.3e1 * t82635 * t5274 + 0.5e1 / 0.18e2 * t5042 * t5269 * t82623 + 0.4e1 / 0.3e1 * t58267 * t5274 + 0.8e1 / 0.3e1 * t82629 * t5274 + 0.8e1 / 0.3e1 * t58273 * t5274 + 0.8e1 / 0.3e1 * t14614 * t20803 + 0.5e1 / 0.18e2 * t3939 * t5269 * t82682 + t72228 + 0.4e1 * t81 * t84772 + 0.2e1 * t3149 * t5235 + 0.5e1 / 0.18e2 * t82735 * t5270 + 0.5e1 / 0.18e2 * t82739 * t5270 + 0.5e1 / 0.36e2 * t82750 * t5270 + 0.5e1 / 0.18e2 * t5042 * t5269 * t82746 + t82768;
27794   t85406 = 0.3e1 * t1214 * t19147 * t16027 + 0.6e1 * t1214 * t79001 * t4433 - 0.5e1 / 0.18e2 * t1397 * t82423 * t5226 * t4936 + (t85287 + t85325 + t85351 + t85389) * t227 + 0.4e1 * t20294 * t4515 + 0.4e1 * t5155 * t16641 - 0.4e1 / 0.3e1 * t4465 * t20302 - 0.12e2 * t70029 * t16611 + 0.8e1 * t14484 * t85134 + t1214 * t85108 + 0.6e1 * t4431 * t20738;
27795   t85410 = t84912 + t84893 + t84869 + t84823 + t84806 + t84783 - t82454 + 0.64e2 / 0.9e1 * t79121 - 0.160e3 / 0.9e1 * t79123 + 0.80e2 / 0.27e2 * t79119 + 0.80e2 / 0.27e2 * t79111 + 0.64e2 / 0.9e1 * t78653 + t85172 + t85406 + t84978 + t84958 + t85219 - 0.4e1 * t449 * t20765 * t928 - 0.6e1 * t1214 * t72043 * t82777 - 0.4e1 * t449 * t16692 * t1231 + t85241 - 0.4e1 / 0.3e1 * t4026 * t82985 - 0.4e1 * t20773 * t1110 + 0.20e2 / 0.3e1 * t4013 * t82953 - 0.5e1 / 0.18e2 * t19122 * t81790 - 0.8e1 / 0.3e1 * t4026 * t83490 + 0.40e2 / 0.3e1 * t4013 * t83883 + 0.10e2 / 0.3e1 * t72008 * t81822 - 0.5e1 / 0.36e2 * t5228 * t81857 + t85195 + 0.40e2 / 0.3e1 * t4013 * t83212 - 0.2e1 / 0.3e1 * t16438 * t5104 - 0.8e1 / 0.3e1 * t14978 * t20353 - 0.8e1 / 0.3e1 * t14972 * t20353 - 0.8e1 / 0.3e1 * t4026 * t83495 - 0.8e1 / 0.3e1 * t4026 * t83499 - 0.8e1 / 0.3e1 * t4026 * t83503 + 0.5e1 / 0.3e1 * t78630 * t19741 + 0.5e1 / 0.3e1 * t19114 * t81681 + 0.5e1 / 0.6e1 * t19114 * t81812 - 0.8e1 / 0.3e1 * t14978 * t20136 - 0.8e1 / 0.3e1 * t14978 * t20140 - 0.5e1 / 0.18e2 * t19122 * t81675;
27796   t85444 = 0.6e1 * t3249 * t369 * t5235 + 0.12e2 * t1125 * t20858 + 0.6e1 * t1267 * t16764 + 0.6e1 * t1269 * t16741 + 0.6e1 * t3745 * t5294 + 0.3e1 * t3752 * t5290 + 0.12e2 * t4568 * t4577 + t5079 + t82839 + t82847 + t82849 + t82870;
27797   t85470 = 0.12e2 * t1258 * t16563 * t369 + 0.24e2 * t369 * t4483 * t4547 + 0.12e2 * t369 * t84772 * t96 + t370 * t85410 * params->d + 0.24e2 * t1125 * t20861 + 0.6e1 * t1127 * t20846 + 0.12e2 * t1267 * t16755 + 0.24e2 * t1267 * t16758 + 0.12e2 * t1267 * t16761 + 0.6e1 * t3749 * t5290 + 0.24e2 * t4568 * t4574 + t82873 + t82889;
27798   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27799     v4rho2sigma2[15] = 0.2e1 * t78593 + 0.2e1 * t79614 + t7 * t85410 * t372 + 0.2e1 * t20838 * t1130 + t5286 * t3755 + 0.4e1 * t79619 + 0.4e1 * t79626 + 0.2e1 * t16731 * t1272 + 0.4e1 * t4564 * t4580 + 0.2e1 * t1265 * t16767 + 0.2e1 * t79632 + 0.2e1 * t79635 + t3741 * t5297 + 0.2e1 * t1123 * t20864 + t872 * (t85444 + t85470);
27800 
27801   t85497 = -0.10e2 / 0.3e1 * t4156 * t83883 + t82926 - 0.10e2 / 0.27e2 * t79732 - 0.5e1 / 0.3e1 * t4156 * t83040 + 0.2e1 / 0.3e1 * t4173 * t82981 + t4173 * t82985 / 0.3e1 + t4173 * t83127 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t83066 - 0.10e2 / 0.3e1 * t15683 * t20226 - 0.10e2 / 0.3e1 * t15699 * t20226 - 0.10e2 / 0.3e1 * t4156 * t83209 - 0.20e2 / 0.27e2 * t79740 - t82930 - t82932 - t82934 - t82939 - t82941;
27802   t85519 = t82957 + t82960 + 0.32e2 / 0.9e1 * t79873 + t60525 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t61747 * t5094 + 0.2e1 / 0.3e1 * t15686 * t20132 + 0.2e1 / 0.3e1 * t15686 * t20136 + 0.2e1 / 0.3e1 * t15686 * t20140 + t4173 * t83484 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t83487 + 0.2e1 / 0.3e1 * t4173 * t83490 - t81754 - t81755 - t81756 - t82992 - 0.4e1 / 0.3e1 * t14978 * t20480 - 0.4e1 / 0.3e1 * t14972 * t20480;
27803   t85544 = -t83019 - t83023 - t83025 - t69680 - t83028 + t83030 - 0.10e2 * t13415 * t84088 - 0.5e1 / 0.3e1 * t15500 * t20123 + 0.2e1 / 0.3e1 * t15503 * t20119 + t4173 * t83143 / 0.3e1 + 0.5e1 / 0.36e2 * t84165 * t5300 + 0.5e1 / 0.36e2 * t5179 * t82746 * t5299 - 0.5e1 / 0.3e1 * t15683 * t20123 + 0.2e1 / 0.3e1 * t15686 * t20119 - 0.5e1 / 0.3e1 * t15699 * t20123 + 0.2e1 / 0.3e1 * t15610 * t20119 - 0.5e1 / 0.3e1 * t4156 * t83035;
27804   t85568 = -0.4e1 / 0.3e1 * t4026 * t84375 - 0.4e1 / 0.3e1 * t4026 * t84261 + t83062 + t83089 - 0.2e1 / 0.3e1 * t4026 * t84103 + 0.10e2 / 0.3e1 * t14975 * t20473 + 0.10e2 / 0.3e1 * t14967 * t20473 + 0.10e2 / 0.3e1 * t4013 * t84170 + 0.10e2 / 0.3e1 * t4013 * t84257 + t61657 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t15610 * t20132 + 0.2e1 / 0.3e1 * t15610 * t20136 + 0.2e1 / 0.3e1 * t15610 * t20140 - t83105 - t83107 - 0.80e2 / 0.9e1 * t79993 - t83111 + t83114;
27805   t85590 = -t83131 - t83133 - t83135 - t83137 - t83139 - 0.10e2 / 0.3e1 * t4156 * t83212 - 0.10e2 / 0.3e1 * t4156 * t83216 + 0.5e1 / 0.36e2 * t5179 * t18560 * t19359 * t3249 - t83151 - 0.10e2 / 0.27e2 * t80043 + t83155 - 0.10e2 / 0.3e1 * t4156 * t82922 - 0.5e1 / 0.3e1 * t4156 * t82953 - t83162 + 0.5e1 / 0.18e2 * t5179 * t18560 * t79999 * t928 + 0.20e2 / 0.3e1 * t4013 * t84458 - t83164;
27806   t85605 = -t83167 - t83171 - 0.5e1 / 0.6e1 * t77865 * t20873 - t83173 - t83176 - t83183 - t83185 + t83189 + 0.3e1 * t5211 * t16619 + 0.2e1 * t5211 * t16641 + 0.6e1 * t5211 * t16706 + t83201 - t1227 * t84354 / 0.3e1 + t83229 - t83428 - 0.2e1 * t15998 * t5309 - 0.4e1 * t4302 * t20982;
27807   t85619 = -0.4e1 * t2442 * t20991 + 0.2e1 / 0.3e1 * t4173 * t82977 + t83431 - t83433 - t83435 - t83437 + t83444 - 0.2e1 * t449 * t16945 * t1231 + 0.16e2 / 0.9e1 * t80111 + t83450 + 0.20e2 / 0.9e1 * t80115 - 0.20e2 / 0.27e2 * t80119 - t83452 - t83460 - t83464 - t83466 + t4173 * t83118 / 0.3e1;
27808   t85626 = -t83477 - t83494 + t83507 + t83508 + t83510 + t72604 - t82404 - t82406 + 0.5e1 / 0.18e2 * t20554 * t20885 - t83517 - t83519 - t83521 + 0.6e1 * t20560 * t4557 + 0.6e1 * t5211 * t16624 - t83527 - t82454 - t83531 + t83533;
27809   t85659 = -0.10e2 / 0.27e2 * t80180 - 0.2e1 * t449 * t1307 * t16563 - t72676 + t1277 * t83588 / 0.6e1 + t1277 * t83592 / 0.3e1 - 0.5e1 / 0.6e1 * t4156 * t83224 + t60567 * t5094 / 0.3e1 + 0.2e1 / 0.3e1 * t61660 * t5094 + 0.2e1 / 0.3e1 * t61131 * t5094 + 0.2e1 / 0.3e1 * t15503 * t20132 + 0.2e1 / 0.3e1 * t15503 * t20136 + 0.5e1 * t13892 * t83057 + 0.5e1 / 0.36e2 * t5179 * t5044 * t56609 * t57 - t83545 - t83547 + 0.16e2 / 0.9e1 * t80193 - 0.4e1 * t16016 * t5309;
27810   t85662 = t79980 * t928;
27811   t85698 = -0.4e1 * t2442 * t20982 - t83553 + t83561 - t83564 + 0.5e1 / 0.9e1 * t70855 * t50654 * t85662 - 0.5e1 / 0.12e2 * t18989 * t18543 * t19359 * t3209 + 0.5e1 / 0.18e2 * t78165 * t20877 + 0.5e1 / 0.18e2 * t77869 * t20877 + 0.5e1 / 0.18e2 * t18957 * t18543 * t79999 * t883 + 0.5e1 / 0.36e2 * t18957 * t18543 * t19359 * t3155 + 0.5e1 / 0.18e2 * t20468 * t20881 + 0.5e1 / 0.18e2 * t20554 * t20881 + 0.5e1 / 0.18e2 * t5179 * t18555 * t79999 * t908 + 0.5e1 / 0.3e1 * t4013 * t84099 + 0.5e1 / 0.72e2 * t84382 * t5300 + 0.5e1 / 0.36e2 * t84385 * t5300 + 0.5e1 / 0.36e2 * t20468 * t20959;
27812   t85711 = -t83578 - t4957 - t82484 - t83581 - t83582 - t83583 + t17043 * t5104 / 0.6e1 + t4597 * t20298 / 0.3e1 + t4597 * t20302 / 0.3e1 + t83596 + t83598 - t83847 - t82494 - t82496 + t84308 * t1245 - t1227 * t84496 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t84500;
27813   t85740 = -t16438 * t5189 / 0.3e1 - 0.2e1 / 0.3e1 * t16441 * t5189 - 0.2e1 / 0.3e1 * t4459 * t20519 - 0.2e1 / 0.3e1 * t4459 * t20525 + t83855 - t83858 - t83860 - t83862 - t83865 + 0.2e1 / 0.3e1 * t15503 * t20353 + 0.2e1 / 0.3e1 * t15686 * t20353 + 0.2e1 / 0.3e1 * t15610 * t20353 + 0.2e1 / 0.3e1 * t4173 * t83495 + 0.2e1 / 0.3e1 * t4173 * t83499 + 0.2e1 / 0.3e1 * t4173 * t83503 + 0.5e1 / 0.72e2 * t5179 * t5044 * t57784 * t57 + 0.2e1 / 0.3e1 * t15503 * t20140 + 0.5e1 / 0.72e2 * t84212 * t5300;
27814   t85771 = 0.20e2 / 0.27e2 * t80316 + 0.20e2 / 0.27e2 * t80320 + t83599 + 0.10e2 / 0.3e1 * t78289 * t20795 + 0.10e2 / 0.3e1 * t55789 * t20795 + 0.10e2 / 0.3e1 * t13930 * t85291 + 0.10e2 / 0.3e1 * t13930 * t85295 + 0.5e1 / 0.3e1 * t13930 * t85284 + 0.5e1 / 0.6e1 * t78389 * t20911 + 0.5e1 / 0.6e1 * t78444 * t20911 + 0.10e2 / 0.3e1 * t55815 * t20795 - 0.5e1 / 0.18e2 * t78253 * t20915 - 0.5e1 / 0.36e2 * t19027 * t4932 * t19430 * t3249 + 0.10e2 / 0.3e1 * t55822 * t20795;
27815   t85790 = -0.5e1 / 0.18e2 * t78256 * t20919 - 0.5e1 / 0.36e2 * t19030 * t4932 * t19430 * t3155 - 0.5e1 / 0.18e2 * t78264 * t20923 - 0.5e1 / 0.18e2 * t78275 * t20923 - 0.5e1 / 0.36e2 * t19033 * t4932 * t19443 * t3205 - 0.20e2 / 0.9e1 * t80403 + 0.20e2 / 0.27e2 * t80407 - 0.5e1 / 0.18e2 * t78261 * t20919 + t5056 + t83611 + t83613 + t83615 + t83617 + t83619;
27816   t85792 = t80340 * t908;
27817   t85796 = t80259 * t883;
27818   t85806 = t83621 + t83624 + t83626 + t83628 + 0.5e1 / 0.3e1 * t19023 * t70271 * t85792 - 0.5e1 / 0.9e1 * t13930 * t23764 * t85796 - 0.10e2 * t50061 * t85255 - 0.35e2 / 0.12e2 * t71257 * t4932 * t19430 * t3152 - t83638 - t83640 - t83642 - t83644 - t83646 - t83648;
27819   t85829 = t83650 - 0.2e1 / 0.3e1 * t14645 * t20941 - 0.2e1 / 0.3e1 * t14645 * t20944 - t3945 * t17016 * t5273 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t4668 * t20802 - 0.2e1 / 0.3e1 * t3945 * t4668 * t20806 + t82569 + t82570 - t83672 - t83675 - t83678 - t3945 * t1309 * t85313 / 0.3e1 - 0.2e1 / 0.3e1 * t3945 * t1309 * t85337 - t3945 * t1309 * t85341 / 0.3e1;
27820   t85840 = t80340 * t928;
27821   t85844 = t80340 * t883;
27822   t85848 = t4464 * t908;
27823   t85855 = -0.2e1 / 0.3e1 * t19992 * t20941 - 0.2e1 / 0.3e1 * t19992 * t20944 - t58280 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t14645 * t20938 + t70384 - t82581 - t82584 - t82587 + 0.5e1 / 0.3e1 * t71312 * t23764 * t85840 + 0.5e1 / 0.3e1 * t15516 * t23764 * t85844 - 0.5e1 / 0.9e1 * t19030 * t70271 * t85848 - t83682 + t83685 - 0.5e1 / 0.9e1 * t19027 * t70271 * t85662;
27824   t85864 = t82652 + t82654 + t83688 + t83700 + t83703 + t83706 - t82665 - t83728 - t83729 - t83730 - 0.5e1 / 0.36e2 * t82735 * t5313 - 0.5e1 / 0.36e2 * t82739 * t5313 - 0.5e1 / 0.36e2 * t5042 * t5200 * t82746 * t57 + t83755;
27825   t85870 = t83757 + t82692 + t83759 + t83765 + t83767 + t83769 + t83772 + t83775 - t83794 - t72886 - t83824 + 0.10e2 / 0.27e2 * t80537 + 0.10e2 / 0.27e2 * t80540 - 0.5e1 / 0.36e2 * t19962 * t20929;
27826   t85900 = -0.5e1 / 0.72e2 * t5042 * t84606 * t5312 - t58267 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t82629 * t5316 - 0.2e1 / 0.3e1 * t58273 * t5316 - 0.2e1 / 0.3e1 * t14614 * t20938 - 0.2e1 / 0.3e1 * t14614 * t20941 - 0.2e1 / 0.3e1 * t14614 * t20944 - t82722 * t5316 / 0.3e1 - 0.2e1 / 0.3e1 * t82635 * t5316 - 0.2e1 / 0.3e1 * t19992 * t20938 - 0.5e1 / 0.72e2 * t82750 * t5313 + 0.5e1 / 0.12e2 * t19023 * t4932 * t19430 * t3209 - 0.5e1 / 0.18e2 * t78392 * t20915 + t82768;
27827   t85921 = 0.5e1 / 0.36e2 * t20554 * t20959 + t83868 + t83870 + (t85771 + t85790 + t85806 + t85829 + t85855 + t85864 + t85870 + t85900) * t227 + t16800 * t5104 / 0.6e1 + t16803 * t5104 / 0.3e1 + t16807 * t5104 / 0.3e1 + t4582 * t20298 / 0.3e1 + t4582 * t20302 / 0.3e1 - t83877 - 0.5e1 / 0.6e1 * t77928 * t20873 + t1277 * t82962 / 0.3e1 - t83889 + t5211 * t16526 + t83891 - t5211 * t16617 + t83894;
27828   t85950 = -t83897 + t83899 + t1277 * t83843 / 0.6e1 - t83908 - t83910 + 0.16e2 / 0.9e1 * t80289 - t83912 + 0.5e1 / 0.9e1 * t70858 * t1137 * t85848 + 0.5e1 / 0.9e1 * t70858 * t70080 * t85796 - 0.6e1 * t71026 * t16611 - t16450 * t5189 / 0.3e1 - 0.2e1 / 0.3e1 * t4465 * t20519 - 0.2e1 / 0.3e1 * t4465 * t20525 - 0.4e1 * t449 * t4656 * t4483 - 0.10e2 / 0.3e1 * t15500 * t20226 + 0.10e2 * t13892 * t83015 + 0.2e1 * t20560 * t4515 - 0.2e1 / 0.3e1 * t1227 * t84415;
27829   t85979 = 0.2e1 * t20948 * t1037 - 0.2e1 * t20560 * t4561 + t83915 - t83917 + t83923 - 0.2e1 * t9866 * t5309 - t83925 - 0.5e1 / 0.3e1 * t71184 * t4935 * t85844 - 0.5e1 / 0.3e1 * t71136 * t1137 * t85792 - 0.5e1 / 0.3e1 * t71136 * t70080 * t85840 + t83938 + 0.5e1 / 0.36e2 * t5179 * t18555 * t19359 * t3205 + 0.5e1 / 0.18e2 * t20468 * t20885 - t83940 + t16777 * t5104 / 0.6e1 + t16781 * t5104 / 0.3e1 + t4588 * t20298 / 0.3e1;
27830   t85997 = t4588 * t20302 / 0.3e1 + 0.16e2 / 0.9e1 * t80604 - 0.4e1 * t4302 * t20991 - 0.5e1 / 0.6e1 * t18989 * t18543 * t79999 * t912 - t83943 - t83945 - t83948 - t83950 + 0.35e2 / 0.12e2 * t70947 * t18543 * t19359 * t3152 + t83953 + t83954 - t83957 - 0.20e2 / 0.27e2 * t80616 - t83972 - 0.2e1 * t5211 * t16703 + t83976 + t83978 + t5319 * t3530;
27831   t86001 = t85497 + t85519 + t85544 + t85568 + t85590 + t85605 + t85619 + t85626 + t85659 + t85698 + t85711 + t85740 + t85921 + t85950 + t85979 + t85997;
27832   t86012 = t370 * t86001 * params->d + 0.6e1 * t1318 * t16755 + 0.3e1 * t3752 * t5327 + 0.6e1 * t4577 * t4683 + t5079 + t82839 + t82847 + t82849 + t82870 + t82873 + t82894 + t82897 + t82899 + t82901 + t82907 + t82911 + t82915;
27833   t86027 = 0.6e1 * t1127 * t21005 + 0.3e1 * t1269 * t17064 + 0.12e2 * t1318 * t16758 + 0.6e1 * t1318 * t16761 + 0.3e1 * t1318 * t16764 + 0.6e1 * t3749 * t5327 + 0.12e2 * t4574 * t4683 + t82889 + t83988 + t83991 + t83993 + t83995 + t83998 + t84004 + t84011 + t84014 + t84016 + t84020;
27834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27835     v4rho2sigma2[16] = 0.2e1 * t80678 + t16731 * t1320 + 0.2e1 * t80670 + t5323 * t3755 + t7 * t86001 * t372 + t872 * (t86012 + t86027) + 0.2e1 * t4564 * t4687 + 0.2e1 * t20997 * t1130 + 0.2e1 * t80666 + t3741 * t5331 + t17054 * t1272 + 0.2e1 * t80672 + 0.2e1 * t4679 * t4580 + t1265 * t17072 + 0.2e1 * t80668 + 0.2e1 * t80676 + 0.2e1 * t80675 + 0.2e1 * t80679 + t1316 * t16767 + 0.2e1 * t1123 * t21015;
27836 
27837   t86077 = 0.2e1 / 0.3e1 * t4173 * t84103 - t81754 - t81755 - t81756 - 0.5e1 / 0.18e2 * t18957 * t18543 * t73723 * t4595 + 0.2e1 / 0.3e1 * t4582 * t20525 + 0.4e1 / 0.3e1 * t84136 + 0.4e1 / 0.3e1 * t84138 + 0.4e1 / 0.3e1 * t84140 + 0.4e1 / 0.3e1 * t84142 + 0.2e1 / 0.3e1 * t84144;
27838   t86099 = 0.4e1 / 0.3e1 * t84146 + 0.2e1 / 0.3e1 * t16781 * t5189 + 0.2e1 / 0.3e1 * t4588 * t20519 + 0.2e1 / 0.3e1 * t4588 * t20525 + t1277 * t84354 / 0.3e1 + 0.2e1 / 0.3e1 * t84157 - 0.20e2 / 0.3e1 * t4156 * t84458 - 0.5e1 / 0.36e2 * t81046 * t19762 - 0.5e1 / 0.36e2 * t19532 * t82796 - 0.5e1 / 0.72e2 * t19532 * t81790 + 0.5e1 / 0.12e2 * t81076 * t19741;
27839   t86118 = 0.5e1 / 0.12e2 * t19560 * t81681 - 0.4e1 * t84179 - 0.4e1 * t84182 - 0.10e2 / 0.3e1 * t15500 * t20473 + 0.4e1 / 0.3e1 * t84201 + 0.5e1 / 0.24e2 * t19560 * t81812 - 0.5e1 / 0.36e2 * t81079 * t19755 - 0.5e1 / 0.36e2 * t19565 * t81818 - 0.5e1 / 0.72e2 * t19565 * t81699 + 0.10e2 * t13892 * t84088 - 0.8e1 * t84218;
27840   t86138 = 0.20e2 * t84221 + 0.5e1 / 0.6e1 * t72999 * t81822 + 0.2e1 / 0.3e1 * t84223 + 0.4e1 / 0.3e1 * t84225 + 0.5e1 / 0.6e1 * t18989 * t18543 * t14704 * t4595 - 0.8e1 * t84227 - 0.5e1 / 0.72e2 * t5335 * t81853 + 0.2e1 / 0.3e1 * t1277 * t84415 + 0.4e1 / 0.3e1 * t84231 + 0.2e1 / 0.3e1 * t84233 + 0.2e1 / 0.3e1 * t84237;
27841   t86152 = t4595 * t4595;
27842   t86158 = 0.4e1 / 0.3e1 * t84239 - 0.2e1 * t449 * t5381 * t3249 + t81868 - 0.8e1 * t84241 + t17043 * t5189 / 0.3e1 + 0.2e1 / 0.3e1 * t4597 * t20519 + 0.2e1 / 0.3e1 * t4597 * t20525 - 0.4e1 * t2442 * t21042 - 0.5e1 / 0.72e2 * t1397 * t4926 * t86152 * t4936 - t81891 + 0.12e2 * t84251;
27843   t86173 = t81893 + 0.2e1 / 0.3e1 * t16803 * t5189 + 0.2e1 / 0.3e1 * t16807 * t5189 + 0.2e1 / 0.3e1 * t4582 * t20519 + 0.4e1 * t84264 - t3213 * t5381 - 0.20e2 / 0.3e1 * t84276 - 0.20e2 / 0.3e1 * t84279 - 0.20e2 / 0.3e1 * t84281 - 0.20e2 / 0.3e1 * t84283 - 0.20e2 / 0.3e1 * t84285;
27844   t86185 = -0.20e2 / 0.3e1 * t84287 - 0.5e1 / 0.72e2 * t19532 * t81675 - 0.5e1 / 0.36e2 * t81046 * t19765 - 0.5e1 / 0.36e2 * t19532 * t81723 - 0.5e1 / 0.144e3 * t5335 * t81857 - 0.4e1 * t84293 - t82388 + t82391 - t82393 + 0.2e1 * t84297 + t82396;
27845   t86215 = 0.4e1 * t84322 - 0.5e1 / 0.18e2 * t19532 * t81762 + 0.5e1 / 0.6e1 * t19560 * t81830 - 0.5e1 / 0.18e2 * t19565 * t81904 - 0.5e1 / 0.18e2 * t5179 * t18555 * t73732 * t4595 - 0.10e2 / 0.3e1 * t15683 * t20473 - 0.10e2 / 0.3e1 * t15699 * t20473 - 0.10e2 / 0.3e1 * t4156 * t84170 - 0.10e2 / 0.3e1 * t4156 * t84257 - t82471 + t1277 * t84496 / 0.3e1;
27846   t86228 = 0.2e1 / 0.3e1 * t1277 * t84500 + t16777 * t5189 / 0.3e1 - t82475 + 0.4e1 / 0.3e1 * t84363 + 0.4e1 / 0.3e1 * t84365 + 0.4e1 / 0.3e1 * t84367 + 0.4e1 / 0.3e1 * t84369 + 0.4e1 / 0.3e1 * t84371 + 0.4e1 / 0.3e1 * t84373 + 0.2e1 / 0.3e1 * t84390 - t4957;
27847   t86238 = -t82479 - t82484 + 0.12e2 * t84402 - 0.20e2 / 0.3e1 * t84404 - 0.10e2 / 0.3e1 * t84406 + 0.12e2 * t84408 - t82489 - t82494 - t82496 + t5388 * t3530 - 0.5e1 / 0.72e2 * t5179 * t5044 * t3763 * t17015;
27848   t86253 = 0.4e1 / 0.3e1 * t15503 * t20480 + 0.4e1 / 0.3e1 * t15686 * t20480 + 0.4e1 / 0.3e1 * t15610 * t20480 + 0.4e1 / 0.3e1 * t4173 * t84375 + 0.4e1 / 0.3e1 * t4173 * t84261 - 0.5e1 / 0.3e1 * t4156 * t84099 - t82505 - t82511 + t82522 + t82527 - t82531;
27849   t86264 = t82533 + t82537 - 0.4e1 * t84448 - 0.8e1 * t84450 - t82548 - 0.35e2 / 0.24e2 * t73036 * t81666 - t82550 - t82774 - t82780 - 0.5e1 / 0.72e2 * t1397 * t82423 * t5333 * t4936 + 0.5e1 / 0.6e1 * t19560 * t81833;
27850   t86283 = -0.5e1 / 0.18e2 * t19565 * t81908 - 0.5e1 / 0.18e2 * t5179 * t18560 * t929 * t4595 - 0.2e1 * t84466 - 0.4e1 * t449 * t21137 * t928 + t16800 * t5189 / 0.3e1 - 0.5e1 / 0.144e3 * t36282 * t5334 * t4936 - 0.5e1 / 0.72e2 * t21140 * t20062 - t82783 + t82784 + t82788 - t82791;
27851   t86303 = t82552 + t82558 + 0.10e2 / 0.3e1 * t84516 + 0.20e2 / 0.3e1 * t84520 - 0.20e2 * t84522 + 0.5e1 / 0.72e2 * t82739 * t5384 + t5056 - 0.2e1 / 0.3e1 * t84537 - 0.4e1 / 0.3e1 * t84539 - 0.4e1 / 0.3e1 * t84541 + 0.20e2 / 0.3e1 * t84547 + 0.20e2 / 0.3e1 * t84549 + 0.20e2 / 0.3e1 * t84551 + 0.35e2 / 0.24e2 * t68542 * t5383 * t82565 + t82569 + t82570 - 0.4e1 / 0.3e1 * t84558 - 0.4e1 / 0.3e1 * t84560;
27852   t86331 = -0.2e1 / 0.3e1 * t84562 - 0.4e1 / 0.3e1 * t84564 - 0.4e1 / 0.3e1 * t84566 - 0.2e1 / 0.3e1 * t84569 - 0.4e1 / 0.3e1 * t84572 - 0.4e1 / 0.3e1 * t84575 - 0.2e1 / 0.3e1 * t84578 - 0.4e1 / 0.3e1 * t84581 - 0.4e1 / 0.3e1 * t84583 - t82579 - t82581 - t82584 - t82587 + 0.5e1 / 0.18e2 * t19027 * t4932 * t75135 * t4595 + 0.5e1 / 0.18e2 * t73544 * t82608 + 0.5e1 / 0.18e2 * t19030 * t4932 * t75122 * t4595 + 0.5e1 / 0.18e2 * t73588 * t82598 + 0.5e1 / 0.18e2 * t19033 * t4932 * t80859 * t908 - 0.5e1 / 0.6e1 * t73531 * t82647;
27853   t86353 = 0.5e1 / 0.18e2 * t73535 * t82667 + 0.5e1 / 0.72e2 * t5042 * t86152 * t114 * t5044 + 0.5e1 / 0.72e2 * t5042 * t5383 * t82746 + 0.5e1 / 0.72e2 * t82735 * t5384 + 0.5e1 / 0.144e3 * t82750 * t5384 - 0.4e1 / 0.3e1 * t84622 - 0.4e1 / 0.3e1 * t84624 - 0.4e1 / 0.3e1 * t84627 - 0.2e1 / 0.3e1 * t84629 - 0.4e1 / 0.3e1 * t84631 - 0.4e1 / 0.3e1 * t84633 - 0.2e1 / 0.3e1 * t84636 + t82652 + t82654 - t82665 - t82671 + t82673 + t82692;
27854   t86390 = -t82695 + 0.20e2 / 0.3e1 * t84652 + 0.20e2 / 0.3e1 * t84658 - 0.5e1 / 0.6e1 * t73580 * t82754 - 0.5e1 / 0.6e1 * t73577 * t82758 - 0.5e1 / 0.6e1 * t19023 * t4932 * t75198 * t4595 - 0.5e1 / 0.12e2 * t75221 * t21149 + 0.5e1 / 0.36e2 * t75224 * t21152 + 0.5e1 / 0.36e2 * t14662 * t21155 + 0.5e1 / 0.36e2 * t19962 * t21159 + 0.5e1 / 0.36e2 * t19962 * t21162 - 0.5e1 / 0.24e2 * t18362 * t5383 * t82727 + 0.5e1 / 0.72e2 * t18368 * t5383 * t82678 + 0.5e1 / 0.72e2 * t3939 * t5383 * t82682 + 0.5e1 / 0.72e2 * t5042 * t5200 * t5044 * t17015 + 0.5e1 / 0.72e2 * t5042 * t5383 * t82623 + t82763 + t82766 + t82768;
27855   t86409 = t5349 * t3607;
27856   t86446 = t81460 * t21108 / 0.192e3 + t81317 * t21060 / 0.72e2 + t81248 / 0.288e3 - t73303 * t18299 * t3616 / 0.128e3 - 0.4e1 * t19629 * t19635 * t5349 * t3667 * t329 + 0.12e2 * t19629 * t73328 * t86409 * t2219 - 0.19e2 / 0.432e3 * t5364 * t11125 * t208 * t5366 + t21103 * t21115 / 0.72e2 - t81464 * t21108 / 0.36e2 + 0.24e2 * t73228 * t73229 * t16895 - 0.16e2 * t73223 * t15806 * t16913 + 0.8e1 * t73401 * t16914 - t19591 * t18226 * t19592 * t3668 / 0.768e3 - 0.8e1 * t19621 * t19641 * t16895 - t81297 / 0.864e3 - t19601 * t18226 * t19602 * t3542 / 0.576e3 + t73234 * t18226 * t19592 * t3615 / 0.384e3;
27857   t86462 = t4973 * t3675 * t4976;
27858   t86480 = t4627 * t4627;
27859   t86509 = t19601 * t18226 * t19602 * t3546 / 0.1152e4 + 0.5e1 / 0.3456e4 * t19601 * t18226 * t73212 * t3538 + t19650 * t210 * t276 * t340 * t3696 / 0.384e3 + t81310 / 0.288e3 - t86462 * t5363 * t5367 / 0.768e3 + t73387 * t2578 * t81441 * t1041 / 0.288e3 - t19591 * t18226 * t19592 * t3608 / 0.768e3 - 0.12e2 * t5351 * t73359 * t331 * t3680 + t81398 * t21111 / 0.192e3 - 0.4e1 * t1159 * t86480 * t1162 * t5352 - 0.4e1 * t19629 * t19635 * t86409 * t329 + 0.2e1 * t19621 * t4215 * t3668 - t73341 * t210 * t276 * t340 * t3680 / 0.128e3 - t81321 * t21069 / 0.108e3 + t73270 + t19658 * t18299 * t3669 / 0.384e3 - 0.24e2 * t19629 * t19630 * t4634 * t4627 - 0.4e1 * t19621 * t14051 * t3615;
27860   t86554 = -t81388 / 0.576e3 + 0.2e1 * t86462 * t5359 - t73289 + 0.24e2 * t19629 * t73408 * t5349 * t3680 - 0.8e1 * t81406 * t21096 + t19658 * t18299 * t3609 / 0.384e3 + 0.4e1 * t5356 * t5357 * t803 * t86480 + 0.8e1 * t81406 * t21100 - 0.12e2 * t81406 * t21091 - t19601 * t2233 * t73424 * t905 * t1098 / 0.576e3 + t19591 * t5366 * t81286 * t329 * t1098 / 0.384e3 - t81449 / 0.576e3 - 0.4e1 * t19613 * t16925 - 0.6e1 * t19629 * t19630 * t5349 * t3696 - t81458 / 0.576e3 + t19667 * t18299 * t3603 / 0.576e3 + t81301 * t21118 / 0.108e3;
27861   t86609 = 0.2e1 * t19621 * t4215 * t3608 - t73310 * t2578 * t21106 * t1075 / 0.96e2 + t21065 * t21074 / 0.72e2 + t5344 * t533 * t758 * t2291 * t3680 / 0.384e3 - t5344 * t533 * t758 * t837 * t3696 / 0.768e3 - t81426 * t21111 / 0.36e2 + t81485 / 0.108e3 + t73372 * t2578 * t37747 * t11142 / 0.288e3 + 0.19e2 / 0.432e3 * t4959 * t331 * t3597 * t61 * t5346 + 0.4e1 * t5351 * t19616 * t331 * t3696 + 0.16e2 * t73401 * t16900 + 0.4e1 * t19629 * t19641 * t1291 * t16873 - t73396 * t73397 * t3620 / 0.576e3 - t81244 * t21118 / 0.576e3 - t19667 * t18299 * t3646 / 0.1152e4 - 0.5e1 / 0.3456e4 * t19667 * t18299 * t3650 - t81518 / 0.108e3 + t81527 / 0.864e3;
27862   t86622 = t4645 * t4645;
27863   t86636 = my_piecewise3(t359, t169 * (t86446 + t86509 + t86554 + t86609) * t848 / 0.2e1 - t169 * t81536 * t1101 + t169 * t73445 * t3703 - t169 * t19675 * t3699 / 0.2e1 - t169 * t86622 * t2320 + 0.4e1 * t15846 * t55428 * t1101 - t169 * t4226 * t16927 - 0.3e1 * t169 * t73459 * t3703 + t169 * t19681 * t3699, t82363);
27864   t86650 = -0.12e2 * t84486 - 0.2e1 * t916 * t21137 + (t86303 + t86331 + t86353 + t86390) * t227 + 0.2e1 * t21172 * t1037 - t82811 - t98 * (t84327 + t84328 + t84330 + t86636 * t46 / 0.2e1 + t21133 * t905 + t5378 * t3202 / 0.2e1) - 0.2e1 * t3220 * t5381 - 0.4e1 * t84692 + 0.6e1 * t84694 - t82813 - 0.5e1 / 0.72e2 * t5335 * t81751;
27865   t86654 = -0.4e1 * t84320 - 0.8e1 * t84315 - 0.8e1 * t84313 + 0.2e1 * t84309 + 0.4e1 / 0.3e1 * t84107 + 0.4e1 / 0.3e1 * t84111 + 0.4e1 / 0.3e1 * t84072 + 0.2e1 / 0.3e1 * t84066 + 0.4e1 / 0.3e1 * t84068 + 0.4e1 / 0.3e1 * t84070 + 0.4e1 / 0.3e1 * t84062 - t82454 - t82448 + t82402 - t82404 - t82406 + t82398 - t81730 + t86650 + t86283 + t86264 + t86253 + t86238 + t86228 + t86215 + t86185 + t86173 + t86158 + t86138 + t86118 + t86099 + t86077 - 0.5e1 / 0.36e2 * t5179 * t5044 * t14713 * t4595 - 0.5e1 / 0.36e2 * t20468 * t21028;
27866   t86680 = t370 * t86654 * params->d + 0.6e1 * t3749 * t5396 + t5079 + t82839 + t82844 + t82847 + t82849 + t82852 + t82856 + 0.6e1 * t84704 + 0.12e2 * t84706 + 0.24e2 * t84709;
27867   t86689 = 0.6e1 * t1127 * t21191 + 0.3e1 * t3752 * t5396 + t82866 + t82870 + t82873 + t82880 + t82882 + t82884 + t82889 + 0.12e2 * t84712 + 0.24e2 * t84715 + 0.12e2 * t84728 + 0.6e1 * t84730;
27868   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27869     v4rho2sigma2[17] = 0.2e1 * t80684 + 0.2e1 * t81603 + t7 * t86654 * t372 + 0.2e1 * t21183 * t1130 + t5392 * t3755 + 0.4e1 * t81608 + 0.4e1 * t81615 + 0.2e1 * t17054 * t1320 + 0.4e1 * t4679 * t4687 + 0.2e1 * t1316 * t17072 + 0.2e1 * t81621 + 0.2e1 * t81624 + t3741 * t5399 + 0.2e1 * t1123 * t21198 + t872 * (t86680 + t86689);
27870 
27871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27872     v4rho2sigmalapl[0] = 0.0e0;
27873 
27874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27875     v4rho2sigmalapl[1] = 0.0e0;
27876 
27877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27878     v4rho2sigmalapl[2] = 0.0e0;
27879 
27880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27881     v4rho2sigmalapl[3] = 0.0e0;
27882 
27883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27884     v4rho2sigmalapl[4] = 0.0e0;
27885 
27886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27887     v4rho2sigmalapl[5] = 0.0e0;
27888 
27889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27890     v4rho2sigmalapl[6] = 0.0e0;
27891 
27892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27893     v4rho2sigmalapl[7] = 0.0e0;
27894 
27895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27896     v4rho2sigmalapl[8] = 0.0e0;
27897 
27898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27899     v4rho2sigmalapl[9] = 0.0e0;
27900 
27901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27902     v4rho2sigmalapl[10] = 0.0e0;
27903 
27904   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27905     v4rho2sigmalapl[11] = 0.0e0;
27906 
27907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27908     v4rho2sigmalapl[12] = 0.0e0;
27909 
27910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27911     v4rho2sigmalapl[13] = 0.0e0;
27912 
27913   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27914     v4rho2sigmalapl[14] = 0.0e0;
27915 
27916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27917     v4rho2sigmalapl[15] = 0.0e0;
27918 
27919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27920     v4rho2sigmalapl[16] = 0.0e0;
27921 
27922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27923     v4rho2sigmalapl[17] = 0.0e0;
27924 
27925   t86692 = t3988 * t1341;
27926   t86694 = t21349 * t372;
27927   t86700 = t14483 * t13056;
27928   t86702 = 0.4e1 * t21244 * t86700;
27929   t86726 = t14483 * t12937 * t443;
27930   t86728 = 0.16e2 * t21239 * t86726;
27931   t86730 = t14483 * t3874 * t1470;
27932   t86732 = 0.8e1 * t21239 * t86730;
27933   t86733 = t397 * t21238;
27934   t86735 = 0.12e2 * t86733 * t21245;
27935   t86736 = t4725 * t167;
27936   t86737 = t81 * t86736;
27937   t86739 = 0.12e2 * t86737 * t21245;
27938   t86740 = t4729 * t167;
27939   t86741 = t81 * t86740;
27940   t86743 = 0.12e2 * t86741 * t21245;
27941   t86744 = t13344 * t12938;
27942   t86746 = 0.12e2 * t21244 * t86744;
27943   t86747 = -0.10e2 / 0.3e1 * t12765 * t21288 - 0.10e2 / 0.3e1 * t12761 * t21288 + t86702 - 0.2e1 / 0.3e1 * t5416 * t70493 - 0.2e1 / 0.3e1 * t5416 * t70496 - 0.2e1 / 0.3e1 * t21251 * t18816 - t5416 * t70499 / 0.3e1 - 0.2e1 / 0.3e1 * t21251 * t18819 - 0.2e1 / 0.3e1 * t21254 * t18816 + t47324 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t47189 * t5402 + 0.2e1 / 0.3e1 * t47192 * t5402 + 0.2e1 / 0.3e1 * t13167 * t21218 + 0.2e1 / 0.3e1 * t13167 * t21222 - t86728 - t86732 + t86735 + t86739 + t86743 + t86746;
27944   t86748 = t13344 * t12944;
27945   t86750 = 0.6e1 * t21244 * t86748;
27946   t86751 = t14820 * t12934;
27947   t86753 = 0.12e2 * t21244 * t86751;
27948   t86755 = 0.4e1 * t86741 * t21248;
27949   t86756 = t14483 * t13052;
27950   t86758 = 0.4e1 * t21244 * t86756;
27951   t86759 = t14483 * t13059;
27952   t86761 = 0.2e1 * t21244 * t86759;
27953   t86768 = t1397 * t21238;
27954   t86770 = t14483 * t3874 * t1398;
27955   t86772 = 0.40e2 * t86768 * t86770;
27956   t86773 = t3946 * t21287;
27957   t86779 = t47494 * t21287;
27958   t86783 = t1204 * t3789 * t17161;
27959   t86795 = t1204 * t12780 * t4714;
27960   t86804 = -0.10e2 / 0.3e1 * t13164 * t21288 - 0.10e2 / 0.3e1 * t3762 * t86779 + t3788 * t86783 / 0.3e1 + t47280 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t21218 + 0.2e1 / 0.3e1 * t12788 * t21222 + t47240 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t86795 + 0.2e1 / 0.3e1 * t13167 * t21296 + 0.2e1 / 0.3e1 * t12758 * t21296 + 0.2e1 / 0.3e1 * t12788 * t21296;
27961   t86807 = t3958 * t21295;
27962   t86811 = 0.4e1 * t18654 * t4715;
27963   t86815 = 0.4e1 * t1476 * t21316;
27964   t86817 = 0.2e1 * t70577 * t1327;
27965   t86818 = t1397 * t4726;
27966   t86821 = t1397 * t4730;
27967   t86824 = t1397 * t4733;
27968   t86827 = t47568 * t4700;
27969   t86828 = 0.11e2 / 0.9e1 * t86827;
27970   t86829 = t47571 * t4701;
27971   t86830 = 0.4e1 / 0.3e1 * t86829;
27972   t86831 = t13146 * t1132;
27973   t86832 = 0.10e2 / 0.9e1 * t86831;
27974   t86833 = t13146 * t4710;
27975   t86834 = 0.10e2 / 0.9e1 * t86833;
27976   t86835 = t47575 * t17134;
27977   t86837 = t13149 * t17137;
27978   t86839 = t13149 * t84;
27979   t86841 = t37 * t459 * t414;
27980   t86842 = t86839 * t86841;
27981   t86844 = t13149 * t17144;
27982   t86846 = t3807 * t3772;
27983   t86848 = t3807 * t3775;
27984   t86850 = t3807 * t17154;
27985   t86852 = t3807 * t17157;
27986   t86854 = -t86828 - t86830 - t86832 + t86834 - 0.3e1 / 0.4e1 * t86835 - 0.5e1 / 0.6e1 * t86837 + 0.5e1 / 0.6e1 * t86842 + t86844 / 0.4e1 - 0.5e1 / 0.9e1 * t86846 + 0.25e2 / 0.36e2 * t86848 - 0.5e1 / 0.36e2 * t86850 - 0.5e1 / 0.24e2 * t86852;
27987   t86855 = my_piecewise3(t95, 0, t86854);
27988   t86858 = 0.2e1 * t449 * t363 * t86855;
27989   t86866 = t3958 * t21291;
27990   t86870 = t1204 * t1485 * t1326;
27991   t86874 = t1204 * t47272 * t1326;
27992   t86878 = 0.4e1 * t86737 * t21248;
27993   t86883 = t6442 * t1330;
27994   t86889 = t1204 * t1517 * t1326;
27995   t86892 = 0.2e1 / 0.3e1 * t12758 * t21292 + 0.2e1 / 0.3e1 * t12788 * t21292 + 0.2e1 / 0.3e1 * t3788 * t86866 + 0.2e1 / 0.3e1 * t3788 * t86870 + t3788 * t86874 / 0.3e1 - t86878 - 0.2e1 / 0.3e1 * t21254 * t18819 - t5416 * t70425 / 0.3e1 - t86883 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t5416 * t70422 + t3788 * t86889 / 0.3e1;
27996   t86894 = t1392 * t21238;
27997   t86896 = 0.16e2 * t86894 * t21241;
27998   t86897 = t400 * t86736;
27999   t86899 = 0.16e2 * t86897 * t21241;
28000   t86900 = t400 * t86740;
28001   t86902 = 0.16e2 * t86900 * t21241;
28002   t86904 = t12791 * t1327 * t1470;
28003   t86908 = 0.2e1 * t5097 * t17166;
28004   t86914 = t13344 * t1190;
28005   t86915 = t18219 * t746;
28006   t86916 = t86914 * t86915;
28007   t86918 = 0.12e2 * t21244 * t86916;
28008   t86920 = t12791 * t4715 * t443;
28009   t86924 = t748 * t443 * t677;
28010   t86925 = t86914 * t86924;
28011   t86927 = 0.48e2 * t21239 * t86925;
28012   t86929 = t6445 * t1330;
28013   t86935 = 0.2e1 * t81 * t1143 * t17161 * t227;
28014   t86939 = 0.2e1 * t81 * t1516 * t5412 * t227;
28015   t86943 = 0.4e1 * t81 * t464 * t21315 * t227;
28016   t86944 = t81 * t17087;
28017   t86946 = 0.4e1 * t86944 * t1193;
28018   t86948 = 0.2e1 * t70654 * t1327;
28019   t86950 = 0.4e1 * t18640 * t4694;
28020   t86953 = 0.4e1 * t81 * t21323 * t751;
28021   t86954 = t14483 * t1190;
28022   t86956 = t2093 * t443 * t746;
28023   t86957 = t86954 * t86956;
28024   t86959 = 0.16e2 * t21239 * t86957;
28025   t86962 = 0.4e1 * t81 * t21337 * t751;
28026   t86964 = t1204 * t465 * t4714;
28027   t86967 = 0.10e2 / 0.3e1 * t86929 * t21211 + t86935 + t86939 + t86943 + t86946 - t86948 - t86950 + t86953 + t86959 + t86962 + 0.2e1 / 0.3e1 * t3788 * t86964;
28028   t86971 = t13336 * t5401;
28029   t86974 = t3958 * t21221;
28030   t86983 = t1392 * t4730;
28031   t86986 = t400 * t17088;
28032   t86989 = t400 * t17163;
28033   t86992 = t400 * t17109;
28034   t87002 = t1392 * t4733;
28035   t87005 = t400 * t17091;
28036   t87013 = 0.4e1 * t21204 * t3922;
28037   t87019 = 0.4e1 * t86733 * t21248;
28038   t87021 = 0.4e1 * t2448 * t21316;
28039   t87022 = -0.2e1 / 0.3e1 * t21225 * t18816 - 0.2e1 / 0.3e1 * t21225 * t18819 - 0.2e1 / 0.3e1 * t87002 * t5146 - 0.2e1 / 0.3e1 * t87005 * t5146 - t5416 * t70490 / 0.3e1 - 0.2e1 * t6587 * t5407 + t87013 - 0.2e1 / 0.3e1 * t21228 * t18819 - 0.2e1 / 0.3e1 * t21251 * t18813 - t87019 - t87021;
28040   t87026 = 0.4e1 * t449 * t857 * t21315;
28041   t87028 = 0.40e2 * t76862 * t17106;
28042   t87029 = t6453 * t1330;
28043   t87030 = t3761 * t13252;
28044   t87034 = t12791 * t4694 * t443;
28045   t87038 = 0.4e1 * t5097 * t17080;
28046   t87045 = 0.2e1 * t449 * t2331 * t5412;
28047   t87047 = 0.4e1 * t21207 * t3922;
28048   t87053 = t12791 * t1327 * t1398;
28049   t87056 = t12757 * t3940;
28050   t87059 = t12764 * t3940;
28051   t87062 = t3761 * t13272;
28052   t87065 = t3761 * t13276;
28053   t87069 = 0.2e1 * t8308 * t5413;
28054   t87071 = 0.4e1 * t2448 * t21272;
28055   t87073 = 0.2e1 * t5097 * t17120;
28056   t87079 = 0.2e1 * t81 * t5423 * t2101;
28057   t87080 = t5412 * t751;
28058   t87083 = 0.16e2 * t4720 * t87080 * t443;
28059   t87084 = 0.10e2 * t13159 * t87053 + 0.10e2 / 0.3e1 * t21210 * t87056 + 0.10e2 / 0.3e1 * t21210 * t87059 + 0.10e2 / 0.3e1 * t21210 * t87062 + 0.5e1 / 0.3e1 * t21210 * t87065 - t87069 - t87071 - t87073 - 0.2e1 * t449 * t1199 * t17161 + t87079 - t87083;
28060   t87089 = 0.40e2 * t7757 * t21214 * t1398;
28061   t87091 = 0.4e1 * t21201 * t3922;
28062   t87093 = 0.4e1 * t18640 * t4715;
28063   t87096 = 0.8e1 * t4720 * t21214 * t1470;
28064   t87097 = t1392 * t1143;
28065   t87099 = 0.16e2 * t87097 * t4722;
28066   t87100 = t400 * t3811;
28067   t87102 = 0.16e2 * t87100 * t4722;
28068   t87104 = 0.16e2 * t21257 * t17098;
28069   t87107 = 0.2e1 * t81 * t5419 * t2101;
28070   t87109 = 0.2e1 * t1391 * t5420;
28071   t87112 = 0.4e1 * t81 * t21319 * t751;
28072   t87115 = 0.4e1 * t397 * t21332;
28073   t87120 = t21315 * t227;
28074   t87123 = 0.16e2 * t4720 * t87120 * t443;
28075   t87125 = 0.4e1 * t70584 * t1327;
28076   t87127 = 0.4e1 * t18654 * t4694;
28077   t87128 = t1392 * t4726;
28078   t87131 = t400 * t17084;
28079   t87135 = 0.4e1 * t397 * t21329;
28080   t87137 = 0.4e1 * t7847 * t5413;
28081   t87139 = 0.4e1 * t1476 * t21272;
28082   t87140 = t87115 - 0.4e1 * t7847 * t5407 - 0.4e1 * t1476 * t21279 - t87123 - t87125 - t87127 - 0.2e1 / 0.3e1 * t87128 * t5146 - t87131 * t5146 / 0.3e1 + t87135 - t87137 - t87139;
28083   t87143 = 0.4e1 * t397 * t21320;
28084   t87145 = 0.4e1 * t397 * t21324;
28085   t87148 = 0.4e1 * t81 * t21343 * t751;
28086   t87152 = 0.2e1 * t81 * t96 * t86855 * t227;
28087   t87154 = 0.16e2 * t17094 * t21215;
28088   t87156 = 0.8e1 * t21257 * t17101;
28089   t87158 = 0.16e2 * t17116 * t21215;
28090   t87162 = 0.4e1 * t81 * t3811 * t4714 * t227;
28091   t87164 = 0.2e1 * t6587 * t5413;
28092   t87165 = t81 * t17162;
28093   t87167 = 0.2e1 * t87165 * t1193;
28094   t87169 = t1391 * t1329;
28095   t87171 = 0.2e1 * t87169 * t1193;
28096   t87172 = t397 * t4725;
28097   t87174 = 0.4e1 * t87172 * t1193;
28098   t87175 = t397 * t4729;
28099   t87177 = 0.4e1 * t87175 * t1193;
28100   t87178 = t400 * t17177;
28101   t87184 = 0.2e1 * t81 * t13155 * t1326 * t227;
28102   t87185 = t81 * t17083;
28103   t87187 = 0.2e1 * t87185 * t1193;
28104   t87189 = 0.16e2 * t21257 * t17113;
28105   t87191 = 0.2e1 * t5427 * t13050;
28106   t87193 = 0.2e1 * t1391 * t5424;
28107   t87195 = 0.4e1 * t397 * t21338;
28108   t87197 = 0.4e1 * t397 * t21344;
28109   t87198 = t87171 + t87174 + t87177 - t87178 * t5146 / 0.3e1 + t87184 + t87187 - t87189 + t87191 + t87193 + t87195 + t87197;
28110   t87202 = t87198 + t87167 + t87162 - t87164 - t87156 - t87158 + t87152 - t87154 + t87145 + t87148 + t87140 + t87143 + t87112 + t87107 + t87109 - t87102 - t87104 - t87096 - t87099 + t87091 - t87093 + t87089 + t87084 + t87047 - t87045 - t87038 + t87028 - t87026 + t87022 + t86967 - t86927 - t86918 - t86908 - t86899 - t86902 - t86896 + t86892 - t86858 - t86815 - t86817 - t86811 + t86804 + t86772 - t86761 - t86755 - t86758 + t86750 + t86753 + t86747 + t3788 * t86971 / 0.3e1 - 0.4e1 * t2448 * t21282 - 0.10e2 / 0.3e1 * t3762 * t86920 - 0.5e1 / 0.3e1 * t3762 * t86904 + 0.2e1 / 0.3e1 * t13167 * t21292 + 0.10e2 / 0.3e1 * t86818 * t21211 + 0.10e2 / 0.3e1 * t86821 * t21211 + 0.10e2 / 0.3e1 * t86824 * t21211 + 0.2e1 / 0.3e1 * t3788 * t86807 - 0.4e1 * t1476 * t21282 - 0.2e1 / 0.3e1 * t21254 * t18813 - 0.2e1 / 0.3e1 * t21228 * t18813 - 0.2e1 / 0.3e1 * t21228 * t18816 - 0.10e2 / 0.3e1 * t3762 * t86773 - 0.4e1 * t449 * t3934 * t4714 - 0.2e1 * t449 * t13074 * t1326 - 0.10e2 / 0.3e1 * t3762 * t87034 - 0.2e1 * t8308 * t5407 - 0.4e1 * t2448 * t21279 - 0.10e2 * t87029 * t87030 + 0.2e1 / 0.3e1 * t3788 * t86974 + 0.2e1 / 0.3e1 * t47861 * t5402 + 0.2e1 / 0.3e1 * t12758 * t21218 + 0.2e1 / 0.3e1 * t12758 * t21222 - 0.2e1 / 0.3e1 * t86983 * t5146 - 0.2e1 / 0.3e1 * t86986 * t5146 - t86989 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t86992 * t5146 - 0.2e1 / 0.3e1 * t21225 * t18813;
28111   t87208 = 0.3e1 * t1336 * t13391;
28112   t87211 = 0.3e1 * t369 * t97 * t86855;
28113   t87215 = 0.6e1 * t4742 * t4003;
28114   t87217 = 0.6e1 * t873 * t21393;
28115   t87220 = 0.6e1 * t369 * t17162 * t1143;
28116   t87223 = 0.12e2 * t369 * t4729 * t3811;
28117   t87226 = 0.6e1 * t369 * t17083 * t1143;
28118   t87229 = 0.12e2 * t369 * t17087 * t1143;
28119   t87232 = 0.12e2 * t369 * t4725 * t3811;
28120   t87234 = 0.12e2 * t1336 * t13385;
28121   t87236 = 0.6e1 * t1336 * t13388;
28122   t87239 = 0.6e1 * t369 * t1481 * t5412;
28123   t87243 = 0.6e1 * t2363 * t5441;
28124   t87245 = 0.3e1 * t2363 * t5444;
28125   t87246 = 0.6e1 * t1219 * t17218 + 0.6e1 * t1219 * t17224 + 0.3e1 * t13368 * t1338 + t87208 + t87211 + t87215 + t87217 + t87220 + t87223 + t87226 + t87229 + t87232 + t87234 + t87236 + t87239 + t87243 + t87245;
28126   t87255 = 0.6e1 * t369 * t1329 * t13155;
28127   t87257 = 0.12e2 * t873 * t21382;
28128   t87269 = 0.12e2 * t4742 * t4000;
28129   t87271 = 0.12e2 * t873 * t21390;
28130   t87274 = 0.12e2 * t369 * t21343 * t464;
28131   t87277 = 0.6e1 * t369 * t5423 * t1516;
28132   t87279 = 0.3e1 * t17204 * t1221;
28133   t87281 = 0.6e1 * t1336 * t13382;
28134   t87283 = 0.12e2 * t873 * t21379;
28135   t87285 = 0.12e2 * t873 * t21385;
28136   t87286 = t370 * t87202 * params->d + 0.12e2 * t1219 * t17221 + 0.3e1 * t1219 * t17227 + 0.6e1 * t21361 * t875 + 0.6e1 * t2367 * t5435 + 0.3e1 * t2370 * t5435 + 0.12e2 * t3994 * t4748 + 0.6e1 * t3994 * t4751 + t87255 + t87257 + t87269 + t87271 + t87274 + t87277 + t87279 + t87281 + t87283 + t87285;
28137   t87289 = t1333 * t4006;
28138   t87294 = t5430 * t878;
28139   t87301 = t869 * t5447;
28140   t87304 = t368 * t21396;
28141   t87306 = t4736 * t1224;
28142   t87310 = t1216 * t4754;
28143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28144     v4rho2sigmatau[0] = 0.2e1 * t86692 + 0.2e1 * t86694 + t7 * t87202 * t372 + t872 * (t87246 + t87286) + 0.2e1 * t87289 + 0.2e1 * t3989 * t4754 + t1217 * t17230 + 0.2e1 * t87294 + 0.2e1 * t4737 * t4006 + t2359 * t5447 + t1334 * t13394 + t13356 * t1341 + 0.2e1 * t87301 + t17192 * t1224 + 0.2e1 * t87304 + 0.2e1 * t87306 + 0.2e1 * t870 * t21396 + 0.2e1 * t87310 + 0.2e1 * t21350 * t878 + t5431 * t2373;
28145 
28146   t87316 = t3988 * t1362;
28147   t87324 = t869 * t5495;
28148   t87328 = t1354 * t4006;
28149   t87332 = t4796 * t1224;
28150   t87334 = t1216 * t4814;
28151   t87336 = t21519 * t372;
28152   t87339 = t368 * t21566;
28153   t87344 = 0.16e2 * t21423 * t86957;
28154   t87355 = t3946 * t21513;
28155   t87359 = t12791 * t4761 * t443;
28156   t87371 = t1204 * t1517 * t1347;
28157   t87378 = t6442 * t1351;
28158   t87385 = t1392 * t21422;
28159   t87387 = 0.16e2 * t87385 * t21241;
28160   t87388 = t4785 * t167;
28161   t87389 = t400 * t87388;
28162   t87391 = 0.16e2 * t87389 * t21241;
28163   t87392 = t87344 + 0.2e1 / 0.3e1 * t13167 * t21435 + 0.10e2 / 0.3e1 * t21510 * t87056 + 0.10e2 / 0.3e1 * t21510 * t87059 + 0.10e2 / 0.3e1 * t21510 * t87062 + 0.5e1 / 0.3e1 * t21510 * t87065 - 0.10e2 / 0.3e1 * t3762 * t87355 - 0.10e2 / 0.3e1 * t3762 * t87359 + t47280 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t12788 * t21402 + 0.2e1 / 0.3e1 * t12788 * t21405 + 0.2e1 / 0.3e1 * t12788 * t21408 + t3788 * t87371 / 0.3e1 + 0.2e1 / 0.3e1 * t47189 * t5450 + 0.2e1 / 0.3e1 * t47192 * t5450 - t87378 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t21431 * t18819 - t5464 * t70425 / 0.3e1 - t87387 - t87391;
28164   t87393 = t4789 * t167;
28165   t87394 = t400 * t87393;
28166   t87396 = 0.16e2 * t87394 * t21241;
28167   t87398 = 0.16e2 * t21423 * t86726;
28168   t87400 = 0.8e1 * t21423 * t86730;
28169   t87401 = t397 * t21422;
28170   t87403 = 0.12e2 * t87401 * t21245;
28171   t87404 = t81 * t87388;
28172   t87406 = 0.12e2 * t87404 * t21245;
28173   t87409 = t13336 * t5449;
28174   t87414 = t400 * t17298;
28175   t87417 = t400 * t17242;
28176   t87433 = t1392 * t4790;
28177   t87436 = t400 * t17311;
28178   t87439 = t400 * t17314;
28179   t87445 = 0.12e2 * t21426 * t86916;
28180   t87446 = t47324 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t13167 * t21402 + 0.2e1 / 0.3e1 * t13167 * t21405 - 0.2e1 / 0.3e1 * t21410 * t18813 - 0.2e1 / 0.3e1 * t21410 * t18816 - 0.2e1 / 0.3e1 * t21410 * t18819 - 0.2e1 / 0.3e1 * t87433 * t5146 - t87436 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t87439 * t5146 - 0.2e1 / 0.3e1 * t21412 * t18813 - t87445;
28181   t87450 = 0.12e2 * t21426 * t86751;
28182   t87452 = 0.4e1 * t87401 * t21248;
28183   t87454 = 0.4e1 * t87404 * t21248;
28184   t87455 = t81 * t87393;
28185   t87457 = 0.4e1 * t87455 * t21248;
28186   t87459 = 0.4e1 * t21426 * t86756;
28187   t87461 = 0.2e1 * t21426 * t86759;
28188   t87463 = 0.48e2 * t21423 * t86925;
28189   t87467 = 0.4e1 * t18654 * t4761;
28190   t87469 = 0.2e1 * t5097 * t17248;
28191   t87472 = 0.16e2 * t17116 * t21483;
28192   t87474 = 0.2e1 * t5475 * t13050;
28193   t87476 = 0.16e2 * t87097 * t4782;
28194   t87478 = 0.16e2 * t87100 * t4782;
28195   t87480 = 0.16e2 * t21257 * t17329;
28196   t87482 = t1204 * t1485 * t1347;
28197   t87490 = 0.4e1 * t21467 * t3922;
28198   t87491 = t81 * t17310;
28199   t87493 = 0.2e1 * t87491 * t1193;
28200   t87495 = 0.4e1 * t397 * t21463;
28201   t87496 = -t87472 + t87474 - t87476 - t87478 - t87480 + 0.2e1 / 0.3e1 * t3788 * t87482 - 0.2e1 / 0.3e1 * t21414 * t18813 - 0.2e1 / 0.3e1 * t21414 * t18816 + t87490 + t87493 + t87495;
28202   t87501 = 0.2e1 * t8308 * t5461;
28203   t87503 = 0.4e1 * t2448 * t21473;
28204   t87504 = t6453 * t1351;
28205   t87508 = 0.4e1 * t18654 * t4776;
28206   t87510 = 0.4e1 * t18640 * t4776;
28207   t87512 = 0.4e1 * t5097 * t17301;
28208   t87513 = t81 * t17292;
28209   t87515 = 0.2e1 * t87513 * t1193;
28210   t87516 = t81 * t17297;
28211   t87518 = 0.4e1 * t87516 * t1193;
28212   t87522 = t1392 * t4786;
28213   t87525 = t400 * t17293;
28214   t87531 = 0.2e1 * t81 * t1516 * t5460 * t227;
28215   t87535 = 0.4e1 * t81 * t464 * t21461 * t227;
28216   t87536 = t47568 * t4766;
28217   t87537 = 0.11e2 / 0.9e1 * t87536;
28218   t87538 = t47571 * t4767;
28219   t87539 = 0.4e1 / 0.3e1 * t87538;
28220   t87540 = t13146 * t4771;
28221   t87541 = 0.10e2 / 0.9e1 * t87540;
28222   t87542 = t47575 * t17257;
28223   t87546 = t25556 * t49 * t459 * t418;
28224   t87548 = t13149 * t17264;
28225   t87550 = t3807 * t17268;
28226   t87552 = t3807 * t17271;
28227   t87555 = my_piecewise3(t95, 0, -t87537 - t87539 + t87541 - 0.3e1 / 0.4e1 * t87542 + 0.5e1 / 0.6e1 * t87546 + t87548 / 0.4e1 - 0.5e1 / 0.36e2 * t87550 - 0.5e1 / 0.24e2 * t87552);
28228   t87558 = 0.2e1 * t449 * t363 * t87555;
28229   t87560 = 0.2e1 * t6587 * t5461;
28230   t87569 = 0.4e1 * t449 * t857 * t21461;
28231   t87571 = 0.2e1 * t5097 * t17276;
28232   t87572 = -0.2e1 / 0.3e1 * t87522 * t5146 - t87525 * t5146 / 0.3e1 + t87531 + t87535 - t87558 - t87560 - 0.4e1 * t1476 * t21475 - 0.4e1 * t7847 * t5455 - 0.2e1 * t8308 * t5455 - t87569 - t87571;
28233   t87577 = 0.2e1 * t1391 * t5468;
28234   t87579 = 0.4e1 * t397 * t21489;
28235   t87581 = 0.4e1 * t397 * t21493;
28236   t87583 = t1204 * t465 * t4775;
28237   t87589 = 0.40e2 * t76862 * t17281;
28238   t87591 = 0.4e1 * t7847 * t5461;
28239   t87593 = 0.4e1 * t1476 * t21473;
28240   t87594 = t5460 * t751;
28241   t87597 = 0.16e2 * t4720 * t87594 * t443;
28242   t87603 = 0.4e1 * t70584 * t1348;
28243   t87605 = 0.2e1 * t70654 * t1348;
28244   t87607 = 0.4e1 * t18640 * t4761;
28245   t87608 = t3958 * t21407;
28246   t87616 = 0.4e1 * t21426 * t86700;
28247   t87618 = 0.4e1 * t21465 * t3922;
28248   t87621 = 0.40e2 * t7757 * t21482 * t1398;
28249   t87623 = 0.4e1 * t397 * t21441;
28250   t87627 = 0.2e1 * t81 * t13155 * t1347 * t227;
28251   t87628 = -t87603 - t87605 - t87607 + 0.2e1 / 0.3e1 * t3788 * t87608 + 0.2e1 / 0.3e1 * t12758 * t21402 + 0.2e1 / 0.3e1 * t12758 * t21405 + t87616 + t87618 + t87621 + t87623 + t87627;
28252   t87633 = 0.4e1 * t81 * t3811 * t4775 * t227;
28253   t87636 = 0.4e1 * t81 * t21462 * t751;
28254   t87639 = 0.2e1 * t449 * t2331 * t5460;
28255   t87644 = t1392 * t4793;
28256   t87647 = t400 * t17245;
28257   t87653 = t1204 * t47272 * t1347;
28258   t87656 = t3958 * t21404;
28259   t87663 = 0.2e1 * t81 * t96 * t87555 * t227;
28260   t87665 = 0.16e2 * t21257 * t17237;
28261   t87667 = 0.16e2 * t17094 * t21483;
28262   t87670 = 0.2e1 * t81 * t5471 * t2101;
28263   t87672 = 0.4e1 * t397 * t21438;
28264   t87674 = t1204 * t12780 * t4775;
28265   t87678 = t1204 * t3789 * t17275;
28266   t87681 = t1397 * t21422;
28267   t87683 = 0.40e2 * t87681 * t86770;
28268   t87686 = 0.2e1 * t81 * t5467 * t2101;
28269   t87689 = 0.4e1 * t81 * t21488 * t751;
28270   t87692 = 0.8e1 * t4720 * t21482 * t1470;
28271   t87693 = t87663 - t87665 - t87667 + t87670 + t87672 + 0.2e1 / 0.3e1 * t3788 * t87674 + t3788 * t87678 / 0.3e1 + t87683 + t87686 + t87689 - t87692;
28272   t87699 = 0.4e1 * t1476 * t21502;
28273   t87701 = 0.2e1 * t70577 * t1348;
28274   t87710 = 0.12e2 * t87455 * t21245;
28275   t87712 = 0.12e2 * t21426 * t86744;
28276   t87714 = 0.6e1 * t21426 * t86748;
28277   t87722 = t3958 * t21434;
28278   t87726 = t12791 * t1348 * t1398;
28279   t87730 = 0.4e1 * t2448 * t21502;
28280   t87744 = t47240 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t13167 * t21408 + 0.2e1 / 0.3e1 * t3788 * t87722 + 0.10e2 * t13159 * t87726 - t87730 - 0.10e2 / 0.3e1 * t12765 * t21514 - 0.4e1 * t449 * t3934 * t4775 - 0.2e1 / 0.3e1 * t21414 * t18819 - 0.2e1 / 0.3e1 * t21431 * t18813 - t5464 * t70490 / 0.3e1 - 0.2e1 / 0.3e1 * t5464 * t70493;
28281   t87750 = t6445 * t1351;
28282   t87753 = t1397 * t4786;
28283   t87760 = 0.4e1 * t81 * t21492 * t751;
28284   t87762 = 0.2e1 * t1391 * t5472;
28285   t87764 = 0.4e1 * t397 * t21449;
28286   t87765 = t1397 * t4793;
28287   t87770 = 0.4e1 * t81 * t21448 * t751;
28288   t87772 = t47494 * t21513;
28289   t87775 = t1397 * t4790;
28290   t87779 = t12791 * t4776 * t443;
28291   t87783 = t12791 * t1348 * t1470;
28292   t87786 = t1391 * t1350;
28293   t87788 = 0.2e1 * t87786 * t1193;
28294   t87789 = t397 * t4785;
28295   t87791 = 0.4e1 * t87789 * t1193;
28296   t87792 = t397 * t4789;
28297   t87794 = 0.4e1 * t87792 * t1193;
28298   t87798 = 0.2e1 * t81 * t1143 * t17275 * t227;
28299   t87799 = t21461 * t227;
28300   t87802 = 0.16e2 * t4720 * t87799 * t443;
28301   t87804 = 0.4e1 * t21469 * t3922;
28302   t87806 = 0.8e1 * t21257 * t17323;
28303   t87807 = -0.10e2 / 0.3e1 * t3762 * t87772 + 0.10e2 / 0.3e1 * t87775 * t21211 - 0.10e2 / 0.3e1 * t3762 * t87779 - 0.5e1 / 0.3e1 * t3762 * t87783 + t87788 + t87791 + t87794 + t87798 - t87802 + t87804 - t87806;
28304   t87811 = t87807 + t87770 + t87762 + t87764 + t87760 + t87744 + t87712 + t87714 + t87710 - t87699 - t87701 + t87693 - t87639 + t87633 + t87636 + t87628 - t87597 - t87591 - t87593 + t87589 + t87581 + t87577 + t87579 + t87572 + t87518 - t87512 + t87515 - t87508 - t87510 - t87503 - t87501 + t87496 - t87467 - t87469 - t87461 - t87463 - t87457 - t87459 - t87452 - t87454 + t87450 + t87446 + t87403 + t87406 - t87398 - t87400 - t87396 + t87392 - 0.2e1 / 0.3e1 * t21412 * t18819 - 0.2e1 / 0.3e1 * t87644 * t5146 + 0.2e1 / 0.3e1 * t3788 * t87583 - 0.2e1 / 0.3e1 * t5464 * t70422 - 0.10e2 / 0.3e1 * t12761 * t21514 - 0.4e1 * t2448 * t21507 - 0.10e2 * t87504 * t87030 - 0.10e2 / 0.3e1 * t13164 * t21514 + 0.2e1 / 0.3e1 * t12788 * t21435 + t3788 * t87409 / 0.3e1 + 0.2e1 / 0.3e1 * t12758 * t21435 - 0.2e1 / 0.3e1 * t87414 * t5146 - 0.2e1 / 0.3e1 * t87417 * t5146 - 0.2e1 / 0.3e1 * t5464 * t70496 - 0.2e1 / 0.3e1 * t21431 * t18816 + 0.10e2 / 0.3e1 * t87750 * t21211 + 0.10e2 / 0.3e1 * t87753 * t21211 - t5464 * t70499 / 0.3e1 + 0.10e2 / 0.3e1 * t87765 * t21211 + 0.2e1 / 0.3e1 * t12758 * t21408 - 0.2e1 * t6587 * t5455 - 0.4e1 * t2448 * t21475 - 0.4e1 * t1476 * t21507 - t87647 * t5146 / 0.3e1 + 0.2e1 / 0.3e1 * t47861 * t5450 + t3788 * t87653 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t87656 - 0.2e1 / 0.3e1 * t21412 * t18816 - 0.2e1 * t449 * t13074 * t1347 - 0.2e1 * t449 * t1199 * t17275;
28305   t87814 = t5478 * t878;
28306   t87817 = 0.6e1 * t1357 * t13382;
28307   t87819 = 0.3e1 * t2363 * t5492;
28308   t87823 = 0.6e1 * t873 * t21563;
28309   t87830 = 0.6e1 * t369 * t1350 * t13155;
28310   t87832 = 0.6e1 * t2363 * t5489;
28311   t87835 = 0.6e1 * t369 * t17310 * t1143;
28312   t87838 = 0.12e2 * t369 * t4789 * t3811;
28313   t87843 = 0.6e1 * t369 * t17292 * t1143;
28314   t87846 = 0.12e2 * t369 * t17297 * t1143;
28315   t87849 = 0.12e2 * t369 * t4785 * t3811;
28316   t87851 = 0.6e1 * t4802 * t4003;
28317   t87853 = 0.3e1 * t17346 * t1221;
28318   t87855 = 0.3e1 * t1357 * t13391;
28319   t87856 = 0.6e1 * t1219 * t17360 + 0.12e2 * t1219 * t17363 + 0.3e1 * t1219 * t17369 + 0.6e1 * t21531 * t875 + t87817 + t87819 + t87823 + t87830 + t87832 + t87835 + t87838 + t87843 + t87846 + t87849 + t87851 + t87853 + t87855;
28320   t87858 = 0.12e2 * t873 * t21549;
28321   t87863 = 0.12e2 * t369 * t21462 * t464;
28322   t87866 = 0.6e1 * t369 * t5471 * t1516;
28323   t87871 = 0.6e1 * t369 * t1481 * t5460;
28324   t87877 = 0.12e2 * t873 * t21552;
28325   t87880 = 0.3e1 * t369 * t97 * t87555;
28326   t87886 = 0.12e2 * t873 * t21555;
28327   t87888 = 0.12e2 * t873 * t21560;
28328   t87890 = 0.12e2 * t1357 * t13385;
28329   t87892 = 0.6e1 * t1357 * t13388;
28330   t87894 = 0.12e2 * t4802 * t4000;
28331   t87897 = t370 * t87811 * params->d + 0.6e1 * t1219 * t17366 + 0.3e1 * t13368 * t1359 + 0.6e1 * t2367 * t5483 + 0.3e1 * t2370 * t5483 + 0.12e2 * t3994 * t4808 + 0.6e1 * t3994 * t4811 + t87858 + t87863 + t87866 + t87871 + t87877 + t87880 + t87886 + t87888 + t87890 + t87892 + t87894;
28332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28333     v4rho2sigmatau[1] = t5479 * t2373 + 0.2e1 * t87316 + t1217 * t17372 + 0.2e1 * t870 * t21566 + t13356 * t1362 + 0.2e1 * t3989 * t4814 + 0.2e1 * t87324 + t17334 * t1224 + t2359 * t5495 + 0.2e1 * t87328 + 0.2e1 * t4797 * t4006 + 0.2e1 * t87332 + 0.2e1 * t87334 + 0.2e1 * t87336 + t1355 * t13394 + 0.2e1 * t87339 + 0.2e1 * t21520 * t878 + t7 * t87811 * t372 + 0.2e1 * t87814 + t872 * (t87856 + t87897);
28334 
28335   t87901 = t368 * t21745;
28336   t87905 = t4736 * t1272;
28337   t87907 = t1333 * t4149;
28338   t87914 = t869 * t5540;
28339   t87944 = t48687 * t5402;
28340   t87946 = t48705 * t5402;
28341   t87948 = t13453 * t21218;
28342   t87950 = t13453 * t21222;
28343   t87952 = t13453 * t21292;
28344   t87956 = t14483 * t13543;
28345   t87959 = 0.4e1 * t21207 * t4078 - 0.4e1 / 0.3e1 * t13424 * t21218 - 0.4e1 / 0.3e1 * t13424 * t21222 - 0.4e1 / 0.3e1 * t13424 * t21292 + 0.4e1 / 0.3e1 * t87128 * t5510 + 0.2e1 / 0.3e1 * t87131 * t5510 + 0.4e1 / 0.3e1 * t86986 * t5510 + 0.4e1 / 0.3e1 * t87005 * t5510 + 0.2e1 / 0.3e1 * t87178 * t5510 - 0.4e1 / 0.3e1 * t13424 * t21296 - 0.2e1 / 0.3e1 * t4026 * t86971 - 0.4e1 / 0.3e1 * t4026 * t86974 - 0.4e1 / 0.3e1 * t4026 * t86866 + 0.32e2 / 0.9e1 * t87944 + 0.32e2 / 0.9e1 * t87946 + 0.32e2 / 0.9e1 * t87948 + 0.32e2 / 0.9e1 * t87950 + 0.32e2 / 0.9e1 * t87952 - 0.2e1 / 0.3e1 * t4026 * t86783 + 0.4e1 * t21244 * t87956;
28346   t87960 = t13453 * t21296;
28347   t87962 = t4020 * t440;
28348   t87963 = t5416 * t87962;
28349   t87966 = t14483 * t4049 * t1398;
28350   t87969 = t21251 * t21668;
28351   t87971 = t14483 * t13539;
28352   t87975 = 0.176e3 / 0.27e2 * t48960 * t5402;
28353   t87976 = t13625 * t74;
28354   t87978 = 0.176e3 / 0.27e2 * t5416 * t87976;
28355   t87979 = t4016 * t440;
28356   t87989 = t14483 * t1243;
28357   t87990 = t87989 * t86956;
28358   t88002 = t14483 * t4049 * t1470;
28359   t88005 = t13344 * t13466;
28360   t88014 = -0.4e1 * t2448 * t21661 + 0.16e2 * t21239 * t87990 - 0.20e2 / 0.3e1 * t86821 * t21637 - 0.4e1 * t7847 * t5507 - 0.4e1 * t1476 * t21661 - 0.4e1 / 0.3e1 * t4026 * t86964 - 0.8e1 * t21239 * t88002 + 0.6e1 * t21244 * t88005 + 0.4e1 / 0.3e1 * t86992 * t5510 + 0.4e1 / 0.3e1 * t21225 * t21587 + 0.4e1 / 0.3e1 * t21225 * t21590;
28361   t88017 = t14483 * t13546;
28362   t88026 = t13617 * t74;
28363   t88038 = t14483 * t13459 * t443;
28364   t88042 = t13344 * t13460;
28365   t88057 = t21608 * t227;
28366   t88068 = 0.12e2 * t21244 * t88042 + 0.2e1 * t87165 * t1246 + 0.20e2 / 0.3e1 * t13409 * t21288 + 0.20e2 / 0.3e1 * t13402 * t21288 + 0.20e2 / 0.3e1 * t4013 * t86779 + 0.20e2 / 0.3e1 * t4013 * t86773 + 0.2e1 * t1391 * t5518 - 0.16e2 * t4720 * t88057 * t443 - 0.4e1 * t21649 * t4715 - 0.4e1 * t21652 * t4715 - 0.8e1 * t4720 * t21643 * t1470;
28367   t88070 = t13344 * t1243;
28368   t88071 = t88070 * t86915;
28369   t88074 = t5506 * t751;
28370   t88078 = t13418 * t3940;
28371   t88079 = t21210 * t88078;
28372   t88112 = t1226 * t1467;
28373   t88123 = -0.4e1 * t86733 * t21665 - 0.16e2 * t86897 * t21595 + 0.4e1 / 0.3e1 * t21254 * t21587 + 0.4e1 / 0.3e1 * t21254 * t21590 + 0.4e1 / 0.3e1 * t86983 * t5510 + 0.2e1 / 0.3e1 * t86989 * t5510 + 0.4e1 * t81 * t464 * t21608 * t227 + 0.2e1 / 0.3e1 * t5416 * t88112 - 0.4e1 / 0.3e1 * t13412 * t21218 + 0.2e1 * t81 * t5513 * t2101 + 0.4e1 * t81 * t21633 * t751;
28374   t88131 = t1473 * t1231;
28375   t88152 = t14820 * t13456;
28376   t88155 = t21254 * t21668;
28377   t88161 = t21225 * t21668;
28378   t88163 = t21228 * t21668;
28379   t88175 = 0.12e2 * t21244 * t88152 - 0.32e2 / 0.9e1 * t88155 - 0.2e1 / 0.3e1 * t48929 * t5402 - 0.4e1 / 0.3e1 * t48902 * t5402 - 0.32e2 / 0.9e1 * t88161 - 0.32e2 / 0.9e1 * t88163 - 0.4e1 / 0.3e1 * t13412 * t21296 - 0.2e1 / 0.3e1 * t48676 * t5402 - 0.20e2 / 0.3e1 * t86824 * t21637 + 0.4e1 * t397 * t21628 + 0.4e1 * t397 * t21634;
28380   t88177 = t1397 * t1231;
28381   t88188 = t13638 * t74;
28382   t88189 = t5416 * t88188;
28383   t88216 = t13419 * t21288;
28384   t88218 = t4012 * t13252;
28385   t88221 = t88070 * t86924;
28386   t88229 = -0.2e1 / 0.3e1 * t4026 * t86874 + 0.12e2 * t86737 * t21598 - 0.4e1 * t86737 * t21665 + 0.20e2 / 0.3e1 * t4013 * t86920 + 0.10e2 / 0.3e1 * t4013 * t86904 - 0.20e2 * t13415 * t87053 - 0.160e3 / 0.9e1 * t88216 + 0.20e2 * t87029 * t88218 - 0.48e2 * t21239 * t88221 + 0.40e2 * t7757 * t21643 * t1398 - 0.2e1 * t5499 * t17120;
28387   t88234 = 0.22e2 / 0.9e1 * t86827;
28388   t88246 = -t88234 - 0.8e1 / 0.3e1 * t86829 - 0.20e2 / 0.9e1 * t86831 + 0.20e2 / 0.9e1 * t86833 - 0.3e1 / 0.2e1 * t86835 - 0.5e1 / 0.3e1 * t86837 + 0.5e1 / 0.3e1 * t86842 + t86844 / 0.2e1 - 0.10e2 / 0.9e1 * t86846 + 0.25e2 / 0.18e2 * t86848 - 0.5e1 / 0.18e2 * t86850 - 0.5e1 / 0.12e2 * t86852;
28389   t88247 = my_piecewise3(t95, 0, t88246);
28390   t88270 = t1392 * t1231;
28391   t88273 = t400 * t4041;
28392   t88278 = t13401 * t3940;
28393   t88281 = t4012 * t13272;
28394   t88284 = t4012 * t13276;
28395   t88296 = t446 * t4041;
28396   t88301 = -0.16e2 * t88270 * t4722 - 0.16e2 * t88273 * t4722 - 0.16e2 * t21675 * t17098 - 0.20e2 / 0.3e1 * t21210 * t88278 - 0.20e2 / 0.3e1 * t21210 * t88281 - 0.10e2 / 0.3e1 * t21210 * t88284 + 0.4e1 * t81 * t21692 * t751 - 0.2e1 * t449 * t363 * t88247 - 0.4e1 * t449 * t857 * t21608 - 0.4e1 * t88296 * t1327 - 0.4e1 * t5499 * t17080;
28397   t88346 = t82 * t13435;
28398   t88354 = 0.2e1 * t1231 * t17161 * t227 * t81 - 0.2e1 * t1252 * t17161 * t449 - 0.2e1 * t1326 * t13561 * t449 + 0.4e1 * t21627 * t751 * t81 - 0.4e1 * t4090 * t449 * t4714 - 0.2e1 * t1327 * t88346 - 0.4e1 * t21609 * t2448 - 0.4e1 * t21640 * t2448 - 0.4e1 * t21652 * t4694 - 0.2e1 * t5502 * t6587 - 0.2e1 * t5507 * t6587;
28399   t88358 = t88354 + t88301 + t88229 - 0.32e2 / 0.9e1 * t88189 + t88175 + t88123 + 0.160e3 / 0.9e1 * t88079 + t88068 + t88014 + t87978 - t87975 - 0.32e2 / 0.9e1 * t87969 - 0.32e2 / 0.9e1 * t87963 + t87959 + 0.32e2 / 0.9e1 * t87960 - 0.4e1 * t7847 * t5502 - 0.12e2 * t21244 * t88071 - 0.2e1 / 0.3e1 * t4026 * t86889 - 0.4e1 / 0.3e1 * t4026 * t86870 + 0.2e1 / 0.3e1 * t86883 * t5510 - 0.4e1 / 0.3e1 * t4026 * t86795 - 0.16e2 * t86894 * t21595 + 0.12e2 * t86733 * t21598 - 0.16e2 * t17116 * t21644 + 0.4e1 * t21201 * t4078 - 0.16e2 * t86900 * t21595 + 0.12e2 * t86741 * t21598 - 0.4e1 * t86741 * t21665 - 0.16e2 * t21239 * t88038 - 0.2e1 * t21244 * t88017 + 0.4e1 / 0.3e1 * t21228 * t21587 + 0.4e1 / 0.3e1 * t21228 * t21590 + 0.4e1 / 0.3e1 * t21251 * t21587 + 0.2e1 / 0.3e1 * t5416 * t88026 - 0.4e1 * t21244 * t87971 + 0.4e1 / 0.3e1 * t5416 * t87979 + 0.4e1 / 0.3e1 * t21251 * t21590 - 0.2e1 * t8308 * t5507 + 0.40e2 * t86768 * t87966 - 0.2e1 * t449 * t2331 * t5506 + 0.2e1 * t81 * t1516 * t5506 * t227 + 0.2e1 * t81 * t13435 * t1326 * t227 + 0.4e1 * t81 * t4041 * t4714 * t227 + 0.2e1 * t81 * t96 * t88247 * t227 - 0.20e2 / 0.3e1 * t86818 * t21637 - 0.20e2 / 0.3e1 * t86929 * t21637 - 0.4e1 * t21649 * t4694 - 0.4e1 / 0.3e1 * t4026 * t86807 + 0.2e1 * t5427 * t13537 + 0.4e1 * t397 * t21617 - 0.4e1 * t1476 * t21624 - 0.2e1 * t8308 * t5502 - 0.4e1 * t2448 * t21624 - 0.4e1 * t1476 * t21640 - 0.8e1 * t21675 * t17101 + 0.2e1 * t1391 * t5514 + 0.4e1 * t397 * t21689 + 0.2e1 * t87169 * t1246 + 0.4e1 * t87172 * t1246 + 0.4e1 * t87175 * t1246 - 0.16e2 * t17094 * t21644 - 0.16e2 * t21675 * t17113 + 0.40e2 * t88177 * t17106 + 0.4e1 * t397 * t21693 - 0.4e1 / 0.3e1 * t13412 * t21222 - 0.4e1 / 0.3e1 * t13412 * t21292 + 0.4e1 / 0.3e1 * t87002 * t5510 + 0.4e1 * t397 * t21612 + 0.20e2 / 0.3e1 * t4013 * t87034 - 0.2e1 * t88131 * t1327 - 0.2e1 * t5499 * t17166 - 0.4e1 * t1476 * t21609 + 0.4e1 * t21204 * t4078 + 0.2e1 * t87185 * t1246 + 0.4e1 * t86944 * t1246 - 0.16e2 * t4720 * t88074 * t443 + 0.4e1 * t81 * t21688 * t751 + 0.2e1 * t81 * t5517 * t2101;
28400   t88362 = t4131 * t1341;
28401   t88367 = t21698 * t372;
28402   t88369 = t1264 * t4754;
28403   t88371 = t5523 * t878;
28404   t88411 = 0.6e1 * t1231 * t17083 * t369 + 0.12e2 * t1231 * t17087 * t369 + 0.6e1 * t1481 * t369 * t5506 + 0.12e2 * t369 * t4041 * t4725 + 0.6e1 * t1267 * t17218 + 0.3e1 * t1267 * t17227 + 0.6e1 * t1336 * t13784 + 0.12e2 * t1336 * t13787 + 0.3e1 * t1338 * t13770 + 0.12e2 * t21728 * t873 + 0.12e2 * t21731 * t873 + 0.12e2 * t21734 * t873 + 0.6e1 * t21742 * t873 + 0.6e1 * t2367 * t5528 + 0.3e1 * t2370 * t5528 + 0.12e2 * t4137 * t4748 + 0.6e1 * t4146 * t4742;
28405   t88454 = 0.6e1 * t1336 * t13790 + 0.12e2 * t1267 * t17221 + 0.6e1 * t1267 * t17224 + 0.6e1 * t21710 * t875 + 0.3e1 * t369 * t97 * t88247 + 0.6e1 * t2363 * t5534 + params->d * t88358 * t370 + 0.12e2 * t4742 * t4143 + 0.6e1 * t4137 * t4751 + 0.3e1 * t2363 * t5537 + 0.3e1 * t1336 * t13793 + 0.6e1 * t369 * t5517 * t1516 + 0.3e1 * t17204 * t1269 + 0.12e2 * t369 * t21633 * t464 + 0.6e1 * t369 * t17162 * t1231 + 0.12e2 * t369 * t4729 * t4041 + 0.12e2 * t873 * t21739 + 0.6e1 * t369 * t1329 * t13435;
28406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28407     v4rho2sigmatau[2] = t2359 * t5540 + 0.2e1 * t87901 + 0.2e1 * t21699 * t878 + 0.2e1 * t87905 + 0.2e1 * t87907 + t5524 * t2373 + t1334 * t13796 + 0.2e1 * t4737 * t4149 + t1265 * t17230 + 0.2e1 * t87914 + 0.2e1 * t870 * t21745 + t7 * t88358 * t372 + t17192 * t1272 + 0.2e1 * t88362 + t13758 * t1341 + 0.2e1 * t4132 * t4754 + 0.2e1 * t88367 + 0.2e1 * t88369 + 0.2e1 * t88371 + t872 * (t88411 + t88454);
28408 
28409   t88460 = t5566 * t878;
28410   t88463 = 0.176e3 / 0.27e2 * t5464 * t87976;
28411   t88464 = t21410 * t21668;
28412   t88470 = t13453 * t21435;
28413   t88472 = t48705 * t5450;
28414   t88476 = t21414 * t21668;
28415   t88502 = t88463 - 0.32e2 / 0.9e1 * t88464 - 0.2e1 / 0.3e1 * t4026 * t87409 - 0.4e1 / 0.3e1 * t4026 * t87656 + 0.32e2 / 0.9e1 * t88470 + 0.32e2 / 0.9e1 * t88472 - 0.4e1 / 0.3e1 * t13424 * t21435 - 0.32e2 / 0.9e1 * t88476 + 0.4e1 / 0.3e1 * t87522 * t5510 + 0.4e1 / 0.3e1 * t87433 * t5510 + 0.2e1 / 0.3e1 * t87525 * t5510 + 0.4e1 / 0.3e1 * t87644 * t5510 + 0.4e1 / 0.3e1 * t87417 * t5510 + 0.4e1 / 0.3e1 * t87439 * t5510 + 0.4e1 / 0.3e1 * t87414 * t5510 + 0.2e1 / 0.3e1 * t87436 * t5510 + 0.4e1 / 0.3e1 * t21414 * t21587 + 0.4e1 / 0.3e1 * t21414 * t21590 + 0.2e1 / 0.3e1 * t87647 * t5510 - 0.4e1 * t21426 * t87971;
28416   t88503 = t13453 * t21405;
28417   t88507 = t48687 * t5450;
28418   t88517 = t13453 * t21408;
28419   t88532 = t21431 * t21668;
28420   t88543 = 0.176e3 / 0.27e2 * t48960 * t5450;
28421   t88544 = t5464 * t87962;
28422   t88546 = -0.4e1 / 0.3e1 * t13424 * t21408 - 0.4e1 / 0.3e1 * t4026 * t87608 - 0.4e1 / 0.3e1 * t4026 * t87482 - 0.2e1 / 0.3e1 * t4026 * t87653 - 0.32e2 / 0.9e1 * t88532 - 0.2e1 * t21426 * t88017 + 0.2e1 / 0.3e1 * t87378 * t5510 - 0.4e1 / 0.3e1 * t4026 * t87583 - 0.4e1 / 0.3e1 * t4026 * t87674 - t88543 - 0.32e2 / 0.9e1 * t88544;
28423   t88551 = t13453 * t21402;
28424   t88559 = t5464 * t88188;
28425   t88561 = t21412 * t21668;
28426   t88592 = -0.4e1 / 0.3e1 * t13424 * t21405 + 0.12e2 * t87455 * t21598 - 0.4e1 * t87455 * t21665 - 0.16e2 * t21423 * t88038 + 0.12e2 * t21426 * t88042 - 0.4e1 / 0.3e1 * t13412 * t21402 - 0.4e1 / 0.3e1 * t13412 * t21405 + 0.4e1 / 0.3e1 * t21431 * t21587 + 0.4e1 / 0.3e1 * t21410 * t21587 - 0.4e1 * t87404 * t21665 - 0.16e2 * t87394 * t21595;
28427   t88637 = -0.20e2 / 0.3e1 * t87775 * t21637 - 0.16e2 * t87389 * t21595 + 0.40e2 * t88177 * t17281 + 0.4e1 * t21469 * t4078 + 0.12e2 * t87404 * t21598 + 0.6e1 * t21426 * t88005 - 0.4e1 * t87401 * t21665 + 0.4e1 * t21467 * t4078 + 0.2e1 * t87786 * t1246 + 0.4e1 * t87789 * t1246 + 0.2e1 * t87513 * t1246;
28428   t88651 = t13419 * t21514;
28429   t88686 = -0.16e2 * t21675 * t17237 - 0.20e2 / 0.3e1 * t21510 * t88278 + 0.20e2 / 0.3e1 * t4013 * t87359 - 0.8e1 * t21675 * t17323 - 0.4e1 / 0.3e1 * t48902 * t5450 + 0.2e1 * t81 * t1516 * t5550 * t227 - 0.16e2 * t21675 * t17329 - 0.4e1 * t7847 * t5551 - 0.4e1 * t1476 * t21854 - 0.2e1 * t5499 * t17248 - 0.4e1 * t7847 * t5546;
28430   t88703 = t5550 * t751;
28431   t88707 = 0.22e2 / 0.9e1 * t87536;
28432   t88716 = my_piecewise3(t95, 0, -t88707 - 0.8e1 / 0.3e1 * t87538 + 0.20e2 / 0.9e1 * t87540 - 0.3e1 / 0.2e1 * t87542 + 0.5e1 / 0.3e1 * t87546 + t87548 / 0.2e1 - 0.5e1 / 0.18e2 * t87550 - 0.5e1 / 0.12e2 * t87552);
28433   t88750 = 0.4e1 * t87792 * t1246 + 0.4e1 * t81 * t21802 * t751 - 0.8e1 * t4720 * t21857 * t1470 + 0.4e1 * t81 * t464 * t21791 * t227 - 0.20e2 / 0.3e1 * t87753 * t21637 + 0.16e2 * t21423 * t87990 - 0.2e1 * t6587 * t5551 - 0.2e1 * t449 * t13561 * t1347 - 0.20e2 / 0.3e1 * t87765 * t21637 - 0.4e1 * t21649 * t4776 - 0.2e1 * t88131 * t1348;
28434   t88798 = t21791 * t227;
28435   t88806 = 0.4e1 * t227 * t4041 * t4775 * t81 + 0.2e1 * t227 * t81 * t88716 * t96 + 0.2e1 * t2101 * t5556 * t81 - 0.16e2 * t443 * t4720 * t88798 - 0.2e1 * t1348 * t88346 + 0.2e1 * t1391 * t5561 - 0.16e2 * t17094 * t21858 - 0.16e2 * t17116 * t21858 - 0.4e1 * t21652 * t4761 + 0.4e1 * t21821 * t397 - 0.2e1 * t5551 * t8308;
28436   t88856 = t21510 * t88078;
28437   t88860 = 0.2e1 * t81 * t5560 * t2101 - 0.4e1 * t449 * t4090 * t4775 + 0.4e1 * t397 * t21838 + 0.2e1 * t81 * t13435 * t1347 * t227 + 0.2e1 * t81 * t1231 * t17275 * t227 - 0.2e1 * t449 * t2331 * t5550 + 0.40e2 * t7757 * t21857 * t1398 + 0.4e1 * t397 * t21803 + 0.4e1 * t397 * t21807 + 0.160e3 / 0.9e1 * t88856 + 0.20e2 / 0.3e1 * t13409 * t21514;
28438   t88864 = t88860 + t88806 + t88750 + t88686 - 0.160e3 / 0.9e1 * t88651 + t88637 + t88592 - 0.32e2 / 0.9e1 * t88559 - 0.32e2 / 0.9e1 * t88561 + 0.32e2 / 0.9e1 * t88551 + t88546 + 0.32e2 / 0.9e1 * t88517 + 0.32e2 / 0.9e1 * t88507 + t88502 + 0.32e2 / 0.9e1 * t88503 - 0.4e1 / 0.3e1 * t13412 * t21408 - 0.12e2 * t21426 * t88071 - 0.16e2 * t88270 * t4782 - 0.16e2 * t88273 * t4782 - 0.4e1 * t2448 * t21792 - 0.4e1 * t1476 * t21792 - 0.4e1 * t1476 * t21795 - 0.2e1 * t8308 * t5546 - 0.4e1 * t2448 * t21816 - 0.4e1 * t2448 * t21854 + 0.2e1 * t1391 * t5557 + 0.4e1 * t397 * t21834 - 0.4e1 * t1476 * t21816 - 0.4e1 * t88296 * t1348 - 0.4e1 * t21649 * t4761 + 0.20e2 / 0.3e1 * t13402 * t21514 + 0.20e2 / 0.3e1 * t4013 * t87355 - 0.20e2 / 0.3e1 * t21510 * t88281 + 0.4e1 * t21465 * t4078 + 0.2e1 * t87491 * t1246 + 0.2e1 * t5475 * t13537 - 0.48e2 * t21423 * t88221 + 0.20e2 / 0.3e1 * t4013 * t87779 + 0.10e2 / 0.3e1 * t4013 * t87783 + 0.4e1 * t87516 * t1246 + 0.20e2 * t87504 * t88218 - 0.10e2 / 0.3e1 * t21510 * t88284 - 0.20e2 / 0.3e1 * t87750 * t21637 - 0.20e2 * t13415 * t87726 + 0.20e2 / 0.3e1 * t4013 * t87772 + 0.4e1 * t397 * t21845 - 0.4e1 * t21652 * t4776 - 0.4e1 * t5499 * t17301 + 0.4e1 / 0.3e1 * t21412 * t21590 + 0.2e1 / 0.3e1 * t5464 * t88112 - 0.16e2 * t87385 * t21595 - 0.8e1 * t21423 * t88002 + 0.12e2 * t87401 * t21598 + 0.4e1 / 0.3e1 * t21412 * t21587 + 0.2e1 / 0.3e1 * t5464 * t88026 + 0.4e1 / 0.3e1 * t5464 * t87979 + 0.4e1 / 0.3e1 * t21431 * t21590 + 0.4e1 / 0.3e1 * t21410 * t21590 + 0.40e2 * t87681 * t87966 + 0.12e2 * t21426 * t88152 - 0.4e1 / 0.3e1 * t4026 * t87722 - 0.2e1 / 0.3e1 * t4026 * t87371 - 0.4e1 / 0.3e1 * t13412 * t21435 - 0.2e1 / 0.3e1 * t48676 * t5450 - 0.4e1 / 0.3e1 * t13424 * t21402 - 0.2e1 / 0.3e1 * t4026 * t87678 - 0.2e1 / 0.3e1 * t48929 * t5450 - 0.2e1 * t6587 * t5546 - 0.2e1 * t5499 * t17276 - 0.4e1 * t2448 * t21795 + 0.4e1 * t21426 * t87956 + 0.4e1 * t81 * t21833 * t751 - 0.16e2 * t4720 * t88703 * t443 - 0.2e1 * t449 * t363 * t88716 + 0.4e1 * t81 * t21806 * t751 + 0.4e1 * t81 * t21837 * t751 - 0.2e1 * t449 * t1252 * t17275 - 0.4e1 * t449 * t857 * t21791;
28439   t88867 = t869 * t5583;
28440   t88870 = t4131 * t1362;
28441   t88909 = 0.6e1 * t13435 * t1350 * t369 + 0.6e1 * t1481 * t369 * t5550 + 0.3e1 * t369 * t88716 * t97 + t370 * t88864 * params->d + 0.12e2 * t1267 * t17363 + 0.6e1 * t1267 * t17366 + 0.3e1 * t1269 * t17346 + 0.6e1 * t1357 * t13784 + 0.12e2 * t1357 * t13787 + 0.6e1 * t1357 * t13790 + 0.3e1 * t1359 * t13770 + 0.12e2 * t21898 * t873 + 0.12e2 * t21906 * t873 + 0.6e1 * t21909 * t873 + 0.6e1 * t2363 * t5577 + 0.3e1 * t2363 * t5580 + 0.12e2 * t4143 * t4802;
28442   t88953 = 0.6e1 * t1231 * t17292 * t369 + 0.12e2 * t1231 * t17297 * t369 + 0.6e1 * t1231 * t17310 * t369 + 0.6e1 * t1516 * t369 * t5560 + 0.12e2 * t21806 * t369 * t464 + 0.12e2 * t369 * t4041 * t4785 + 0.12e2 * t369 * t4041 * t4789 + 0.6e1 * t1267 * t17360 + 0.3e1 * t1267 * t17369 + 0.3e1 * t1357 * t13793 + 0.6e1 * t21877 * t875 + 0.12e2 * t21895 * t873 + 0.12e2 * t21901 * t873 + 0.6e1 * t2367 * t5571 + 0.3e1 * t2370 * t5571 + 0.12e2 * t4137 * t4808 + 0.6e1 * t4137 * t4811 + 0.6e1 * t4146 * t4802;
28443   t88958 = t21865 * t372;
28444   t88960 = t1354 * t4149;
28445   t88962 = t1264 * t4814;
28446   t88964 = t368 * t21912;
28447   t88969 = t4796 * t1272;
28448   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28449     v4rho2sigmatau[3] = t1355 * t13796 + 0.2e1 * t21866 * t878 + 0.2e1 * t88460 + t7 * t88864 * t372 + 0.2e1 * t88867 + t1265 * t17372 + 0.2e1 * t88870 + t872 * (t88909 + t88953) + 0.2e1 * t4797 * t4149 + 0.2e1 * t88958 + 0.2e1 * t88960 + 0.2e1 * t88962 + 0.2e1 * t88964 + t5567 * t2373 + 0.2e1 * t870 * t21912 + 0.2e1 * t88969 + t17334 * t1272 + 0.2e1 * t4132 * t4814 + t13758 * t1362 + t2359 * t5583;
28450 
28451   t88977 = t1333 * t4267;
28452   t88979 = t5593 * t878;
28453   t88981 = t1315 * t4754;
28454   t88985 = t368 * t21986;
28455   t88988 = t4155 * t13252;
28456   t89003 = t86702 - t86728 - t86732 + t86735 + t86739 + t86743 + t86746 + t86750 + t86753 - t86755 - t86758 - t86761 + t86772 - 0.10e2 * t87029 * t88988 + t50280 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t49626 * t5402 + 0.2e1 / 0.3e1 * t49957 * t5402 - 0.2e1 / 0.3e1 * t86983 * t5590 - 0.2e1 / 0.3e1 * t86986 * t5590 - t86989 * t5590 / 0.3e1;
28457   t89037 = -t86817 - t86858 - t86878 + t4173 * t86783 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t86870 + 0.2e1 / 0.3e1 * t13811 * t21296 + 0.2e1 / 0.3e1 * t13876 * t21296 + 0.2e1 / 0.3e1 * t13870 * t21296 + 0.2e1 / 0.3e1 * t4173 * t86807 + 0.2e1 / 0.3e1 * t4173 * t86964 - 0.2e1 / 0.3e1 * t21228 * t21927;
28458   t89048 = t13850 * t74;
28459   t89051 = t13854 * t74;
28460   t89054 = t4159 * t440;
28461   t89074 = t13823 * t74;
28462   t89077 = t4167 * t440;
28463   t89084 = t1276 * t1467;
28464   t89089 = 0.2e1 / 0.3e1 * t13870 * t21218 + 0.2e1 / 0.3e1 * t13870 * t21222 + 0.2e1 / 0.3e1 * t13870 * t21292 + 0.2e1 / 0.3e1 * t4173 * t86795 + t4173 * t86874 / 0.3e1 - t5416 * t89074 / 0.3e1 - 0.2e1 / 0.3e1 * t5416 * t89077 - 0.2e1 / 0.3e1 * t21251 * t21933 - 0.2e1 / 0.3e1 * t21254 * t21933 - t5416 * t89084 / 0.3e1 + t4173 * t86971 / 0.3e1;
28465   t89104 = t86943 + t86946 - 0.10e2 / 0.3e1 * t4156 * t86920 - t86948 - t86950 + t86953 + t86959 + t86962 - 0.10e2 / 0.3e1 * t4156 * t86773 - 0.10e2 / 0.3e1 * t4156 * t87034 + 0.10e2 / 0.3e1 * t86824 * t21916;
28466   t89120 = t13875 * t3940;
28467   t89123 = t13869 * t3940;
28468   t89126 = t4155 * t13272;
28469   t89129 = t4155 * t13276;
28470   t89134 = -0.4e1 * t2448 * t21955 - 0.4e1 * t7847 * t5587 - 0.4e1 * t1476 * t21959 - t87069 - t87071 - t87073 + 0.10e2 / 0.3e1 * t21210 * t89120 + 0.10e2 / 0.3e1 * t21210 * t89123 + 0.10e2 / 0.3e1 * t21210 * t89126 + 0.5e1 / 0.3e1 * t21210 * t89129 - 0.10e2 / 0.3e1 * t13808 * t21288;
28471   t89167 = 0.2e1 / 0.3e1 * t13876 * t21292 - 0.2e1 / 0.3e1 * t21225 * t21930 - 0.2e1 / 0.3e1 * t21225 * t21933 - 0.2e1 / 0.3e1 * t87002 * t5590 - 0.2e1 / 0.3e1 * t87005 * t5590 + t87079 - t87083 + t87089 + t87091 - t87093 - t87096;
28472   t89187 = -t87127 - 0.4e1 * t449 * t4235 * t4714 - 0.2e1 * t449 * t1307 * t17161 + t87135 - t87137 - t87139 + 0.10e2 * t13892 * t87053 + 0.10e2 / 0.3e1 * t86929 * t21916 + 0.10e2 / 0.3e1 * t86818 * t21916 + 0.10e2 / 0.3e1 * t86821 * t21916 + t87143;
28473   t89194 = t87171 + t87174 + t87177 + t87184 + t87187 - t87189 - t87178 * t5590 / 0.3e1 + t87191 + t87193 + t87195 + t87197;
28474   t89198 = t89194 + t89187 + t89167 + t89134 + t89104 + t89089 + t89037 + t89003 + t87167 + t87162 - t87164 - t87156 - t87158 + t87152 - t87154 + t87145 + t87148 - t87125 - t87123 + t87112 + t87115 + t87107 + t87109 - t87102 - t87104 - t87099 + t87047 - t87045 - t87038 + t87028 - t87026 - t87019 - t87021 + t87013 + t86939 + t86935 - t86927 - t86918 - t86908 - t86899 - t86902 - t86896 - t86815 - t86811 - 0.5e1 / 0.3e1 * t4156 * t86904 + t49630 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t49961 * t5402 + 0.2e1 / 0.3e1 * t13876 * t21218 + 0.2e1 / 0.3e1 * t13876 * t21222 - 0.2e1 * t6587 * t5587 - 0.10e2 / 0.3e1 * t13879 * t21288 - 0.10e2 / 0.3e1 * t13882 * t21288 - 0.10e2 / 0.3e1 * t4156 * t86779 + 0.2e1 / 0.3e1 * t13811 * t21222 + 0.2e1 / 0.3e1 * t13811 * t21292 - t87131 * t5590 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t86974 + 0.2e1 / 0.3e1 * t4173 * t86866 - 0.2e1 * t449 * t14092 * t1326 - 0.4e1 * t1476 * t21955 - 0.2e1 / 0.3e1 * t5416 * t89054 - 0.2e1 / 0.3e1 * t21251 * t21930 - 0.2e1 / 0.3e1 * t21254 * t21930 + t49609 * t5402 / 0.3e1 - 0.2e1 / 0.3e1 * t21228 * t21930 - 0.2e1 / 0.3e1 * t21228 * t21933 - 0.2e1 / 0.3e1 * t21251 * t21927 - 0.2e1 / 0.3e1 * t21254 * t21927 - t5416 * t89048 / 0.3e1 - 0.2e1 / 0.3e1 * t5416 * t89051 - 0.2e1 / 0.3e1 * t86992 * t5590 - 0.2e1 / 0.3e1 * t21225 * t21927 - t86883 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t87128 * t5590 + t4173 * t86889 / 0.3e1 + 0.2e1 / 0.3e1 * t13811 * t21218 - 0.2e1 * t8308 * t5587 - 0.4e1 * t2448 * t21959;
28475   t89201 = t21964 * t372;
28476   t89203 = t4736 * t1320;
28477   t89208 = t869 * t5602;
28478   t89218 = 0.3e1 * t1318 * t17227 + 0.3e1 * t1338 * t14109 + 0.6e1 * t21976 * t875 + 0.3e1 * t2370 * t5598 + t87208 + t87211 + t87215 + t87217 + t87220 + t87223 + t87226 + t87229 + t87232 + t87234 + t87236 + t87239 + t87243;
28479   t89233 = t370 * t89198 * params->d + 0.6e1 * t1318 * t17218 + 0.12e2 * t1318 * t17221 + 0.6e1 * t1318 * t17224 + 0.6e1 * t2367 * t5598 + 0.12e2 * t4263 * t4748 + 0.6e1 * t4263 * t4751 + t87245 + t87255 + t87257 + t87269 + t87271 + t87274 + t87277 + t87279 + t87281 + t87283 + t87285;
28480   t89240 = t4257 * t1341;
28481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28482     v4rho2sigmatau[4] = t1316 * t17230 + 0.2e1 * t88977 + 0.2e1 * t88979 + 0.2e1 * t88981 + 0.2e1 * t870 * t21986 + 0.2e1 * t88985 + t17192 * t1320 + t7 * t89198 * t372 + 0.2e1 * t89201 + 0.2e1 * t89203 + 0.2e1 * t4737 * t4267 + t14097 * t1341 + 0.2e1 * t89208 + t872 * (t89218 + t89233) + 0.2e1 * t4258 * t4754 + 0.2e1 * t21965 * t878 + 0.2e1 * t89240 + t1334 * t14117 + t5594 * t2373 + t2359 * t5602;
28483 
28484   t89246 = t4796 * t1320;
28485   t89249 = t368 * t22048;
28486   t89251 = t1354 * t4267;
28487   t89253 = t1315 * t4814;
28488   t89256 = t4257 * t1362;
28489   t89258 = t869 * t5620;
28490   t89305 = 0.2e1 / 0.3e1 * t4173 * t87608 + 0.2e1 / 0.3e1 * t4173 * t87583 + 0.2e1 / 0.3e1 * t4173 * t87674 + 0.2e1 / 0.3e1 * t13811 * t21408 + t87344 + 0.2e1 / 0.3e1 * t13870 * t21408 + t4173 * t87678 / 0.3e1 - t87647 * t5590 / 0.3e1 + 0.2e1 / 0.3e1 * t13870 * t21435 + 0.2e1 / 0.3e1 * t13811 * t21402 - 0.4e1 * t1476 * t21993 - 0.4e1 * t2448 * t21993 - 0.4e1 * t449 * t4235 * t4775 - 0.2e1 / 0.3e1 * t87522 * t5590 - 0.2e1 / 0.3e1 * t87433 * t5590 - 0.2e1 / 0.3e1 * t87644 * t5590 - 0.2e1 / 0.3e1 * t21431 * t21927 - 0.2e1 / 0.3e1 * t21431 * t21930 - 0.2e1 / 0.3e1 * t21431 * t21933 - t87525 * t5590 / 0.3e1;
28491   t89349 = t49609 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t13870 * t21402 + 0.2e1 / 0.3e1 * t13870 * t21405 - 0.5e1 / 0.3e1 * t4156 * t87783 + 0.10e2 / 0.3e1 * t21510 * t89120 + 0.10e2 / 0.3e1 * t21510 * t89123 + 0.10e2 / 0.3e1 * t21510 * t89126 + 0.5e1 / 0.3e1 * t21510 * t89129 - t5464 * t89084 / 0.3e1 + 0.2e1 / 0.3e1 * t49626 * t5450 + t49630 * t5450 / 0.3e1;
28492   t89373 = -t87398 - t87400 + t87403 + t87406 - t87378 * t5590 / 0.3e1 - t87445 - 0.4e1 * t7847 * t5606 - 0.4e1 * t1476 * t21998 + t87450 - t87452 - t87454;
28493   t89376 = -t87480 + t87490 + t87493 + t87495 - t87501 - t87503 - t87508 - t87510 - t87512 + t87515 + t87518;
28494   t89388 = t87589 - t87591 - t87593 - t87597 - t87603 - t87605 - t87607 - t5464 * t89074 / 0.3e1 + t87616 - 0.2e1 / 0.3e1 * t5464 * t89077 + t87618;
28495   t89407 = -t87665 + 0.10e2 * t13892 * t87726 - 0.10e2 / 0.3e1 * t4156 * t87779 - t87667 + 0.10e2 / 0.3e1 * t87750 * t21916 + 0.10e2 / 0.3e1 * t87753 * t21916 + t87670 + t87672 + t87683 + t87686 - t87436 * t5590 / 0.3e1;
28496   t89432 = -0.2e1 * t1307 * t17275 * t449 - 0.10e2 * t87504 * t88988 - t87699 - t87701 + t87710 + t87712 + t87714 - t87730 + t87760 + t87762 + t87764;
28497   t89461 = t87794 + t87798 - t87802 + t87804 - 0.2e1 * t8308 * t5606 - 0.4e1 * t2448 * t21998 + t4173 * t87653 / 0.3e1 + 0.2e1 / 0.3e1 * t13811 * t21435 + t4173 * t87409 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t87656 - t87806;
28498   t89465 = t89461 + t89432 + t89407 + t89388 + t89373 + t89376 + t89349 + t89305 + t87791 + t87788 + t87770 - t87692 + t87689 + t87663 - t87639 + t87633 + t87636 + t87627 + t87621 + t87623 + t87581 + t87577 + t87579 - t87571 - t87569 - t87558 - t87560 + t87535 + t87531 - t87476 - t87478 - t87472 + t87474 - t87467 - t87469 - t87461 - t87463 - t87457 - t87459 - t87396 - t87391 - t87387 + 0.2e1 / 0.3e1 * t49957 * t5450 - 0.10e2 / 0.3e1 * t13808 * t21514 - 0.10e2 / 0.3e1 * t13879 * t21514 - 0.10e2 / 0.3e1 * t13882 * t21514 - 0.10e2 / 0.3e1 * t4156 * t87772 - 0.10e2 / 0.3e1 * t4156 * t87355 - 0.10e2 / 0.3e1 * t4156 * t87359 + 0.10e2 / 0.3e1 * t87765 * t21916 - 0.2e1 / 0.3e1 * t87439 * t5590 - 0.2e1 / 0.3e1 * t21412 * t21927 - 0.2e1 / 0.3e1 * t21412 * t21930 - 0.2e1 / 0.3e1 * t21412 * t21933 + 0.2e1 / 0.3e1 * t4173 * t87722 + 0.2e1 / 0.3e1 * t13811 * t21405 + t4173 * t87371 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t87482 - 0.2e1 / 0.3e1 * t21414 * t21933 + 0.10e2 / 0.3e1 * t87775 * t21916 - 0.2e1 * t6587 * t5606 + t50280 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t49961 * t5450 + 0.2e1 / 0.3e1 * t13876 * t21402 + 0.2e1 / 0.3e1 * t13876 * t21405 + 0.2e1 / 0.3e1 * t13876 * t21408 - 0.2e1 / 0.3e1 * t21414 * t21927 - 0.2e1 / 0.3e1 * t21414 * t21930 - 0.2e1 / 0.3e1 * t87414 * t5590 - 0.2e1 / 0.3e1 * t87417 * t5590 - 0.2e1 / 0.3e1 * t21410 * t21927 - 0.2e1 / 0.3e1 * t21410 * t21930 - 0.2e1 / 0.3e1 * t21410 * t21933 - t5464 * t89048 / 0.3e1 - 0.2e1 / 0.3e1 * t5464 * t89051 - 0.2e1 / 0.3e1 * t5464 * t89054 + 0.2e1 / 0.3e1 * t13876 * t21435 - 0.2e1 * t449 * t14092 * t1347;
28499   t89472 = t370 * t89465 * params->d + 0.6e1 * t1318 * t17360 + 0.6e1 * t2367 * t5616 + 0.3e1 * t2370 * t5616 + 0.12e2 * t4263 * t4808 + 0.6e1 * t4263 * t4811 + t87817 + t87819 + t87823 + t87830 + t87832 + t87835 + t87838 + t87843 + t87846 + t87849 + t87851;
28500   t89483 = 0.12e2 * t1318 * t17363 + 0.6e1 * t1318 * t17366 + 0.3e1 * t1318 * t17369 + 0.3e1 * t1359 * t14109 + 0.6e1 * t22038 * t875 + t87853 + t87855 + t87858 + t87863 + t87866 + t87871 + t87877 + t87880 + t87886 + t87888 + t87890 + t87892 + t87894;
28501   t89493 = t5611 * t878;
28502   t89496 = t22026 * t372;
28503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28504     v4rho2sigmatau[5] = t14097 * t1362 + 0.2e1 * t89246 + t2359 * t5620 + 0.2e1 * t89249 + 0.2e1 * t89251 + 0.2e1 * t89253 + t5612 * t2373 + 0.2e1 * t89256 + 0.2e1 * t89258 + t872 * (t89472 + t89483) + 0.2e1 * t22027 * t878 + t7 * t89465 * t372 + 0.2e1 * t4797 * t4267 + t1316 * t17372 + 0.2e1 * t89493 + t17334 * t1320 + 0.2e1 * t89496 + 0.2e1 * t4258 * t4814 + t1355 * t14117 + 0.2e1 * t870 * t22048;
28505 
28506   t89507 = t1333 * t4457;
28507   t89510 = t22177 * t372;
28508   t89511 = t4440 * t1341;
28509   t89515 = 0.6e1 * t4742 * t4451;
28510   t89518 = 0.6e1 * t369 * t21337 * t928;
28511   t89521 = 0.6e1 * t369 * t21343 * t928;
28512   t89524 = 0.6e1 * t369 * t5423 * t2478;
28513   t89527 = 0.6e1 * t369 * t22128 * t464;
28514   t89529 = 0.3e1 * t873 * t22218;
28515   t89533 = 0.6e1 * t873 * t22210;
28516   t89535 = 0.3e1 * t4742 * t4454;
28517   t89539 = t47571 * t4823;
28518   t89542 = t23309 * t459;
28519   t89543 = t47575 * t84 * t89542;
28520   t89545 = t13149 * t17396;
28521   t89547 = t65404 * t414;
28522   t89548 = t86839 * t89547;
28523   t89550 = t13149 * t17403;
28524   t89552 = t13146 * t4826;
28525   t89554 = t888 * t459;
28526   t89555 = t86839 * t89554;
28527   t89557 = t3807 * t4280;
28528   t89560 = t3807 * t84 * t2397;
28529   t89562 = t714 * t453;
28530   t89563 = t89562 * t17418;
28531   t89565 = -t86828 - 0.2e1 / 0.3e1 * t86829 - 0.5e1 / 0.9e1 * t86831 + 0.5e1 / 0.9e1 * t86833 - 0.2e1 / 0.3e1 * t89539 - 0.3e1 / 0.4e1 * t89543 - 0.5e1 / 0.12e2 * t89545 + 0.5e1 / 0.12e2 * t89548 + t89550 / 0.4e1 + 0.5e1 / 0.9e1 * t89552 + 0.5e1 / 0.12e2 * t89555 + 0.25e2 / 0.72e2 * t89557 - 0.5e1 / 0.36e2 * t89560 - 0.5e1 / 0.24e2 * t89563;
28532   t89566 = my_piecewise3(t95, 0, t89565);
28533   t89569 = 0.3e1 * t369 * t97 * t89566;
28534   t89574 = 0.6e1 * t1219 * t17560 + 0.3e1 * t22186 * t875 + 0.3e1 * t3994 * t4864 + t89515 + t89518 + t89521 + t89524 + t89527 + t89529 + t89533 + t89535 + t89569;
28535   t89578 = 0.6e1 * t1336 * t14911;
28536   t89580 = 0.6e1 * t1125 * t21390;
28537   t89582 = 0.6e1 * t1336 * t14906;
28538   t89584 = 0.6e1 * t873 * t22207;
28539   t89590 = 0.6e1 * t1336 * t14900;
28540   t89592 = 0.6e1 * t1336 * t14903;
28541   t89595 = 0.6e1 * t369 * t17485 * t1143;
28542   t89598 = 0.6e1 * t369 * t17447 * t1143;
28543   t89601 = 0.6e1 * t369 * t4839 * t3811;
28544   t89604 = 0.6e1 * t1219 * t17563 + 0.6e1 * t3138 * t5435 + 0.6e1 * t3994 * t4861 + 0.3e1 * t4445 * t4751 + t89578 + t89580 + t89582 + t89584 + t89590 + t89592 + t89595 + t89598 + t89601;
28545   t89609 = 0.6e1 * t3132 * t5441;
28546   t89613 = 0.3e1 * t1125 * t21393;
28547   t89615 = 0.6e1 * t1125 * t21379;
28548   t89619 = 0.6e1 * t873 * t22215;
28549   t89621 = 0.3e1 * t4855 * t4003;
28550   t89623 = 0.6e1 * t4855 * t4000;
28551   t89625 = 0.6e1 * t1125 * t21385;
28552   t89627 = 0.6e1 * t873 * t22204;
28553   t89630 = 0.6e1 * t369 * t4725 * t4311;
28554   t89633 = 0.6e1 * t369 * t4729 * t4311;
28555   t89634 = 0.6e1 * t1219 * t17557 + 0.6e1 * t1219 * t17568 + 0.6e1 * t4445 * t4748 + t89609 + t89613 + t89615 + t89619 + t89621 + t89623 + t89625 + t89627 + t89630 + t89633;
28556   t89637 = 0.6e1 * t369 * t1329 * t14139;
28557   t89640 = t50654 * t1326 * t912 * t443;
28558   t89645 = t1392 * t4844;
28559   t89648 = t400 * t17461;
28560   t89651 = t400 * t17465;
28561   t89654 = t400 * t17489;
28562   t89672 = t1204 * t3789 * t17422;
28563   t89675 = t881 * t21238;
28564   t89677 = 0.2e1 * t89675 * t21248;
28565   t89678 = t4839 * t167;
28566   t89679 = t400 * t89678;
28567   t89681 = 0.8e1 * t89679 * t21241;
28568   t89682 = t7889 * t746;
28569   t89683 = t86954 * t89682;
28570   t89685 = 0.4e1 * t21244 * t89683;
28571   t89686 = 0.10e2 * t50652 * t89640 - t22068 * t18819 / 0.3e1 - t89645 * t5146 / 0.3e1 - t89648 * t5146 / 0.3e1 - t89651 * t5146 / 0.3e1 - t89654 * t5146 / 0.3e1 - t22071 * t18813 / 0.3e1 + t14152 * t21296 / 0.3e1 + t50705 * t5402 / 0.3e1 + t50615 * t5402 / 0.3e1 + t50604 * t5402 / 0.3e1 + t14156 * t21218 / 0.3e1 + t14156 * t21222 / 0.3e1 + t3788 * t89672 / 0.3e1 - t89677 - t89681 + t89685;
28572   t89711 = 0.2e1 * t449 * t363 * t89566;
28573   t89712 = t50644 * t21287;
28574   t89718 = 0.2e1 * t86737 * t22093;
28575   t89720 = 0.2e1 * t86741 * t22093;
28576   t89721 = t14483 * t14441;
28577   t89723 = 0.2e1 * t21244 * t89721;
28578   t89724 = t14483 * t14447;
28579   t89726 = 0.2e1 * t21244 * t89724;
28580   t89727 = t50476 * t5402 / 0.3e1 + t50708 * t5402 / 0.3e1 + t51851 * t5402 / 0.3e1 + t14848 * t21218 / 0.3e1 + t14848 * t21222 / 0.3e1 + t14848 * t21292 / 0.3e1 - t22065 * t18816 / 0.3e1 - 0.2e1 * t2442 * t21282 - 0.2e1 * t14120 * t5407 - 0.2e1 * t14123 * t5407 - 0.2e1 * t4302 * t21279 - t89711 - 0.5e1 / 0.3e1 * t3762 * t89712 + t14156 * t21296 / 0.3e1 - t89718 - t89720 - t89723 - t89726;
28581   t89730 = t1204 * t14718 * t4714;
28582   t89737 = t1392 * t4847;
28583   t89740 = t2850 * t443;
28584   t89741 = t86954 * t89740;
28585   t89743 = 0.8e1 * t21239 * t89741;
28586   t89744 = t14155 * t3940;
28587   t89747 = t14847 * t3940;
28588   t89757 = t1204 * t929 * t4714;
28589   t89766 = t3958 * t22109;
28590   t89770 = t1204 * t2483 * t1326;
28591   t89774 = t1204 * t52698 * t1326;
28592   t89777 = t3788 * t89730 / 0.3e1 - t22071 * t18816 / 0.3e1 - t22071 * t18819 / 0.3e1 - t89737 * t5146 / 0.3e1 + t89743 + 0.5e1 / 0.3e1 * t21210 * t89744 + 0.5e1 / 0.3e1 * t21210 * t89747 + 0.5e1 / 0.3e1 * t86929 * t22053 + 0.5e1 / 0.3e1 * t86818 * t22053 + 0.5e1 / 0.3e1 * t86821 * t22053 + t3788 * t89757 / 0.3e1 + t13167 * t22110 / 0.3e1 + t12758 * t22110 / 0.3e1 + t12788 * t22110 / 0.3e1 + t3788 * t89766 / 0.3e1 + t3788 * t89770 / 0.3e1 + t3788 * t89774 / 0.3e1;
28593   t89792 = t748 * t912;
28594   t89793 = t89792 * t443;
28595   t89794 = t86954 * t89793;
28596   t89796 = 0.40e2 * t86768 * t89794;
28597   t89797 = t1397 * t4844;
28598   t89802 = t1392 * t4840;
28599   t89805 = t400 * t17486;
28600   t89808 = t400 * t17448;
28601   t89811 = t400 * t17518;
28602   t89822 = -t21251 * t20214 / 0.3e1 - t21254 * t20214 / 0.3e1 - t21225 * t20214 / 0.3e1 - t21228 * t20214 / 0.3e1 - t5416 * t76948 / 0.3e1 - t5416 * t76951 / 0.3e1 - t5416 * t76954 / 0.3e1 + t89796 + 0.5e1 / 0.3e1 * t89797 * t21211 - t22065 * t18819 / 0.3e1 - t89802 * t5146 / 0.3e1 - t89805 * t5146 / 0.3e1 - t89808 * t5146 / 0.3e1 - t89811 * t5146 / 0.3e1 - t22074 * t18813 / 0.3e1 - t22074 * t18816 / 0.3e1 - t22074 * t18819 / 0.3e1 - t21251 * t20211 / 0.3e1;
28603   t89840 = 0.40e2 * t76862 * t17426;
28604   t89842 = 0.2e1 * t881 * t21329;
28605   t89848 = t12791 * t4820 * t443;
28606   t89853 = t2093 * t912;
28607   t89854 = t89853 * t746;
28608   t89855 = t86954 * t89854;
28609   t89857 = 0.8e1 * t21239 * t89855;
28610   t89859 = t12791 * t4715 * t912;
28611   t89863 = t12791 * t1327 * t2436;
28612   t89867 = t12791 * t4831 * t443;
28613   t89870 = -t21254 * t20211 / 0.3e1 - t21225 * t20211 / 0.3e1 - t21228 * t20211 / 0.3e1 - t5416 * t76928 / 0.3e1 - t5416 * t76931 / 0.3e1 - t5416 * t76937 / 0.3e1 - t5416 * t77030 / 0.3e1 + t89840 + t89842 - 0.5e1 / 0.3e1 * t14736 * t21288 - 0.5e1 / 0.3e1 * t14858 * t21288 - 0.5e1 / 0.3e1 * t3762 * t89848 + 0.5e1 / 0.3e1 * t86824 * t22053 + t89857 - 0.5e1 / 0.3e1 * t3762 * t89859 - 0.5e1 / 0.3e1 * t3762 * t89863 - 0.5e1 / 0.3e1 * t3762 * t89867;
28614   t89871 = t400 * t17441;
28615   t89874 = t400 * t17480;
28616   t89877 = t81 * t89678;
28617   t89879 = 0.6e1 * t89877 * t21245;
28618   t89881 = 0.2e1 * t89877 * t21248;
28619   t89882 = t4843 * t167;
28620   t89883 = t400 * t89882;
28621   t89885 = 0.8e1 * t89883 * t21241;
28622   t89886 = t81 * t89882;
28623   t89888 = 0.6e1 * t89886 * t21245;
28624   t89890 = 0.2e1 * t89886 * t21248;
28625   t89892 = t14483 * t14321 * t443;
28626   t89894 = 0.8e1 * t21239 * t89892;
28627   t89895 = t13344 * t14322;
28628   t89897 = 0.6e1 * t21244 * t89895;
28629   t89916 = -t89871 * t5146 / 0.3e1 - t89874 * t5146 / 0.3e1 + t89879 - t89881 - t89885 + t89888 - t89890 - t89894 + t89897 + t50479 * t5402 / 0.3e1 + t50482 * t5402 / 0.3e1 + t50485 * t5402 / 0.3e1 + t14152 * t21218 / 0.3e1 + t14152 * t21222 / 0.3e1 + t14152 * t21292 / 0.3e1 + t14848 * t21296 / 0.3e1 + t13167 * t22102 / 0.3e1 + t12758 * t22102 / 0.3e1;
28630   t89920 = t14582 * t5401;
28631   t89923 = t4412 * t21221;
28632   t89926 = t4412 * t21291;
28633   t89929 = t14483 * t14435;
28634   t89931 = 0.2e1 * t21244 * t89929;
28635   t89935 = 0.8e1 * t87097 * t4836;
28636   t89937 = 0.8e1 * t87100 * t4836;
28637   t89939 = 0.8e1 * t21257 * t17509;
28638   t89941 = 0.2e1 * t77138 * t1327;
28639   t89943 = 0.2e1 * t75876 * t1327;
28640   t89945 = 0.2e1 * t20284 * t4694;
28641   t89946 = t12757 * t4396;
28642   t89949 = t12764 * t4396;
28643   t89952 = t3761 * t14672;
28644   t89955 = t3761 * t14617;
28645   t89958 = t7591 * t1330;
28646   t89962 = 0.8e1 * t17515 * t21215;
28647   t89963 = t12788 * t22102 / 0.3e1 + t3788 * t89920 / 0.3e1 + t3788 * t89923 / 0.3e1 + t3788 * t89926 / 0.3e1 - t89931 - t21251 * t20217 / 0.3e1 - t89935 - t89937 - t89939 - t89941 - t89943 - t89945 + 0.5e1 / 0.3e1 * t21210 * t89946 + 0.5e1 / 0.3e1 * t21210 * t89949 + 0.5e1 / 0.3e1 * t21210 * t89952 + 0.5e1 / 0.3e1 * t21210 * t89955 + 0.5e1 / 0.3e1 * t89958 * t21211 - t89962;
28648   t89968 = 0.8e1 * t21257 * t17512;
28649   t89971 = 0.2e1 * t81 * t5423 * t2866;
28650   t89976 = 0.8e1 * t4720 * t21214 * t2436;
28651   t89977 = t47494 * t22132;
28652   t89980 = t3946 * t22132;
28653   t89984 = t12791 * t4694 * t912;
28654   t89988 = 0.2e1 * t397 * t22125;
28655   t89991 = t397 * t4843;
28656   t89993 = 0.2e1 * t89991 * t1193;
28657   t89994 = t81 * t17460;
28658   t89996 = 0.2e1 * t89994 * t1193;
28659   t89997 = t81 * t17464;
28660   t89999 = 0.2e1 * t89997 * t1193;
28661   t90001 = 0.2e1 * t77126 * t1327;
28662   t90003 = 0.2e1 * t20281 * t4694;
28663   t90005 = 0.2e1 * t22050 * t3922;
28664   t90007 = 0.2e1 * t21204 * t4380;
28665   t90008 = t1397 * t4840;
28666   t90011 = -0.2e1 * t449 * t1199 * t17422 - t89968 + t89971 - 0.2e1 * t8342 * t5407 - t89976 - 0.5e1 / 0.3e1 * t3762 * t89977 - 0.5e1 / 0.3e1 * t3762 * t89980 - 0.5e1 / 0.3e1 * t3762 * t89984 + t89988 - 0.2e1 * t9859 * t5407 + t89993 + t89996 + t89999 - t90001 - t90003 + t90005 + t90007 + 0.5e1 / 0.3e1 * t90008 * t21211;
28667   t90015 = t22061 * t227;
28668   t90018 = 0.8e1 * t4720 * t90015 * t443;
28669   t90020 = 0.2e1 * t8342 * t5413;
28670   t90022 = 0.2e1 * t1476 * t22062;
28671   t90024 = 0.2e1 * t2448 * t22062;
28672   t90027 = 0.2e1 * t449 * t857 * t22061;
28673   t90028 = t4400 * t21287;
28674   t90032 = 0.2e1 * t18654 * t4831;
28675   t90040 = t19783 * t746;
28676   t90041 = t86914 * t90040;
28677   t90043 = 0.6e1 * t21244 * t90041;
28678   t90045 = 0.2e1 * t2377 * t5424;
28679   t90047 = 0.2e1 * t881 * t21338;
28680   t90049 = 0.2e1 * t881 * t21344;
28681   t90051 = 0.2e1 * t22165 * t3922;
28682   t90055 = 0.2e1 * t81 * t2478 * t5412 * t227;
28683   t90059 = 0.2e1 * t81 * t928 * t21315 * t227;
28684   t90060 = -t90018 - t90020 - t90022 - t90024 - t90027 - 0.5e1 / 0.3e1 * t3762 * t90028 - t90032 - 0.2e1 * t1476 * t22148 - 0.2e1 * t2448 * t22148 - 0.2e1 * t449 * t3934 * t4830 - t90043 + t90045 + t90047 + t90049 + t90051 + t90055 + t90059;
28685   t90063 = t89792 * t677;
28686   t90064 = t86914 * t90063;
28687   t90066 = 0.24e2 * t21239 * t90064;
28688   t90067 = t3761 * t14654;
28689   t90077 = 0.2e1 * t18640 * t4831;
28690   t90079 = 0.2e1 * t5097 * t17383;
28691   t90080 = t397 * t4839;
28692   t90082 = 0.2e1 * t90080 * t1193;
28693   t90083 = t81 * t17485;
28694   t90085 = 0.2e1 * t90083 * t1193;
28695   t90086 = t81 * t17447;
28696   t90088 = 0.2e1 * t90086 * t1193;
28697   t90090 = 0.2e1 * t21207 * t4380;
28698   t90092 = 0.2e1 * t5427 * t14433;
28699   t90096 = 0.2e1 * t20281 * t4715;
28700   t90098 = 0.2e1 * t14120 * t5413;
28701   t90100 = 0.2e1 * t14123 * t5413;
28702   t90102 = 0.2e1 * t4302 * t21272;
28703   t90103 = -0.2e1 * t2442 * t21279 - t90066 + 0.5e1 / 0.3e1 * t21210 * t90067 - 0.5e1 / 0.3e1 * t13164 * t22133 - 0.5e1 / 0.3e1 * t12761 * t22133 - 0.5e1 / 0.3e1 * t12765 * t22133 - t90077 - t90079 + t90082 + t90085 + t90088 + t90090 + t90092 - 0.5e1 / 0.3e1 * t14851 * t21288 - t90096 - t90098 - t90100 - t90102;
28704   t90116 = t7763 * t1330;
28705   t90119 = t2378 * t4726;
28706   t90122 = t2378 * t4730;
28707   t90125 = t2378 * t4733;
28708   t90136 = t3958 * t22113;
28709   t90140 = t1204 * t465 * t4830;
28710   t90144 = t1204 * t12780 * t4830;
28711   t90147 = t4412 * t21295;
28712   t90150 = -0.2e1 * t449 * t4391 * t4714 - t21254 * t20217 / 0.3e1 - t21225 * t20217 / 0.3e1 - t21228 * t20217 / 0.3e1 - t5416 * t77027 / 0.3e1 - t90116 * t5146 / 0.3e1 - t90119 * t5146 / 0.3e1 - t90122 * t5146 / 0.3e1 - t90125 * t5146 / 0.3e1 - t22065 * t18813 / 0.3e1 + t13167 * t22114 / 0.3e1 + t12758 * t22114 / 0.3e1 + t12788 * t22114 / 0.3e1 + t3788 * t90136 / 0.3e1 + t3788 * t90140 / 0.3e1 + t3788 * t90144 / 0.3e1 + t3788 * t90147 / 0.3e1;
28713   t90157 = t3958 * t22105;
28714   t90161 = t1204 * t2479 * t1326;
28715   t90165 = t1204 * t2451 * t1326;
28716   t90168 = t2850 * t677;
28717   t90169 = t86914 * t90168;
28718   t90171 = 0.6e1 * t21244 * t90169;
28719   t90173 = 0.2e1 * t22167 * t3922;
28720   t90177 = 0.8e1 * t86894 * t22087;
28721   t90179 = 0.8e1 * t86897 * t22087;
28722   t90181 = 0.2e1 * t20284 * t4715;
28723   t90183 = 0.2e1 * t18640 * t4820;
28724   t90185 = 0.2e1 * t5097 * t17438;
28725   t90188 = 0.2e1 * t81 * t21343 * t1037;
28726   t90189 = t5412 * t1037;
28727   t90192 = 0.8e1 * t4720 * t90189 * t443;
28728   t90194 = 0.2e1 * t9859 * t5413;
28729   t90196 = 0.2e1 * t2442 * t21272;
28730   t90197 = t13167 * t22106 / 0.3e1 + t12758 * t22106 / 0.3e1 + t12788 * t22106 / 0.3e1 + t3788 * t90157 / 0.3e1 + t3788 * t90161 / 0.3e1 + t3788 * t90165 / 0.3e1 - t90171 + t90173 - t5416 * t77033 / 0.3e1 - t90177 - t90179 - t90181 - t90183 - t90185 + t90188 - t90192 - t90194 - t90196;
28731   t90201 = 0.2e1 * t2377 * t5420;
28732   t90204 = 0.2e1 * t81 * t21319 * t1037;
28733   t90205 = t2378 * t1143;
28734   t90207 = 0.8e1 * t90205 * t4722;
28735   t90219 = 0.40e2 * t7757 * t21214 * t2383;
28736   t90221 = 0.2e1 * t2442 * t21316;
28737   t90224 = 0.2e1 * t81 * t22128 * t751;
28738   t90227 = 0.2e1 * t81 * t5419 * t2866;
28739   t90228 = t400 * t4311;
28740   t90230 = 0.8e1 * t90228 * t4722;
28741   t90234 = 0.2e1 * t81 * t96 * t89566 * t227;
28742   t90236 = 0.2e1 * t397 * t22129;
28743   t90240 = 0.2e1 * t81 * t464 * t22061 * t227;
28744   t90242 = 0.2e1 * t397 * t22121;
28745   t90244 = 0.2e1 * t76535 * t1327;
28746   t90245 = -0.2e1 * t1326 * t14468 * t449 - 0.2e1 * t1476 * t22172 - 0.2e1 * t21282 * t4302 - 0.2e1 * t22172 * t2448 + t90201 + t90204 - t90207 + t90219 - t90221 + t90224 + t90227 - t90230 + t90234 + t90236 + t90240 + t90242 - t90244;
28747   t90247 = 0.2e1 * t18654 * t4820;
28748   t90249 = 0.8e1 * t17116 * t22141;
28749   t90252 = 0.8e1 * t4720 * t87080 * t912;
28750   t90253 = t4721 * t25;
28751   t90254 = t34500 * t90253;
28752   t90258 = 0.2e1 * t881 * t21320;
28753   t90260 = 0.2e1 * t881 * t21324;
28754   t90263 = 0.2e1 * t449 * t1110 * t21315;
28755   t90265 = 0.8e1 * t17457 * t21215;
28756   t90268 = 0.2e1 * t81 * t21337 * t1037;
28757   t90270 = 0.8e1 * t21257 * t17502;
28758   t90272 = 0.2e1 * t881 * t21332;
28759   t90275 = 0.2e1 * t81 * t22159 * t751;
28760   t90278 = 0.2e1 * t81 * t22124 * t751;
28761   t90279 = t2377 * t1329;
28762   t90281 = 0.2e1 * t90279 * t1193;
28763   t90282 = t881 * t4725;
28764   t90284 = 0.2e1 * t90282 * t1193;
28765   t90285 = t881 * t4729;
28766   t90287 = 0.2e1 * t90285 * t1193;
28767   t90289 = 0.2e1 * t397 * t22160;
28768   t90293 = 0.2e1 * t81 * t14139 * t1326 * t227;
28769   t90294 = -0.10e2 * t76873 * t90254 - t90247 - t90249 - t90252 + t90258 + t90260 - t90263 - t90265 + t90268 - t90270 + t90272 + t90275 + t90278 + t90281 + t90284 + t90287 + t90289 + t90293;
28770   t90299 = 0.2e1 * t81 * t4311 * t4714 * t227;
28771   t90301 = 0.8e1 * t21257 * t17452;
28772   t90303 = 0.2e1 * t397 * t22163;
28773   t90307 = 0.2e1 * t81 * t3811 * t4830 * t227;
28774   t90311 = 0.2e1 * t81 * t1143 * t17422 * t227;
28775   t90313 = 0.2e1 * t5097 * t17423;
28776   t90314 = t4433 * t443;
28777   t90315 = t86914 * t90314;
28778   t90317 = 0.24e2 * t21239 * t90315;
28779   t90319 = t4433 * t677;
28780   t90320 = t14820 * t1190 * t90319;
28781   t90322 = 0.12e2 * t21244 * t90320;
28782   t90323 = t1397 * t4847;
28783   t90327 = 0.2e1 * t4302 * t21316;
28784   t90329 = 0.2e1 * t5097 * t17499;
28785   t90331 = 0.8e1 * t17094 * t22141;
28786   t90334 = 0.8e1 * t4720 * t87120 * t912;
28787   t90336 = 0.2e1 * t1476 * t22155;
28788   t90338 = 0.2e1 * t2448 * t22155;
28789   t90341 = 0.2e1 * t449 * t3091 * t5412;
28790   t90343 = 0.8e1 * t86900 * t22087;
28791   t90345 = t14483 * t12937 * t912;
28792   t90347 = 0.8e1 * t21239 * t90345;
28793   t90348 = t90299 - t90301 + t90303 + t90307 + t90311 - t90313 - t90317 + t90322 + 0.5e1 / 0.3e1 * t90323 * t21211 - t90327 - t90329 - t90331 - t90334 - t90336 - t90338 - t90341 - t90343 - t90347;
28794   t90350 = t14483 * t3874 * t2436;
28795   t90352 = 0.8e1 * t21239 * t90350;
28796   t90354 = 0.6e1 * t86733 * t22090;
28797   t90356 = 0.6e1 * t86737 * t22090;
28798   t90358 = 0.6e1 * t86741 * t22090;
28799   t90359 = t13344 * t14312;
28800   t90361 = 0.6e1 * t21244 * t90359;
28801   t90362 = t13344 * t14318;
28802   t90364 = 0.6e1 * t21244 * t90362;
28803   t90366 = 0.2e1 * t86733 * t22093;
28804   t90371 = t400 * t17444;
28805   t90376 = t2378 * t21238;
28806   t90378 = 0.8e1 * t90376 * t21241;
28807   t90380 = 0.6e1 * t89675 * t21245;
28808   t90382 = 0.2e1 * t21201 * t4380;
28809   t90384 = 0.2e1 * t397 * t22136;
28810   t90386 = 0.8e1 * t21257 * t17471;
28811   t90389 = 0.2e1 * t81 * t21323 * t1037;
28812   t90392 = 0.2e1 * t81 * t22162 * t751;
28813   t90393 = -t90352 + t90354 + t90356 + t90358 + t90361 + t90364 - t90366 - t22068 * t18813 / 0.3e1 - t22068 * t18816 / 0.3e1 - t90371 * t5146 / 0.3e1 + t14156 * t21292 / 0.3e1 - t90378 + t90380 + t90382 + t90384 - t90386 + t90389 + t90392;
28814   t90397 = t89686 + t89727 + t89777 + t89822 + t89870 + t89916 + t89963 + t90011 + t90060 + t90103 + t90150 + t90197 + t90245 + t90294 + t90348 + t90393;
28815   t90401 = 0.3e1 * t3132 * t5444;
28816   t90407 = 0.3e1 * t17539 * t1221;
28817   t90409 = 0.3e1 * t1336 * t14914;
28818   t90414 = 0.6e1 * t369 * t17460 * t1143;
28819   t90417 = 0.6e1 * t369 * t17464 * t1143;
28820   t90420 = 0.6e1 * t369 * t4843 * t3811;
28821   t90422 = 0.6e1 * t1125 * t21382;
28822   t90425 = t370 * t90397 * params->d + 0.3e1 * t1127 * t21361 + 0.3e1 * t1219 * t17571 + 0.3e1 * t1338 * t14882 + 0.3e1 * t3141 * t5435 + t89637 + t90401 + t90407 + t90409 + t90414 + t90417 + t90420 + t90422;
28823   t90429 = t3127 * t5447 + t4851 * t4006 + t87294 + t87301 + t5431 * t3144 + t1123 * t21396 + t89507 + t4441 * t4754 + t4737 * t4457 + t89510 + t89511 + t86694 + t22178 * t878 + t17528 * t1224 + t86692 + t872 * (t89574 + t89604 + t89634 + t90425);
28824   t90430 = t4850 * t1224;
28825   t90431 = t1216 * t4867;
28826   t90434 = t368 * t22221;
28827   t90435 = t1122 * t5447;
28828   t90438 = t5430 * t1130;
28829   t90443 = t372 * t7 * t90397 + t1130 * t21350 + t1217 * t17574 + t1334 * t14917 + t1341 * t14871 + t22221 * t870 + t3989 * t4867 + t87289 + t87304 + t87306 + t87310 + t90430 + t90431 + t90434 + t90435 + t90438;
28830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28831     v4rho2sigmatau[6] = t90429 + t90443;
28832 
28833   t90446 = t1216 * t4924;
28834   t90450 = t1392 * t4897;
28835   t90453 = t400 * t17615;
28836   t90456 = t400 * t17594;
28837   t90464 = 0.6e1 * t21426 * t90362;
28838   t90467 = t3958 * t22242;
28839   t90471 = t1204 * t465 * t4887;
28840   t90475 = t1204 * t12780 * t4887;
28841   t90492 = -t90450 * t5146 / 0.3e1 - t90453 * t5146 / 0.3e1 - t90456 * t5146 / 0.3e1 - t5464 * t76954 / 0.3e1 - t21431 * t20217 / 0.3e1 + t90464 + t12788 * t22243 / 0.3e1 + t3788 * t90467 / 0.3e1 + t3788 * t90471 / 0.3e1 + t3788 * t90475 / 0.3e1 + t14156 * t21435 / 0.3e1 + t50476 * t5450 / 0.3e1 + t50708 * t5450 / 0.3e1 + t51851 * t5450 / 0.3e1 + t14848 * t21402 / 0.3e1 + t14848 * t21405 / 0.3e1 + t14848 * t21408 / 0.3e1;
28842   t90494 = 0.8e1 * t21423 * t90345;
28843   t90496 = 0.8e1 * t21423 * t90350;
28844   t90498 = 0.2e1 * t21426 * t89721;
28845   t90500 = 0.2e1 * t21426 * t89724;
28846   t90501 = t4900 * t167;
28847   t90502 = t81 * t90501;
28848   t90504 = 0.6e1 * t90502 * t21245;
28849   t90506 = 0.2e1 * t90502 * t21248;
28850   t90508 = 0.8e1 * t21423 * t89892;
28851   t90512 = 0.2e1 * t81 * t3811 * t4887 * t227;
28852   t90516 = 0.2e1 * t81 * t1143 * t17677 * t227;
28853   t90519 = 0.2e1 * t81 * t22303 * t751;
28854   t90521 = 0.2e1 * t22226 * t3922;
28855   t90522 = t397 * t4896;
28856   t90524 = 0.2e1 * t90522 * t1193;
28857   t90525 = t81 * t17614;
28858   t90527 = 0.2e1 * t90525 * t1193;
28859   t90528 = t81 * t17593;
28860   t90530 = 0.2e1 * t90528 * t1193;
28861   t90536 = t1204 * t2451 * t1347;
28862   t90539 = t7763 * t1351;
28863   t90542 = -t90494 - t90496 - t90498 - t90500 + t90504 - t90506 - t90508 + t90512 + t90516 + t90519 + t90521 + t90524 + t90527 + t90530 - t5464 * t76937 / 0.3e1 - t22264 * t18813 / 0.3e1 + t3788 * t90536 / 0.3e1 - t90539 * t5146 / 0.3e1;
28864   t90545 = 0.40e2 * t87681 * t89794;
28865   t90548 = 0.2e1 * t449 * t857 * t22295;
28866   t90550 = 0.2e1 * t5097 * t17581;
28867   t90560 = 0.2e1 * t21426 * t89929;
28868   t90561 = t3958 * t22246;
28869   t90580 = t90545 - t90548 - t90550 - t21410 * t20217 / 0.3e1 - t21412 * t20217 / 0.3e1 - t21414 * t20217 / 0.3e1 - t5464 * t77027 / 0.3e1 - t90560 + t3788 * t90561 / 0.3e1 + t50604 * t5450 / 0.3e1 + t14156 * t21402 / 0.3e1 + t14156 * t21405 / 0.3e1 + t14156 * t21408 / 0.3e1 + t50485 * t5450 / 0.3e1 + t14152 * t21402 / 0.3e1 + t14152 * t21405 / 0.3e1 + t14152 * t21408 / 0.3e1;
28870   t90582 = t1204 * t929 * t4775;
28871   t90588 = 0.2e1 * t5097 * t17681;
28872   t90590 = 0.2e1 * t77126 * t1348;
28873   t90592 = 0.2e1 * t20281 * t4761;
28874   t90594 = 0.2e1 * t8342 * t5461;
28875   t90595 = t3958 * t22250;
28876   t90599 = t1204 * t2483 * t1347;
28877   t90603 = t1204 * t52698 * t1347;
28878   t90606 = t2378 * t4786;
28879   t90609 = t2378 * t4790;
28880   t90612 = t2378 * t4793;
28881   t90623 = t397 * t4900;
28882   t90625 = 0.2e1 * t90623 * t1193;
28883   t90626 = t81 * t17638;
28884   t90628 = 0.2e1 * t90626 * t1193;
28885   t90629 = t3788 * t90582 / 0.3e1 + t13167 * t22251 / 0.3e1 - t90588 - t90590 - t90592 - t90594 + t3788 * t90595 / 0.3e1 + t3788 * t90599 / 0.3e1 + t3788 * t90603 / 0.3e1 - t90606 * t5146 / 0.3e1 - t90609 * t5146 / 0.3e1 - t90612 * t5146 / 0.3e1 - t22255 * t18813 / 0.3e1 - t22255 * t18816 / 0.3e1 - t22255 * t18819 / 0.3e1 - t21431 * t20214 / 0.3e1 + t90625 + t90628;
28886   t90632 = t81 * t17678;
28887   t90634 = 0.2e1 * t90632 * t1193;
28888   t90636 = 0.6e1 * t21426 * t90169;
28889   t90643 = t47494 * t22342;
28890   t90647 = 0.8e1 * t21423 * t89741;
28891   t90648 = t1397 * t4904;
28892   t90652 = 0.40e2 * t76862 * t17611;
28893   t90654 = 0.24e2 * t21423 * t90064;
28894   t90655 = t4400 * t21513;
28895   t90659 = t12791 * t4873 * t443;
28896   t90663 = 0.2e1 * t18654 * t4888;
28897   t90665 = 0.2e1 * t18640 * t4888;
28898   t90667 = 0.2e1 * t5097 * t17685;
28899   t90672 = t90634 - t90636 - 0.5e1 / 0.3e1 * t13164 * t22343 - 0.5e1 / 0.3e1 * t12761 * t22343 - 0.5e1 / 0.3e1 * t12765 * t22343 - 0.5e1 / 0.3e1 * t3762 * t90643 + t90647 + 0.5e1 / 0.3e1 * t90648 * t21211 + t90652 - t90654 - 0.5e1 / 0.3e1 * t3762 * t90655 - 0.5e1 / 0.3e1 * t3762 * t90659 - t90663 - t90665 - t90667 - 0.2e1 * t4302 * t21475 - 0.2e1 * t1476 * t22331;
28900   t90676 = 0.2e1 * t21469 * t4380;
28901   t90678 = 0.6e1 * t87401 * t22090;
28902   t90680 = 0.6e1 * t87404 * t22090;
28903   t90682 = 0.6e1 * t87455 * t22090;
28904   t90683 = t4412 * t21434;
28905   t90691 = 0.6e1 * t21426 * t90359;
28906   t90699 = 0.8e1 * t87385 * t22087;
28907   t90704 = t400 * t17603;
28908   t90711 = -0.2e1 * t2448 * t22331 + t90676 + t90678 + t90680 + t90682 + t3788 * t90683 / 0.3e1 + t13167 * t22243 / 0.3e1 + t12758 * t22243 / 0.3e1 + t90691 + t13167 * t22247 / 0.3e1 + t12758 * t22247 / 0.3e1 + t12788 * t22247 / 0.3e1 - t90699 - t5464 * t77033 / 0.3e1 + t14152 * t21435 / 0.3e1 - t90704 * t5146 / 0.3e1 - t22258 * t18813 / 0.3e1 - t22258 * t18816 / 0.3e1;
28909   t90715 = t1392 * t4901;
28910   t90728 = 0.2e1 * t4302 * t21502;
28911   t90730 = 0.2e1 * t22229 * t3922;
28912   t90732 = 0.2e1 * t20281 * t4776;
28913   t90737 = 0.2e1 * t21465 * t4380;
28914   t90744 = t7591 * t1351;
28915   t90747 = t1397 * t4897;
28916   t90750 = t1397 * t4901;
28917   t90756 = -t22258 * t18819 / 0.3e1 - t90715 * t5146 / 0.3e1 + 0.5e1 / 0.3e1 * t21510 * t89744 - 0.2e1 * t2448 * t22285 - 0.2e1 * t449 * t3934 * t4887 - 0.2e1 * t1476 * t22285 - t90728 + t90730 - t90732 - 0.2e1 * t449 * t1199 * t17677 + t90737 + 0.5e1 / 0.3e1 * t87750 * t22053 + 0.5e1 / 0.3e1 * t87753 * t22053 + 0.5e1 / 0.3e1 * t87775 * t22053 + 0.5e1 / 0.3e1 * t90744 * t21211 + 0.5e1 / 0.3e1 * t90747 * t21211 + 0.5e1 / 0.3e1 * t90750 * t21211 - 0.2e1 * t449 * t14468 * t1347;
28918   t90759 = 0.40e2 * t7757 * t21482 * t2383;
28919   t90762 = 0.2e1 * t81 * t22300 * t751;
28920   t90767 = 0.8e1 * t4720 * t21482 * t2436;
28921   t90769 = 0.2e1 * t77138 * t1348;
28922   t90771 = 0.2e1 * t75876 * t1348;
28923   t90773 = 0.2e1 * t20284 * t4761;
28924   t90775 = t12791 * t4888 * t443;
28925   t90783 = 0.24e2 * t21423 * t90315;
28926   t90785 = 0.12e2 * t21426 * t90320;
28927   t90787 = 0.2e1 * t397 * t22337;
28928   t90791 = 0.2e1 * t81 * t2478 * t5460 * t227;
28929   t90795 = 0.2e1 * t81 * t928 * t21461 * t227;
28930   t90796 = t2377 * t1350;
28931   t90798 = 0.2e1 * t90796 * t1193;
28932   t90799 = t881 * t4785;
28933   t90801 = 0.2e1 * t90799 * t1193;
28934   t90802 = t881 * t4789;
28935   t90804 = 0.2e1 * t90802 * t1193;
28936   t90805 = t90759 + t90762 - 0.2e1 * t2442 * t21507 - t90767 - t90769 - t90771 - t90773 - 0.5e1 / 0.3e1 * t3762 * t90775 + 0.5e1 / 0.3e1 * t21510 * t89747 + 0.5e1 / 0.3e1 * t21510 * t90067 - t90783 + t90785 + t90787 + t90791 + t90795 + t90798 + t90801 + t90804;
28937   t90809 = t4896 * t167;
28938   t90810 = t400 * t90809;
28939   t90812 = 0.8e1 * t90810 * t21241;
28940   t90813 = t400 * t17639;
28941   t90816 = t400 * t17679;
28942   t90819 = t400 * t17641;
28943   t90828 = t1392 * t4904;
28944   t90834 = 0.2e1 * t1476 * t22311;
28945   t90836 = 0.2e1 * t2448 * t22311;
28946   t90846 = 0.2e1 * t1476 * t22318;
28947   t90848 = 0.2e1 * t2448 * t22318;
28948   t90849 = -t90812 - t90813 * t5146 / 0.3e1 - t90816 * t5146 / 0.3e1 - t90819 * t5146 / 0.3e1 - t22261 * t18813 / 0.3e1 - t22261 * t18816 / 0.3e1 - t22261 * t18819 / 0.3e1 - t90828 * t5146 / 0.3e1 - 0.2e1 * t8342 * t5455 - t90834 - t90836 + 0.5e1 / 0.3e1 * t21510 * t89949 + 0.5e1 / 0.3e1 * t21510 * t89952 + 0.5e1 / 0.3e1 * t21510 * t89955 - 0.5e1 / 0.3e1 * t14736 * t21514 - t90846 - t90848;
28949   t90852 = 0.2e1 * t449 * t3091 * t5460;
28950   t90853 = t50644 * t21513;
28951   t90856 = t4781 * t25;
28952   t90857 = t34500 * t90856;
28953   t90861 = 0.8e1 * t21257 * t17711;
28954   t90863 = 0.8e1 * t90228 * t4782;
28955   t90865 = 0.8e1 * t90205 * t4782;
28956   t90867 = 0.8e1 * t17457 * t21483;
28957   t90869 = 0.2e1 * t76535 * t1348;
28958   t90875 = 0.2e1 * t21467 * t4380;
28959   t90881 = 0.2e1 * t881 * t21438;
28960   t90883 = 0.8e1 * t21257 * t17619;
28961   t90885 = 0.4e1 * t21426 * t89683;
28962   t90888 = t47571 * t4876;
28963   t90890 = t47575 * t88;
28964   t90893 = t90890 * t50 * t923 * t459;
28965   t90896 = t25556 * t66077 * t418;
28966   t90898 = t13149 * t17654;
28967   t90900 = t13146 * t1274;
28968   t90902 = t13149 * t17659;
28969   t90904 = t3807 * t4164;
28970   t90906 = t13146 * t4883;
28971   t90909 = t25556 * t898 * t459;
28972   t90912 = t3807 * t88 * t2407;
28973   t90914 = t89562 * t17673;
28974   t90916 = -t87537 - 0.2e1 / 0.3e1 * t87538 + 0.5e1 / 0.9e1 * t87540 - 0.2e1 / 0.3e1 * t90888 - 0.3e1 / 0.4e1 * t90893 + 0.5e1 / 0.12e2 * t90896 + t90898 / 0.4e1 - 0.5e1 / 0.9e1 * t90900 - 0.5e1 / 0.12e2 * t90902 + 0.25e2 / 0.72e2 * t90904 + 0.5e1 / 0.9e1 * t90906 + 0.5e1 / 0.12e2 * t90909 - 0.5e1 / 0.36e2 * t90912 + 0.5e1 / 0.24e2 * t90914;
28975   t90917 = my_piecewise3(t95, 0, t90916);
28976   t90920 = 0.2e1 * t449 * t363 * t90917;
28977   t90922 = 0.8e1 * t87097 * t4893;
28978   t90923 = -t90852 - 0.5e1 / 0.3e1 * t3762 * t90853 - 0.10e2 * t90857 * t76873 - t90861 - t90863 - t90865 - t90867 - t90869 + 0.5e1 / 0.3e1 * t87765 * t22053 + 0.5e1 / 0.3e1 * t21510 * t89946 + t90875 + t12758 * t22251 / 0.3e1 + t12788 * t22251 / 0.3e1 + t90881 - t90883 + t90885 - t90920 - t90922;
28979   t90926 = 0.8e1 * t87100 * t4893;
28980   t90928 = 0.8e1 * t21257 * t17608;
28981   t90931 = 0.2e1 * t449 * t1110 * t21461;
28982   t90933 = 0.8e1 * t21257 * t17599;
28983   t90934 = t22295 * t227;
28984   t90937 = 0.8e1 * t4720 * t90934 * t443;
28985   t90940 = 0.8e1 * t4720 * t87594 * t912;
28986   t90942 = 0.2e1 * t2377 * t5472;
28987   t90944 = 0.8e1 * t17094 * t22278;
28988   t90947 = 0.8e1 * t4720 * t87799 * t912;
28989   t90949 = 0.8e1 * t17116 * t22278;
28990   t90951 = 0.2e1 * t20284 * t4776;
28991   t90953 = 0.2e1 * t397 * t22309;
28992   t90956 = 0.2e1 * t81 * t21488 * t1037;
28993   t90958 = 0.8e1 * t21257 * t17707;
28994   t90960 = 0.8e1 * t17515 * t21483;
28995   t90962 = 0.2e1 * t5097 * t17689;
28996   t90964 = 0.2e1 * t397 * t22297;
28997   t90965 = -t90926 - t90928 - t90931 - t90933 - t90937 - t90940 + t90942 - t90944 - t90947 - t90949 - t90951 + t90953 + t90956 - t90958 - t90960 - t90962 + t90964;
28998   t90969 = 0.2e1 * t81 * t464 * t22295 * t227;
28999   t90971 = 0.2e1 * t881 * t21449;
29000   t90973 = 0.2e1 * t881 * t21463;
29001   t90976 = t400 * t17630;
29002   t90984 = 0.2e1 * t87455 * t22093;
29003   t90985 = t3946 * t22342;
29004   t90989 = t12791 * t4761 * t912;
29005   t90993 = t12791 * t4776 * t912;
29006   t90997 = t12791 * t1348 * t2436;
29007   t91007 = 0.2e1 * t81 * t5471 * t2866;
29008   t91010 = 0.2e1 * t81 * t21492 * t1037;
29009   t91012 = 0.2e1 * t9859 * t5461;
29010   t91014 = 0.2e1 * t2442 * t21473;
29011   t91015 = t90969 + t90971 + t90973 - 0.2e1 * t9859 * t5455 - t90976 * t5146 / 0.3e1 + t50705 * t5450 / 0.3e1 + t50615 * t5450 / 0.3e1 - t90984 - 0.5e1 / 0.3e1 * t3762 * t90985 - 0.5e1 / 0.3e1 * t3762 * t90989 - 0.5e1 / 0.3e1 * t3762 * t90993 - 0.5e1 / 0.3e1 * t3762 * t90997 - 0.5e1 / 0.3e1 * t14851 * t21514 - 0.2e1 * t449 * t4391 * t4775 + t91007 + t91010 - t91012 - t91014;
29012   t91019 = 0.2e1 * t397 * t22304;
29013   t91021 = 0.2e1 * t397 * t22306;
29014   t91023 = 0.2e1 * t2377 * t5468;
29015   t91025 = 0.2e1 * t881 * t21489;
29016   t91027 = 0.2e1 * t18654 * t4873;
29017   t91029 = 0.2e1 * t18640 * t4873;
29018   t91031 = 0.2e1 * t881 * t21493;
29019   t91033 = 0.2e1 * t5475 * t14433;
29020   t91037 = 0.2e1 * t881 * t21441;
29021   t91041 = 0.2e1 * t81 * t96 * t90917 * t227;
29022   t91044 = 0.2e1 * t81 * t5467 * t2866;
29023   t91055 = t91019 + t91021 + t91023 + t91025 - t91027 - t91029 + t91031 + t91033 - 0.5e1 / 0.3e1 * t14858 * t21514 + t91037 + t91041 + t91044 - t21410 * t20214 / 0.3e1 - t21412 * t20214 / 0.3e1 - t21414 * t20214 / 0.3e1 - t22264 * t18816 / 0.3e1 - t22264 * t18819 / 0.3e1;
29024   t91068 = t2378 * t21422;
29025   t91070 = 0.8e1 * t91068 * t21241;
29026   t91071 = t881 * t21422;
29027   t91073 = 0.6e1 * t91071 * t21245;
29028   t91075 = 0.2e1 * t87401 * t22093;
29029   t91077 = 0.2e1 * t87404 * t22093;
29030   t91078 = t400 * t17696;
29031   t91081 = t400 * t17588;
29032   t91087 = 0.6e1 * t21426 * t90041;
29033   t91090 = 0.2e1 * t81 * t22336 * t751;
29034   t91093 = 0.2e1 * t81 * t22296 * t751;
29035   t91095 = 0.2e1 * t14120 * t5461;
29036   t91097 = 0.2e1 * t14123 * t5461;
29037   t91098 = -t21431 * t20211 / 0.3e1 - t21410 * t20211 / 0.3e1 - t21412 * t20211 / 0.3e1 - t21414 * t20211 / 0.3e1 - t5464 * t76928 / 0.3e1 - t5464 * t77030 / 0.3e1 - t91070 + t91073 - t91075 - t91077 - t91078 * t5146 / 0.3e1 - t91081 * t5146 / 0.3e1 - t5464 * t76931 / 0.3e1 - t91087 + t91090 + t91093 - t91095 - t91097;
29038   t91101 = 0.2e1 * t4302 * t21473;
29039   t91103 = 0.2e1 * t397 * t22301;
29040   t91107 = 0.2e1 * t81 * t14139 * t1347 * t227;
29041   t91111 = 0.2e1 * t81 * t4311 * t4775 * t227;
29042   t91112 = t5460 * t1037;
29043   t91115 = 0.8e1 * t4720 * t91112 * t443;
29044   t91118 = 0.2e1 * t81 * t21448 * t1037;
29045   t91121 = 0.2e1 * t81 * t21462 * t1037;
29046   t91123 = 0.8e1 * t21423 * t89855;
29047   t91125 = 0.6e1 * t21426 * t89895;
29048   t91126 = t81 * t90809;
29049   t91128 = 0.6e1 * t91126 * t21245;
29050   t91130 = t1204 * t3789 * t17677;
29051   t91134 = 0.2e1 * t91126 * t21248;
29052   t91135 = t400 * t90501;
29053   t91137 = 0.8e1 * t91135 * t21241;
29054   t91139 = 0.2e1 * t91071 * t21248;
29055   t91145 = 0.8e1 * t87389 * t22087;
29056   t91147 = 0.8e1 * t87394 * t22087;
29057   t91148 = -t91101 + t91103 + t91107 + t91111 - t91115 + t91118 + t91121 + t91123 + t91125 + t91128 + t3788 * t91130 / 0.3e1 - t91134 - t91137 - t91139 - t5464 * t76948 / 0.3e1 - t5464 * t76951 / 0.3e1 - t91145 - t91147;
29058   t91150 = t1204 * t2479 * t1347;
29059   t91159 = t14582 * t5449;
29060   t91162 = t4412 * t21404;
29061   t91165 = t4412 * t21407;
29062   t91177 = 0.2e1 * t2442 * t21502;
29063   t91180 = t50654 * t1347 * t912 * t443;
29064   t91190 = t1204 * t14718 * t4775;
29065   t91194 = 0.2e1 * t22223 * t3922;
29066   t91195 = t3788 * t91150 / 0.3e1 + t13167 * t22275 / 0.3e1 + t12758 * t22275 / 0.3e1 + t12788 * t22275 / 0.3e1 + t3788 * t91159 / 0.3e1 + t3788 * t91162 / 0.3e1 + t3788 * t91165 / 0.3e1 - 0.2e1 * t2442 * t21475 - 0.2e1 * t14120 * t5455 - 0.2e1 * t14123 * t5455 - 0.2e1 * t4302 * t21507 - t91177 + 0.10e2 * t50652 * t91180 + t50479 * t5450 / 0.3e1 + t50482 * t5450 / 0.3e1 + t14848 * t21435 / 0.3e1 + t3788 * t91190 / 0.3e1 + t91194;
29067   t91199 = t90492 + t90542 + t90580 + t90629 + t90672 + t90711 + t90756 + t90805 + t90849 + t90923 + t90965 + t91015 + t91055 + t91098 + t91148 + t91195;
29068   t91202 = t4907 * t1224;
29069   t91205 = t368 * t22392;
29070   t91207 = t4440 * t1362;
29071   t91208 = t372 * t7 * t91199 + t1130 * t21520 + t1224 * t17719 + t1355 * t14917 + t1362 * t14871 + t22392 * t870 + t3144 * t5479 + t3989 * t4924 + t4441 * t4814 + t87316 + t87324 + t87328 + t90446 + t91202 + t91205 + t91207;
29072   t91209 = t5478 * t1130;
29073   t91213 = 0.3e1 * t17730 * t1221;
29074   t91219 = 0.6e1 * t1125 * t21560;
29075   t91223 = 0.6e1 * t3132 * t5489;
29076   t91225 = 0.6e1 * t1125 * t21549;
29077   t91227 = 0.6e1 * t873 * t22378;
29078   t91230 = 0.6e1 * t369 * t4785 * t4311;
29079   t91233 = 0.6e1 * t369 * t4789 * t4311;
29080   t91236 = 0.6e1 * t369 * t1350 * t14139;
29081   t91237 = t370 * t91199 * params->d + 0.3e1 * t1127 * t21531 + 0.3e1 * t22357 * t875 + 0.6e1 * t3994 * t4918 + t91213 + t91219 + t91223 + t91225 + t91227 + t91230 + t91233 + t91236;
29082   t91240 = 0.6e1 * t369 * t17614 * t1143;
29083   t91243 = 0.6e1 * t369 * t17593 * t1143;
29084   t91246 = 0.6e1 * t369 * t4896 * t3811;
29085   t91248 = 0.3e1 * t1125 * t21563;
29086   t91250 = 0.6e1 * t4912 * t4000;
29087   t91252 = 0.3e1 * t873 * t22389;
29088   t91254 = 0.6e1 * t1357 * t14911;
29089   t91257 = 0.6e1 * t369 * t21448 * t928;
29090   t91260 = 0.6e1 * t369 * t21462 * t928;
29091   t91263 = 0.6e1 * t369 * t5471 * t2478;
29092   t91265 = 0.6e1 * t873 * t22386;
29093   t91267 = 0.3e1 * t1357 * t14914;
29094   t91269 = 0.6e1 * t1357 * t14903;
29095   t91270 = t91240 + t91243 + t91246 + t91248 + t91250 + t91252 + t91254 + t91257 + t91260 + t91263 + t91265 + t91267 + t91269;
29096   t91273 = 0.6e1 * t1357 * t14906;
29097   t91277 = 0.6e1 * t873 * t22381;
29098   t91279 = 0.6e1 * t4802 * t4451;
29099   t91283 = 0.3e1 * t4912 * t4003;
29100   t91288 = 0.6e1 * t369 * t4900 * t3811;
29101   t91291 = 0.6e1 * t369 * t17638 * t1143;
29102   t91294 = 0.6e1 * t369 * t17678 * t1143;
29103   t91296 = 0.6e1 * t873 * t22375;
29104   t91300 = 0.6e1 * t1357 * t14900;
29105   t91301 = 0.3e1 * t1219 * t17762 + 0.3e1 * t1359 * t14882 + 0.3e1 * t3994 * t4921 + 0.6e1 * t4445 * t4808 + t91273 + t91277 + t91279 + t91283 + t91288 + t91291 + t91294 + t91296 + t91300;
29106   t91304 = 0.3e1 * t369 * t97 * t90917;
29107   t91316 = 0.6e1 * t1125 * t21555;
29108   t91320 = 0.3e1 * t3132 * t5492;
29109   t91322 = 0.6e1 * t1125 * t21552;
29110   t91324 = 0.3e1 * t4802 * t4454;
29111   t91327 = 0.6e1 * t369 * t22296 * t464;
29112   t91330 = 0.6e1 * t1219 * t17748 + 0.6e1 * t1219 * t17751 + 0.6e1 * t1219 * t17754 + 0.6e1 * t1219 * t17759 + 0.6e1 * t3138 * t5483 + 0.3e1 * t3141 * t5483 + 0.3e1 * t4445 * t4811 + t91304 + t91316 + t91320 + t91322 + t91324 + t91327;
29113   t91335 = t1122 * t5495;
29114   t91336 = t22348 * t372;
29115   t91337 = t1354 * t4457;
29116   t91343 = t91209 + t87332 + t872 * (t91237 + t91270 + t91301 + t91330) + t3127 * t5495 + t91335 + t91336 + t87339 + t91337 + t87814 + t1217 * t17765 + t87334 + t4797 * t4457 + t4908 * t4006 + t87336 + t22349 * t878 + t1123 * t21566;
29117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29118     v4rho2sigmatau[7] = t91208 + t91343;
29119 
29120   t91345 = t4850 * t1272;
29121   t91347 = t1122 * t5540;
29122   t91354 = t1264 * t4867;
29123   t91356 = t1123 * t21745 + t1265 * t17574 + t1341 * t15401 + t22515 * t878 + t3127 * t5540 + t4132 * t4867 + t4149 * t4851 + t4564 * t4754 + t4580 * t4737 + t87901 + t88362 + t88367 + t88369 + t91345 + t91347 + t91354;
29124   t91359 = t22514 * t372;
29125   t91360 = t5523 * t1130;
29126   t91377 = t13419 * t22133;
29127   t91381 = t13453 * t22102;
29128   t91383 = t13453 * t22106;
29129   t91385 = t4020 * t909;
29130   t91386 = t5416 * t91385;
29131   t91388 = t22065 * t21668;
29132   t91390 = t53000 * t5402;
29133   t91392 = t22068 * t21668;
29134   t91394 = t22074 * t21668;
29135   t91396 = 0.2e1 / 0.3e1 * t89654 * t5510 + 0.2e1 / 0.3e1 * t22071 * t21587 + 0.2e1 / 0.3e1 * t22071 * t21590 + 0.2e1 / 0.3e1 * t89737 * t5510 + 0.2e1 / 0.3e1 * t89871 * t5510 - 0.2e1 * t21649 * t4820 + 0.2e1 * t21207 * t4516 - 0.10e2 / 0.3e1 * t86824 * t22437 - 0.80e2 / 0.9e1 * t91377 - 0.2e1 * t9859 * t5502 + 0.16e2 / 0.9e1 * t91381 + 0.16e2 / 0.9e1 * t91383 - 0.16e2 / 0.9e1 * t91386 - 0.16e2 / 0.9e1 * t91388 + 0.16e2 / 0.9e1 * t91390 - 0.16e2 / 0.9e1 * t91392 - 0.16e2 / 0.9e1 * t91394;
29136   t91397 = t15354 * t74;
29137   t91398 = t5416 * t91397;
29138   t91400 = t13453 * t22114;
29139   t91424 = -0.16e2 / 0.9e1 * t91398 + 0.16e2 / 0.9e1 * t91400 - 0.2e1 / 0.3e1 * t14972 * t21222 - 0.2e1 / 0.3e1 * t14972 * t21292 - 0.2e1 / 0.3e1 * t4026 * t89757 - 0.2e1 / 0.3e1 * t13412 * t22110 - 0.2e1 / 0.3e1 * t13424 * t22110 - 0.2e1 / 0.3e1 * t4026 * t89766 - 0.2e1 * t2442 * t21640 + 0.16e2 / 0.9e1 * t87944 + 0.16e2 / 0.9e1 * t87946 + 0.16e2 / 0.9e1 * t87948 + 0.16e2 / 0.9e1 * t87950 + 0.16e2 / 0.9e1 * t87952 + 0.16e2 / 0.9e1 * t87960 - 0.16e2 / 0.9e1 * t87963 - 0.16e2 / 0.9e1 * t87969 - t87975;
29140   t91426 = t88070 * t90063;
29141   t91429 = t87989 * t89793;
29142   t91455 = t14483 * t15294;
29143   t91458 = t14483 * t15298;
29144   t91463 = t87978 - 0.24e2 * t21239 * t91426 + 0.40e2 * t86768 * t91429 - 0.20e2 * t52963 * t89640 - 0.2e1 * t2442 * t21624 - 0.2e1 * t22448 * t4715 - 0.2e1 * t1476 * t22493 - 0.2e1 * t2448 * t22493 - 0.2e1 * t449 * t857 * t22464 + 0.2e1 * t22050 * t4078 + 0.2e1 * t21201 * t4516 - 0.2e1 / 0.3e1 * t4026 * t89770 - 0.2e1 / 0.3e1 * t4026 * t89774 - 0.2e1 * t86741 * t22426 - 0.2e1 * t21244 * t91455 - 0.2e1 * t21244 * t91458 + 0.2e1 * t90279 * t1246;
29145   t91470 = t915 * t4041;
29146   t91489 = t15014 * t74;
29147   t91492 = t4464 * t440;
29148   t91495 = t13344 * t15207;
29149   t91504 = 0.2e1 * t90282 * t1246 + 0.2e1 * t90285 * t1246 - 0.2e1 * t5499 * t17423 - 0.2e1 * t91470 * t1327 - 0.2e1 * t22448 * t4694 - 0.2e1 * t5499 * t17499 + 0.10e2 / 0.3e1 * t14975 * t21288 + 0.10e2 / 0.3e1 * t4013 * t89859 + 0.2e1 / 0.3e1 * t21251 * t22412 + 0.2e1 / 0.3e1 * t21254 * t22412 + 0.2e1 / 0.3e1 * t21225 * t22412 + 0.2e1 / 0.3e1 * t21228 * t22412 + 0.2e1 / 0.3e1 * t5416 * t91489 + 0.2e1 / 0.3e1 * t5416 * t91492 + 0.6e1 * t21244 * t91495 + 0.2e1 / 0.3e1 * t22074 * t21587 + 0.2e1 / 0.3e1 * t90116 * t5510 + 0.2e1 / 0.3e1 * t90119 * t5510;
29150   t91517 = t13453 * t22110;
29151   t91519 = t22071 * t21668;
29152   t91535 = t2439 * t1231;
29153   t91539 = t14820 * t1243 * t90319;
29154   t91542 = t87989 * t89740;
29155   t91545 = 0.2e1 / 0.3e1 * t90122 * t5510 + 0.2e1 / 0.3e1 * t90125 * t5510 + 0.2e1 / 0.3e1 * t22065 * t21587 + 0.2e1 / 0.3e1 * t22065 * t21590 + 0.2e1 / 0.3e1 * t89802 * t5510 + 0.16e2 / 0.9e1 * t91517 - 0.16e2 / 0.9e1 * t91519 - 0.2e1 * t9859 * t5507 - 0.2e1 * t2442 * t21661 + 0.2e1 * t90080 * t1246 + 0.2e1 * t90083 * t1246 + 0.2e1 * t90086 * t1246 + 0.2e1 * t5427 * t15288 + 0.2e1 * t22167 * t4078 - 0.2e1 * t91535 * t1327 + 0.12e2 * t21244 * t91539 + 0.8e1 * t21239 * t91542;
29156   t91559 = t2378 * t1231;
29157   t91587 = 0.2e1 * t81 * t21627 * t1037 - 0.8e1 * t4720 * t21643 * t2436 - 0.8e1 * t17457 * t21644 + 0.80e2 / 0.9e1 * t88079 - 0.10e2 / 0.3e1 * t90008 * t21637 + 0.10e2 / 0.3e1 * t14967 * t21288 - 0.8e1 * t91559 * t4722 - 0.2e1 * t449 * t1110 * t21608 - 0.2e1 * t14120 * t5507 - 0.2e1 * t14123 * t5507 - 0.2e1 * t4302 * t21661 - 0.2e1 * t2448 * t22509 - 0.2e1 * t449 * t4090 * t4830 - 0.2e1 * t22453 * t4715 - 0.2e1 * t2442 * t21609 + 0.2e1 * t81 * t22505 * t751 - 0.2e1 * t1476 * t22509 - 0.8e1 * t21675 * t17471;
29158   t91607 = 0.4e1 / 0.3e1 * t89539;
29159   t91612 = 0.10e2 / 0.9e1 * t89552;
29160   t91617 = -t88234 - t86830 - t86832 + t86834 - t91607 - 0.3e1 / 0.2e1 * t89543 - 0.5e1 / 0.6e1 * t89545 + 0.5e1 / 0.6e1 * t89548 + t89550 / 0.2e1 + t91612 + 0.5e1 / 0.6e1 * t89555 + 0.25e2 / 0.36e2 * t89557 - 0.5e1 / 0.18e2 * t89560 - 0.5e1 / 0.12e2 * t89563;
29161   t91618 = my_piecewise3(t95, 0, t91617);
29162   t91630 = t52962 * t14502;
29163   t91639 = -0.2e1 * t4302 * t21609 - 0.2e1 * t21652 * t4820 - 0.2e1 * t5499 * t17438 + 0.2e1 * t2377 * t5518 + 0.2e1 * t881 * t21628 + 0.2e1 * t881 * t21634 + 0.2e1 * t397 * t22466 + 0.2e1 * t81 * t464 * t22464 * t227 + 0.2e1 * t81 * t96 * t91618 * t227 - 0.10e2 / 0.3e1 * t90323 * t21637 + 0.10e2 / 0.3e1 * t4013 * t90028 - 0.16e2 / 0.9e1 * t88155 - 0.16e2 / 0.9e1 * t88161 - 0.16e2 / 0.9e1 * t88163 + 0.20e2 * t90254 * t91630 - 0.2e1 * t86737 * t22426 - 0.2e1 / 0.3e1 * t13412 * t22114 - 0.2e1 / 0.3e1 * t13424 * t22114;
29164   t91682 = -0.2e1 / 0.3e1 * t4026 * t90136 - 0.2e1 / 0.3e1 * t4026 * t90140 - 0.2e1 / 0.3e1 * t4026 * t90144 - 0.2e1 / 0.3e1 * t14972 * t21296 - 0.2e1 / 0.3e1 * t4026 * t89672 - 0.8e1 * t90376 * t21595 + 0.6e1 * t89675 * t21598 - 0.2e1 * t89675 * t21665 - 0.8e1 * t89679 * t21595 - 0.8e1 * t21675 * t17452 - 0.2e1 * t1476 * t22475 - 0.2e1 * t2448 * t22475 - 0.2e1 * t449 * t3091 * t5506 + 0.2e1 * t881 * t21617 + 0.2e1 * t397 * t22506 + 0.2e1 * t81 * t2478 * t5506 * t227 + 0.2e1 * t81 * t928 * t21608 * t227 + 0.2e1 * t81 * t21633 * t1037;
29165   t91687 = t4012 * t14654;
29166   t91704 = t14966 * t3940;
29167   t91726 = t400 * t4483;
29168   t91729 = -0.16e2 / 0.9e1 * t88189 - 0.10e2 / 0.3e1 * t21210 * t91687 + 0.10e2 / 0.3e1 * t4013 * t89867 - 0.2e1 * t449 * t4527 * t4714 + 0.2e1 * t81 * t22465 * t751 - 0.80e2 / 0.9e1 * t88216 - 0.8e1 * t21675 * t17509 + 0.2e1 * t81 * t21688 * t1037 - 0.10e2 / 0.3e1 * t21210 * t91704 - 0.2e1 * t8342 * t5502 - 0.8e1 * t4720 * t88057 * t912 - 0.10e2 / 0.3e1 * t86818 * t22437 - 0.10e2 / 0.3e1 * t86821 * t22437 + 0.2e1 * t397 * t22405 + 0.2e1 * t81 * t15176 * t1326 * t227 + 0.2e1 * t81 * t4483 * t4714 * t227 - 0.8e1 * t91726 * t4722;
29169   t91751 = t82 * t15176;
29170   t91772 = -0.2e1 * t4302 * t21640 - 0.2e1 * t1476 * t22498 - 0.2e1 * t2448 * t22498 - 0.2e1 * t449 * t15319 * t1326 - 0.8e1 * t88270 * t4836 + 0.2e1 * t397 * t22409 + 0.2e1 * t81 * t4041 * t4830 * t227 + 0.2e1 * t81 * t1231 * t17422 * t227 - 0.2e1 * t91751 * t1327 - 0.2e1 * t22453 * t4694 + 0.2e1 * t22165 * t4078 + 0.6e1 * t89877 * t21598 - 0.2e1 * t89877 * t21665 - 0.8e1 * t89883 * t21595 + 0.6e1 * t89886 * t21598 - 0.2e1 / 0.3e1 * t13412 * t22102 - 0.2e1 / 0.3e1 * t13424 * t22102 - 0.2e1 / 0.3e1 * t4026 * t89920;
29171   t91780 = t14483 * t15290;
29172   t91783 = t53071 * t5402;
29173   t91788 = t14483 * t15206 * t443;
29174   t91811 = -0.2e1 / 0.3e1 * t4026 * t89923 - 0.2e1 / 0.3e1 * t4026 * t89926 + 0.2e1 / 0.3e1 * t22074 * t21590 - 0.2e1 * t21244 * t91780 + 0.16e2 / 0.9e1 * t91783 - 0.2e1 * t89886 * t21665 - 0.8e1 * t21239 * t91788 - 0.2e1 / 0.3e1 * t53804 * t5402 - 0.2e1 / 0.3e1 * t53807 * t5402 - 0.2e1 / 0.3e1 * t14978 * t21218 - 0.2e1 / 0.3e1 * t14978 * t21222 - 0.2e1 / 0.3e1 * t14978 * t21292 - 0.2e1 / 0.3e1 * t14978 * t21296 - 0.2e1 / 0.3e1 * t54560 * t5402 - 0.2e1 / 0.3e1 * t54563 * t5402 - 0.2e1 / 0.3e1 * t14972 * t21218 + 0.2e1 / 0.3e1 * t21251 * t22415;
29175   t91812 = t5506 * t1037;
29176   t91816 = t22464 * t227;
29177   t91836 = t14483 * t13459 * t912;
29178   t91840 = t14483 * t4049 * t2436;
29179   t91857 = -0.8e1 * t4720 * t91812 * t443 - 0.8e1 * t4720 * t91816 * t443 + 0.10e2 / 0.3e1 * t4013 * t89848 - 0.2e1 * t449 * t363 * t91618 + 0.2e1 * t881 * t21693 + 0.2e1 * t2377 * t5514 + 0.2e1 * t881 * t21689 - 0.8e1 * t86897 * t22419 - 0.8e1 * t86900 * t22419 - 0.8e1 * t21239 * t91836 - 0.8e1 * t21239 * t91840 - 0.2e1 / 0.3e1 * t4026 * t89730 + 0.2e1 / 0.3e1 * t89805 * t5510 + 0.2e1 / 0.3e1 * t89808 * t5510 + 0.2e1 / 0.3e1 * t89811 * t5510 + 0.2e1 / 0.3e1 * t22068 * t21587 + 0.2e1 / 0.3e1 * t22068 * t21590 + 0.2e1 / 0.3e1 * t89645 * t5510;
29180   t91870 = t13344 * t15198;
29181   t91873 = t13344 * t15203;
29182   t91886 = t87989 * t89854;
29183   t91892 = t88070 * t90314;
29184   t91903 = 0.2e1 / 0.3e1 * t89648 * t5510 + 0.2e1 / 0.3e1 * t89651 * t5510 + 0.6e1 * t86733 * t22423 + 0.6e1 * t86737 * t22423 + 0.6e1 * t86741 * t22423 + 0.6e1 * t21244 * t91870 + 0.6e1 * t21244 * t91873 - 0.2e1 * t86733 * t22426 + 0.2e1 / 0.3e1 * t90371 * t5510 + 0.2e1 * t81 * t22408 * t751 - 0.8e1 * t4720 * t88074 * t912 + 0.8e1 * t21239 * t91886 + 0.2e1 * t81 * t22404 * t751 - 0.24e2 * t21239 * t91892 + 0.2e1 * t81 * t21692 * t1037 + 0.2e1 * t81 * t5517 * t2866 + 0.2e1 * t397 * t22458;
29185   t91904 = t446 * t4483;
29186   t91919 = t87989 * t89682;
29187   t91937 = t4016 * t909;
29188   t91940 = t1226 * t2433;
29189   t91945 = -0.2e1 * t91904 * t1327 - 0.2e1 * t14123 * t5502 - 0.2e1 * t4302 * t21624 + 0.2e1 * t397 * t22445 - 0.2e1 * t21649 * t4831 - 0.2e1 * t21652 * t4831 - 0.2e1 * t5499 * t17383 + 0.4e1 * t21244 * t91919 - 0.10e2 / 0.3e1 * t89797 * t21637 + 0.10e2 / 0.3e1 * t4013 * t89712 + 0.40e2 * t7757 * t21643 * t2383 + 0.2e1 * t881 * t21612 + 0.2e1 / 0.3e1 * t21254 * t22415 + 0.2e1 / 0.3e1 * t21225 * t22415 + 0.2e1 / 0.3e1 * t21228 * t22415 + 0.2e1 / 0.3e1 * t5416 * t91937 + 0.2e1 / 0.3e1 * t5416 * t91940 - 0.8e1 * t86894 * t22419;
29190   t91947 = t88070 * t90040;
29191   t91950 = t13401 * t4396;
29192   t91953 = t4012 * t14672;
29193   t91956 = t4012 * t14617;
29194   t91959 = t13418 * t4396;
29195   t91960 = t21210 * t91959;
29196   t91973 = t88070 * t90168;
29197   t91990 = -0.6e1 * t21244 * t91947 - 0.10e2 / 0.3e1 * t21210 * t91950 - 0.10e2 / 0.3e1 * t21210 * t91953 - 0.10e2 / 0.3e1 * t21210 * t91956 + 0.80e2 / 0.9e1 * t91960 - 0.2e1 * t14120 * t5502 + 0.10e2 / 0.3e1 * t13409 * t22133 + 0.10e2 / 0.3e1 * t13402 * t22133 + 0.10e2 / 0.3e1 * t4013 * t89977 + 0.2e1 * t81 * t5513 * t2866 - 0.6e1 * t21244 * t91973 + 0.10e2 / 0.3e1 * t4013 * t89863 - 0.10e2 / 0.3e1 * t89958 * t21637 - 0.8e1 * t21675 * t17502 + 0.10e2 / 0.3e1 * t4013 * t89980 + 0.10e2 / 0.3e1 * t4013 * t89984 - 0.10e2 / 0.3e1 * t86929 * t22437 + 0.2e1 / 0.3e1 * t89874 * t5510;
29198   t92028 = -0.2e1 / 0.3e1 * t4026 * t90147 - 0.2e1 / 0.3e1 * t13412 * t22106 - 0.2e1 / 0.3e1 * t13424 * t22106 - 0.2e1 / 0.3e1 * t4026 * t90157 - 0.2e1 / 0.3e1 * t4026 * t90161 - 0.2e1 / 0.3e1 * t4026 * t90165 - 0.8e1 * t88273 * t4836 + 0.40e2 * t88177 * t17426 + 0.2e1 * t89991 * t1246 + 0.2e1 * t89994 * t1246 + 0.2e1 * t89997 * t1246 - 0.8e1 * t17515 * t21644 + 0.2e1 * t21204 * t4516 - 0.2e1 * t449 * t1252 * t17422 - 0.2e1 * t8342 * t5507 - 0.8e1 * t21675 * t17512 - 0.8e1 * t17116 * t22442 - 0.8e1 * t17094 * t22442;
29199   t92032 = t91396 + t91424 + t91463 + t91504 + t91545 + t91587 + t91639 + t91682 + t91729 + t91772 + t91811 + t91857 + t91903 + t91945 + t91990 + t92028;
29200   t92067 = 0.6e1 * t1231 * t17460 * t369 + 0.6e1 * t1231 * t17464 * t369 + 0.6e1 * t21627 * t369 * t928 + 0.6e1 * t21633 * t369 * t928 + 0.6e1 * t2478 * t369 * t5517 + 0.6e1 * t369 * t4041 * t4843 + 0.3e1 * t369 * t91618 * t97 + t370 * t92032 * params->d + 0.6e1 * t1125 * t21739 + 0.6e1 * t1267 * t17568 + 0.3e1 * t1269 * t17539 + 0.3e1 * t1338 * t15412;
29201   t92094 = 0.6e1 * t1125 * t21728 + 0.6e1 * t1125 * t21731 + 0.3e1 * t1127 * t21710 + 0.6e1 * t1267 * t17557 + 0.6e1 * t1267 * t17560 + 0.3e1 * t1267 * t17571 + 0.6e1 * t22541 * t873 + 0.6e1 * t22544 * t873 + 0.6e1 * t22552 * t873 + 0.3e1 * t3141 * t5528 + 0.6e1 * t4137 * t4861 + 0.3e1 * t4146 * t4855 + 0.3e1 * t4577 * t4742;
29202   t92126 = 0.6e1 * t1231 * t17447 * t369 + 0.6e1 * t1231 * t17485 * t369 + 0.6e1 * t22465 * t369 * t464 + 0.6e1 * t369 * t4041 * t4839 + 0.3e1 * t1125 * t21742 + 0.6e1 * t1336 * t15430 + 0.6e1 * t1336 * t15433 + 0.6e1 * t1336 * t15436 + 0.6e1 * t22547 * t873 + 0.3e1 * t22555 * t873 + 0.6e1 * t3132 * t5534 + 0.6e1 * t3138 * t5528 + 0.3e1 * t4568 * t4751;
29203   t92156 = 0.6e1 * t1329 * t15176 * t369 + 0.6e1 * t369 * t4483 * t4725 + 0.6e1 * t369 * t4483 * t4729 + 0.6e1 * t1125 * t21734 + 0.6e1 * t1267 * t17563 + 0.6e1 * t1336 * t15441 + 0.3e1 * t1336 * t15444 + 0.3e1 * t22523 * t875 + 0.3e1 * t3132 * t5537 + 0.3e1 * t4137 * t4864 + 0.6e1 * t4143 * t4855 + 0.6e1 * t4568 * t4748 + 0.6e1 * t4574 * t4742;
29204   t92162 = t368 * t22558;
29205   t92163 = t1333 * t4580;
29206   t92164 = t4563 * t1341;
29207   t92165 = t87914 + t1334 * t15447 + t21699 * t1130 + t91359 + t91360 + t87905 + t7 * t92032 * t372 + t87907 + t870 * t22558 + t872 * (t92067 + t92094 + t92126 + t92156) + t17528 * t1272 + t5524 * t3144 + t92162 + t92163 + t88371 + t92164;
29208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29209     v4rho2sigmatau[8] = t91356 + t92165;
29210 
29211   t92167 = t1354 * t4580;
29212   t92169 = t22672 * t372;
29213   t92176 = t1122 * t5583;
29214   t92179 = t1264 * t4924;
29215   t92180 = t1265 * t17765 + t1272 * t17719 + t1355 * t15447 + t1362 * t15401 + t22673 * t878 + t3127 * t5583 + t3144 * t5567 + t4132 * t4924 + t4149 * t4908 + t4580 * t4797 + t88960 + t88969 + t92167 + t92169 + t92176 + t92179;
29216   t92181 = t4563 * t1362;
29217   t92182 = t5566 * t1130;
29218   t92210 = 0.6e1 * t1231 * t17593 * t369 + 0.6e1 * t1231 * t17614 * t369 + 0.6e1 * t369 * t4041 * t4896 + 0.6e1 * t1125 * t21898 + 0.3e1 * t1127 * t21877 + 0.6e1 * t1267 * t17751 + 0.6e1 * t1267 * t17754 + 0.3e1 * t1267 * t17762 + 0.3e1 * t1359 * t15412 + 0.6e1 * t22710 * t873 + 0.3e1 * t22713 * t873 + 0.3e1 * t4137 * t4921;
29219   t92240 = 0.6e1 * t1350 * t15176 * t369 + 0.6e1 * t369 * t4483 * t4785 + 0.6e1 * t369 * t4483 * t4789 + 0.6e1 * t1125 * t21901 + 0.3e1 * t22681 * t875 + 0.6e1 * t22702 * t873 + 0.6e1 * t22705 * t873 + 0.3e1 * t3132 * t5580 + 0.6e1 * t3138 * t5571 + 0.6e1 * t4568 * t4808 + 0.3e1 * t4568 * t4811 + 0.6e1 * t4574 * t4802 + 0.3e1 * t4577 * t4802;
29220   t92275 = 0.6e1 * t1231 * t17638 * t369 + 0.6e1 * t1231 * t17678 * t369 + 0.6e1 * t21802 * t369 * t928 + 0.6e1 * t21806 * t369 * t928 + 0.6e1 * t22575 * t369 * t464 + 0.6e1 * t2478 * t369 * t5560 + 0.6e1 * t369 * t4041 * t4900 + 0.6e1 * t1267 * t17759 + 0.3e1 * t1269 * t17730 + 0.3e1 * t1357 * t15444 + 0.6e1 * t22699 * t873 + 0.6e1 * t3132 * t5577 + 0.6e1 * t4143 * t4912;
29221   t92276 = t21510 * t91959;
29222   t92302 = 0.80e2 / 0.9e1 * t92276 + t88463 - 0.16e2 / 0.9e1 * t88464 + 0.16e2 / 0.9e1 * t88470 + 0.16e2 / 0.9e1 * t88472 - 0.16e2 / 0.9e1 * t88476 + 0.16e2 / 0.9e1 * t88503 + 0.16e2 / 0.9e1 * t88507 - 0.2e1 / 0.3e1 * t14978 * t21405 - 0.2e1 / 0.3e1 * t14978 * t21408 - 0.2e1 * t21426 * t91780 - 0.8e1 * t91068 * t21595 + 0.6e1 * t91071 * t21598 - 0.2e1 * t91071 * t21665 - 0.8e1 * t90810 * t21595 + 0.2e1 / 0.3e1 * t22264 * t21587 + 0.2e1 / 0.3e1 * t22264 * t21590;
29223   t92339 = 0.2e1 / 0.3e1 * t21431 * t22412 + 0.2e1 / 0.3e1 * t21410 * t22412 + 0.2e1 / 0.3e1 * t21412 * t22412 + 0.2e1 / 0.3e1 * t21414 * t22412 + 0.2e1 / 0.3e1 * t5464 * t91489 + 0.2e1 / 0.3e1 * t5464 * t91492 + 0.2e1 / 0.3e1 * t21431 * t22415 + 0.2e1 / 0.3e1 * t21410 * t22415 + 0.2e1 / 0.3e1 * t21412 * t22415 + 0.2e1 / 0.3e1 * t21414 * t22415 - 0.2e1 * t87401 * t22426 - 0.2e1 * t87404 * t22426 - 0.2e1 * t87455 * t22426 - 0.2e1 * t21426 * t91455 - 0.2e1 * t9859 * t5546 - 0.2e1 * t2442 * t21816 - 0.2e1 * t22448 * t4761 - 0.2e1 / 0.3e1 * t4026 * t90683;
29224   t92341 = t53071 * t5450;
29225   t92343 = t22264 * t21668;
29226   t92345 = t13453 * t22243;
29227   t92357 = t13453 * t22247;
29228   t92370 = 0.16e2 / 0.9e1 * t92341 - 0.16e2 / 0.9e1 * t92343 + 0.16e2 / 0.9e1 * t92345 + 0.2e1 / 0.3e1 * t5464 * t91937 + 0.2e1 / 0.3e1 * t5464 * t91940 - 0.8e1 * t87394 * t22419 - 0.8e1 * t21423 * t91836 - 0.8e1 * t21423 * t91840 + 0.16e2 / 0.9e1 * t92357 - 0.2e1 / 0.3e1 * t53804 * t5450 - 0.2e1 / 0.3e1 * t53807 * t5450 - 0.2e1 / 0.3e1 * t14978 * t21402 + 0.16e2 / 0.9e1 * t88517 - 0.16e2 / 0.9e1 * t88532 + 0.8e1 * t21423 * t91886 - t88543 - 0.16e2 / 0.9e1 * t88544;
29229   t92378 = t22258 * t21668;
29230   t92380 = t22261 * t21668;
29231   t92390 = t13453 * t22275;
29232   t92404 = -0.8e1 * t91559 * t4782 + 0.16e2 / 0.9e1 * t88551 - 0.16e2 / 0.9e1 * t88559 - 0.16e2 / 0.9e1 * t88561 - 0.8e1 * t21675 * t17711 - 0.16e2 / 0.9e1 * t92378 - 0.16e2 / 0.9e1 * t92380 - 0.2e1 * t21426 * t91458 + 0.2e1 / 0.3e1 * t90453 * t5510 + 0.2e1 / 0.3e1 * t90456 * t5510 + 0.2e1 / 0.3e1 * t90704 * t5510 + 0.16e2 / 0.9e1 * t92390 + 0.2e1 / 0.3e1 * t22258 * t21587 + 0.2e1 / 0.3e1 * t90828 * t5510 + 0.2e1 / 0.3e1 * t91078 * t5510 + 0.2e1 / 0.3e1 * t91081 * t5510 + 0.2e1 / 0.3e1 * t22258 * t21590 - 0.8e1 * t87385 * t22419;
29233   t92425 = t22255 * t21668;
29234   t92435 = t5464 * t91397;
29235   t92437 = t5464 * t91385;
29236   t92441 = 0.2e1 / 0.3e1 * t90976 * t5510 - 0.8e1 * t21423 * t91788 + 0.6e1 * t21426 * t91495 - 0.2e1 / 0.3e1 * t4026 * t91190 - 0.2e1 / 0.3e1 * t14978 * t21435 + 0.8e1 * t21423 * t91542 - 0.6e1 * t21426 * t91973 + 0.12e2 * t21426 * t91539 + 0.40e2 * t87681 * t91429 - 0.16e2 / 0.9e1 * t92425 + 0.2e1 / 0.3e1 * t90612 * t5510 + 0.2e1 / 0.3e1 * t22255 * t21587 + 0.2e1 / 0.3e1 * t22255 * t21590 + 0.2e1 / 0.3e1 * t90450 * t5510 - 0.16e2 / 0.9e1 * t92435 - 0.16e2 / 0.9e1 * t92437 - 0.10e2 / 0.3e1 * t87765 * t22437;
29237   t92474 = t53000 * t5450;
29238   t92478 = 0.10e2 / 0.3e1 * t4013 * t90985 + 0.10e2 / 0.3e1 * t4013 * t90989 + 0.10e2 / 0.3e1 * t4013 * t90775 - 0.10e2 / 0.3e1 * t21510 * t91950 - 0.10e2 / 0.3e1 * t21510 * t91953 - 0.10e2 / 0.3e1 * t21510 * t91956 - 0.24e2 * t21423 * t91426 - 0.2e1 / 0.3e1 * t13424 * t22243 - 0.2e1 / 0.3e1 * t4026 * t90467 - 0.2e1 / 0.3e1 * t4026 * t90471 - 0.2e1 / 0.3e1 * t4026 * t90475 - 0.2e1 / 0.3e1 * t54560 * t5450 - 0.2e1 / 0.3e1 * t54563 * t5450 - 0.2e1 / 0.3e1 * t14972 * t21402 - 0.2e1 / 0.3e1 * t14972 * t21405 - 0.2e1 / 0.3e1 * t14972 * t21408 + 0.16e2 / 0.9e1 * t92474 - 0.8e1 * t87389 * t22419;
29239   t92491 = t5550 * t1037;
29240   t92509 = t13419 * t22343;
29241   t92517 = -0.8e1 * t17515 * t21858 - 0.6e1 * t21426 * t91947 - 0.2e1 * t21649 * t4873 - 0.2e1 * t21652 * t4873 - 0.2e1 * t5499 * t17581 - 0.80e2 / 0.9e1 * t88651 - 0.8e1 * t4720 * t92491 * t443 + 0.2e1 * t90522 * t1246 + 0.2e1 * t90525 * t1246 + 0.2e1 * t90528 * t1246 + 0.2e1 * t22226 * t4078 - 0.24e2 * t21423 * t91892 - 0.10e2 / 0.3e1 * t90744 * t21637 + 0.2e1 * t22223 * t4078 - 0.80e2 / 0.9e1 * t92509 + 0.10e2 / 0.3e1 * t4013 * t90655 + 0.2e1 * t90796 * t1246 + 0.2e1 * t5475 * t15288;
29242   t92556 = 0.2e1 * t21469 * t4516 + 0.4e1 * t21426 * t91919 - 0.8e1 * t91726 * t4782 - 0.2e1 * t1476 * t22613 - 0.2e1 * t2448 * t22613 - 0.2e1 * t449 * t4090 * t4887 + 0.10e2 / 0.3e1 * t14975 * t21514 + 0.2e1 * t881 * t21807 + 0.2e1 * t81 * t21833 * t1037 - 0.2e1 / 0.3e1 * t14972 * t21435 + 0.2e1 / 0.3e1 * t90715 * t5510 + 0.2e1 / 0.3e1 * t90813 * t5510 + 0.2e1 / 0.3e1 * t90816 * t5510 + 0.2e1 / 0.3e1 * t90819 * t5510 + 0.2e1 / 0.3e1 * t22261 * t21587 + 0.2e1 / 0.3e1 * t22261 * t21590 - 0.2e1 / 0.3e1 * t4026 * t90582 - 0.2e1 / 0.3e1 * t13412 * t22251;
29243   t92595 = -0.2e1 / 0.3e1 * t13424 * t22251 - 0.2e1 / 0.3e1 * t4026 * t90595 - 0.2e1 / 0.3e1 * t4026 * t90599 - 0.2e1 / 0.3e1 * t4026 * t90603 + 0.6e1 * t87401 * t22423 + 0.6e1 * t87404 * t22423 + 0.6e1 * t87455 * t22423 + 0.6e1 * t21426 * t91870 + 0.6e1 * t21426 * t91873 + 0.2e1 * t22229 * t4078 + 0.40e2 * t7757 * t21857 * t2383 + 0.2e1 * t90799 * t1246 - 0.20e2 * t52963 * t91180 - 0.2e1 / 0.3e1 * t4026 * t91162 - 0.2e1 / 0.3e1 * t4026 * t91165 - 0.2e1 / 0.3e1 * t4026 * t90536 - 0.2e1 / 0.3e1 * t13412 * t22243;
29244   t92613 = t13453 * t22251;
29245   t92633 = 0.2e1 * t81 * t21837 * t1037 - 0.2e1 / 0.3e1 * t13412 * t22247 - 0.2e1 / 0.3e1 * t13424 * t22247 - 0.2e1 / 0.3e1 * t4026 * t90561 - 0.2e1 / 0.3e1 * t4026 * t91150 + 0.2e1 / 0.3e1 * t90539 * t5510 + 0.2e1 / 0.3e1 * t90606 * t5510 + 0.2e1 / 0.3e1 * t90609 * t5510 + 0.16e2 / 0.9e1 * t92613 + 0.6e1 * t91126 * t21598 - 0.2e1 * t91126 * t21665 - 0.8e1 * t91135 * t21595 + 0.6e1 * t90502 * t21598 - 0.2e1 * t90502 * t21665 - 0.2e1 / 0.3e1 * t4026 * t91130 - 0.2e1 / 0.3e1 * t13412 * t22275 - 0.2e1 / 0.3e1 * t13424 * t22275 - 0.2e1 / 0.3e1 * t4026 * t91159;
29246   t92635 = t22574 * t227;
29247   t92673 = -0.8e1 * t4720 * t92635 * t443 + 0.2e1 * t2377 * t5561 + 0.2e1 * t881 * t21803 - 0.8e1 * t4720 * t21857 * t2436 - 0.2e1 * t2442 * t21795 - 0.2e1 * t14120 * t5546 - 0.2e1 * t14123 * t5546 - 0.2e1 * t4302 * t21816 + 0.2e1 * t397 * t22667 - 0.2e1 * t1476 * t22664 - 0.2e1 * t2448 * t22664 - 0.2e1 * t449 * t857 * t22574 + 0.2e1 * t21467 * t4516 - 0.8e1 * t88270 * t4893 - 0.8e1 * t88273 * t4893 - 0.8e1 * t21675 * t17608 + 0.20e2 * t90857 * t91630;
29248   t92719 = -0.10e2 / 0.3e1 * t87753 * t22437 - 0.10e2 / 0.3e1 * t87775 * t22437 + 0.2e1 * t81 * t22575 * t751 - 0.2e1 * t1476 * t22622 - 0.2e1 * t5499 * t17689 + 0.2e1 * t81 * t22593 * t751 + 0.2e1 * t81 * t4483 * t4775 * t227 - 0.2e1 * t2442 * t21854 - 0.2e1 * t449 * t4527 * t4775 + 0.2e1 * t81 * t928 * t21791 * t227 + 0.2e1 * t397 * t22567 + 0.2e1 * t81 * t2478 * t5550 * t227 - 0.2e1 * t9859 * t5551 + 0.10e2 / 0.3e1 * t4013 * t90853 + 0.10e2 / 0.3e1 * t13409 * t22343 + 0.10e2 / 0.3e1 * t13402 * t22343 + 0.10e2 / 0.3e1 * t4013 * t90643 - 0.8e1 * t21675 * t17619;
29249   t92758 = -0.8e1 * t21675 * t17707 + 0.2e1 * t881 * t21821 + 0.2e1 * t81 * t22566 * t751 + 0.2e1 * t90623 * t1246 + 0.2e1 * t90626 * t1246 + 0.2e1 * t90632 * t1246 + 0.2e1 * t21465 * t4516 + 0.10e2 / 0.3e1 * t4013 * t90997 + 0.10e2 / 0.3e1 * t4013 * t90659 - 0.2e1 * t21649 * t4888 - 0.2e1 * t21652 * t4888 - 0.2e1 * t5499 * t17685 - 0.2e1 * t2448 * t22642 - 0.2e1 * t449 * t15319 * t1347 + 0.2e1 * t2377 * t5557 + 0.2e1 * t881 * t21834 + 0.2e1 * t881 * t21838;
29250   t92791 = 0.4e1 / 0.3e1 * t90888;
29251   t92795 = 0.10e2 / 0.9e1 * t90900;
29252   t92798 = 0.10e2 / 0.9e1 * t90906;
29253   t92802 = -t88707 - t87539 + t87541 - t92791 - 0.3e1 / 0.2e1 * t90893 + 0.5e1 / 0.6e1 * t90896 + t90898 / 0.2e1 - t92795 - 0.5e1 / 0.6e1 * t90902 + 0.25e2 / 0.36e2 * t90904 + t92798 + 0.5e1 / 0.6e1 * t90909 - 0.5e1 / 0.18e2 * t90912 + 0.5e1 / 0.12e2 * t90914;
29254   t92803 = my_piecewise3(t95, 0, t92802);
29255   t92817 = 0.2e1 * t81 * t4041 * t4887 * t227 + 0.2e1 * t81 * t1231 * t17677 * t227 - 0.2e1 * t91904 * t1348 - 0.2e1 * t91751 * t1348 - 0.2e1 * t22453 * t4761 + 0.2e1 * t881 * t21845 - 0.2e1 * t22453 * t4776 - 0.2e1 * t91535 * t1348 - 0.2e1 * t449 * t1252 * t17677 - 0.8e1 * t21675 * t17599 - 0.2e1 * t8342 * t5546 + 0.40e2 * t88177 * t17611 + 0.2e1 * t81 * t21802 * t1037 - 0.2e1 * t449 * t363 * t92803 - 0.10e2 / 0.3e1 * t21510 * t91687 + 0.2e1 * t81 * t21806 * t1037 - 0.10e2 / 0.3e1 * t90648 * t21637 + 0.2e1 * t81 * t5560 * t2866;
29256   t92861 = 0.2e1 * t81 * t96 * t92803 * t227 + 0.2e1 * t397 * t22653 + 0.2e1 * t397 * t22576 + 0.2e1 * t81 * t464 * t22574 * t227 - 0.2e1 * t91470 * t1348 - 0.8e1 * t4720 * t88703 * t912 + 0.10e2 / 0.3e1 * t14967 * t21514 - 0.10e2 / 0.3e1 * t87750 * t22437 + 0.2e1 * t397 * t22598 - 0.10e2 / 0.3e1 * t90747 * t21637 + 0.10e2 / 0.3e1 * t4013 * t90993 - 0.8e1 * t17116 * t22581 - 0.8e1 * t17094 * t22581 - 0.8e1 * t4720 * t88798 * t912 - 0.2e1 * t14120 * t5551 - 0.2e1 * t14123 * t5551 - 0.2e1 * t4302 * t21854 - 0.2e1 * t4302 * t21795;
29257   t92903 = -0.2e1 * t1476 * t22642 + 0.2e1 * t397 * t22594 + 0.2e1 * t81 * t15176 * t1347 * t227 - 0.10e2 / 0.3e1 * t21510 * t91704 - 0.10e2 / 0.3e1 * t90750 * t21637 + 0.2e1 * t81 * t5556 * t2866 - 0.2e1 * t2442 * t21792 - 0.2e1 * t8342 * t5551 - 0.8e1 * t17457 * t21858 - 0.2e1 * t22448 * t4776 - 0.2e1 * t2448 * t22622 - 0.2e1 * t449 * t3091 * t5550 + 0.2e1 * t81 * t22597 * t751 - 0.2e1 * t449 * t1110 * t21791 - 0.2e1 * t5499 * t17681 - 0.2e1 * t4302 * t21792 + 0.2e1 * t90802 * t1246 + 0.80e2 / 0.9e1 * t88856;
29258   t92907 = t92302 + t92339 + t92370 + t92404 + t92441 + t92478 + t92517 + t92556 + t92595 + t92633 + t92673 + t92719 + t92758 + t92817 + t92861 + t92903;
29259   t92935 = 0.3e1 * t369 * t92803 * t97 + t370 * t92907 * params->d + 0.6e1 * t1125 * t21895 + 0.6e1 * t1125 * t21906 + 0.3e1 * t1125 * t21909 + 0.6e1 * t1267 * t17748 + 0.6e1 * t1357 * t15430 + 0.6e1 * t1357 * t15433 + 0.6e1 * t1357 * t15436 + 0.6e1 * t1357 * t15441 + 0.3e1 * t3141 * t5571 + 0.6e1 * t4137 * t4918 + 0.3e1 * t4146 * t4912;
29260   t92941 = t368 * t22716;
29261   t92942 = t4907 * t1272;
29262   t92947 = t92181 + t92182 + t88962 + t872 * (t92210 + t92240 + t92275 + t92935) + t7 * t92907 * t372 + t88958 + t88964 + t92941 + t92942 + t88870 + t21866 * t1130 + t870 * t22716 + t4564 * t4814 + t88867 + t1123 * t21912 + t88460;
29263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29264     v4rho2sigmatau[9] = t92180 + t92947;
29265 
29266   t92952 = t4678 * t1341;
29267   t92958 = t1315 * t4867;
29268   t92959 = t368 * t22790;
29269   t92960 = t1123 * t21986 + t1130 * t21965 + t1320 * t17528 + t1334 * t15889 + t1341 * t15868 + t22790 * t870 + t3144 * t5594 + t4679 * t4754 + t4687 * t4737 + t88979 + t88981 + t89201 + t89203 + t92952 + t92958 + t92959;
29270   t92963 = t5593 * t1130;
29271   t92964 = t22771 * t372;
29272   t92967 = 0.6e1 * t3138 * t5598 + t89515 + t89518 + t89521 + t89524 + t89527 + t89529 + t89533 + t89535 + t89569 + t89578 + t89580;
29273   t92976 = 0.6e1 * t1318 * t17563 + 0.3e1 * t1318 * t17571 + 0.6e1 * t4263 * t4861 + 0.6e1 * t4683 * t4748 + t89582 + t89584 + t89590 + t89592 + t89595 + t89598 + t89601 + t89609 + t89613;
29274   t92986 = 0.6e1 * t1318 * t17568 + 0.3e1 * t1338 * t15879 + 0.3e1 * t22780 * t875 + 0.3e1 * t4263 * t4864 + t89615 + t89619 + t89621 + t89623 + t89625 + t89627 + t89630 + t89633 + t89637;
29275   t93025 = t4159 * t909;
29276   t93028 = -t89677 - t89681 + t4173 * t89766 / 0.3e1 - t22068 * t21927 / 0.3e1 - t22068 * t21930 / 0.3e1 - t22068 * t21933 / 0.3e1 - t89645 * t5590 / 0.3e1 - t89648 * t5590 / 0.3e1 - t89651 * t5590 / 0.3e1 - t89654 * t5590 / 0.3e1 + t13876 * t22102 / 0.3e1 + t13870 * t22102 / 0.3e1 - t21251 * t22723 / 0.3e1 - t21254 * t22723 / 0.3e1 - t21225 * t22723 / 0.3e1 - t21228 * t22723 / 0.3e1 - t5416 * t93025 / 0.3e1;
29277   t93029 = t4167 * t909;
29278   t93032 = t1276 * t2433;
29279   t93043 = t15609 * t3940;
29280   t93054 = -t5416 * t93029 / 0.3e1 - t5416 * t93032 / 0.3e1 + t15686 * t21222 / 0.3e1 + t15686 * t21292 / 0.3e1 + t4173 * t90147 / 0.3e1 + t13811 * t22106 / 0.3e1 + t89685 - t89711 - t89718 - t89720 - t89723 - t89726 + t89743 + 0.5e1 / 0.3e1 * t21210 * t93043 - 0.5e1 / 0.3e1 * t15683 * t21288 - 0.5e1 / 0.3e1 * t4156 * t89867 + t4173 * t89770 / 0.3e1 + t4173 * t89774 / 0.3e1;
29281   t93062 = t15682 * t3940;
29282   t93085 = t4587 * t440;
29283   t93090 = t15503 * t21296 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t89863 + 0.5e1 / 0.3e1 * t89958 * t21916 + 0.5e1 / 0.3e1 * t21210 * t93062 + t89796 + 0.10e2 * t55715 * t89640 + t4173 * t89920 / 0.3e1 + t4173 * t89923 / 0.3e1 + t4173 * t89926 / 0.3e1 + t54913 * t5402 / 0.3e1 + t54785 * t5402 / 0.3e1 + t54851 * t5402 / 0.3e1 + t15503 * t21218 / 0.3e1 + t15503 * t21222 / 0.3e1 + t15503 * t21292 / 0.3e1 - t5416 * t93085 / 0.3e1 + t13876 * t22110 / 0.3e1;
29284   t93103 = t13870 * t22110 / 0.3e1 + t89840 + t89842 - t89808 * t5590 / 0.3e1 - t89811 * t5590 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t89980 - 0.5e1 / 0.3e1 * t4156 * t89984 + t89857 + t89879 - t89881 - t89885 + t89888 - t89890 - t89894 + t89897 - t89931 + 0.5e1 / 0.3e1 * t90323 * t21916 - t89935;
29285   t93122 = -t89937 - t89939 - t89941 - t89943 - t89945 - 0.2e1 * t9859 * t5587 - t89962 - t89968 + t89971 - t89976 + t15610 * t21218 / 0.3e1 + t15610 * t21222 / 0.3e1 + t15610 * t21292 / 0.3e1 + t13811 * t22110 / 0.3e1 - t22074 * t21927 / 0.3e1 - t22074 * t21930 / 0.3e1 - t22074 * t21933 / 0.3e1;
29286   t93131 = t15637 * t74;
29287   t93134 = t15641 * t74;
29288   t93141 = t13875 * t4396;
29289   t93144 = t13869 * t4396;
29290   t93147 = t4155 * t14672;
29291   t93150 = t4155 * t14617;
29292   t93155 = t4155 * t14654;
29293   t93164 = -t21251 * t22720 / 0.3e1 - t21254 * t22720 / 0.3e1 - t21225 * t22720 / 0.3e1 - t21228 * t22720 / 0.3e1 - t5416 * t93131 / 0.3e1 - t5416 * t93134 / 0.3e1 + t4173 * t89672 / 0.3e1 + 0.5e1 / 0.3e1 * t86824 * t22736 + 0.5e1 / 0.3e1 * t21210 * t93141 + 0.5e1 / 0.3e1 * t21210 * t93144 + 0.5e1 / 0.3e1 * t21210 * t93147 + 0.5e1 / 0.3e1 * t21210 * t93150 + 0.5e1 / 0.3e1 * t89797 * t21916 + 0.5e1 / 0.3e1 * t21210 * t93155 + t89988 + 0.5e1 / 0.3e1 * t90008 * t21916 - 0.5e1 / 0.3e1 * t15500 * t21288 + 0.5e1 / 0.3e1 * t86929 * t22736;
29294   t93185 = 0.5e1 / 0.3e1 * t86818 * t22736 + 0.5e1 / 0.3e1 * t86821 * t22736 + t89993 + t89996 + t89999 - t90001 - t90003 + t90005 + t90007 - 0.2e1 * t449 * t4656 * t4714 + t13876 * t22106 / 0.3e1 + t13870 * t22106 / 0.3e1 + t4173 * t90157 / 0.3e1 + t4173 * t90161 / 0.3e1 + t4173 * t90165 / 0.3e1 + t15686 * t21296 / 0.3e1 - t90018 - t90020;
29295   t93190 = t55714 * t14502;
29296   t93205 = -0.2e1 * t4302 * t21959 - t90022 - t90024 - t90027 - 0.2e1 * t14123 * t5587 - 0.10e2 * t90254 * t93190 - t90032 - t90043 + t90045 + t90047 + t90049 + t90051 - 0.5e1 / 0.3e1 * t4156 * t90028 - 0.5e1 / 0.3e1 * t4156 * t89859 + t54845 * t5402 / 0.3e1 - t21251 * t22752 / 0.3e1 - t21254 * t22752 / 0.3e1 - t21225 * t22752 / 0.3e1;
29297   t93211 = t15475 * t74;
29298   t93214 = t15488 * t74;
29299   t93242 = -t21228 * t22752 / 0.3e1 - t5416 * t93211 / 0.3e1 - t5416 * t93214 / 0.3e1 + t90055 + t90059 - 0.2e1 * t1476 * t22764 - 0.2e1 * t2448 * t22764 - 0.2e1 * t449 * t15862 * t1326 + t4173 * t89730 / 0.3e1 + t4173 * t89757 / 0.3e1 - t22071 * t21927 / 0.3e1 - t22071 * t21930 / 0.3e1 - t22071 * t21933 / 0.3e1 - t89737 * t5590 / 0.3e1 - t89871 * t5590 / 0.3e1 - t89874 * t5590 / 0.3e1 - t90371 * t5590 / 0.3e1;
29300   t93254 = -0.2e1 * t4235 * t449 * t4830 - 0.2e1 * t1476 * t22757 - 0.2e1 * t21959 * t2442 - 0.2e1 * t22757 * t2448 - 0.2e1 * t5587 * t8342 - t90066 - t90077 - t90079 + t90082 + t90085 + t90088 + t90090 + t90092 - t90096 - t90098 - t90100 - t90102 - t90171;
29301   t93260 = t4596 * t440;
29302   t93277 = t90173 - t90177 - t90179 - t90181 - t90183 - t90185 - 0.2e1 * t2442 * t21955 - 0.2e1 * t14120 * t5587 + t90188 - t5416 * t93260 / 0.3e1 + t54812 * t5402 / 0.3e1 + t55639 * t5402 / 0.3e1 + t13811 * t22114 / 0.3e1 + t13876 * t22114 / 0.3e1 + t13870 * t22114 / 0.3e1 + t4173 * t90136 / 0.3e1 + t4173 * t90140 / 0.3e1;
29303   t93310 = t4173 * t90144 / 0.3e1 + t15610 * t21296 / 0.3e1 + t13811 * t22102 / 0.3e1 + t54885 * t5402 / 0.3e1 + t54889 * t5402 / 0.3e1 + t54893 * t5402 / 0.3e1 + t15686 * t21218 / 0.3e1 - t90116 * t5590 / 0.3e1 - t90119 * t5590 / 0.3e1 - t90122 * t5590 / 0.3e1 - t90125 * t5590 / 0.3e1 - t22065 * t21927 / 0.3e1 - t22065 * t21930 / 0.3e1 - t22065 * t21933 / 0.3e1 - t89802 * t5590 / 0.3e1 - t89805 * t5590 / 0.3e1 - t90192 - t90194;
29304   t93319 = -t90196 + t90201 + t90204 - t90207 - 0.5e1 / 0.3e1 * t13882 * t22133 - 0.5e1 / 0.3e1 * t4156 * t89977 + t90219 - t90221 + t90224 + t90227 - t90230 + t90234 + t90236 + t90240 + t90242 - t90244 - 0.2e1 * t4302 * t21955;
29305   t93327 = -t90247 - t90249 - t90252 + t90258 + t90260 - 0.2e1 * t449 * t1307 * t17422 - t90263 - t90265 + t90268 - t90270 - 0.5e1 / 0.3e1 * t4156 * t89712 - 0.5e1 / 0.3e1 * t4156 * t89848 + t90272 + t90275 + t90278 + t90281 + t90284 + t90287;
29306   t93333 = -0.5e1 / 0.3e1 * t13808 * t22133 - 0.5e1 / 0.3e1 * t13879 * t22133 + t90289 + t90293 + t90299 - t90301 + t90303 + t90307 + t90311 - t90313 - t90317 + t90322 - t90327 - t90329 - t90331 - t90334 - t90336 - t90338;
29307   t93336 = -t90341 - t90343 - t90347 - t90352 + t90354 + t90356 + t90358 + t90361 + t90364 - t90366 - t90378 + t90380 + t90382 + t90384 - 0.5e1 / 0.3e1 * t15699 * t21288 - t90386 + t90389 + t90392;
29308   t93340 = t93028 + t93054 + t93090 + t93103 + t93122 + t93164 + t93185 + t93205 + t93242 + t93254 + t93277 + t93310 + t93319 + t93327 + t93333 + t93336;
29309   t93343 = t370 * t93340 * params->d + 0.3e1 * t1127 * t21976 + 0.6e1 * t1318 * t17557 + 0.6e1 * t1318 * t17560 + 0.3e1 * t3141 * t5598 + 0.3e1 * t4683 * t4751 + t90401 + t90407 + t90409 + t90414 + t90417 + t90420 + t90422;
29310   t93347 = t1122 * t5602;
29311   t93350 = t4850 * t1320;
29312   t93353 = t1333 * t4687;
29313   t93355 = t4851 * t4267 + t88985 + t3127 * t5602 + t92963 + t92964 + t872 * (t92967 + t92976 + t92986 + t93343) + t93347 + t4258 * t4867 + t1316 * t17574 + t93350 + t89208 + t88977 + t89240 + t7 * t93340 * t372 + t93353 + t22772 * t878;
29314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29315     v4rho2sigmatau[10] = t92960 + t93355;
29316 
29317   t93365 = t1315 * t4924;
29318   t93367 = t1123 * t22048 + t1130 * t22027 + t1316 * t17765 + t1355 * t15889 + t22851 * t878 + t22869 * t870 + t3127 * t5620 + t4258 * t4924 + t4267 * t4908 + t4687 * t4797 + t89246 + t89249 + t89253 + t89258 + t89496 + t93365;
29319   t93380 = t90464 - t90494 - t90496 - t90498 - t90500 + t90504 - t90506 - t90508 + t90512 + t90516 + t90519 + t15610 * t21408 / 0.3e1 + t4173 * t90582 / 0.3e1 + t4173 * t90561 / 0.3e1 + t4173 * t91150 / 0.3e1 + t4173 * t90536 / 0.3e1 + t54785 * t5450 / 0.3e1;
29320   t93409 = t54851 * t5450 / 0.3e1 + t15503 * t21402 / 0.3e1 + t15503 * t21405 / 0.3e1 + t15503 * t21408 / 0.3e1 + t15503 * t21435 / 0.3e1 + t54885 * t5450 / 0.3e1 + t54889 * t5450 / 0.3e1 + t54893 * t5450 / 0.3e1 + t15686 * t21402 / 0.3e1 + t15686 * t21405 / 0.3e1 + 0.5e1 / 0.3e1 * t21510 * t93062 + t90521 + t90524 + t90527 + t90530 - t90456 * t5590 / 0.3e1 - t90704 * t5590 / 0.3e1 - t22258 * t21927 / 0.3e1;
29321   t93445 = -t22258 * t21930 / 0.3e1 - t22258 * t21933 / 0.3e1 - t90715 * t5590 / 0.3e1 - t90813 * t5590 / 0.3e1 - t90816 * t5590 / 0.3e1 - t90819 * t5590 / 0.3e1 - t22261 * t21927 / 0.3e1 + t15610 * t21435 / 0.3e1 + t4173 * t91190 / 0.3e1 - t21410 * t22752 / 0.3e1 - t90976 * t5590 / 0.3e1 - t5464 * t93032 / 0.3e1 - t90539 * t5590 / 0.3e1 - t21412 * t22752 / 0.3e1 - t21414 * t22752 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t90993 - 0.5e1 / 0.3e1 * t4156 * t90997;
29322   t93464 = -0.5e1 / 0.3e1 * t15500 * t21514 + t90545 - t90548 - 0.5e1 / 0.3e1 * t4156 * t90655 - 0.5e1 / 0.3e1 * t15683 * t21514 + 0.5e1 / 0.3e1 * t87750 * t22736 + 0.5e1 / 0.3e1 * t87753 * t22736 + 0.5e1 / 0.3e1 * t87775 * t22736 - t90550 - t90560 - t90588 - t90590 - t90592 - t90594 - t90606 * t5590 / 0.3e1 - t90609 * t5590 / 0.3e1 - t90612 * t5590 / 0.3e1 + t90625;
29323   t93493 = t90628 + t90634 - t90636 + t90647 - 0.5e1 / 0.3e1 * t15699 * t21514 - 0.10e2 * t90857 * t93190 + 0.10e2 * t55715 * t91180 - t22264 * t21927 / 0.3e1 - t22264 * t21930 / 0.3e1 - t22264 * t21933 / 0.3e1 - t21431 * t22720 / 0.3e1 - t21410 * t22720 / 0.3e1 + t54812 * t5450 / 0.3e1 + t55639 * t5450 / 0.3e1 + t15610 * t21402 / 0.3e1 + t15610 * t21405 / 0.3e1 + t13811 * t22251 / 0.3e1;
29324   t93520 = t13876 * t22251 / 0.3e1 + t13870 * t22251 / 0.3e1 + t4173 * t90595 / 0.3e1 + t4173 * t90599 / 0.3e1 + t4173 * t90603 / 0.3e1 + t13876 * t22275 / 0.3e1 + t13870 * t22275 / 0.3e1 + t4173 * t91159 / 0.3e1 + t4173 * t91162 / 0.3e1 + t90652 - t90654 + 0.5e1 / 0.3e1 * t90747 * t21916 - t90663 - t90665 - t90667 - 0.5e1 / 0.3e1 * t4156 * t90643 - 0.5e1 / 0.3e1 * t4156 * t90985 - 0.5e1 / 0.3e1 * t4156 * t90989;
29325   t93544 = t90676 + t90678 + t90680 + t90682 + t90691 - t90699 - t90728 - 0.5e1 / 0.3e1 * t4156 * t90659 - t5464 * t93211 / 0.3e1 - t5464 * t93214 / 0.3e1 - t5464 * t93260 / 0.3e1 - t21431 * t22723 / 0.3e1 - t21410 * t22723 / 0.3e1 - t21412 * t22723 / 0.3e1 - t21414 * t22723 / 0.3e1 - t5464 * t93025 / 0.3e1 - t5464 * t93029 / 0.3e1 + t13811 * t22275 / 0.3e1;
29326   t93576 = 0.5e1 / 0.3e1 * t21510 * t93043 + 0.5e1 / 0.3e1 * t21510 * t93155 + t90730 - t90732 + t90737 - t22255 * t21927 / 0.3e1 - t22255 * t21930 / 0.3e1 - t22255 * t21933 / 0.3e1 + t4173 * t91130 / 0.3e1 + t13876 * t22247 / 0.3e1 + t13870 * t22247 / 0.3e1 + t54845 * t5450 / 0.3e1 + t15686 * t21435 / 0.3e1 + t4173 * t91165 / 0.3e1 - t21431 * t22752 / 0.3e1 - 0.2e1 * t2442 * t21998 - 0.2e1 * t449 * t4656 * t4775 - 0.5e1 / 0.3e1 * t4156 * t90775;
29327   t93580 = t90759 + t90762 - t90767 - t90769 - t90771 - t90773 - t90783 + t90785 + t90787 + t90791 + t90795 + t90798 + t90801 + t90804 - t90812 - t90834 - t90836;
29328   t93611 = -0.2e1 * t9859 * t5606 - t90846 - t90848 - t90852 + t13811 * t22243 / 0.3e1 + t13876 * t22243 / 0.3e1 + t13870 * t22243 / 0.3e1 + t4173 * t90467 / 0.3e1 + t4173 * t90471 / 0.3e1 + t4173 * t90475 / 0.3e1 - t90450 * t5590 / 0.3e1 + t4173 * t90683 / 0.3e1 + t13811 * t22247 / 0.3e1 - t22261 * t21930 / 0.3e1 - t22261 * t21933 / 0.3e1 - t90828 * t5590 / 0.3e1 - t91078 * t5590 / 0.3e1 - t91081 * t5590 / 0.3e1;
29329   t93633 = -t90453 * t5590 / 0.3e1 - t90861 - t90863 - t90865 - t90867 - t90869 - 0.5e1 / 0.3e1 * t13808 * t22343 - 0.5e1 / 0.3e1 * t13879 * t22343 - 0.5e1 / 0.3e1 * t13882 * t22343 + t90875 + t90881 + t15686 * t21408 / 0.3e1 - t21412 * t22720 / 0.3e1 - t21414 * t22720 / 0.3e1 - t5464 * t93131 / 0.3e1 - t5464 * t93134 / 0.3e1 - t5464 * t93085 / 0.3e1;
29330   t93660 = t54913 * t5450 / 0.3e1 - t90883 + t90885 - t90920 - 0.2e1 * t1476 * t22798 - 0.2e1 * t2448 * t22798 - 0.2e1 * t449 * t4235 * t4887 - 0.2e1 * t449 * t1307 * t17677 + 0.5e1 / 0.3e1 * t90744 * t21916 - t90922 - t90926 - t90928 - 0.2e1 * t2442 * t21993 - 0.2e1 * t14120 * t5606 - 0.2e1 * t14123 * t5606 - 0.2e1 * t4302 * t21998 + 0.5e1 / 0.3e1 * t87765 * t22736 + 0.5e1 / 0.3e1 * t21510 * t93141;
29331   t93676 = 0.5e1 / 0.3e1 * t21510 * t93144 + 0.5e1 / 0.3e1 * t21510 * t93147 + 0.5e1 / 0.3e1 * t21510 * t93150 - t90931 - 0.2e1 * t2448 * t22841 - 0.2e1 * t449 * t15862 * t1347 - t90933 - t90937 - t90940 + t90942 + 0.5e1 / 0.3e1 * t90750 * t21916 - t90944 - t90947 - t90949 - t90951 + t90953 + t90956;
29332   t93679 = -0.2e1 * t5606 * t8342 - t90958 - t90960 - t90962 + t90964 + t90969 + t90971 + t90973 - t90984 + t91007 + t91010 - t91012 - t91014 + t91019 + t91021 + t91023 + t91025 - t91027;
29333   t93685 = -0.2e1 * t1476 * t22841 - 0.2e1 * t21993 * t4302 - t91029 + t91031 + t91033 + t91037 + t91041 + t91044 - t91070 + t91073 - t91075 - t91077 - t91087 + t91090 + t91093 - t91095 - t91097 - t91101;
29334   t93690 = t91103 + t91107 + t91111 - t91115 + t91118 + t91121 + t91123 + t91125 + t91128 - t91134 - t91137 - t91139 - t91145 - t91147 - t91177 + t91194 + 0.5e1 / 0.3e1 * t90648 * t21916 - 0.5e1 / 0.3e1 * t4156 * t90853;
29335   t93694 = t93380 + t93409 + t93445 + t93464 + t93493 + t93520 + t93544 + t93576 + t93580 + t93611 + t93633 + t93660 + t93676 + t93679 + t93685 + t93690;
29336   t93697 = t22850 * t372;
29337   t93698 = t5611 * t1130;
29338   t93699 = t368 * t22869;
29339   t93702 = t1354 * t4687;
29340   t93703 = t4678 * t1362;
29341   t93715 = t370 * t93694 * params->d + 0.3e1 * t1127 * t22038 + 0.6e1 * t1318 * t17751 + 0.6e1 * t1318 * t17754 + 0.3e1 * t22859 * t875 + t91213 + t91219 + t91223 + t91225 + t91227 + t91230 + t91233;
29342   t93722 = 0.3e1 * t1318 * t17762 + 0.3e1 * t1359 * t15879 + 0.3e1 * t4263 * t4921 + t91236 + t91240 + t91243 + t91246 + t91248 + t91250 + t91252 + t91254 + t91257 + t91260;
29343   t93726 = 0.3e1 * t4683 * t4811 + t91263 + t91265 + t91267 + t91269 + t91273 + t91277 + t91279 + t91283 + t91288 + t91291 + t91294 + t91296;
29344   t93739 = 0.6e1 * t1318 * t17748 + 0.6e1 * t1318 * t17759 + 0.6e1 * t3138 * t5616 + 0.3e1 * t3141 * t5616 + 0.6e1 * t4263 * t4918 + 0.6e1 * t4683 * t4808 + t91300 + t91304 + t91316 + t91320 + t91322 + t91324 + t91327;
29345   t93744 = t4907 * t1320;
29346   t93745 = t1122 * t5620;
29347   t93746 = t7 * t93694 * t372 + t89493 + t93697 + t93698 + t93699 + t17719 * t1320 + t89256 + t5612 * t3144 + t93702 + t93703 + t4679 * t4814 + t89251 + t872 * (t93715 + t93722 + t93726 + t93739) + t15868 * t1362 + t93744 + t93745;
29348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29349     v4rho2sigmatau[11] = t93367 + t93746;
29350 
29351   t93752 = t3761 * t16151;
29352   t93755 = t14483 * t16359;
29353   t93757 = 0.2e1 * t21244 * t93755;
29354   t93759 = t1204 * t3789 * t17791;
29355   t93772 = t4412 * t22113;
29356   t93783 = t400 * t17769;
29357   t93787 = 0.16e2 * t89883 * t22087;
29358   t93789 = t14483 * t14321 * t912;
29359   t93791 = 0.16e2 * t21239 * t93789;
29360   t93793 = t14483 * t3874 * t3209;
29361   t93795 = 0.8e1 * t21239 * t93793;
29362   t93797 = 0.12e2 * t89675 * t22090;
29363   t93799 = 0.12e2 * t89877 * t22090;
29364   t93801 = 0.12e2 * t89886 * t22090;
29365   t93802 = -0.10e2 * t87029 * t93752 - t93757 + t3788 * t93759 / 0.3e1 + 0.2e1 / 0.3e1 * t14156 * t22114 + t56604 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t14848 * t22102 + 0.2e1 / 0.3e1 * t14848 * t22106 + 0.2e1 / 0.3e1 * t14848 * t22110 + 0.2e1 / 0.3e1 * t3788 * t93772 - t5416 * t83791 / 0.3e1 - 0.2e1 / 0.3e1 * t5416 * t83689 - 0.2e1 / 0.3e1 * t5416 * t83692 - t5416 * t83695 / 0.3e1 - t93783 * t5146 / 0.3e1 - t93787 - t93791 - t93795 + t93797 + t93799 + t93801;
29366   t93803 = t13344 * t16344;
29367   t93805 = 0.12e2 * t21244 * t93803;
29368   t93806 = t13344 * t16349;
29369   t93808 = 0.6e1 * t21244 * t93806;
29370   t93810 = 0.4e1 * t89675 * t22093;
29371   t93812 = 0.4e1 * t89877 * t22093;
29372   t93814 = 0.4e1 * t89886 * t22093;
29373   t93815 = t14483 * t16353;
29374   t93817 = 0.4e1 * t21244 * t93815;
29375   t93818 = t4412 * t22105;
29376   t93821 = t4412 * t22109;
29377   t93826 = t400 * t17797;
29378   t93830 = t400 * t17801;
29379   t93833 = t400 * t17850;
29380   t93841 = t12791 * t4831 * t912;
29381   t93845 = t12791 * t1327 * t3209;
29382   t93848 = t89792 * t999;
29383   t93849 = t86914 * t93848;
29384   t93851 = 0.48e2 * t21239 * t93849;
29385   t93858 = t14820 * t16341;
29386   t93860 = 0.12e2 * t21244 * t93858;
29387   t93861 = -0.2e1 / 0.3e1 * t93830 * t5146 - 0.2e1 / 0.3e1 * t93833 * t5146 - 0.2e1 / 0.3e1 * t5416 * t83745 - t5416 * t83748 / 0.3e1 - 0.10e2 / 0.3e1 * t3762 * t93841 - 0.5e1 / 0.3e1 * t3762 * t93845 - t93851 - 0.2e1 / 0.3e1 * t22068 * t20211 - 0.2e1 / 0.3e1 * t22068 * t20214 - 0.2e1 / 0.3e1 * t22068 * t20217 + t93860;
29388   t93865 = t1204 * t14718 * t4830;
29389   t93868 = t400 * t17793;
29390   t93871 = t400 * t17810;
29391   t93891 = 0.4e1 * t449 * t1110 * t22061;
29392   t93893 = 0.4e1 * t22167 * t4380;
29393   t93894 = t89853 * t1033;
29394   t93895 = t86954 * t93894;
29395   t93897 = 0.16e2 * t21239 * t93895;
29396   t93899 = 0.40e2 * t76862 * t17836;
29397   t93901 = 0.4e1 * t4302 * t22062;
29398   t93903 = 0.4e1 * t2442 * t22155;
29399   t93905 = 0.8e1 * t21257 * t17839;
29400   t93908 = 0.4e1 * t81 * t22159 * t1037;
29401   t93909 = t81 * t17792;
29402   t93911 = 0.2e1 * t93909 * t1193;
29403   t93913 = 0.16e2 * t21257 * t17855;
29404   t93914 = t19783 * t1033;
29405   t93915 = t86914 * t93914;
29406   t93917 = 0.12e2 * t21244 * t93915;
29407   t93918 = -t93891 + t93893 + t93897 + t93899 - t93901 - t93903 - t93905 + t93908 + t93911 - t93913 - t93917;
29408   t93920 = t47575 * t17774;
29409   t93922 = t65404 * t887;
29410   t93923 = t86839 * t93922;
29411   t93925 = t13149 * t17781;
29412   t93927 = t3807 * t17784;
29413   t93929 = t3807 * t17787;
29414   t93932 = my_piecewise3(t95, 0, -t86828 - t91607 + t91612 - 0.3e1 / 0.4e1 * t93920 + 0.5e1 / 0.6e1 * t93923 + t93925 / 0.4e1 - 0.5e1 / 0.36e2 * t93927 - 0.5e1 / 0.24e2 * t93929);
29415   t93936 = 0.2e1 * t81 * t96 * t93932 * t227;
29416   t93940 = 0.4e1 * t20281 * t4820;
29417   t93943 = 0.2e1 * t449 * t3714 * t5412;
29418   t93945 = 0.2e1 * t3149 * t5420;
29419   t93950 = 0.2e1 * t9866 * t5413;
29420   t93953 = 0.4e1 * t81 * t22162 * t1037;
29421   t93956 = 0.4e1 * t81 * t22128 * t1037;
29422   t93961 = 0.4e1 * t16016 * t5413;
29423   t93963 = 0.16e2 * t90205 * t4836;
29424   t93965 = 0.16e2 * t90228 * t4836;
29425   t93968 = 0.2e1 * t81 * t5419 * t3530;
29426   t93970 = 0.2e1 * t3149 * t5424;
29427   t93972 = 0.4e1 * t881 * t22121;
29428   t93975 = 0.16e2 * t4720 * t90189 * t912;
29429   t93977 = 0.2e1 * t15998 * t5413;
29430   t93979 = 0.4e1 * t82990 * t1327;
29431   t93982 = 0.8e1 * t4720 * t21214 * t3209;
29432   t93984 = 0.16e2 * t21257 * t17831;
29433   t93985 = -t93961 - t93963 - t93965 + t93968 + t93970 + t93972 - t93975 - t93977 - t93979 - t93982 - t93984;
29434   t93990 = 0.16e2 * t90376 * t22087;
29435   t93992 = 0.16e2 * t89679 * t22087;
29436   t94003 = t9657 * t1330;
29437   t94006 = t2378 * t4840;
29438   t94010 = 0.4e1 * t881 * t22136;
29439   t94015 = 0.2e1 * t81 * t15921 * t1326 * t227;
29440   t94019 = 0.4e1 * t81 * t4311 * t4830 * t227;
29441   t94021 = 0.4e1 * t22050 * t4380;
29442   t94025 = 0.2e1 * t81 * t3249 * t5412 * t227;
29443   t94026 = t2378 * t4844;
29444   t94029 = t2378 * t4847;
29445   t94042 = t94015 + t94019 + t94021 + t94025 - 0.2e1 / 0.3e1 * t94026 * t5146 - 0.2e1 / 0.3e1 * t94029 * t5146 - 0.2e1 / 0.3e1 * t22065 * t20211 - 0.2e1 / 0.3e1 * t22065 * t20214 - 0.2e1 / 0.3e1 * t22065 * t20217 + t56597 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t56472 * t5402;
29446   t94053 = t1204 * t929 * t4830;
29447   t94057 = t1204 * t56659 * t1326;
29448   t94061 = t14483 * t3874 * t3152;
29449   t94063 = 0.40e2 * t86768 * t94061;
29450   t94064 = t14483 * t16356;
29451   t94066 = 0.4e1 * t21244 * t94064;
29452   t94068 = t1204 * t3250 * t1326;
29453   t94072 = t1204 * t3223 * t1326;
29454   t94076 = t16220 * t5401;
29455   t94083 = 0.2e1 * t5097 * t17847;
29456   t94084 = t81 * t17800;
29457   t94086 = 0.4e1 * t94084 * t1193;
29458   t94088 = 0.4e1 * t881 * t22125;
29459   t94090 = 0.4e1 * t881 * t22129;
29460   t94093 = 0.2e1 * t81 * t5423 * t3530;
29461   t94095 = 0.4e1 * t22165 * t4380;
29462   t94097 = 0.4e1 * t20281 * t4831;
29463   t94102 = t3788 * t94076 / 0.3e1 - 0.2e1 * t449 * t16374 * t1326 - t94083 + t94086 + t94088 + t94090 + t94093 + t94095 - t94097 + 0.10e2 / 0.3e1 * t89958 * t22053 + 0.10e2 / 0.3e1 * t90008 * t22053;
29464   t94105 = t14847 * t4396;
29465   t94108 = t3761 * t16130;
29466   t94112 = 0.2e1 * t5097 * t17844;
29467   t94114 = 0.16e2 * t17457 * t22141;
29468   t94116 = 0.16e2 * t17515 * t22141;
29469   t94119 = 0.16e2 * t4720 * t90015 * t912;
29470   t94120 = t3149 * t1329;
29471   t94122 = 0.2e1 * t94120 * t1193;
29472   t94123 = t881 * t4839;
29473   t94125 = 0.4e1 * t94123 * t1193;
29474   t94126 = t881 * t4843;
29475   t94128 = 0.4e1 * t94126 * t1193;
29476   t94129 = t3761 * t16134;
29477   t94134 = 0.2e1 * t83160 * t1327;
29478   t94136 = 0.4e1 * t2442 * t22062;
29479   t94137 = t50644 * t22132;
29480   t94141 = t12791 * t1327 * t3152;
29481   t94145 = 0.4e1 * t881 * t22160;
29482   t94147 = 0.4e1 * t881 * t22163;
29483   t94151 = 0.4e1 * t81 * t928 * t22061 * t227;
29484   t94153 = 0.2e1 * t5427 * t16352;
29485   t94160 = 0.4e1 * t5097 * t17821;
29486   t94161 = -t94134 - t94136 - 0.10e2 / 0.3e1 * t3762 * t94137 + 0.10e2 * t13159 * t94141 + t94145 + t94147 + t94151 + t94153 - 0.4e1 * t4302 * t22148 - 0.4e1 * t449 * t4391 * t4830 - t94160;
29487   t94165 = 0.40e2 * t7757 * t21214 * t3152;
29488   t94167 = t12791 * t4820 * t912;
29489   t94171 = 0.2e1 * t83856 * t1327;
29490   t94173 = 0.4e1 * t20284 * t4820;
29491   t94176 = t14155 * t4396;
29492   t94179 = t4400 * t22132;
29493   t94188 = 0.4e1 * t81 * t22124 * t1037;
29494   t94190 = t81 * t17796;
29495   t94192 = 0.2e1 * t94190 * t1193;
29496   t94202 = 0.4e1 * t4302 * t22155;
29497   t94206 = 0.2e1 * t81 * t1143 * t17791 * t227;
29498   t94210 = 0.4e1 * t20284 * t4831;
29499   t94213 = 0.2e1 * t449 * t363 * t93932;
29500   t94216 = t94192 - 0.2e1 * t9866 * t5407 - 0.2e1 * t15998 * t5407 - 0.4e1 * t4302 * t22172 + 0.10e2 / 0.3e1 * t89797 * t22053 - t94202 + t94206 - 0.4e1 * t2442 * t22172 - t94210 - t94213 - 0.4e1 * t16016 * t5407;
29501   t94220 = t94188 - t94171 - t94173 + t94165 + t94161 + t94128 + t94122 + t94125 - t94116 - t94119 - t94112 - t94114 + t94102 + t94066 + t94063 + t94042 + t94010 - t93990 - t93992 + t93985 + t93956 + t93953 - t93950 - t93943 + t93945 - t93940 + t93936 + t93918 + t93861 - t93814 - t93817 - t93810 - t93812 + t93805 + t93808 + t93802 + 0.10e2 / 0.3e1 * t90323 * t22053 + 0.10e2 / 0.3e1 * t21210 * t94176 - 0.10e2 / 0.3e1 * t3762 * t94179 - 0.10e2 / 0.3e1 * t14851 * t22133 - 0.10e2 / 0.3e1 * t14858 * t22133 - 0.10e2 / 0.3e1 * t3762 * t94167 + 0.5e1 / 0.3e1 * t21210 * t94129 + 0.10e2 / 0.3e1 * t21210 * t94105 + 0.10e2 / 0.3e1 * t21210 * t94108 + 0.2e1 / 0.3e1 * t3788 * t94053 + t3788 * t94057 / 0.3e1 + t3788 * t94068 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t94072 + 0.2e1 / 0.3e1 * t56668 * t5402 + 0.2e1 / 0.3e1 * t14152 * t22102 + 0.2e1 / 0.3e1 * t14152 * t22106 + 0.2e1 / 0.3e1 * t14152 * t22110 + 0.2e1 / 0.3e1 * t14156 * t22106 + 0.2e1 / 0.3e1 * t14156 * t22110 - 0.2e1 / 0.3e1 * t22074 * t20211 - 0.2e1 / 0.3e1 * t22074 * t20214 - 0.2e1 / 0.3e1 * t22074 * t20217 - t94003 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t94006 * t5146 - 0.4e1 * t2442 * t22148 - 0.10e2 / 0.3e1 * t14736 * t22133 + 0.2e1 / 0.3e1 * t3788 * t93865 - t93868 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t93871 * t5146 - 0.2e1 / 0.3e1 * t22071 * t20211 - 0.2e1 / 0.3e1 * t22071 * t20214 - 0.2e1 / 0.3e1 * t22071 * t20217 + 0.2e1 / 0.3e1 * t14152 * t22114 + t56489 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t56496 * t5402 + 0.2e1 / 0.3e1 * t14156 * t22102 - t93826 * t5146 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t93818 + 0.2e1 / 0.3e1 * t3788 * t93821 + 0.2e1 / 0.3e1 * t14848 * t22114 - 0.2e1 * t449 * t1199 * t17791 + t94216;
29502   t94228 = 0.6e1 * t4855 * t4454;
29503   t94230 = 0.6e1 * t3745 * t5441;
29504   t94233 = 0.3e1 * t369 * t97 * t93932;
29505   t94237 = 0.12e2 * t1125 * t22215;
29506   t94241 = 0.12e2 * t1125 * t22210;
29507   t94246 = 0.6e1 * t369 * t5423 * t3249;
29508   t94248 = 0.12e2 * t4855 * t4451;
29509   t94255 = 0.6e1 * t369 * t3219 * t5412;
29510   t94257 = 0.3e1 * t3745 * t5444;
29511   t94259 = 0.3e1 * t1336 * t16412;
29512   t94264 = 0.12e2 * t369 * t22128 * t928;
29513   t94265 = t370 * t94220 * params->d + 0.6e1 * t1127 * t22186 + 0.3e1 * t1219 * t17893 + 0.6e1 * t3749 * t5435 + 0.12e2 * t4445 * t4861 + 0.6e1 * t4445 * t4864 + t94228 + t94230 + t94233 + t94237 + t94241 + t94246 + t94248 + t94255 + t94257 + t94259 + t94264;
29514   t94268 = 0.6e1 * t369 * t1329 * t15921;
29515   t94271 = 0.6e1 * t369 * t17796 * t1143;
29516   t94274 = 0.12e2 * t369 * t17800 * t1143;
29517   t94277 = 0.12e2 * t369 * t4839 * t4311;
29518   t94279 = 0.6e1 * t1336 * t16403;
29519   t94288 = 0.6e1 * t369 * t17792 * t1143;
29520   t94291 = 0.12e2 * t369 * t4843 * t4311;
29521   t94293 = 0.6e1 * t1125 * t22218;
29522   t94297 = 0.3e1 * t17870 * t1221;
29523   t94299 = 0.12e2 * t1336 * t16406;
29524   t94301 = 0.6e1 * t1336 * t16409;
29525   t94305 = 0.12e2 * t1125 * t22207;
29526   t94307 = 0.12e2 * t1125 * t22204;
29527   t94308 = 0.6e1 * t1219 * t17884 + 0.12e2 * t1219 * t17887 + 0.6e1 * t1219 * t17890 + 0.3e1 * t1338 * t16389 + 0.3e1 * t3752 * t5435 + t94268 + t94271 + t94274 + t94277 + t94279 + t94288 + t94291 + t94293 + t94297 + t94299 + t94301 + t94305 + t94307;
29528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29529     v4rho2sigmatau[12] = 0.2e1 * t89507 + t1217 * t17896 + 0.2e1 * t4851 * t4457 + 0.2e1 * t90434 + t7 * t94220 * t372 + 0.2e1 * t90431 + 0.2e1 * t22178 * t1130 + t16379 * t1341 + t872 * (t94265 + t94308) + 0.2e1 * t89511 + t17860 * t1224 + t1334 * t16415 + 0.2e1 * t89510 + t3741 * t5447 + 0.2e1 * t90435 + 0.2e1 * t90430 + 0.2e1 * t4441 * t4867 + 0.2e1 * t90438 + 0.2e1 * t1123 * t22221 + t5431 * t3755;
29530 
29531   t94331 = 0.3e1 * t18011 * t1221;
29532   t94335 = 0.6e1 * t1125 * t22389;
29533   t94337 = 0.3e1 * t1357 * t16412;
29534   t94340 = 0.6e1 * t369 * t3219 * t5460;
29535   t94346 = 0.12e2 * t1125 * t22386;
29536   t94355 = 0.6e1 * t369 * t17978 * t1143;
29537   t94358 = 0.12e2 * t369 * t4900 * t4311;
29538   t94361 = 0.12e2 * t369 * t22296 * t928;
29539   t94363 = 0.12e2 * t1125 * t22381;
29540   t94366 = 0.6e1 * t369 * t17909 * t1143;
29541   t94369 = 0.12e2 * t369 * t17913 * t1143;
29542   t94370 = 0.6e1 * t1127 * t22357 + 0.6e1 * t1219 * t18025 + 0.12e2 * t1219 * t18028 + 0.6e1 * t1219 * t18031 + 0.3e1 * t3752 * t5483 + 0.6e1 * t4445 * t4921 + t94331 + t94335 + t94337 + t94340 + t94346 + t94355 + t94358 + t94361 + t94363 + t94366 + t94369;
29543   t94372 = 0.12e2 * t1125 * t22378;
29544   t94374 = 0.6e1 * t1357 * t16403;
29545   t94376 = 0.12e2 * t4912 * t4451;
29546   t94378 = 0.12e2 * t1357 * t16406;
29547   t94380 = 0.6e1 * t1357 * t16409;
29548   t94385 = t47575 * t17925;
29549   t94387 = t13149 * t17928;
29550   t94390 = t25556 * t66077 * t897;
29551   t94392 = t13149 * t17935;
29552   t94394 = t3807 * t4591;
29553   t94396 = t3807 * t4593;
29554   t94398 = t3807 * t17944;
29555   t94400 = t3807 * t17947;
29556   t94402 = -t87537 - t92791 - t92795 + t92798 - 0.3e1 / 0.4e1 * t94385 - 0.5e1 / 0.6e1 * t94387 + 0.5e1 / 0.6e1 * t94390 + t94392 / 0.4e1 - 0.5e1 / 0.9e1 * t94394 + 0.25e2 / 0.36e2 * t94396 - 0.5e1 / 0.36e2 * t94398 - 0.5e1 / 0.24e2 * t94400;
29557   t94403 = my_piecewise3(t95, 0, t94402);
29558   t94406 = 0.3e1 * t369 * t97 * t94403;
29559   t94408 = 0.3e1 * t3745 * t5492;
29560   t94413 = 0.12e2 * t369 * t4896 * t4311;
29561   t94416 = 0.40e2 * t7757 * t21482 * t3152;
29562   t94420 = t12791 * t4888 * t912;
29563   t94424 = 0.48e2 * t21423 * t93849;
29564   t94425 = t50644 * t22342;
29565   t94428 = t4400 * t22342;
29566   t94432 = t12791 * t4873 * t912;
29567   t94442 = 0.16e2 * t21423 * t93789;
29568   t94444 = 0.8e1 * t21423 * t93793;
29569   t94450 = t12791 * t1348 * t3209;
29570   t94455 = 0.16e2 * t4720 * t91112 * t912;
29571   t94462 = 0.4e1 * t81 * t22336 * t1037;
29572   t94464 = t1204 * t3789 * t17951;
29573   t94467 = t94416 + 0.10e2 / 0.3e1 * t21510 * t94108 - 0.10e2 / 0.3e1 * t3762 * t94420 - t94424 - 0.10e2 / 0.3e1 * t3762 * t94425 - 0.10e2 / 0.3e1 * t3762 * t94428 - 0.10e2 / 0.3e1 * t3762 * t94432 + 0.2e1 / 0.3e1 * t56496 * t5450 + 0.2e1 / 0.3e1 * t14156 * t22243 + 0.2e1 / 0.3e1 * t14848 * t22243 - t94442 - t94444 - t5464 * t83695 / 0.3e1 - 0.2e1 / 0.3e1 * t5464 * t83745 - 0.5e1 / 0.3e1 * t3762 * t94450 - t94455 + 0.10e2 / 0.3e1 * t21510 * t94105 + 0.10e2 / 0.3e1 * t90648 * t22053 + t94462 + t3788 * t94464 / 0.3e1;
29574   t94468 = t4412 * t22242;
29575   t94472 = t1204 * t929 * t4887;
29576   t94476 = 0.12e2 * t90502 * t22090;
29577   t94478 = 0.12e2 * t21426 * t93803;
29578   t94480 = 0.6e1 * t21426 * t93806;
29579   t94481 = t9657 * t1351;
29580   t94484 = t16220 * t5449;
29581   t94492 = 0.16e2 * t91068 * t22087;
29582   t94495 = 0.16e2 * t90810 * t22087;
29583   t94497 = 0.16e2 * t91135 * t22087;
29584   t94499 = 0.40e2 * t87681 * t94061;
29585   t94506 = t4412 * t22246;
29586   t94510 = t1204 * t3250 * t1347;
29587   t94514 = t1204 * t3223 * t1347;
29588   t94518 = 0.12e2 * t91071 * t22090;
29589   t94520 = t1204 * t14718 * t4887;
29590   t94523 = -t94495 - t94497 + t94499 + 0.2e1 / 0.3e1 * t14152 * t22247 + 0.2e1 / 0.3e1 * t14156 * t22247 + 0.2e1 / 0.3e1 * t14848 * t22247 + 0.2e1 / 0.3e1 * t3788 * t94506 + t3788 * t94510 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t94514 + t94518 + 0.2e1 / 0.3e1 * t3788 * t94520;
29591   t94527 = 0.12e2 * t21426 * t93915;
29592   t94531 = 0.16e2 * t21423 * t93895;
29593   t94541 = 0.4e1 * t16016 * t5461;
29594   t94543 = 0.4e1 * t2442 * t22318;
29595   t94546 = 0.4e1 * t81 * t22303 * t1037;
29596   t94549 = 0.2e1 * t5097 * t17952;
29597   t94551 = 0.4e1 * t881 * t22309;
29598   t94555 = 0.2e1 * t81 * t1143 * t17951 * t227;
29599   t94560 = 0.4e1 * t881 * t22306;
29600   t94564 = 0.2e1 * t81 * t3249 * t5460 * t227;
29601   t94568 = 0.4e1 * t81 * t928 * t22295 * t227;
29602   t94570 = 0.4e1 * t20284 * t4888;
29603   t94572 = 0.4e1 * t5097 * t17960;
29604   t94574 = 0.4e1 * t881 * t22297;
29605   t94577 = 0.2e1 * t449 * t363 * t94403;
29606   t94578 = -0.4e1 * t4391 * t449 * t4887 - t94549 + t94551 + t94555 + t94560 + t94564 + t94568 - t94570 - t94572 + t94574 - t94577;
29607   t94581 = 0.2e1 * t3149 * t5468;
29608   t94590 = 0.16e2 * t17457 * t22278;
29609   t94594 = 0.2e1 * t81 * t96 * t94403 * t227;
29610   t94598 = 0.4e1 * t91071 * t22093;
29611   t94600 = 0.4e1 * t91126 * t22093;
29612   t94602 = 0.4e1 * t90502 * t22093;
29613   t94605 = 0.4e1 * t21426 * t93815;
29614   t94606 = t400 * t17963;
29615   t94616 = 0.2e1 * t21426 * t93755;
29616   t94617 = t400 * t17979;
29617   t94620 = t400 * t17982;
29618   t94629 = -t94605 - 0.2e1 / 0.3e1 * t94606 * t5146 - 0.2e1 / 0.3e1 * t22258 * t20211 - 0.2e1 / 0.3e1 * t22255 * t20214 - 0.2e1 / 0.3e1 * t22258 * t20214 - t94616 - t94617 * t5146 / 0.3e1 - 0.2e1 / 0.3e1 * t94620 * t5146 - 0.2e1 / 0.3e1 * t22261 * t20214 - 0.2e1 / 0.3e1 * t22261 * t20211 + 0.2e1 / 0.3e1 * t14152 * t22251;
29619   t94637 = t4412 * t22250;
29620   t94640 = t400 * t17991;
29621   t94646 = t1204 * t56659 * t1347;
29622   t94650 = 0.4e1 * t21426 * t94064;
29623   t94659 = 0.12e2 * t21426 * t93858;
29624   t94669 = 0.12e2 * t91126 * t22090;
29625   t94671 = t12791 * t1348 * t3152;
29626   t94678 = 0.2e1 * t81 * t5467 * t3530;
29627   t94681 = 0.2e1 * t449 * t3714 * t5460;
29628   t94683 = 0.2e1 * t3149 * t5472;
29629   t94684 = t94659 - 0.2e1 / 0.3e1 * t22255 * t20217 - 0.2e1 / 0.3e1 * t22258 * t20217 - 0.2e1 / 0.3e1 * t22261 * t20217 - 0.2e1 / 0.3e1 * t22264 * t20217 + t94669 + 0.10e2 * t13159 * t94671 + 0.10e2 / 0.3e1 * t21510 * t94176 + t94678 - t94681 + t94683;
29630   t94687 = 0.4e1 * t881 * t22337;
29631   t94690 = t2378 * t4897;
29632   t94693 = t2378 * t4901;
29633   t94696 = t2378 * t4904;
29634   t94701 = t400 * t17910;
29635   t94704 = t400 * t17914;
29636   t94714 = 0.4e1 * t81 * t22300 * t1037;
29637   t94727 = t81 * t17978;
29638   t94729 = 0.2e1 * t94727 * t1193;
29639   t94734 = 0.2e1 * t83160 * t1348;
29640   t94737 = 0.8e1 * t4720 * t21482 * t3209;
29641   t94738 = t94714 - 0.2e1 / 0.3e1 * t5464 * t83689 + t56489 * t5450 / 0.3e1 - t5464 * t83791 / 0.3e1 + t56597 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t56472 * t5450 + 0.2e1 / 0.3e1 * t56668 * t5450 + t94729 - 0.2e1 * t449 * t1199 * t17951 - t94734 - t94737;
29642   t94748 = 0.4e1 * t20281 * t4888;
29643   t94751 = t81 * t17909;
29644   t94753 = 0.2e1 * t94751 * t1193;
29645   t94754 = t81 * t17913;
29646   t94756 = 0.4e1 * t94754 * t1193;
29647   t94760 = 0.2e1 * t81 * t15921 * t1347 * t227;
29648   t94764 = 0.4e1 * t81 * t4311 * t4887 * t227;
29649   t94766 = 0.4e1 * t881 * t22301;
29650   t94769 = 0.4e1 * t881 * t22304;
29651   t94771 = 0.2e1 * t15998 * t5461;
29652   t94773 = 0.4e1 * t4302 * t22318;
29653   t94775 = 0.4e1 * t22229 * t4380;
29654   t94776 = t3149 * t1350;
29655   t94778 = 0.2e1 * t94776 * t1193;
29656   t94779 = t881 * t4896;
29657   t94781 = 0.4e1 * t94779 * t1193;
29658   t94782 = t881 * t4900;
29659   t94784 = 0.4e1 * t94782 * t1193;
29660   t94786 = 0.16e2 * t21257 * t17917;
29661   t94788 = 0.8e1 * t21257 * t17900;
29662   t94790 = 0.16e2 * t21257 * t17994;
29663   t94792 = 0.16e2 * t17515 * t22278;
29664   t94793 = t94769 - t94771 - t94773 + t94775 + t94778 + t94781 + t94784 - t94786 - t94788 - t94790 - t94792;
29665   t94796 = 0.16e2 * t90228 * t4893;
29666   t94798 = 0.4e1 * t2442 * t22311;
29667   t94800 = 0.4e1 * t20281 * t4873;
29668   t94802 = 0.2e1 * t5097 * t17957;
29669   t94804 = 0.2e1 * t9866 * t5461;
29670   t94806 = 0.4e1 * t4302 * t22311;
29671   t94809 = 0.4e1 * t449 * t1110 * t22295;
29672   t94812 = 0.16e2 * t4720 * t90934 * t912;
29673   t94814 = 0.4e1 * t22223 * t4380;
29674   t94816 = 0.40e2 * t76862 * t17967;
29675   t94821 = 0.4e1 * t82990 * t1348;
29676   t94823 = 0.2e1 * t83856 * t1348;
29677   t94825 = 0.4e1 * t20284 * t4873;
29678   t94827 = 0.4e1 * t22226 * t4380;
29679   t94830 = 0.2e1 * t81 * t5471 * t3530;
29680   t94836 = 0.2e1 * t5475 * t16352;
29681   t94839 = 0.4e1 * t81 * t22296 * t1037;
29682   t94841 = 0.16e2 * t90205 * t4893;
29683   t94842 = -0.2e1 * t9866 * t5455 - t94821 - t94823 - t94825 + t94827 + t94830 + 0.10e2 / 0.3e1 * t90750 * t22053 + 0.10e2 / 0.3e1 * t90747 * t22053 + t94836 + t94839 - t94841;
29684   t94846 = -0.4e1 * t2442 * t22331 - 0.4e1 * t2442 * t22285 - 0.2e1 * t15998 * t5455 - 0.4e1 * t4302 * t22331 - 0.2e1 / 0.3e1 * t94704 * t5146 + 0.2e1 / 0.3e1 * t14156 * t22275 - 0.2e1 / 0.3e1 * t22264 * t20214 - 0.2e1 / 0.3e1 * t94696 * t5146 - 0.2e1 / 0.3e1 * t22255 * t20211 - t94701 * t5146 / 0.3e1 + 0.5e1 / 0.3e1 * t21510 * t94129 - 0.2e1 / 0.3e1 * t94690 * t5146 - 0.2e1 / 0.3e1 * t94693 * t5146 + 0.2e1 / 0.3e1 * t14152 * t22243 + t56604 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t14848 * t22275 - 0.2e1 / 0.3e1 * t22264 * t20211 + t3788 * t94646 / 0.3e1 + 0.2e1 / 0.3e1 * t14156 * t22251 + 0.2e1 / 0.3e1 * t14848 * t22251 + 0.2e1 / 0.3e1 * t3788 * t94637 - t94640 * t5146 / 0.3e1 + 0.2e1 / 0.3e1 * t14152 * t22275 - 0.4e1 * t4302 * t22285 - 0.4e1 * t16016 * t5455 + 0.10e2 / 0.3e1 * t90744 * t22053 - 0.10e2 * t87504 * t93752 - 0.10e2 / 0.3e1 * t14736 * t22343 - 0.10e2 / 0.3e1 * t14858 * t22343 - 0.10e2 / 0.3e1 * t14851 * t22343 - t94481 * t5146 / 0.3e1 + t3788 * t94484 / 0.3e1 - 0.2e1 / 0.3e1 * t5464 * t83692 - t5464 * t83748 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t94472 + 0.2e1 / 0.3e1 * t3788 * t94468 - t94600 - t94598 + t94738 + t94581 + t94766 + t94480 - t94796 - t94602 + t94476 + t94478 - t94543 - 0.2e1 * t449 * t16374 * t1347 - t94527 - t94590 + t94531 + t94756 - t94541 + t94467 + t94760 + t94546 - t94748 - t94798 + t94523 - t94804 - t94806 + t94793 + t94687 + t94650 - t94812 + t94814 + t94684 + t94816 + t94764 - t94492 + t94578 + t94842 + t94594 - t94809 - t94800 + t94629 - t94802 + t94753;
29685   t94851 = 0.6e1 * t369 * t5471 * t3249;
29686   t94853 = 0.6e1 * t3745 * t5489;
29687   t94855 = 0.6e1 * t4912 * t4454;
29688   t94859 = 0.12e2 * t1125 * t22375;
29689   t94862 = 0.6e1 * t369 * t1350 * t15921;
29690   t94863 = t370 * t94846 * params->d + 0.3e1 * t1219 * t18034 + 0.3e1 * t1359 * t16389 + 0.6e1 * t3749 * t5483 + 0.12e2 * t4445 * t4918 + t94372 + t94374 + t94376 + t94378 + t94380 + t94406 + t94408 + t94413 + t94851 + t94853 + t94855 + t94859 + t94862;
29691   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29692     v4rho2sigmatau[13] = 0.2e1 * t90446 + t5479 * t3755 + 0.2e1 * t91202 + 0.2e1 * t91207 + 0.2e1 * t4908 * t4457 + t872 * (t94370 + t94863) + t1355 * t16415 + 0.2e1 * t91209 + 0.2e1 * t91335 + 0.2e1 * t1123 * t22392 + t3741 * t5495 + 0.2e1 * t22349 * t1130 + 0.2e1 * t4441 * t4924 + 0.2e1 * t91205 + 0.2e1 * t91337 + t7 * t94846 * t372 + t18001 * t1224 + t16379 * t1362 + t1217 * t18037 + 0.2e1 * t91336;
29693 
29694   t94909 = t4012 * t16151;
29695   t94916 = 0.2e1 * t94120 * t1246 + 0.4e1 * t94123 * t1246 + 0.4e1 * t94126 * t1246 - 0.160e3 / 0.9e1 * t91377 + 0.32e2 / 0.9e1 * t91381 + 0.32e2 / 0.9e1 * t91383 - 0.32e2 / 0.9e1 * t91386 - 0.32e2 / 0.9e1 * t91388 + 0.32e2 / 0.9e1 * t91390 - 0.32e2 / 0.9e1 * t91392 - 0.32e2 / 0.9e1 * t91394 - 0.32e2 / 0.9e1 * t91398 + 0.32e2 / 0.9e1 * t91400 + 0.2e1 * t81 * t16563 * t1326 * t227 + 0.4e1 * t81 * t4483 * t4830 * t227 + 0.20e2 * t87029 * t94909 - 0.4e1 * t22453 * t4831 - t87975 + t87978 + 0.4e1 * t22050 * t4516;
29696   t94934 = t16449 * t74;
29697   t94938 = t4464 * t909;
29698   t94961 = 0.4e1 / 0.3e1 * t5416 * t94938 + 0.4e1 / 0.3e1 * t22065 * t22415 + 0.4e1 / 0.3e1 * t22068 * t22415 - 0.4e1 * t16016 * t5507 - 0.4e1 * t2442 * t22475 - 0.4e1 * t2442 * t22498 - 0.20e2 * t13415 * t94141 + 0.20e2 / 0.3e1 * t4013 * t94179 - 0.20e2 / 0.3e1 * t89958 * t22437 - 0.20e2 / 0.3e1 * t90008 * t22437 - 0.20e2 / 0.3e1 * t89797 * t22437;
29699   t94966 = t3212 * t1231;
29700   t94969 = t82 * t16563;
29701   t94989 = t4012 * t16130;
29702   t94992 = t4012 * t16134;
29703   t95013 = -0.20e2 / 0.3e1 * t21210 * t94989 - 0.10e2 / 0.3e1 * t21210 * t94992 + 0.2e1 / 0.3e1 * t93783 * t5510 + 0.4e1 / 0.3e1 * t94026 * t5510 + 0.4e1 / 0.3e1 * t94029 * t5510 + 0.2e1 / 0.3e1 * t93826 * t5510 + 0.4e1 / 0.3e1 * t93830 * t5510 + 0.4e1 / 0.3e1 * t93833 * t5510 + 0.2e1 / 0.3e1 * t93868 * t5510 + 0.4e1 / 0.3e1 * t93871 * t5510 + 0.4e1 / 0.3e1 * t22074 * t22415;
29704   t95015 = t13344 * t16667;
29705   t95022 = t14483 * t16677;
29706   t95060 = -0.2e1 / 0.3e1 * t59464 * t5402 - 0.4e1 / 0.3e1 * t14972 * t22102 - 0.4e1 / 0.3e1 * t14972 * t22106 - 0.4e1 / 0.3e1 * t14972 * t22110 - 0.4e1 / 0.3e1 * t4026 * t94053 - 0.4e1 / 0.3e1 * t4026 * t93865 + 0.4e1 / 0.3e1 * t22068 * t22412 - 0.2e1 / 0.3e1 * t4026 * t94057 + 0.12e2 * t89675 * t22423 - 0.4e1 * t89675 * t22426 - 0.16e2 * t89679 * t22419;
29707   t95073 = t14483 * t15206 * t912;
29708   t95076 = t13344 * t16662;
29709   t95085 = t14483 * t16671;
29710   t95091 = t87989 * t93894;
29711   t95106 = my_piecewise3(t95, 0, -t88234 - 0.8e1 / 0.3e1 * t89539 + 0.20e2 / 0.9e1 * t89552 - 0.3e1 / 0.2e1 * t93920 + 0.5e1 / 0.3e1 * t93923 + t93925 / 0.2e1 - 0.5e1 / 0.18e2 * t93927 - 0.5e1 / 0.12e2 * t93929);
29712   t95124 = -0.4e1 / 0.3e1 * t14972 * t22114 + 0.16e2 * t21239 * t95091 - 0.16e2 * t91726 * t4836 - 0.16e2 * t21675 * t17831 + 0.2e1 * t81 * t96 * t95106 * t227 - 0.2e1 * t9866 * t5507 - 0.4e1 * t16016 * t5502 - 0.8e1 * t4720 * t21643 * t3209 - 0.16e2 * t90376 * t22419 - 0.4e1 * t22453 * t4820 - 0.16e2 * t17457 * t22442;
29713   t95155 = t88070 * t93848;
29714   t95169 = t88070 * t93914;
29715   t95177 = 0.2e1 * t5427 * t16670 + 0.4e1 * t81 * t22404 * t1037 - 0.48e2 * t21239 * t95155 + 0.32e2 / 0.9e1 * t91783 - 0.2e1 * t9866 * t5502 - 0.8e1 * t21675 * t17839 + 0.4e1 * t81 * t928 * t22464 * t227 + 0.4e1 * t881 * t22409 - 0.12e2 * t21244 * t95169 - 0.16e2 * t21675 * t17855 + 0.4e1 * t81 * t22505 * t1037;
29716   t95205 = t14483 * t16674;
29717   t95217 = t14483 * t4049 * t3152;
29718   t95231 = t14820 * t16659;
29719   t95234 = 0.4e1 * t21244 * t95205 - 0.4e1 / 0.3e1 * t4026 * t93772 - 0.2e1 / 0.3e1 * t4026 * t94068 - 0.4e1 / 0.3e1 * t4026 * t94072 - 0.2e1 / 0.3e1 * t4026 * t93759 + 0.40e2 * t86768 * t95217 + 0.2e1 * t81 * t3249 * t5506 * t227 + 0.2e1 * t81 * t5517 * t3530 + 0.2e1 * t3149 * t5518 + 0.4e1 / 0.3e1 * t22065 * t22412 + 0.12e2 * t21244 * t95231;
29720   t95236 = t1226 * t3206;
29721   t95240 = t14483 * t4049 * t3209;
29722   t95249 = t915 * t4483;
29723   t95281 = t14966 * t4396;
29724   t95287 = 0.2e1 * t81 * t5513 * t3530 + 0.4e1 * t881 * t22445 + 0.160e3 / 0.9e1 * t91960 + 0.40e2 * t88177 * t17836 + 0.2e1 * t3149 * t5514 + 0.4e1 * t881 * t22405 + 0.4e1 * t881 * t22506 + 0.4e1 * t881 * t22466 - 0.20e2 / 0.3e1 * t90323 * t22437 - 0.20e2 / 0.3e1 * t21210 * t95281 + 0.4e1 * t81 * t22465 * t1037;
29725   t95291 = 0.32e2 / 0.9e1 * t91517 - 0.32e2 / 0.9e1 * t91519 - 0.16e2 * t89883 * t22419 + 0.12e2 * t89886 * t22423 - 0.4e1 * t89877 * t22426 - 0.4e1 * t89886 * t22426 - 0.4e1 / 0.3e1 * t59434 * t5402 - 0.4e1 / 0.3e1 * t14978 * t22102 - 0.2e1 * t21244 * t95022 + 0.2e1 / 0.3e1 * t94003 * t5510 + 0.4e1 / 0.3e1 * t94006 * t5510 + 0.6e1 * t21244 * t95015 - 0.2e1 * t15998 * t5507 - 0.4e1 * t4302 * t22493 - 0.2e1 * t5499 * t17847 - 0.4e1 * t2442 * t22509 - 0.16e2 * t17515 * t22442 - 0.4e1 * t4302 * t22509 - 0.4e1 * t2442 * t22493 + 0.20e2 / 0.3e1 * t4013 * t94137 + 0.20e2 / 0.3e1 * t14975 * t22133 - 0.4e1 * t95249 * t1327 - 0.4e1 * t22448 * t4820 + 0.2e1 / 0.3e1 * t5416 * t95236 - 0.8e1 * t21239 * t95240 + 0.12e2 * t89877 * t22423 + 0.4e1 * t881 * t22458 + 0.4e1 / 0.3e1 * t22074 * t22412 + 0.2e1 / 0.3e1 * t5416 * t94934 + 0.4e1 * t94084 * t1246 + 0.10e2 / 0.3e1 * t4013 * t93845 + 0.4e1 * t22165 * t4516 + 0.20e2 / 0.3e1 * t4013 * t94167 + 0.2e1 * t94190 * t1246 - 0.2e1 * t15998 * t5502 - 0.4e1 * t4302 * t22498 - 0.2e1 / 0.3e1 * t4026 * t94076 - 0.4e1 / 0.3e1 * t4026 * t93818 - 0.4e1 / 0.3e1 * t4026 * t93821 - 0.16e2 * t91559 * t4836 - 0.2e1 * t5499 * t17844 + 0.2e1 * t93909 * t1246 + 0.20e2 / 0.3e1 * t4013 * t93841 - 0.4e1 * t5499 * t17821 - 0.4e1 * t4302 * t22475 - 0.4e1 * t22448 * t4831 - 0.4e1 * t21244 * t95085 + 0.4e1 * t22167 * t4516 - 0.2e1 * t94966 * t1327 - 0.2e1 * t94969 * t1327 - 0.16e2 * t21239 * t95073 + 0.12e2 * t21244 * t95076 - 0.4e1 / 0.3e1 * t14978 * t22106 - 0.4e1 / 0.3e1 * t14978 * t22110 - 0.2e1 / 0.3e1 * t59449 * t5402 + 0.4e1 / 0.3e1 * t22071 * t22412 + 0.20e2 / 0.3e1 * t14967 * t22133 + 0.4e1 / 0.3e1 * t22071 * t22415 - 0.4e1 / 0.3e1 * t14978 * t22114 + t94916 + t94961 + t95013 + t95234 + t95060 + t95124 + t95287 + 0.4e1 * t81 * t22408 * t1037 - 0.2e1 * t449 * t1252 * t17791 - 0.16e2 * t4720 * t91812 * t912 - 0.2e1 * t449 * t16692 * t1326 - 0.4e1 * t449 * t1110 * t22464 - 0.2e1 * t449 * t3714 * t5506 + 0.40e2 * t7757 * t21643 * t3152 - 0.4e1 * t449 * t4527 * t4830 - 0.2e1 * t449 * t363 * t95106 - 0.16e2 * t4720 * t91816 * t912 + t95177 + 0.2e1 * t81 * t1231 * t17791 * t227;
29726   t95334 = 0.6e1 * t1329 * t16563 * t369 + 0.12e2 * t22465 * t369 * t928 + 0.6e1 * t3219 * t369 * t5506 + 0.6e1 * t3249 * t369 * t5517 + 0.12e2 * t369 * t4483 * t4839 + 0.3e1 * t369 * t95106 * t97 + 0.12e2 * t1125 * t22544 + 0.12e2 * t1125 * t22547 + 0.12e2 * t1125 * t22552 + 0.6e1 * t1267 * t17884 + 0.12e2 * t1267 * t17887 + 0.6e1 * t1267 * t17890 + 0.3e1 * t1267 * t17893 + 0.3e1 * t3745 * t5537 + 0.6e1 * t3749 * t5528 + 0.6e1 * t4568 * t4864 + 0.12e2 * t4574 * t4855;
29727   t95375 = 0.6e1 * t4855 * t4577 + 0.3e1 * t16741 * t1338 + 0.6e1 * t369 * t17796 * t1231 + 0.12e2 * t369 * t17800 * t1231 + 0.6e1 * t369 * t17792 * t1231 + 0.12e2 * t369 * t4843 * t4483 + 0.3e1 * t17870 * t1269 + 0.6e1 * t1125 * t22555 + 0.6e1 * t3745 * t5534 + 0.6e1 * t1336 * t16761 + 0.3e1 * t5528 * t3752 + 0.3e1 * t1336 * t16764 + 0.6e1 * t1336 * t16755 + 0.6e1 * t22523 * t1127 + 0.12e2 * t4568 * t4861 + 0.12e2 * t1125 * t22541 + 0.12e2 * t1336 * t16758 + params->d * t95291 * t370;
29728   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29729     v4rho2sigmatau[14] = 0.2e1 * t92163 + t7 * t95291 * t372 + t872 * (t95334 + t95375) + 0.2e1 * t1123 * t22558 + t1265 * t17896 + t16731 * t1341 + 0.2e1 * t91354 + t3741 * t5540 + t1334 * t16767 + 0.2e1 * t22515 * t1130 + 0.2e1 * t91359 + t5524 * t3755 + 0.2e1 * t91360 + 0.2e1 * t92162 + 0.2e1 * t92164 + t17860 * t1272 + 0.2e1 * t4564 * t4867 + 0.2e1 * t4851 * t4580 + 0.2e1 * t91345 + 0.2e1 * t91347;
29730 
29731   t95444 = -t88707 - 0.8e1 / 0.3e1 * t90888 - 0.20e2 / 0.9e1 * t90900 + 0.20e2 / 0.9e1 * t90906 - 0.3e1 / 0.2e1 * t94385 - 0.5e1 / 0.3e1 * t94387 + 0.5e1 / 0.3e1 * t94390 + t94392 / 0.2e1 - 0.10e2 / 0.9e1 * t94394 + 0.25e2 / 0.18e2 * t94396 - 0.5e1 / 0.18e2 * t94398 - 0.5e1 / 0.12e2 * t94400;
29732   t95445 = my_piecewise3(t95, 0, t95444);
29733   t95451 = 0.160e3 / 0.9e1 * t92276 + t88463 - 0.4e1 * t16016 * t5546 - 0.4e1 * t2442 * t22642 - 0.2e1 * t15998 * t5546 - 0.4e1 * t4302 * t22642 - 0.20e2 / 0.3e1 * t21510 * t95281 - 0.20e2 / 0.3e1 * t21510 * t94989 - 0.10e2 / 0.3e1 * t21510 * t94992 + 0.20e2 / 0.3e1 * t4013 * t94420 + 0.4e1 * t22226 * t4516 + 0.32e2 / 0.9e1 * t92341 - 0.32e2 / 0.9e1 * t92343 + 0.32e2 / 0.9e1 * t92345 + 0.32e2 / 0.9e1 * t92357 + 0.2e1 * t5475 * t16670 + 0.20e2 / 0.3e1 * t4013 * t94432 + 0.2e1 * t81 * t96 * t95445 * t227 - t88543 - 0.32e2 / 0.9e1 * t92378;
29734   t95489 = 0.20e2 / 0.3e1 * t14975 * t22343 + 0.20e2 / 0.3e1 * t4013 * t94425 + 0.4e1 * t881 * t22653 + 0.32e2 / 0.9e1 * t92474 + 0.4e1 * t94779 * t1246 + 0.4e1 * t94782 * t1246 + 0.2e1 * t3149 * t5561 + 0.4e1 * t881 * t22567 + 0.4e1 * t881 * t22576 + 0.4e1 * t22229 * t4516 + 0.4e1 / 0.3e1 * t22258 * t22412;
29735   t95534 = -0.4e1 / 0.3e1 * t14972 * t22243 - 0.4e1 / 0.3e1 * t4026 * t94468 - 0.4e1 / 0.3e1 * t4026 * t94472 - 0.4e1 / 0.3e1 * t4026 * t94520 - 0.4e1 * t16016 * t5551 - 0.4e1 * t2442 * t22622 - 0.160e3 / 0.9e1 * t92509 + 0.10e2 / 0.3e1 * t4013 * t94450 - 0.2e1 * t5499 * t17952 - 0.4e1 * t22448 * t4873 - 0.4e1 * t22448 * t4888;
29736   t95584 = 0.20e2 / 0.3e1 * t4013 * t94428 - 0.12e2 * t21426 * t95169 + 0.20e2 / 0.3e1 * t14967 * t22343 + 0.4e1 * t81 * t22597 * t1037 + 0.4e1 * t81 * t22566 * t1037 - 0.4e1 * t2442 * t22613 - 0.16e2 * t21675 * t17917 + 0.4e1 * t22223 * t4516 - 0.2e1 * t9866 * t5551 - 0.4e1 * t2442 * t22664 - 0.4e1 * t4302 * t22613;
29737   t95632 = 0.12e2 * t91071 * t22423 - 0.4e1 * t21426 * t95085 + 0.12e2 * t21426 * t95231 + 0.4e1 / 0.3e1 * t22255 * t22412 + 0.4e1 / 0.3e1 * t22255 * t22415 + 0.2e1 / 0.3e1 * t94701 * t5510 + 0.4e1 / 0.3e1 * t94704 * t5510 - 0.4e1 * t91071 * t22426 - 0.16e2 * t90810 * t22419 + 0.12e2 * t91126 * t22423 - 0.4e1 * t91126 * t22426;
29738   t95684 = -0.20e2 / 0.3e1 * t90750 * t22437 - 0.20e2 / 0.3e1 * t90648 * t22437 + 0.2e1 * t81 * t16563 * t1347 * t227 - 0.4e1 * t22453 * t4873 - 0.16e2 * t91559 * t4893 - 0.16e2 * t17457 * t22581 + 0.2e1 * t81 * t5560 * t3530 - 0.2e1 * t449 * t16692 * t1347 - 0.2e1 * t449 * t3714 * t5550 - 0.8e1 * t4720 * t21857 * t3209 - 0.2e1 * t449 * t1252 * t17951;
29739   t95733 = 0.6e1 * t21426 * t95015 - 0.2e1 * t21426 * t95022 + 0.4e1 / 0.3e1 * t22264 * t22412 + 0.4e1 / 0.3e1 * t22264 * t22415 + 0.2e1 / 0.3e1 * t5464 * t94934 + 0.4e1 / 0.3e1 * t5464 * t94938 + 0.2e1 / 0.3e1 * t5464 * t95236 - 0.2e1 / 0.3e1 * t59449 * t5450 - 0.4e1 / 0.3e1 * t59434 * t5450 - 0.4e1 / 0.3e1 * t14978 * t22247 - 0.4e1 / 0.3e1 * t14972 * t22247;
29740   t95787 = 0.4e1 * t22574 * t227 * t81 * t928 + 0.4e1 * t227 * t4483 * t4887 * t81 - 0.4e1 * t1110 * t22574 * t449 - 0.2e1 * t363 * t449 * t95445 - 0.16e2 * t4720 * t912 * t92491 - 0.16e2 * t4720 * t912 * t92635 - 0.2e1 * t15998 * t5551 - 0.16e2 * t17515 * t22581 - 0.4e1 * t22453 * t4888 - 0.4e1 * t22622 * t4302 - 0.4e1 * t22664 * t4302;
29741   t95791 = 0.32e2 / 0.9e1 * t92613 - 0.32e2 / 0.9e1 * t92435 - 0.32e2 / 0.9e1 * t92437 - 0.32e2 / 0.9e1 * t92425 + 0.32e2 / 0.9e1 * t92390 - 0.32e2 / 0.9e1 * t92380 - 0.2e1 * t9866 * t5546 - 0.4e1 / 0.3e1 * t14978 * t22275 - 0.4e1 / 0.3e1 * t14972 * t22275 - 0.2e1 / 0.3e1 * t4026 * t94484 - 0.20e2 / 0.3e1 * t90747 * t22437 - 0.2e1 * t94966 * t1348 + 0.2e1 * t3149 * t5557 + 0.4e1 * t881 * t22594 + 0.2e1 * t94727 * t1246 - 0.20e2 / 0.3e1 * t90744 * t22437 - 0.4e1 / 0.3e1 * t4026 * t94514 + 0.2e1 / 0.3e1 * t94481 * t5510 + 0.4e1 / 0.3e1 * t94690 * t5510 + 0.40e2 * t88177 * t17967 - 0.8e1 * t21675 * t17900 - 0.16e2 * t21675 * t17994 - 0.2e1 * t94969 * t1348 + 0.4e1 / 0.3e1 * t22258 * t22415 + 0.2e1 / 0.3e1 * t94617 * t5510 + 0.4e1 / 0.3e1 * t94620 * t5510 + 0.4e1 / 0.3e1 * t22261 * t22412 - 0.2e1 / 0.3e1 * t4026 * t94464 + 0.4e1 * t881 * t22598 - 0.4e1 * t95249 * t1348 + 0.16e2 * t21423 * t95091 - 0.48e2 * t21423 * t95155 - 0.16e2 * t91726 * t4893 + 0.4e1 / 0.3e1 * t94693 * t5510 + 0.4e1 / 0.3e1 * t94696 * t5510 - 0.16e2 * t91135 * t22419 + 0.12e2 * t90502 * t22423 - 0.4e1 * t90502 * t22426 - 0.16e2 * t91068 * t22419 + 0.12e2 * t21426 * t95076 - 0.2e1 / 0.3e1 * t4026 * t94510 + 0.40e2 * t87681 * t95217 + 0.4e1 * t881 * t22667 - 0.4e1 / 0.3e1 * t4026 * t94506 - 0.4e1 / 0.3e1 * t4026 * t94637 - 0.2e1 / 0.3e1 * t59464 * t5450 - 0.8e1 * t21423 * t95240 - 0.16e2 * t21423 * t95073 + 0.4e1 / 0.3e1 * t22261 * t22415 + 0.2e1 / 0.3e1 * t94640 * t5510 - 0.4e1 / 0.3e1 * t14978 * t22243 - 0.4e1 / 0.3e1 * t14978 * t22251 - 0.4e1 / 0.3e1 * t14972 * t22251 - 0.2e1 / 0.3e1 * t4026 * t94646 + 0.2e1 * t94751 * t1246 + 0.4e1 * t94754 * t1246 + 0.2e1 * t94776 * t1246 + 0.20e2 * t87504 * t94909 - 0.20e2 * t13415 * t94671 + 0.4e1 * t21426 * t95205 + 0.4e1 / 0.3e1 * t94606 * t5510 - 0.2e1 * t5499 * t17957 - 0.4e1 * t5499 * t17960 + t95632 + t95489 + t95787 + t95534 + t95584 + 0.2e1 * t81 * t1231 * t17951 * t227 + t95684 + t95451 + t95733 + 0.2e1 * t81 * t3249 * t5550 * t227 - 0.4e1 * t449 * t4527 * t4887 + 0.4e1 * t81 * t22593 * t1037 + 0.40e2 * t7757 * t21857 * t3152 + 0.4e1 * t81 * t22575 * t1037 + 0.2e1 * t81 * t5556 * t3530;
29742   t95846 = 0.6e1 * t1231 * t17978 * t369 + 0.12e2 * t22575 * t369 * t928 + 0.6e1 * t3219 * t369 * t5550 + 0.6e1 * t3249 * t369 * t5560 + 0.12e2 * t369 * t4483 * t4900 + 0.12e2 * t1125 * t22710 + 0.6e1 * t1125 * t22713 + 0.6e1 * t1127 * t22681 + 0.6e1 * t1267 * t18025 + 0.6e1 * t1267 * t18031 + 0.3e1 * t1267 * t18034 + 0.12e2 * t1357 * t16758 + 0.6e1 * t1357 * t16761 + 0.3e1 * t1357 * t16764 + 0.3e1 * t3745 * t5580 + 0.6e1 * t3749 * t5571 + 0.6e1 * t4568 * t4921;
29743   t95888 = 0.6e1 * t3745 * t5577 + 0.6e1 * t369 * t1350 * t16563 + 0.6e1 * t369 * t17909 * t1231 + 0.6e1 * t4912 * t4577 + 0.12e2 * t1267 * t18028 + 0.3e1 * t18011 * t1269 + 0.3e1 * t16741 * t1359 + 0.12e2 * t1125 * t22702 + 0.12e2 * t4568 * t4918 + 0.3e1 * t5571 * t3752 + 0.12e2 * t1125 * t22705 + 0.12e2 * t369 * t17913 * t1231 + 0.12e2 * t369 * t4896 * t4483 + 0.12e2 * t1125 * t22699 + params->d * t95791 * t370 + 0.6e1 * t1357 * t16755 + 0.3e1 * t369 * t97 * t95445 + 0.12e2 * t4912 * t4574;
29744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29745     v4rho2sigmatau[15] = 0.2e1 * t4564 * t4924 + 0.2e1 * t22673 * t1130 + t16731 * t1362 + t1265 * t18037 + t5567 * t3755 + t7 * t95791 * t372 + 0.2e1 * t92179 + 0.2e1 * t92176 + 0.2e1 * t92169 + 0.2e1 * t92942 + 0.2e1 * t92941 + t1355 * t16767 + t18001 * t1272 + 0.2e1 * t92181 + 0.2e1 * t1123 * t22716 + 0.2e1 * t4908 * t4580 + t3741 * t5583 + t872 * (t95846 + t95888) + 0.2e1 * t92182 + 0.2e1 * t92167;
29746 
29747   t95906 = -t93757 - t93787 - t93791 - t93795 + t93797 + t93799 + t93801 + t93805 + t93808 - t93810 - t93812 - t93814 - t93817 - 0.2e1 * t15998 * t5587 - 0.4e1 * t4302 * t22764 - 0.5e1 / 0.3e1 * t4156 * t93845 - t93851 + t93860 - t93891 + t93893;
29748   t95907 = t4587 * t909;
29749   t95920 = t17042 * t74;
29750   t95946 = 0.2e1 / 0.3e1 * t61131 * t5402 + 0.2e1 / 0.3e1 * t15503 * t22102 + 0.2e1 / 0.3e1 * t15503 * t22106 + 0.2e1 / 0.3e1 * t15610 * t22106 - 0.2e1 / 0.3e1 * t94026 * t5590 + 0.2e1 / 0.3e1 * t15503 * t22114 - 0.2e1 / 0.3e1 * t22065 * t22752 + 0.2e1 / 0.3e1 * t15686 * t22114 + 0.2e1 / 0.3e1 * t15610 * t22114 + 0.2e1 / 0.3e1 * t4173 * t93772 + t61657 * t5402 / 0.3e1;
29751   t95970 = t4596 * t909;
29752   t95975 = t1276 * t3206;
29753   t95992 = -t93783 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t5416 * t95970 + t4173 * t94068 / 0.3e1 - t5416 * t95975 / 0.3e1 + t4173 * t93759 / 0.3e1 - 0.2e1 / 0.3e1 * t22074 * t22720 - 0.2e1 / 0.3e1 * t22074 * t22752 - 0.2e1 / 0.3e1 * t22074 * t22723 + 0.2e1 / 0.3e1 * t4173 * t94053 + t60525 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t61747 * t5402;
29754   t96007 = t15682 * t4396;
29755   t96010 = t15609 * t4396;
29756   t96013 = t4155 * t16130;
29757   t96016 = t4155 * t16134;
29758   t96023 = -t93917 + 0.10e2 / 0.3e1 * t21210 * t96007 + 0.10e2 / 0.3e1 * t21210 * t96010 + 0.10e2 / 0.3e1 * t21210 * t96013 + 0.5e1 / 0.3e1 * t21210 * t96016 + t93936 - 0.4e1 * t16016 * t5587 - t93940 - 0.4e1 * t2442 * t22764 - t93943 + t93945;
29759   t96038 = -t93975 - t93977 - t93979 + 0.10e2 / 0.3e1 * t89958 * t22736 + 0.10e2 / 0.3e1 * t90008 * t22736 + 0.10e2 / 0.3e1 * t89797 * t22736 - 0.2e1 * t9866 * t5587 - t93982 - t93984 - t93990 - t93992;
29760   t96043 = t16780 * t74;
29761   t96052 = -0.2e1 * t1326 * t16945 * t449 - 0.4e1 * t22757 * t2442 + t94086 + t94088 + t94090 + t94093 + t94095 - t94097 - t94112 - t94114 - t94116;
29762   t96086 = 0.2e1 / 0.3e1 * t4173 * t93821 + 0.2e1 / 0.3e1 * t4173 * t94072 - 0.10e2 / 0.3e1 * t15500 * t22133 - 0.10e2 / 0.3e1 * t15683 * t22133 - 0.10e2 / 0.3e1 * t15699 * t22133 - 0.10e2 / 0.3e1 * t4156 * t94137 - 0.10e2 / 0.3e1 * t4156 * t94179 - t94134 - t94136 + t4173 * t94057 / 0.3e1 - 0.2e1 / 0.3e1 * t93830 * t5590;
29763   t96090 = t16776 * t74;
29764   t96099 = t4155 * t16151;
29765   t96106 = -t94171 - t94173 - 0.10e2 * t87029 * t96099 - 0.10e2 / 0.3e1 * t4156 * t93841 + t94188 + t94192 - t94202 + t94206 - t94210 - t94213 - 0.10e2 / 0.3e1 * t4156 * t94167;
29766   t96110 = t94165 - t94160 + t94153 + t94147 + t94151 + t94145 + t94128 + t94122 + t94125 - t94119 - t94083 + t94066 + t94063 + t94025 + t94021 + t94015 + t94019 + t94010 + t93970 + t93972 - t93965 + t93968 - t93961 - t93963 + t93956 + t93953 - t93950 - t93913 + t93908 + t93911 - t93903 - t93905 + t93899 - t93901 + t93897 + 0.2e1 / 0.3e1 * t4173 * t93818 + 0.2e1 / 0.3e1 * t4173 * t93865 + 0.10e2 / 0.3e1 * t90323 * t22736 - t93826 * t5590 / 0.3e1 - t5416 * t96090 / 0.3e1 - 0.4e1 * t4302 * t22757 + 0.2e1 / 0.3e1 * t15686 * t22102 + 0.2e1 / 0.3e1 * t15686 * t22106 + 0.2e1 / 0.3e1 * t15610 * t22102 + 0.2e1 / 0.3e1 * t15503 * t22110 + 0.2e1 / 0.3e1 * t15686 * t22110 - 0.2e1 / 0.3e1 * t5416 * t96043 - 0.2e1 / 0.3e1 * t94029 * t5590 - 0.2e1 / 0.3e1 * t22065 * t22720 - 0.2e1 / 0.3e1 * t22065 * t22723 + 0.10e2 * t13892 * t94141 + t60567 * t5402 / 0.3e1 + 0.2e1 / 0.3e1 * t61660 * t5402 - t5416 * t95920 / 0.3e1 - t94003 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t94006 * t5590 - 0.2e1 / 0.3e1 * t93833 * t5590 + 0.2e1 / 0.3e1 * t15610 * t22110 - t93868 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t93871 * t5590 - 0.2e1 / 0.3e1 * t22071 * t22720 - 0.2e1 / 0.3e1 * t22071 * t22752 - 0.2e1 / 0.3e1 * t22071 * t22723 - 0.2e1 / 0.3e1 * t22068 * t22720 - 0.2e1 / 0.3e1 * t22068 * t22752 - 0.2e1 / 0.3e1 * t22068 * t22723 - 0.2e1 / 0.3e1 * t5416 * t95907 + t4173 * t94076 / 0.3e1 + t96086 + t95946 - 0.2e1 * t449 * t1307 * t17791 - 0.4e1 * t449 * t4656 * t4830 + t96038 + t96052 + t95992 + t96023 + t96106 + t95906;
29767   t96135 = t370 * t96110 * params->d + 0.6e1 * t1127 * t22780 + 0.6e1 * t1318 * t17884 + 0.12e2 * t1318 * t17887 + 0.6e1 * t1318 * t17890 + 0.3e1 * t1318 * t17893 + 0.3e1 * t1338 * t17064 + 0.3e1 * t3752 * t5598 + 0.12e2 * t4683 * t4861 + t94228 + t94230 + t94233 + t94237 + t94241 + t94246 + t94248 + t94255;
29768   t96140 = 0.6e1 * t3749 * t5598 + 0.6e1 * t4683 * t4864 + t94257 + t94259 + t94264 + t94268 + t94271 + t94274 + t94277 + t94279 + t94288 + t94291 + t94293 + t94297 + t94299 + t94301 + t94305 + t94307;
29769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29770     v4rho2sigmatau[16] = 0.2e1 * t4851 * t4687 + 0.2e1 * t92959 + 0.2e1 * t22772 * t1130 + t5594 * t3755 + 0.2e1 * t92964 + t7 * t96110 * t372 + t3741 * t5602 + 0.2e1 * t93350 + 0.2e1 * t92963 + 0.2e1 * t92952 + t872 * (t96135 + t96140) + t1316 * t17896 + 0.2e1 * t92958 + 0.2e1 * t4679 * t4867 + 0.2e1 * t1123 * t22790 + t17860 * t1320 + 0.2e1 * t93347 + t17054 * t1341 + 0.2e1 * t93353 + t1334 * t17072;
29771 
29772   t96196 = t94416 - t94424 - t94442 - t94444 - 0.10e2 / 0.3e1 * t4156 * t94428 - t94455 + 0.2e1 / 0.3e1 * t15686 * t22243 + t61657 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t15610 * t22275 + 0.2e1 / 0.3e1 * t15610 * t22247 + 0.2e1 / 0.3e1 * t15610 * t22251 - 0.2e1 / 0.3e1 * t22255 * t22720 - 0.2e1 / 0.3e1 * t22264 * t22720 - 0.2e1 / 0.3e1 * t94693 * t5590 + t4173 * t94464 / 0.3e1 - 0.2e1 / 0.3e1 * t5464 * t95907 - 0.2e1 / 0.3e1 * t22255 * t22752 - 0.2e1 / 0.3e1 * t22258 * t22752 - t94617 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t94620 * t5590;
29773   t96238 = -t5464 * t96090 / 0.3e1 - 0.2e1 / 0.3e1 * t94696 * t5590 + t4173 * t94510 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t94514 - 0.2e1 / 0.3e1 * t22261 * t22752 - 0.2e1 / 0.3e1 * t22264 * t22752 - 0.2e1 / 0.3e1 * t5464 * t96043 - t94640 * t5590 / 0.3e1 + t60567 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t61660 * t5450 + 0.2e1 / 0.3e1 * t61131 * t5450;
29774   t96284 = -0.2e1 / 0.3e1 * t5464 * t95970 - 0.2e1 / 0.3e1 * t22255 * t22723 - 0.2e1 / 0.3e1 * t22258 * t22723 - 0.2e1 / 0.3e1 * t22261 * t22723 - 0.2e1 / 0.3e1 * t22264 * t22723 - t5464 * t95975 / 0.3e1 - t94481 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t94690 * t5590 + 0.2e1 / 0.3e1 * t4173 * t94468 + 0.2e1 / 0.3e1 * t15610 * t22243 + t4173 * t94484 / 0.3e1;
29775   t96311 = 0.10e2 * t13892 * t94671 - 0.10e2 / 0.3e1 * t15500 * t22343 + t94476 + t94478 + t94480 - t94492 - t94495 - t94497 + t94499 + t94518 - t94527;
29776   t96324 = t94564 + t94568 - t94570 - t94572 + t94574 - t94577 + t94581 - t94590 - 0.10e2 / 0.3e1 * t4156 * t94420 - 0.5e1 / 0.3e1 * t4156 * t94450 + t94594;
29777   t96338 = -t94681 + t94683 + t94687 - 0.10e2 / 0.3e1 * t15683 * t22343 + t94714 + t94729 - 0.4e1 * t2442 * t22798 - 0.4e1 * t4302 * t22798 - 0.4e1 * t449 * t4656 * t4887 - t94734 - t94737;
29778   t96349 = -t94771 - t94773 + t94775 + t94778 + t94781 + t94784 - t94786 - t94788 - t94790 - t94792 - t94796;
29779   t96361 = t94814 + t94816 - t94821 - t94823 - t94825 + t94827 - 0.10e2 / 0.3e1 * t4156 * t94425 + t94830 + t94836 + t94839 - t94841;
29780   t96365 = t96196 + 0.10e2 / 0.3e1 * t90648 * t22736 - 0.10e2 * t87504 * t96099 - 0.10e2 / 0.3e1 * t4156 * t94432 + 0.2e1 / 0.3e1 * t15503 * t22275 - t94701 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t94704 * t5590 - 0.2e1 / 0.3e1 * t94606 * t5590 - 0.2e1 / 0.3e1 * t22258 * t22720 - 0.2e1 * t9866 * t5606 - 0.10e2 / 0.3e1 * t15699 * t22343 - 0.2e1 / 0.3e1 * t22261 * t22720 + 0.2e1 / 0.3e1 * t4173 * t94472 + t4173 * t94646 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t94520 + 0.10e2 / 0.3e1 * t90750 * t22736 + 0.2e1 / 0.3e1 * t15686 * t22251 - t5464 * t95920 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t94637 - 0.4e1 * t16016 * t5606 - 0.4e1 * t2442 * t22841 + 0.10e2 / 0.3e1 * t90744 * t22736 + 0.10e2 / 0.3e1 * t90747 * t22736 + 0.10e2 / 0.3e1 * t21510 * t96007 - 0.2e1 * t15998 * t5606 - 0.4e1 * t4302 * t22841 + 0.2e1 / 0.3e1 * t15503 * t22247 + 0.2e1 / 0.3e1 * t15503 * t22251 + 0.2e1 / 0.3e1 * t15503 * t22243 + t60525 * t5450 / 0.3e1 + 0.2e1 / 0.3e1 * t61747 * t5450 + 0.2e1 / 0.3e1 * t15686 * t22275 + 0.2e1 / 0.3e1 * t15686 * t22247 + 0.10e2 / 0.3e1 * t21510 * t96010 + 0.10e2 / 0.3e1 * t21510 * t96013 + 0.5e1 / 0.3e1 * t21510 * t96016 + 0.2e1 / 0.3e1 * t4173 * t94506 + t96338 + t96361 + t96324 + t96238 + t96349 + t96311 - t94600 + t94555 - t94598 + t94560 + t94766 + t94462 - t94602 - t94543 - 0.2e1 * t449 * t1307 * t17951 - 0.2e1 * t449 * t16945 * t1347 + t94531 + t94756 - t94541 + t94678 + t94551 - t94549 + t94760 + t94546 - t94748 - t94798 - t94605 - t94804 - t94806 - t94616 + t94659 + t94769 + t94650 - t94812 + t94764 + t96284 - t94809 - t94800 - t94802 + t94669 + t94753;
29781   t96387 = t370 * t96365 * params->d + 0.6e1 * t1318 * t18025 + 0.12e2 * t1318 * t18028 + 0.6e1 * t1318 * t18031 + 0.3e1 * t1359 * t17064 + 0.3e1 * t3752 * t5616 + 0.12e2 * t4683 * t4918 + t94331 + t94335 + t94337 + t94340 + t94346 + t94355 + t94358 + t94361 + t94363 + t94366;
29782   t96396 = 0.6e1 * t1127 * t22859 + 0.3e1 * t1318 * t18034 + 0.6e1 * t3749 * t5616 + 0.6e1 * t4683 * t4921 + t94369 + t94372 + t94374 + t94376 + t94378 + t94380 + t94406 + t94408 + t94413 + t94851 + t94853 + t94855 + t94859 + t94862;
29783   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29784     v4rho2sigmatau[17] = t1316 * t18037 + t5612 * t3755 + 0.2e1 * t1123 * t22869 + 0.2e1 * t4679 * t4924 + t1355 * t17072 + 0.2e1 * t93744 + 0.2e1 * t22851 * t1130 + 0.2e1 * t93698 + 0.2e1 * t93697 + t7 * t96365 * t372 + 0.2e1 * t93365 + t18001 * t1320 + 0.2e1 * t93699 + 0.2e1 * t93702 + t17054 * t1362 + t872 * (t96387 + t96396) + 0.2e1 * t4908 * t4687 + 0.2e1 * t93703 + t3741 * t5620 + 0.2e1 * t93745;
29785 
29786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29787     v4rho2lapl2[0] = 0.0e0;
29788 
29789   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29790     v4rho2lapl2[1] = 0.0e0;
29791 
29792   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29793     v4rho2lapl2[2] = 0.0e0;
29794 
29795   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29796     v4rho2lapl2[3] = 0.0e0;
29797 
29798   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29799     v4rho2lapl2[4] = 0.0e0;
29800 
29801   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29802     v4rho2lapl2[5] = 0.0e0;
29803 
29804   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29805     v4rho2lapl2[6] = 0.0e0;
29806 
29807   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29808     v4rho2lapl2[7] = 0.0e0;
29809 
29810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29811     v4rho2lapl2[8] = 0.0e0;
29812 
29813   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29814     v4rho2lapltau[0] = 0.0e0;
29815 
29816   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29817     v4rho2lapltau[1] = 0.0e0;
29818 
29819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29820     v4rho2lapltau[2] = 0.0e0;
29821 
29822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29823     v4rho2lapltau[3] = 0.0e0;
29824 
29825   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29826     v4rho2lapltau[4] = 0.0e0;
29827 
29828   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29829     v4rho2lapltau[5] = 0.0e0;
29830 
29831   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29832     v4rho2lapltau[6] = 0.0e0;
29833 
29834   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29835     v4rho2lapltau[7] = 0.0e0;
29836 
29837   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29838     v4rho2lapltau[8] = 0.0e0;
29839 
29840   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29841     v4rho2lapltau[9] = 0.0e0;
29842 
29843   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29844     v4rho2lapltau[10] = 0.0e0;
29845 
29846   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29847     v4rho2lapltau[11] = 0.0e0;
29848 
29849   t96404 = t22936 * t372;
29850   t96406 = t5643 * t878;
29851   t96409 = 0.22e2 / 0.9e1 * t1440 * t5631;
29852   t96410 = t64942 * t22889;
29853   t96412 = t424 * t22895;
29854   t96414 = t17125 * t22900;
29855   t96419 = t22893 * t5630;
29856   t96433 = t22893 * t22898;
29857   t96437 = t5626 * t5769;
29858   t96444 = t96409 + 0.4e1 * t96410 + 0.40e2 / 0.9e1 * t96412 - 0.40e2 / 0.9e1 * t96414 + 0.3e1 * t64949 * t22888 * t1494 + 0.5e1 * t17133 * t96419 * t459 - 0.5e1 * t17133 * t22899 * t17140 - 0.3e1 / 0.4e1 * t17133 * t22888 * t1511 + 0.65e2 / 0.18e2 * t58 * t1493 * t273 * t5630 - 0.50e2 / 0.9e1 * t4699 * t96433 * t414 + 0.35e2 / 0.18e2 * t4699 * t96437 * t1423 + 0.5e1 / 0.6e1 * t4699 * t22899 * t1427;
29859   t96445 = my_piecewise3(t95, 0, t96444);
29860   t96480 = 0.2e1 * t1516 * t227 * t5634 * t81 + 0.4e1 * t227 * t22904 * t464 * t81 + 0.2e1 * t227 * t81 * t96 * t96445 + 0.4e1 * t17161 * t4721 * t81 - 0.4e1 * t22904 * t449 * t857 - 0.16e2 * t22916 * t400 * t443 + 0.4e1 * t22925 * t751 * t81 + 0.4e1 * t22929 * t751 * t81 - 0.2e1 * t2331 * t449 * t5634 + 0.4e1 * t22933 * t397 - 0.2e1 * t5635 * t6587;
29861   t96506 = 0.8e1 * t17112 * t4714 * t81 + 0.2e1 * t2101 * t5639 * t81 - 0.2e1 * t363 * t449 * t96445 + 0.2e1 * t1391 * t5640 - 0.4e1 * t1476 * t22905 - 0.8e1 * t17080 * t5660 - 0.4e1 * t22883 * t2448 + 0.4e1 * t22916 * t397 - 0.8e1 * t22977 * t4715 - 0.4e1 * t5635 * t7847 - 0.2e1 * t5635 * t8308;
29862   t96533 = 0.40e2 * t1397 * t1398 * t5637 + 0.40e2 * t1398 * t22921 * t7757 - 0.2e1 * t1473 * t363 * t5622 + 0.2e1 * t1391 * t5637 - 0.4e1 * t1476 * t22883 - 0.4e1 * t17166 * t5660 - 0.4e1 * t22872 * t857 - 0.4e1 * t22905 * t2448 + 0.4e1 * t22926 * t397 + 0.4e1 * t22930 * t397 - 0.2e1 * t2331 * t5623;
29863   t96539 = t22904 * t227;
29864   t96545 = t5634 * t751;
29865   t96561 = t4714 * t4714;
29866   t96568 = -0.8e1 * t1470 * t22921 * t4720 - 0.8e1 * t1470 * t400 * t5637 + 0.2e1 * t2101 * t5622 * t81 + 0.4e1 * t227 * t81 * t96561 - 0.4e1 * t363 * t82 * t96561 - 0.16e2 * t443 * t4720 * t96539 - 0.16e2 * t443 * t4720 * t96545 - 0.16e2 * t1392 * t22910 - 0.16e2 * t17094 * t22922 - 0.32e2 * t17098 * t23023 - 0.16e2 * t17116 * t22922 + 0.8e1 * t22913 * t397;
29867   t96570 = t96480 + t96506 + t96533 + t96568;
29868   t96576 = t4736 * t1341;
29869   t96578 = t1333 * t4754;
29870   t96586 = t869 * t5658;
29871   t96588 = t368 * t22974;
29872   t96620 = 0.6e1 * t1516 * t369 * t5639 + 0.12e2 * t22929 * t369 * t464 + 0.24e2 * t369 * t4714 * t4725 + 0.12e2 * t1336 * t17218 + 0.24e2 * t1336 * t17221 + 0.6e1 * t22948 * t875 + 0.24e2 * t22963 * t873 + 0.12e2 * t22968 * t873 + 0.3e1 * t2363 * t5655 + 0.6e1 * t2367 * t5648 + 0.3e1 * t2370 * t5648 + 0.12e2 * t4742 * t4751;
29873   t96652 = 0.12e2 * t1329 * t17161 * t369 + 0.6e1 * t1481 * t369 * t5634 + 0.6e1 * t1516 * t369 * t5622 + 0.12e2 * t369 * t96 * t96561 + 0.3e1 * t369 * t96445 * t97 + t370 * t96570 * params->d + 0.12e2 * t1336 * t17224 + 0.6e1 * t1336 * t17227 + 0.6e1 * t1338 * t17204 + 0.12e2 * t22960 * t873 + 0.6e1 * t22971 * t873 + 0.6e1 * t2363 * t5652 + 0.24e2 * t4742 * t4748;
29874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29875     v4rho2tau2[0] = 0.2e1 * t96404 + 0.2e1 * t96406 + t7 * t96570 * t372 + 0.2e1 * t22937 * t878 + t5644 * t2373 + 0.4e1 * t96576 + 0.4e1 * t96578 + 0.2e1 * t17192 * t1341 + 0.4e1 * t4737 * t4754 + 0.2e1 * t1334 * t17230 + 0.2e1 * t96586 + 0.2e1 * t96588 + t2359 * t5658 + 0.2e1 * t870 * t22974 + t872 * (t96620 + t96652);
29876 
29877   t96658 = t5675 * t878;
29878   t96663 = t1333 * t4814;
29879   t96666 = t4796 * t1341;
29880   t96669 = t23054 * t372;
29881   t96672 = t869 * t5692;
29882   t96693 = t23017 * t227;
29883   t96697 = t5665 * t751;
29884   t96722 = 0.2e1 * t2101 * t5668 * t81 + 0.2e1 * t2101 * t5671 * t81 - 0.4e1 * t23017 * t449 * t857 + 0.4e1 * t23043 * t751 * t81 + 0.4e1 * t23047 * t751 * t81 - 0.16e2 * t443 * t4720 * t96693 - 0.16e2 * t443 * t4720 * t96697 - 0.16e2 * t17094 * t23040 - 0.16e2 * t17116 * t23040 - 0.4e1 * t17301 * t5660 - 0.8e1 * t17323 * t23023 - 0.4e1 * t22977 * t4776 - 0.2e1 * t5666 * t6587;
29885   t96748 = t58 * t26299 * t88;
29886   t96757 = t50 * t30;
29887   t96764 = t1431 * t84;
29888   t96769 = t49 * t30;
29889   t96782 = 0.22e2 / 0.9e1 * t64926 * t5662;
29890   t96783 = t424 * t22996;
29891   t96784 = t96783 * t23000;
29892   t96786 = t424 * t23003;
29893   t96787 = t96786 * t23007;
29894   t96789 = t17125 * t23010;
29895   t96791 = t96786 * t23013;
29896   t96810 = 0.3e1 * t96748 * t22998 * t38 * t1494 - 0.5e1 / 0.2e1 * t22997 * t23005 * t22999 * t418 + 0.5e1 / 0.2e1 * t22997 * t96757 * t22999 - 0.5e1 / 0.2e1 * t22997 * t22998 * t86841 + 0.5e1 / 0.18e2 * t23004 * t96764 * t38 * t1432 - 0.25e2 / 0.18e2 * t23004 * t96769 * t23006 + 0.25e2 / 0.18e2 * t23004 * t23005 * t37 * t418 * t414 + 0.5e1 / 0.18e2 * t23004 * t22998 * t1424 + t96782 + 0.4e1 * t96784 - 0.20e2 / 0.9e1 * t96787 + 0.20e2 / 0.9e1 * t96789 - 0.20e2 / 0.9e1 * t96791 - 0.3e1 / 0.4e1 * t22997 * t22998 * t38 * t1511 + 0.5e1 / 0.12e2 * t23004 * t23005 * t38 * t1436 + 0.10e2 / 0.9e1 * t4699 * t4766 * t3772 - 0.25e2 / 0.18e2 * t23004 * t96757 * t415 + 0.5e1 / 0.12e2 * t23004 * t22998 * t1428;
29897   t96811 = my_piecewise3(t95, 0, t96810);
29898   t96824 = 0.2e1 * t1516 * t227 * t5665 * t81 + 0.4e1 * t227 * t23017 * t464 * t81 + 0.2e1 * t227 * t81 * t96 * t96811 - 0.2e1 * t1348 * t17161 * t82 + 0.4e1 * t23026 * t751 * t81 + 0.4e1 * t23030 * t751 * t81 - 0.2e1 * t363 * t449 * t96811 - 0.16e2 * t17237 * t23023 - 0.2e1 * t17276 * t5660 - 0.4e1 * t22980 * t4761 + 0.4e1 * t23034 * t397 + 0.4e1 * t23051 * t397 - 0.4e1 * t5666 * t7847;
29899   t96855 = -0.2e1 * t1326 * t1348 * t1473 - 0.4e1 * t1348 * t446 * t4714 - 0.2e1 * t2331 * t449 * t5665 + 0.2e1 * t1391 * t5672 - 0.4e1 * t1476 * t22991 - 0.4e1 * t1476 * t23018 - 0.4e1 * t22977 * t4761 - 0.4e1 * t22980 * t4776 - 0.4e1 * t22991 * t2448 - 0.4e1 * t23018 * t2448 + 0.4e1 * t23044 * t397 + 0.4e1 * t23048 * t397 - 0.2e1 * t5666 * t8308;
29900   t96870 = t400 * t4714;
29901   t96878 = t1392 * t1326;
29902   t96881 = t1397 * t1326;
29903   t96893 = 0.2e1 * t1326 * t17275 * t227 * t81 + 0.2e1 * t1347 * t17161 * t227 * t81 + 0.4e1 * t227 * t4714 * t4775 * t81 + 0.40e2 * t1398 * t23039 * t7757 - 0.8e1 * t1470 * t23039 * t4720 + 0.2e1 * t1391 * t5669 - 0.2e1 * t17248 * t5660 + 0.40e2 * t17281 * t96881 - 0.16e2 * t17329 * t23023 + 0.4e1 * t23027 * t397 + 0.4e1 * t23031 * t397 - 0.16e2 * t4782 * t96870 - 0.16e2 * t4782 * t96878;
29904   t96895 = t96722 + t96824 + t96855 + t96893;
29905   t96926 = 0.6e1 * t1326 * t17292 * t369 + 0.12e2 * t1326 * t17297 * t369 + 0.6e1 * t1326 * t17310 * t369 + 0.6e1 * t1350 * t17161 * t369 + 0.6e1 * t1481 * t369 * t5665 + 0.12e2 * t369 * t4714 * t4785 + 0.12e2 * t369 * t4714 * t4789 + t370 * t96895 * params->d + 0.6e1 * t1336 * t17360 + 0.3e1 * t1336 * t17369 + 0.6e1 * t1357 * t17218 + 0.12e2 * t1357 * t17221 + 0.6e1 * t1357 * t17224 + 0.6e1 * t2363 * t5686 + 0.3e1 * t2363 * t5689 + 0.3e1 * t2370 * t5680 + 0.6e1 * t4742 * t4811;
29906   t96966 = 0.6e1 * t1516 * t369 * t5671 + 0.12e2 * t23047 * t369 * t464 + 0.3e1 * t369 * t96811 * t97 + 0.12e2 * t1336 * t17363 + 0.6e1 * t1336 * t17366 + 0.3e1 * t1338 * t17346 + 0.3e1 * t1357 * t17227 + 0.3e1 * t1359 * t17204 + 0.6e1 * t23066 * t875 + 0.12e2 * t23084 * t873 + 0.12e2 * t23087 * t873 + 0.12e2 * t23090 * t873 + 0.12e2 * t23095 * t873 + 0.6e1 * t23098 * t873 + 0.6e1 * t2367 * t5680 + 0.12e2 * t4742 * t4808 + 0.12e2 * t4748 * t4802 + 0.6e1 * t4751 * t4802;
29907   t96969 = t368 * t23101;
29908   t96974 = t1354 * t4754;
29909   t96978 = t4736 * t1362;
29910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29911     v4rho2tau2[1] = t17334 * t1341 + 0.2e1 * t4797 * t4754 + 0.2e1 * t96658 + t1355 * t17230 + 0.2e1 * t4737 * t4814 + 0.2e1 * t96663 + t1334 * t17372 + 0.2e1 * t96666 + t2359 * t5692 + 0.2e1 * t96669 + t17192 * t1362 + 0.2e1 * t96672 + 0.2e1 * t870 * t23101 + t872 * (t96926 + t96966) + 0.2e1 * t96969 + t5676 * t2373 + t7 * t96895 * t372 + 0.2e1 * t96974 + 0.2e1 * t23055 * t878 + 0.2e1 * t96978;
29912 
29913   t96980 = t23163 * t372;
29914   t96982 = t5715 * t878;
29915   t97001 = 0.22e2 / 0.9e1 * t1440 * t5703;
29916   t97002 = t64942 * t23122;
29917   t97004 = t17125 * t23127;
29918   t97015 = t5698 * t5785;
29919   t97023 = my_piecewise3(t95, 0, t97001 + 0.4e1 * t97002 - 0.40e2 / 0.9e1 * t97004 + 0.3e1 * t64949 * t23121 * t1494 - 0.5e1 * t17133 * t23126 * t17260 - 0.3e1 / 0.4e1 * t17133 * t23121 * t1511 + 0.35e2 / 0.18e2 * t4699 * t97015 * t1432 + 0.5e1 / 0.6e1 * t4699 * t23126 * t1436);
29920   t97037 = t446 * t1347;
29921   t97040 = 0.2e1 * t1516 * t227 * t5706 * t81 + 0.4e1 * t227 * t23131 * t464 * t81 + 0.40e2 * t1397 * t1398 * t5709 + 0.4e1 * t17275 * t4781 * t81 + 0.2e1 * t2101 * t5694 * t81 - 0.16e2 * t23143 * t400 * t443 - 0.2e1 * t363 * t449 * t97023 + 0.2e1 * t1391 * t5709 - 0.4e1 * t1476 * t23116 - 0.8e1 * t4776 * t97037 - 0.4e1 * t5707 * t7847;
29922   t97068 = 0.2e1 * t227 * t81 * t96 * t97023 - 0.8e1 * t1470 * t400 * t5709 + 0.8e1 * t17236 * t4775 * t81 + 0.2e1 * t2101 * t5711 * t81 + 0.2e1 * t1391 * t5712 - 0.16e2 * t1392 * t23137 - 0.8e1 * t17301 * t23107 + 0.8e1 * t23140 * t397 + 0.4e1 * t23143 * t397 + 0.4e1 * t23153 * t397 + 0.4e1 * t23157 * t397;
29923   t97089 = t23131 * t227;
29924   t97093 = t4775 * t4775;
29925   t97099 = 0.4e1 * t227 * t81 * t97093 + 0.4e1 * t23152 * t751 * t81 + 0.4e1 * t23156 * t751 * t81 - 0.2e1 * t2331 * t449 * t5706 - 0.16e2 * t443 * t4720 * t97089 - 0.16e2 * t17094 * t23149 - 0.4e1 * t23116 * t2448 + 0.4e1 * t23160 * t397 - 0.2e1 * t2331 * t5695 - 0.2e1 * t5707 * t6587 - 0.2e1 * t5707 * t8308;
29926   t97115 = t5706 * t751;
29927   t97129 = t400 * t1347;
29928   t97132 = 0.40e2 * t1398 * t23148 * t7757 - 0.8e1 * t1470 * t23148 * t4720 - 0.2e1 * t1473 * t363 * t5694 - 0.4e1 * t23131 * t449 * t857 - 0.4e1 * t363 * t82 * t97093 - 0.16e2 * t443 * t4720 * t97115 - 0.4e1 * t1476 * t23132 - 0.16e2 * t17116 * t23149 - 0.4e1 * t17276 * t23107 - 0.32e2 * t17329 * t97129 - 0.4e1 * t23104 * t857 - 0.4e1 * t23132 * t2448;
29929   t97134 = t97040 + t97068 + t97099 + t97132;
29930   t97140 = t4796 * t1362;
29931   t97142 = t1354 * t4814;
29932   t97150 = t869 * t5730;
29933   t97152 = t368 * t23201;
29934   t97183 = 0.12e2 * t1350 * t17275 * t369 + 0.12e2 * t369 * t96 * t97093 + 0.12e2 * t1357 * t17360 + 0.24e2 * t1357 * t17363 + 0.12e2 * t1357 * t17366 + 0.6e1 * t1359 * t17346 + 0.6e1 * t23175 * t875 + 0.12e2 * t23195 * t873 + 0.3e1 * t2363 * t5727 + 0.6e1 * t2367 * t5720 + 0.24e2 * t4802 * t4808 + 0.12e2 * t4802 * t4811;
29935   t97216 = 0.6e1 * t1481 * t369 * t5706 + 0.6e1 * t1516 * t369 * t5694 + 0.6e1 * t1516 * t369 * t5711 + 0.12e2 * t23156 * t369 * t464 + 0.24e2 * t369 * t4775 * t4785 + 0.3e1 * t369 * t97 * t97023 + t370 * t97134 * params->d + 0.6e1 * t1357 * t17369 + 0.12e2 * t23187 * t873 + 0.24e2 * t23190 * t873 + 0.6e1 * t23198 * t873 + 0.6e1 * t2363 * t5724 + 0.3e1 * t2370 * t5720;
29936   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29937     v4rho2tau2[2] = 0.2e1 * t96980 + 0.2e1 * t96982 + t7 * t97134 * t372 + 0.2e1 * t23164 * t878 + t5716 * t2373 + 0.4e1 * t97140 + 0.4e1 * t97142 + 0.2e1 * t17334 * t1362 + 0.4e1 * t4797 * t4814 + 0.2e1 * t1355 * t17372 + 0.2e1 * t97150 + 0.2e1 * t97152 + t2359 * t5730 + 0.2e1 * t870 * t23201 + t872 * (t97183 + t97216);
29938 
29939   t97219 = t23255 * t372;
29940   t97264 = 0.2e1 * t81 * t23244 * t751 + 0.4e1 * t81 * t4721 * t17422 - 0.2e1 * t8342 * t5635 - 0.2e1 * t1476 * t23225 - 0.2e1 * t2448 * t23225 - 0.2e1 * t449 * t857 * t23224 - 0.8e1 * t400 * t22916 * t912 + 0.2e1 * t2377 * t5640 + 0.2e1 * t881 * t22926 + 0.2e1 * t881 * t22930 + 0.2e1 * t81 * t5622 * t2866 - 0.8e1 * t400 * t23236 * t443 - 0.8e1 * t400 * t5637 * t2436 + 0.4e1 * t397 * t23233 + 0.4e1 * t81 * t17097 * t4830 + 0.2e1 * t397 * t23245 + 0.2e1 * t81 * t2478 * t5634 * t227;
29941   t97278 = t64942 * t23217;
29942   t97292 = t17125 * t23220;
29943   t97306 = t96409 + 0.2e1 * t96410 + 0.20e2 / 0.9e1 * t96412 - 0.20e2 / 0.9e1 * t96414 + 0.2e1 * t97278 + 0.3e1 * t64949 * t22888 * t14133 + 0.5e1 / 0.2e1 * t17133 * t96419 * t923 - 0.5e1 / 0.2e1 * t17133 * t22899 * t17399 - 0.3e1 / 0.4e1 * t17133 * t22888 * t2473 - 0.20e2 / 0.9e1 * t97292 - 0.5e1 / 0.2e1 * t17133 * t22899 * t17408 - 0.25e2 / 0.9e1 * t4699 * t96433 * t887 + 0.35e2 / 0.18e2 * t4699 * t96437 * t14562 + 0.5e1 / 0.6e1 * t65456 * t22899 * t4;
29944   t97307 = my_piecewise3(t95, 0, t97306);
29945   t97345 = 0.2e1 * t81 * t928 * t22904 * t227 - 0.8e1 * t17515 * t22922 + 0.2e1 * t81 * t464 * t23224 * t227 + 0.2e1 * t81 * t96 * t97307 * t227 - 0.16e2 * t23023 * t17471 + 0.2e1 * t2377 * t5637 - 0.4e1 * t5660 * t17423 - 0.2e1 * t449 * t363 * t97307 + 0.2e1 * t397 * t23236 - 0.4e1 * t23292 * t4715 - 0.4e1 * t5660 * t17499 - 0.8e1 * t17116 * t23241 - 0.8e1 * t17094 * t23241 - 0.8e1 * t4720 * t96539 * t912 + 0.2e1 * t397 * t23249 - 0.8e1 * t4720 * t96545 * t912 + 0.4e1 * t81 * t17451 * t4714 + 0.2e1 * t81 * t22925 * t1037;
29946   t97350 = t5634 * t1037;
29947   t97360 = t23224 * t227;
29948   t97389 = -0.8e1 * t4720 * t22921 * t2436 - 0.8e1 * t4720 * t97350 * t443 - 0.2e1 * t14120 * t5635 - 0.2e1 * t14123 * t5635 - 0.2e1 * t4302 * t22883 - 0.8e1 * t4720 * t97360 * t443 - 0.8e1 * t1392 * t23230 - 0.2e1 * t2442 * t22905 - 0.2e1 * t449 * t1110 * t22904 - 0.2e1 * t4302 * t22905 - 0.4e1 * t22977 * t4831 - 0.4e1 * t22980 * t4831 - 0.4e1 * t5660 * t17383 + 0.4e1 * t81 * t17112 * t4830 - 0.8e1 * t17457 * t22922 - 0.2e1 * t2439 * t5622 * t363 + 0.2e1 * t397 * t23252;
29949   t97404 = t227 * t912 * t443;
29950   t97434 = 0.2e1 * t81 * t22929 * t1037 - 0.2e1 * t23203 * t857 + 0.2e1 * t81 * t23248 * t751 - 0.8e1 * t2378 * t22910 + 0.4e1 * t881 * t22913 + 0.40e2 * t1397 * t5622 * t97404 - 0.16e2 * t23023 * t17509 + 0.40e2 * t7757 * t22921 * t2383 - 0.2e1 * t1476 * t23214 - 0.2e1 * t2448 * t23214 - 0.2e1 * t449 * t3091 * t5634 - 0.2e1 * t5623 * t3091 - 0.2e1 * t9859 * t5635 - 0.2e1 * t2442 * t22883 + 0.2e1 * t881 * t22933 + 0.2e1 * t81 * t5639 * t2866 + 0.2e1 * t881 * t22916 - 0.2e1 * t22872 * t1110;
29951   t97436 = t97264 + t97345 + t97389 + t97434;
29952   t97440 = t5643 * t1130;
29953   t97445 = t4850 * t1341;
29954   t97449 = t372 * t7 * t97436 + t1130 * t22937 + 0.2e1 * t1341 * t17528 + t23256 * t878 + t3144 * t5644 + t96404 + t96406 + 0.2e1 * t96576 + 0.2e1 * t96578 + t97219 + t97440 + 0.2e1 * t97445;
29955   t97452 = t1333 * t4867;
29956   t97458 = t1122 * t5658;
29957   t97461 = t368 * t23290;
29958   t97502 = 0.12e2 * t1329 * t17422 * t369 + 0.6e1 * t23248 * t369 * t464 + 0.12e2 * t369 * t4714 * t4839 + 0.12e2 * t369 * t4725 * t4830 + 0.12e2 * t369 * t4729 * t4830 + 0.12e2 * t1125 * t22963 + 0.6e1 * t1125 * t22968 + 0.12e2 * t1336 * t17568 + 0.6e1 * t1338 * t17539 + 0.3e1 * t23264 * t875 + 0.6e1 * t23276 * t873 + 0.6e1 * t23284 * t873 + 0.3e1 * t23287 * t873 + 0.3e1 * t3132 * t5655 + 0.12e2 * t4742 * t4861 + 0.6e1 * t4742 * t4864 + 0.12e2 * t4748 * t4855;
29959   t97544 = 0.6e1 * t22925 * t369 * t928 + 0.6e1 * t22929 * t369 * t928 + 0.6e1 * t2478 * t369 * t5622 + 0.6e1 * t2478 * t369 * t5639 + 0.3e1 * t369 * t97 * t97307 + t370 * t97436 * params->d + 0.6e1 * t1125 * t22960 + 0.3e1 * t1125 * t22971 + 0.3e1 * t1127 * t22948 + 0.12e2 * t1336 * t17557 + 0.12e2 * t1336 * t17560 + 0.12e2 * t1336 * t17563 + 0.6e1 * t1336 * t17571 + 0.12e2 * t23279 * t873 + 0.6e1 * t3132 * t5652 + 0.6e1 * t3138 * t5648 + 0.3e1 * t3141 * t5648 + 0.6e1 * t4751 * t4855;
29960   t97547 = 0.2e1 * t4851 * t4754 + 0.2e1 * t97452 + 0.2e1 * t4737 * t4867 + 0.2e1 * t1334 * t17574 + t96586 + t96588 + t97458 + t3127 * t5658 + t1123 * t22974 + t97461 + t870 * t23290 + t872 * (t97502 + t97544);
29961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29962     v4rho2tau2[3] = t97449 + t97547;
29963 
29964   t97553 = t4907 * t1341;
29965   t97602 = 0.2e1 * t227 * t23017 * t81 * t928 + 0.2e1 * t227 * t2478 * t5665 * t81 + 0.2e1 * t1037 * t23047 * t81 + 0.40e2 * t23039 * t2383 * t7757 + 0.2e1 * t23348 * t751 * t81 + 0.2e1 * t23352 * t751 * t81 - 0.8e1 * t4720 * t912 * t96693 - 0.8e1 * t17094 * t23345 - 0.8e1 * t17116 * t23345 + 0.2e1 * t23034 * t881 + 0.2e1 * t23349 * t397;
29966   t97610 = t400 * t4830;
29967   t97642 = t37 * t897;
29968   t97660 = t17125 * t23313;
29969   t97663 = t58 * t1493 * t44;
29970   t97666 = t5742 * t23003;
29971   t97671 = t96783 * t23310;
29972   t97673 = t96782 + 0.10e2 / 0.9e1 * t96789 - 0.5e1 / 0.4e1 * t22997 * t22998 * t89547 - 0.5e1 / 0.4e1 * t22997 * t23005 * t23316 * t459 + 0.5e1 / 0.18e2 * t23004 * t96764 * t23316 * t418 + 0.25e2 / 0.36e2 * t23004 * t23005 * t97642 * t414 - 0.5e1 / 0.4e1 * t22997 * t22998 * t89554 + 0.25e2 / 0.36e2 * t23004 * t23005 * t888 * t418 + 0.5e1 / 0.18e2 * t23004 * t22998 * t2397 + 0.25e2 / 0.36e2 * t4699 * t1274 * t1132 + 0.10e2 / 0.9e1 * t97660 - 0.25e2 / 0.36e2 * t97663 * t23013 - 0.5e1 / 0.12e2 * t97666 * t23005 * t38 * t4 + 0.2e1 * t97671;
29973   t97677 = t96786 * t23317;
29974   t97682 = t96786 * t23320;
29975   t97695 = t58 * t5751 * t44;
29976   t97710 = 0.5e1 / 0.4e1 * t22997 * t96757 * t23309 - 0.10e2 / 0.9e1 * t97677 - 0.25e2 / 0.36e2 * t23004 * t96769 * t23316 - 0.10e2 / 0.9e1 * t97682 - 0.25e2 / 0.36e2 * t23004 * t96757 * t888 + 0.5e1 / 0.12e2 * t97666 * t22998 * t2400 - 0.3e1 / 0.4e1 * t22997 * t22998 * t38 * t2473 + 0.5e1 / 0.4e1 * t97695 * t23000 - 0.25e2 / 0.36e2 * t97663 * t23007 + 0.2e1 * t96784 - 0.10e2 / 0.9e1 * t96787 - 0.10e2 / 0.9e1 * t96791 + 0.3e1 * t96748 * t22998 * t89542 - 0.5e1 / 0.4e1 * t22997 * t23005 * t23309 * t418;
29977   t97712 = my_piecewise3(t95, 0, t97673 + t97710);
29978   t97720 = t23324 * t227;
29979   t97728 = t5665 * t1037;
29980   t97748 = 0.2e1 * t1037 * t23030 * t81 - 0.2e1 * t1326 * t1348 * t2439 + 0.2e1 * t2866 * t5671 * t81 - 0.2e1 * t363 * t449 * t97712 - 0.8e1 * t443 * t4720 * t97720 - 0.8e1 * t443 * t4720 * t97728 - 0.2e1 * t14120 * t5666 - 0.8e1 * t17599 * t23023 - 0.8e1 * t17608 * t23023 - 0.8e1 * t17619 * t23023 - 0.2e1 * t5666 * t8342;
29981   t97770 = t2378 * t1326;
29982   t97799 = 0.2e1 * t1037 * t23026 * t81 - 0.8e1 * t17457 * t23040 - 0.2e1 * t17581 * t5660 - 0.2e1 * t22977 * t4873 - 0.2e1 * t22980 * t4873 + 0.2e1 * t23044 * t881 + 0.2e1 * t23048 * t881 + 0.2e1 * t23051 * t881 + 0.2e1 * t23340 * t397 + 0.2e1 * t2377 * t5672 - 0.8e1 * t4893 * t96870;
29983   t97842 = -t1110 * t23017 * t449 - t1348 * t4714 * t915 + t23336 * t751 * t81 - t14123 * t5666 - t22991 * t4302 + t23027 * t881 + t23031 * t881 - t23292 * t4761 - t23292 * t4776 + t2377 * t5669 - t5666 * t9859;
29984   t97846 = -0.2e1 * t5660 * t17689 - 0.8e1 * t23023 * t17711 - 0.8e1 * t23023 * t17707 - 0.2e1 * t23295 * t4761 - 0.2e1 * t23295 * t4776 - 0.2e1 * t4302 * t23018 - 0.2e1 * t1476 * t23306 - 0.2e1 * t2448 * t23306 - 0.2e1 * t2442 * t22991 - 0.8e1 * t97770 * t4782 - 0.8e1 * t96878 * t4893 - 0.8e1 * t97610 * t4782 + 0.2e1 * t397 * t23337 - 0.8e1 * t17515 * t23040 + 0.40e2 * t96881 * t17611 - 0.2e1 * t22977 * t4888 - 0.2e1 * t22980 * t4888 - 0.2e1 * t5660 * t17685 - 0.2e1 * t5660 * t17681 - 0.2e1 * t1476 * t23325 - 0.2e1 * t2442 * t23018 + 0.2e1 * t397 * t23353 + 0.2e1 * t397 * t23356 + 0.2e1 * t397 * t23333 - 0.2e1 * t2448 * t23325 + 0.2e1 * t97842 + t97799 + t97602 + t97748 + 0.2e1 * t81 * t23332 * t751 + 0.2e1 * t81 * t23043 * t1037 - 0.2e1 * t449 * t3091 * t5665 - 0.8e1 * t4720 * t96697 * t912 - 0.8e1 * t4720 * t23039 * t2436 - 0.2e1 * t449 * t857 * t23324 - 0.2e1 * t446 * t4830 * t1348 + 0.2e1 * t81 * t4714 * t4887 * t227 + 0.2e1 * t81 * t1326 * t17677 * t227 + 0.2e1 * t81 * t464 * t23324 * t227 + 0.2e1 * t81 * t96 * t97712 * t227 + 0.2e1 * t81 * t17422 * t1347 * t227 + 0.2e1 * t81 * t4830 * t4775 * t227 - 0.2e1 * t82 * t17422 * t1348 + 0.2e1 * t81 * t5668 * t2866;
29985   t97870 = 0.3e1 * t369 * t97 * t97712 + t370 * t97846 * params->d + 0.6e1 * t1125 * t23095 + 0.3e1 * t1125 * t23098 + 0.3e1 * t1127 * t23066 + 0.6e1 * t1357 * t17568 + 0.3e1 * t1357 * t17571 + 0.6e1 * t23397 * t873 + 0.6e1 * t3138 * t5680 + 0.3e1 * t3141 * t5680 + 0.6e1 * t4808 * t4855 + 0.3e1 * t4811 * t4855;
29986   t97902 = 0.6e1 * t1326 * t17678 * t369 + 0.6e1 * t1350 * t17422 * t369 + 0.6e1 * t369 * t4714 * t4900 + 0.6e1 * t369 * t4785 * t4830 + 0.6e1 * t369 * t4789 * t4830 + 0.6e1 * t1336 * t17754 + 0.3e1 * t1338 * t17730 + 0.3e1 * t23400 * t873 + 0.3e1 * t3132 * t5689 + 0.3e1 * t4742 * t4921 + 0.6e1 * t4748 * t4912 + 0.3e1 * t4751 * t4912 + 0.6e1 * t4802 * t4861;
29987   t97937 = 0.6e1 * t1326 * t17593 * t369 + 0.6e1 * t1326 * t17614 * t369 + 0.6e1 * t1326 * t17638 * t369 + 0.6e1 * t23043 * t369 * t928 + 0.6e1 * t23047 * t369 * t928 + 0.6e1 * t23352 * t369 * t464 + 0.6e1 * t369 * t4714 * t4896 + 0.6e1 * t1125 * t23087 + 0.6e1 * t1125 * t23090 + 0.6e1 * t1357 * t17557 + 0.3e1 * t23368 * t875 + 0.6e1 * t23386 * t873 + 0.6e1 * t4742 * t4918;
29988   t97965 = 0.6e1 * t2478 * t369 * t5671 + 0.6e1 * t1125 * t23084 + 0.6e1 * t1336 * t17748 + 0.6e1 * t1336 * t17751 + 0.6e1 * t1336 * t17759 + 0.3e1 * t1336 * t17762 + 0.6e1 * t1357 * t17560 + 0.6e1 * t1357 * t17563 + 0.3e1 * t1359 * t17539 + 0.6e1 * t23389 * t873 + 0.6e1 * t23392 * t873 + 0.6e1 * t3132 * t5686 + 0.3e1 * t4802 * t4864;
29989   t97972 = t1354 * t4867;
29990   t97973 = t1355 * t17574 + t96969 + t4737 * t4924 + t1123 * t23101 + t96672 + t4851 * t4814 + t96666 + t4908 * t4754 + t97553 + t872 * (t97870 + t97902 + t97937 + t97965) + t17719 * t1341 + t96974 + t870 * t23403 + t96669 + t3127 * t5692 + t97972;
29991   t97975 = t368 * t23403;
29992   t97978 = t4850 * t1362;
29993   t97980 = t1333 * t4924;
29994   t97981 = t23359 * t372;
29995   t97982 = t1122 * t5692;
29996   t97985 = t5675 * t1130;
29997   t97988 = t372 * t7 * t97846 + t1130 * t23055 + t1334 * t17765 + t1362 * t17528 + t23360 * t878 + t3144 * t5676 + t4797 * t4867 + t96658 + t96663 + t96978 + t97975 + t97978 + t97980 + t97981 + t97982 + t97985;
29998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29999     v4rho2tau2[4] = t97973 + t97988;
30000 
30001   t97989 = t23463 * t372;
30002   t97992 = t64942 * t23419;
30003   t98003 = t424 * t23425;
30004   t98005 = t23423 * t5702;
30005   t98009 = t23423 * t23125;
30006   t98013 = t17125 * t23428;
30007   t98024 = t97001 + 0.2e1 * t97002 - 0.20e2 / 0.9e1 * t97004 + 0.2e1 * t97992 + 0.3e1 * t64949 * t23121 * t14133 - 0.5e1 / 0.2e1 * t17133 * t23126 * t17650 - 0.3e1 / 0.4e1 * t17133 * t23121 * t2473 + 0.20e2 / 0.9e1 * t98003 + 0.5e1 / 0.2e1 * t17133 * t98005 * t459 - 0.25e2 / 0.9e1 * t4699 * t98009 * t418 - 0.20e2 / 0.9e1 * t98013 - 0.5e1 / 0.2e1 * t17133 * t23126 * t17666 + 0.35e2 / 0.18e2 * t4699 * t97015 * t15482 - 0.5e1 / 0.6e1 * t65456 * t23126 * t4;
30008   t98025 = my_piecewise3(t95, 0, t98024);
30009   t98056 = t5706 * t1037;
30010   t98066 = 0.2e1 * t81 * t96 * t98025 * t227 + 0.2e1 * t397 * t23460 + 0.2e1 * t881 * t23153 + 0.2e1 * t881 * t23157 + 0.4e1 * t881 * t23140 + 0.2e1 * t81 * t23452 * t751 + 0.2e1 * t881 * t23160 - 0.2e1 * t2448 * t23416 - 0.2e1 * t449 * t3091 * t5706 - 0.2e1 * t23104 * t1110 - 0.2e1 * t5695 * t3091 - 0.8e1 * t17457 * t23149 - 0.2e1 * t2442 * t23132 - 0.8e1 * t4720 * t98056 * t443 - 0.8e1 * t17515 * t23149 - 0.16e2 * t97129 * t17619 - 0.2e1 * t14120 * t5707;
30011   t98073 = t82 * t4775;
30012   t98078 = t915 * t1347;
30013   t98092 = t23432 * t227;
30014   t98114 = -0.2e1 * t14123 * t5707 - 0.2e1 * t4302 * t23116 - 0.2e1 * t2442 * t23116 - 0.4e1 * t98073 * t4888 - 0.4e1 * t23107 * t17685 - 0.4e1 * t98078 * t4776 + 0.2e1 * t397 * t23444 + 0.2e1 * t81 * t5694 * t2866 - 0.8e1 * t4720 * t97115 * t912 - 0.8e1 * t4720 * t23148 * t2436 - 0.8e1 * t4720 * t98092 * t443 - 0.8e1 * t400 * t5709 * t2436 - 0.8e1 * t2378 * t23137 + 0.2e1 * t397 * t23457 + 0.2e1 * t81 * t464 * t23432 * t227 + 0.2e1 * t2377 * t5712 - 0.2e1 * t23405 * t857 + 0.4e1 * t81 * t17710 * t4775;
30015   t98157 = 0.40e2 * t7757 * t23148 * t2383 - 0.2e1 * t9859 * t5707 + 0.40e2 * t1397 * t5694 * t97404 - 0.2e1 * t1476 * t23416 - 0.2e1 * t2439 * t5694 * t363 - 0.2e1 * t2448 * t23433 - 0.2e1 * t449 * t857 * t23432 - 0.4e1 * t23107 * t17681 + 0.2e1 * t2377 * t5709 - 0.2e1 * t1476 * t23433 + 0.2e1 * t881 * t23143 - 0.4e1 * t97037 * t4888 - 0.8e1 * t400 * t23444 * t443 - 0.2e1 * t8342 * t5707 - 0.16e2 * t97129 * t17608 + 0.2e1 * t397 * t23453 + 0.2e1 * t81 * t2478 * t5706 * t227;
30016   t98207 = 0.2e1 * t81 * t928 * t23131 * t227 - 0.2e1 * t449 * t363 * t98025 - 0.2e1 * t449 * t1110 * t23131 - 0.8e1 * t17116 * t23449 - 0.8e1 * t17094 * t23449 - 0.8e1 * t4720 * t97089 * t912 - 0.2e1 * t4302 * t23132 + 0.4e1 * t397 * t23441 + 0.4e1 * t81 * t17328 * t4887 + 0.4e1 * t81 * t17236 * t4887 + 0.2e1 * t81 * t5711 * t2866 + 0.2e1 * t81 * t23456 * t751 + 0.4e1 * t81 * t4781 * t17677 - 0.8e1 * t400 * t23143 * t912 - 0.4e1 * t23107 * t17689 - 0.8e1 * t1392 * t23438 + 0.2e1 * t81 * t23156 * t1037 + 0.2e1 * t81 * t23152 * t1037;
30017   t98209 = t98066 + t98114 + t98157 + t98207;
30018   t98213 = t5715 * t1130;
30019   t98218 = t4907 * t1362;
30020   t98222 = t372 * t7 * t98209 + t1130 * t23164 + 0.2e1 * t1362 * t17719 + t23464 * t878 + t3144 * t5716 + t96980 + t96982 + 0.2e1 * t97140 + 0.2e1 * t97142 + t97989 + t98213 + 0.2e1 * t98218;
30021   t98225 = t1354 * t4924;
30022   t98231 = t1122 * t5730;
30023   t98234 = t368 * t23498;
30024   t98274 = 0.12e2 * t1350 * t17677 * t369 + 0.6e1 * t23152 * t369 * t928 + 0.6e1 * t23156 * t369 * t928 + 0.12e2 * t369 * t4789 * t4887 + 0.6e1 * t1125 * t23187 + 0.12e2 * t1357 * t17748 + 0.12e2 * t1357 * t17751 + 0.12e2 * t1357 * t17754 + 0.12e2 * t1357 * t17759 + 0.6e1 * t1357 * t17762 + 0.6e1 * t1359 * t17730 + 0.3e1 * t23472 * t875 + 0.6e1 * t23484 * t873 + 0.6e1 * t23492 * t873 + 0.6e1 * t3132 * t5724 + 0.6e1 * t4802 * t4921 + 0.6e1 * t4811 * t4912;
30025   t98317 = 0.12e2 * t873 * t23487 + 0.6e1 * t5720 * t3138 + params->d * t98209 * t370 + 0.6e1 * t1125 * t23195 + 0.3e1 * t23175 * t1127 + 0.3e1 * t5720 * t3141 + 0.3e1 * t873 * t23495 + 0.3e1 * t1125 * t23198 + 0.3e1 * t369 * t97 * t98025 + 0.12e2 * t4802 * t4918 + 0.3e1 * t3132 * t5727 + 0.12e2 * t1125 * t23190 + 0.6e1 * t369 * t2478 * t5694 + 0.12e2 * t4912 * t4808 + 0.6e1 * t369 * t23456 * t464 + 0.12e2 * t369 * t4785 * t4887 + 0.6e1 * t369 * t5711 * t2478 + 0.12e2 * t369 * t4896 * t4775;
30026   t98320 = 0.2e1 * t4908 * t4814 + 0.2e1 * t98225 + 0.2e1 * t4797 * t4924 + 0.2e1 * t1355 * t17765 + t97150 + t97152 + t98231 + t3127 * t5730 + t1123 * t23201 + t98234 + t870 * t23498 + t872 * (t98274 + t98317);
30027   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30028     v4rho2tau2[5] = t98222 + t98320;
30029 
30030   t98350 = 0.40e2 * t1397 * t3152 * t5637 + 0.8e1 * t17451 * t4830 * t81 + 0.4e1 * t17791 * t4721 * t81 + 0.40e2 * t22921 * t3152 * t7757 - 0.8e1 * t3209 * t400 * t5637 - 0.16e2 * t17457 * t23241 - 0.8e1 * t17821 * t5660 - 0.16e2 * t23230 * t2378 + 0.8e1 * t23233 * t881 + 0.4e1 * t23252 * t881 - 0.8e1 * t23292 * t4831;
30031   t98382 = 0.4e1 * t227 * t23224 * t81 * t928 + 0.2e1 * t227 * t3249 * t5634 * t81 - 0.8e1 * t22921 * t3209 * t4720 - 0.2e1 * t3212 * t363 * t5622 + 0.2e1 * t3530 * t5639 * t81 - 0.16e2 * t4720 * t912 * t97350 - 0.16e2 * t4720 * t912 * t97360 - 0.4e1 * t1110 * t23203 - 0.16e2 * t17515 * t23241 + 0.4e1 * t23245 * t881 + 0.2e1 * t3149 * t5640;
30032   t98409 = 0.4e1 * t1037 * t23244 * t81 + 0.2e1 * t3530 * t5622 * t81 - 0.2e1 * t3714 * t449 * t5634 - 0.2e1 * t15998 * t5635 - 0.4e1 * t23214 * t2442 - 0.4e1 * t23214 * t4302 - 0.4e1 * t23225 * t4302 + 0.4e1 * t23236 * t881 + 0.4e1 * t23249 * t881 + 0.2e1 * t3149 * t5637 - 0.2e1 * t5635 * t9866;
30033   t98418 = t4830 * t4830;
30034   t98440 = my_piecewise3(t95, 0, t96409 + 0.4e1 * t97278 - 0.40e2 / 0.9e1 * t97292 + 0.3e1 * t64949 * t22888 * t3227 - 0.5e1 * t17133 * t22899 * t17777 - 0.3e1 / 0.4e1 * t17133 * t22888 * t3244 + 0.35e2 / 0.18e2 * t4699 * t96437 * t3164 + 0.5e1 / 0.6e1 * t4699 * t22899 * t3168);
30035   t98462 = 0.2e1 * t227 * t81 * t96 * t98440 + 0.4e1 * t1037 * t23248 * t81 - 0.4e1 * t1110 * t23224 * t449 + 0.4e1 * t227 * t81 * t98418 - 0.16e2 * t23236 * t400 * t912 - 0.2e1 * t363 * t449 * t98440 - 0.4e1 * t363 * t82 * t98418 - 0.4e1 * t16016 * t5635 - 0.32e2 * t17831 * t23023 - 0.4e1 * t17847 * t5660 - 0.4e1 * t23225 * t2442 - 0.2e1 * t3714 * t5623;
30036   t98464 = t98350 + t98382 + t98409 + t98462;
30037   t98510 = 0.12e2 * t1329 * t17791 * t369 + 0.12e2 * t369 * t96 * t98418 + 0.3e1 * t369 * t97 * t98440 + 0.12e2 * t1125 * t23276 + 0.24e2 * t1125 * t23279 + 0.6e1 * t1127 * t23264 + 0.12e2 * t1336 * t17884 + 0.6e1 * t1336 * t17893 + 0.6e1 * t1338 * t17870 + 0.6e1 * t3749 * t5648 + 0.3e1 * t3752 * t5648 + 0.12e2 * t4855 * t4864;
30038   t98542 = 0.12e2 * t23248 * t369 * t928 + 0.6e1 * t3219 * t369 * t5634 + 0.6e1 * t3249 * t369 * t5622 + 0.6e1 * t3249 * t369 * t5639 + 0.24e2 * t369 * t4830 * t4839 + t370 * t98464 * params->d + 0.12e2 * t1125 * t23284 + 0.6e1 * t1125 * t23287 + 0.24e2 * t1336 * t17887 + 0.12e2 * t1336 * t17890 + 0.6e1 * t3745 * t5652 + 0.3e1 * t3745 * t5655 + 0.24e2 * t4855 * t4861;
30039   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30040     v4rho2tau2[6] = 0.2e1 * t97219 + 0.2e1 * t97440 + t7 * t98464 * t372 + 0.2e1 * t23256 * t1130 + t5644 * t3755 + 0.4e1 * t97445 + 0.4e1 * t97452 + 0.2e1 * t17860 * t1341 + 0.4e1 * t4851 * t4867 + 0.2e1 * t1334 * t17896 + 0.2e1 * t97458 + 0.2e1 * t97461 + t3741 * t5658 + 0.2e1 * t1123 * t23290 + t872 * (t98510 + t98542);
30041 
30042   t98586 = 0.2e1 * t1347 * t17791 * t227 * t81 + 0.2e1 * t227 * t3249 * t5665 * t81 + 0.4e1 * t227 * t4830 * t4887 * t81 + 0.4e1 * t1037 * t23336 * t81 + 0.4e1 * t1037 * t23352 * t81 - 0.2e1 * t1348 * t17791 * t82 - 0.4e1 * t1348 * t4830 * t915 - 0.2e1 * t3714 * t449 * t5665 - 0.4e1 * t16016 * t5666 - 0.4e1 * t23292 * t4873 - 0.4e1 * t23295 * t4873 - 0.4e1 * t23295 * t4888 - 0.2e1 * t5666 * t9866;
30043   t98653 = 0.5e1 / 0.18e2 * t23004 * t22998 * t3165 - 0.3e1 / 0.4e1 * t22997 * t22998 * t38 * t3244 + 0.10e2 / 0.9e1 * t4699 * t4591 * t4700 - 0.25e2 / 0.18e2 * t97663 * t23317 - 0.25e2 / 0.18e2 * t97663 * t23320 + 0.5e1 / 0.12e2 * t23004 * t23005 * t38 * t3183 + 0.5e1 / 0.12e2 * t23004 * t22998 * t3169 + 0.4e1 * t97671 - 0.20e2 / 0.9e1 * t97677 - 0.20e2 / 0.9e1 * t97682 + 0.3e1 * t96748 * t22998 * t38 * t3227 + 0.5e1 / 0.2e1 * t97695 * t23310 - 0.5e1 / 0.2e1 * t22997 * t23005 * t23309 * t897 - 0.5e1 / 0.2e1 * t22997 * t22998 * t93922 + 0.5e1 / 0.18e2 * t23004 * t96764 * t38 * t3179 + 0.25e2 / 0.18e2 * t23004 * t23005 * t97642 * t887 + 0.20e2 / 0.9e1 * t97660 + t96782;
30044   t98654 = my_piecewise3(t95, 0, t98653);
30045   t98667 = 0.2e1 * t1326 * t17951 * t227 * t81 + 0.4e1 * t227 * t23324 * t81 * t928 - 0.4e1 * t1110 * t23324 * t449 - 0.2e1 * t363 * t449 * t98654 - 0.2e1 * t17952 * t5660 - 0.4e1 * t17960 * t5660 - 0.4e1 * t23292 * t4888 - 0.4e1 * t23325 * t2442 + 0.4e1 * t23340 * t881 + 0.4e1 * t23349 * t881 + 0.4e1 * t23353 * t881 + 0.4e1 * t23356 * t881 + 0.2e1 * t3149 * t5672;
30046   t98702 = 0.2e1 * t227 * t81 * t96 * t98654 + 0.4e1 * t1037 * t23348 * t81 - 0.2e1 * t1326 * t1348 * t3212 + 0.40e2 * t23039 * t3152 * t7757 - 0.8e1 * t23039 * t3209 * t4720 + 0.2e1 * t3530 * t5671 * t81 - 0.2e1 * t15998 * t5666 - 0.16e2 * t17457 * t23345 - 0.2e1 * t17957 * t5660 - 0.4e1 * t23306 * t2442 - 0.4e1 * t23306 * t4302 - 0.4e1 * t23325 * t4302 - 0.16e2 * t4893 * t97610;
30047   t98733 = 0.4e1 * t1037 * t23332 * t81 + 0.2e1 * t3530 * t5668 * t81 - 0.16e2 * t4720 * t912 * t97720 - 0.16e2 * t4720 * t912 * t97728 - 0.16e2 * t17515 * t23345 - 0.8e1 * t17900 * t23023 - 0.16e2 * t17917 * t23023 + 0.40e2 * t17967 * t96881 - 0.16e2 * t17994 * t23023 + 0.4e1 * t23333 * t881 + 0.4e1 * t23337 * t881 + 0.2e1 * t3149 * t5669 - 0.16e2 * t4893 * t97770;
30048   t98735 = t98586 + t98667 + t98702 + t98733;
30049   t98790 = 0.3e1 * t5680 * t3752 + 0.12e2 * t1125 * t23386 + 0.12e2 * t1125 * t23397 + 0.6e1 * t4912 * t4864 + 0.12e2 * t1336 * t18028 + 0.6e1 * t1336 * t18031 + 0.12e2 * t1125 * t23392 + 0.6e1 * t4855 * t4921 + 0.3e1 * t1357 * t17893 + 0.3e1 * t17870 * t1359 + 0.6e1 * t369 * t3219 * t5665 + params->d * t98735 * t370 + 0.6e1 * t1357 * t17884 + 0.3e1 * t18011 * t1338 + 0.3e1 * t369 * t97 * t98654 + 0.6e1 * t3745 * t5686 + 0.6e1 * t369 * t17978 * t1326;
30050   t98834 = 0.12e2 * t369 * t4900 * t4830 + 0.12e2 * t4855 * t4918 + 0.12e2 * t1357 * t17887 + 0.6e1 * t1357 * t17890 + 0.6e1 * t1336 * t18025 + 0.12e2 * t369 * t23352 * t928 + 0.12e2 * t4912 * t4861 + 0.6e1 * t369 * t1350 * t17791 + 0.12e2 * t369 * t17913 * t1326 + 0.12e2 * t369 * t4896 * t4830 + 0.6e1 * t369 * t5671 * t3249 + 0.6e1 * t369 * t17909 * t1326 + 0.3e1 * t3745 * t5689 + 0.6e1 * t1125 * t23400 + 0.6e1 * t23368 * t1127 + 0.3e1 * t1336 * t18034 + 0.6e1 * t5680 * t3749 + 0.12e2 * t1125 * t23389;
30051   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30052     v4rho2tau2[7] = 0.2e1 * t4908 * t4867 + t3741 * t5692 + t5676 * t3755 + t7 * t98735 * t372 + t17860 * t1362 + t1334 * t18037 + 0.2e1 * t4851 * t4924 + 0.2e1 * t97980 + 0.2e1 * t97975 + 0.2e1 * t1123 * t23403 + 0.2e1 * t97972 + 0.2e1 * t97978 + t18001 * t1341 + 0.2e1 * t23360 * t1130 + 0.2e1 * t97982 + 0.2e1 * t97985 + t872 * (t98790 + t98834) + 0.2e1 * t97553 + 0.2e1 * t97981 + t1355 * t17896;
30053 
30054   t98872 = 0.4e1 * t227 * t23432 * t81 * t928 + 0.2e1 * t227 * t3249 * t5706 * t81 + 0.4e1 * t1037 * t23452 * t81 + 0.4e1 * t1037 * t23456 * t81 + 0.40e2 * t1397 * t3152 * t5709 + 0.4e1 * t17951 * t4781 * t81 - 0.16e2 * t23438 * t2378 + 0.4e1 * t23453 * t881 + 0.4e1 * t23457 * t881 + 0.4e1 * t23460 * t881 + 0.2e1 * t3149 * t5712;
30055   t98895 = t4887 * t4887;
30056   t98904 = 0.4e1 * t227 * t81 * t98895 + 0.40e2 * t23148 * t3152 * t7757 - 0.8e1 * t23148 * t3209 * t4720 - 0.16e2 * t23444 * t400 * t912 - 0.8e1 * t3209 * t400 * t5709 + 0.2e1 * t3530 * t5694 * t81 - 0.2e1 * t3714 * t449 * t5706 - 0.16e2 * t4720 * t912 * t98056 - 0.4e1 * t16016 * t5707 - 0.32e2 * t17994 * t97129 + 0.8e1 * t23441 * t881;
30057   t98932 = -0.4e1 * t1110 * t23432 * t449 + 0.2e1 * t3530 * t5711 * t81 - 0.4e1 * t363 * t82 * t98895 - 0.16e2 * t4720 * t912 * t98092 - 0.16e2 * t17457 * t23449 - 0.16e2 * t17515 * t23449 - 0.4e1 * t23416 * t2442 - 0.4e1 * t23433 * t2442 - 0.4e1 * t23433 * t4302 + 0.4e1 * t23444 * t881 + 0.2e1 * t3149 * t5709;
30058   t98967 = t97001 + 0.4e1 * t97992 + 0.40e2 / 0.9e1 * t98003 - 0.40e2 / 0.9e1 * t98013 + 0.3e1 * t64949 * t23121 * t3227 + 0.5e1 * t17133 * t98005 * t923 - 0.5e1 * t17133 * t23126 * t17931 - 0.3e1 / 0.4e1 * t17133 * t23121 * t3244 + 0.65e2 / 0.18e2 * t58 * t1493 * t337 * t5702 - 0.50e2 / 0.9e1 * t4699 * t98009 * t897 + 0.35e2 / 0.18e2 * t4699 * t97015 * t3179 + 0.5e1 / 0.6e1 * t4699 * t23126 * t3183;
30059   t98968 = my_piecewise3(t95, 0, t98967);
30060   t98992 = 0.2e1 * t227 * t81 * t96 * t98968 + 0.8e1 * t17710 * t4887 * t81 - 0.2e1 * t3212 * t363 * t5694 - 0.2e1 * t363 * t449 * t98968 - 0.4e1 * t1110 * t23405 - 0.2e1 * t15998 * t5707 - 0.4e1 * t17952 * t23107 - 0.8e1 * t17960 * t23107 - 0.4e1 * t23416 * t4302 - 0.2e1 * t3714 * t5695 - 0.8e1 * t4888 * t98078 - 0.2e1 * t5707 * t9866;
30061   t98994 = t98872 + t98904 + t98932 + t98992;
30062   t99040 = 0.12e2 * t1350 * t17951 * t369 + 0.6e1 * t3219 * t369 * t5706 + 0.12e2 * t369 * t96 * t98895 + t370 * t98994 * params->d + 0.24e2 * t1125 * t23487 + 0.12e2 * t1125 * t23492 + 0.6e1 * t1125 * t23495 + 0.6e1 * t1127 * t23472 + 0.12e2 * t1357 * t18025 + 0.24e2 * t1357 * t18028 + 0.6e1 * t3745 * t5724 + 0.3e1 * t3745 * t5727;
30063   t99072 = 0.12e2 * t23456 * t369 * t928 + 0.6e1 * t3249 * t369 * t5694 + 0.6e1 * t3249 * t369 * t5711 + 0.24e2 * t369 * t4887 * t4896 + 0.3e1 * t369 * t97 * t98968 + 0.12e2 * t1125 * t23484 + 0.12e2 * t1357 * t18031 + 0.6e1 * t1357 * t18034 + 0.6e1 * t1359 * t18011 + 0.6e1 * t3749 * t5720 + 0.3e1 * t3752 * t5720 + 0.24e2 * t4912 * t4918 + 0.12e2 * t4912 * t4921;
30064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30065     v4rho2tau2[8] = 0.2e1 * t97989 + 0.2e1 * t98213 + t7 * t98994 * t372 + 0.2e1 * t23464 * t1130 + t5716 * t3755 + 0.4e1 * t98218 + 0.4e1 * t98225 + 0.2e1 * t18001 * t1362 + 0.4e1 * t4908 * t4924 + 0.2e1 * t1355 * t18037 + 0.2e1 * t98231 + 0.2e1 * t98234 + t3741 * t5730 + 0.2e1 * t1123 * t23498 + t872 * (t99040 + t99072);
30066 
30067   t99075 = t23663 * t372;
30068   t99077 = t1204 * t18210 * t3811;
30069   t99078 = t3788 * t99077;
30070   t99080 = t13167 * t23661;
30071   t99081 = t12758 * t23661;
30072   t99082 = t5044 * t18206;
30073   t99086 = t5044 * t18205 * t404;
30074   t99089 = t3758 * t23654;
30075   t99090 = t3769 * t23654;
30076   t99091 = t3780 * t23654;
30077   t99094 = t66 * t439 * t4947 * t363;
30078   t99095 = t1135 * t99094;
30079   t99097 = t66 * t23652 * t857;
30080   t99098 = t1135 * t99097;
30081   t99100 = t5044 * t18205 * t3778;
30082   t99103 = t18056 * t18455;
30083   t99106 = 0.2e1 * t99078 + t99080 + t99081 + 0.5e1 / 0.8e1 * t18082 * t99082 - 0.5e1 / 0.24e2 * t18089 * t99086 + t99089 + t99090 + t99091 + t99095 + t99098 - 0.5e1 / 0.24e2 * t18049 * t99100 - 0.5e1 / 0.24e2 * t18055 * t99103;
30084   t99107 = t97 * t5039;
30085   t99109 = t1204 * t99107 * t443;
30086   t99112 = t96 * t5039;
30087   t99114 = t1204 * t99112 * t464;
30088   t99116 = t5044 * t18211;
30089   t99119 = t12788 * t23661;
30090   t99120 = t3958 * t23660;
30091   t99121 = t3788 * t99120;
30092   t99123 = t1204 * t465 * t4954;
30093   t99124 = t3788 * t99123;
30094   t99126 = t1204 * t12780 * t4954;
30095   t99127 = t3788 * t99126;
30096   t99128 = t13167 * t23657;
30097   t99130 = t12758 * t23657;
30098   t99132 = t12788 * t23657;
30099   t99134 = t3958 * t23656;
30100   t99135 = t3788 * t99134;
30101   t99138 = t1204 * t3816 * t1143;
30102   t99139 = t3788 * t99138;
30103   t99141 = -0.5e1 / 0.2e1 * t3762 * t99109 + t3788 * t99114 - 0.5e1 / 0.24e2 * t18055 * t99116 + t99119 + t99121 + t99124 + t23662 + t99127 + 0.2e1 * t99128 + 0.2e1 * t99130 + 0.2e1 * t99132 + 0.2e1 * t99135 + 0.2e1 * t99139;
30104   t99144 = t1204 * t68170 * t1143;
30105   t99145 = t3788 * t99144;
30106   t99147 = t5044 * t18201;
30107   t99148 = t18055 * t99147;
30108   t99150 = t4947 * t363;
30109   t99152 = t1204 * t99150 * t443;
30110   t99153 = t3762 * t99152;
30111   t99156 = t1204 * t1144 * t3811;
30112   t99157 = t3788 * t99156;
30113   t99159 = t68969 * t23649;
30114   t99161 = t5044 * t18074;
30115   t99162 = t18055 * t99161;
30116   t99164 = t5044 * t18078;
30117   t99165 = t18055 * t99164;
30118   t99167 = t18654 * t4955;
30119   t99168 = 0.6e1 * t99167;
30120   t99169 = t18640 * t4955;
30121   t99170 = 0.6e1 * t99169;
30122   t99171 = t5097 * t18098;
30123   t99172 = 0.6e1 * t99171;
30124   t99173 = t18469 * t5027;
30125   t99175 = t18560 * t18063;
30126   t99176 = t18082 * t99175;
30127   t99178 = 0.2e1 * t99145 - 0.5e1 / 0.24e2 * t99148 - 0.5e1 * t99153 + 0.2e1 * t99157 - 0.5e1 / 0.24e2 * t99159 - 0.5e1 / 0.24e2 * t99162 - 0.5e1 / 0.24e2 * t99165 - t99168 - t99170 - t99172 + 0.3e1 * t99173 + 0.5e1 / 0.4e1 * t99176;
30128   t99180 = t18560 * t1144 * t404;
30129   t99181 = t18089 * t99180;
30130   t99184 = t18560 * t1144 * t3778;
30131   t99185 = t18049 * t99184;
30132   t99188 = t68216 * t1144 * t439;
30133   t99189 = t18055 * t99188;
30134   t99193 = 0.2e1 * t3977 * t23598;
30135   t99197 = t23510 * t12771;
30136   t99200 = t69373 * t18624;
30137   t99202 = 0.6e1 * t14484 * t99200;
30138   t99203 = t18335 * t18521;
30139   t99205 = 0.9e1 * t13345 * t99203;
30140   t99207 = t12791 * t4955 * t443;
30141   t99208 = t3762 * t99207;
30142   t99210 = t4948 * t3934;
30143   t99212 = t23521 * t69050;
30144   t99223 = t23557 * t1616 * t23559 / 0.192e3;
30145   t99224 = t23521 * t18224;
30146   t99239 = t4973 * t4967 * t4976;
30147   t99247 = t23564 * t5115;
30148   t99252 = t23532 * t565 * t23535;
30149   t99255 = t23569 * t23694;
30150   t99256 = t27558 * t1668;
30151   t99261 = t7024 * t6817;
30152   t99267 = t7024 * t1668;
30153   t99276 = t23570 * t23571 * t14262;
30154   t99280 = t1156 * t273;
30155   t99282 = t99255 * t69118 * t99280;
30156   t99292 = t23578 * t18308 / 0.192e3;
30157   t99294 = t99255 * t18275 * t99280;
30158   t99297 = t99212 * t4988 * t23558 * t540 / 0.64e2 + t23521 * t69068 * t61 * t23560 / 0.24e2 - t99223 - t99224 * t1684 * t23558 * t476 / 0.192e3 + t99224 * t18226 * t74668 * t3854 / 0.64e2 - t23557 * t533 * t474 * t570 * t3843 / 0.128e3 + 0.18e2 * t99239 * t4979 * t48114 - 0.18e2 * t23565 * t69101 * t527 * t577 - 0.12e2 * t99247 * t18275 * t540 - 0.6e1 * t99252 * t23573 + 0.24e2 * t99255 * t99256 * t23563 * t577 + 0.18e2 * t99255 * t99261 * t23563 * t539 * t265 - 0.18e2 * t99255 * t99267 * t4967 * t3843 + t99252 * t23577 * t4989 / 0.128e3 - 0.3e1 / 0.128e3 * t99276 * t69160 * t18292 - 0.3e1 / 0.128e3 * t99282 * t18300 + t23570 * t23576 * t51125 * t4989 / 0.128e3 - t23578 * t18304 / 0.24e2 + t99292 + t99294 * t18313 / 0.192e3;
30159   t99301 = t23581 * t1763;
30160   t99317 = t23588 * t27681;
30161   t99322 = t23552 * t748;
30162   t99326 = t23521 * t74174;
30163   t99327 = t736 * t1181;
30164   t99330 = t99326 * t210 * t99327 * t708;
30165   t99333 = t23521 * t68847 * t23524;
30166   t99334 = 0.7e1 / 0.384e3 * t99333;
30167   t99338 = t23522 * t1905 * t18128 * t1181 * t677;
30168   t99342 = t23522 * t2746 * t68861 * t3907;
30169   t99346 = t23522 * t2746 * t18128 * t3897;
30170   t99349 = t4973 * t5007 * t4976;
30171   t99350 = t5015 * t48293;
30172   t99354 = t68835 * t694 * t743;
30173   t99357 = t23528 * t5115;
30174   t99358 = t18155 * t708;
30175   t99361 = t23532 * t731;
30176   t99362 = t99361 * t23535;
30177   t99365 = t28634 * t1887;
30178   t99370 = t6345 * t6259;
30179   t99380 = t99362 * t23544;
30180   t99381 = t99380 * t23549;
30181   t99383 = t23538 * t14401;
30182   t99384 = t23536 * t99383;
30183   t99385 = t99384 * t18172;
30184   t99388 = t23536 * t23543 * t51342;
30185   t99389 = t204 * t2745;
30186   t99390 = t99389 * t709;
30187   t99391 = t99388 * t99390;
30188   t99396 = t23545 * t3897 * t202 * t203 * t23548;
30189   t99401 = t23545 * t1181 * t714 * t203 * t23548;
30190   t99402 = 0.7e1 / 0.384e3 * t99401;
30191   t99404 = t23536 * t23543 * t14401;
30192   t99405 = t99404 * t18185;
30193   t99407 = t99330 / 0.128e3 + t99334 + t99338 / 0.64e2 + t99342 / 0.128e3 - t99346 / 0.256e3 + 0.18e2 * t99349 * t99350 - 0.18e2 * t23529 * t99354 - 0.12e2 * t99357 * t99358 - 0.6e1 * t99362 * t23540 + 0.24e2 * t23695 * t99365 * t23527 * t743 + 0.18e2 * t23695 * t99370 * t23527 * t707 * t194 - 0.18e2 * t23695 * t23696 * t5007 * t3897 + t99381 / 0.256e3 - 0.3e1 / 0.256e3 * t99385 - 0.3e1 / 0.256e3 * t99391 + t99396 / 0.256e3 - t99402 - t99405 / 0.64e2;
30194   t99409 = t175 * t99407 * t748;
30195   t99411 = t23552 * t2093;
30196   t99424 = t23596 * t6117;
30197   t99431 = t23596 * t28769;
30198   t99435 = -0.3e1 * t1190 * t2849 * t69369 + 0.3e1 * t1768 * t677 * t99322 + 0.6e1 * t1768 * t677 * t99424 - 0.3e1 * t18335 * t2849 * t3919 + 0.6e1 * t18345 * t2849 * t3919 - t2849 * t746 * t99411 - 0.6e1 * t2849 * t746 * t99431 + t169 * t99409 - 0.9e1 * t1768 * t99203 + 0.6e1 * t2849 * t99200;
30199   t99436 = my_piecewise3(t296, t169 * t99297 * t581 / 0.2e1 - t169 * t99301 * t580 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t69332 * t1169 + 0.3e1 * t74687 * t12927 * t580 - 0.3e1 / 0.2e1 * t169 * t18320 * t3866 + 0.3e1 * t169 * t18326 * t3866 - 0.3e1 * t169 * t99317 * t580, t99435);
30200   t99439 = my_piecewise3(t359, 0, t99435);
30201   t99440 = t99439 * t46;
30202   t99441 = t23604 * t436;
30203   t99448 = -0.5e1 / 0.12e2 * t99181 - 0.5e1 / 0.12e2 * t99185 - 0.5e1 / 0.12e2 * t99189 - t447 * t23607 + t99193 + 0.5e1 / 0.192e3 * t26602 * t23506 * t23511 + 0.5e1 / 0.192e3 * t23507 * t99197 + t99202 - t99205 - 0.5e1 * t99208 - 0.6e1 * t99210 - t98 * (t23602 * t413 / 0.2e1 + t99436 * t34 / 0.2e1 + t99440 / 0.2e1 + t99441 / 0.2e1) - 0.2e1 * t449 * t23607 * t464;
30204   t99451 = t5060 * t18190;
30205   t99453 = t3977 * t23554;
30206   t99454 = t1214 * t99409;
30207   t99455 = t2448 * t23620;
30208   t99458 = t449 * t18357 * t1143;
30209   t99460 = t1476 * t23620;
30210   t99462 = t5097 * t18194;
30211   t99464 = t26389 * t23747;
30212   t99465 = t23505 * t23508;
30213   t99466 = t23509 * t443;
30214   t99470 = t96 * t23504;
30215   t99471 = t6453 * t99470;
30216   t99472 = t23509 * t464;
30217   t99476 = t23509 * t404;
30218   t99480 = t4927 * t23508;
30219   t99481 = t23509 * t3778;
30220   t99485 = t4933 * t439;
30221   t99489 = t1392 * t23634;
30222   t99490 = t99489 * t1205;
30223   t99492 = t400 * t4947 * t404;
30224   t99493 = t99492 * t1205;
30225   t99494 = t23635 * t3955;
30226   t99495 = t23635 * t3959;
30227   t99496 = t4933 * t1143;
30228   t99498 = t4932 * t99496 * t443;
30229   t99499 = t68456 * t99498;
30230   t99502 = t4932 * t99496 * t404;
30231   t99503 = t68602 * t99502;
30232   t99506 = t4932 * t99496 * t3778;
30233   t99507 = t68483 * t99506;
30234   t99510 = t4932 * t18388 * t439;
30235   t99511 = t68489 * t99510;
30236   t99513 = t73 * t4954;
30237   t99515 = t66 * t99513 * t443;
30238   t99516 = t13245 * t99515;
30239   t99519 = t400 * t23640 * t443;
30240   t99520 = 0.24e2 * t99519;
30241   t99521 = 0.35e2 / 0.192e3 * t99464 * t99465 * t99466 - 0.5e1 / 0.96e2 * t99471 * t99465 * t99472 - 0.5e1 / 0.64e2 * t18362 * t99465 * t99476 - 0.5e1 / 0.64e2 * t23748 * t99480 * t99481 - 0.5e1 / 0.64e2 * t23748 * t99465 * t99485 - t99490 - t99493 - t99494 - t99495 - 0.5e1 / 0.4e1 * t99499 + 0.5e1 / 0.12e2 * t99503 + 0.5e1 / 0.12e2 * t99507 + 0.5e1 / 0.12e2 * t99511 + 0.5e1 * t99516 + t5056 - t18420 - t99520;
30242   t99522 = t397 * t23640;
30243   t99523 = 0.6e1 * t99522;
30244   t99525 = t81 * t3811 * t4954;
30245   t99526 = 0.6e1 * t99525;
30246   t99527 = t26602 * t97;
30247   t99530 = t68568 * t23631;
30248   t99532 = t75398 * t23631;
30249   t99534 = t5044 * t3811;
30250   t99536 = t18368 * t5043 * t99534;
30251   t99538 = t1397 * t23634;
30252   t99539 = t99538 * t3941;
30253   t99541 = t24051 * t18405;
30254   t99543 = t13263 * t23638;
30255   t99544 = t14624 * t23638;
30256   t99545 = t13281 * t23638;
30257   t99547 = t3945 * t3954 * t23637;
30258   t99548 = t3958 * t4954;
30259   t99550 = t3945 * t1203 * t99548;
30260   t99551 = t99523 + t99526 - 0.5e1 / 0.192e3 * t99527 * t23627 + t18417 + t18423 + 0.5e1 / 0.24e2 * t99530 + 0.5e1 / 0.24e2 * t99532 + 0.5e1 / 0.24e2 * t99536 + 0.5e1 * t99539 - 0.2e1 * t99541 - t99543 - t99544 - t99545 - t99547 - t99550 + t23642 - t23639;
30261   t99555 = t18426 * t1199;
30262   t99559 = 0.3e1 * t99451 + t99453 + t99454 - 0.6e1 * t99455 - 0.6e1 * t99458 - 0.6e1 * t99460 - 0.12e2 * t99462 + (t99521 + t99551) * t227 + t23643 * t751 - t4957 - 0.6e1 * t99555 - 0.5e1 / 0.48e2 * t18040 * t23610;
30263   t99561 = t18424 * t167 * t168;
30264   t99562 = t99561 * t1192;
30265   t99565 = t4932 * t4934 * t3934;
30266   t99568 = t26389 * t23506;
30267   t99569 = t23510 * t3764;
30268   t99573 = t6453 * t4926 * t23505;
30269   t99574 = t23510 * t18090;
30270   t99578 = t6453 * t23504 * t4927;
30271   t99579 = t23510 * t18050;
30272   t99582 = t23508 * t4933;
30273   t99583 = t99582 * t3784;
30274   t99586 = t23510 * t3790;
30275   t99589 = t5060 * t18220;
30276   t99593 = 0.3e1 * t1214 * t18189 * t3923;
30277   t99594 = t2448 * t23623;
30278   t99596 = 0.3e1 * t99562 - t18095 - t18097 - t18100 - 0.5e1 / 0.48e2 * t4929 * t99565 - 0.35e2 / 0.192e3 * t99568 * t99569 + 0.5e1 / 0.64e2 * t99573 * t99574 + 0.5e1 / 0.64e2 * t99578 * t99579 + 0.5e1 / 0.64e2 * t23507 * t99583 + 0.5e1 / 0.96e2 * t23507 * t99586 - 0.9e1 * t99589 - t99593 - 0.6e1 * t99594;
30279   t99599 = t449 * t3934 * t4954;
30280   t99602 = t1214 * t23553 * t3985;
30281   t99603 = t174 * t23552;
30282   t99606 = 0.3e1 * t1214 * t99603 * t3980;
30283   t99608 = t449 * t5039 * t3811;
30284   t99610 = t1476 * t23623;
30285   t99614 = t28769 * t746;
30286   t99617 = 0.6e1 * t1214 * t23597 * t99614;
30287   t99623 = t66 * t3783 * t5039;
30288   t99627 = t66 * t1136 * t18357;
30289   t99630 = -0.6e1 * t99599 - t99602 + t99606 - t23619 - t23625 - 0.6e1 * t99608 - 0.6e1 * t99610 + t3758 * t23501 / 0.2e1 - t99617 + t3769 * t23501 / 0.2e1 + t3780 * t23501 / 0.2e1 + t1135 * t99623 / 0.2e1 + t1135 * t99627 / 0.2e1;
30290   t99631 = t18469 * t5031;
30291   t99635 = 0.3e1 * t1214 * t5026 * t13051;
30292   t99637 = t12791 * t4951 * t443;
30293   t99638 = t3762 * t99637;
30294   t99641 = 0.3e1 * t3977 * t23615;
30295   t99642 = t5060 * t18443;
30296   t99644 = t5060 * t18105;
30297   t99648 = 0.6e1 * t1214 * t5030 * t48237;
30298   t99649 = t23515 * t3981;
30299   t99651 = t174 * t23596;
30300   t99652 = t6117 * t677;
30301   t99655 = 0.6e1 * t1214 * t99651 * t99652;
30302   t99656 = t5060 * t18440;
30303   t99658 = t23515 * t3986;
30304   t99660 = t5060 * t18197;
30305   t99662 = t23515 * t3921;
30306   t99664 = -0.3e1 * t99631 - t99635 - 0.10e2 * t99638 - t99641 - 0.6e1 * t99642 + 0.6e1 * t99644 + t99648 + 0.9e1 * t99649 + t99655 + 0.9e1 * t99656 - 0.3e1 * t99658 - 0.3e1 * t99660 + 0.3e1 * t99662;
30307   t99667 = t99106 + t99141 + t99178 + t99448 + t99559 + t99596 + t99630 + t99664;
30308   t99672 = 0.3e1 * t5065 * t1224;
30309   t99678 = 0.3e1 * t1216 * t5080;
30310   t99683 = t368 * t23684;
30311   t99689 = t18486 * t1221;
30312   t99691 = t5070 * t4000;
30313   t99693 = t5070 * t4003;
30314   t99695 = t3994 * t5074;
30315   t99697 = t1219 * t18498;
30316   t99699 = t1219 * t18501;
30317   t99701 = t3994 * t5077;
30318   t99703 = t1219 * t18506;
30319   t99706 = 0.6e1 * t873 * t23678;
30320   t99709 = 0.18e2 * t369 * t4947 * t3811;
30321   t99710 = t873 * t23681;
30322   t99711 = 0.18e2 * t99710;
30323   t99713 = t369 * t3967 * t4954;
30324   t99714 = 0.18e2 * t99713;
30325   t99716 = t369 * t3970 * t4954;
30326   t99717 = 0.18e2 * t99716;
30327   t99718 = t370 * t99667 * params->d + 0.3e1 * t23670 * t875 + t18505 + t18508 + t23677 + t23683 + t5079 + 0.9e1 * t99689 + 0.18e2 * t99691 + 0.9e1 * t99693 + 0.18e2 * t99695 + 0.18e2 * t99697 + 0.36e2 * t99699 + 0.9e1 * t99701 + 0.18e2 * t99703 + t99706 + t99709 + t99711 + t99714 + t99717;
30328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30329     v4rhosigma3[0] = t372 * t7 * t99667 + 0.3e1 * t1217 * t18509 + 0.3e1 * t1224 * t18475 + t23664 * t878 + t23684 * t870 + 0.3e1 * t3989 * t5080 + 0.3e1 * t4006 * t5066 + t872 * t99718 + t99075 + t99672 + t99678 + t99683;
30330 
30331   t99720 = t23844 * t372;
30332   t99722 = 0.2e1 / 0.3e1 * t4009 * t23654;
30333   t99724 = 0.2e1 / 0.3e1 * t4017 * t23654;
30334   t99726 = 0.2e1 / 0.3e1 * t1227 * t99094;
30335   t99728 = 0.2e1 / 0.3e1 * t1227 * t99097;
30336   t99729 = t5060 * t18615;
30337   t99732 = t4026 * t99077;
30338   t99735 = t66 * t3783 * t5135;
30339   t99736 = t1135 * t99735;
30340   t99739 = t66 * t1136 * t18638;
30341   t99740 = t1135 * t99739;
30342   t99742 = t23790 * t23508;
30343   t99743 = t6453 * t99742;
30344   t99745 = t24148 * t18544 * t3778;
30345   t99748 = 0.2e1 / 0.3e1 * t99080;
30346   t99749 = 0.2e1 / 0.3e1 * t99081;
30347   t99750 = -t99722 - t99724 - t99726 - t99728 + 0.2e1 * t99729 + t99561 * t1245 - 0.4e1 / 0.3e1 * t99732 + t99736 / 0.3e1 + t99740 / 0.3e1 - 0.5e1 / 0.48e2 * t99743 * t99745 + t99748 + t99749;
30348   t99751 = t5044 * t18534;
30349   t99754 = t13453 * t23661;
30350   t99755 = 0.16e2 / 0.9e1 * t99754;
30351   t99759 = 0.5e1 / 0.36e2 * t6453 * t23504 * t423 * t23793;
30352   t99760 = t18056 * t18753;
30353   t99763 = t5044 * t18733;
30354   t99770 = t4026 * t99144;
30355   t99772 = t4026 * t99138;
30356   t99774 = t97 * t5135;
30357   t99776 = t1204 * t99774 * t443;
30358   t99777 = t3762 * t99776;
30359   t99779 = t96 * t5135;
30360   t99781 = t1204 * t99779 * t464;
30361   t99782 = t3788 * t99781;
30362   t99784 = t13167 * t23734;
30363   t99786 = -0.5e1 / 0.72e2 * t18055 * t99751 + t99755 + t99759 - 0.5e1 / 0.72e2 * t18055 * t99760 - 0.5e1 / 0.72e2 * t18055 * t99763 + 0.5e1 / 0.3e1 * t4013 * t99109 - 0.2e1 / 0.3e1 * t4026 * t99114 - 0.4e1 / 0.3e1 * t99770 - 0.4e1 / 0.3e1 * t99772 - 0.5e1 / 0.3e1 * t99777 + 0.2e1 / 0.3e1 * t99782 + 0.2e1 / 0.3e1 * t99784;
30364   t99788 = t12758 * t23734;
30365   t99790 = t12788 * t23734;
30366   t99792 = t3958 * t23733;
30367   t99793 = t3788 * t99792;
30368   t99796 = t1204 * t3812 * t1231;
30369   t99797 = t3788 * t99796;
30370   t99800 = t1204 * t3802 * t1231;
30371   t99801 = t3788 * t99800;
30372   t99806 = t5044 * t68123 * t1133;
30373   t99810 = t1204 * t1144 * t4041;
30374   t99811 = t3788 * t99810;
30375   t99819 = 0.2e1 / 0.3e1 * t99119;
30376   t99820 = 0.2e1 / 0.3e1 * t99788 + 0.2e1 / 0.3e1 * t99790 + 0.2e1 / 0.3e1 * t99793 + 0.2e1 / 0.3e1 * t99797 + 0.2e1 / 0.3e1 * t99801 + 0.5e1 / 0.36e2 * t18527 * t23742 + 0.5e1 / 0.36e2 * t5084 * t99806 + 0.2e1 / 0.3e1 * t99811 + 0.2e1 / 0.3e1 * t13167 * t23800 + 0.2e1 / 0.3e1 * t12758 * t23800 + 0.2e1 / 0.3e1 * t12788 * t23800 + t99819;
30377   t99821 = 0.2e1 / 0.3e1 * t99121;
30378   t99822 = 0.2e1 / 0.3e1 * t99124;
30379   t99823 = t18469 * t5125;
30380   t99825 = t18654 * t5100;
30381   t99827 = t18640 * t5100;
30382   t99829 = t5097 * t18765;
30383   t99832 = t18853 * t167 * t168;
30384   t99833 = t99832 * t1192;
30385   t99835 = 0.2e1 / 0.3e1 * t99127;
30386   t99836 = t13453 * t23657;
30387   t99837 = 0.32e2 / 0.9e1 * t99836;
30388   t99839 = t1204 * t18210 * t4041;
30389   t99842 = t13412 * t23657;
30390   t99844 = t99821 + t99822 + 0.2e1 * t99823 + t23729 - 0.4e1 * t99825 - 0.4e1 * t99827 - 0.4e1 * t99829 + 0.2e1 * t99833 + t99835 + t99837 + 0.2e1 / 0.3e1 * t3788 * t99839 - 0.4e1 / 0.3e1 * t99842;
30391   t99847 = t13424 * t23657;
30392   t99849 = t4026 * t99134;
30393   t99851 = t5060 * t18741;
30394   t99854 = t3977 * t23709;
30395   t99855 = t99385 / 0.64e2;
30396   t99856 = t99405 / 0.48e2;
30397   t99858 = t23536 * t23538 * t15258;
30398   t99859 = t99858 * t18172;
30399   t99861 = t23688 * t18176;
30400   t99862 = t99861 * t710;
30401   t99865 = t23536 * t23543 * t15258;
30402   t99866 = t99865 * t18185;
30403   t99868 = t99380 * t23704;
30404   t99878 = t23687 * t5115;
30405   t99881 = 0.7e1 / 0.288e3 * t99333;
30406   t99882 = t99330 / 0.96e2;
30407   t99884 = t23533 * t23694 * t6345;
30408   t99896 = -t99855 - t99856 - t99859 / 0.256e3 + t99862 / 0.384e3 - t99866 / 0.192e3 + t99868 / 0.768e3 + 0.24e2 * t23695 * t99365 * t23697 * t743 - 0.12e2 * t23695 * t23696 * t5118 * t3897 - 0.12e2 * t99878 * t18158 + t99881 + t99882 + 0.18e2 * t99884 * t54025 * t18157 - 0.18e2 * t99878 * t18152 - 0.6e1 * t23695 * t23696 * t4058 * t5007 + 0.12e2 * t99878 * t18162;
30409   t99897 = t99361 * t23694;
30410   t99900 = t99338 / 0.48e2;
30411   t99901 = t99342 / 0.96e2;
30412   t99903 = t23536 * t23543 * t54025;
30413   t99904 = t99903 * t99390;
30414   t99909 = t23545 * t4058 * t202 * t203 * t23548;
30415   t99912 = t4973 * t4058 * t4976;
30416   t99915 = t23691 * t717;
30417   t99916 = 0.7e1 / 0.1152e4 * t99915;
30418   t99918 = t99912 * t5021 * t211;
30419   t99920 = t99381 / 0.192e3;
30420   t99921 = t99396 / 0.192e3;
30421   t99922 = 0.7e1 / 0.288e3 * t99401;
30422   t99926 = t23545 * t1237 * t714 * t203 * t23548;
30423   t99927 = 0.7e1 / 0.1152e4 * t99926;
30424   t99928 = t23688 * t18168;
30425   t99929 = t99928 * t18172;
30426   t99931 = t23691 * t18185;
30427   t99933 = t99346 / 0.192e3;
30428   t99934 = t99391 / 0.64e2;
30429   t99935 = -0.6e1 * t99897 * t23698 + t99900 + t99901 - t99904 / 0.256e3 + t99909 / 0.768e3 + 0.6e1 * t99912 * t5017 + t99916 - t99918 / 0.768e3 + t99920 + t99921 - t99922 - t99927 + t99929 / 0.384e3 + t99931 / 0.192e3 - t99933 - t99934;
30430   t99938 = t175 * (t99896 + t99935) * t748;
30431   t99939 = t1214 * t99938;
30432   t99941 = 0.3e1 * t5155 * t18440;
30433   t99943 = t1214 * t1244 * t69369;
30434   t99944 = 0.4e1 * t99167;
30435   t99945 = 0.4e1 * t99169;
30436   t99946 = 0.4e1 * t99171;
30437   t99949 = 0.2e1 * t1214 * t4076 * t18345;
30438   t99950 = -0.4e1 / 0.3e1 * t99847 - 0.4e1 / 0.3e1 * t99849 - 0.2e1 * t99851 + t23515 * t4077 + t99854 + t99939 + t99941 - t99943 - t99944 - t99945 - t99946 + t99949;
30439   t99951 = t18469 * t5159;
30440   t99953 = t5060 * t18661;
30441   t99956 = 0.2e1 * t3977 * t23840;
30442   t99957 = t174 * t23707;
30443   t99960 = 0.3e1 * t1214 * t99957 * t3980;
30444   t99963 = 0.4e1 * t449 * t5135 * t3811;
30445   t99964 = t1476 * t23820;
30446   t99965 = 0.2e1 * t99964;
30447   t99966 = t2448 * t23820;
30448   t99967 = 0.2e1 * t99966;
30449   t99969 = t449 * t4090 * t4954;
30450   t99970 = 0.2e1 * t99969;
30451   t99973 = t12791 * t5107 * t443;
30452   t99974 = t3762 * t99973;
30453   t99976 = t23835 * t3981;
30454   t99978 = t23823 * t4042;
30455   t99979 = 0.2e1 * t99978;
30456   t99980 = -0.2e1 * t99951 + 0.6e1 * t99953 + t99956 + t99960 - t99963 - t99965 - t99967 - t99970 - t23515 * t4129 - 0.10e2 / 0.3e1 * t99974 + 0.6e1 * t99976 - t99979;
30457   t99983 = 0.8e1 / 0.9e1 * t4021 * t23501;
30458   t99987 = t4932 * t4934 * t4090;
30459   t99990 = t5155 * t18197;
30460   t99991 = t5060 * t18704;
30461   t99996 = 0.3e1 * t5155 * t18220;
30462   t99998 = 0.2e1 * t5155 * t18443;
30463   t100003 = 0.4e1 * t5097 * t18651;
30464   t100004 = t1199 * t1133;
30465   t100006 = t18555 * t100004 * t439;
30466   t100010 = t18560 * t100004 * t464;
30467   t100013 = t99983 - 0.5e1 / 0.144e3 * t18040 * t23785 - 0.5e1 / 0.144e3 * t4929 * t99987 - t99990 - 0.2e1 * t99991 + 0.3e1 * t23515 * t4125 - t99996 - t99998 - 0.2e1 * t449 * t5039 * t4041 - t100003 + 0.5e1 / 0.18e2 * t5084 * t100006 + 0.5e1 / 0.18e2 * t5084 * t100010;
30468   t100014 = t5084 * t99184;
30469   t100017 = t18560 * t18544 * t3811;
30470   t100018 = t5084 * t100017;
30471   t100020 = t18527 * t23827;
30472   t100022 = t18369 * t23826;
30473   t100023 = t5084 * t100022;
30474   t100026 = t18560 * t70131 * t1143;
30475   t100027 = t5084 * t100026;
30476   t100033 = t23510 * t12771 * t4927;
30477   t100037 = t1214 * t23708 * t3985;
30478   t100038 = 0.10e2 / 0.3e1 * t99208;
30479   t100039 = t5060 * t18701;
30480   t100041 = t18560 * t18538;
30481   t100045 = t18560 * t1232 * t404;
30482   t100048 = 0.5e1 / 0.18e2 * t100014 + 0.5e1 / 0.18e2 * t100018 + 0.5e1 / 0.18e2 * t100020 + 0.5e1 / 0.18e2 * t100023 + 0.5e1 / 0.18e2 * t100027 - 0.5e1 / 0.96e2 * t26602 * t23790 * t23793 - 0.5e1 / 0.96e2 * t23791 * t100033 - t100037 - t100038 - 0.2e1 * t100039 + 0.5e1 / 0.12e2 * t18082 * t100041 - 0.5e1 / 0.36e2 * t18089 * t100045;
30483   t100053 = t18560 * t1232 * t3778;
30484   t100056 = t446 * t4954;
30485   t100057 = t100056 * t1232;
30486   t100058 = 0.2e1 * t100057;
30487   t100059 = t5048 * t18538;
30488   t100060 = t3762 * t100059;
30489   t100062 = t4013 * t99637;
30490   t100064 = t23835 * t3921;
30491   t100066 = t5155 * t18190;
30492   t100067 = t3758 * t23781;
30493   t100069 = t3769 * t23781;
30494   t100071 = t3780 * t23781;
30495   t100076 = 0.10e2 / 0.3e1 * t4013 * t99152;
30496   t100077 = -0.5e1 / 0.36e2 * t18049 * t100053 - t100058 - 0.10e2 / 0.3e1 * t100060 + 0.20e2 / 0.3e1 * t100062 + 0.2e1 * t100064 + t100066 + t100067 / 0.3e1 + t100069 / 0.3e1 + t100071 / 0.3e1 - t4957 + 0.5e1 / 0.36e2 * t5084 * t99100 + t100076;
30497   t100079 = 0.4e1 / 0.3e1 * t4026 * t99156;
30498   t100082 = t5044 * t18718;
30499   t100085 = t5044 * t18723;
30500   t100089 = 0.10e2 / 0.27e2 * t18679 * t23742;
30501   t100090 = t13412 * t23661;
30502   t100091 = 0.2e1 / 0.3e1 * t100090;
30503   t100092 = t13424 * t23661;
30504   t100093 = 0.2e1 / 0.3e1 * t100092;
30505   t100094 = t4026 * t99120;
30506   t100095 = 0.2e1 / 0.3e1 * t100094;
30507   t100096 = t4026 * t99123;
30508   t100097 = 0.2e1 / 0.3e1 * t100096;
30509   t100098 = t4026 * t99126;
30510   t100099 = 0.2e1 / 0.3e1 * t100098;
30511   t100100 = t23823 * t4035;
30512   t100101 = 0.2e1 * t100100;
30513   t100102 = t68373 * t18522;
30514   t100104 = -t100079 - 0.5e1 / 0.72e2 * t68969 * t23730 - 0.5e1 / 0.72e2 * t18055 * t100082 - 0.5e1 / 0.72e2 * t18055 * t100085 - t100089 - t100091 - t100093 - t100095 - t100097 - t100099 - t100101 - 0.6e1 * t100102;
30515   t100108 = 0.2e1 * t1214 * t5124 * t13051;
30516   t100111 = 0.2e1 * t3977 * t23809;
30517   t100112 = t18738 * t5031;
30518   t100113 = t1133 * t1143;
30519   t100114 = t100113 * t443;
30520   t100115 = t70080 * t100114;
30521   t100116 = t70074 * t100115;
30522   t100118 = t100113 * t404;
30523   t100119 = t70080 * t100118;
30524   t100120 = t70086 * t100119;
30525   t100122 = t100113 * t439;
30526   t100123 = t50654 * t100122;
30527   t100124 = t70173 * t100123;
30528   t100126 = 0.4e1 * t99594;
30529   t100128 = 0.4e1 * t1476 * t23817;
30530   t100129 = -t100108 - t18095 - t18097 - t18100 + t23776 * t751 - t100111 - t100112 - 0.5e1 / 0.3e1 * t100116 + 0.5e1 / 0.9e1 * t100120 + 0.5e1 / 0.9e1 * t100124 - t100126 - t100128;
30531   t100130 = 0.4e1 * t99599;
30532   t100132 = 0.4e1 * t2448 * t23817;
30533   t100135 = 0.4e1 * t449 * t18638 * t1143;
30534   t100137 = 0.2e1 * t5155 * t18105;
30535   t100139 = 0.16e2 / 0.9e1 * t4021 * t23654;
30536   t100140 = t447 * t23725;
30537   t100141 = t70710 * t18624;
30538   t100143 = 0.4e1 * t14484 * t100141;
30539   t100146 = t23835 * t3986;
30540   t100149 = 0.2e1 * t18426 * t1252;
30541   t100150 = -t100130 - t100132 - t100135 + t100137 + t100139 - t100140 + t100143 - t23796 - t23797 - t1227 * t99627 / 0.3e1 - 0.2e1 * t100146 - t100149;
30542   t100154 = 0.2e1 * t4948 * t4090;
30543   t100155 = t70224 * t23755;
30544   t100156 = 0.20e2 / 0.27e2 * t100155;
30545   t100157 = t1258 * t4926;
30546   t100158 = t1397 * t100157;
30547   t100162 = t1397 * t5149 * t25;
30548   t100163 = t100162 * t3941;
30549   t100165 = t13663 * t99515;
30550   t100166 = 0.10e2 / 0.3e1 * t100165;
30551   t100167 = t6453 * t100157;
30552   t100174 = t70322 * t23755;
30553   t100176 = 0.10e2 / 0.3e1 * t99516;
30554   t100177 = t70271 * t100122;
30555   t100178 = t18823 * t100177;
30556   t100180 = t76866 * t23755;
30557   t100182 = t18823 * t99506;
30558   t100185 = t4932 * t18774 * t3811;
30559   t100186 = t18823 * t100185;
30560   t100188 = t100156 + 0.5e1 / 0.36e2 * t100158 * t18383 + 0.10e2 / 0.3e1 * t100163 - t100166 - 0.5e1 / 0.12e2 * t100167 * t18364 + 0.5e1 / 0.36e2 * t18769 * t18374 + 0.5e1 / 0.36e2 * t100158 * t18379 - 0.5e1 / 0.18e2 * t100174 + t100176 - 0.5e1 / 0.9e1 * t100178 + t5056 - 0.5e1 / 0.18e2 * t100180 - 0.5e1 / 0.18e2 * t100182 - 0.5e1 / 0.18e2 * t100186 - t18420;
30561   t100199 = t1392 * t5149 * t5146;
30562   t100202 = t400 * t18843 * t5146;
30563   t100204 = t24038 * t3778;
30564   t100209 = 0.10e2 / 0.3e1 * t99538 * t4094;
30565   t100211 = 0.4e1 / 0.3e1 * t24051 * t18793;
30566   t100212 = t13263 * t23760;
30567   t100213 = 0.2e1 / 0.3e1 * t100212;
30568   t100214 = t14624 * t23760;
30569   t100215 = 0.2e1 / 0.3e1 * t100214;
30570   t100216 = t13281 * t23760;
30571   t100217 = 0.2e1 / 0.3e1 * t100216;
30572   t100219 = t3945 * t1254 * t99548;
30573   t100220 = 0.2e1 / 0.3e1 * t100219;
30574   t100221 = t23764 * t100114;
30575   t100222 = t70451 * t100221;
30576   t100224 = t23764 * t100118;
30577   t100225 = t13663 * t100224;
30578   t100227 = t23750 * t404;
30579   t100231 = 0.5e1 / 0.72e2 * t6445 * t1258 * t23765 + 0.5e1 / 0.72e2 * t1397 * t4114 * t23765 + 0.5e1 / 0.72e2 * t1397 * t4117 * t23765 - 0.2e1 / 0.3e1 * t100199 - 0.2e1 / 0.3e1 * t100202 + 0.5e1 / 0.48e2 * t23748 * t23749 * t100204 - t100209 + t100211 + t100213 + t100215 + t100217 + t100220 + 0.5e1 / 0.3e1 * t100222 - 0.5e1 / 0.9e1 * t100225 + 0.5e1 / 0.32e2 * t18362 * t23749 * t100227;
30580   t100233 = t4933 * t4927;
30581   t100234 = t100233 * t439;
30582   t100238 = 0.16e2 * t99519;
30583   t100240 = t400 * t23772 * t443;
30584   t100241 = 0.8e1 * t100240;
30585   t100243 = t400 * t18846 * t5146;
30586   t100245 = t23768 * t18813;
30587   t100247 = t23768 * t18816;
30588   t100249 = t23768 * t18819;
30589   t100251 = 0.4e1 * t99522;
30590   t100252 = 0.4e1 * t99525;
30591   t100253 = t397 * t23772;
30592   t100254 = 0.2e1 * t100253;
30593   t100256 = t81 * t4954 * t4041;
30594   t100257 = 0.2e1 * t100256;
30595   t100258 = 0.2e1 / 0.3e1 * t99543;
30596   t100259 = 0.5e1 / 0.32e2 * t23748 * t23749 * t100234 - t100238 - t100241 - 0.2e1 / 0.3e1 * t100243 - 0.2e1 / 0.3e1 * t100245 - 0.2e1 / 0.3e1 * t100247 - 0.2e1 / 0.3e1 * t100249 + t100251 + t100252 + t100254 + t100257 + t18417 + t18423 + t23762 - t100258;
30597   t100260 = 0.2e1 / 0.3e1 * t99544;
30598   t100261 = 0.2e1 / 0.3e1 * t99545;
30599   t100262 = 0.2e1 / 0.3e1 * t99547;
30600   t100263 = 0.2e1 / 0.3e1 * t99550;
30601   t100265 = t3945 * t4102 * t23637;
30602   t100266 = 0.16e2 / 0.9e1 * t100265;
30603   t100267 = t23750 * t443;
30604   t100271 = t23750 * t464;
30605   t100278 = 0.5e1 / 0.36e2 * t23748 * t423 * t23508 * t23750;
30606   t100280 = 0.16e2 / 0.9e1 * t23635 * t4103;
30607   t100281 = t26602 * t23747;
30608   t100285 = 0.2e1 / 0.3e1 * t99489 * t1255;
30609   t100287 = 0.2e1 / 0.3e1 * t99492 * t1255;
30610   t100289 = 0.2e1 / 0.3e1 * t23635 * t4106;
30611   t100290 = -t100260 - t100261 - t100262 - t100263 + t23775 - t23771 - t100266 - 0.35e2 / 0.96e2 * t99464 * t23749 * t100267 + t23774 + 0.5e1 / 0.48e2 * t99471 * t23749 * t100271 - t100278 - t100280 + 0.5e1 / 0.96e2 * t100281 * t23751 + t100285 + t100287 + t100289;
30612   t100296 = 0.2e1 * t449 * t23725 * t464;
30613   t100304 = 0.4e1 * t99610;
30614   t100306 = t1214 * t4076 * t18335;
30615   t100307 = t18738 * t5027;
30616   t100308 = t18679 * t23827;
30617   t100309 = 0.20e2 / 0.27e2 * t100308;
30618   t100311 = t18543 * t100004 * t443;
30619   t100314 = -t100154 + (t100188 + t100231 + t100259 + t100290) * t227 - t100296 - 0.2e1 * t1476 * t23814 - 0.2e1 * t2448 * t23814 - 0.2e1 * t449 * t18357 * t1231 - t100304 - t100306 + t100307 - t23806 - t100309 - 0.5e1 / 0.6e1 * t18542 * t100311;
30620   t100316 = t18543 * t100004 * t404;
30621   t100320 = t49014 * t5029 * t746;
30622   t100322 = 0.6e1 * t14484 * t100320;
30623   t100323 = t74957 * t18625;
30624   t100326 = t13542 * t5029 * t677;
30625   t100328 = 0.6e1 * t13345 * t100326;
30626   t100329 = t3958 * t23799;
30627   t100333 = t1204 * t3816 * t1231;
30628   t100337 = t1204 * t68170 * t1231;
30629   t100340 = t13167 * t23738;
30630   t100342 = t12758 * t23738;
30631   t100344 = t12788 * t23738;
30632   t100346 = t3958 * t23737;
30633   t100347 = t3788 * t100346;
30634   t100350 = t1204 * t4046 * t1143;
30635   t100351 = t3788 * t100350;
30636   t100353 = 0.5e1 / 0.18e2 * t18550 * t100316 - t100322 + 0.4e1 * t100323 + t100328 + 0.2e1 / 0.3e1 * t3788 * t100329 + 0.2e1 / 0.3e1 * t3788 * t100333 + 0.2e1 / 0.3e1 * t3788 * t100337 + 0.2e1 / 0.3e1 * t100340 + 0.2e1 / 0.3e1 * t100342 + 0.2e1 / 0.3e1 * t100344 + 0.2e1 / 0.3e1 * t100347 + 0.2e1 / 0.3e1 * t100351;
30637   t100356 = t1204 * t70120 * t1143;
30638   t100357 = t3788 * t100356;
30639   t100360 = t1204 * t18732 * t3811;
30640   t100361 = t3788 * t100360;
30641   t100363 = t26389 * t99742;
30642   t100364 = t363 * t4927;
30643   t100366 = t24148 * t100364 * t443;
30644   t100370 = t6453 * t5082 * t23508;
30645   t100372 = t24148 * t100364 * t404;
30646   t100376 = t4934 * t100364 * t439;
30647   t100379 = t23509 * t96;
30648   t100381 = t100379 * t100364 * t464;
30649   t100384 = t5044 * t18728;
30650   t100388 = t5044 * t18727 * t404;
30651   t100392 = t5044 * t18727 * t3778;
30652   t100396 = t13542 * t1190 * t3919;
30653   t100398 = 0.4e1 * t14484 * t100396;
30654   t100399 = 0.2e1 / 0.3e1 * t100357 + 0.2e1 / 0.3e1 * t100361 + 0.35e2 / 0.96e2 * t100363 * t100366 - 0.5e1 / 0.32e2 * t100370 * t100372 - 0.5e1 / 0.32e2 * t99743 * t100376 - 0.5e1 / 0.48e2 * t99743 * t100381 + 0.5e1 / 0.24e2 * t18082 * t100384 - 0.5e1 / 0.72e2 * t18089 * t100388 - 0.5e1 / 0.72e2 * t18049 * t100392 - t23822 - t23825 + t100398;
30655   t100400 = t4013 * t99207;
30656   t100401 = 0.10e2 / 0.3e1 * t100400;
30657   t100402 = t3977 * t23745;
30658   t100404 = t68216 * t1232 * t439;
30659   t100408 = t4079 * t5025 * t677;
30660   t100410 = 0.3e1 * t13345 * t100408;
30661   t100412 = t13542 * t5025 * t746;
30662   t100414 = 0.2e1 * t14484 * t100412;
30663   t100415 = t5097 * t18565;
30664   t100417 = t23707 * t748;
30665   t100422 = t23707 * t2093;
30666   t100425 = t18617 * t18521;
30667   t100453 = 0.3e1 * t100417 * t1768 * t677 - t100422 * t2849 * t746 - 0.2e1 * t1190 * t2849 * t70682 - t13538 * t2849 * t5025 - t18188 * t2849 * t4079 - 0.2e1 * t18617 * t2849 * t3919 + 0.2e1 * t2849 * t48999 * t5029 + 0.4e1 * t100141 * t2849 - 0.6e1 * t100320 * t2849 + 0.6e1 * t100326 * t1768 + 0.4e1 * t100396 * t2849 - 0.3e1 * t100408 * t1768 + 0.2e1 * t100412 * t2849 - 0.6e1 * t100425 * t1768 + t169 * t99938;
30668   t100454 = my_piecewise3(t296, 0, t100453);
30669   t100457 = my_piecewise3(t359, 0, t100453);
30670   t100462 = t98 * (t100454 * t34 / 0.2e1 + t100457 * t46 / 0.2e1 + t23720 * t413 / 0.2e1 + t23722 * t436 / 0.2e1);
30671   t100464 = 0.6e1 * t13345 * t100425;
30672   t100467 = 0.2e1 * t1214 * t18614 * t3923;
30673   t100469 = t12791 * t5100 * t443;
30674   t100478 = t100401 - t100402 - 0.5e1 / 0.36e2 * t18055 * t100404 - t100410 + t100414 - 0.4e1 * t100415 - t100462 - t100464 - t100467 - 0.10e2 / 0.3e1 * t3762 * t100469 - t4009 * t23501 / 0.3e1 - t4017 * t23501 / 0.3e1 - t1227 * t99623 / 0.3e1;
30675   t100482 = t99750 + t99786 + t99820 + t99844 + t99950 + t99980 + t100013 + t100048 + t100077 + t100104 + t100129 + t100150 + t100314 + t100353 + t100399 + t100478;
30676   t100487 = 0.2e1 * t5161 * t1224;
30677   t100492 = t1264 * t5080;
30678   t100495 = t5065 * t1272;
30679   t100499 = 0.2e1 * t1216 * t5175;
30680   t100504 = t368 * t23873;
30681   t100509 = 0.6e1 * t1267 * t18498;
30682   t100514 = 0.6e1 * t369 * t4947 * t4041;
30683   t100515 = 0.12e2 * t99713;
30684   t100516 = 0.12e2 * t99716;
30685   t100517 = t5166 * t4003;
30686   t100519 = 0.12e2 * t99703;
30687   t100520 = t18870 * t1221;
30688   t100525 = 0.6e1 * t4137 * t5074;
30689   t100526 = t5166 * t4000;
30690   t100528 = t4137 * t5077;
30691   t100529 = 0.3e1 * t100528;
30692   t100530 = 0.12e2 * t99710;
30693   t100532 = 0.6e1 * t873 * t23866;
30694   t100533 = 0.3e1 * t1269 * t18486 + 0.3e1 * t23853 * t875 + 0.3e1 * t4146 * t5070 + t100509 + t100514 + t100515 + t100516 + 0.6e1 * t100517 + t100519 + 0.6e1 * t100520 + t100525 + 0.12e2 * t100526 + t100529 + t100530 + t100532 + t23860 + t5079;
30695   t100534 = t1219 * t18891;
30696   t100536 = t1219 * t18894;
30697   t100543 = t369 * t4117 * t4954;
30698   t100544 = 0.6e1 * t100543;
30699   t100547 = 0.12e2 * t369 * t5149 * t3811;
30700   t100549 = 0.12e2 * t1267 * t18501;
30701   t100550 = t873 * t23870;
30702   t100551 = 0.6e1 * t100550;
30703   t100553 = t369 * t4114 * t4954;
30704   t100554 = 0.6e1 * t100553;
30705   t100555 = t3994 * t5172;
30706   t100557 = t1219 * t18888;
30707   t100559 = 0.6e1 * t99701;
30708   t100560 = t1267 * t18506;
30709   t100561 = 0.6e1 * t100560;
30710   t100562 = t100482 * t370 * params->d + 0.6e1 * t4143 * t5070 + 0.12e2 * t100534 + 0.12e2 * t100536 + t100544 + t100547 + t100549 + t100551 + t100554 + 0.12e2 * t100555 + 0.12e2 * t100557 + t100559 + t100561 + t18505 + t18508 + t23865 + t23869 + t23872;
30711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30712     v4rhosigma3[1] = t99720 + t7 * t100482 * t372 + t23845 * t878 + t100487 + 0.2e1 * t18859 * t1224 + 0.2e1 * t5162 * t4006 + t100492 + t4132 * t5080 + t1265 * t18509 + t100495 + t18475 * t1272 + t5066 * t4149 + t100499 + 0.2e1 * t3989 * t5175 + 0.2e1 * t1217 * t18897 + t100504 + t870 * t23873 + t872 * (t100533 + t100562);
30713 
30714   t100565 = t23946 * t372;
30715   t100567 = 0.6e1 * t23929 * t3981;
30716   t100569 = t1204 * t71149 * t1143;
30717   t100571 = 0.2e1 / 0.3e1 * t3788 * t100569;
30718   t100572 = t5211 * t18105;
30719   t100574 = t4156 * t99152;
30720   t100576 = t4173 * t99156;
30721   t100579 = 0.2e1 / 0.3e1 * t13811 * t23657;
30722   t100581 = 0.2e1 / 0.3e1 * t13876 * t23657;
30723   t100583 = 0.2e1 / 0.3e1 * t13870 * t23657;
30724   t100585 = 0.2e1 / 0.3e1 * t4173 * t99134;
30725   t100587 = 0.2e1 / 0.3e1 * t4173 * t99138;
30726   t100588 = t100567 + t23880 + t100571 + 0.2e1 * t100572 - 0.5e1 / 0.3e1 * t100574 + 0.2e1 / 0.3e1 * t100576 + t100579 + t100581 + t100583 + t100585 + t100587;
30727   t100590 = 0.2e1 / 0.3e1 * t4173 * t99144;
30728   t100602 = t1204 * t18923 * t3811;
30729   t100604 = 0.2e1 / 0.3e1 * t3788 * t100602;
30730   t100605 = t97 * t5198;
30731   t100607 = t1204 * t100605 * t443;
30732   t100610 = t96 * t5198;
30733   t100612 = t1204 * t100610 * t464;
30734   t100615 = t5044 * t18919;
30735   t100619 = t5044 * t18918 * t404;
30736   t100622 = t100590 - 0.5e1 / 0.72e2 * t5179 * t99100 - 0.5e1 / 0.72e2 * t18940 * t23742 - 0.5e1 / 0.72e2 * t18945 * t23742 - 0.5e1 / 0.72e2 * t5179 * t99806 + 0.5e1 / 0.96e2 * t24147 * t99745 + t100604 - 0.5e1 / 0.3e1 * t3762 * t100607 + 0.2e1 / 0.3e1 * t3788 * t100612 + 0.5e1 / 0.24e2 * t18082 * t100615 - 0.5e1 / 0.72e2 * t18089 * t100619;
30737   t100625 = t5044 * t18918 * t3778;
30738   t100628 = t18056 * t18934;
30739   t100631 = t5044 * t18924;
30740   t100635 = 0.2e1 / 0.3e1 * t13167 * t23883;
30741   t100637 = 0.2e1 / 0.3e1 * t12758 * t23883;
30742   t100639 = 0.2e1 / 0.3e1 * t12788 * t23883;
30743   t100640 = t3958 * t23882;
30744   t100642 = 0.2e1 / 0.3e1 * t3788 * t100640;
30745   t100643 = t5211 * t18440;
30746   t100645 = t5211 * t18443;
30747   t100648 = -0.5e1 / 0.72e2 * t18049 * t100625 - 0.5e1 / 0.72e2 * t18055 * t100628 - 0.5e1 / 0.72e2 * t18055 * t100631 + t100635 + t100637 + t100639 + t100642 + 0.3e1 * t100643 - 0.2e1 * t100645 + 0.2e1 / 0.3e1 * t99078 + t99748;
30748   t100654 = t4948 * t4235;
30749   t100657 = 0.10e2 / 0.3e1 * t4156 * t99637;
30750   t100658 = t99749 + 0.2e1 / 0.3e1 * t99089 + 0.2e1 / 0.3e1 * t99090 + 0.2e1 / 0.3e1 * t99091 + 0.2e1 / 0.3e1 * t99095 + 0.2e1 / 0.3e1 * t99098 + t99819 + t99821 + t99822 - 0.2e1 * t100654 + t23729 - t100657;
30751   t100662 = t12791 * t5192 * t443;
30752   t100664 = 0.10e2 / 0.3e1 * t3762 * t100662;
30753   t100674 = -t100664 + t99835 + 0.2e1 / 0.3e1 * t99128 + 0.2e1 / 0.3e1 * t99130 + 0.2e1 / 0.3e1 * t99132 + 0.2e1 / 0.3e1 * t99135 + 0.2e1 / 0.3e1 * t99139 + 0.2e1 / 0.3e1 * t99145 - 0.5e1 / 0.72e2 * t99148 - 0.10e2 / 0.3e1 * t99153 + 0.4e1 / 0.3e1 * t99157;
30754   t100678 = t5211 * t18190;
30755   t100683 = -0.5e1 / 0.72e2 * t99159 - 0.5e1 / 0.72e2 * t99162 - 0.5e1 / 0.72e2 * t99165 + t100678 - t99168 - t99170 - t99172 + 0.2e1 * t99173 + 0.5e1 / 0.12e2 * t99176 - 0.5e1 / 0.36e2 * t99181 - 0.5e1 / 0.36e2 * t99185;
30756   t100694 = t18978 * t5031;
30757   t100695 = t23504 * t4166;
30758   t100696 = t6453 * t100695;
30759   t100703 = -0.5e1 / 0.36e2 * t99189 + 0.5e1 / 0.12e2 * t18989 * t100311 - 0.5e1 / 0.36e2 * t18957 * t100316 - 0.5e1 / 0.36e2 * t5179 * t100006 - 0.5e1 / 0.36e2 * t5179 * t100010 + t99193 - t100694 + 0.5e1 / 0.192e3 * t100696 * t23793 + 0.5e1 / 0.192e3 * t23919 * t100033 + t3780 * t23925 / 0.3e1 + t99202;
30760   t100708 = t4156 * t99207;
30761   t100709 = 0.5e1 / 0.3e1 * t100708;
30762   t100711 = t19041 * t167 * t168;
30763   t100713 = 0.2e1 * t100711 * t1192;
30764   t100714 = t5211 * t18220;
30765   t100724 = t4932 * t4934 * t4235;
30766   t100727 = -t99205 + t3758 * t23925 / 0.3e1 + t3769 * t23925 / 0.3e1 - t100709 - t100038 + t100713 - 0.3e1 * t100714 - 0.4e1 * t99210 + t1277 * t99623 / 0.6e1 + t1277 * t99627 / 0.6e1 - 0.5e1 / 0.144e3 * t18040 * t23939 - 0.5e1 / 0.144e3 * t4929 * t100724;
30767   t100731 = t4152 * t23654;
30768   t100733 = t4160 * t23654;
30769   t100735 = t4168 * t23654;
30770   t100738 = 0.5e1 / 0.6e1 * t71136 * t100115;
30771   t100740 = 0.5e1 / 0.18e2 * t70858 * t100119;
30772   t100742 = 0.5e1 / 0.18e2 * t70855 * t100123;
30773   t100743 = t18978 * t5027;
30774   t100744 = t447 * t23916;
30775   t100746 = 0.2e1 * t23929 * t3921;
30776   t100748 = t100731 / 0.3e1 + t100733 / 0.3e1 + t100735 / 0.3e1 + t100738 - t100740 - t100742 + t100743 - t100744 + t100746 + 0.2e1 * t99451 + t99453;
30777   t100754 = t66 * t3783 * t5198;
30778   t100758 = t66 * t1136 * t19070;
30779   t100763 = 0.5e1 / 0.36e2 * t5179 * t99184;
30780   t100765 = 0.5e1 / 0.36e2 * t5179 * t100017;
30781   t100766 = t99454 - 0.2e1 * t99455 - 0.2e1 * t99458 - 0.2e1 * t99460 - 0.8e1 * t99462 + t1135 * t100754 / 0.3e1 + t1135 * t100758 / 0.3e1 - t4957 - 0.4e1 * t99555 - t100763 - t100765;
30782   t100769 = 0.5e1 / 0.36e2 * t18940 * t23827;
30783   t100771 = 0.5e1 / 0.36e2 * t18945 * t23827;
30784   t100773 = 0.5e1 / 0.36e2 * t5179 * t100022;
30785   t100775 = 0.5e1 / 0.36e2 * t5179 * t100026;
30786   t100776 = my_piecewise3(t296, 0, t99435);
30787   t100777 = t100776 * t34;
30788   t100778 = t23913 * t413;
30789   t100781 = t98 * (t100777 / 0.2e1 + t100778 / 0.2e1 + t99440 / 0.2e1 + t99441 / 0.2e1);
30790   t100782 = t26389 * t24146;
30791   t100786 = t6453 * t5177 * t23508;
30792   t100797 = -t100769 - t100771 - t100773 - t100775 - t100781 - 0.35e2 / 0.192e3 * t100782 * t100366 + 0.5e1 / 0.64e2 * t100786 * t100372 + 0.5e1 / 0.64e2 * t24147 * t100376 + 0.5e1 / 0.96e2 * t24147 * t100381 - 0.5e1 / 0.6e1 * t4156 * t99109 + t4173 * t99114 / 0.3e1;
30793   t100799 = 0.2e1 / 0.3e1 * t4173 * t99077;
30794   t100800 = t13811 * t23661;
30795   t100801 = t100800 / 0.3e1;
30796   t100802 = t13876 * t23661;
30797   t100803 = t100802 / 0.3e1;
30798   t100804 = t13870 * t23661;
30799   t100805 = t100804 / 0.3e1;
30800   t100806 = t4173 * t99120;
30801   t100807 = t100806 / 0.3e1;
30802   t100808 = t4173 * t99123;
30803   t100809 = t100808 / 0.3e1;
30804   t100810 = t4173 * t99126;
30805   t100811 = t100810 / 0.3e1;
30806   t100813 = t1204 * t4179 * t1143;
30807   t100815 = 0.2e1 / 0.3e1 * t3788 * t100813;
30808   t100816 = t100799 + t100801 + t100803 + t100805 + t100807 + t100809 + t100811 + t100815 + t99562 - t18095 - t18097 - t18100;
30809   t100826 = -t23910 - 0.6e1 * t99589 - t99593 - t100126 - t100130 - t99602 + t99606 + t4152 * t23501 / 0.6e1 + t4160 * t23501 / 0.6e1 + t4168 * t23501 / 0.6e1 - t23619;
30810   t100827 = t5211 * t18197;
30811   t100832 = 0.2e1 * t23929 * t3986;
30812   t100833 = t1277 * t99094;
30813   t100835 = t1277 * t99097;
30814   t100837 = t26602 * t23918;
30815   t100840 = -t23797 - t100827 - 0.2e1 * t99608 - t100304 - t99617 - 0.2e1 * t99631 + t23901 * t751 - t100832 + t100833 / 0.3e1 + t100835 / 0.3e1 + 0.5e1 / 0.192e3 * t100837 * t23793;
30816   t100844 = 0.4e1 * t1476 * t23905;
30817   t100845 = t18426 * t1307;
30818   t100848 = 0.4e1 * t2448 * t23905;
30819   t100851 = 0.4e1 * t449 * t19070 * t1143;
30820   t100854 = 0.2e1 * t449 * t23916 * t464;
30821   t100855 = t1476 * t23908;
30822   t100856 = 0.2e1 * t100855;
30823   t100857 = t2448 * t23908;
30824   t100858 = 0.2e1 * t100857;
30825   t100860 = t449 * t4235 * t4954;
30826   t100861 = 0.2e1 * t100860;
30827   t100862 = -t99635 - 0.10e2 / 0.3e1 * t99638 - t100844 - 0.2e1 * t100845 - t100848 - t100851 - t100854 - t99641 - t100856 - t100858 - t100861;
30828   t100863 = t5097 * t19046;
30829   t100867 = 0.4e1 * t449 * t5198 * t3811;
30830   t100877 = 0.5e1 / 0.36e2 * t71331 * t23755;
30831   t100879 = 0.5e1 / 0.36e2 * t78295 * t23755;
30832   t100881 = 0.5e1 / 0.36e2 * t71345 * t23755;
30833   t100883 = 0.5e1 / 0.36e2 * t19027 * t99506;
30834   t100885 = 0.5e1 / 0.36e2 * t19027 * t100185;
30835   t100886 = t13930 * t99515;
30836   t100887 = 0.5e1 / 0.3e1 * t100886;
30837   t100889 = 0.5e1 / 0.6e1 * t71312 * t100221;
30838   t100890 = -0.2e1 / 0.3e1 * t99490 - 0.2e1 / 0.3e1 * t99493 - 0.2e1 / 0.3e1 * t99494 - 0.2e1 / 0.3e1 * t99495 - 0.5e1 / 0.12e2 * t99499 + 0.5e1 / 0.36e2 * t99503 + 0.5e1 / 0.36e2 * t99507 + t100877 + t100879 + t100881 + t100883 + t100885 + t100887 - t100889;
30839   t100892 = 0.5e1 / 0.18e2 * t13930 * t100224;
30840   t100894 = 0.5e1 / 0.18e2 * t19027 * t100177;
30841   t100896 = t24051 * t19011;
30842   t100898 = t13263 * t23896;
30843   t100899 = t100898 / 0.3e1;
30844   t100900 = t14624 * t23896;
30845   t100901 = t100900 / 0.3e1;
30846   t100902 = t13281 * t23896;
30847   t100903 = t100902 / 0.3e1;
30848   t100905 = t3945 * t4247 * t23637;
30849   t100906 = t100905 / 0.3e1;
30850   t100908 = t3945 * t1309 * t99548;
30851   t100909 = t100908 / 0.3e1;
30852   t100912 = t4166 * t23508;
30853   t100916 = t99489 * t1310;
30854   t100918 = t100892 + t100894 + 0.5e1 / 0.36e2 * t99511 + t100176 + t5056 - 0.2e1 / 0.3e1 * t100896 - t100899 - t100901 - t100903 - t100906 - t100909 - 0.5e1 / 0.192e3 * t100281 * t23889 - 0.5e1 / 0.192e3 * t23748 * t100912 * t23750 - t100916 / 0.3e1;
30855   t100920 = t99492 * t1310;
30856   t100922 = t23635 * t4248;
30857   t100924 = t23635 * t4251;
30858   t100941 = t99538 * t4239;
30859   t100943 = -t100920 / 0.3e1 - t100922 / 0.3e1 - t100924 / 0.3e1 - t18420 + 0.35e2 / 0.192e3 * t99464 * t23888 * t100267 - 0.5e1 / 0.96e2 * t99471 * t23888 * t100271 - 0.5e1 / 0.64e2 * t18362 * t23888 * t100227 - 0.5e1 / 0.64e2 * t23748 * t23888 * t100234 - 0.5e1 / 0.96e2 * t23748 * t23888 * t100204 + 0.5e1 / 0.3e1 * t100941 - t99520 + t99523 + t99526 + t18417;
30860   t100949 = t18423 + 0.5e1 / 0.72e2 * t99530 + 0.5e1 / 0.72e2 * t99532 + 0.5e1 / 0.72e2 * t99536 + 0.10e2 / 0.3e1 * t99539 - 0.4e1 / 0.3e1 * t99541 - t100258 - t100260 - t100261 - t100262 - t100263 + t23642 - t23898 - t23771;
30861   t100957 = -0.4e1 * t100863 - t100867 - 0.4e1 * t99642 + (t100890 + t100918 + t100943 + t100949) * t227 + 0.4e1 * t99644 + t99648 + 0.3e1 * t99649 + t99655 + 0.6e1 * t99656 - t99658 - 0.2e1 * t99660 + t99662;
30862   t100961 = t100588 + t100622 + t100648 + t100658 + t100674 + t100683 + t100703 + t100727 + t100748 + t100766 + t100797 + t100816 + t100826 + t100840 + t100862 + t100957;
30863   t100966 = 0.2e1 * t5213 * t1224;
30864   t100971 = t1315 * t5080;
30865   t100974 = t5065 * t1320;
30866   t100978 = 0.2e1 * t1216 * t5223;
30867   t100983 = t368 * t23965;
30868   t100985 = t4263 * t5077;
30869   t100986 = 0.3e1 * t100985;
30870   t100990 = t1318 * t18506;
30871   t100991 = 0.6e1 * t100990;
30872   t100993 = t1318 * t18498;
30873   t100996 = t99706 + t99714 + t99717 + t5079 + t100986 + 0.12e2 * t99695 + 0.12e2 * t99697 + t100519 + 0.6e1 * t99691 + t100991 + 0.24e2 * t99699 + 0.6e1 * t100993 + t99711 + 0.3e1 * t99689;
30874   t101001 = 0.6e1 * t5218 * t4003;
30875   t101003 = 0.12e2 * t5218 * t4000;
30876   t101004 = t1318 * t18501;
30877   t101009 = 0.6e1 * t19087 * t1221;
30878   t101010 = t4263 * t5074;
30879   t101012 = t100961 * t370 * params->d + 0.3e1 * t23955 * t875 + t100559 + t101001 + t101003 + 0.12e2 * t101004 + t101009 + 0.6e1 * t101010 + t18505 + t18508 + t23683 + t23865 + t23962 + 0.3e1 * t99693 + t99709;
30880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30881     v4rhosigma3[2] = t100565 + t7 * t100961 * t372 + t23947 * t878 + t100966 + 0.2e1 * t19076 * t1224 + 0.2e1 * t5214 * t4006 + t100971 + t4258 * t5080 + t1316 * t18509 + t100974 + t18475 * t1320 + t5066 * t4267 + t100978 + 0.2e1 * t3989 * t5223 + 0.2e1 * t1217 * t19100 + t100983 + t870 * t23965 + t872 * (t100996 + t101012);
30882 
30883   t101015 = t24101 * t372;
30884   t101017 = t66 * t3783 * t5267;
30885   t101021 = t66 * t1136 * t19298;
30886   t101028 = t5235 * t363;
30887   t101030 = t1204 * t101028 * t443;
30888   t101034 = t1204 * t1232 * t4041;
30889   t101040 = t23510 * t18530;
30890   t101048 = 0.40e2 / 0.27e2 * t71771 * t23649;
30891   t101050 = 0.5e1 / 0.18e2 * t71540 * t23649;
30892   t101051 = t1135 * t101017 / 0.6e1 + t1135 * t101021 / 0.6e1 + 0.5e1 / 0.6e1 * t19114 * t99082 - 0.5e1 / 0.18e2 * t19119 * t99086 - 0.5e1 / 0.3e1 * t3762 * t101030 + 0.2e1 / 0.3e1 * t3788 * t101034 + 0.5e1 / 0.48e2 * t26602 * t24028 * t24030 + 0.5e1 / 0.48e2 * t24029 * t101040 + 0.2e1 / 0.3e1 * t12758 * t23968 + 0.2e1 / 0.3e1 * t12788 * t23968 + t101048 - t101050;
30893   t101053 = 0.5e1 / 0.18e2 * t19122 * t99161;
30894   t101055 = 0.5e1 / 0.18e2 * t19122 * t99164;
30895   t101059 = 0.2e1 / 0.3e1 * t4009 * t23781;
30896   t101061 = 0.2e1 / 0.3e1 * t4017 * t23781;
30897   t101063 = 0.2e1 / 0.3e1 * t1227 * t99735;
30898   t101065 = 0.2e1 / 0.3e1 * t1227 * t99739;
30899   t101066 = t24028 * t23508;
30900   t101067 = t26389 * t101066;
30901   t101068 = t24148 * t18545;
30902   t101072 = 0.32e2 / 0.9e1 * t13453 * t23800;
30903   t101076 = 0.4e1 / 0.3e1 * t13412 * t23738;
30904   t101078 = 0.4e1 / 0.3e1 * t13424 * t23738;
30905   t101079 = -t101053 - t101055 - 0.5e1 / 0.36e2 * t5228 * t99565 - t101059 - t101061 - t101063 - t101065 - 0.35e2 / 0.48e2 * t101067 * t101068 + t101072 - 0.4e1 / 0.3e1 * t4026 * t99839 - t101076 - t101078;
30906   t101082 = 0.4e1 / 0.3e1 * t4026 * t100346;
30907   t101084 = 0.4e1 / 0.3e1 * t4026 * t100350;
30908   t101086 = 0.4e1 / 0.3e1 * t4026 * t100356;
30909   t101088 = 0.4e1 / 0.3e1 * t4026 * t100360;
30910   t101091 = t97 * t5267;
30911   t101093 = t1204 * t101091 * t443;
30912   t101096 = t96 * t5267;
30913   t101098 = t1204 * t101096 * t464;
30914   t101110 = 0.10e2 / 0.27e2 * t18679 * t23980;
30915   t101111 = -t101082 - t101084 - t101086 - t101088 + 0.5e1 / 0.36e2 * t18527 * t23980 - 0.5e1 / 0.6e1 * t3762 * t101093 + t3788 * t101098 / 0.3e1 - 0.4e1 / 0.3e1 * t13424 * t23800 - 0.4e1 / 0.3e1 * t4026 * t100329 - 0.4e1 / 0.3e1 * t4026 * t100333 - 0.4e1 / 0.3e1 * t4026 * t100337 - t101110;
30916   t101115 = 0.20e2 / 0.27e2 * t18679 * t23984;
30917   t101119 = 0.4e1 / 0.3e1 * t13412 * t23734;
30918   t101121 = 0.4e1 / 0.3e1 * t13424 * t23734;
30919   t101123 = 0.4e1 / 0.3e1 * t4026 * t99792;
30920   t101125 = 0.4e1 / 0.3e1 * t4026 * t99796;
30921   t101127 = 0.4e1 / 0.3e1 * t4026 * t99800;
30922   t101128 = t99080 / 0.3e1;
30923   t101129 = t99081 / 0.3e1;
30924   t101131 = 0.5e1 / 0.18e2 * t19122 * t99147;
30925   t101133 = 0.32e2 / 0.9e1 * t13453 * t23738;
30926   t101134 = 0.2e1 / 0.3e1 * t13167 * t23968 - t101115 + 0.5e1 / 0.36e2 * t5084 * t100392 - t101119 - t101121 - t101123 - t101125 - t101127 + t101128 + t101129 - t101131 + t101133;
30927   t101137 = 0.32e2 / 0.9e1 * t99754;
30928   t101139 = 0.32e2 / 0.9e1 * t13453 * t23734;
30929   t101140 = t99119 / 0.3e1;
30930   t101141 = t99121 / 0.3e1;
30931   t101142 = t99124 / 0.3e1;
30932   t101151 = t66 * t439 * t5235 * t363;
30933   t101155 = t66 * t24073 * t857;
30934   t101161 = 0.5e1 / 0.9e1 * t6453 * t23504 * t19142 * t24030;
30935   t101162 = t101137 + t101139 + t101140 + t101141 + t101142 + t3758 * t24075 / 0.3e1 + t3769 * t24075 / 0.3e1 + t3780 * t24075 / 0.3e1 + t1135 * t101151 / 0.3e1 + t1135 * t101155 / 0.3e1 + t23987 - t101161;
30936   t101170 = t12791 * t5239 * t443;
30937   t101173 = t99127 / 0.3e1;
30938   t101175 = t1214 * t5254 * t13051;
30939   t101177 = 0.4e1 * t5097 * t19268;
30940   t101179 = 0.4e1 * t1476 * t24088;
30941   t101181 = t1214 * t19265 * t3923;
30942   t101182 = 0.2e1 * t99167;
30943   t101183 = 0.2e1 * t99169;
30944   t101184 = 0.2e1 * t99171;
30945   t101185 = t3758 * t24079 / 0.6e1 + t3769 * t24079 / 0.6e1 + t3780 * t24079 / 0.6e1 - 0.10e2 / 0.3e1 * t3762 * t101170 + t101173 - t101175 - t101177 - t101179 - t101181 - t101182 - t101183 - t101184;
30946   t101188 = 0.2e1 * t1476 * t24091;
30947   t101190 = 0.2e1 * t2448 * t24091;
30948   t101191 = t174 * t24004;
30949   t101194 = 0.3e1 * t1214 * t101191 * t3980;
30950   t101200 = t6453 * t5227 * t23508;
30951   t101201 = t24148 * t18551;
30952   t101204 = t6453 * t101066;
30953   t101205 = t4934 * t18556;
30954   t101208 = t100379 * t18561;
30955   t101212 = 0.4e1 / 0.3e1 * t4026 * t99810;
30956   t101215 = t3958 * t23967;
30957   t101219 = t1204 * t4046 * t1231;
30958   t101222 = -t101188 - t101190 + t101194 - 0.5e1 / 0.18e2 * t19122 * t99103 - 0.5e1 / 0.18e2 * t19122 * t99116 + 0.5e1 / 0.16e2 * t101200 * t101201 + 0.5e1 / 0.16e2 * t101204 * t101205 + 0.5e1 / 0.24e2 * t101204 * t101208 - t101212 - 0.4e1 / 0.3e1 * t13412 * t23800 + 0.2e1 / 0.3e1 * t3788 * t101215 + 0.2e1 / 0.3e1 * t3788 * t101219;
30959   t101224 = t1204 * t70120 * t1231;
30960   t101228 = t1204 * t18732 * t4041;
30961   t101232 = t5044 * t69732 * t1133;
30962   t101236 = t1214 * t24005 * t3985;
30963   t101238 = 0.3e1 * t24065 * t3981;
30964   t101240 = 0.6e1 * t70029 * t18522;
30965   t101241 = 0.4e1 * t99964;
30966   t101242 = 0.4e1 * t99966;
30967   t101243 = 0.4e1 * t99969;
30968   t101245 = 0.2e1 * t3977 * t23988;
30969   t101248 = 0.4e1 * t99978;
30970   t101249 = 0.2e1 / 0.3e1 * t3788 * t101224 + 0.2e1 / 0.3e1 * t3788 * t101228 + 0.5e1 / 0.36e2 * t5084 * t101232 - t101236 + t101238 - t101240 - t101241 - t101242 - t101243 + t101245 - 0.3e1 * t5060 * t19154 - t101248;
30971   t101253 = t1252 * t1133;
30972   t101255 = t18543 * t101253 * t443;
30973   t101259 = t18543 * t101253 * t404;
30974   t101263 = t18555 * t101253 * t439;
30975   t101267 = t18560 * t101253 * t464;
30976   t101271 = 0.20e2 / 0.27e2 * t19144 * t23610;
30977   t101275 = 0.2e1 * t5155 * t18704;
30978   t101278 = 0.2e1 * t1214 * t4076 * t18617;
30979   t101280 = 0.20e2 / 0.3e1 * t4013 * t99973;
30980   t101282 = t13542 * t1190 * t4075;
30981   t101284 = 0.4e1 * t14484 * t101282;
30982   t101286 = t18560 * t4042 * t1133;
30983   t101291 = -0.5e1 / 0.6e1 * t18542 * t101255 + 0.5e1 / 0.18e2 * t18550 * t101259 + 0.5e1 / 0.18e2 * t5084 * t101263 + 0.5e1 / 0.18e2 * t5084 * t101267 + t101271 - 0.5e1 / 0.36e2 * t19318 * t23610 - t101275 - t101278 + t101280 + t101284 + 0.5e1 / 0.18e2 * t5084 * t101286 + 0.5e1 / 0.18e2 * t5084 * t100053;
30984   t101293 = 0.2e1 * t18738 * t5159;
30985   t101294 = t19276 * t18521;
30986   t101296 = 0.3e1 * t13345 * t101294;
30987   t101297 = t19286 * t18521;
30988   t101299 = 0.6e1 * t13345 * t101297;
30989   t101300 = 0.5e1 / 0.3e1 * t99208;
30990   t101301 = t71708 * t18624;
30991   t101303 = 0.2e1 * t14484 * t101301;
30992   t101307 = t4079 * t5123 * t677;
30993   t101309 = 0.6e1 * t13345 * t101307;
30994   t101311 = 0.20e2 / 0.3e1 * t4013 * t100059;
30995   t101314 = t18369 * t23983;
30996   t101318 = t18560 * t4035 * t1133;
30997   t101322 = 0.16e2 / 0.9e1 * t4021 * t23781;
30998   t101323 = -t101293 - t101296 + t101299 - t101300 + t101303 - 0.2e1 * t5060 * t19222 - t101309 + t101311 + 0.5e1 / 0.18e2 * t18527 * t23984 + 0.5e1 / 0.18e2 * t5084 * t101314 + 0.5e1 / 0.18e2 * t5084 * t101318 + t101322;
30999   t101325 = 0.4e1 * t100057;
31000   t101327 = 0.4e1 * t18654 * t5239;
31001   t101329 = 0.4e1 * t18640 * t5239;
31002   t101331 = 0.4e1 * t5097 * t19309;
31003   t101333 = 0.5e1 / 0.3e1 * t19114 * t99175;
31004   t101335 = 0.5e1 / 0.9e1 * t19119 * t99180;
31005   t101337 = 0.5e1 / 0.9e1 * t19122 * t99188;
31006   t101339 = 0.6e1 * t5155 * t18661;
31007   t101343 = 0.2e1 * t5155 * t18701;
31008   t101346 = 0.4e1 * t449 * t5135 * t4041;
31009   t101348 = 0.2e1 * t3977 * t24084;
31010   t101349 = -t101325 - t101327 - t101329 - t101331 + t101333 - t101335 - t101337 + t101339 + 0.5e1 / 0.48e2 * t24029 * t99579 - t101343 - t101346 - t101348;
31011   t101352 = 0.2e1 * t449 * t5267 * t3811;
31012   t101353 = 0.4e1 / 0.3e1 * t100090;
31013   t101354 = 0.4e1 / 0.3e1 * t100092;
31014   t101355 = 0.4e1 / 0.3e1 * t100094;
31015   t101356 = 0.4e1 / 0.3e1 * t100096;
31016   t101357 = 0.4e1 / 0.3e1 * t100098;
31017   t101358 = 0.4e1 * t100100;
31018   t101360 = 0.4e1 * t2448 * t24088;
31019   t101363 = 0.4e1 * t449 * t18638 * t1231;
31020   t101364 = t71739 * t18624;
31021   t101366 = 0.6e1 * t14484 * t101364;
31022   t101369 = 0.2e1 * t19219 * t5060 - t101352 - t101353 - t101354 - t101355 - t101356 - t101357 - t101358 - t101360 - t101363 - t101366 - t4957;
31023   t101372 = t3977 * t24006;
31024   t101375 = 0.2e1 * t1214 * t5258 * t48237;
31025   t101376 = t3977 * t24082;
31026   t101380 = 0.2e1 * t449 * t24022 * t464;
31027   t101383 = t24004 * t748;
31028   t101408 = 0.24e2 * t23695 * t99365 * t23999 * t743 - 0.12e2 * t23695 * t23696 * t5118 * t4058 - t99855 - t99856 - t99859 / 0.64e2 + t99862 / 0.96e2 - t99866 / 0.48e2 + t99868 / 0.192e3 + 0.6e1 * t23995 * t99350 - 0.6e1 * t23695 * t23696 * t5243 * t3897 + t99881 + t99882 + 0.18e2 * t99884 * t78733 * t3913 + t99900 + t99901;
31029   t101413 = 0.7e1 / 0.288e3 * t99915;
31030   t101415 = t23994 * t5115;
31031   t101424 = 0.7e1 / 0.288e3 * t99926;
31032   t101427 = -t99904 / 0.64e2 + 0.12e2 * t99878 * t18601 + t99909 / 0.192e3 + t101413 - t99918 / 0.192e3 + t99920 + t99921 - t99922 - 0.18e2 * t101415 * t18150 * t3907 - 0.6e1 * t99897 * t24000 - 0.12e2 * t101415 * t18155 * t3913 - t101424 + t99929 / 0.96e2 + t99931 / 0.48e2 - t99933 - t99934;
31033   t101430 = t175 * (t101408 + t101427) * t748;
31034   t101432 = t24004 * t2093;
31035   t101449 = t13542 * t5123 * t746;
31036   t101464 = 0.3e1 * t101383 * t1768 * t677 - t101432 * t2849 * t746 - t1190 * t2849 * t71704 - 0.2e1 * t13538 * t2849 * t5123 - 0.2e1 * t18613 * t2849 * t4079 - t19276 * t2849 * t3919 + 0.2e1 * t19286 * t2849 * t3919 + 0.4e1 * t101282 * t2849 - 0.3e1 * t101294 * t1768 + 0.6e1 * t101297 * t1768 + 0.2e1 * t101301 * t2849 - 0.6e1 * t101307 * t1768 - 0.6e1 * t101364 * t2849 + t101430 * t169 + 0.4e1 * t101449 * t2849;
31037   t101465 = my_piecewise3(t296, 0, t101464);
31038   t101468 = my_piecewise3(t359, 0, t101464);
31039   t101473 = t98 * (t101465 * t34 / 0.2e1 + t101468 * t46 / 0.2e1 + t24017 * t413 / 0.2e1 + t24019 * t436 / 0.2e1);
31040   t101475 = t19208 * t167 * t168;
31041   t101476 = t101475 * t1192;
31042   t101477 = 0.2e1 * t99594;
31043   t101478 = -0.4e1 * t18565 * t5499 + t24062 * t751 + t101372 + t101375 - t101376 - t101380 - t101473 + t101476 - t101477 - t18095 - t18097 - t18100;
31044   t101479 = 0.2e1 * t99599;
31045   t101480 = t24065 * t3986;
31046   t101484 = t1214 * t101430;
31047   t101486 = 0.2e1 * t18738 * t5125;
31048   t101487 = 0.2e1 * t99610;
31049   t101490 = 0.2e1 * t5155 * t18615;
31050   t101493 = 0.2e1 * t449 * t19298 * t1143;
31051   t101494 = t18469 * t5255 + t19266 * t5060 + 0.6e1 * t23835 * t4125 - t101479 - t101480 + t101484 + t101486 - t101487 + t101490 - t101493 - t24071 - t24072;
31052   t101499 = 0.4e1 * t14484 * t101449;
31053   t101504 = 0.10e2 / 0.3e1 * t4013 * t99776;
31054   t101506 = 0.4e1 / 0.3e1 * t4026 * t99781;
31055   t101507 = 0.20e2 / 0.3e1 * t100400;
31056   t101509 = 0.2e1 * t5155 * t18741;
31057   t101512 = 0.2e1 * t1245 * t99832 + 0.3e1 * t19148 * t5060 - t19301 * t5060 - 0.2e1 * t23835 * t4129 + t101499 + t101504 - t101506 + t101507 - t101509 - t24087 - t24096 - t24097;
31058   t101513 = 0.20e2 / 0.3e1 * t100165;
31059   t101514 = t1397 * t24055;
31060   t101518 = t400 * t1231 * t25;
31061   t101522 = t1231 * t1133;
31062   t101523 = t101522 * t443;
31063   t101524 = t23764 * t101523;
31064   t101527 = t101522 * t404;
31065   t101528 = t23764 * t101527;
31066   t101531 = t24038 * t443;
31067   t101535 = t24038 * t464;
31068   t101539 = t24038 * t404;
31069   t101543 = t18774 * t439;
31070   t101548 = 0.5e1 / 0.18e2 * t68568 * t24042;
31071   t101550 = 0.5e1 / 0.18e2 * t75398 * t24042;
31072   t101553 = 0.5e1 / 0.18e2 * t18368 * t5269 * t99534;
31073   t101554 = t1392 * t24050;
31074   t101556 = 0.4e1 / 0.3e1 * t101554 * t5274;
31075   t101557 = 0.5e1 / 0.3e1 * t99516;
31076   t101558 = -t101513 + 0.5e1 / 0.3e1 * t101514 * t3941 - 0.2e1 / 0.3e1 * t101518 * t1203 * t19196 + 0.5e1 / 0.3e1 * t70451 * t101524 - 0.5e1 / 0.9e1 * t13663 * t101528 + 0.35e2 / 0.48e2 * t99464 * t24037 * t101531 - 0.5e1 / 0.24e2 * t99471 * t24037 * t101535 - 0.5e1 / 0.16e2 * t18362 * t24037 * t101539 - 0.5e1 / 0.16e2 * t23748 * t24037 * t101543 + t101548 + t101550 + t101553 + t101556 + t101557 + t5056;
31077   t101559 = t101522 * t439;
31078   t101560 = t70271 * t101559;
31079   t101564 = t400 * t3811 * t25;
31080   t101566 = 0.4e1 / 0.3e1 * t101564 * t5274;
31081   t101568 = t400 * t1143 * t404;
31082   t101570 = 0.4e1 / 0.3e1 * t101568 * t5274;
31083   t101572 = 0.4e1 / 0.3e1 * t24051 * t19193;
31084   t101574 = 0.4e1 / 0.3e1 * t24051 * t19197;
31085   t101577 = 0.40e2 / 0.27e2 * t18368 * t19171 * t23630;
31086   t101579 = 0.32e2 / 0.9e1 * t24051 * t19189;
31087   t101580 = 0.4e1 / 0.3e1 * t100212;
31088   t101581 = 0.4e1 / 0.3e1 * t100214;
31089   t101582 = 0.4e1 / 0.3e1 * t100216;
31090   t101583 = 0.4e1 / 0.3e1 * t100219;
31091   t101584 = 0.8e1 * t99519;
31092   t101585 = 0.16e2 * t100240;
31093   t101586 = 0.2e1 * t99522;
31094   t101587 = -0.5e1 / 0.9e1 * t18823 * t101560 - t18420 + t101566 + t101570 + t101572 + t101574 - t101577 - t101579 + t101580 + t101581 + t101582 + t101583 - t101584 - t101585 + t101586;
31095   t101589 = 0.2e1 * t99525;
31096   t101591 = 0.5e1 / 0.3e1 * t72081 * t99498;
31097   t101593 = 0.5e1 / 0.9e1 * t72093 * t99502;
31098   t101595 = 0.5e1 / 0.9e1 * t72078 * t99510;
31099   t101602 = t4932 * t4933 * t4041 * t1133;
31100   t101606 = t4932 * t24045 * t3778;
31101   t101610 = t1397 * t24050 * t57;
31102   t101612 = 0.20e2 / 0.3e1 * t101610 * t19182;
31103   t101614 = 0.20e2 / 0.27e2 * t70224 * t24047;
31104   t101615 = 0.4e1 * t100253;
31105   t101616 = 0.4e1 * t100256;
31106   t101617 = t101589 - t101591 + t101593 + t101595 - 0.5e1 / 0.18e2 * t70322 * t24047 - 0.5e1 / 0.18e2 * t76866 * t24047 - 0.5e1 / 0.18e2 * t18823 * t101602 - 0.5e1 / 0.18e2 * t18823 * t101606 - t101612 + t101614 + t101615 + t101616 + t18417 + t18423 + t24054;
31107   t101618 = t99543 / 0.3e1;
31108   t101619 = t99544 / 0.3e1;
31109   t101620 = t99545 / 0.3e1;
31110   t101621 = t99547 / 0.3e1;
31111   t101622 = t99550 / 0.3e1;
31112   t101626 = 0.5e1 / 0.9e1 * t23748 * t19142 * t23508 * t24038;
31113   t101632 = t1392 * t24055;
31114   t101636 = t400 * t5235 * t404;
31115   t101643 = 0.32e2 / 0.9e1 * t100265;
31116   t101644 = -t101618 - t101619 - t101620 - t101621 - t101622 + t24061 + t101626 - 0.5e1 / 0.48e2 * t100281 * t24039 - 0.5e1 / 0.48e2 * t23748 * t24037 * t99481 - t101632 * t1205 / 0.3e1 - t101636 * t1205 / 0.3e1 - t24056 * t3955 / 0.3e1 - t24056 * t3959 / 0.3e1 - t24060 - t101643 + t24059;
31117   t101651 = 0.4e1 * t75579 * t18625;
31118   t101656 = t447 * t24022;
31119   t101657 = t24065 * t3921;
31120   t101660 = 0.2e1 * t1214 * t1244 * t70682;
31121   t101661 = t70080 * t101523;
31122   t101664 = t70080 * t101527;
31123   t101667 = t50654 * t101559;
31124   t101673 = (t101558 + t101587 + t101617 + t101644) * t227 + 0.20e2 / 0.3e1 * t4013 * t100469 + t101651 - 0.2e1 * t19127 * t1199 - 0.2e1 * t5236 * t3934 - t101656 + t101657 - t101660 - 0.5e1 / 0.3e1 * t70074 * t101661 + 0.5e1 / 0.9e1 * t70086 * t101664 + 0.5e1 / 0.9e1 * t70173 * t101667 - t18469 * t5259 + 0.2e1 * t23835 * t4077;
31125   t101677 = t101051 + t101079 + t101111 + t101134 + t101162 + t101185 + t101222 + t101249 + t101291 + t101323 + t101349 + t101369 + t101478 + t101494 + t101512 + t101673;
31126   t101681 = t5285 * t1224;
31127   t101685 = 0.2e1 * t5161 * t1272;
31128   t101691 = 0.2e1 * t1264 * t5175;
31129   t101696 = t1216 * t5297;
31130   t101699 = t368 * t24127;
31131   t101703 = 0.6e1 * t99713;
31132   t101704 = 0.6e1 * t99716;
31133   t101705 = 0.6e1 * t99703;
31134   t101708 = 0.12e2 * t369 * t5149 * t4041;
31135   t101714 = 0.12e2 * t1267 * t18888;
31136   t101718 = 0.12e2 * t1267 * t18891;
31137   t101720 = 0.12e2 * t1267 * t18894;
31138   t101721 = 0.6e1 * t100528;
31139   t101723 = 0.12e2 * t4137 * t5172;
31140   t101724 = 0.6e1 * t99710;
31141   t101726 = 0.6e1 * t873 * t24121;
31142   t101727 = 0.12e2 * t1219 * t19353 + 0.3e1 * t24110 * t875 + 0.6e1 * t3994 * t5294 + 0.12e2 * t4143 * t5166 + t101703 + t101704 + t101705 + t101708 + t101714 + t101718 + t101720 + t101721 + t101723 + t101724 + t101726 + t24118 + t5079;
31143   t101730 = 0.6e1 * t369 * t3811 * t5235;
31144   t101731 = 0.12e2 * t100543;
31145   t101739 = 0.3e1 * t19338 * t1221;
31146   t101740 = 0.12e2 * t100550;
31147   t101741 = 0.12e2 * t100553;
31148   t101745 = 0.3e1 * t5290 * t4003;
31149   t101746 = 0.3e1 * t99701;
31150   t101747 = 0.12e2 * t100560;
31151   t101749 = 0.6e1 * t5290 * t4000;
31152   t101750 = t101677 * t370 * params->d + 0.6e1 * t1219 * t19350 + 0.6e1 * t1269 * t18870 + 0.6e1 * t4146 * t5166 + t101730 + t101731 + t101739 + t101740 + t101741 + t101745 + t101746 + t101747 + t101749 + t18505 + t18508 + t24124 + t24125 + t24126;
31153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31154     v4rhosigma3[3] = t101015 + t7 * t101677 * t372 + t24102 * t878 + t101681 + t19327 * t1224 + t5286 * t4006 + t101685 + 0.2e1 * t18859 * t1272 + 0.2e1 * t5162 * t4149 + t101691 + 0.2e1 * t4132 * t5175 + 0.2e1 * t1265 * t18897 + t101696 + t3989 * t5297 + t1217 * t19356 + t101699 + t870 * t24127 + t872 * (t101727 + t101750);
31155 
31156   t101753 = t24208 * t372;
31157   t101757 = 0.5e1 / 0.36e2 * t24147 * t24148 * t72502 * t1133;
31158   t101758 = t4156 * t99776;
31159   t101760 = t4173 * t99781;
31160   t101776 = t13412 * t23883;
31161   t101778 = t13424 * t23883;
31162   t101780 = t4026 * t100640;
31163   t101782 = t23880 + t101757 - 0.5e1 / 0.6e1 * t101758 + t101760 / 0.3e1 + t4173 * t99839 / 0.3e1 + 0.5e1 / 0.72e2 * t18940 * t24143 + 0.5e1 / 0.72e2 * t18945 * t24143 + 0.5e1 / 0.72e2 * t5179 * t5044 * t68123 * t57 + t13167 * t24161 / 0.3e1 + t12758 * t24161 / 0.3e1 - t99722 - t99724 - t99726 - t99728 - 0.2e1 / 0.3e1 * t101776 - 0.2e1 / 0.3e1 * t101778 - 0.2e1 / 0.3e1 * t101780;
31164   t101783 = t4026 * t100813;
31165   t101785 = t4026 * t100569;
31166   t101787 = t4152 * t23781;
31167   t101789 = t4160 * t23781;
31168   t101791 = t4168 * t23781;
31169   t101793 = t1277 * t99735;
31170   t101795 = t1277 * t99739;
31171   t101804 = 0.5e1 / 0.27e2 * t5179 * t5044 * t18205 * t423;
31172   t101806 = t5179 * t18369 * t24129;
31173   t101810 = t5179 * t18560 * t72377 * t1143;
31174   t101814 = t5179 * t18560 * t19359 * t3811;
31175   t101820 = t5179 * t18560 * t72502 * t1143;
31176   t101821 = 0.10e2 / 0.27e2 * t101820;
31177   t101822 = t24148 * t363;
31178   t101823 = t57 * t1133;
31179   t101824 = t101823 * t443;
31180   t101828 = t101823 * t404;
31181   t101832 = t101823 * t439;
31182   t101836 = t100379 * t363;
31183   t101837 = t101823 * t464;
31184   t101841 = -0.2e1 / 0.3e1 * t101783 - 0.2e1 / 0.3e1 * t101785 + t101787 / 0.6e1 + t101789 / 0.6e1 + t101791 / 0.6e1 + t101793 / 0.6e1 + t101795 / 0.6e1 - 0.5e1 / 0.96e2 * t24147 * t24148 * t72377 * t1133 - t101804 + 0.5e1 / 0.36e2 * t101806 + 0.5e1 / 0.36e2 * t101810 + 0.5e1 / 0.36e2 * t101814 - 0.5e1 / 0.72e2 * t18940 * t23984 - t101821 + 0.35e2 / 0.96e2 * t100782 * t101822 * t101824 - 0.5e1 / 0.32e2 * t100786 * t101822 * t101828 - 0.5e1 / 0.32e2 * t24147 * t4935 * t101832 - 0.5e1 / 0.48e2 * t24147 * t101836 * t101837;
31185   t101850 = t1204 * t18923 * t4041;
31186   t101853 = t1199 * t57;
31187   t101862 = t18640 * t5309;
31188   t101864 = t5097 * t19482;
31189   t101866 = t4173 * t100346;
31190   t101869 = t4173 * t100350;
31191   t101871 = t4173 * t100356;
31192   t101873 = t4173 * t100360;
31193   t101879 = 0.5e1 / 0.12e2 * t71136 * t101661 - 0.5e1 / 0.36e2 * t70858 * t101664 - 0.5e1 / 0.36e2 * t70855 * t101667 + t99729 + t3788 * t101850 / 0.3e1 - 0.5e1 / 0.12e2 * t18989 * t18543 * t101853 * t443 + 0.5e1 / 0.36e2 * t18957 * t18543 * t101853 * t404 - 0.2e1 * t101862 - 0.2e1 * t101864 + t101866 / 0.3e1 - 0.2e1 / 0.3e1 * t99732 + t101869 / 0.3e1 + t101871 / 0.3e1 + t101873 / 0.3e1 - 0.5e1 / 0.144e3 * t18940 * t23980 + t99736 / 0.6e1 + t99740 / 0.6e1;
31194   t101882 = t3958 * t24160;
31195   t101886 = t1204 * t4179 * t1231;
31196   t101890 = t1204 * t71149 * t1231;
31197   t101899 = t13811 * t23734;
31198   t101901 = t13876 * t23734;
31199   t101904 = t13870 * t23734;
31200   t101909 = t13811 * t23738;
31201   t101912 = t101128 + t101129 + t12788 * t24161 / 0.3e1 + t3788 * t101882 / 0.3e1 + t3788 * t101886 / 0.3e1 + t3788 * t101890 / 0.3e1 + t99755 - 0.5e1 / 0.144e3 * t18945 * t23980 - 0.5e1 / 0.144e3 * t5179 * t101232 - 0.5e1 / 0.144e3 * t5179 * t100392 + t101899 / 0.3e1 + t101901 / 0.3e1 - 0.2e1 / 0.3e1 * t99770 + t101904 / 0.3e1 - 0.2e1 / 0.3e1 * t99772 - 0.2e1 / 0.3e1 * t4026 * t100612 + t101909 / 0.3e1 - 0.5e1 / 0.6e1 * t99777;
31202   t101923 = t13876 * t23738;
31203   t101925 = t13870 * t23738;
31204   t101927 = t4173 * t99792;
31205   t101929 = t4173 * t99796;
31206   t101931 = t18654 * t5309;
31207   t101933 = t99782 / 0.3e1 + t99784 / 0.3e1 + t99788 / 0.3e1 + t99790 / 0.3e1 + t99793 / 0.3e1 + t99797 / 0.3e1 + t99801 / 0.3e1 + t99811 / 0.3e1 + t101923 / 0.3e1 + t101925 / 0.3e1 + t101927 / 0.3e1 + t101140 + t101929 / 0.3e1 + t101141 + t101142 + t99823 - 0.2e1 * t101931;
31208   t101935 = t12791 * t5309 * t443;
31209   t101941 = t4156 * t99973;
31210   t101944 = 0.5e1 / 0.27e2 * t18679 * t24157;
31211   t101947 = t4026 * t100602;
31212   t101952 = t5044 * t71168 * t1133;
31213   t101955 = t13453 * t23883;
31214   t101956 = 0.16e2 / 0.9e1 * t101955;
31215   t101957 = 0.16e2 / 0.9e1 * t99836;
31216   t101961 = t23987 - 0.5e1 / 0.3e1 * t3762 * t101935 - 0.2e1 * t99825 - 0.2e1 * t99827 - 0.2e1 * t99829 - 0.5e1 / 0.3e1 * t101941 + t99833 + t101173 - t101944 + 0.5e1 / 0.72e2 * t5084 * t100625 - 0.2e1 / 0.3e1 * t101947 + 0.5e1 / 0.72e2 * t18527 * t24157 + 0.5e1 / 0.72e2 * t5084 * t101952 + t101956 + t101957 - 0.2e1 / 0.3e1 * t99842 - 0.2e1 / 0.3e1 * t99847 - 0.2e1 / 0.3e1 * t99849;
31217   t101972 = -t99851 + t99854 + t99939 - 0.2e1 * t2448 * t24203 + t99941 - t99943 - t99944 - t99945 - t99946 + t99949 - t99951 + 0.3e1 * t99953 + t99956 + t99960 - 0.5e1 / 0.72e2 * t18945 * t23984 - 0.5e1 / 0.72e2 * t5179 * t101314 - 0.5e1 / 0.72e2 * t5179 * t101318;
31218   t101975 = t57 * t1143;
31219   t101976 = t101975 * t443;
31220   t101978 = t71136 * t70080 * t101976;
31221   t101980 = t101975 * t404;
31222   t101982 = t70858 * t70080 * t101980;
31223   t101984 = t101975 * t439;
31224   t101986 = t70855 * t50654 * t101984;
31225   t101992 = -0.5e1 / 0.72e2 * t5179 * t101286 - 0.5e1 / 0.6e1 * t101978 + 0.5e1 / 0.18e2 * t101982 + 0.5e1 / 0.18e2 * t101986 - t99963 - t99965 - t99967 - t99970 - 0.5e1 / 0.3e1 * t99974 + 0.3e1 * t99976 - t99979 + t24183 * t751 - t99990 - t99991 - t99996 - t99998 - t100003 + 0.5e1 / 0.36e2 * t100014;
31226   t102005 = t4173 * t99810;
31227   t102018 = 0.5e1 / 0.36e2 * t100018 + 0.5e1 / 0.36e2 * t100020 + 0.5e1 / 0.36e2 * t100023 + 0.5e1 / 0.36e2 * t100027 - t100037 - t100709 - t101300 - t100039 - 0.2e1 * t449 * t19070 * t1231 - 0.5e1 / 0.72e2 * t5179 * t100053 + t102005 / 0.3e1 + t13811 * t23800 / 0.3e1 + t13876 * t23800 / 0.3e1 + t13870 * t23800 / 0.3e1 + t4173 * t100329 / 0.3e1 - t100058 - 0.2e1 * t449 * t5198 * t4041;
31228   t102019 = t23509 * t423;
31229   t102023 = 0.5e1 / 0.36e2 * t23748 * t23888 * t102019 * t1133;
31230   t102024 = 0.10e2 / 0.27e2 * t100155;
31231   t102036 = t101554 * t5316;
31232   t102038 = t101564 * t5316;
31233   t102041 = t101568 * t5316;
31234   t102043 = t24051 * t19420;
31235   t102045 = t24051 * t19423;
31236   t102047 = t24051 * t19426;
31237   t102049 = t23747 * t1275;
31238   t102050 = t6453 * t102049;
31239   t102054 = t71331 * t24174;
31240   t102056 = t78295 * t24174;
31241   t102058 = t71345 * t24174;
31242   t102062 = t19027 * t4932 * t19430 * t3811;
31243   t102064 = -t102041 / 0.3e1 - t102043 / 0.3e1 - t102045 / 0.3e1 - t102047 / 0.3e1 + t100887 + t101557 + 0.5e1 / 0.32e2 * t102050 * t99582 * t101832 - 0.5e1 / 0.36e2 * t102054 - 0.5e1 / 0.36e2 * t102056 - 0.5e1 / 0.36e2 * t102058 - 0.5e1 / 0.36e2 * t102062;
31244   t102075 = t26389 * t102049;
31245   t102080 = t6453 * t99470 * t1275;
31246   t102089 = t19027 * t4932 * t72741 * t1143;
31247   t102090 = 0.10e2 / 0.27e2 * t102089;
31248   t102093 = -t100906 - t100909 - 0.35e2 / 0.96e2 * t102075 * t23510 * t101824 + 0.5e1 / 0.48e2 * t102080 * t23510 * t101837 + 0.5e1 / 0.32e2 * t19023 * t23510 * t101828 + t102090 - t18420 - t100199 / 0.3e1 - t100202 / 0.3e1 - t100209 + t100211;
31249   t102099 = t19027 * t70271 * t101984;
31250   t102117 = t1397 * t24050 * t1275;
31251   t102118 = t102117 * t19182;
31252   t102120 = -t100241 - t100243 / 0.3e1 - t100245 / 0.3e1 - t100247 / 0.3e1 - t100249 / 0.3e1 + t100251 + t100252 + 0.5e1 / 0.72e2 * t71345 * t24047 + 0.5e1 / 0.72e2 * t19027 * t101602 + 0.5e1 / 0.72e2 * t19027 * t101606 + 0.5e1 / 0.3e1 * t102118;
31253   t102124 = t100254 + t100257 + t18417 + t18423 + t23762 - t101618 - t101619 - t101620 - t101621 - t101622 + 0.5e1 / 0.36e2 * t19027 * t101560;
31254   t102126 = t71312 * t23764 * t101976;
31255   t102129 = t13930 * t23764 * t101980;
31256   t102131 = t23775 - t23898 - t24060 - t100266 + 0.5e1 / 0.6e1 * t102126 - 0.5e1 / 0.18e2 * t102129 + t23774 - t100280 + t100285 + t100287 + t100289;
31257   t102138 = t1307 * t1133;
31258   t102140 = t18543 * t102138 * t443;
31259   t102144 = t18543 * t102138 * t404;
31260   t102148 = t18555 * t102138 * t439;
31261   t102152 = t18560 * t102138 * t464;
31262   t102155 = t4156 * t100059;
31263   t102169 = (0.5e1 / 0.72e2 * t71331 * t24047 + 0.5e1 / 0.72e2 * t78295 * t24047 - 0.5e1 / 0.12e2 * t71312 * t101524 + 0.5e1 / 0.36e2 * t13930 * t101528 + 0.5e1 / 0.96e2 * t100281 * t24170 + t102124 + t102064 - 0.5e1 / 0.36e2 * t100186 + t102131 - t100238 + t100220 + 0.5e1 / 0.6e1 * t100222 + t102120 - 0.5e1 / 0.36e2 * t100174 - t100901 - 0.5e1 / 0.18e2 * t102099 - t100899 - 0.5e1 / 0.18e2 * t100178 + 0.5e1 / 0.3e1 * t100163 - t100903 + t102093 - t102036 / 0.3e1 - t102038 / 0.3e1 - 0.5e1 / 0.18e2 * t100225 + t100217 + 0.5e1 / 0.96e2 * t23748 * t100912 * t24169 + t100213 + t100215 + 0.5e1 / 0.96e2 * t23748 * t23888 * t24168 * t3778 - t102023 - t100166 + t5056 - 0.5e1 / 0.36e2 * t100180 - 0.5e1 / 0.36e2 * t100182 + t102024) * t227 - 0.5e1 / 0.3e1 * t100060 + 0.10e2 / 0.3e1 * t100062 + t100064 - 0.5e1 / 0.12e2 * t18542 * t102140 + 0.5e1 / 0.36e2 * t18550 * t102144 + 0.5e1 / 0.36e2 * t5084 * t102148 + 0.5e1 / 0.36e2 * t5084 * t102152 - 0.5e1 / 0.3e1 * t102155 - 0.5e1 / 0.3e1 * t4156 * t100469 + t100066 + t100067 / 0.6e1 + t100069 / 0.6e1 + t100071 / 0.6e1 + t4173 * t100333 / 0.3e1 + t4173 * t100337 / 0.3e1 - t4957 - 0.5e1 / 0.96e2 * t26602 * t24146 * t24150;
31264   t102175 = t4173 * t99800;
31265   t102183 = -0.5e1 / 0.96e2 * t6453 * t100695 * t23508 * t24150 + t102175 / 0.3e1 + t100076 + 0.5e1 / 0.3e1 * t4013 * t100607 - t100079 - t100091 - t100093 - t100095 - t100097 - t100099 - 0.5e1 / 0.96e2 * t24147 * t24148 * t19359 * t3778 - t100101 + t100801 + t100803 + t100805 + t100807 + t100809;
31266   t102185 = t78059 * t18625;
31267   t102187 = t5211 * t18661;
31268   t102192 = t71026 * t18522;
31269   t102194 = t100811 - 0.3e1 * t100102 + 0.2e1 * t102185 - t100108 - t18095 - t18097 - t18100 - t100111 - t23910 - t100112 + 0.3e1 * t102187 - 0.5e1 / 0.6e1 * t100116 + 0.5e1 / 0.18e2 * t100120 + 0.5e1 / 0.18e2 * t100124 - 0.3e1 * t102192 - t101477 - t100128 - t101479;
31270   t102198 = t24189 * t3986;
31271   t102199 = t24189 * t3921;
31272   t102200 = t5097 * t19475;
31273   t102204 = -0.2e1 * t1476 * t24203 + t23929 * t4077 - t100132 - t100135 + t100137 + t100139 - t100140 + t100143 - t100146 - t100149 - t100154 - t100296 - t102198 + t102199 - 0.2e1 * t102200 - t23796 - t24072;
31274   t102205 = t5211 * t18704;
31275   t102214 = t4013 * t100662;
31276   t102216 = t18940 * t24130;
31277   t102218 = t18945 * t24130;
31278   t102229 = t19455 * t167 * t168;
31279   t102230 = t102229 * t1192;
31280   t102231 = t24189 * t3981;
31281   t102234 = t5211 * t18701;
31282   t102235 = -t102205 + 0.5e1 / 0.36e2 * t5179 * t18555 * t101853 * t439 + 0.5e1 / 0.36e2 * t5179 * t18560 * t101853 * t464 + 0.10e2 / 0.3e1 * t102214 + 0.5e1 / 0.36e2 * t102216 + 0.5e1 / 0.36e2 * t102218 - t101487 - t4009 * t23925 / 0.3e1 - t4017 * t23925 / 0.3e1 - t1227 * t100754 / 0.3e1 - t1227 * t100758 / 0.3e1 + t102230 + 0.3e1 * t102231 - t23929 * t4129 - t100306 - t102234 + t100307 - t23806;
31283   t102238 = 0.8e1 / 0.9e1 * t4021 * t23925;
31284   t102239 = 0.10e2 / 0.27e2 * t100308;
31285   t102242 = t18978 * t5159;
31286   t102259 = t102238 - t102239 + 0.3e1 * t23929 * t4125 - t102242 - t100322 + 0.2e1 * t100323 + t100328 + 0.5e1 / 0.24e2 * t18989 * t101255 - 0.5e1 / 0.72e2 * t18957 * t101259 - 0.5e1 / 0.72e2 * t5179 * t101263 - 0.5e1 / 0.72e2 * t5179 * t101267 + t100340 / 0.3e1 + t100342 / 0.3e1 + t100344 / 0.3e1 + t100347 / 0.3e1 + t100351 / 0.3e1 + t100357 / 0.3e1 + t100361 / 0.3e1;
31287   t102261 = t5211 * t18741;
31288   t102263 = t18978 * t5125;
31289   t102264 = t5211 * t18615;
31290   t102265 = t100711 * t1245 + t100398 + t100401 - t100402 - t100410 + t100414 - 0.2e1 * t100415 - t100462 - t100464 - t100467 - t100856 - t100858 - t100861 - t102261 + t102263 + t102264 - t23822 - t23825;
31291   t102269 = t101782 + t101841 + t101879 + t101912 + t101933 + t101961 + t101972 + t101992 + t102018 + t102169 + t102183 + t102194 + t102204 + t102235 + t102259 + t102265;
31292   t102273 = t5322 * t1224;
31293   t102276 = t5213 * t1272;
31294   t102279 = t1315 * t5175;
31295   t102282 = t102269 * t372 * t7 + t1224 * t19503 + t1272 * t19076 + t1316 * t18897 + t24209 * t878 + t4006 * t5323 + t4149 * t5214 + t4258 * t5175 + t101753 + t102273 + t102276 + t102279;
31296   t102283 = t5161 * t1320;
31297   t102286 = t1264 * t5223;
31298   t102289 = t1216 * t5331;
31299   t102292 = t368 * t24227;
31300   t102296 = t19514 * t1221;
31301   t102298 = t4263 * t5172;
31302   t102303 = 0.3e1 * t1269 * t19087 + 0.3e1 * t24217 * t875 + t100509 + t100514 + t100515 + t100516 + 0.3e1 * t100517 + t100986 + 0.3e1 * t102296 + 0.6e1 * t102298 + t5079;
31303   t102306 = t5327 * t4000;
31304   t102310 = t1318 * t18891;
31305   t102312 = t1318 * t18894;
31306   t102314 = t1318 * t18888;
31307   t102316 = 0.6e1 * t4143 * t5218 + 0.3e1 * t100520 + t100525 + 0.6e1 * t100526 + t100529 + t100991 + t101705 + 0.6e1 * t102306 + 0.6e1 * t102310 + 0.6e1 * t102312 + 0.6e1 * t102314;
31308   t102322 = t5327 * t4003;
31309   t102326 = t102269 * t370 * params->d + 0.3e1 * t4146 * t5218 + t100530 + t100532 + 0.6e1 * t100534 + 0.6e1 * t100536 + t100544 + t100547 + 0.3e1 * t102322 + t23860 + t23962;
31310   t102329 = t100549 + t23872 + t100551 + t100554 + t24125 + t18508 + 0.6e1 * t100555 + 0.6e1 * t100557 + t101746 + t100561 + t18505 + t23869;
31311   t102333 = t102283 + t18859 * t1320 + t5162 * t4267 + t102286 + t4132 * t5223 + t1265 * t19100 + t102289 + t3989 * t5331 + t1217 * t19524 + t102292 + t870 * t24227 + t872 * (t102303 + t102316 + t102326 + t102329);
31312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31313     v4rhosigma3[4] = t102282 + t102333;
31314 
31315   t102334 = t24275 * t372;
31316   t102344 = t66 * t3783 * t5381;
31317   t102348 = t66 * t1136 * t19689;
31318   t102351 = t24258 * t23508;
31319   t102352 = t6453 * t102351;
31320   t102357 = t100567 + t24229 - 0.5e1 / 0.144e3 * t19582 * t23610 - 0.5e1 / 0.144e3 * t5335 * t99565 + t100571 + 0.5e1 / 0.24e2 * t19560 * t99082 - 0.5e1 / 0.72e2 * t19565 * t99086 + t1135 * t102344 / 0.6e1 + t1135 * t102348 / 0.6e1 + 0.5e1 / 0.64e2 * t102352 * t101205 + 0.5e1 / 0.96e2 * t102352 * t101208;
31321   t102358 = t19532 * t99161;
31322   t102360 = t19532 * t99164;
31323   t102378 = -0.5e1 / 0.72e2 * t102358 - 0.5e1 / 0.72e2 * t102360 + 0.4e1 * t100572 + 0.5e1 / 0.192e3 * t24259 * t99579 + t4152 * t23925 / 0.3e1 + t4160 * t23925 / 0.3e1 + t4168 * t23925 / 0.3e1 + t1277 * t100754 / 0.3e1 + t1277 * t100758 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t100625 - 0.10e2 / 0.3e1 * t100574;
31324   t102381 = t97 * t5381;
31325   t102383 = t1204 * t102381 * t443;
31326   t102386 = t96 * t5381;
31327   t102388 = t1204 * t102386 * t464;
31328   t102391 = t24269 * t3921;
31329   t102392 = 0.4e1 / 0.3e1 * t100576 + t100579 + t100581 + t100583 + t100585 + t100587 + t100590 - 0.5e1 / 0.6e1 * t3762 * t102383 + t3788 * t102388 / 0.3e1 + t102391 + t100604;
31330   t102393 = t19532 * t99147;
31331   t102400 = -0.5e1 / 0.72e2 * t102393 + t100635 + t100637 + t100639 + t100642 + 0.6e1 * t100643 - 0.4e1 * t100645 + t101128 + t101129 + t99089 / 0.3e1 + t99090 / 0.3e1 + t99091 / 0.3e1;
31332   t102405 = t24269 * t3986;
31333   t102406 = t24269 * t3981;
31334   t102408 = t13870 * t23883;
31335   t102410 = t4173 * t100640;
31336   t102412 = t4173 * t100813;
31337   t102414 = t4173 * t100569;
31338   t102416 = t99095 / 0.3e1 + t99098 / 0.3e1 - t102405 + 0.3e1 * t102406 + t101140 + t101141 + t101142 + 0.2e1 / 0.3e1 * t102408 + 0.2e1 / 0.3e1 * t102410 + 0.2e1 / 0.3e1 * t102412 + 0.2e1 / 0.3e1 * t102414;
31339   t102421 = t4156 * t100662;
31340   t102432 = t26602 * t24258;
31341   t102437 = -0.5e1 / 0.3e1 * t4156 * t100607 + 0.2e1 / 0.3e1 * t4173 * t100612 - 0.10e2 / 0.3e1 * t102421 + 0.5e1 / 0.12e2 * t18989 * t102140 - 0.5e1 / 0.36e2 * t18957 * t102144 - 0.5e1 / 0.36e2 * t5179 * t102148 - 0.5e1 / 0.36e2 * t5179 * t102152 - 0.4e1 * t100654 + t23987 + 0.5e1 / 0.192e3 * t102432 * t24030 + 0.5e1 / 0.192e3 * t24259 * t101040;
31342   t102439 = t19560 * t99175;
31343   t102441 = t19565 * t99180;
31344   t102445 = t5179 * t18560 * t1144 * t4166;
31345   t102447 = t19532 * t99188;
31346   t102450 = t449 * t5381 * t3811;
31347   t102455 = -t100657 - t100664 + 0.5e1 / 0.12e2 * t102439 - 0.5e1 / 0.36e2 * t102441 - 0.5e1 / 0.36e2 * t102445 - 0.5e1 / 0.36e2 * t102447 + t101173 - 0.2e1 * t102450 - 0.5e1 / 0.3e1 * t99153 + 0.2e1 / 0.3e1 * t99157 + 0.2e1 * t100678;
31348   t102464 = t73019 * t23649;
31349   t102467 = -t99168 - t99170 - t99172 + t99173 + t99193 - 0.5e1 / 0.72e2 * t5179 * t5044 * t18205 * t4166 - 0.5e1 / 0.72e2 * t19532 * t99103 - 0.5e1 / 0.72e2 * t19532 * t99116 - 0.5e1 / 0.72e2 * t102464 - 0.2e1 * t100694 + t99202 - t99205;
31350   t102471 = t1476 * t24271;
31351   t102473 = t2448 * t24271;
31352   t102476 = t449 * t19689 * t1143;
31353   t102478 = 0.10e2 / 0.3e1 * t100708;
31354   t102480 = t19716 * t167 * t168;
31355   t102481 = t102480 * t1192;
31356   t102486 = -0.2e1 * t102471 - 0.2e1 * t102473 - 0.2e1 * t102476 - t102478 - t101300 + t102481 + t100713 - 0.6e1 * t100714 - 0.2e1 * t99210 + 0.2e1 / 0.3e1 * t100731 + 0.2e1 / 0.3e1 * t100733;
31357   t102490 = 0.2e1 / 0.3e1 * t100735 + t100738 - t100740 - t100742 + 0.2e1 * t100743 - t100744 + t100746 + t99451 + t99453 + t99454 - 0.4e1 * t99462;
31358   t102492 = t4173 * t100602;
31359   t102500 = t13811 * t23883;
31360   t102502 = t13876 * t23883;
31361   t102505 = t26389 * t102351;
31362   t102509 = t6453 * t5334 * t23508;
31363   t102516 = 0.2e1 / 0.3e1 * t102492 - 0.5e1 / 0.72e2 * t18940 * t24157 - 0.5e1 / 0.72e2 * t18945 * t24157 - 0.5e1 / 0.72e2 * t5179 * t101952 + 0.2e1 / 0.3e1 * t102500 + 0.2e1 / 0.3e1 * t102502 - t4957 - 0.2e1 * t99555 - 0.35e2 / 0.192e3 * t102505 * t101068 + 0.5e1 / 0.64e2 * t102509 * t101201 + 0.5e1 / 0.96e2 * t24147 * t24148 * t18544 * t4166;
31364   t102517 = 0.2e1 / 0.3e1 * t100800;
31365   t102518 = 0.2e1 / 0.3e1 * t100802;
31366   t102519 = 0.2e1 / 0.3e1 * t100804;
31367   t102520 = 0.2e1 / 0.3e1 * t100806;
31368   t102521 = -t100763 - t100765 - t100769 - t100771 - t100773 - t100775 - t100781 + t100799 + t102517 + t102518 + t102519 + t102520;
31369   t102524 = 0.2e1 / 0.3e1 * t100808;
31370   t102525 = 0.2e1 / 0.3e1 * t100810;
31371   t102533 = t102524 + t102525 + t100815 + t3758 * t24255 / 0.6e1 + t3769 * t24255 / 0.6e1 + t3780 * t24255 / 0.6e1 - t18095 - t18097 - t18100 - t24249 - 0.3e1 * t99589;
31372   t102535 = -t99593 - t101477 - t101479 - t99602 + t99606 - t23619 - t24072 - 0.2e1 * t100827 - t101487 - t99617 - t99631;
31373   t102560 = 0.35e2 / 0.192e3 * t99464 * t24231 * t101531 - 0.5e1 / 0.96e2 * t99471 * t24231 * t101535 - 0.5e1 / 0.64e2 * t18362 * t24231 * t101539 - 0.5e1 / 0.96e2 * t23748 * t23888 * t24038 * t4166 - 0.5e1 / 0.64e2 * t23748 * t24231 * t101543 - t99490 / 0.3e1 - t99493 / 0.3e1 - t99494 / 0.3e1 - t99495 / 0.3e1 + t100877 + t100879 + t100881 + t100883 + t100885;
31374   t102561 = 0.10e2 / 0.3e1 * t100886;
31375   t102564 = t19027 * t4932 * t99496 * t4166;
31376   t102566 = t73544 * t99510;
31377   t102568 = t73580 * t99498;
31378   t102570 = t73535 * t99502;
31379   t102573 = 0.2e1 / 0.3e1 * t100898;
31380   t102574 = 0.2e1 / 0.3e1 * t100900;
31381   t102575 = 0.2e1 / 0.3e1 * t100902;
31382   t102576 = t102561 + 0.5e1 / 0.36e2 * t102564 - t100889 + t100892 + t100894 + t101557 + 0.5e1 / 0.36e2 * t102566 - 0.5e1 / 0.12e2 * t102568 + 0.5e1 / 0.36e2 * t102570 + t5056 - 0.4e1 / 0.3e1 * t100896 - t102573 - t102574 - t102575;
31383   t102578 = 0.2e1 / 0.3e1 * t100905;
31384   t102579 = 0.2e1 / 0.3e1 * t100908;
31385   t102586 = -t102578 - t102579 - 0.2e1 / 0.3e1 * t100916 - 0.2e1 / 0.3e1 * t100920 - 0.2e1 / 0.3e1 * t100922 - 0.2e1 / 0.3e1 * t100924 - t18420 + 0.10e2 / 0.3e1 * t100941 - t99520 + t99523 + t99526 + t18417 + t18423 + 0.5e1 / 0.3e1 * t99539;
31386   t102588 = t68568 * t24235;
31387   t102590 = t75398 * t24235;
31388   t102593 = t18368 * t5383 * t99534;
31389   t102600 = -0.2e1 / 0.3e1 * t99541 - t101618 - t101619 - t101620 - t101621 - t101622 + t23642 - t24239 - t24060 + 0.5e1 / 0.72e2 * t102588 + 0.5e1 / 0.72e2 * t102590 + 0.5e1 / 0.72e2 * t102593 - 0.5e1 / 0.192e3 * t100281 * t24232 - 0.5e1 / 0.192e3 * t23748 * t24231 * t99481;
31390   t102605 = -t100832 + 0.2e1 / 0.3e1 * t100833 + 0.2e1 / 0.3e1 * t100835 - t99635 - t100844 + t24241 * t751 + (t102560 + t102576 + t102586 + t102600) * t227 - 0.4e1 * t100845 - t100848 - t100851 - t100854;
31391   t102606 = 0.4e1 * t100855;
31392   t102607 = 0.4e1 * t100857;
31393   t102608 = 0.4e1 * t100860;
31394   t102613 = -t99641 - t102606 - t102607 - t102608 - 0.8e1 * t100863 - t100867 - 0.2e1 * t99642 + 0.2e1 * t99644 + t99648 + t99655 + 0.3e1 * t99656 - t99660;
31395   t102617 = t102357 + t102378 + t102392 + t102400 + t102416 + t102437 + t102455 + t102467 + t102486 + t102490 + t102516 + t102521 + t102533 + t102535 + t102605 + t102613;
31396   t102621 = t5391 * t1224;
31397   t102625 = 0.2e1 * t5213 * t1320;
31398   t102631 = 0.2e1 * t1315 * t5223;
31399   t102636 = t1216 * t5399;
31400   t102639 = t368 * t24291;
31401   t102641 = 0.6e1 * t100985;
31402   t102646 = 0.12e2 * t100990;
31403   t102649 = t5396 * t4003;
31404   t102651 = 0.3e1 * t24284 * t875 + 0.12e2 * t100993 + t101705 + t102641 + t102646 + 0.3e1 * t102649 + t5079 + 0.6e1 * t99695 + 0.6e1 * t99697 + 0.12e2 * t99699 + t99706 + t99711 + t99714 + t99717;
31405   t102652 = t19732 * t1221;
31406   t102654 = t5396 * t4000;
31407   t102660 = t102617 * t370 * params->d + t101001 + t101003 + 0.24e2 * t101004 + t101009 + 0.12e2 * t101010 + t101746 + 0.3e1 * t102652 + 0.6e1 * t102654 + t18505 + t18508 + t23683 + t24125 + t24289 + t99709;
31408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31409     v4rhosigma3[5] = t102334 + t7 * t102617 * t372 + t24276 * t878 + t102621 + t19721 * t1224 + t5392 * t4006 + t102625 + 0.2e1 * t19076 * t1320 + 0.2e1 * t5214 * t4267 + t102631 + 0.2e1 * t4258 * t5223 + 0.2e1 * t1316 * t19100 + t102636 + t3989 * t5399 + t1217 * t19739 + t102639 + t870 * t24291 + t872 * (t102651 + t102660);
31410 
31411   t102663 = t24370 * t372;
31412   t102664 = 0.16e2 / 0.3e1 * t99754;
31413   t102687 = t102664 - 0.4e1 * t4026 * t101219 - 0.4e1 * t4026 * t101224 - 0.4e1 * t4026 * t101228 - 0.5e1 / 0.6e1 * t19122 * t99751 + 0.10e2 * t4013 * t101030 - 0.4e1 * t4026 * t101034 + 0.5e1 / 0.2e1 * t19114 * t100384 - 0.5e1 / 0.6e1 * t19119 * t100388 - 0.5e1 / 0.6e1 * t19122 * t99760 - 0.5e1 / 0.6e1 * t19122 * t99763 - 0.6e1 * t19127 * t1252;
31414   t102695 = 0.32e2 / 0.3e1 * t13453 * t23968;
31415   t102706 = t19276 * t59600;
31416   t102712 = -0.6e1 * t5236 * t4090 - 0.6e1 * t1476 * t24293 - 0.12e2 * t5499 * t19268 + t102695 + 0.5e1 * t4013 * t101093 - 0.2e1 * t4026 * t101098 + 0.5e1 * t19114 * t100041 - 0.5e1 / 0.3e1 * t19119 * t100045 - 0.5e1 / 0.3e1 * t19122 * t100404 - 0.9e1 * t13345 * t102706 - t4017 * t24079 - t1227 * t101017 - t1227 * t101021;
31417   t102735 = -0.2e1 * t101151 * t1227 - 0.2e1 * t101155 * t1227 + 0.20e2 * t101170 * t4013 + 0.3e1 * t101475 * t1245 + 0.3e1 * t18738 * t5255 - 0.3e1 * t18738 * t5259 - 0.2e1 * t24075 * t4009 - 0.2e1 * t24075 * t4017 + 0.2e1 * t24332 * t3977 - 0.6e1 * t99964 - 0.6e1 * t99966 - 0.6e1 * t99969;
31418   t102754 = -0.2e1 * t24341 * t449 * t464 + 0.9e1 * t19148 * t5155 + 0.3e1 * t19266 * t5155 + 0.3e1 * t24065 * t4077 - 0.3e1 * t24065 * t4129 - 0.6e1 * t100057 - 0.2e1 * t100090 - 0.2e1 * t100092 - 0.2e1 * t100094 - 0.2e1 * t100096 - 0.2e1 * t100098 - t4957 - 0.6e1 * t99978;
31419   t102771 = 0.7e1 / 0.96e2 * t99915;
31420   t102778 = t24298 * t5115;
31421   t102800 = 0.7e1 / 0.96e2 * t99926;
31422   t102802 = -t99918 / 0.64e2 + t99929 / 0.32e2 + t99862 / 0.32e2 + t102771 + t99931 / 0.16e2 + 0.18e2 * t23995 * t5015 * t49077 - 0.18e2 * t24299 * t99354 - 0.12e2 * t102778 * t99358 - 0.6e1 * t99362 * t24303 + 0.24e2 * t23695 * t99365 * t24297 * t743 + 0.18e2 * t23695 * t99370 * t24297 * t707 * t194 - 0.18e2 * t23695 * t23696 * t5243 * t4058 + t99868 / 0.64e2 - 0.3e1 / 0.64e2 * t99859 - 0.3e1 / 0.64e2 * t99904 + t99909 / 0.64e2 - t102800 - t99866 / 0.16e2;
31423   t102804 = t175 * t102802 * t748;
31424   t102809 = t174 * t24330;
31425   t102813 = -0.6e1 * t100100 - 0.5e1 / 0.6e1 * t71540 * t23730 - 0.5e1 / 0.6e1 * t19122 * t100082 - 0.5e1 / 0.6e1 * t19122 * t100085 - 0.6e1 * t1214 * t24331 * t99614 + t3977 * t24309 + t1214 * t102804 - t18095 - t18097 - t18100 - 0.3e1 * t1214 * t19265 * t4079 + 0.6e1 * t1214 * t102809 * t99652;
31426   t102818 = t174 * t24307;
31427   t102823 = 0.40e2 / 0.9e1 * t71771 * t23730;
31428   t102836 = 0.20e2 / 0.9e1 * t19144 * t23785;
31429   t102841 = -t4009 * t24079 - 0.6e1 * t449 * t5267 * t4041 + 0.3e1 * t1214 * t102818 * t3980 + t102823 - 0.4e1 * t13412 * t23968 - 0.4e1 * t13424 * t23968 - 0.4e1 * t4026 * t101215 + t24361 * t751 - 0.5e1 / 0.8e1 * t24316 * t99583 - 0.5e1 / 0.12e2 * t24316 * t99586 + t102836 - 0.5e1 / 0.12e2 * t19318 * t23785 - 0.5e1 / 0.12e2 * t5228 * t99987;
31430   t102847 = t24307 * t748;
31431   t102852 = t24307 * t2093;
31432   t102861 = t71708 * t1243 * t746;
31433   t102867 = t24330 * t6117;
31434   t102874 = t24330 * t28769;
31435   t102878 = 0.3e1 * t102847 * t1768 * t677 - t102852 * t2849 * t746 + 0.6e1 * t102867 * t1768 * t677 - 0.6e1 * t102874 * t2849 * t746 - 0.3e1 * t1243 * t2849 * t71704 - 0.3e1 * t19276 * t2849 * t4075 + 0.6e1 * t19286 * t2849 * t4075 - 0.9e1 * t102706 * t1768 + t102804 * t169 + 0.6e1 * t102861 * t2849;
31436   t102879 = my_piecewise3(t296, 0, t102878);
31437   t102882 = my_piecewise3(t359, 0, t102878);
31438   t102888 = t23504 * t6437;
31439   t102891 = 0.5e1 / 0.3e1 * t6453 * t102888 * t23511;
31440   t102906 = 0.6e1 * t5155 * t19219 - 0.3e1 * t3977 * t24366 - t24325 - t98 * (t102879 * t34 / 0.2e1 + t102882 * t46 / 0.2e1 + t24336 * t413 / 0.2e1 + t24338 * t436 / 0.2e1) + t102891 - 0.3e1 * t1214 * t5254 * t13538 + 0.9e1 * t24065 * t4125 - 0.3e1 * t5155 * t19301 - t24349 - t24369 - 0.5e1 / 0.24e2 * t26602 * t24315 * t23511 - 0.5e1 / 0.24e2 * t24316 * t99197 - t1214 * t24308 * t3985;
31441   t102911 = 0.8e1 / 0.3e1 * t4021 * t24079;
31442   t102915 = 0.16e2 / 0.3e1 * t4021 * t24075;
31443   t102916 = t26389 * t24315;
31444   t102920 = t6453 * t4926 * t1387;
31445   t102925 = 0.16e2 / 0.3e1 * t24056 * t4103;
31446   t102932 = t1387 * t23508;
31447   t102949 = t5044 * t4041;
31448   t102958 = -0.10e2 * t100165 + t5056 - t18420 - t102925 + 0.2e1 * t101632 * t1255 + 0.2e1 * t101636 * t1255 + 0.2e1 * t24056 * t4106 - 0.35e2 / 0.24e2 * t99464 * t102932 * t99466 + 0.5e1 / 0.12e2 * t99471 * t102932 * t99472 + 0.5e1 / 0.8e1 * t18362 * t102932 * t99476 + 0.5e1 / 0.8e1 * t23748 * t102932 * t99485 + 0.5e1 / 0.6e1 * t68568 * t24354 + 0.5e1 / 0.6e1 * t75398 * t24354 + 0.5e1 / 0.6e1 * t18368 * t5269 * t102949 - 0.10e2 * t101514 * t4094 + 0.4e1 * t101518 * t19197 + 0.2e1 * t100212;
31449   t102966 = t4932 * t24045 * t443;
31450   t102970 = t4932 * t24045 * t404;
31451   t102974 = t4932 * t19180 * t439;
31452   t102977 = 0.16e2 / 0.3e1 * t100265;
31453   t102980 = 0.40e2 / 0.9e1 * t18368 * t19171 * t24353;
31454   t102983 = 0.5e1 / 0.3e1 * t23626 * t102888 * t23510;
31455   t102986 = 0.2e1 * t100214 + 0.2e1 * t100216 + 0.2e1 * t100219 - 0.24e2 * t100240 + 0.6e1 * t100253 + 0.6e1 * t100256 - 0.5e1 * t72081 * t102966 + 0.5e1 / 0.3e1 * t72093 * t102970 + 0.5e1 / 0.3e1 * t72078 * t102974 + t18417 + t18423 + t24359 - t102977 + t24360 - t102980 - t102983 + 0.5e1 / 0.24e2 * t99527 * t24350;
31456   t103000 = 0.10e2 * t100400 - 0.6e1 * t5155 * t19222 + t102911 - 0.9e1 * t5155 * t19154 + t102915 + 0.35e2 / 0.24e2 * t102916 * t99569 - 0.5e1 / 0.8e1 * t102920 * t99574 + (t102958 + t102986) * t227 + 0.6e1 * t14484 * t102861 + 0.6e1 * t1214 * t5258 * t48999 - t447 * t24341 - 0.6e1 * t2448 * t24293 - 0.6e1 * t449 * t19298 * t1231;
31457   t103003 = t102687 + t102712 + t102735 + t102754 + t102813 + t102841 + t102906 + t103000;
31458   t103008 = 0.3e1 * t5285 * t1272;
31459   t103014 = 0.3e1 * t1264 * t5297;
31460   t103019 = t368 * t24388;
31461   t103047 = t103003 * t370 * params->d + 0.18e2 * t369 * t4041 * t5235 + 0.18e2 * t1267 * t19350 + 0.36e2 * t1267 * t19353 + 0.9e1 * t1269 * t19338 + 0.3e1 * t24377 * t875 + 0.6e1 * t24384 * t873 + 0.18e2 * t4137 * t5294 + 0.18e2 * t4143 * t5290 + 0.9e1 * t4146 * t5290 + 0.9e1 * t100528 + 0.18e2 * t100543 + 0.18e2 * t100550 + 0.18e2 * t100553 + 0.18e2 * t100560 + t18505 + t18508 + t24383 + t24387 + t5079;
31462   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31463     v4rhosigma3[6] = t103003 * t372 * t7 + t103047 * t872 + 0.3e1 * t1265 * t19356 + 0.3e1 * t1272 * t19327 + t24371 * t878 + t24388 * t870 + 0.3e1 * t4132 * t5297 + 0.3e1 * t4149 * t5286 + t102663 + t103008 + t103014 + t103019;
31464 
31465   t103049 = t24432 * t372;
31466   t103051 = t1252 * t57;
31467   t103063 = 0.20e2 / 0.27e2 * t5179 * t18560 * t72502 * t1231;
31468   t103073 = 0.20e2 / 0.27e2 * t19027 * t4932 * t72741 * t1231;
31469   t103078 = t57 * t1231;
31470   t103079 = t103078 * t404;
31471   t103091 = -0.5e1 / 0.18e2 * t78295 * t24412 - 0.5e1 / 0.18e2 * t71345 * t24412 - 0.5e1 / 0.18e2 * t71331 * t24412 + t103073 - 0.5e1 / 0.18e2 * t19027 * t4932 * t19430 * t4041 - t101513 - 0.5e1 / 0.9e1 * t13930 * t23764 * t103079 + t100887 + t101548 + t101550 + t101553 + t101556 + t5056 + 0.35e2 / 0.48e2 * t99464 * t23888 * t24407 * t443 - 0.5e1 / 0.24e2 * t99471 * t23888 * t24407 * t464;
31472   t103096 = t4933 * t5226;
31473   t103105 = -0.5e1 / 0.16e2 * t18362 * t23888 * t24407 * t404 - 0.5e1 / 0.16e2 * t23748 * t23888 * t103096 * t439 + 0.5e1 / 0.3e1 * t101514 * t4239 - 0.2e1 / 0.3e1 * t101518 * t19426 - t100899 - t100901 - t100903 - t100906 - t100909 - t18420 + t101566 + t101570 + t101572 + t101574 - t101577;
31474   t103120 = t103078 * t439;
31475   t103124 = t103078 * t443;
31476   t103128 = -t101579 - 0.5e1 / 0.48e2 * t100281 * t24408 - 0.5e1 / 0.48e2 * t23748 * t100912 * t24407 - t101632 * t1310 / 0.3e1 - t101636 * t1310 / 0.3e1 - t24056 * t4248 / 0.3e1 - t24056 * t4251 / 0.3e1 + t101580 + t101581 + t101582 + t101583 - 0.5e1 / 0.9e1 * t19027 * t70271 * t103120 - t101584 + 0.5e1 / 0.3e1 * t71312 * t23764 * t103124 - t101585;
31477   t103132 = 0.5e1 / 0.9e1 * t23748 * t23888 * t23509 * t19142;
31478   t103133 = t101586 + t101589 - t101591 + t101593 + t101595 - t101612 + t101615 + t101616 + t18417 + t18423 + t24054 + t24061 + t103132 - t23898 - t101643 + t24059;
31479   t103138 = 0.20e2 / 0.27e2 * t19144 * t23939;
31480   t103141 = t5211 * t19266 - 0.5e1 / 0.6e1 * t18989 * t18543 * t103051 * t443 + 0.5e1 / 0.18e2 * t18957 * t18543 * t103051 * t404 - t103063 + t23880 + (t103091 + t103105 + t103128 + t103133) * t227 + t103138 + t4173 * t101098 / 0.3e1 + t101048 - t101050 - t101053 - t101055;
31481   t103147 = 0.5e1 / 0.9e1 * t23919 * t23510 * t3763 * t19142;
31482   t103153 = 0.20e2 / 0.3e1 * t4013 * t101935 - t101059 - t101061 - t101063 - t101065 - t103147 + t18978 * t5255 + t4152 * t24079 / 0.6e1 + t4160 * t24079 / 0.6e1 - t101076 - t101078 - t101082;
31483   t103157 = -t101084 - t101086 - t101088 - t101119 - t101121 - t101123 - t101125 - t101127 - t101131 + t101133 + t101137 + t4168 * t24079 / 0.6e1;
31484   t103182 = t1277 * t101017 / 0.6e1 + t1277 * t101021 / 0.6e1 + 0.2e1 / 0.3e1 * t4173 * t101228 - 0.5e1 / 0.6e1 * t4156 * t101093 + t101139 + 0.5e1 / 0.36e2 * t18940 * t24402 + 0.5e1 / 0.36e2 * t18945 * t24402 + 0.5e1 / 0.36e2 * t5179 * t5044 * t69732 * t57 - 0.5e1 / 0.3e1 * t4156 * t101030 + 0.2e1 / 0.3e1 * t4173 * t101034 - 0.4e1 / 0.3e1 * t4026 * t101886 + 0.5e1 / 0.48e2 * t100837 * t24426;
31485   t103209 = 0.32e2 / 0.9e1 * t13453 * t24161;
31486   t103213 = 0.10e2 / 0.27e2 * t5179 * t5044 * t18727 * t423;
31487   t103214 = t363 * t5226;
31488   t103223 = 0.5e1 / 0.48e2 * t100696 * t24426 + 0.5e1 / 0.48e2 * t23919 * t23510 * t12771 * t5226 + 0.5e1 / 0.18e2 * t18940 * t24391 + 0.5e1 / 0.18e2 * t18945 * t24391 + 0.5e1 / 0.18e2 * t5179 * t18369 * t24390 + 0.5e1 / 0.18e2 * t5179 * t18560 * t72377 * t1231 + 0.5e1 / 0.18e2 * t5179 * t18560 * t19359 * t4041 - 0.4e1 / 0.3e1 * t4026 * t101890 + t103209 - t103213 - 0.35e2 / 0.48e2 * t100782 * t24148 * t103214 * t443 + 0.5e1 / 0.16e2 * t100786 * t24148 * t103214 * t404;
31489   t103240 = 0.5e1 / 0.16e2 * t24147 * t4934 * t103214 * t439 + 0.5e1 / 0.6e1 * t19114 * t100615 - 0.5e1 / 0.18e2 * t19119 * t100619 + 0.2e1 / 0.3e1 * t13811 * t23968 + 0.2e1 / 0.3e1 * t13876 * t23968 + 0.2e1 / 0.3e1 * t13870 * t23968 + 0.2e1 / 0.3e1 * t4173 * t101215 - t101175 - t101177 - t101179 - t101181 - t101182;
31490   t103253 = -t101183 - t101184 + t4152 * t24075 / 0.3e1 + t4160 * t24075 / 0.3e1 + t4168 * t24075 / 0.3e1 + t1277 * t101151 / 0.3e1 + t1277 * t101155 / 0.3e1 - t101188 - t101190 - t18978 * t5259 + t101194 - t101212;
31491   t103260 = -0.5e1 / 0.36e2 * t5228 * t100724 - t101236 + t101238 - 0.2e1 * t5211 * t19222 - t101240 - t101241 - t101242 - t101243 + 0.2e1 * t102229 * t1245 + t101245 - t101248 - t101275;
31492   t103274 = -t101278 + t101280 + 0.5e1 / 0.18e2 * t5179 * t18555 * t103051 * t439 + 0.5e1 / 0.18e2 * t5179 * t18560 * t103051 * t464 + t101284 - t100709 - t101293 - t101296 + t101299 + t101303 - t101309 + 0.2e1 * t5211 * t19219;
31493   t103278 = 0.3e1 * t19148 * t5211 - t19301 * t5211 + t101311 + t101322 - t101325 - t101327 - t101329 - t101331 + t101333 - t101335 - t101337 + t101339;
31494   t103290 = -t101343 - t101346 + 0.2e1 * t24189 * t4077 - 0.10e2 / 0.3e1 * t4156 * t101170 - t101348 - 0.5e1 / 0.36e2 * t19318 * t23939 - t4957 - t101352 + 0.5e1 / 0.24e2 * t24147 * t100379 * t103214 * t464 - t101353 - t101354 - t101355;
31495   t103303 = -t101356 - t101357 - 0.5e1 / 0.18e2 * t19122 * t100628 - 0.5e1 / 0.18e2 * t19122 * t100631 - t101358 - t101360 - t101363 - 0.4e1 / 0.3e1 * t4026 * t101850 - 0.4e1 / 0.3e1 * t13412 * t24161 - 0.4e1 / 0.3e1 * t13424 * t24161 - 0.4e1 / 0.3e1 * t4026 * t101882 - t101366;
31496   t103306 = t100801 + t100803 + t100805 + t100807 + t100809 + t100811 - t18095 - t18097 - t18100 + t101372 + t101375 - t101376;
31497   t103322 = -0.4e1 * t5499 * t19475 - t23910 - t101380 - t101473 + t101476 - t101480 - 0.5e1 / 0.3e1 * t71136 * t70080 * t103124 + 0.5e1 / 0.9e1 * t70858 * t70080 * t103079 + 0.5e1 / 0.9e1 * t70855 * t50654 * t103120 + 0.2e1 / 0.3e1 * t4173 * t101219 + 0.2e1 / 0.3e1 * t4173 * t101224 - t24071;
31498   t103329 = -0.2e1 * t1307 * t19127 + t24417 * t751 - 0.2e1 * t4235 * t5236 + t101484 + t101486 + t101490 - t101493 + t101499 + t101504 - t101506 - t24087 - t24096;
31499   t103336 = -0.3e1 * t19154 * t5211 + 0.6e1 * t24189 * t4125 - 0.2e1 * t24189 * t4129 - t100856 - t100858 - t100861 + t101507 - t101509 + t101651 - t101656 + t101657 - t101660 - t24097;
31500   t103340 = t103141 + t103153 + t103157 + t103182 + t103223 + t103240 + t103253 + t103260 + t103274 + t103278 + t103290 + t103303 + t103306 + t103322 + t103329 + t103336;
31501   t103345 = 0.2e1 * t5322 * t1272;
31502   t103350 = t1315 * t5297;
31503   t103353 = t5285 * t1320;
31504   t103357 = 0.2e1 * t1264 * t5331;
31505   t103362 = t368 * t24447;
31506   t103372 = t103340 * t370 * params->d + 0.6e1 * t1318 * t19350 + 0.3e1 * t24441 * t875 + 0.6e1 * t4146 * t5327 + t100986 + t100991 + t101703 + t101704 + t101708 + t101714 + t101718 + t101720 + t101721 + t101723 + t101724 + t101726 + t5079;
31507   t103381 = 0.6e1 * t1269 * t19514 + 0.12e2 * t1318 * t19353 + 0.12e2 * t4143 * t5327 + 0.6e1 * t4263 * t5294 + t101730 + t101731 + t101739 + t101740 + t101741 + t101745 + t101747 + t101749 + t18505 + t18508 + t23962 + t24118 + t24124 + t24126;
31508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31509     v4rhosigma3[7] = t103049 + t7 * t103340 * t372 + t24433 * t878 + t103345 + 0.2e1 * t19503 * t1272 + 0.2e1 * t5323 * t4149 + t103350 + t4258 * t5297 + t1316 * t19356 + t103353 + t19327 * t1320 + t5286 * t4267 + t103357 + 0.2e1 * t4132 * t5331 + 0.2e1 * t1265 * t19524 + t103362 + t870 * t24447 + t872 * (t103372 + t103381);
31510 
31511   t103384 = t24489 * t372;
31512   t103392 = t24229 - 0.5e1 / 0.3e1 * t101758 + 0.2e1 / 0.3e1 * t101760 - t99722 - t99724 - t99726 - t99728 - 0.4e1 / 0.3e1 * t101776 - 0.4e1 / 0.3e1 * t101778 - 0.4e1 / 0.3e1 * t101780 - 0.4e1 / 0.3e1 * t101783 - 0.4e1 / 0.3e1 * t101785;
31513   t103401 = 0.20e2 / 0.27e2 * t101820;
31514   t103410 = t101787 / 0.3e1 + t101789 / 0.3e1 + t101791 / 0.3e1 + t101793 / 0.3e1 + t101795 / 0.3e1 + 0.5e1 / 0.18e2 * t101806 + 0.5e1 / 0.18e2 * t101810 + 0.5e1 / 0.18e2 * t101814 - t103401 + 0.5e1 / 0.12e2 * t19560 * t100041 - 0.5e1 / 0.36e2 * t19565 * t100045 - 0.5e1 / 0.36e2 * t5179 * t18560 * t1232 * t4166;
31515   t103414 = t1307 * t57;
31516   t103431 = -0.5e1 / 0.36e2 * t19532 * t100404 - 0.5e1 / 0.6e1 * t18989 * t18543 * t103414 * t443 + 0.5e1 / 0.18e2 * t18957 * t18543 * t103414 * t404 - 0.4e1 * t101862 - 0.4e1 * t101864 + 0.2e1 / 0.3e1 * t101866 + 0.2e1 / 0.3e1 * t101869 + 0.2e1 / 0.3e1 * t101871 + 0.2e1 / 0.3e1 * t101873 + t99755 + 0.2e1 / 0.3e1 * t101899 + 0.2e1 / 0.3e1 * t101901;
31517   t103450 = 0.2e1 / 0.3e1 * t101904 + 0.2e1 / 0.3e1 * t101909 + 0.2e1 / 0.3e1 * t101923 + 0.2e1 / 0.3e1 * t101925 + 0.2e1 / 0.3e1 * t101927 + 0.2e1 / 0.3e1 * t101929 - 0.2e1 * t449 * t5381 * t4041 - 0.2e1 * t1476 * t24482 - 0.4e1 * t101931 - 0.5e1 / 0.72e2 * t19532 * t99751 - 0.5e1 / 0.72e2 * t73019 * t23730 - 0.5e1 / 0.72e2 * t19532 * t100082;
31518   t103468 = 0.32e2 / 0.9e1 * t101955;
31519   t103469 = -0.5e1 / 0.72e2 * t19532 * t100085 + 0.2e1 / 0.3e1 * t13811 * t24161 + 0.2e1 / 0.3e1 * t4173 * t101882 + 0.2e1 / 0.3e1 * t4173 * t101886 - 0.5e1 / 0.96e2 * t102432 * t24472 - 0.5e1 / 0.96e2 * t24259 * t23510 * t19384 - 0.10e2 / 0.3e1 * t101941 - 0.4e1 / 0.3e1 * t101947 + t103468 + t99854 + t99939 + t99941;
31520   t103472 = 0.5e1 / 0.36e2 * t24259 * t23510 * t19463;
31521   t103478 = -t99943 - t99944 - t99945 - t99946 + t103472 + t99949 + 0.5e1 / 0.3e1 * t4013 * t102383 + t99956 + t99960 + t102480 * t1245 - 0.5e1 / 0.3e1 * t101978 + 0.5e1 / 0.9e1 * t101982;
31522   t103484 = 0.8e1 / 0.9e1 * t4021 * t24255;
31523   t103485 = 0.5e1 / 0.9e1 * t101986 - t99963 - t99965 - t99967 - t99970 - t99979 - 0.5e1 / 0.144e3 * t5335 * t99987 - t99990 - t99996 - t99998 - t100003 + t103484;
31524   t103491 = 0.10e2 / 0.27e2 * t5179 * t5044 * t18918 * t423;
31525   t103516 = -t100037 - t102478 - 0.2e1 / 0.3e1 * t4026 * t102388 - t103491 + 0.5e1 / 0.24e2 * t19560 * t100384 - 0.5e1 / 0.72e2 * t19565 * t100388 + 0.35e2 / 0.96e2 * t102505 * t24148 * t19360 - 0.5e1 / 0.32e2 * t102509 * t24148 * t19364 - 0.5e1 / 0.48e2 * t24147 * t24148 * t19359 * t4166 - 0.5e1 / 0.32e2 * t102352 * t4934 * t19368 - 0.5e1 / 0.48e2 * t102352 * t100379 * t19372 - 0.5e1 / 0.72e2 * t5179 * t5044 * t18727 * t4166;
31526   t103531 = -0.5e1 / 0.72e2 * t19532 * t99760 - 0.5e1 / 0.72e2 * t19532 * t99763 + 0.2e1 / 0.3e1 * t102005 - t100058 + t24269 * t4077 - 0.10e2 / 0.3e1 * t102155 + t100066 + t24466 * t751 + 0.2e1 / 0.3e1 * t4173 * t101850 - t4957 + 0.2e1 / 0.3e1 * t102175 + t100076;
31527   t103544 = -t100079 + 0.5e1 / 0.18e2 * t5179 * t18555 * t103414 * t439 + 0.5e1 / 0.18e2 * t5179 * t18560 * t103414 * t464 - t100091 - t100093 - t100095 - t100097 - t100099 - t100101 + 0.2e1 / 0.3e1 * t13876 * t24161 + 0.2e1 / 0.3e1 * t13870 * t24161 + t102517;
31528   t103552 = -0.2e1 * t1231 * t19689 * t449 - 0.2e1 * t2448 * t24482 - t100108 + 0.4e1 * t102185 + t102518 + t102519 + t102520 + t102524 + t102525 - t18095 - t18097 - t18100;
31529   t103563 = -t100111 - t24249 - t100112 + 0.6e1 * t102187 - t4009 * t24255 / 0.3e1 - t4017 * t24255 / 0.3e1 - t1227 * t102344 / 0.3e1 - 0.6e1 * t102192 - t100128 - t100132 - t100135 + 0.2e1 / 0.3e1 * t4173 * t101890;
31530   t103578 = 0.5e1 / 0.36e2 * t18940 * t24453 + 0.5e1 / 0.36e2 * t18945 * t24453 + 0.5e1 / 0.36e2 * t5179 * t5044 * t71168 * t57 + t100137 - 0.2e1 * t102198 + t100139 - 0.10e2 / 0.3e1 * t4156 * t101935 - t100140 + t100143 - t23796 + 0.2e1 * t102199 - t100149;
31531   t103589 = -t100154 - 0.4e1 * t102200 + 0.3e1 * t24269 * t4125 - t100296 - 0.2e1 * t102205 + 0.20e2 / 0.3e1 * t102214 + 0.5e1 / 0.18e2 * t102216 + 0.5e1 / 0.18e2 * t102218 + 0.2e1 * t102230 + 0.6e1 * t102231 - t100306 - 0.2e1 * t102234;
31532   t103597 = t100307 - t23806 - 0.5e1 / 0.144e3 * t19582 * t23785 - 0.2e1 * t102242 - t100322 + t100328 - t24269 * t4129 - t23822 - t23825 + t100398 + t100401 - t1227 * t102348 / 0.3e1;
31533   t103618 = -t100166 - 0.2e1 / 0.3e1 * t102036 - 0.2e1 / 0.3e1 * t102038 - 0.2e1 / 0.3e1 * t102041 - 0.2e1 / 0.3e1 * t102043 - 0.2e1 / 0.3e1 * t102045 - 0.2e1 / 0.3e1 * t102047 + 0.5e1 / 0.36e2 * t73535 * t102970 + 0.5e1 / 0.36e2 * t19027 * t4932 * t24045 * t4166 + 0.5e1 / 0.36e2 * t73544 * t102974 - 0.5e1 / 0.12e2 * t73580 * t102966 + t102561 - 0.5e1 / 0.18e2 * t102054 - 0.5e1 / 0.18e2 * t102056 - 0.5e1 / 0.18e2 * t102058;
31534   t103620 = 0.20e2 / 0.27e2 * t102089;
31535   t103643 = -0.5e1 / 0.18e2 * t102062 + t5056 - t102573 - t102574 - t102575 - t102578 - t102579 + t103620 - t18420 - 0.35e2 / 0.96e2 * t99464 * t24231 * t24168 * t443 + 0.5e1 / 0.48e2 * t99471 * t24231 * t24168 * t464 + 0.5e1 / 0.32e2 * t18362 * t24231 * t24168 * t404 + 0.5e1 / 0.48e2 * t23748 * t23888 * t24168 * t4166 + 0.5e1 / 0.32e2 * t23748 * t24231 * t19430 * t439 + 0.5e1 / 0.72e2 * t68568 * t24461;
31536   t103650 = 0.5e1 / 0.36e2 * t23748 * t24231 * t102019;
31537   t103656 = 0.5e1 / 0.72e2 * t75398 * t24461 - t100209 + t100211 + t100213 + t100215 + t100217 + t100220 - 0.5e1 / 0.9e1 * t102099 - t100238 - t103650 + 0.5e1 / 0.96e2 * t100281 * t24458 - t100241 + 0.5e1 / 0.72e2 * t18368 * t5383 * t102949 + t100251 + t100252;
31538   t103660 = 0.10e2 / 0.3e1 * t102118 + t100254 + t100257 + t18417 + t18423 + t23762 + t23775 - t24239 - t100266 + 0.5e1 / 0.3e1 * t102126 - 0.5e1 / 0.9e1 * t102129 + t23774 - t100280 + t100285 + t100287 + t100289;
31539   t103666 = -t100402 - t102606 - t102607 - t102608 - 0.2e1 * t102261 - t100410 + (t103618 + t103643 + t103656 + t103660) * t227 + t100414 - t100462 - t100464 - t100467 + 0.2e1 * t102263 + 0.2e1 * t102264;
31540   t103670 = t103392 + t103410 + t103431 + t103450 + t103469 + t103478 + t103485 + t103516 + t103531 + t103544 + t103552 + t103563 + t103578 + t103589 + t103597 + t103666;
31541   t103674 = t5391 * t1272;
31542   t103678 = 0.2e1 * t5322 * t1320;
31543   t103684 = 0.2e1 * t1315 * t5331;
31544   t103689 = t1264 * t5399;
31545   t103692 = t368 * t24504;
31546   t103700 = t100509 + 0.6e1 * t102296 + 0.12e2 * t102298 + t100514 + t100515 + t100516 + t5079 + t102641 + t100525 + 0.12e2 * t102306 + t102646 + 0.12e2 * t102310 + 0.12e2 * t102312 + 0.12e2 * t102314 + t100529 + t100530 + t100532;
31547   t103712 = t103670 * t370 * params->d + 0.3e1 * t1269 * t19732 + 0.3e1 * t24498 * t875 + 0.6e1 * t4143 * t5396 + 0.3e1 * t4146 * t5396 + t100544 + t100547 + t100549 + t100551 + t100554 + t100561 + 0.6e1 * t102322 + t18505 + t18508 + t23860 + t23869 + t23872 + t24289;
31548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31549     v4rhosigma3[8] = t103384 + t7 * t103670 * t372 + t24490 * t878 + t103674 + t19721 * t1272 + t5392 * t4149 + t103678 + 0.2e1 * t19503 * t1320 + 0.2e1 * t5323 * t4267 + t103684 + 0.2e1 * t4258 * t5331 + 0.2e1 * t1316 * t19524 + t103689 + t4132 * t5399 + t1265 * t19739 + t103692 + t870 * t24504 + t872 * (t103700 + t103712);
31550 
31551   t103715 = t24570 * t372;
31552   t103728 = t23879 - 0.5e1 / 0.24e2 * t102358 - 0.5e1 / 0.24e2 * t102360 + 0.6e1 * t100572 - 0.5e1 * t100574 + 0.2e1 * t100576 + 0.3e1 * t102391 - 0.5e1 / 0.24e2 * t102393 + 0.9e1 * t100643 - 0.6e1 * t100645 + t4173 * t102388 + 0.5e1 / 0.8e1 * t19560 * t100615;
31553   t103742 = -0.3e1 * t102405 + 0.9e1 * t102406 + 0.2e1 * t102408 + 0.2e1 * t102410 + 0.2e1 * t102412 + 0.2e1 * t102414 - 0.10e2 * t102421 - 0.6e1 * t100654 + 0.5e1 / 0.4e1 * t102439 - 0.5e1 / 0.12e2 * t102441 - 0.5e1 / 0.12e2 * t102445 - 0.5e1 / 0.12e2 * t102447 - 0.6e1 * t102450;
31554   t103746 = t26389 * t24557;
31555   t103750 = t6453 * t4926 * t24556;
31556   t103761 = 0.3e1 * t100678 - t99168 - t99170 - t99172 + t99193 - 0.5e1 / 0.24e2 * t102464 - 0.35e2 / 0.192e3 * t103746 * t99569 + 0.5e1 / 0.64e2 * t103750 * t99574 + 0.5e1 / 0.64e2 * t24259 * t23510 * t19527 + 0.5e1 / 0.64e2 * t24558 * t99583 + 0.5e1 / 0.96e2 * t24558 * t99586 - 0.3e1 * t100694;
31557   t103769 = t99202 - t99205 - 0.6e1 * t102471 - 0.6e1 * t102473 - 0.6e1 * t102476 - 0.5e1 * t100708 + 0.3e1 * t102481 - 0.9e1 * t100714 + t100731 + t100733 + t100735 + 0.3e1 * t100743 + t99453;
31558   t103783 = t99454 + 0.2e1 * t102492 + 0.2e1 * t102500 + 0.2e1 * t102502 - t4957 - 0.5e1 / 0.2e1 * t4156 * t102383 - 0.5e1 / 0.24e2 * t19565 * t100619 - 0.5e1 / 0.24e2 * t5179 * t5044 * t18918 * t4166 + t100800 + t100802 + t100804 + t100806;
31559   t103794 = 0.5e1 * t100886 + 0.5e1 / 0.12e2 * t102564 + 0.5e1 / 0.12e2 * t102566 - 0.5e1 / 0.4e1 * t102568 + 0.5e1 / 0.12e2 * t102570 + t5056 - 0.2e1 * t100896 - t100898 - t100900 - t100902 - t100905 - t100908 - t100916 - t100920 - t100922 - t100924 - t18420;
31560   t103796 = t24556 * t23508;
31561   t103818 = 0.5e1 * t100941 - t99520 + t99523 + t99526 + 0.35e2 / 0.192e3 * t99464 * t103796 * t99466 - 0.5e1 / 0.96e2 * t99471 * t103796 * t99472 - 0.5e1 / 0.64e2 * t18362 * t103796 * t99476 - 0.5e1 / 0.64e2 * t23748 * t24231 * t23509 * t4166 - 0.5e1 / 0.64e2 * t23748 * t103796 * t99485 - 0.5e1 / 0.192e3 * t99527 * t24562 + t18417 + t18423 + t23642 - t23897 + 0.5e1 / 0.24e2 * t102588 + 0.5e1 / 0.24e2 * t102590 + 0.5e1 / 0.24e2 * t102593;
31562   t103825 = t100808 + t100810 - t18095 - t18097 - t18100 - t24555 - 0.5e1 / 0.48e2 * t19582 * t23939 - 0.5e1 / 0.48e2 * t5335 * t100724 - t99593 + (t103794 + t103818) * t227 - 0.5e1 / 0.24e2 * t19532 * t100631 - 0.5e1 / 0.24e2 * t19532 * t100628 - t99602;
31563   t103836 = t99606 - 0.2e1 * t449 * t24551 * t464 - t23619 + t4152 * t24255 / 0.2e1 - t447 * t24551 - 0.3e1 * t100827 - t99617 + t100833 + t100835 - t99635 + t24566 * t751 - 0.6e1 * t100845 - t99641;
31564   t103841 = t23521 * t73233;
31565   t103848 = t24513 * t1616 * t24515 / 0.192e3;
31566   t103849 = t23521 * t19590;
31567   t103864 = t4973 * t5349 * t4976;
31568   t103872 = t24520 * t5115;
31569   t103877 = t23532 * t832 * t23535;
31570   t103880 = t24525 * t23694;
31571   t103881 = t29536 * t2214;
31572   t103886 = t7461 * t7378;
31573   t103892 = t7461 * t2214;
31574   t103901 = t24526 * t24527 * t15806;
31575   t103905 = t1291 * t337;
31576   t103907 = t103880 * t73328 * t103905;
31577   t103915 = t24534 * t19663 / 0.192e3;
31578   t103917 = t103880 * t19635 * t103905;
31579   t103920 = t103841 * t5366 * t24514 * t814 / 0.64e2 - t103848 - t103849 * t2233 * t24514 * t760 / 0.192e3 + t103849 * t18226 * t81328 * t4211 / 0.64e2 - t24513 * t533 * t758 * t837 * t4201 / 0.128e3 + 0.18e2 * t103864 * t5357 * t49764 - 0.18e2 * t24521 * t73339 * t803 * t844 - 0.12e2 * t103872 * t19635 * t814 - 0.6e1 * t103877 * t24529 + 0.24e2 * t103880 * t103881 * t24519 * t844 + 0.18e2 * t103880 * t103886 * t24519 * t813 * t329 - 0.18e2 * t103880 * t103892 * t5349 * t4201 + t103877 * t24533 * t5367 / 0.128e3 - 0.3e1 / 0.128e3 * t103901 * t73395 * t19652 - 0.3e1 / 0.128e3 * t103907 * t19659 + t24526 * t24532 * t55271 * t5367 / 0.128e3 + t103915 + t103917 * t19668 / 0.192e3;
31580   t103924 = t24537 * t2320;
31581   t103940 = t24544 * t29662;
31582   t103945 = my_piecewise3(t359, t169 * t103920 * t848 / 0.2e1 - t169 * t103924 * t847 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t73442 * t1300 + 0.3e1 * t81543 * t14079 * t847 - 0.3e1 / 0.2e1 * t169 * t19675 * t4223 + 0.3e1 * t169 * t19681 * t4223 - 0.3e1 * t169 * t103940 * t847, t99435);
31583   t103964 = -0.6e1 * t100855 - 0.6e1 * t100857 - 0.6e1 * t100860 - 0.12e2 * t100863 - t98 * (t103945 * t46 / 0.2e1 + t24548 * t436 / 0.2e1 + t100777 / 0.2e1 + t100778 / 0.2e1) + 0.5e1 / 0.192e3 * t26602 * t24557 * t23511 + 0.5e1 / 0.192e3 * t24558 * t99197 + t99648 + t99655 + t4160 * t24255 / 0.2e1 + t4168 * t24255 / 0.2e1 + t1277 * t102344 / 0.2e1 + t1277 * t102348 / 0.2e1;
31584   t103967 = t103728 + t103742 + t103761 + t103769 + t103783 + t103825 + t103836 + t103964;
31585   t103972 = 0.3e1 * t5391 * t1320;
31586   t103978 = 0.3e1 * t1315 * t5399;
31587   t103983 = t368 * t24582;
31588   t103997 = t103967 * t370 * params->d + 0.3e1 * t24577 * t875 + 0.9e1 * t100985 + 0.18e2 * t100990 + 0.18e2 * t100993 + 0.36e2 * t101004 + 0.18e2 * t101010 + 0.9e1 * t102649 + 0.9e1 * t102652 + 0.18e2 * t102654 + t18505 + t18508 + t23683 + t24581 + t5079 + t99706 + t99709 + t99711 + t99714 + t99717;
31589   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31590     v4rhosigma3[9] = t103967 * t372 * t7 + t103997 * t872 + 0.3e1 * t1316 * t19739 + 0.3e1 * t1320 * t19721 + t24571 * t878 + t24582 * t870 + 0.3e1 * t4258 * t5399 + 0.3e1 * t4267 * t5392 + t103715 + t103972 + t103978 + t103983;
31591 
31592   t103999 = t4412 * t23660;
31593   t104000 = t3788 * t103999;
31594   t104001 = t14156 * t23657;
31595   t104003 = t14848 * t23657;
31596   t104005 = t4412 * t23656;
31597   t104006 = t3788 * t104005;
31598   t104009 = t1204 * t4316 * t1143;
31599   t104010 = t3788 * t104009;
31600   t104013 = t1204 * t74227 * t1143;
31601   t104014 = t3788 * t104013;
31602   t104016 = t5044 * t19803;
31603   t104017 = t18055 * t104016;
31604   t104019 = t5044 * t20074;
31605   t104020 = t18055 * t104019;
31606   t104022 = t23510 * t4292;
31607   t104025 = t104000 + 0.2e1 * t104001 + 0.2e1 * t104003 + 0.2e1 * t104006 + 0.2e1 * t104010 + 0.2e1 * t104014 - 0.5e1 / 0.24e2 * t104017 - t19748 - t19750 - t19753 - 0.5e1 / 0.24e2 * t104020 + 0.5e1 / 0.96e2 * t23507 * t104022;
31608   t104054 = t23532 * t972 * t23535;
31609   t104084 = t99212 * t4988 * t23558 * t963 / 0.64e2 - t99223 - t99224 * t1684 * t23558 * t932 / 0.192e3 + t99224 * t18226 * t74668 * t4332 / 0.64e2 - t23557 * t533 * t474 * t570 * t4325 / 0.128e3 + 0.18e2 * t99239 * t4979 * t51063 - 0.18e2 * t23565 * t69101 * t527 * t979 - 0.12e2 * t99247 * t18275 * t963 - 0.6e1 * t104054 * t23573 + 0.24e2 * t99255 * t99256 * t23563 * t979 + 0.18e2 * t99255 * t99261 * t23563 * t962 * t265 - 0.18e2 * t99255 * t99267 * t4967 * t4325 + t104054 * t23577 * t4989 / 0.128e3 - 0.3e1 / 0.128e3 * t99276 * t69160 * t19853 - 0.3e1 / 0.128e3 * t99282 * t19857 + t23570 * t23576 * t57086 * t4989 / 0.128e3 + t99292 + t99294 * t19860 / 0.192e3;
31610   t104112 = t99326 * t210 * t99327 * t1014;
31611   t104117 = t23522 * t1905 * t18128 * t1181 * t999;
31612   t104121 = t23522 * t2746 * t68861 * t4366;
31613   t104125 = t23522 * t2746 * t18128 * t4359;
31614   t104127 = t5015 * t51391;
31615   t104131 = t68835 * t694 * t1030;
31616   t104134 = t18155 * t1014;
31617   t104137 = t23532 * t1023;
31618   t104138 = t104137 * t23535;
31619   t104154 = t104138 * t23544;
31620   t104155 = t104154 * t23549;
31621   t104157 = t99384 * t19921;
31622   t104159 = t99389 * t1015;
31623   t104160 = t99388 * t104159;
31624   t104165 = t23545 * t4359 * t202 * t203 * t23548;
31625   t104167 = t99404 * t19927;
31626   t104169 = t104112 / 0.128e3 + t99334 + t104117 / 0.64e2 + t104121 / 0.128e3 - t104125 / 0.256e3 + 0.18e2 * t99349 * t104127 - 0.18e2 * t23529 * t104131 - 0.12e2 * t99357 * t104134 - 0.6e1 * t104138 * t23540 + 0.24e2 * t23695 * t99365 * t23527 * t1030 + 0.18e2 * t23695 * t99370 * t23527 * t1013 * t194 - 0.18e2 * t23695 * t23696 * t5007 * t4359 + t104155 / 0.256e3 - 0.3e1 / 0.256e3 * t104157 - 0.3e1 / 0.256e3 * t104160 + t104165 / 0.256e3 - t99402 - t104167 / 0.64e2;
31627   t104171 = t175 * t104169 * t748;
31628   t104175 = t18335 * t20275;
31629   t104181 = t69373 * t20269;
31630   t104196 = -t1033 * t2849 * t99411 - 0.6e1 * t1033 * t2849 * t99431 - 0.3e1 * t1190 * t2849 * t74726 + 0.3e1 * t1768 * t99322 * t999 + 0.6e1 * t1768 * t99424 * t999 - 0.3e1 * t18335 * t2849 * t4377 + 0.6e1 * t18345 * t2849 * t4377 + t104171 * t169 - 0.9e1 * t104175 * t1768 + 0.6e1 * t104181 * t2849;
31631   t104197 = my_piecewise3(t296, t169 * t104084 * t581 / 0.2e1 - t169 * t99301 * t982 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t74680 * t1169 + 0.3e1 * t74687 * t12927 * t982 - 0.3e1 / 0.2e1 * t169 * t18320 * t4343 + 0.3e1 * t169 * t18326 * t4343 - 0.3e1 * t169 * t99317 * t982, t104196);
31632   t104200 = my_piecewise3(t359, 0, t104196);
31633   t104201 = t104200 * t46;
31634   t104202 = t23604 * t905;
31635   t104207 = t12791 * t4951 * t912;
31636   t104208 = t3762 * t104207;
31637   t104211 = t12791 * t4955 * t912;
31638   t104212 = t3762 * t104211;
31639   t104214 = t5060 * t19932;
31640   t104216 = t20281 * t4955;
31641   t104217 = 0.6e1 * t104216;
31642   t104221 = t1204 * t99107 * t912;
31643   t104225 = t1204 * t99112 * t928;
31644   t104227 = t74362 * t23649;
31645   t104229 = t5044 * t19799;
31646   t104230 = t18055 * t104229;
31647   t104232 = t14152 * t23657;
31648   t104236 = -t98 * (t104197 * t34 / 0.2e1 + t23602 * t886 / 0.2e1 + t104201 / 0.2e1 + t104202 / 0.2e1) - 0.10e2 * t104208 - 0.5e1 * t104212 + t23662 + 0.3e1 * t104214 - t104217 - 0.5e1 / 0.48e2 * t20058 * t23610 - 0.5e1 / 0.2e1 * t3762 * t104221 + t3788 * t104225 - 0.5e1 / 0.24e2 * t104227 - 0.5e1 / 0.24e2 * t104230 + 0.2e1 * t104232 + t4269 * t23501 / 0.2e1;
31649   t104243 = t66 * t4287 * t5039;
31650   t104247 = t66 * t1136 * t19953;
31651   t104251 = t4932 * t4934 * t4391;
31652   t104254 = t4948 * t4391;
31653   t104257 = t20024 * t167 * t168;
31654   t104258 = t104257 * t1192;
31655   t104260 = t20284 * t4955;
31656   t104261 = 0.6e1 * t104260;
31657   t104262 = t2442 * t23623;
31658   t104265 = t5097 * t19751;
31659   t104266 = 0.6e1 * t104265;
31660   t104270 = t4277 * t23501 / 0.2e1 + t4284 * t23501 / 0.2e1 + t1135 * t104243 / 0.2e1 + t1135 * t104247 / 0.2e1 - 0.5e1 / 0.48e2 * t4929 * t104251 - 0.6e1 * t104254 + 0.3e1 * t104258 - t104261 - 0.6e1 * t104262 - t916 * t23607 - t104266 + 0.5e1 / 0.192e3 * t34313 * t23506 * t23511;
31661   t104271 = t23510 * t14713;
31662   t104274 = t19959 * t1199;
31663   t104277 = t449 * t5039 * t4311;
31664   t104279 = t23515 * t4379;
31665   t104281 = t14156 * t23661;
31666   t104282 = t14848 * t23661;
31667   t104284 = t5044 * t18205 * t4282;
31668   t104287 = t18056 * t20029;
31669   t104290 = t5044 * t20070;
31670   t104294 = t1204 * t929 * t4954;
31671   t104295 = t3788 * t104294;
31672   t104297 = t1204 * t14718 * t4954;
31673   t104298 = t3788 * t104297;
31674   t104300 = t1204 * t18210 * t4311;
31675   t104301 = t3788 * t104300;
31676   t104303 = 0.5e1 / 0.192e3 * t23507 * t104271 - 0.6e1 * t104274 - 0.6e1 * t104277 + 0.3e1 * t104279 - t4957 + t104281 + t104282 - 0.5e1 / 0.24e2 * t18049 * t104284 - 0.5e1 / 0.24e2 * t18055 * t104287 - 0.5e1 / 0.24e2 * t18055 * t104290 + t104295 + t104298 + 0.2e1 * t104301;
31677   t104306 = t14152 * t23661;
31678   t104307 = t5044 * t20078;
31679   t104311 = t5044 * t18205 * t883;
31680   t104315 = t1204 * t99150 * t912;
31681   t104316 = t3762 * t104315;
31682   t104319 = t1204 * t1144 * t4311;
31683   t104320 = t3788 * t104319;
31684   t104322 = t23510 * t4272;
31685   t104325 = t23510 * t19754;
31686   t104328 = t23510 * t19758;
31687   t104331 = t99582 * t4288;
31688   t104336 = 0.6e1 * t1214 * t23597 * t32282;
31689   t104337 = t2442 * t23620;
31690   t104339 = t4302 * t23620;
31691   t104341 = t104306 + 0.5e1 / 0.8e1 * t18082 * t104307 - 0.5e1 / 0.24e2 * t18089 * t104311 - 0.5e1 * t104316 + 0.2e1 * t104320 - 0.35e2 / 0.192e3 * t99568 * t104322 + 0.5e1 / 0.64e2 * t99573 * t104325 + 0.5e1 / 0.64e2 * t99578 * t104328 + 0.5e1 / 0.64e2 * t23507 * t104331 - t104336 - 0.6e1 * t104337 - 0.6e1 * t104339;
31692   t104343 = t449 * t19953 * t1143;
31693   t104345 = t5097 * t19744;
31694   t104347 = t5060 * t19768;
31695   t104351 = 0.3e1 * t1214 * t19931 * t3923;
31696   t104352 = t5060 * t20065;
31697   t104355 = t4932 * t99496 * t4282;
31698   t104356 = t68483 * t104355;
31699   t104358 = t99538 * t4397;
31700   t104360 = t24051 * t20005;
31701   t104362 = t14614 * t23638;
31702   t104363 = t19992 * t23638;
31703   t104364 = t14645 * t23638;
31704   t104366 = t3945 * t4408 * t23637;
31705   t104367 = t4412 * t4954;
31706   t104369 = t3945 * t1203 * t104367;
31707   t104371 = t4932 * t18388 * t908;
31708   t104372 = t68489 * t104371;
31709   t104375 = t66 * t99513 * t912;
31710   t104376 = t13245 * t104375;
31711   t104378 = t881 * t23640;
31712   t104379 = 0.6e1 * t104378;
31713   t104380 = t23509 * t4282;
31714   t104384 = t4933 * t908;
31715   t104388 = t2378 * t23634;
31716   t104389 = t104388 * t1205;
31717   t104390 = 0.5e1 / 0.12e2 * t104356 + t5056 + t20017 + t20023 + 0.5e1 * t104358 - 0.2e1 * t104360 - t104362 - t104363 - t104364 - t104366 - t104369 + 0.5e1 / 0.12e2 * t104372 + 0.5e1 * t104376 + t104379 - 0.5e1 / 0.64e2 * t23748 * t99480 * t104380 - 0.5e1 / 0.64e2 * t23748 * t99465 * t104384 - t104389;
31718   t104392 = t400 * t4947 * t883;
31719   t104393 = t104392 * t1205;
31720   t104394 = t23635 * t4409;
31721   t104395 = t23635 * t4413;
31722   t104396 = t23509 * t912;
31723   t104400 = t23509 * t928;
31724   t104404 = t23509 * t883;
31725   t104409 = t4932 * t99496 * t912;
31726   t104410 = t68456 * t104409;
31727   t104413 = t4932 * t99496 * t883;
31728   t104414 = t68602 * t104413;
31729   t104417 = t81 * t4311 * t4954;
31730   t104418 = 0.6e1 * t104417;
31731   t104419 = t34313 * t97;
31732   t104423 = t400 * t23640 * t912;
31733   t104424 = 0.24e2 * t104423;
31734   t104425 = t75224 * t23631;
31735   t104427 = t928 * t4926;
31736   t104428 = t1397 * t104427;
31737   t104429 = t104428 * t23631;
31738   t104431 = t5044 * t4311;
31739   t104433 = t18368 * t5043 * t104431;
31740   t104435 = -t104393 - t104394 - t104395 + 0.35e2 / 0.192e3 * t99464 * t99465 * t104396 - 0.5e1 / 0.96e2 * t99471 * t99465 * t104400 - 0.5e1 / 0.64e2 * t18362 * t99465 * t104404 - t20020 - 0.5e1 / 0.4e1 * t104410 + 0.5e1 / 0.12e2 * t104414 + t104418 + t23642 - 0.5e1 / 0.192e3 * t104419 * t23627 - t23639 - t104424 + 0.5e1 / 0.24e2 * t104425 + 0.5e1 / 0.24e2 * t104429 + 0.5e1 / 0.24e2 * t104433;
31741   t104438 = t5060 * t19784;
31742   t104440 = t23515 * t4438;
31743   t104446 = 0.2e1 * t4431 * t23598;
31744   t104447 = t20053 * t5031;
31745   t104449 = -0.6e1 * t104343 - 0.12e2 * t104345 - 0.6e1 * t104347 - t104351 - 0.3e1 * t104352 - t23619 - t23625 + (t104390 + t104435) * t227 - 0.9e1 * t104438 - 0.3e1 * t104440 - 0.2e1 * t449 * t23607 * t928 + t104446 - 0.3e1 * t104447;
31746   t104451 = t4269 * t23654;
31747   t104452 = t4277 * t23654;
31748   t104453 = t4284 * t23654;
31749   t104456 = t66 * t908 * t4947 * t363;
31750   t104457 = t1135 * t104456;
31751   t104459 = t66 * t23652 * t1110;
31752   t104460 = t1135 * t104459;
31753   t104461 = t4431 * t23554;
31754   t104462 = t1214 * t104171;
31755   t104463 = t20053 * t5027;
31756   t104465 = t23515 * t4434;
31757   t104468 = t1214 * t23553 * t2850;
31758   t104471 = 0.3e1 * t1214 * t99603 * t4433;
31759   t104473 = t5060 * t20035;
31760   t104475 = t1037 * t23643 + t104451 + t104452 + t104453 + t104457 + t104460 + t104461 + t104462 + 0.3e1 * t104463 + 0.9e1 * t104465 - t104468 + t104471 + 0.9e1 * t104473;
31761   t104478 = 0.6e1 * t1214 * t99651 * t57530;
31762   t104481 = 0.6e1 * t1214 * t5030 * t51321;
31763   t104483 = 0.6e1 * t14484 * t104181;
31764   t104485 = 0.9e1 * t13345 * t104175;
31765   t104486 = t4302 * t23623;
31766   t104489 = t449 * t4391 * t4954;
31767   t104493 = 0.3e1 * t1214 * t5026 * t14434;
31768   t104494 = t5060 * t20067;
31769   t104497 = 0.3e1 * t4431 * t23615;
31770   t104498 = t18560 * t19771;
31771   t104499 = t18082 * t104498;
31772   t104502 = t18560 * t1144 * t883;
31773   t104503 = t18089 * t104502;
31774   t104506 = t18560 * t1144 * t4282;
31775   t104507 = t18049 * t104506;
31776   t104510 = t68216 * t1144 * t908;
31777   t104511 = t18055 * t104510;
31778   t104513 = t104478 + t104481 + t104483 - t104485 - 0.6e1 * t104486 - 0.6e1 * t104489 - t104493 + 0.6e1 * t104494 - t104497 + 0.5e1 / 0.4e1 * t104499 - 0.5e1 / 0.12e2 * t104503 - 0.5e1 / 0.12e2 * t104507 - 0.5e1 / 0.12e2 * t104511;
31779   t104516 = t104025 + t104236 + t104270 + t104303 + t104341 + t104449 + t104475 + t104513;
31780   t104533 = t20093 * t1221;
31781   t104535 = t5070 * t4451;
31782   t104537 = t5070 * t4454;
31783   t104539 = t4445 * t5074;
31784   t104541 = t1219 * t20105;
31785   t104543 = t1219 * t20108;
31786   t104545 = t4445 * t5077;
31787   t104547 = t1219 * t20113;
31788   t104550 = 0.6e1 * t1125 * t23678;
31789   t104553 = 0.18e2 * t369 * t4947 * t4311;
31790   t104554 = t1125 * t23681;
31791   t104555 = 0.18e2 * t104554;
31792   t104557 = t369 * t4421 * t4954;
31793   t104558 = 0.18e2 * t104557;
31794   t104560 = t369 * t4424 * t4954;
31795   t104561 = 0.18e2 * t104560;
31796   t104562 = t104516 * t370 * params->d + 0.3e1 * t1127 * t23670 + 0.9e1 * t104533 + 0.18e2 * t104535 + 0.9e1 * t104537 + 0.18e2 * t104539 + 0.18e2 * t104541 + 0.36e2 * t104543 + 0.9e1 * t104545 + 0.18e2 * t104547 + t104550 + t104553 + t104555 + t104558 + t104561 + t20112 + t20115 + t23677 + t23683 + t5079;
31797   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31798     v4rhosigma3[10] = t104516 * t372 * t7 + t104562 * t872 + t1123 * t23684 + t1130 * t23664 + 0.3e1 * t1217 * t20116 + 0.3e1 * t1224 * t20085 + 0.3e1 * t4441 * t5080 + 0.3e1 * t4457 * t5066 + t99075 + t99672 + t99678 + t99683;
31799 
31800   t104566 = 0.2e1 * t449 * t23725 * t928;
31801   t104568 = t12791 * t5100 * t912;
31802   t104572 = t449 * t4527 * t4954;
31803   t104573 = 0.2e1 * t104572;
31804   t104581 = 0.2e1 / 0.3e1 * t104000;
31805   t104582 = t74957 * t20270;
31806   t104585 = t13542 * t5029 * t999;
31807   t104587 = 0.6e1 * t13345 * t104585;
31808   t104590 = 0.4e1 * t449 * t5135 * t4311;
31809   t104591 = t2442 * t23820;
31810   t104592 = 0.2e1 * t104591;
31811   t104593 = t4302 * t23820;
31812   t104594 = 0.2e1 * t104593;
31813   t104595 = -t104566 - 0.10e2 / 0.3e1 * t3762 * t104568 - t104573 - 0.2e1 * t2442 * t23814 - 0.2e1 * t4302 * t23814 - 0.2e1 * t449 * t19953 * t1231 + t104581 + 0.4e1 * t104582 + t104587 - t104590 - t104592 - t104594;
31814   t104596 = t18617 * t20275;
31815   t104598 = 0.6e1 * t13345 * t104596;
31816   t104599 = t20345 * t23827;
31817   t104601 = t19969 * t23826;
31818   t104602 = t5084 * t104601;
31819   t104605 = t18560 * t76421 * t1143;
31820   t104606 = t5084 * t104605;
31821   t104608 = t4013 * t104211;
31822   t104609 = 0.10e2 / 0.3e1 * t104608;
31823   t104611 = 0.4e1 * t5097 * t20409;
31824   t104612 = t14152 * t23738;
31825   t104614 = t14156 * t23738;
31826   t104616 = -t104598 - t19748 - t19750 - t19753 + t99755 + 0.5e1 / 0.18e2 * t104599 + 0.5e1 / 0.18e2 * t104602 + 0.5e1 / 0.18e2 * t104606 + t104609 - t104611 + 0.2e1 / 0.3e1 * t104612 + 0.2e1 / 0.3e1 * t104614;
31827   t104619 = t1204 * t18210 * t4483;
31828   t104622 = t14978 * t23657;
31829   t104624 = t14972 * t23657;
31830   t104626 = t4026 * t104005;
31831   t104628 = t4026 * t104009;
31832   t104630 = t4026 * t104013;
31833   t104634 = t5044 * t20135;
31834   t104637 = t5044 * t20139;
31835   t104640 = t5044 * t20122;
31836   t104644 = t5044 * t18727 * t883;
31837   t104648 = t5044 * t18727 * t4282;
31838   t104651 = 0.2e1 / 0.3e1 * t3788 * t104619 - 0.4e1 / 0.3e1 * t104622 - 0.4e1 / 0.3e1 * t104624 - 0.4e1 / 0.3e1 * t104626 - 0.4e1 / 0.3e1 * t104628 - 0.4e1 / 0.3e1 * t104630 - 0.5e1 / 0.72e2 * t74362 * t23730 - 0.5e1 / 0.72e2 * t18055 * t104634 - 0.5e1 / 0.72e2 * t18055 * t104637 + 0.5e1 / 0.24e2 * t18082 * t104640 - 0.5e1 / 0.72e2 * t18089 * t104644 - 0.5e1 / 0.72e2 * t18049 * t104648;
31839   t104652 = t18056 * t20297;
31840   t104655 = t5044 * t20118;
31841   t104660 = t14978 * t23661;
31842   t104661 = 0.2e1 / 0.3e1 * t104660;
31843   t104662 = t14972 * t23661;
31844   t104663 = 0.2e1 / 0.3e1 * t104662;
31845   t104664 = t4026 * t103999;
31846   t104665 = 0.2e1 / 0.3e1 * t104664;
31847   t104666 = t4026 * t104294;
31848   t104667 = 0.2e1 / 0.3e1 * t104666;
31849   t104668 = t4026 * t104297;
31850   t104669 = 0.2e1 / 0.3e1 * t104668;
31851   t104670 = 0.10e2 / 0.3e1 * t104212;
31852   t104671 = t14848 * t23738;
31853   t104673 = t4412 * t23737;
31854   t104674 = t3788 * t104673;
31855   t104676 = -0.5e1 / 0.72e2 * t18055 * t104652 - 0.5e1 / 0.72e2 * t18055 * t104655 + 0.5e1 / 0.3e1 * t4013 * t104221 + t99759 - t104661 - t104663 - t104665 - t104667 - t104669 - t104670 + 0.2e1 / 0.3e1 * t104671 + 0.2e1 / 0.3e1 * t104674;
31856   t104680 = t1204 * t4488 * t1143;
31857   t104681 = t3788 * t104680;
31858   t104684 = t1204 * t75628 * t1143;
31859   t104685 = t3788 * t104684;
31860   t104688 = t1204 * t18732 * t4311;
31861   t104689 = t3788 * t104688;
31862   t104692 = 0.4e1 * t2442 * t23817;
31863   t104693 = t4013 * t104207;
31864   t104695 = t5048 * t20225;
31865   t104696 = t3762 * t104695;
31866   t104699 = t24148 * t100364 * t912;
31867   t104703 = t24148 * t100364 * t883;
31868   t104707 = t4934 * t100364 * t908;
31869   t104711 = t100379 * t100364 * t928;
31870   t104715 = t13542 * t1190 * t4377;
31871   t104717 = 0.4e1 * t14484 * t104715;
31872   t104718 = 0.2e1 / 0.3e1 * t104681 + 0.2e1 / 0.3e1 * t104685 + 0.2e1 / 0.3e1 * t104689 - t104692 + t23729 + 0.20e2 / 0.3e1 * t104693 - 0.10e2 / 0.3e1 * t104696 + 0.35e2 / 0.96e2 * t100363 * t104699 - 0.5e1 / 0.32e2 * t100370 * t104703 - 0.5e1 / 0.32e2 * t99743 * t104707 - 0.5e1 / 0.48e2 * t99743 * t104711 + t104717;
31873   t104721 = 0.4e1 * t104216;
31874   t104722 = t4026 * t104300;
31875   t104724 = t5060 * t20289;
31876   t104728 = 0.3e1 * t1214 * t99957 * t4433;
31877   t104729 = t4431 * t23745;
31878   t104730 = t5044 * t20352;
31879   t104736 = t5044 * t74357 * t1133;
31880   t104740 = t18543 * t100004 * t912;
31881   t104744 = t18543 * t100004 * t883;
31882   t104747 = 0.3e1 * t23515 * t4557 - t104721 - 0.4e1 / 0.3e1 * t104722 + t99837 - 0.2e1 * t104724 + t104728 - t104729 - 0.5e1 / 0.72e2 * t18055 * t104730 + 0.5e1 / 0.36e2 * t20345 * t23742 + 0.5e1 / 0.36e2 * t5084 * t104736 - 0.5e1 / 0.6e1 * t18542 * t104740 + 0.5e1 / 0.18e2 * t18550 * t104744;
31883   t104750 = t18555 * t100004 * t908;
31884   t104753 = 0.4e1 * t104260;
31885   t104754 = 0.4e1 * t104262;
31886   t104755 = t18560 * t20225;
31887   t104759 = t18560 * t1232 * t883;
31888   t104763 = t18560 * t1232 * t4282;
31889   t104767 = t68216 * t1232 * t908;
31890   t104771 = t49014 * t5029 * t1033;
31891   t104773 = 0.6e1 * t14484 * t104771;
31892   t104776 = 0.2e1 * t1214 * t4514 * t18345;
31893   t104777 = t5060 * t20406;
31894   t104780 = 0.3e1 * t5155 * t19784;
31895   t104781 = 0.5e1 / 0.18e2 * t5084 * t104750 - t104753 - t104754 + 0.5e1 / 0.12e2 * t18082 * t104755 - 0.5e1 / 0.36e2 * t18089 * t104759 - 0.5e1 / 0.36e2 * t18049 * t104763 - 0.5e1 / 0.36e2 * t18055 * t104767 + t99983 - t104773 + t104776 + 0.6e1 * t104777 - t104780;
31896   t104783 = 0.2e1 * t5155 * t20067;
31897   t104784 = 0.4e1 * t104265;
31898   t104787 = 0.2e1 * t1214 * t5124 * t14434;
31899   t104791 = t916 * t23725;
31900   t104793 = 0.2e1 * t4431 * t23840;
31901   t104795 = t1204 * t99774 * t912;
31902   t104796 = t3762 * t104795;
31903   t104799 = t1204 * t99779 * t928;
31904   t104800 = t3788 * t104799;
31905   t104802 = t14152 * t23734;
31906   t104804 = t14156 * t23734;
31907   t104806 = t14848 * t23734;
31908   t104808 = t4412 * t23733;
31909   t104809 = t3788 * t104808;
31910   t104811 = t104783 - t104784 - t104787 - 0.2e1 * t449 * t5039 * t4483 - t104791 + t104793 - 0.5e1 / 0.3e1 * t104796 + 0.2e1 / 0.3e1 * t104800 + 0.2e1 / 0.3e1 * t104802 + 0.2e1 / 0.3e1 * t104804 + 0.2e1 / 0.3e1 * t104806 + 0.2e1 / 0.3e1 * t104809;
31911   t104816 = t1204 * t4312 * t1231;
31912   t104817 = t3788 * t104816;
31913   t104819 = t5097 * t20415;
31914   t104821 = t915 * t4954;
31915   t104822 = t104821 * t1232;
31916   t104823 = 0.2e1 * t104822;
31917   t104824 = t23823 * t4478;
31918   t104825 = 0.2e1 * t104824;
31919   t104827 = 0.2e1 * t4431 * t23809;
31920   t104828 = t5060 * t20396;
31921   t104831 = t13542 * t5025 * t1033;
31922   t104833 = 0.2e1 * t14484 * t104831;
31923   t104834 = t23835 * t4434;
31924   t104836 = t20053 * t5159;
31925   t104838 = t23823 * t4484;
31926   t104839 = 0.2e1 * t104838;
31927   t104841 = t1204 * t4305 * t1231;
31928   t104842 = t3788 * t104841;
31929   t104845 = t24148 * t18544 * t4282;
31930   t104848 = 0.2e1 / 0.3e1 * t104817 - 0.4e1 * t104819 - t104823 - t104825 - t104827 - 0.2e1 * t104828 + t104833 + 0.6e1 * t104834 - 0.2e1 * t104836 - t104839 + 0.2e1 / 0.3e1 * t104842 - 0.5e1 / 0.48e2 * t99743 * t104845;
31931   t104852 = 0.10e2 / 0.3e1 * t4013 * t104315;
31932   t104854 = 0.4e1 / 0.3e1 * t4026 * t104319;
31933   t104856 = t18560 * t100004 * t928;
31934   t104859 = 0.2e1 / 0.3e1 * t104281;
31935   t104860 = 0.2e1 / 0.3e1 * t104282;
31936   t104861 = 0.2e1 / 0.3e1 * t104295;
31937   t104862 = 0.2e1 / 0.3e1 * t104298;
31938   t104863 = 0.2e1 / 0.3e1 * t104306;
31939   t104868 = t4973 * t4497 * t4976;
31940   t104870 = t104868 * t5021 * t211;
31941   t104872 = t104167 / 0.48e2;
31942   t104882 = t104160 / 0.64e2;
31943   t104887 = t104112 / 0.96e2;
31944   t104888 = t104157 / 0.64e2;
31945   t104889 = t104117 / 0.48e2;
31946   t104890 = t104121 / 0.96e2;
31947   t104891 = t104125 / 0.192e3;
31948   t104892 = t99903 * t104159;
31949   t104894 = t104137 * t23694;
31950   t104897 = -t104870 / 0.768e3 - t104872 - 0.12e2 * t99878 * t19909 + 0.24e2 * t23695 * t99365 * t23697 * t1030 + 0.18e2 * t99884 * t54025 * t19908 - t104882 - 0.12e2 * t23695 * t23696 * t5118 * t4359 + t104887 - t104888 + t104889 + t104890 - t104891 + t99881 - t104892 / 0.256e3 - 0.6e1 * t104894 * t23698;
31951   t104904 = t104155 / 0.192e3;
31952   t104905 = t99928 * t19921;
31953   t104907 = t23691 * t19927;
31954   t104912 = t23545 * t4497 * t202 * t203 * t23548;
31955   t104918 = t104154 * t23704;
31956   t104920 = t99861 * t1016;
31957   t104922 = t104165 / 0.192e3;
31958   t104923 = t99858 * t19921;
31959   t104925 = t99865 * t19927;
31960   t104927 = -0.6e1 * t23695 * t23696 * t4497 * t5007 + 0.6e1 * t104868 * t5017 + t104904 + t104905 / 0.384e3 + t104907 / 0.192e3 + t104912 / 0.768e3 - 0.18e2 * t99878 * t19904 + 0.12e2 * t99878 * t19913 + t104918 / 0.768e3 + t104920 / 0.384e3 + t99916 - t99922 - t99927 + t104922 - t104923 / 0.256e3 - t104925 / 0.192e3;
31961   t104930 = t175 * (t104897 + t104927) * t748;
31962   t104939 = t70710 * t20269;
31963   t104955 = t4079 * t5025 * t999;
31964   t104964 = 0.3e1 * t100417 * t1768 * t999 - t100422 * t1033 * t2849 - 0.2e1 * t1190 * t2849 * t76369 - t15289 * t2849 * t5025 - 0.2e1 * t18617 * t2849 * t4377 - t19930 * t2849 * t4079 + 0.2e1 * t2849 * t5029 * t54409 + 0.6e1 * t104585 * t1768 - 0.6e1 * t104596 * t1768 + 0.4e1 * t104715 * t2849 - 0.6e1 * t104771 * t2849 + 0.2e1 * t104831 * t2849 + t104930 * t169 + 0.4e1 * t104939 * t2849 - 0.3e1 * t104955 * t1768;
31965   t104965 = my_piecewise3(t296, 0, t104964);
31966   t104968 = my_piecewise3(t359, 0, t104964);
31967   t104973 = t98 * (t104965 * t34 / 0.2e1 + t104968 * t46 / 0.2e1 + t23720 * t886 / 0.2e1 + t23722 * t905 / 0.2e1);
31968   t104974 = 0.5e1 / 0.36e2 * t5084 * t104284 + t104852 - t104854 + 0.5e1 / 0.18e2 * t5084 * t104856 - t4957 + t104859 + t104860 - t100089 + t104861 + t104862 + t104863 - t104973;
31969   t104978 = 0.2e1 * t1214 * t20342 * t3923;
31970   t104980 = t5155 * t20065;
31971   t104982 = 0.4e1 * t14484 * t104939;
31972   t104983 = t5155 * t19932;
31973   t104984 = t20053 * t5125;
31974   t104987 = 0.3e1 * t13345 * t104955;
31975   t104989 = t1214 * t23708 * t2850;
31976   t104991 = t104257 * t1245 + t23515 * t4515 + t100139 - t104978 - t104980 + t104982 + t104983 + 0.2e1 * t104984 - t104987 - t104989 - t23796 - t23797;
31977   t104993 = 0.2e1 / 0.3e1 * t4459 * t23654;
31978   t104995 = t1214 * t1244 * t74726;
31979   t104997 = t12791 * t5107 * t912;
31980   t104998 = t3762 * t104997;
31981   t105001 = 0.2e1 * t4948 * t4527;
31982   t105002 = t20281 * t5100;
31983   t105004 = t20284 * t5100;
31984   t105006 = t5097 * t20266;
31985   t105008 = t68373 * t20276;
31986   t105011 = t23510 * t14713 * t4927;
31987   t105016 = t23835 * t4379;
31988   t105018 = -t104993 - t104995 - 0.10e2 / 0.3e1 * t104998 - t105001 - 0.4e1 * t105002 - 0.4e1 * t105004 - 0.4e1 * t105006 - 0.6e1 * t105008 - 0.5e1 / 0.96e2 * t23791 * t105011 - t4459 * t23501 / 0.3e1 + 0.2e1 * t105016 - t23806;
31989   t105022 = 0.2e1 / 0.3e1 * t1227 * t104459;
31990   t105024 = 0.2e1 / 0.3e1 * t4465 * t23654;
31991   t105026 = 0.2e1 / 0.3e1 * t1227 * t104456;
31992   t105027 = t20294 * t5031;
31993   t105030 = 0.4e1 * t4302 * t23817;
31994   t105033 = 0.4e1 * t449 * t20380 * t1143;
31995   t105034 = t5084 * t104506;
31996   t105037 = t18560 * t18544 * t4311;
31997   t105038 = t5084 * t105037;
31998   t105040 = -t105022 - t105024 - t105026 - t100309 - t105027 + t23776 * t1037 - t105030 - t105033 - t23822 - t23825 + 0.5e1 / 0.18e2 * t105034 + 0.5e1 / 0.18e2 * t105038;
31999   t105042 = t20221 * t167 * t168;
32000   t105043 = t105042 * t1192;
32001   t105045 = t4431 * t23709;
32002   t105046 = t1214 * t104930;
32003   t105048 = 0.3e1 * t5155 * t20035;
32004   t105049 = t20294 * t5027;
32005   t105055 = 0.2e1 * t19959 * t1252;
32006   t105059 = t1204 * t1144 * t4483;
32007   t105060 = t3788 * t105059;
32008   t105066 = 0.2e1 * t105043 + t105045 + t105046 + t105048 + t105049 - t1227 * t104243 / 0.3e1 - t1227 * t104247 / 0.3e1 - t105055 - 0.2e1 / 0.3e1 * t4026 * t104225 + 0.2e1 / 0.3e1 * t105060 + 0.2e1 / 0.3e1 * t14152 * t23800 + 0.2e1 / 0.3e1 * t14156 * t23800;
32009   t105070 = t4412 * t23799;
32010   t105074 = t1204 * t4316 * t1231;
32011   t105078 = t1204 * t74227 * t1231;
32012   t105081 = t5060 * t20343;
32013   t105084 = 0.2e1 * t5155 * t19768;
32014   t105086 = t23835 * t4438;
32015   t105088 = t4269 * t23781;
32016   t105090 = t4277 * t23781;
32017   t105092 = t4284 * t23781;
32018   t105095 = t66 * t4287 * t5135;
32019   t105096 = t1135 * t105095;
32020   t105098 = 0.2e1 / 0.3e1 * t14848 * t23800 + 0.2e1 / 0.3e1 * t3788 * t105070 + 0.2e1 / 0.3e1 * t3788 * t105074 + 0.2e1 / 0.3e1 * t3788 * t105078 + 0.2e1 * t105081 - t105084 - t23515 * t4561 - 0.2e1 * t105086 + t105088 / 0.3e1 + t105090 / 0.3e1 + t105092 / 0.3e1 + t105096 / 0.3e1;
32021   t105100 = t66 * t1136 * t20380;
32022   t105101 = t1135 * t105100;
32023   t105103 = t100113 * t912;
32024   t105104 = t70080 * t105103;
32025   t105105 = t70074 * t105104;
32026   t105107 = t100113 * t883;
32027   t105108 = t70080 * t105107;
32028   t105109 = t70086 * t105108;
32029   t105111 = t100113 * t908;
32030   t105112 = t50654 * t105111;
32031   t105113 = t70173 * t105112;
32032   t105115 = 0.4e1 * t104486;
32033   t105116 = 0.4e1 * t104489;
32034   t105117 = t100162 * t4397;
32035   t105119 = t23764 * t105103;
32036   t105120 = t70451 * t105119;
32037   t105122 = t23764 * t105107;
32038   t105123 = t13663 * t105122;
32039   t105125 = t70271 * t105111;
32040   t105126 = t18823 * t105125;
32041   t105128 = t76783 * t23755;
32042   t105131 = t1397 * t104427 * t57;
32043   t105132 = t105131 * t23755;
32044   t105134 = t18823 * t104355;
32045   t105137 = t4932 * t18774 * t4311;
32046   t105138 = t18823 * t105137;
32047   t105141 = t81 * t4954 * t4483;
32048   t105142 = 0.2e1 * t105141;
32049   t105143 = t34313 * t23747;
32050   t105147 = 0.2e1 / 0.3e1 * t104388 * t1255;
32051   t105148 = t100156 + 0.10e2 / 0.3e1 * t105117 + 0.5e1 / 0.3e1 * t105120 - 0.5e1 / 0.9e1 * t105123 - 0.5e1 / 0.9e1 * t105126 - 0.5e1 / 0.18e2 * t105128 - 0.5e1 / 0.18e2 * t105132 - 0.5e1 / 0.18e2 * t105134 - 0.5e1 / 0.18e2 * t105138 + t105142 + t5056 + t20017 + t20023 + 0.5e1 / 0.96e2 * t105143 * t23751 + t105147;
32052   t105150 = 0.2e1 / 0.3e1 * t104392 * t1255;
32053   t105152 = 0.2e1 / 0.3e1 * t23635 * t4539;
32054   t105153 = 0.2e1 / 0.3e1 * t104362;
32055   t105154 = 0.2e1 / 0.3e1 * t104363;
32056   t105155 = 0.2e1 / 0.3e1 * t104364;
32057   t105156 = 0.2e1 / 0.3e1 * t104366;
32058   t105157 = 0.2e1 / 0.3e1 * t104369;
32059   t105158 = 0.10e2 / 0.3e1 * t104376;
32060   t105159 = 0.4e1 * t104378;
32061   t105160 = t23750 * t912;
32062   t105164 = t23750 * t928;
32063   t105168 = 0.4e1 * t104417;
32064   t105169 = t23768 * t20217;
32065   t105171 = t105150 + t105152 - t105153 - t105154 - t105155 - t105156 - t105157 + t105158 + t105159 - 0.35e2 / 0.96e2 * t99464 * t23749 * t105160 + 0.5e1 / 0.48e2 * t99471 * t23749 * t105164 - t20020 + t23762 + t105168 - 0.2e1 / 0.3e1 * t105169;
32066   t105174 = t400 * t23772 * t912;
32067   t105175 = 0.8e1 * t105174;
32068   t105176 = t24038 * t4282;
32069   t105181 = 0.10e2 / 0.3e1 * t99538 * t4531;
32070   t105183 = 0.4e1 / 0.3e1 * t24051 * t20199;
32071   t105184 = t14614 * t23760;
32072   t105185 = 0.2e1 / 0.3e1 * t105184;
32073   t105186 = t19992 * t23760;
32074   t105187 = 0.2e1 / 0.3e1 * t105186;
32075   t105188 = t14645 * t23760;
32076   t105189 = 0.2e1 / 0.3e1 * t105188;
32077   t105191 = t3945 * t1254 * t104367;
32078   t105192 = 0.2e1 / 0.3e1 * t105191;
32079   t105193 = t881 * t23772;
32080   t105194 = 0.2e1 * t105193;
32081   t105195 = t13663 * t104375;
32082   t105196 = 0.10e2 / 0.3e1 * t105195;
32083   t105203 = t23775 - t105175 + 0.5e1 / 0.48e2 * t23748 * t23749 * t105176 - t105181 + t105183 + t105185 + t105187 + t105189 + t105192 + t105194 - t23771 - t105196 - 0.5e1 / 0.12e2 * t100167 * t19966 + 0.5e1 / 0.36e2 * t18769 * t19974 + 0.5e1 / 0.36e2 * t100158 * t19978;
32084   t105206 = 0.16e2 * t104423;
32085   t105217 = t2378 * t5149 * t5146;
32086   t105220 = t400 * t20176 * t5146;
32087   t105223 = t400 * t20180 * t5146;
32088   t105225 = t23768 * t20211;
32089   t105227 = t23768 * t20214;
32090   t105229 = t23750 * t883;
32091   t105233 = t100233 * t908;
32092   t105237 = 0.5e1 / 0.36e2 * t100158 * t19982 - t100266 - t105206 + t23774 + 0.5e1 / 0.72e2 * t7591 * t1258 * t23765 + 0.5e1 / 0.72e2 * t1397 * t4547 * t23765 + 0.5e1 / 0.72e2 * t1397 * t4550 * t23765 - 0.2e1 / 0.3e1 * t105217 - 0.2e1 / 0.3e1 * t105220 - 0.2e1 / 0.3e1 * t105223 - 0.2e1 / 0.3e1 * t105225 - 0.2e1 / 0.3e1 * t105227 + 0.5e1 / 0.32e2 * t18362 * t23749 * t105229 + 0.5e1 / 0.32e2 * t23748 * t23749 * t105233 - t100278 - t100280;
32093   t105247 = t4932 * t4934 * t4527;
32094   t105250 = t5060 * t20399;
32095   t105253 = t1214 * t4514 * t18335;
32096   t105256 = t105101 / 0.3e1 - 0.5e1 / 0.3e1 * t105105 + 0.5e1 / 0.9e1 * t105109 + 0.5e1 / 0.9e1 * t105113 - t105115 - t105116 + (t105148 + t105171 + t105203 + t105237) * t227 - 0.5e1 / 0.96e2 * t34313 * t23790 * t23793 - 0.5e1 / 0.144e3 * t20058 * t23785 - 0.5e1 / 0.144e3 * t4929 * t105247 - 0.2e1 * t105250 - t105253 - t4465 * t23501 / 0.3e1;
32097   t105260 = t104595 + t104616 + t104651 + t104676 + t104718 + t104747 + t104781 + t104811 + t104848 + t104974 + t104991 + t105018 + t105040 + t105066 + t105098 + t105256;
32098   t105278 = 0.6e1 * t1267 * t20105;
32099   t105281 = 0.6e1 * t369 * t4947 * t4483;
32100   t105284 = t20430 * t1221;
32101   t105286 = 0.12e2 * t104554;
32102   t105287 = 0.12e2 * t104557;
32103   t105288 = 0.12e2 * t104560;
32104   t105289 = 0.6e1 * t104545;
32105   t105290 = t4568 * t5077;
32106   t105291 = 0.3e1 * t105290;
32107   t105292 = t4445 * t5172;
32108   t105295 = 0.6e1 * t4568 * t5074;
32109   t105296 = t1125 * t23870;
32110   t105297 = 0.6e1 * t105296;
32111   t105301 = t369 * t4547 * t4954;
32112   t105302 = 0.6e1 * t105301;
32113   t105304 = t369 * t4550 * t4954;
32114   t105305 = 0.6e1 * t105304;
32115   t105306 = 0.3e1 * t1127 * t23853 + 0.3e1 * t4577 * t5070 + t105278 + t105281 + 0.6e1 * t105284 + t105286 + t105287 + t105288 + t105289 + t105291 + 0.12e2 * t105292 + t105295 + t105297 + t105302 + t105305 + t20112 + t5079;
32116   t105308 = 0.12e2 * t1267 * t20108;
32117   t105309 = 0.12e2 * t104547;
32118   t105310 = t5166 * t4454;
32119   t105313 = 0.6e1 * t1125 * t23866;
32120   t105314 = t1219 * t20448;
32121   t105316 = t1219 * t20451;
32122   t105320 = t1267 * t20113;
32123   t105321 = 0.6e1 * t105320;
32124   t105322 = t1219 * t20454;
32125   t105324 = t5166 * t4451;
32126   t105328 = 0.12e2 * t369 * t5149 * t4311;
32127   t105333 = t105260 * t370 * params->d + 0.3e1 * t1269 * t20093 + 0.6e1 * t4574 * t5070 + t105308 + t105309 + 0.6e1 * t105310 + t105313 + 0.12e2 * t105314 + 0.12e2 * t105316 + t105321 + 0.12e2 * t105322 + 0.12e2 * t105324 + t105328 + t20115 + t23860 + t23865 + t23869 + t23872;
32128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32129     v4rhosigma3[11] = t99720 + t7 * t105260 * t372 + t23845 * t1130 + t100487 + 0.2e1 * t20422 * t1224 + 0.2e1 * t5162 * t4457 + t100492 + t4564 * t5080 + t1265 * t20116 + t100495 + t20085 * t1272 + t5066 * t4580 + t100499 + 0.2e1 * t4441 * t5175 + 0.2e1 * t1217 * t20457 + t100504 + t1123 * t23873 + t872 * (t105306 + t105333);
32130 
32131   t105336 = t20560 * t5031;
32132   t105343 = t4173 * t103999;
32133   t105344 = t105343 / 0.3e1;
32134   t105347 = -t105336 + t23880 + t104581 + 0.2e1 / 0.3e1 * t104001 + 0.2e1 / 0.3e1 * t104003 + 0.2e1 / 0.3e1 * t104006 + 0.2e1 / 0.3e1 * t104010 + 0.2e1 / 0.3e1 * t104014 - 0.5e1 / 0.72e2 * t104017 + t105344 - 0.5e1 / 0.72e2 * t5179 * t104284;
32135   t105348 = t4156 * t104315;
32136   t105351 = 0.5e1 / 0.36e2 * t20468 * t23827;
32137   t105353 = 0.5e1 / 0.36e2 * t20554 * t23827;
32138   t105355 = 0.5e1 / 0.36e2 * t5179 * t104601;
32139   t105356 = t20560 * t5027;
32140   t105357 = t5211 * t19932;
32141   t105360 = t4582 * t23654;
32142   t105362 = -0.5e1 / 0.3e1 * t105348 - t105351 - t105353 - t105355 + t105356 + t105357 + t1277 * t104247 / 0.6e1 - t19748 - t19750 - t19753 + t105360 / 0.3e1;
32143   t105364 = t4588 * t23654;
32144   t105366 = t4597 * t23654;
32145   t105368 = t1277 * t104456;
32146   t105370 = t1277 * t104459;
32147   t105373 = 0.5e1 / 0.36e2 * t5179 * t104506;
32148   t105375 = 0.5e1 / 0.36e2 * t5179 * t105037;
32149   t105376 = t4173 * t104294;
32150   t105377 = t105376 / 0.3e1;
32151   t105378 = t4173 * t104297;
32152   t105379 = t105378 / 0.3e1;
32153   t105381 = 0.2e1 / 0.3e1 * t14152 * t23883;
32154   t105383 = t34313 * t23918;
32155   t105386 = t105364 / 0.3e1 + t105366 / 0.3e1 + t105368 / 0.3e1 + t105370 / 0.3e1 - t105373 - t105375 + t105377 + t105379 + t105381 - 0.5e1 / 0.72e2 * t104020 + 0.5e1 / 0.192e3 * t105383 * t23793;
32156   t105387 = t23504 * t4595;
32157   t105388 = t6453 * t105387;
32158   t105394 = t1204 * t100605 * t912;
32159   t105398 = 0.2e1 / 0.3e1 * t4173 * t104300;
32160   t105399 = t4173 * t104319;
32161   t105403 = 0.5e1 / 0.36e2 * t5179 * t104605;
32162   t105405 = 0.5e1 / 0.6e1 * t71136 * t105104;
32163   t105407 = 0.5e1 / 0.18e2 * t70858 * t105108;
32164   t105409 = 0.5e1 / 0.18e2 * t70855 * t105112;
32165   t105410 = 0.5e1 / 0.192e3 * t105388 * t23793 + 0.5e1 / 0.192e3 * t23919 * t105011 - 0.5e1 / 0.3e1 * t3762 * t105394 + t105398 + 0.2e1 / 0.3e1 * t105399 - 0.10e2 / 0.3e1 * t104208 - t104670 - t105403 + t105405 - t105407 - t105409 + t23729;
32166   t105427 = t916 * t23916;
32167   t105428 = 0.5e1 / 0.12e2 * t18989 * t104740 - 0.5e1 / 0.36e2 * t18957 * t104744 - 0.5e1 / 0.36e2 * t5179 * t104750 - 0.5e1 / 0.36e2 * t5179 * t104856 - 0.5e1 / 0.144e3 * t20058 * t23939 + 0.2e1 * t104214 - t104217 - 0.5e1 / 0.72e2 * t104227 - 0.5e1 / 0.72e2 * t104230 + 0.2e1 / 0.3e1 * t104232 - t105427;
32168   t105430 = 0.10e2 / 0.3e1 * t4156 * t104207;
32169   t105435 = t1204 * t18923 * t4311;
32170   t105437 = 0.2e1 / 0.3e1 * t3788 * t105435;
32171   t105445 = t5044 * t18918 * t4282;
32172   t105448 = t15503 * t23661;
32173   t105449 = t105448 / 0.3e1;
32174   t105450 = t15610 * t23661;
32175   t105451 = t105450 / 0.3e1;
32176   t105452 = t15686 * t23661;
32177   t105453 = t105452 / 0.3e1;
32178   t105454 = -t105430 - 0.4e1 * t104254 - 0.35e2 / 0.192e3 * t100782 * t104699 + t105437 - 0.5e1 / 0.72e2 * t20468 * t23742 - 0.5e1 / 0.72e2 * t20554 * t23742 - 0.5e1 / 0.72e2 * t5179 * t104736 - 0.5e1 / 0.72e2 * t18049 * t105445 + t105449 + t105451 + t105453;
32179   t105457 = 0.2e1 / 0.3e1 * t15610 * t23657;
32180   t105463 = t12791 * t5192 * t912;
32181   t105465 = 0.10e2 / 0.3e1 * t3762 * t105463;
32182   t105467 = t66 * t4287 * t5198;
32183   t105471 = t66 * t1136 * t20508;
32184   t105475 = 0.2e1 * t23929 * t4379;
32185   t105476 = t105457 - 0.5e1 / 0.6e1 * t4156 * t104221 + t4173 * t104225 / 0.3e1 - t105465 + t104258 + t1135 * t105467 / 0.3e1 + t1135 * t105471 / 0.3e1 - t104261 - t104754 + t105475 - t104266;
32186   t105484 = t4948 * t4656;
32187   t105497 = t4269 * t23925 / 0.3e1 + t4277 * t23925 / 0.3e1 + t4284 * t23925 / 0.3e1 - 0.4e1 * t104274 - 0.2e1 * t105484 + t4582 * t23501 / 0.6e1 + t4588 * t23501 / 0.6e1 + t4597 * t23501 / 0.6e1 + t1277 * t104243 / 0.6e1 - 0.2e1 * t104277 + t104279 + 0.5e1 / 0.64e2 * t100786 * t104703;
32188   t105505 = t5044 * t20472;
32189   t105509 = t5044 * t18918 * t883;
32190   t105516 = t3945 * t1309 * t104367;
32191   t105517 = t105516 / 0.3e1;
32192   t105531 = t99538 * t4660;
32193   t105533 = t24051 * t20606;
32194   t105535 = t14614 * t23896;
32195   t105536 = t105535 / 0.3e1;
32196   t105537 = t19992 * t23896;
32197   t105538 = t105537 / 0.3e1;
32198   t105539 = t14645 * t23896;
32199   t105540 = t105539 / 0.3e1;
32200   t105542 = t3945 * t4668 * t23637;
32201   t105543 = t105542 / 0.3e1;
32202   t105545 = 0.5e1 / 0.36e2 * t78392 * t23755;
32203   t105546 = 0.35e2 / 0.192e3 * t99464 * t23888 * t105160 - t105517 + 0.5e1 / 0.36e2 * t104356 - 0.5e1 / 0.96e2 * t99471 * t23888 * t105164 - 0.5e1 / 0.64e2 * t18362 * t23888 * t105229 - 0.5e1 / 0.64e2 * t23748 * t23888 * t105233 - 0.5e1 / 0.96e2 * t23748 * t23888 * t105176 + 0.5e1 / 0.3e1 * t105531 - 0.2e1 / 0.3e1 * t105533 - t105536 - t105538 - t105540 - t105543 + t105545;
32204   t105548 = t1397 * t104427 * t1275;
32205   t105550 = 0.5e1 / 0.36e2 * t105548 * t23755;
32206   t105552 = 0.5e1 / 0.36e2 * t78253 * t23755;
32207   t105554 = 0.5e1 / 0.36e2 * t19027 * t104355;
32208   t105557 = t4595 * t23508;
32209   t105561 = t104388 * t1310;
32210   t105563 = t104392 * t1310;
32211   t105565 = t23635 * t4669;
32212   t105567 = t23635 * t4672;
32213   t105570 = 0.5e1 / 0.18e2 * t19027 * t105125;
32214   t105572 = 0.5e1 / 0.6e1 * t71312 * t105119;
32215   t105573 = t105550 + t105552 + t105554 + t5056 + t20017 + t20023 - 0.5e1 / 0.192e3 * t105143 * t23889 - 0.5e1 / 0.192e3 * t23748 * t105557 * t23750 - t105561 / 0.3e1 - t105563 / 0.3e1 - t105565 / 0.3e1 - t105567 / 0.3e1 + t105570 - t105572;
32216   t105576 = 0.5e1 / 0.18e2 * t13930 * t105122;
32217   t105583 = t105576 + 0.10e2 / 0.3e1 * t104358 - 0.4e1 / 0.3e1 * t104360 - t105153 - t105154 - t105155 - t105156 - t105157 + 0.5e1 / 0.36e2 * t104372 + t105158 + t104379 - 0.2e1 / 0.3e1 * t104389 - 0.2e1 / 0.3e1 * t104393 - 0.2e1 / 0.3e1 * t104394;
32218   t105586 = 0.5e1 / 0.36e2 * t19027 * t105137;
32219   t105587 = t13930 * t104375;
32220   t105588 = 0.5e1 / 0.3e1 * t105587;
32221   t105594 = -0.2e1 / 0.3e1 * t104395 - t20020 + t105586 + t105588 - 0.5e1 / 0.12e2 * t104410 + 0.5e1 / 0.36e2 * t104414 + t104418 + t23642 - t23898 - t23771 - t104424 + 0.5e1 / 0.72e2 * t104425 + 0.5e1 / 0.72e2 * t104429 + 0.5e1 / 0.72e2 * t104433;
32222   t105599 = 0.5e1 / 0.64e2 * t24147 * t104707 + 0.5e1 / 0.96e2 * t24147 * t104711 + 0.5e1 / 0.24e2 * t18082 * t105505 - 0.5e1 / 0.72e2 * t18089 * t105509 - t4957 + t104859 + t104860 + (t105546 + t105573 + t105583 + t105594) * t227 + t104861 + t104862 + 0.2e1 / 0.3e1 * t104301;
32223   t105601 = 0.2e1 / 0.3e1 * t4173 * t104005;
32224   t105602 = t18056 * t20518;
32225   t105605 = t5044 * t20479;
32226   t105609 = 0.2e1 / 0.3e1 * t4173 * t104009;
32227   t105611 = 0.2e1 / 0.3e1 * t4173 * t104013;
32228   t105613 = 0.2e1 / 0.3e1 * t15503 * t23657;
32229   t105617 = 0.2e1 / 0.3e1 * t14156 * t23883;
32230   t105619 = 0.2e1 / 0.3e1 * t14848 * t23883;
32231   t105620 = t104863 + t105601 - 0.5e1 / 0.72e2 * t18055 * t105602 - 0.5e1 / 0.72e2 * t18055 * t105605 + t105609 + t105611 + t105613 - 0.10e2 / 0.3e1 * t104316 + 0.4e1 / 0.3e1 * t104320 + t105617 + t105619;
32232   t105622 = t4412 * t23882;
32233   t105624 = 0.2e1 / 0.3e1 * t3788 * t105622;
32234   t105626 = t1204 * t4607 * t1143;
32235   t105628 = 0.2e1 / 0.3e1 * t3788 * t105626;
32236   t105630 = t1204 * t77598 * t1143;
32237   t105632 = 0.2e1 / 0.3e1 * t3788 * t105630;
32238   t105634 = t1204 * t100610 * t928;
32239   t105637 = t19959 * t1307;
32240   t105643 = t105624 + t105628 + t105632 + 0.2e1 / 0.3e1 * t3788 * t105634 - t23910 - 0.2e1 * t105637 - t104336 - 0.2e1 * t104337 - 0.2e1 * t104339 - 0.2e1 * t104343 - 0.8e1 * t104345;
32241   t105645 = t5211 * t19784;
32242   t105648 = 0.2e1 * t23929 * t4438;
32243   t105649 = t5211 * t20035;
32244   t105652 = t5097 * t20531;
32245   t105654 = my_piecewise3(t296, 0, t104196);
32246   t105655 = t105654 * t34;
32247   t105656 = t23913 * t886;
32248   t105659 = t98 * (t105655 / 0.2e1 + t105656 / 0.2e1 + t104201 / 0.2e1 + t104202 / 0.2e1);
32249   t105661 = -0.4e1 * t104347 - t104351 - 0.3e1 * t105645 - t105648 + 0.3e1 * t105649 - 0.2e1 * t104352 - t23619 - t23797 - 0.4e1 * t105652 - t105659 - 0.6e1 * t104438 - t104440;
32250   t105666 = 0.2e1 * t449 * t23916 * t928;
32251   t105669 = 0.4e1 * t449 * t5198 * t4311;
32252   t105670 = t2442 * t23908;
32253   t105671 = 0.2e1 * t105670;
32254   t105672 = t4302 * t23908;
32255   t105673 = 0.2e1 * t105672;
32256   t105675 = t449 * t4656 * t4954;
32257   t105676 = 0.2e1 * t105675;
32258   t105677 = t5211 * t20067;
32259   t105683 = -t105666 - t105669 - t105671 - t105673 - t105676 + 0.2e1 * t105677 + t104446 - 0.2e1 * t104447 + 0.2e1 / 0.3e1 * t104451 + 0.2e1 / 0.3e1 * t104452 + 0.2e1 / 0.3e1 * t104453;
32260   t105687 = 0.4e1 * t2442 * t23905;
32261   t105689 = 0.4e1 * t4302 * t23905;
32262   t105692 = 0.4e1 * t449 * t20508 * t1143;
32263   t105693 = t5211 * t19768;
32264   t105699 = 0.2e1 / 0.3e1 * t104457 + 0.2e1 / 0.3e1 * t104460 - t105687 - t105689 - t105692 - 0.2e1 * t105693 + t104461 + t104462 + 0.2e1 * t104463 + 0.3e1 * t104465 + 0.5e1 / 0.96e2 * t24147 * t104845;
32265   t105702 = 0.2e1 / 0.3e1 * t15686 * t23657;
32266   t105704 = t20618 * t167 * t168;
32267   t105706 = 0.2e1 * t105704 * t1192;
32268   t105708 = t105702 + t105706 - t104468 + t104471 + 0.6e1 * t104473 + t104478 + t104481 + t104483 - t104485 - t105115 - t105116;
32269   t105709 = t4156 * t104211;
32270   t105710 = 0.5e1 / 0.3e1 * t105709;
32271   t105712 = 0.6e1 * t23929 * t4434;
32272   t105714 = t4932 * t4934 * t4656;
32273   t105719 = t5211 * t20065;
32274   t105724 = -t105710 + t105712 - t104493 - 0.5e1 / 0.144e3 * t4929 * t105714 + 0.4e1 * t104494 - t104497 + t23901 * t1037 - t105719 + 0.5e1 / 0.12e2 * t104499 - 0.5e1 / 0.36e2 * t104503 - 0.5e1 / 0.36e2 * t104507 - 0.5e1 / 0.36e2 * t104511;
32275   t105728 = t105347 + t105362 + t105386 + t105410 + t105428 + t105454 + t105476 + t105497 + t105599 + t105620 + t105643 + t105661 + t105683 + t105699 + t105708 + t105724;
32276   t105748 = 0.6e1 * t20632 * t1221;
32277   t105751 = t4683 * t5077;
32278   t105752 = 0.3e1 * t105751;
32279   t105753 = t1318 * t20105;
32280   t105756 = t105728 * t370 * params->d + 0.3e1 * t104533 + 0.3e1 * t104537 + 0.24e2 * t104543 + t104550 + t104553 + t104555 + t104558 + t104561 + t105289 + t105748 + t105752 + 0.6e1 * t105753 + t5079;
32281   t105760 = 0.12e2 * t5218 * t4451;
32282   t105762 = 0.6e1 * t5218 * t4454;
32283   t105765 = t4683 * t5074;
32284   t105768 = t1318 * t20113;
32285   t105769 = 0.6e1 * t105768;
32286   t105770 = t1318 * t20108;
32287   t105772 = 0.3e1 * t1127 * t23955 + 0.6e1 * t104535 + 0.12e2 * t104539 + 0.12e2 * t104541 + t105309 + t105760 + t105762 + 0.6e1 * t105765 + t105769 + 0.12e2 * t105770 + t20112 + t20115 + t23683 + t23865 + t23962;
32288   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32289     v4rhosigma3[12] = t100565 + t7 * t105728 * t372 + t23947 * t1130 + t100966 + 0.2e1 * t20624 * t1224 + 0.2e1 * t5214 * t4457 + t100971 + t4679 * t5080 + t1316 * t20116 + t100974 + t20085 * t1320 + t5066 * t4687 + t100978 + 0.2e1 * t4441 * t5223 + 0.2e1 * t1217 * t20645 + t100983 + t1123 * t23965 + t872 * (t105756 + t105772);
32290 
32291   t105775 = 0.4e1 * t104572;
32292   t105776 = t104000 / 0.3e1;
32293   t105777 = 0.4e1 * t104591;
32294   t105778 = 0.4e1 * t104593;
32295   t105785 = t4412 * t23967;
32296   t105789 = t1204 * t4488 * t1231;
32297   t105793 = t1204 * t75628 * t1231;
32298   t105797 = t1204 * t18732 * t4483;
32299   t105800 = -t105775 + t105776 + t101048 - t105777 - t105778 + 0.2e1 / 0.3e1 * t14152 * t23968 + 0.2e1 / 0.3e1 * t14156 * t23968 + 0.2e1 / 0.3e1 * t14848 * t23968 + 0.2e1 / 0.3e1 * t3788 * t105785 + 0.2e1 / 0.3e1 * t3788 * t105789 + 0.2e1 / 0.3e1 * t3788 * t105793 + 0.2e1 / 0.3e1 * t3788 * t105797;
32300   t105804 = 0.4e1 / 0.3e1 * t14978 * t23738;
32301   t105806 = 0.4e1 / 0.3e1 * t14972 * t23738;
32302   t105808 = 0.4e1 / 0.3e1 * t4026 * t104673;
32303   t105810 = 0.4e1 / 0.3e1 * t4026 * t104680;
32304   t105812 = 0.4e1 / 0.3e1 * t4026 * t104799;
32305   t105813 = t24148 * t20230;
32306   t105816 = t24148 * t20234;
32307   t105819 = t4934 * t20238;
32308   t105822 = t100379 * t20242;
32309   t105826 = 0.10e2 / 0.3e1 * t4013 * t104795;
32310   t105828 = 0.5e1 / 0.18e2 * t78700 * t23649;
32311   t105829 = -0.4e1 / 0.3e1 * t4026 * t104619 - t105804 - t105806 - t105808 - t105810 - t105812 - 0.35e2 / 0.48e2 * t101067 * t105813 + 0.5e1 / 0.16e2 * t101200 * t105816 + 0.5e1 / 0.16e2 * t101204 * t105819 + 0.5e1 / 0.24e2 * t101204 * t105822 + t105826 - t105828;
32312   t105832 = 0.5e1 / 0.18e2 * t19122 * t104229;
32313   t105834 = 0.5e1 / 0.18e2 * t19122 * t104016;
32314   t105836 = 0.4e1 / 0.3e1 * t4026 * t105059;
32315   t105848 = t1204 * t101091 * t912;
32316   t105852 = t1204 * t101096 * t928;
32317   t105856 = t1204 * t101028 * t912;
32318   t105860 = t1204 * t1232 * t4483;
32319   t105863 = -t105832 - t105834 - t105836 - 0.4e1 / 0.3e1 * t14978 * t23800 - 0.4e1 / 0.3e1 * t14972 * t23800 - 0.4e1 / 0.3e1 * t4026 * t105070 - 0.4e1 / 0.3e1 * t4026 * t105074 - 0.4e1 / 0.3e1 * t4026 * t105078 - 0.5e1 / 0.6e1 * t3762 * t105848 + t3788 * t105852 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t105856 + 0.2e1 / 0.3e1 * t3788 * t105860;
32320   t105865 = 0.5e1 / 0.18e2 * t19122 * t104019;
32321   t105870 = 0.2e1 * t449 * t24022 * t928;
32322   t105872 = 0.4e1 * t20284 * t5239;
32323   t105874 = 0.4e1 * t5097 * t20712;
32324   t105875 = -t105865 - t19748 - t19750 - t19753 + 0.5e1 / 0.48e2 * t24029 * t104328 - t105870 - t105872 - t105874 + t101072 - t101110 - t101115 + t101133;
32325   t105878 = 0.20e2 / 0.3e1 * t104608;
32326   t105880 = 0.4e1 / 0.3e1 * t104660;
32327   t105881 = 0.4e1 / 0.3e1 * t104662;
32328   t105882 = 0.4e1 / 0.3e1 * t104664;
32329   t105883 = 0.4e1 / 0.3e1 * t104666;
32330   t105884 = 0.4e1 / 0.3e1 * t104668;
32331   t105885 = 0.5e1 / 0.3e1 * t104212;
32332   t105887 = 0.4e1 / 0.3e1 * t4026 * t104688;
32333   t105890 = t101137 + t105878 + t24062 * t1037 - t105880 - t105881 - t105882 - t105883 - t105884 + t101139 - t105885 - t105887 + 0.5e1 / 0.36e2 * t20345 * t23980;
32334   t105893 = 0.2e1 * t449 * t5267 * t4311;
32335   t105894 = 0.2e1 * t104216;
32336   t105896 = 0.2e1 * t5155 * t20289;
32337   t105898 = 0.20e2 / 0.3e1 * t4013 * t104695;
32338   t105900 = t20818 * t167 * t168;
32339   t105901 = t105900 * t1192;
32340   t105905 = 0.2e1 / 0.3e1 * t1227 * t105095;
32341   t105907 = 0.2e1 / 0.3e1 * t1227 * t105100;
32342   t105909 = 0.2e1 * t4431 * t24084;
32343   t105912 = 0.3e1 * t1214 * t101191 * t4433;
32344   t105913 = -0.2e1 * t23835 * t4561 - t101161 - t105893 - t105894 - t105896 + t105898 + t105901 - t105905 - t105907 - t105909 + t105912 + t23987;
32345   t105916 = 0.2e1 * t5155 * t20399;
32346   t105918 = 0.6e1 * t5155 * t20406;
32347   t105922 = 0.2e1 * t1214 * t5258 * t51321;
32348   t105925 = 0.2e1 * t104260;
32349   t105926 = 0.2e1 * t104262;
32350   t105927 = 0.2e1 * t104265;
32351   t105934 = 0.2e1 * t105042 * t1245 - t20053 * t5259 + 0.3e1 * t20738 * t5060 + 0.2e1 * t20820 * t5060 - 0.2e1 * t4391 * t5236 + t101271 - t105916 + t105918 + t105922 - t105925 - t105926 - t105927;
32352   t105938 = 0.2e1 * t5155 * t20396;
32353   t105941 = 0.2e1 * t1214 * t4514 * t18617;
32354   t105942 = t24065 * t4438;
32355   t105946 = 0.2e1 * t4431 * t23988;
32356   t105949 = 0.2e1 * t1214 * t1244 * t76369;
32357   t105950 = 0.4e1 * t104822;
32358   t105951 = 0.4e1 * t104824;
32359   t105953 = 0.4e1 * t4302 * t24088;
32360   t105956 = 0.4e1 * t449 * t20380 * t1231;
32361   t105957 = -0.2e1 * t20735 * t5060 + 0.6e1 * t23835 * t4557 + t101322 - t105938 - t105941 - t105942 + t105946 - t105949 - t105950 - t105951 - t105953 - t105956;
32362   t105963 = 0.4e1 * t449 * t5135 * t4483;
32363   t105965 = 0.4e1 / 0.3e1 * t14978 * t23734;
32364   t105967 = 0.4e1 / 0.3e1 * t14972 * t23734;
32365   t105969 = 0.4e1 / 0.3e1 * t4026 * t104808;
32366   t105971 = 0.4e1 / 0.3e1 * t4026 * t104816;
32367   t105973 = 0.4e1 / 0.3e1 * t4026 * t104841;
32368   t105974 = 0.4e1 * t104838;
32369   t105976 = 0.4e1 / 0.3e1 * t4026 * t104684;
32370   t105980 = 0.2e1 / 0.3e1 * t4459 * t23781;
32371   t105982 = 0.2e1 / 0.3e1 * t4465 * t23781;
32372   t105984 = 0.3e1 * t24065 * t4434;
32373   t105985 = 0.2e1 * t23835 * t4515 - t105963 - t105965 - t105967 - t105969 - t105971 - t105973 - t105974 - t105976 - t105980 - t105982 + t105984;
32374   t106002 = -t104870 / 0.192e3 - t104872 - t104882 + t104887 + 0.24e2 * t23695 * t99365 * t23999 * t1030 - 0.12e2 * t23695 * t23696 * t5118 * t4497 - 0.12e2 * t101415 * t18155 * t4371 - t104888 + t104889 + t104890 - t104891 + t99881 - t104892 / 0.64e2 + 0.18e2 * t99884 * t78733 * t4371 + t104904;
32375   t106023 = t104905 / 0.96e2 + t104907 / 0.48e2 + t104912 / 0.192e3 + 0.6e1 * t23995 * t104127 + t104918 / 0.192e3 + t104920 / 0.96e2 + 0.12e2 * t99878 * t20330 - 0.18e2 * t101415 * t18150 * t4366 - 0.6e1 * t104894 * t24000 - 0.6e1 * t23695 * t23696 * t5243 * t4359 + t101413 - t99922 - t101424 + t104922 - t104923 / 0.64e2 - t104925 / 0.48e2;
32376   t106026 = t175 * (t106002 + t106023) * t748;
32377   t106027 = t1214 * t106026;
32378   t106028 = t104281 / 0.3e1;
32379   t106029 = t104282 / 0.3e1;
32380   t106032 = t104295 / 0.3e1;
32381   t106033 = t104298 / 0.3e1;
32382   t106034 = t104306 / 0.3e1;
32383   t106036 = t13542 * t5123 * t1033;
32384   t106038 = 0.4e1 * t14484 * t106036;
32385   t106039 = t101522 * t912;
32386   t106040 = t70080 * t106039;
32387   t106044 = t12791 * t5239 * t912;
32388   t106047 = -t4957 + t106027 + t106028 + t106029 + t20053 * t5255 + t5060 * t20687 + t106032 + t106033 + t106034 + t106038 - 0.5e1 / 0.3e1 * t70074 * t106040 - 0.10e2 / 0.3e1 * t3762 * t106044;
32389   t106050 = t18560 * t101253 * t928;
32390   t106053 = t24065 * t4379;
32391   t106055 = 0.2e1 * t20294 * t5125;
32392   t106057 = t5044 * t76036 * t1133;
32393   t106063 = t18543 * t101253 * t883;
32394   t106067 = t18555 * t101253 * t908;
32395   t106072 = t19969 * t23983;
32396   t106076 = t18560 * t4478 * t1133;
32397   t106080 = t18543 * t101253 * t912;
32398   t106084 = 0.5e1 / 0.18e2 * t5084 * t106050 + t106053 + t106055 + 0.5e1 / 0.36e2 * t5084 * t106057 + 0.5e1 / 0.36e2 * t5084 * t104648 + 0.5e1 / 0.18e2 * t18550 * t106063 + 0.5e1 / 0.18e2 * t5084 * t106067 + 0.5e1 / 0.18e2 * t20345 * t23984 + 0.5e1 / 0.18e2 * t5084 * t106072 + 0.5e1 / 0.18e2 * t5084 * t106076 - 0.5e1 / 0.6e1 * t18542 * t106080 - t5060 * t20733;
32399   t106088 = t23510 * t20348;
32400   t106092 = 0.4e1 * t5097 * t20828;
32401   t106094 = 0.4e1 * t2442 * t24088;
32402   t106096 = t66 * t24073 * t1110;
32403   t106100 = 0.2e1 * t4302 * t24091;
32404   t106103 = 0.2e1 * t449 * t20765 * t1143;
32405   t106105 = 0.2e1 * t2442 * t24091;
32406   t106112 = t19276 * t20275;
32407   t106117 = t71708 * t20269;
32408   t106123 = t4079 * t5123 * t999;
32409   t106134 = t19286 * t20275;
32410   t106138 = t13542 * t1190 * t4513;
32411   t106141 = t71739 * t20269;
32412   t106147 = 0.3e1 * t101383 * t1768 * t999 - t101432 * t1033 * t2849 - t1190 * t2849 * t78861 - 0.2e1 * t15289 * t2849 * t5123 - t19276 * t2849 * t4377 + 0.2e1 * t19286 * t2849 * t4377 - 0.2e1 * t20341 * t2849 * t4079 + t106026 * t169 + 0.4e1 * t106036 * t2849 - 0.3e1 * t106112 * t1768 + 0.2e1 * t106117 * t2849 - 0.6e1 * t106123 * t1768 + 0.6e1 * t106134 * t1768 + 0.4e1 * t106138 * t2849 - 0.6e1 * t106141 * t2849;
32413   t106148 = my_piecewise3(t296, 0, t106147);
32414   t106151 = my_piecewise3(t359, 0, t106147);
32415   t106156 = t98 * (t106148 * t34 / 0.2e1 + t106151 * t46 / 0.2e1 + t24017 * t886 / 0.2e1 + t24019 * t905 / 0.2e1);
32416   t106159 = 0.5e1 / 0.48e2 * t34313 * t24028 * t24030 + 0.5e1 / 0.48e2 * t24029 * t106088 - t24071 - t24072 - t106092 - t106094 + t1135 * t106096 / 0.3e1 - t106100 - t106103 - t106105 - t106156 + t4269 * t24079 / 0.6e1;
32417   t106167 = t66 * t4287 * t5267;
32418   t106171 = t66 * t1136 * t20765;
32419   t106175 = 0.6e1 * t13345 * t106134;
32420   t106176 = t916 * t24022;
32421   t106178 = t1214 * t5254 * t14434;
32422   t106180 = 0.2e1 * t20294 * t5159;
32423   t106190 = t2378 * t24055;
32424   t106194 = t400 * t5235 * t883;
32425   t106197 = 0.4e1 * t105141;
32426   t106198 = t2378 * t24050;
32427   t106200 = 0.4e1 / 0.3e1 * t106198 * t5274;
32428   t106202 = t400 * t4311 * t25;
32429   t106204 = 0.4e1 / 0.3e1 * t106202 * t5274;
32430   t106206 = t400 * t1143 * t883;
32431   t106208 = 0.4e1 / 0.3e1 * t106206 * t5274;
32432   t106210 = 0.4e1 / 0.3e1 * t24051 * t20803;
32433   t106212 = 0.4e1 / 0.3e1 * t24051 * t20807;
32434   t106215 = -t24056 * t4409 / 0.3e1 - t24056 * t4413 / 0.3e1 - 0.5e1 / 0.48e2 * t105143 * t24039 - 0.5e1 / 0.48e2 * t23748 * t24037 * t104380 - t106190 * t1205 / 0.3e1 - t106194 * t1205 / 0.3e1 + t106197 + t5056 + t106200 + t106204 + t106208 + t106210 + t106212 + 0.5e1 / 0.3e1 * t101514 * t4397 + t20017;
32435   t106217 = 0.5e1 / 0.3e1 * t72081 * t104409;
32436   t106219 = 0.5e1 / 0.9e1 * t72093 * t104413;
32437   t106221 = 0.5e1 / 0.9e1 * t72078 * t104371;
32438   t106228 = t4932 * t4933 * t4483 * t1133;
32439   t106232 = t4932 * t24045 * t4282;
32440   t106236 = 0.20e2 / 0.3e1 * t101610 * t20795;
32441   t106237 = t104362 / 0.3e1;
32442   t106238 = t104363 / 0.3e1;
32443   t106239 = t104364 / 0.3e1;
32444   t106240 = t104366 / 0.3e1;
32445   t106241 = t20023 - t101577 - t101579 - t106217 + t106219 + t106221 - 0.5e1 / 0.18e2 * t76783 * t24047 - 0.5e1 / 0.18e2 * t105131 * t24047 - 0.5e1 / 0.18e2 * t18823 * t106228 - 0.5e1 / 0.18e2 * t18823 * t106232 - t106236 - t106237 - t106238 - t106239 - t106240;
32446   t106243 = t104369 / 0.3e1;
32447   t106244 = 0.5e1 / 0.3e1 * t104376;
32448   t106245 = 0.2e1 * t104378;
32449   t106246 = t24038 * t912;
32450   t106250 = t24038 * t928;
32451   t106254 = t24038 * t883;
32452   t106258 = t18774 * t908;
32453   t106263 = 0.5e1 / 0.18e2 * t75224 * t24042;
32454   t106265 = 0.5e1 / 0.18e2 * t104428 * t24042;
32455   t106268 = 0.5e1 / 0.18e2 * t18368 * t5269 * t104431;
32456   t106269 = 0.2e1 * t104417;
32457   t106270 = -t106243 + t101614 + t106244 + t106245 + 0.35e2 / 0.48e2 * t99464 * t24037 * t106246 - 0.5e1 / 0.24e2 * t99471 * t24037 * t106250 - 0.5e1 / 0.16e2 * t18362 * t24037 * t106254 - 0.5e1 / 0.16e2 * t23748 * t24037 * t106258 + t106263 - t20020 + t106265 + t106268 + t24054 + t106269 + t24061;
32458   t106271 = 0.16e2 * t105174;
32459   t106272 = 0.4e1 / 0.3e1 * t105184;
32460   t106273 = 0.4e1 / 0.3e1 * t105186;
32461   t106274 = 0.4e1 / 0.3e1 * t105188;
32462   t106275 = 0.4e1 / 0.3e1 * t105191;
32463   t106276 = 0.4e1 * t105193;
32464   t106280 = 0.20e2 / 0.3e1 * t105195;
32465   t106281 = t101522 * t908;
32466   t106282 = t70271 * t106281;
32467   t106285 = 0.8e1 * t104423;
32468   t106286 = t23764 * t106039;
32469   t106289 = t101522 * t883;
32470   t106290 = t23764 * t106289;
32471   t106293 = t101626 - t106271 + t106272 + t106273 + t106274 + t106275 + t106276 - t24060 - 0.2e1 / 0.3e1 * t101518 * t1203 * t20806 - t106280 - t101643 - 0.5e1 / 0.9e1 * t18823 * t106282 - t106285 + t24059 + 0.5e1 / 0.3e1 * t70451 * t106286 - 0.5e1 / 0.9e1 * t13663 * t106290;
32472   t106298 = 0.4e1 * t75579 * t20270;
32473   t106303 = t4277 * t24079 / 0.6e1 + t4284 * t24079 / 0.6e1 + t1135 * t106167 / 0.6e1 + t1135 * t106171 / 0.6e1 + t106175 - t106176 - t106178 - t106180 + (t106215 + t106241 + t106270 + t106293) * t227 + t106298 + t4269 * t24075 / 0.3e1 + t4277 * t24075 / 0.3e1;
32474   t106307 = 0.5e1 / 0.9e1 * t19119 * t104502;
32475   t106309 = 0.5e1 / 0.9e1 * t19122 * t104510;
32476   t106315 = t18560 * t4484 * t1133;
32477   t106321 = 0.20e2 / 0.3e1 * t4013 * t104997;
32478   t106323 = 0.5e1 / 0.3e1 * t19114 * t104498;
32479   t106324 = t4284 * t24075 / 0.3e1 - t106307 - t106309 - t24087 - 0.4e1 * t5499 * t20415 - 0.2e1 * t20773 * t1199 - t24096 - t24097 + 0.5e1 / 0.18e2 * t5084 * t106315 + 0.5e1 / 0.18e2 * t5084 * t104763 + t106321 + t106323;
32480   t106331 = 0.4e1 * t14484 * t106138;
32481   t106333 = 0.3e1 * t13345 * t106112;
32482   t106345 = t1214 * t24005 * t2850;
32483   t106346 = t4431 * t24082;
32484   t106348 = 0.6e1 * t70029 * t20276;
32485   t106349 = -0.5e1 / 0.36e2 * t20651 * t23610 - 0.5e1 / 0.36e2 * t5228 * t104251 + t106331 - t106333 + 0.20e2 / 0.3e1 * t4013 * t104568 + 0.5e1 / 0.6e1 * t19114 * t104307 - 0.5e1 / 0.18e2 * t19119 * t104311 - 0.5e1 / 0.18e2 * t19122 * t104287 - 0.5e1 / 0.18e2 * t19122 * t104290 - t106345 - t106346 - t106348;
32486   t106351 = 0.2e1 * t14484 * t106117;
32487   t106352 = 0.2e1 * t104486;
32488   t106353 = 0.2e1 * t104489;
32489   t106355 = t1214 * t20686 * t3923;
32490   t106359 = 0.4e1 * t20281 * t5239;
32491   t106361 = 0.6e1 * t13345 * t106123;
32492   t106362 = t70080 * t106289;
32493   t106365 = t50654 * t106281;
32494   t106368 = t4431 * t24006;
32495   t106371 = t66 * t908 * t5235 * t363;
32496   t106375 = 0.2e1 * t5155 * t20343;
32497   t106377 = 0.6e1 * t14484 * t106141;
32498   t106378 = t106351 - t106352 - t106353 - t106355 - 0.3e1 * t5060 * t20770 - t106359 - t106361 + 0.5e1 / 0.9e1 * t70086 * t106362 + 0.5e1 / 0.9e1 * t70173 * t106365 + t106368 + t1135 * t106371 / 0.3e1 + t106375 - t106377;
32499   t106382 = t105800 + t105829 + t105863 + t105875 + t105890 + t105913 + t105934 + t105957 + t105985 + t106047 + t106084 + t106159 + t106303 + t106324 + t106349 + t106378;
32500   t106402 = 0.12e2 * t1267 * t20451;
32501   t106404 = 0.12e2 * t1267 * t20454;
32502   t106405 = 0.6e1 * t104554;
32503   t106406 = 0.6e1 * t104557;
32504   t106407 = 0.6e1 * t104560;
32505   t106410 = 0.3e1 * t104545;
32506   t106411 = 0.6e1 * t105290;
32507   t106416 = 0.12e2 * t369 * t5149 * t4483;
32508   t106417 = 0.12e2 * t105296;
32509   t106419 = 0.3e1 * t20846 * t1221;
32510   t106421 = 0.6e1 * t5290 * t4451;
32511   t106424 = 0.6e1 * t369 * t4311 * t5235;
32512   t106426 = 0.12e2 * t4568 * t5172;
32513   t106427 = t106382 * t370 * params->d + 0.12e2 * t1219 * t20861 + 0.12e2 * t5166 * t4574 + t106402 + t106404 + t106405 + t106406 + t106407 + t106410 + t106411 + t106416 + t106417 + t106419 + t106421 + t106424 + t106426 + t5079;
32514   t106430 = 0.12e2 * t105301;
32515   t106431 = 0.12e2 * t105304;
32516   t106433 = 0.6e1 * t1125 * t24121;
32517   t106438 = 0.6e1 * t104547;
32518   t106442 = 0.12e2 * t1267 * t20448;
32519   t106443 = 0.12e2 * t105320;
32520   t106445 = 0.3e1 * t5290 * t4454;
32521   t106448 = 0.3e1 * t24110 * t1127 + 0.6e1 * t1219 * t20858 + 0.6e1 * t20430 * t1269 + 0.6e1 * t4445 * t5294 + 0.6e1 * t5166 * t4577 + t106430 + t106431 + t106433 + t106438 + t106442 + t106443 + t106445 + t20112 + t20115 + t24118 + t24124 + t24125 + t24126;
32522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32523     v4rhosigma3[13] = t101015 + t7 * t106382 * t372 + t24102 * t1130 + t101681 + t20838 * t1224 + t5286 * t4457 + t101685 + 0.2e1 * t20422 * t1272 + 0.2e1 * t5162 * t4580 + t101691 + 0.2e1 * t4564 * t5175 + 0.2e1 * t1265 * t20457 + t101696 + t4441 * t5297 + t1217 * t20864 + t101699 + t1123 * t24127 + t872 * (t106427 + t106448);
32524 
32525   t106460 = t5044 * t77915 * t1133;
32526   t106464 = -t104566 + 0.5e1 / 0.12e2 * t71136 * t106040 - 0.5e1 / 0.36e2 * t70858 * t106362 - 0.5e1 / 0.36e2 * t70855 * t106365 + t23880 - t104573 + 0.5e1 / 0.72e2 * t20345 * t24157 + t101757 + 0.5e1 / 0.72e2 * t5084 * t106460 + t105776 + 0.2e1 * t104582 + t104587 - t101804 + t105344 - t104590 - t104592 - t104594;
32527   t106468 = t4173 * t105059;
32528   t106482 = t4412 * t24160;
32529   t106486 = t1204 * t4607 * t1231;
32530   t106490 = t1204 * t77598 * t1231;
32531   t106497 = -0.2e1 * t449 * t5198 * t4483 - t101821 - t104598 + t106468 / 0.3e1 + 0.5e1 / 0.3e1 * t4013 * t105394 - 0.2e1 / 0.3e1 * t4026 * t105634 + 0.5e1 / 0.72e2 * t5084 * t105445 + t14152 * t24161 / 0.3e1 + t14156 * t24161 / 0.3e1 + t14848 * t24161 / 0.3e1 + t3788 * t106482 / 0.3e1 + t3788 * t106486 / 0.3e1 + t3788 * t106490 / 0.3e1 - t19748 - t19750 - t19753 + t4173 * t105070 / 0.3e1 + t4173 * t105074 / 0.3e1;
32532   t106501 = t5097 * t20991;
32533   t106515 = t15610 * t23734;
32534   t106517 = t4173 * t104808;
32535   t106519 = t4173 * t105078 / 0.3e1 + t105377 + t105379 - 0.2e1 * t106501 - 0.2e1 * t2442 * t24203 - 0.2e1 * t4302 * t24203 - 0.2e1 * t449 * t20508 * t1231 + t99755 + 0.5e1 / 0.36e2 * t104599 + 0.5e1 / 0.36e2 * t104602 + 0.5e1 / 0.36e2 * t104606 + t104609 - t104611 + t104612 / 0.3e1 + t104614 / 0.3e1 + t106515 / 0.3e1 + t106517 / 0.3e1;
32536   t106525 = t4173 * t104816;
32537   t106527 = t4173 * t104841;
32538   t106534 = t12791 * t5309 * t912;
32539   t106537 = t4173 * t104799;
32540   t106545 = -0.2e1 / 0.3e1 * t104622 - 0.2e1 / 0.3e1 * t104624 - 0.2e1 / 0.3e1 * t104626 - 0.2e1 / 0.3e1 * t104628 - 0.2e1 / 0.3e1 * t104630 + t106525 / 0.3e1 + t106527 / 0.3e1 - 0.5e1 / 0.96e2 * t24147 * t24148 * t19359 * t4282 - 0.5e1 / 0.3e1 * t3762 * t106534 - t104661 - t104663 - t104665 - t104667 - t104669 + t106537 / 0.3e1 + t15503 * t23800 / 0.3e1 + t15686 * t23800 / 0.3e1 + t15610 * t23800 / 0.3e1;
32541   t106549 = t5179 * t19969 * t24129;
32542   t106553 = t5179 * t18560 * t79999 * t1143;
32543   t106557 = t5179 * t18560 * t19359 * t4311;
32544   t106574 = 0.5e1 / 0.36e2 * t106549 + 0.5e1 / 0.36e2 * t106553 + 0.5e1 / 0.36e2 * t106557 - 0.5e1 / 0.72e2 * t20468 * t23984 - 0.5e1 / 0.72e2 * t20554 * t23984 - 0.5e1 / 0.72e2 * t5179 * t106072 - t105885 - 0.5e1 / 0.72e2 * t5179 * t106076 + t104671 / 0.3e1 + t104674 / 0.3e1 + t104681 / 0.3e1 + t104685 / 0.3e1 + t104689 / 0.3e1 - t104692 + t23987 + 0.10e2 / 0.3e1 * t104693 - 0.5e1 / 0.3e1 * t104696;
32545   t106575 = t4156 * t104997;
32546   t106577 = t20468 * t24130;
32547   t106579 = t20554 * t24130;
32548   t106584 = t78059 * t20270;
32549   t106586 = t4173 * t104673;
32550   t106588 = t4173 * t104680;
32551   t106590 = t4173 * t104684;
32552   t106592 = t4173 * t104688;
32553   t106594 = -0.5e1 / 0.3e1 * t106575 + t104717 - t104721 + 0.5e1 / 0.36e2 * t106577 + 0.5e1 / 0.36e2 * t106579 - 0.2e1 / 0.3e1 * t104722 - t101944 + t101956 + t101957 - t104724 - 0.5e1 / 0.72e2 * t5179 * t106050 + 0.2e1 * t106584 + t104728 - t104729 + t106586 / 0.3e1 + t106588 / 0.3e1 + t106590 / 0.3e1 + t106592 / 0.3e1;
32554   t106604 = t15503 * t23734;
32555   t106606 = t15686 * t23734;
32556   t106615 = -0.5e1 / 0.144e3 * t20468 * t23980 - 0.5e1 / 0.144e3 * t20554 * t23980 + t105449 + t105451 - 0.5e1 / 0.144e3 * t5179 * t106057 - 0.5e1 / 0.144e3 * t5179 * t104648 + t106604 / 0.3e1 + t106606 / 0.3e1 + t105453 + 0.5e1 / 0.24e2 * t18989 * t106080 - 0.5e1 / 0.72e2 * t18957 * t106063 - 0.5e1 / 0.72e2 * t5179 * t106067 - t104753 - t105926 - t104773 + t104776 + 0.3e1 * t104777;
32557   t106616 = t4013 * t105463;
32558   t106618 = t101823 * t928;
32559   t106622 = t101975 * t908;
32560   t106624 = t70855 * t50654 * t106622;
32561   t106633 = t4582 * t23781;
32562   t106635 = t4588 * t23781;
32563   t106637 = -t104780 + t104783 - t104784 - t104787 - t104791 + 0.10e2 / 0.3e1 * t106616 - 0.5e1 / 0.48e2 * t24147 * t101836 * t106618 + t104793 + 0.5e1 / 0.18e2 * t106624 - 0.5e1 / 0.6e1 * t104796 + t104800 / 0.3e1 + t104802 / 0.3e1 + t104804 / 0.3e1 + t104806 / 0.3e1 + t104809 / 0.3e1 + t104817 / 0.3e1 + t106633 / 0.6e1 + t106635 / 0.6e1;
32564   t106641 = t4597 * t23781;
32565   t106643 = t1277 * t105095;
32566   t106645 = t1277 * t105100;
32567   t106654 = t4156 * t104695;
32568   t106657 = t71026 * t20276;
32569   t106663 = t106641 / 0.6e1 + t106643 / 0.6e1 + t106645 / 0.6e1 - 0.2e1 * t104819 - t104823 - t104825 - t104827 + t4173 * t104619 / 0.3e1 + 0.5e1 / 0.72e2 * t20468 * t24143 + 0.5e1 / 0.72e2 * t20554 * t24143 - t104828 + t104833 - 0.5e1 / 0.3e1 * t106654 + 0.3e1 * t104834 - 0.3e1 * t106657 - t104836 + 0.5e1 / 0.72e2 * t5179 * t5044 * t74357 * t57;
32570   t106664 = t14978 * t23883;
32571   t106666 = t14972 * t23883;
32572   t106668 = t4026 * t105622;
32573   t106670 = t4026 * t105626;
32574   t106672 = t4026 * t105630;
32575   t106675 = t4156 * t104795;
32576   t106678 = t18543 * t102138 * t912;
32577   t106682 = t18543 * t102138 * t883;
32578   t106697 = -0.2e1 / 0.3e1 * t106664 - 0.2e1 / 0.3e1 * t106666 - 0.2e1 / 0.3e1 * t106668 - 0.2e1 / 0.3e1 * t106670 - 0.2e1 / 0.3e1 * t106672 - t104839 + t104842 / 0.3e1 + t104852 - t104854 - 0.5e1 / 0.6e1 * t106675 - 0.5e1 / 0.12e2 * t18542 * t106678 + 0.5e1 / 0.36e2 * t18550 * t106682 - t4957 + t106028 + t106029 - 0.5e1 / 0.12e2 * t18989 * t18543 * t101853 * t912 + 0.5e1 / 0.36e2 * t18957 * t18543 * t101853 * t883 + 0.5e1 / 0.36e2 * t5179 * t18555 * t101853 * t908;
32579   t106703 = t15503 * t23738;
32580   t106705 = t15686 * t23738;
32581   t106707 = t15610 * t23738;
32582   t106710 = t101823 * t912;
32583   t106717 = t78392 * t24174;
32584   t106729 = -0.5e1 / 0.36e2 * t105128 - 0.5e1 / 0.36e2 * t105132 - 0.5e1 / 0.36e2 * t105134 - 0.5e1 / 0.36e2 * t105138 + 0.5e1 / 0.72e2 * t78392 * t24047 - t105536 - t105538 - t105540 - t105543 + t105142 + t5056;
32585   t106731 = t101975 * t912;
32586   t106733 = t71312 * t23764 * t106731;
32587   t106735 = t101975 * t883;
32588   t106737 = t13930 * t23764 * t106735;
32589   t106740 = t19027 * t70271 * t106622;
32590   t106746 = t106202 * t5316;
32591   t106753 = t19027 * t4932 * t19430 * t4311;
32592   t106755 = t105548 * t24174;
32593   t106757 = t78253 * t24174;
32594   t106759 = -0.5e1 / 0.36e2 * t106753 + t105147 + t105150 + t105152 - t106237 - t106238 - t106239 - t106240 - t106243 - 0.5e1 / 0.36e2 * t106755 - 0.5e1 / 0.36e2 * t106757;
32595   t106770 = t102117 * t20795;
32596   t106774 = t106206 * t5316;
32597   t106776 = t105168 - t105169 / 0.3e1 + t23775 - t105175 - t105181 + t105183 + t105185 + t105187 + t105189 + t105192 - t106774 / 0.3e1;
32598   t106778 = t24051 * t20938;
32599   t106780 = t24051 * t20941;
32600   t106782 = t24051 * t20944;
32601   t106793 = t106198 * t5316;
32602   t106795 = -t106778 / 0.3e1 - t106780 / 0.3e1 - t106782 / 0.3e1 - t23898 + t105194 - t24060 + 0.5e1 / 0.96e2 * t105143 * t24170 + 0.5e1 / 0.96e2 * t23748 * t105557 * t24169 + 0.5e1 / 0.96e2 * t23748 * t23888 * t24168 * t4282 - t106793 / 0.3e1 - t105196;
32603   t106796 = t101823 * t883;
32604   t106800 = t101823 * t908;
32605   t106809 = -t100266 - t105206 + 0.5e1 / 0.32e2 * t19023 * t23510 * t106796 + 0.5e1 / 0.32e2 * t102050 * t99582 * t106800 + t23774 - t105217 / 0.3e1 - t105220 / 0.3e1 - t105223 / 0.3e1 - t105225 / 0.3e1 - t105227 / 0.3e1 - t100280;
32606   t106815 = t1204 * t18923 * t4483;
32607   t106818 = t4026 * t105435;
32608   t106822 = t5211 * t20396;
32609   t106823 = 0.5e1 / 0.36e2 * t5179 * t18560 * t101853 * t928 + t106032 + t106033 + t106034 + t106703 / 0.3e1 + t106705 / 0.3e1 + t106707 / 0.3e1 - t104973 + (0.5e1 / 0.72e2 * t78253 * t24047 + 0.5e1 / 0.72e2 * t19027 * t106228 + 0.5e1 / 0.72e2 * t19027 * t106232 - 0.5e1 / 0.12e2 * t71312 * t106286 + 0.5e1 / 0.36e2 * t13930 * t106290 + 0.5e1 / 0.36e2 * t19027 * t106282 + 0.5e1 / 0.72e2 * t105548 * t24047 - 0.5e1 / 0.18e2 * t105123 + t106809 - t106746 / 0.3e1 - t20020 + t23762 - 0.5e1 / 0.18e2 * t106737 + t20023 - 0.5e1 / 0.18e2 * t106740 + t105588 + t106776 + t106244 - t105517 + 0.5e1 / 0.3e1 * t105117 + 0.5e1 / 0.6e1 * t105120 + t106759 + t20017 + 0.5e1 / 0.3e1 * t106770 + t102090 - 0.5e1 / 0.36e2 * t106717 + t106795 - t102023 + t102024 + t106729 + t105159 + 0.5e1 / 0.6e1 * t106733 - 0.35e2 / 0.96e2 * t102075 * t23510 * t106710 + 0.5e1 / 0.48e2 * t102080 * t23510 * t106618 - 0.5e1 / 0.18e2 * t105126) * t227 + t3788 * t106815 / 0.3e1 - 0.2e1 / 0.3e1 * t106818 - t104978 - 0.5e1 / 0.72e2 * t5179 * t104763 - t104980 - t106822 - t23910 + t104982;
32610   t106826 = t20281 * t5309;
32611   t106828 = t20284 * t5309;
32612   t106830 = t5097 * t20982;
32613   t106832 = t5211 * t20343;
32614   t106834 = t71136 * t70080 * t106731;
32615   t106837 = t70858 * t70080 * t106735;
32616   t106839 = -0.5e1 / 0.72e2 * t5179 * t106315 + t104983 - 0.2e1 * t106826 - 0.2e1 * t106828 - 0.2e1 * t106830 + t104984 + t100139 - t104987 + t106832 - t23796 - t24072 - t104989 - t104993 - 0.5e1 / 0.6e1 * t106834 + 0.5e1 / 0.18e2 * t106837 - t104995 - t105671 - t105673;
32617   t106843 = t24189 * t4434;
32618   t106850 = t20948 * t167 * t168;
32619   t106851 = t106850 * t1192;
32620   t106853 = t20560 * t5125;
32621   t106854 = -t105676 - 0.5e1 / 0.3e1 * t104998 + 0.3e1 * t106843 - t105001 - 0.2e1 * t105002 - 0.2e1 * t105004 - 0.2e1 * t105006 - 0.3e1 * t105008 + t105016 + t106851 - t23806 - t105022 - t23929 * t4561 - t105024 - t105026 + t106853 + t102238;
32622   t106856 = t5211 * t20399;
32623   t106857 = t24189 * t4438;
32624   t106859 = t18555 * t102138 * t908;
32625   t106863 = t18560 * t102138 * t928;
32626   t106881 = -t102239 + t105704 * t1245 - t105027 - t106856 - t106857 - t105030 - t105033 + 0.5e1 / 0.36e2 * t5084 * t106859 + 0.5e1 / 0.36e2 * t5084 * t106863 + 0.35e2 / 0.96e2 * t100782 * t101822 * t106710 - 0.5e1 / 0.32e2 * t100786 * t101822 * t106796 - 0.5e1 / 0.32e2 * t24147 * t4935 * t106800 + t23929 * t4515 - t23822 - t23825 - t1227 * t105467 / 0.3e1 - t1227 * t105471 / 0.3e1 + 0.5e1 / 0.36e2 * t105034;
32627   t106885 = t20560 * t5159;
32628   t106898 = t5211 * t20289;
32629   t106901 = 0.5e1 / 0.36e2 * t105038 + t105043 + t105045 + t105046 + t105048 + t105049 + t24183 * t1037 - t106885 - t105055 + t105060 / 0.3e1 - 0.5e1 / 0.96e2 * t34313 * t24146 * t24150 - 0.5e1 / 0.96e2 * t6453 * t105387 * t23508 * t24150 - 0.5e1 / 0.96e2 * t24147 * t24148 * t79999 * t1133 + t105081 - t106898 - 0.5e1 / 0.3e1 * t4156 * t104568 - t105084 - t105086;
32630   t106910 = t5211 * t20406;
32631   t106914 = t24189 * t4379;
32632   t106919 = t105088 / 0.6e1 + t105090 / 0.6e1 + t105092 / 0.6e1 + t105096 / 0.6e1 + t105101 / 0.6e1 - 0.5e1 / 0.6e1 * t105105 + 0.5e1 / 0.18e2 * t105109 + 0.5e1 / 0.18e2 * t105113 - t106352 - t106353 - t105710 + 0.3e1 * t106910 + 0.3e1 * t23929 * t4557 + t106914 - t105250 - t105253 - t4459 * t23925 / 0.3e1 - t4465 * t23925 / 0.3e1;
32633   t106923 = t106464 + t106497 + t106519 + t106545 + t106574 + t106594 + t106615 + t106637 + t106663 + t106697 + t106823 + t106839 + t106854 + t106881 + t106901 + t106919;
32634   t106933 = t106923 * t372 * t7 + t24209 * t1130 + t20997 * t1224 + t20624 * t1272 + t1316 * t20457 + t5323 * t4457 + t5214 * t4580 + t4679 * t5175 + t101753 + t102273 + t102276 + t102279;
32635   t106941 = t21005 * t1221;
32636   t106945 = t105278 + t105281 + 0.3e1 * t106941 + 0.3e1 * t105284 + t105286 + t105287 + t105288 + t106410 + t105291 + 0.6e1 * t105292 + t105752;
32637   t106952 = t5327 * t4451;
32638   t106954 = t106923 * t370 * params->d + 0.3e1 * t24217 * t1127 + 0.3e1 * t20632 * t1269 + t105295 + t105297 + t105302 + t105305 + 0.6e1 * t106952 + t20112 + t23860 + t5079;
32639   t106958 = t1318 * t20448;
32640   t106963 = t4683 * t5172;
32641   t106965 = 0.3e1 * t5218 * t4577 + t105308 + 0.3e1 * t105310 + t105313 + 0.6e1 * t105314 + 0.6e1 * t105316 + t105321 + t106438 + 0.6e1 * t106958 + 0.6e1 * t106963 + t23962;
32642   t106966 = t5327 * t4454;
32643   t106969 = t1318 * t20451;
32644   t106971 = t1318 * t20454;
32645   t106976 = 0.6e1 * t5218 * t4574 + 0.6e1 * t105322 + 0.6e1 * t105324 + t105328 + t105769 + 0.3e1 * t106966 + 0.6e1 * t106969 + 0.6e1 * t106971 + t20115 + t23869 + t23872 + t24125;
32646   t106980 = t102283 + t20422 * t1320 + t5162 * t4687 + t102286 + t4564 * t5223 + t1265 * t20645 + t102289 + t4441 * t5331 + t1217 * t21015 + t102292 + t1123 * t24227 + t872 * (t106945 + t106954 + t106965 + t106976);
32647   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32648     v4rhosigma3[14] = t106933 + t106980;
32649 
32650   t106982 = t15503 * t23883;
32651   t106984 = t15686 * t23883;
32652   t106986 = t15610 * t23883;
32653   t106988 = t4173 * t105622;
32654   t106990 = t4173 * t105626;
32655   t106992 = t4173 * t105630;
32656   t106996 = t81046 * t23649;
32657   t106998 = t19532 * t104229;
32658   t107000 = -0.2e1 * t105336 + t24229 + 0.2e1 / 0.3e1 * t106982 + 0.2e1 / 0.3e1 * t106984 + 0.2e1 / 0.3e1 * t106986 + 0.2e1 / 0.3e1 * t106988 + 0.2e1 / 0.3e1 * t106990 + 0.2e1 / 0.3e1 * t106992 + 0.5e1 / 0.96e2 * t102352 * t105822 - 0.5e1 / 0.72e2 * t106996 - 0.5e1 / 0.72e2 * t106998;
32659   t107005 = 0.2e1 / 0.3e1 * t105343;
32660   t107007 = t19532 * t104019;
32661   t107010 = t1204 * t102381 * t912;
32662   t107014 = t1204 * t102386 * t928;
32663   t107017 = -0.5e1 / 0.72e2 * t19532 * t104287 - 0.5e1 / 0.72e2 * t19532 * t104290 + t105776 + t107005 - 0.10e2 / 0.3e1 * t105348 - t105351 - t105353 - t105355 - 0.5e1 / 0.72e2 * t107007 - 0.5e1 / 0.6e1 * t3762 * t107010 + t3788 * t107014 / 0.3e1;
32664   t107026 = 0.2e1 * t105356 + 0.2e1 * t105357 - t19748 - t19750 - t19753 + 0.2e1 / 0.3e1 * t105360 + 0.2e1 / 0.3e1 * t105364 + 0.2e1 / 0.3e1 * t105366 + 0.2e1 / 0.3e1 * t105368 + 0.2e1 / 0.3e1 * t105370 - t105373;
32665   t107027 = 0.2e1 / 0.3e1 * t105376;
32666   t107028 = 0.2e1 / 0.3e1 * t105378;
32667   t107040 = -t105375 + t107027 + t107028 + t105381 + t105398 + 0.4e1 / 0.3e1 * t105399 - t105885 - 0.5e1 / 0.72e2 * t20468 * t24157 - 0.5e1 / 0.72e2 * t20554 * t24157 - 0.5e1 / 0.72e2 * t5179 * t106460 - 0.35e2 / 0.192e3 * t102505 * t105813 - 0.5e1 / 0.3e1 * t4156 * t105394;
32668   t107049 = t19532 * t104016;
32669   t107051 = 0.5e1 / 0.64e2 * t102509 * t105816 - 0.5e1 / 0.72e2 * t5179 * t105445 + 0.2e1 / 0.3e1 * t4173 * t105634 - 0.5e1 / 0.72e2 * t107049 - t105403 + t105405 - t105407 - t105409 + t23987 + t104214 - t104217;
32670   t107052 = 0.2e1 / 0.3e1 * t105516;
32671   t107055 = 0.2e1 / 0.3e1 * t105535;
32672   t107056 = 0.2e1 / 0.3e1 * t105537;
32673   t107057 = 0.2e1 / 0.3e1 * t105539;
32674   t107058 = 0.2e1 / 0.3e1 * t105542;
32675   t107065 = -t107052 + 0.10e2 / 0.3e1 * t105531 - 0.4e1 / 0.3e1 * t105533 - t107055 - t107056 - t107057 - t107058 + t105545 + t105550 + t105552 + t105554 + t5056 + 0.35e2 / 0.192e3 * t99464 * t24231 * t106246 - 0.5e1 / 0.96e2 * t99471 * t24231 * t106250;
32676   t107073 = t73580 * t104409;
32677   t107075 = t73535 * t104413;
32678   t107079 = t19027 * t4932 * t99496 * t4595;
32679   t107081 = t73544 * t104371;
32680   t107083 = -0.5e1 / 0.64e2 * t18362 * t24231 * t106254 + t20017 + t20023 - 0.2e1 / 0.3e1 * t105561 - 0.2e1 / 0.3e1 * t105563 - 0.2e1 / 0.3e1 * t105565 - 0.2e1 / 0.3e1 * t105567 + t105570 - t105572 + t105576 - 0.5e1 / 0.12e2 * t107073 + 0.5e1 / 0.36e2 * t107075 + 0.5e1 / 0.36e2 * t107079 + 0.5e1 / 0.36e2 * t107081;
32681   t107100 = 0.5e1 / 0.3e1 * t104358 - 0.2e1 / 0.3e1 * t104360 - t106237 - t106238 - t106239 - t106240 - t106243 + t106244 + t104379 - 0.5e1 / 0.96e2 * t23748 * t23888 * t24038 * t4595 - 0.5e1 / 0.64e2 * t23748 * t24231 * t106258 - 0.5e1 / 0.192e3 * t105143 * t24232 - 0.5e1 / 0.192e3 * t23748 * t24231 * t104380 - t104389 / 0.3e1;
32682   t107104 = 0.10e2 / 0.3e1 * t105587;
32683   t107105 = t75224 * t24235;
32684   t107107 = t104428 * t24235;
32685   t107110 = t18368 * t5383 * t104431;
32686   t107112 = -t104393 / 0.3e1 - t104394 / 0.3e1 - t104395 / 0.3e1 - t20020 + t105586 + t107104 + t104418 + t23642 - t24239 - t24060 - t104424 + 0.5e1 / 0.72e2 * t107105 + 0.5e1 / 0.72e2 * t107107 + 0.5e1 / 0.72e2 * t107110;
32687   t107117 = t34313 * t24258;
32688   t107122 = 0.2e1 / 0.3e1 * t105448;
32689   t107123 = 0.2e1 / 0.3e1 * t105450;
32690   t107124 = 0.2e1 / 0.3e1 * t105452;
32691   t107125 = -t105427 - t105430 + (t107065 + t107083 + t107100 + t107112) * t227 - 0.2e1 * t104254 + 0.5e1 / 0.192e3 * t107117 * t24030 + 0.5e1 / 0.192e3 * t24259 * t106088 + t105437 + t107122 + t107123 + t107124 + t105457;
32692   t107135 = t19560 * t104498;
32693   t107137 = t19565 * t104502;
32694   t107141 = t5179 * t18560 * t1144 * t4595;
32695   t107143 = 0.5e1 / 0.12e2 * t18989 * t106678 - 0.5e1 / 0.36e2 * t18957 * t106682 - 0.5e1 / 0.36e2 * t5179 * t106859 - 0.5e1 / 0.36e2 * t5179 * t106863 - t105465 - t104261 - t105926 + 0.5e1 / 0.12e2 * t107135 - 0.5e1 / 0.36e2 * t107137 - 0.5e1 / 0.36e2 * t107141 + t105475;
32696   t107144 = t4173 * t105435;
32697   t107148 = t4156 * t105463;
32698   t107150 = t4302 * t24271;
32699   t107153 = t449 * t21137 * t1143;
32700   t107155 = -t104266 + 0.2e1 / 0.3e1 * t107144 - 0.2e1 * t104274 - 0.4e1 * t105484 - 0.10e2 / 0.3e1 * t107148 - 0.2e1 * t107150 - 0.2e1 * t107153 - t4957 + t106028 + t106029 + t106032 + t106033;
32701   t107161 = t106034 + t105601 + t105609 + t105611 + t105613 - 0.5e1 / 0.3e1 * t104316 + 0.2e1 / 0.3e1 * t104320 + t105617 + t105619 + t105624 + t105628;
32702   t107164 = t19532 * t104510;
32703   t107168 = t2442 * t24271;
32704   t107170 = t105632 - t24249 - 0.4e1 * t105637 - t104336 - 0.4e1 * t104345 - 0.5e1 / 0.36e2 * t107164 - 0.2e1 * t104347 - t104351 - 0.6e1 * t105645 - 0.2e1 * t107168 - t105648;
32705   t107183 = 0.6e1 * t105649 - t104352 - t23619 - t24072 - 0.8e1 * t105652 - t105659 - 0.3e1 * t104438 + t4582 * t23925 / 0.3e1 + t4588 * t23925 / 0.3e1 + t4597 * t23925 / 0.3e1 + t1277 * t105467 / 0.3e1;
32706   t107193 = t66 * t4287 * t5381;
32707   t107197 = t66 * t1136 * t21137;
32708   t107200 = 0.4e1 * t105670;
32709   t107201 = 0.4e1 * t105672;
32710   t107202 = 0.4e1 * t105675;
32711   t107204 = t1277 * t105471 / 0.3e1 + t4269 * t24255 / 0.6e1 + t4277 * t24255 / 0.6e1 + t4284 * t24255 / 0.6e1 + t1135 * t107193 / 0.6e1 + t1135 * t107197 / 0.6e1 - t105666 - t105669 - t107200 - t107201 - t107202 + 0.4e1 * t105677;
32712   t107213 = t104446 - t104447 + t104451 / 0.3e1 + t104452 / 0.3e1 + t104453 / 0.3e1 + t104457 / 0.3e1 + t104460 / 0.3e1 - t105687 - t105689 - t105692 - 0.4e1 * t105693;
32713   t107215 = t21172 * t167 * t168;
32714   t107216 = t107215 * t1192;
32715   t107224 = t449 * t5381 * t4311;
32716   t107233 = t24269 * t4379;
32717   t107234 = t107216 + 0.5e1 / 0.96e2 * t24147 * t24148 * t18544 * t4595 + 0.5e1 / 0.64e2 * t102352 * t105819 - 0.2e1 * t107224 + t104461 + t104462 - 0.5e1 / 0.144e3 * t21140 * t23610 - 0.5e1 / 0.144e3 * t5335 * t104251 + 0.5e1 / 0.192e3 * t24259 * t104328 + t24241 * t1037 + t107233;
32718   t107237 = t24269 * t4434;
32719   t107239 = t104463 + t105702 + t105706 - t104468 + t104471 + 0.3e1 * t104473 + t104478 + t104481 + t104483 - t104485 + 0.3e1 * t107237;
32720   t107240 = t24269 * t4438;
32721   t107241 = 0.10e2 / 0.3e1 * t105709;
32722   t107252 = -t107240 - t106352 - t106353 - t107241 + t105712 - t104493 + 0.2e1 * t104494 - t104497 - 0.2e1 * t105719 + 0.5e1 / 0.24e2 * t19560 * t104307 - 0.5e1 / 0.72e2 * t19565 * t104311 - 0.5e1 / 0.72e2 * t5179 * t5044 * t18205 * t4595;
32723   t107256 = t107000 + t107017 + t107026 + t107040 + t107051 + t107125 + t107143 + t107155 + t107161 + t107170 + t107183 + t107204 + t107213 + t107234 + t107239 + t107252;
32724   t107276 = 0.6e1 * t105751;
32725   t107278 = t5396 * t4451;
32726   t107281 = t107256 * t370 * params->d + 0.6e1 * t104539 + 0.12e2 * t104543 + t104550 + t104553 + t104555 + t104558 + t104561 + t105748 + 0.12e2 * t105753 + t106410 + t107276 + 0.6e1 * t107278 + t5079;
32727   t107283 = t5396 * t4454;
32728   t107285 = t21191 * t1221;
32729   t107290 = 0.12e2 * t105768;
32730   t107292 = 0.3e1 * t24284 * t1127 + 0.6e1 * t104541 + t105760 + t105762 + 0.12e2 * t105765 + 0.24e2 * t105770 + t106438 + 0.3e1 * t107283 + 0.3e1 * t107285 + t107290 + t20112 + t20115 + t23683 + t24125 + t24289;
32731   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32732     v4rhosigma3[15] = t102334 + t7 * t107256 * t372 + t24276 * t1130 + t102621 + t21183 * t1224 + t5392 * t4457 + t102625 + 0.2e1 * t20624 * t1320 + 0.2e1 * t5214 * t4687 + t102631 + 0.2e1 * t4679 * t5223 + 0.2e1 * t1316 * t20645 + t102636 + t4441 * t5399 + t1217 * t21198 + t102639 + t1123 * t24291 + t872 * (t107281 + t107292);
32733 
32734   t107317 = -0.2e1 * t449 * t24341 * t928 - 0.6e1 * t104572 - 0.4e1 * t14978 * t23968 - 0.4e1 * t14972 * t23968 - 0.4e1 * t4026 * t105785 - 0.4e1 * t4026 * t105789 - 0.4e1 * t4026 * t105793 - 0.4e1 * t4026 * t105797 - 0.6e1 * t104591 - 0.6e1 * t104593 - 0.5e1 / 0.12e2 * t20651 * t23785 - 0.2e1 * t4459 * t24075;
32735   t107332 = 0.3e1 * t105900 * t1245 - 0.2e1 * t1227 * t106096 - 0.2e1 * t1227 * t106371 + 0.3e1 * t24065 * t4515 - 0.2e1 * t4465 * t24075 + t102664 + 0.10e2 * t104608 - 0.2e1 * t104660 - 0.2e1 * t104662 - 0.2e1 * t104664 - t19748 - t19750 - t19753;
32736   t107356 = -0.2e1 * t104666 - 0.2e1 * t104668 - 0.12e2 * t5499 * t20828 + t102695 - 0.3e1 * t4431 * t24366 + 0.9e1 * t5155 * t20738 - 0.5e1 / 0.3e1 * t19122 * t104767 + 0.3e1 * t20294 * t5255 - 0.3e1 * t24065 * t4561 - 0.3e1 * t1214 * t5254 * t15289 - 0.6e1 * t1214 * t24331 * t32282 + 0.5e1 * t4013 * t105848;
32737   t107383 = -0.5e1 / 0.6e1 * t78700 * t23730 - 0.5e1 / 0.6e1 * t19122 * t104634 - 0.5e1 / 0.6e1 * t19122 * t104637 + 0.5e1 / 0.2e1 * t19114 * t104640 - 0.5e1 / 0.6e1 * t19119 * t104644 - 0.5e1 / 0.6e1 * t19122 * t104652 - 0.5e1 / 0.6e1 * t19122 * t104655 - 0.5e1 / 0.6e1 * t19122 * t104730 + 0.10e2 * t4013 * t105856 - 0.4e1 * t4026 * t105860 + 0.5e1 * t19114 * t104755 - 0.5e1 / 0.3e1 * t19119 * t104759 + 0.3e1 * t5155 * t20687;
32738   t107409 = 0.6e1 * t102809 * t1214 * t57530 + 0.6e1 * t1214 * t5258 * t54409 - 0.6e1 * t4483 * t449 * t5267 + 0.20e2 * t4013 * t106044 - 0.6e1 * t20773 * t1252 - 0.6e1 * t5155 * t20735 - 0.9e1 * t5155 * t20770 - 0.6e1 * t4302 * t24293 - t916 * t24341 - 0.6e1 * t104822 - 0.6e1 * t104824 - 0.6e1 * t104838;
32739   t107421 = t71708 * t1243 * t1033;
32740   t107432 = -0.6e1 * t449 * t20765 * t1231 - t4957 - 0.3e1 * t20294 * t5259 + t24361 * t1037 + t102823 - t1214 * t24308 * t2850 - 0.6e1 * t2442 * t24293 + 0.6e1 * t14484 * t107421 + 0.35e2 / 0.24e2 * t102916 * t104322 - 0.5e1 / 0.8e1 * t102920 * t104325 - 0.5e1 / 0.8e1 * t24316 * t104331 - 0.5e1 / 0.12e2 * t24316 * t104022 + t102836;
32741   t107476 = -t104870 / 0.64e2 + t104905 / 0.32e2 + t104920 / 0.32e2 + t102771 + t104907 / 0.16e2 + 0.18e2 * t23995 * t5015 * t54089 - 0.18e2 * t24299 * t104131 - 0.12e2 * t102778 * t104134 - 0.6e1 * t104138 * t24303 + 0.24e2 * t23695 * t99365 * t24297 * t1030 + 0.18e2 * t23695 * t99370 * t24297 * t1013 * t194 - 0.18e2 * t23695 * t23696 * t5243 * t4497 + t104918 / 0.64e2 - 0.3e1 / 0.64e2 * t104923 - 0.3e1 / 0.64e2 * t104892 + t104912 / 0.64e2 - t102800 - t104925 / 0.16e2;
32742   t107478 = t175 * t107476 * t748;
32743   t107481 = t4932 * t19180 * t908;
32744   t107485 = t4932 * t24045 * t912;
32745   t107489 = t4932 * t24045 * t883;
32746   t107499 = t5044 * t4483;
32747   t107508 = 0.5e1 / 0.3e1 * t72078 * t107481 - 0.5e1 * t72081 * t107485 + 0.5e1 / 0.3e1 * t72093 * t107489 + 0.6e1 * t105141 + t5056 + 0.5e1 / 0.24e2 * t104419 * t24350 + t20017 + t20023 - t102925 + 0.5e1 / 0.6e1 * t75224 * t24354 + 0.5e1 / 0.6e1 * t104428 * t24354 + 0.5e1 / 0.6e1 * t18368 * t5269 * t107499 - 0.10e2 * t101514 * t4531 + 0.4e1 * t101518 * t20807 - t20020 + t24359 - 0.24e2 * t105174;
32748   t107533 = 0.2e1 * t105184 + 0.2e1 * t105186 + 0.2e1 * t105188 + 0.2e1 * t105191 - 0.35e2 / 0.24e2 * t99464 * t102932 * t104396 + 0.6e1 * t105193 - 0.10e2 * t105195 - t102977 + t24360 + 0.5e1 / 0.12e2 * t99471 * t102932 * t104400 + 0.5e1 / 0.8e1 * t18362 * t102932 * t104404 + 0.5e1 / 0.8e1 * t23748 * t102932 * t104384 + 0.2e1 * t106190 * t1255 + 0.2e1 * t106194 * t1255 + 0.2e1 * t24056 * t4539 - t102980 - t102983;
32749   t107540 = -0.5e1 / 0.24e2 * t34313 * t24315 * t23511 - 0.5e1 / 0.24e2 * t24316 * t104271 - 0.3e1 * t1214 * t20686 * t4079 - 0.6e1 * t5236 * t4527 + t4431 * t24309 + t1214 * t107478 - t24325 + (t107508 + t107533) * t227 + t102891 - t24349 - t24369 + 0.6e1 * t5155 * t20820 - 0.3e1 * t5155 * t20733;
32750   t107559 = t19276 * t1243 * t999;
32751   t107579 = 0.3e1 * t102847 * t1768 * t999 - t102852 * t1033 * t2849 + 0.6e1 * t102867 * t1768 * t999 - 0.6e1 * t102874 * t1033 * t2849 - 0.3e1 * t1243 * t2849 * t78861 - 0.3e1 * t19276 * t2849 * t4513 + 0.6e1 * t19286 * t2849 * t4513 + 0.6e1 * t2849 * t107421 + t169 * t107478 - 0.9e1 * t1768 * t107559;
32752   t107580 = my_piecewise3(t296, 0, t107579);
32753   t107583 = my_piecewise3(t359, 0, t107579);
32754   t107595 = 0.3e1 * t1214 * t102818 * t4433 + 0.9e1 * t24065 * t4557 - 0.5e1 / 0.12e2 * t5228 * t105247 - t4459 * t24079 - t4465 * t24079 - t1227 * t106167 - t1227 * t106171 - t98 * (t107580 * t34 / 0.2e1 + t107583 * t46 / 0.2e1 + t24336 * t886 / 0.2e1 + t24338 * t905 / 0.2e1) + t102911 + t102915 + 0.2e1 * t4431 * t24332 - 0.2e1 * t4026 * t105852 - 0.9e1 * t13345 * t107559;
32755   t107598 = t107317 + t107332 + t107356 + t107383 + t107409 + t107432 + t107540 + t107595;
32756   t107637 = t107598 * t370 * params->d + 0.18e2 * t369 * t4483 * t5235 + 0.6e1 * t1125 * t24384 + 0.3e1 * t24377 * t1127 + 0.18e2 * t1267 * t20858 + 0.36e2 * t1267 * t20861 + 0.9e1 * t20846 * t1269 + 0.18e2 * t4568 * t5294 + 0.18e2 * t5290 * t4574 + 0.9e1 * t5290 * t4577 + 0.9e1 * t105290 + 0.18e2 * t105296 + 0.18e2 * t105301 + 0.18e2 * t105304 + 0.18e2 * t105320 + t20112 + t20115 + t24383 + t24387 + t5079;
32757   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32758     v4rhosigma3[16] = t107598 * t372 * t7 + t872 * t107637 + t1123 * t24388 + t24371 * t1130 + 0.3e1 * t1265 * t20864 + 0.3e1 * t20838 * t1272 + 0.3e1 * t4564 * t5297 + 0.3e1 * t5286 * t4580 + t102663 + t103008 + t103014 + t103019;
32759 
32760   t107641 = 0.20e2 / 0.3e1 * t4013 * t106534 - t103063 + t23880 + t103138 - t105775 + t101048 + t105344 - t105777 - t105778 - t105804 - t105806 - t105808;
32761   t107644 = -t105810 - t105812 + t105826 + 0.2e1 / 0.3e1 * t4173 * t105789 - t105828 - t105832 - t105834 - t105836 - t105865 - t103147 - t19748 - t19750;
32762   t107652 = -t19753 + t105377 + t105379 - t105870 - t105872 - t105874 + t101133 + t101137 + t105878 - 0.10e2 / 0.3e1 * t4156 * t106044 - 0.5e1 / 0.6e1 * t18989 * t18543 * t103051 * t912 - t105880;
32763   t107664 = -t105881 - t105882 - t105883 - t105884 + t101139 - t105887 - t105893 + 0.5e1 / 0.18e2 * t20468 * t24391 + 0.5e1 / 0.18e2 * t20554 * t24391 + 0.5e1 / 0.18e2 * t5179 * t19969 * t24390 + 0.5e1 / 0.18e2 * t5179 * t18560 * t79999 * t1231 + t103209;
32764   t107684 = -t103213 - t5211 * t20733 - t105894 - t105896 + 0.5e1 / 0.6e1 * t19114 * t105505 - 0.5e1 / 0.18e2 * t19119 * t105509 - 0.4e1 / 0.3e1 * t14978 * t24161 - 0.4e1 / 0.3e1 * t14972 * t24161 - 0.4e1 / 0.3e1 * t4026 * t106482 - 0.4e1 / 0.3e1 * t4026 * t106486 - 0.4e1 / 0.3e1 * t4026 * t106490 + 0.2e1 / 0.3e1 * t4173 * t105860;
32765   t107693 = t105898 + t105901 - t105905 - t105907 + t105449 + t105451 + t105453 + 0.5e1 / 0.48e2 * t105383 * t24426 + 0.5e1 / 0.48e2 * t105388 * t24426 + 0.5e1 / 0.48e2 * t23919 * t23510 * t14713 * t5226 - t105909 + t105912;
32766   t107711 = -t105916 + t105918 + t105922 - t105925 + 0.5e1 / 0.18e2 * t18957 * t18543 * t103051 * t883 + 0.5e1 / 0.18e2 * t5179 * t18555 * t103051 * t908 - 0.2e1 * t5236 * t4656 - 0.2e1 * t24189 * t4561 - 0.2e1 * t5211 * t20735 - t105927 - 0.3e1 * t5211 * t20770 - t105938;
32767   t107713 = t103078 * t912;
32768   t107717 = t103078 * t883;
32769   t107721 = t103078 * t908;
32770   t107737 = -0.5e1 / 0.18e2 * t78253 * t24412 - 0.5e1 / 0.18e2 * t19027 * t4932 * t19430 * t4483 - t105517 + t103073 - t105536 - t105538 - t105540 - t105543 - 0.5e1 / 0.9e1 * t13930 * t23764 * t107717 - 0.5e1 / 0.9e1 * t19027 * t70271 * t107721 + t106197 + t5056 + t106200 + t106204 + t106208;
32771   t107756 = t106210 + t106212 + t20017 + t20023 - t101577 - t101579 + 0.35e2 / 0.48e2 * t99464 * t23888 * t24407 * t912 - 0.5e1 / 0.24e2 * t99471 * t23888 * t24407 * t928 - 0.5e1 / 0.16e2 * t18362 * t23888 * t24407 * t883 - t106217 + t106219 + t106221 - t106236 - 0.5e1 / 0.16e2 * t23748 * t23888 * t103096 * t908 + 0.5e1 / 0.3e1 * t101514 * t4660;
32772   t107770 = -0.2e1 / 0.3e1 * t101518 * t20944 + 0.5e1 / 0.3e1 * t71312 * t23764 * t107713 + t106245 + t106263 - t20020 + t106265 + t106268 + t105588 + t24054 + t106269 + t24061 - t106271 - 0.5e1 / 0.48e2 * t105143 * t24408 - 0.5e1 / 0.48e2 * t23748 * t105557 * t24407 - t106190 * t1310 / 0.3e1;
32773   t107781 = -t106194 * t1310 / 0.3e1 - t24056 * t4669 / 0.3e1 - t24056 * t4672 / 0.3e1 + t106272 + t106273 + t106274 + t106275 + t103132 - t23898 + t106276 - 0.5e1 / 0.18e2 * t78392 * t24412 - 0.5e1 / 0.18e2 * t105548 * t24412 - t106280 - t101643 - t106285 + t24059;
32774   t107785 = -t105941 - t105942 + t105946 - t105949 + t24417 * t1037 + t101322 - 0.5e1 / 0.3e1 * t71136 * t70080 * t107713 + 0.5e1 / 0.9e1 * t70858 * t70080 * t107717 + 0.5e1 / 0.9e1 * t70855 * t50654 * t107721 + (t107737 + t107756 + t107770 + t107781) * t227 - t105950 - t105951;
32775   t107805 = -0.4e1 / 0.3e1 * t4026 * t106815 - 0.5e1 / 0.18e2 * t19122 * t105602 + 0.5e1 / 0.36e2 * t20468 * t24402 + 0.5e1 / 0.36e2 * t20554 * t24402 + 0.5e1 / 0.36e2 * t5179 * t5044 * t76036 * t57 - 0.5e1 / 0.3e1 * t4156 * t105856 - t105953 - t105956 - t105963 - 0.2e1 * t20773 * t1307 - t105965 - t105967;
32776   t107812 = -t105969 - t105971 - t105973 - t105974 - 0.5e1 / 0.18e2 * t19122 * t105605 + 0.2e1 / 0.3e1 * t4173 * t105793 + 0.2e1 / 0.3e1 * t4173 * t105797 - t105976 - t105980 - t105982 + t105984 - t4957;
32777   t107823 = t106027 + t106038 - t23910 + t106053 + t106055 + 0.3e1 * t5211 * t20738 - 0.5e1 / 0.36e2 * t20651 * t23939 - 0.5e1 / 0.36e2 * t5228 * t105714 - t20560 * t5259 + 0.2e1 * t24189 * t4515 - t24071 - t106092;
32778   t107836 = -t106094 - t106100 - t106103 - t106105 - t106156 + 0.5e1 / 0.18e2 * t5179 * t18560 * t103051 * t928 + t106175 - t106176 + t4582 * t24075 / 0.3e1 + t4588 * t24075 / 0.3e1 + t4597 * t24075 / 0.3e1 + t1277 * t106371 / 0.3e1;
32779   t107847 = t1277 * t106096 / 0.3e1 - t105671 - t105673 - t105676 - t106178 - t106180 + t106298 + 0.5e1 / 0.18e2 * t5179 * t18560 * t19359 * t4483 - t106307 - t106309 - t24087 + 0.6e1 * t24189 * t4557;
32780   t107859 = -t24096 - t24097 + 0.2e1 * t5211 * t20820 - 0.4e1 * t5499 * t20991 + t5211 * t20687 + t106321 + t106323 + t106331 - t106333 + 0.2e1 / 0.3e1 * t15686 * t23968 + 0.2e1 / 0.3e1 * t15610 * t23968 + 0.2e1 / 0.3e1 * t4173 * t105785;
32781   t107866 = -t106345 - t106346 + t20560 * t5255 - t106348 + t106351 - t105710 - t106355 - t106359 - t106361 + t106368 + 0.2e1 * t106850 * t1245 + t4582 * t24079 / 0.6e1;
32782   t107897 = t4588 * t24079 / 0.6e1 + t4597 * t24079 / 0.6e1 + t1277 * t106167 / 0.6e1 + t1277 * t106171 / 0.6e1 - 0.5e1 / 0.6e1 * t4156 * t105848 - 0.35e2 / 0.48e2 * t100782 * t24148 * t103214 * t912 + 0.5e1 / 0.16e2 * t100786 * t24148 * t103214 * t883 + 0.5e1 / 0.16e2 * t24147 * t4934 * t103214 * t908 + 0.5e1 / 0.24e2 * t24147 * t100379 * t103214 * t928 + t4173 * t105852 / 0.3e1 + 0.2e1 / 0.3e1 * t15503 * t23968 + t106375 - t106377;
32783   t107901 = t107641 + t107644 + t107652 + t107664 + t107684 + t107693 + t107711 + t107785 + t107805 + t107812 + t107823 + t107836 + t107847 + t107859 + t107866 + t107897;
32784   t107924 = 0.6e1 * t21005 * t1269 + 0.6e1 * t1318 * t20858 + 0.6e1 * t5327 * t4577 + t105752 + t106402 + t106404 + t106405 + t106406 + t106407 + t106411 + t106416 + t106417 + t106419 + t106421 + t106424 + t106426 + t5079;
32785   t107935 = t107901 * t370 * params->d + 0.3e1 * t24441 * t1127 + 0.12e2 * t1318 * t20861 + 0.12e2 * t5327 * t4574 + 0.6e1 * t4683 * t5294 + t105769 + t106430 + t106431 + t106433 + t106442 + t106443 + t106445 + t20112 + t20115 + t23962 + t24118 + t24124 + t24126;
32786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32787     v4rhosigma3[17] = t103049 + t7 * t107901 * t372 + t24433 * t1130 + t103345 + 0.2e1 * t20997 * t1272 + 0.2e1 * t5323 * t4580 + t103350 + t4679 * t5297 + t1316 * t20864 + t103353 + t20838 * t1320 + t5286 * t4687 + t103357 + 0.2e1 * t4564 * t5331 + 0.2e1 * t1265 * t21015 + t103362 + t1123 * t24447 + t872 * (t107924 + t107935);
32788 
32789   t107942 = -t104566 + t24229 - t104573 + t104587 + t107005 - t104590 - t104592 - t104594 - 0.2e1 * t449 * t5381 * t4483 - t103401 - t104598 + 0.2e1 / 0.3e1 * t106468;
32790   t107949 = -t19748 - t19750 - t19753 - 0.2e1 / 0.3e1 * t4026 * t107014 + 0.5e1 / 0.3e1 * t4013 * t107010 + t107027 + t107028 + t107215 * t1245 - 0.4e1 * t106501 + t99755 + t104609 - t104611;
32791   t107966 = 0.2e1 / 0.3e1 * t106515 + 0.2e1 / 0.3e1 * t106517 + 0.2e1 / 0.3e1 * t106525 + 0.2e1 / 0.3e1 * t106527 - 0.5e1 / 0.48e2 * t102352 * t100379 * t20884 - t104661 - t104663 - t104665 - t104667 - t104669 - 0.5e1 / 0.6e1 * t18989 * t18543 * t103414 * t912 + 0.5e1 / 0.18e2 * t18957 * t18543 * t103414 * t883;
32792   t107990 = 0.2e1 / 0.3e1 * t106537 + 0.5e1 / 0.18e2 * t106549 + 0.5e1 / 0.18e2 * t106553 + 0.5e1 / 0.18e2 * t106557 - 0.5e1 / 0.72e2 * t5179 * t5044 * t18727 * t4595 - 0.5e1 / 0.72e2 * t19532 * t104652 - 0.5e1 / 0.72e2 * t19532 * t104655 + 0.5e1 / 0.18e2 * t5179 * t18555 * t103414 * t908 + 0.5e1 / 0.18e2 * t5179 * t18560 * t103414 * t928 - t104692 + t24269 * t4515 - 0.2e1 * t4302 * t24482;
32793   t108009 = -0.2e1 * t449 * t21137 * t1231 - 0.10e2 / 0.3e1 * t106575 + t104717 - t104721 + 0.5e1 / 0.18e2 * t106577 + 0.5e1 / 0.18e2 * t106579 + t103468 - 0.5e1 / 0.72e2 * t81046 * t23730 - 0.5e1 / 0.72e2 * t19532 * t104634 - 0.5e1 / 0.72e2 * t19532 * t104637 + 0.2e1 / 0.3e1 * t4173 * t106815 + 0.5e1 / 0.36e2 * t20468 * t24453;
32794   t108026 = 0.5e1 / 0.36e2 * t20554 * t24453 + 0.5e1 / 0.36e2 * t5179 * t5044 * t77915 * t57 + 0.4e1 * t106584 + t104728 + t103472 - t104729 + 0.2e1 / 0.3e1 * t4173 * t106490 + 0.35e2 / 0.96e2 * t102505 * t24148 * t20872 + 0.2e1 / 0.3e1 * t106586 + 0.2e1 / 0.3e1 * t106588 + 0.2e1 / 0.3e1 * t106590 + 0.2e1 / 0.3e1 * t106592;
32795   t108030 = t107122 + t107123 + 0.2e1 / 0.3e1 * t106604 + 0.2e1 / 0.3e1 * t106606 + t107124 - t104753 - t104773 + t104776 - t104780 + t104783 - t104784 - t104787;
32796   t108045 = t103484 + 0.5e1 / 0.12e2 * t19560 * t104755 - 0.5e1 / 0.36e2 * t19565 * t104759 - 0.5e1 / 0.36e2 * t5179 * t18560 * t1232 * t4595 - 0.5e1 / 0.36e2 * t19532 * t104767 - t104791 + 0.20e2 / 0.3e1 * t106616 + t104793 + 0.5e1 / 0.9e1 * t106624 - t103491 + t106633 / 0.3e1 + t106635 / 0.3e1;
32797   t108061 = t106641 / 0.3e1 + t106643 / 0.3e1 + t106645 / 0.3e1 - t104823 - t104825 - t104827 + 0.2e1 / 0.3e1 * t15503 * t24161 - 0.5e1 / 0.72e2 * t19532 * t104730 + 0.5e1 / 0.24e2 * t19560 * t104640 - 0.5e1 / 0.72e2 * t19565 * t104644 + t104833 - 0.10e2 / 0.3e1 * t106654;
32798   t108080 = -0.6e1 * t106657 - 0.5e1 / 0.144e3 * t21140 * t23785 - 0.5e1 / 0.144e3 * t5335 * t105247 + 0.2e1 / 0.3e1 * t15686 * t24161 + 0.2e1 / 0.3e1 * t15610 * t24161 + 0.2e1 / 0.3e1 * t4173 * t106482 + 0.2e1 / 0.3e1 * t4173 * t106486 - 0.4e1 / 0.3e1 * t106664 - 0.4e1 / 0.3e1 * t106666 - 0.4e1 / 0.3e1 * t106668 - 0.4e1 / 0.3e1 * t106670 - 0.4e1 / 0.3e1 * t106672;
32799   t108089 = -t104839 + t104852 - t104854 - 0.5e1 / 0.3e1 * t106675 - t4957 + 0.2e1 / 0.3e1 * t106703 + 0.2e1 / 0.3e1 * t106705 + 0.2e1 / 0.3e1 * t106707 - t104973 - 0.4e1 / 0.3e1 * t106818 - t104978 - t4465 * t24255 / 0.3e1;
32800   t108108 = -t1227 * t107193 / 0.3e1 - t104980 - 0.2e1 * t106822 - t24249 + t104982 - t4459 * t24255 / 0.3e1 + 0.3e1 * t24269 * t4557 + t104983 - 0.5e1 / 0.32e2 * t102509 * t24148 * t20876 - 0.5e1 / 0.48e2 * t24147 * t24148 * t19359 * t4595 - 0.5e1 / 0.32e2 * t102352 * t4934 * t20880 - 0.4e1 * t106826;
32801   t108121 = -0.4e1 * t106828 - 0.4e1 * t106830 + t100139 - t104987 - 0.5e1 / 0.96e2 * t107117 * t24472 - 0.5e1 / 0.96e2 * t24259 * t23510 * t20958 + 0.2e1 * t106832 - t23796 - t104989 - t104993 - 0.5e1 / 0.3e1 * t106834 + 0.5e1 / 0.9e1 * t106837;
32802   t108126 = -t104995 - t1227 * t107197 / 0.3e1 - t107200 - t107201 - t107202 + 0.6e1 * t106843 - t105001 + 0.2e1 * t106851 - t23806 - t105022 - t105024 - t105026;
32803   t108138 = -t107052 - 0.5e1 / 0.18e2 * t106717 - t107055 - t107056 - t107057 - t107058 + t105142 + t5056 + t103620 + 0.5e1 / 0.3e1 * t106733 - 0.5e1 / 0.9e1 * t106737 - 0.5e1 / 0.9e1 * t106740 + t20017 + t20023 - 0.2e1 / 0.3e1 * t106746;
32804   t108147 = -0.5e1 / 0.18e2 * t106753 + t105147 + t105150 + t105152 - t103650 - 0.5e1 / 0.18e2 * t106755 - 0.5e1 / 0.18e2 * t106757 + 0.10e2 / 0.3e1 * t106770 + t105159 - t20020 + t107104 + t23762 + t105168 + t23775 + 0.5e1 / 0.32e2 * t23748 * t24231 * t19430 * t908;
32805   t108156 = 0.5e1 / 0.72e2 * t75224 * t24461 - t105175 - t105181 + t105183 + t105185 + t105187 + t105189 + t105192 - 0.2e1 / 0.3e1 * t106774 - 0.2e1 / 0.3e1 * t106778 - 0.2e1 / 0.3e1 * t106780 - 0.2e1 / 0.3e1 * t106782 - t24239 + t105194 - 0.2e1 / 0.3e1 * t106793;
32806   t108190 = -0.5e1 / 0.12e2 * t73580 * t107485 + 0.5e1 / 0.36e2 * t73535 * t107489 + 0.5e1 / 0.36e2 * t19027 * t4932 * t24045 * t4595 + 0.5e1 / 0.36e2 * t73544 * t107481 - t105196 - t100266 - t105206 + 0.5e1 / 0.72e2 * t104428 * t24461 + 0.5e1 / 0.72e2 * t18368 * t5383 * t107499 + t23774 + 0.5e1 / 0.48e2 * t23748 * t23888 * t24168 * t4595 - 0.35e2 / 0.96e2 * t99464 * t24231 * t24168 * t912 + 0.5e1 / 0.48e2 * t99471 * t24231 * t24168 * t928 + 0.5e1 / 0.32e2 * t18362 * t24231 * t24168 * t883 - t100280 + 0.5e1 / 0.96e2 * t105143 * t24458;
32807   t108194 = 0.2e1 * t106853 - t105027 - 0.2e1 * t106856 - 0.2e1 * t106857 - 0.2e1 * t2442 * t24482 - t105030 - t105033 - t23822 - t23825 + (t108138 + t108147 + t108156 + t108190) * t227 + t105045 + t105046;
32808   t108203 = t105048 + t105049 - 0.2e1 * t106885 - t105055 - 0.2e1 * t106898 - t105084 - 0.10e2 / 0.3e1 * t4156 * t106534 - t107241 - t24269 * t4561 + 0.6e1 * t106910 + 0.2e1 * t106914 + t24466 * t1037 - t105253;
32809   t108207 = t107942 + t107949 + t107966 + t107990 + t108009 + t108026 + t108030 + t108045 + t108061 + t108080 + t108089 + t108108 + t108121 + t108126 + t108194 + t108203;
32810   t108229 = 0.3e1 * t24498 * t1127 + 0.6e1 * t5396 * t4574 + t105278 + t105281 + t105286 + t105287 + t105288 + t105291 + t105295 + t105297 + t105302 + t105305 + 0.6e1 * t106941 + t107276 + t20112 + t23860 + t5079;
32811   t108242 = t108207 * t370 * params->d + 0.3e1 * t21191 * t1269 + 0.3e1 * t5396 * t4577 + t105308 + t105313 + t105321 + t105328 + 0.12e2 * t106952 + 0.12e2 * t106958 + 0.12e2 * t106963 + 0.6e1 * t106966 + 0.12e2 * t106969 + 0.12e2 * t106971 + t107290 + t20115 + t23869 + t23872 + t24289;
32812   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32813     v4rhosigma3[18] = t103384 + t7 * t108207 * t372 + t24490 * t1130 + t103674 + t21183 * t1272 + t5392 * t4580 + t103678 + 0.2e1 * t20997 * t1320 + 0.2e1 * t5323 * t4687 + t103684 + 0.2e1 * t4679 * t5331 + 0.2e1 * t1316 * t21015 + t103689 + t4564 * t5399 + t1265 * t21198 + t103692 + t1123 * t24504 + t872 * (t108229 + t108242);
32814 
32815   t108255 = -0.3e1 * t105336 + t23879 + 0.2e1 * t106982 + 0.2e1 * t106984 + 0.2e1 * t106986 + 0.2e1 * t106988 + 0.2e1 * t106990 + 0.2e1 * t106992 - 0.5e1 / 0.24e2 * t106996 - 0.5e1 / 0.24e2 * t106998 + t105343 - 0.5e1 * t105348;
32816   t108260 = -0.5e1 / 0.24e2 * t107007 + 0.3e1 * t105356 + 0.3e1 * t105357 - t19748 - t19750 - t19753 + t4173 * t107014 + t105360 + t105364 + t105366 + t105368 + t105370 + t105376;
32817   t108310 = t23532 * t1091 * t23535;
32818   t108342 = t103841 * t5366 * t24514 * t1075 / 0.64e2 + t23521 * t81299 * t61 * t24516 / 0.24e2 - t103848 - t103849 * t2233 * t24514 * t1041 / 0.192e3 + t103849 * t18226 * t81328 * t4634 / 0.64e2 - t24513 * t533 * t758 * t837 * t4627 / 0.128e3 + 0.18e2 * t103864 * t5357 * t55052 - 0.18e2 * t24521 * t73339 * t803 * t1098 - 0.12e2 * t103872 * t19635 * t1075 - 0.6e1 * t108310 * t24529 + 0.24e2 * t103880 * t103881 * t24519 * t1098 + 0.18e2 * t103880 * t103886 * t24519 * t1074 * t329 - 0.18e2 * t103880 * t103892 * t5349 * t4627 + t108310 * t24533 * t5367 / 0.128e3 - 0.3e1 / 0.128e3 * t103901 * t73395 * t21107 - 0.3e1 / 0.128e3 * t103907 * t21111 + t24526 * t24532 * t61203 * t5367 / 0.128e3 - t24534 * t21115 / 0.24e2 + t103915 + t103917 * t21118 / 0.192e3;
32819   t108365 = my_piecewise3(t359, t169 * t108342 * t848 / 0.2e1 - t169 * t103924 * t1101 / 0.2e1 - 0.3e1 / 0.2e1 * t169 * t81536 * t1300 + 0.3e1 * t81543 * t14079 * t1101 - 0.3e1 / 0.2e1 * t169 * t19675 * t4645 + 0.3e1 * t169 * t19681 * t4645 - 0.3e1 * t169 * t103940 * t1101, t104196);
32820   t108374 = t105378 + 0.2e1 * t105399 - 0.5e1 / 0.2e1 * t4156 * t107010 - 0.5e1 / 0.24e2 * t5179 * t5044 * t18918 * t4595 - 0.5e1 / 0.24e2 * t19532 * t105602 - 0.5e1 / 0.24e2 * t19532 * t105605 + 0.5e1 / 0.8e1 * t19560 * t105505 - 0.5e1 / 0.24e2 * t19565 * t105509 - 0.5e1 / 0.24e2 * t107049 - t104217 - t98 * (t108365 * t46 / 0.2e1 + t24548 * t905 / 0.2e1 + t105655 / 0.2e1 + t105656 / 0.2e1) + 0.5e1 / 0.192e3 * t34313 * t24557 * t23511;
32821   t108405 = -t105516 + 0.5e1 * t105531 - 0.2e1 * t105533 - t105535 - t105537 - t105539 - t105542 + t5056 + t20017 + t20023 + 0.35e2 / 0.192e3 * t99464 * t103796 * t104396 - 0.5e1 / 0.96e2 * t99471 * t103796 * t104400 - 0.5e1 / 0.64e2 * t18362 * t103796 * t104404 - 0.5e1 / 0.64e2 * t23748 * t24231 * t23509 * t4595 - 0.5e1 / 0.64e2 * t23748 * t103796 * t104384 - 0.5e1 / 0.192e3 * t104419 * t24562 - t105561;
32822   t108414 = -t105563 - t105565 - t105567 - 0.5e1 / 0.4e1 * t107073 + 0.5e1 / 0.12e2 * t107075 + 0.5e1 / 0.12e2 * t107079 + 0.5e1 / 0.12e2 * t107081 + t104379 - t20020 + 0.5e1 * t105587 + t104418 + t23642 - t23897 - t104424 + 0.5e1 / 0.24e2 * t107105 + 0.5e1 / 0.24e2 * t107107 + 0.5e1 / 0.24e2 * t107110;
32823   t108417 = 0.5e1 / 0.192e3 * t24558 * t104271 + t105448 + t105450 + t105452 - 0.2e1 * t449 * t24551 * t928 - t104261 + 0.5e1 / 0.4e1 * t107135 - 0.5e1 / 0.12e2 * t107137 - 0.5e1 / 0.12e2 * t107141 - t104266 + 0.2e1 * t107144 - 0.6e1 * t105484 + (t108405 + t108414) * t227;
32824   t108433 = t1277 * t107193 / 0.2e1 + t1277 * t107197 / 0.2e1 - 0.10e2 * t107148 - 0.6e1 * t107150 - 0.6e1 * t107153 - t4957 + t24566 * t1037 - t24555 + t4582 * t24255 / 0.2e1 + t4588 * t24255 / 0.2e1 - 0.6e1 * t105637 - t104336;
32825   t108452 = -0.5e1 / 0.12e2 * t107164 - t916 * t24551 - 0.35e2 / 0.192e3 * t103746 * t104322 + 0.5e1 / 0.64e2 * t103750 * t104325 + 0.5e1 / 0.64e2 * t24259 * t23510 * t21027 - t104351 - 0.5e1 / 0.48e2 * t21140 * t23939 - 0.5e1 / 0.48e2 * t5335 * t105714 + t4597 * t24255 / 0.2e1 - 0.9e1 * t105645 - 0.6e1 * t107168 + 0.9e1 * t105649 - t23619;
32826   t108466 = -0.12e2 * t105652 - 0.6e1 * t105670 - 0.6e1 * t105672 - 0.6e1 * t105675 + 0.6e1 * t105677 + t104446 - 0.6e1 * t105693 + 0.3e1 * t107216 - 0.6e1 * t107224 + t104461 + t104462 + 0.5e1 / 0.64e2 * t24558 * t104331 + 0.5e1 / 0.96e2 * t24558 * t104022;
32827   t108472 = 0.3e1 * t107233 - t104468 + t104471 + t104478 + t104481 + t104483 - t104485 + 0.9e1 * t107237 - 0.3e1 * t107240 - 0.5e1 * t105709 - t104493 - t104497 - 0.3e1 * t105719;
32828   t108475 = t108255 + t108260 + t108374 + t108417 + t108433 + t108452 + t108466 + t108472;
32829   t108500 = t108475 * t370 * params->d + 0.3e1 * t24577 * t1127 + t104550 + t104553 + t104555 + t104558 + t104561 + 0.9e1 * t105751 + 0.18e2 * t105753 + 0.18e2 * t105765 + 0.18e2 * t105768 + 0.36e2 * t105770 + 0.18e2 * t107278 + 0.9e1 * t107283 + 0.9e1 * t107285 + t20112 + t20115 + t23683 + t24581 + t5079;
32830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32831     v4rhosigma3[19] = t108475 * t372 * t7 + t872 * t108500 + t1123 * t24582 + t24571 * t1130 + 0.3e1 * t1316 * t21198 + 0.3e1 * t21183 * t1320 + 0.3e1 * t4679 * t5399 + 0.3e1 * t5392 * t4687 + t103715 + t103972 + t103978 + t103983;
32832 
32833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32834     v4rhosigma2lapl[0] = 0.0e0;
32835 
32836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32837     v4rhosigma2lapl[1] = 0.0e0;
32838 
32839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32840     v4rhosigma2lapl[2] = 0.0e0;
32841 
32842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32843     v4rhosigma2lapl[3] = 0.0e0;
32844 
32845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32846     v4rhosigma2lapl[4] = 0.0e0;
32847 
32848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32849     v4rhosigma2lapl[5] = 0.0e0;
32850 
32851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32852     v4rhosigma2lapl[6] = 0.0e0;
32853 
32854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32855     v4rhosigma2lapl[7] = 0.0e0;
32856 
32857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32858     v4rhosigma2lapl[8] = 0.0e0;
32859 
32860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32861     v4rhosigma2lapl[9] = 0.0e0;
32862 
32863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32864     v4rhosigma2lapl[10] = 0.0e0;
32865 
32866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32867     v4rhosigma2lapl[11] = 0.0e0;
32868 
32869   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32870     v4rhosigma2lapl[12] = 0.0e0;
32871 
32872   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32873     v4rhosigma2lapl[13] = 0.0e0;
32874 
32875   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32876     v4rhosigma2lapl[14] = 0.0e0;
32877 
32878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32879     v4rhosigma2lapl[15] = 0.0e0;
32880 
32881   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32882     v4rhosigma2lapl[16] = 0.0e0;
32883 
32884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32885     v4rhosigma2lapl[17] = 0.0e0;
32886 
32887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32888     v4rhosigma2lapl[18] = 0.0e0;
32889 
32890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32891     v4rhosigma2lapl[19] = 0.0e0;
32892 
32893   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32894     v4rhosigma2lapl[20] = 0.0e0;
32895 
32896   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32897     v4rhosigma2lapl[21] = 0.0e0;
32898 
32899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32900     v4rhosigma2lapl[22] = 0.0e0;
32901 
32902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32903     v4rhosigma2lapl[23] = 0.0e0;
32904 
32905   t108502 = t24649 * t372;
32906   t108503 = t17094 * t24585;
32907   t108504 = t108503 * t24588;
32908   t108508 = t4720 * t4714 * t167 * t14483;
32909   t108509 = t108508 * t24588;
32910   t108511 = t12937 * t25;
32911   t108512 = t108511 * t1205;
32912   t108513 = t24586 * t108512;
32913   t108515 = t3874 * t404;
32914   t108516 = t108515 * t1205;
32915   t108517 = t24586 * t108516;
32916   t108519 = t24587 * t3955;
32917   t108520 = t24586 * t108519;
32918   t108522 = t24587 * t3959;
32919   t108523 = t24586 * t108522;
32920   t108525 = t17116 * t24585;
32921   t108526 = t108525 * t24588;
32922   t108528 = t400 * t4954;
32923   t108530 = 0.8e1 * t108528 * t4722;
32924   t108533 = 0.2e1 * t81 * t5054 * t751;
32925   t108535 = t1204 * t1144 * t4714;
32926   t108536 = t3788 * t108535;
32927   t108544 = t3958 * t24614;
32928   t108548 = t1204 * t3816 * t1326;
32929   t108552 = t1204 * t68170 * t1326;
32930   t108555 = -0.2e1 / 0.3e1 * t108504 - 0.2e1 / 0.3e1 * t108509 - 0.2e1 / 0.3e1 * t108513 - 0.2e1 / 0.3e1 * t108517 - 0.2e1 / 0.3e1 * t108520 - 0.2e1 / 0.3e1 * t108523 - 0.2e1 / 0.3e1 * t108526 - t108530 + t108533 + 0.2e1 / 0.3e1 * t108536 + 0.2e1 / 0.3e1 * t13167 * t24615 + 0.2e1 / 0.3e1 * t12758 * t24615 + 0.2e1 / 0.3e1 * t12788 * t24615 + 0.2e1 / 0.3e1 * t3788 * t108544 + 0.2e1 / 0.3e1 * t3788 * t108548 + 0.2e1 / 0.3e1 * t3788 * t108552;
32931   t108556 = t3958 * t24619;
32932   t108557 = t3788 * t108556;
32933   t108560 = t1204 * t465 * t5412;
32934   t108561 = t3788 * t108560;
32935   t108564 = t1204 * t12780 * t5412;
32936   t108565 = t3788 * t108564;
32937   t108567 = t1392 * t5420;
32938   t108568 = t108567 * t5146;
32939   t108570 = t400 * t21320;
32940   t108571 = t108570 * t5146;
32941   t108573 = t400 * t21324;
32942   t108574 = t108573 * t5146;
32943   t108576 = t400 * t21332;
32944   t108577 = t108576 * t5146;
32945   t108579 = t24602 * t18813;
32946   t108583 = t13167 * t24611;
32947   t108585 = t12758 * t24611;
32948   t108587 = t12788 * t24611;
32949   t108589 = t3958 * t24610;
32950   t108590 = t3788 * t108589;
32951   t108592 = t18560 * t21287;
32952   t108596 = t18560 * t1327 * t404;
32953   t108600 = t18560 * t1327 * t3778;
32954   t108604 = t68216 * t1327 * t439;
32955   t108607 = 0.2e1 / 0.3e1 * t108557 + 0.2e1 / 0.3e1 * t108561 + 0.2e1 / 0.3e1 * t108565 - 0.2e1 / 0.3e1 * t108568 - 0.2e1 / 0.3e1 * t108571 - 0.2e1 / 0.3e1 * t108574 - 0.2e1 / 0.3e1 * t108577 - 0.2e1 / 0.3e1 * t108579 + 0.5e1 / 0.72e2 * t86824 * t23765 + 0.2e1 / 0.3e1 * t108583 + 0.2e1 / 0.3e1 * t108585 + 0.2e1 / 0.3e1 * t108587 + 0.2e1 / 0.3e1 * t108590 + 0.5e1 / 0.12e2 * t18082 * t108592 - 0.5e1 / 0.36e2 * t18089 * t108596 - 0.5e1 / 0.36e2 * t18049 * t108600 - 0.5e1 / 0.36e2 * t18055 * t108604;
32956   t108609 = t7757 * t24585;
32957   t108610 = t3874 * t1134;
32958   t108611 = t66 * t13246;
32959   t108612 = t108610 * t108611;
32960   t108613 = t108609 * t108612;
32961   t108616 = t4720 * t24584 * t13344;
32962   t108618 = t66 * t73 * t677;
32963   t108619 = t108610 * t108618;
32964   t108620 = t108616 * t108619;
32965   t108622 = t3923 * t1134;
32966   t108624 = t66 * t73 * t746;
32967   t108625 = t108622 * t108624;
32968   t108626 = t24586 * t108625;
32969   t108628 = t1397 * t5424;
32970   t108629 = t108628 * t21211;
32971   t108631 = t18054 * t18363;
32972   t108634 = t1397 * t5420;
32973   t108635 = t108634 * t21211;
32974   t108638 = t14483 * t18330 * t443;
32975   t108640 = 0.8e1 * t21239 * t108638;
32976   t108642 = t14483 * t18338 * t443;
32977   t108644 = 0.8e1 * t21239 * t108642;
32978   t108645 = t13344 * t18339;
32979   t108647 = 0.6e1 * t21244 * t108645;
32980   t108648 = t14483 * t18342;
32981   t108650 = 0.4e1 * t21244 * t108648;
32982   t108651 = t14483 * t18346;
32983   t108653 = 0.4e1 * t21244 * t108651;
32984   t108654 = t5419 * t167;
32985   t108655 = t400 * t108654;
32986   t108657 = 0.16e2 * t108655 * t21241;
32987   t108658 = t81 * t108654;
32988   t108660 = 0.4e1 * t108658 * t21248;
32989   t108661 = t5423 * t167;
32990   t108662 = t400 * t108661;
32991   t108664 = 0.16e2 * t108662 * t21241;
32992   t108666 = t1204 * t3812 * t1326;
32993   t108667 = t3788 * t108666;
32994   t108670 = t1204 * t3802 * t1326;
32995   t108671 = t3788 * t108670;
32996   t108673 = 0.10e2 / 0.3e1 * t108613 - 0.2e1 * t108620 + 0.2e1 / 0.3e1 * t108626 + 0.10e2 / 0.3e1 * t108629 - 0.5e1 / 0.12e2 * t87029 * t108631 + 0.10e2 / 0.3e1 * t108635 - t108640 + t108644 - t108647 - t108650 + t108653 - t108657 - t108660 - t108664 + 0.2e1 / 0.3e1 * t108667 + 0.2e1 / 0.3e1 * t108671;
32997   t108674 = t14483 * t18336;
32998   t108676 = 0.2e1 * t21244 * t108674;
32999   t108680 = 0.2e1 * t81 * t4954 * t4714 * t227;
33000   t108683 = 0.4e1 * t81 * t24595 * t751;
33001   t108684 = t18654 * t5407;
33002   t108686 = t18640 * t5407;
33003   t108688 = t5097 * t21279;
33004   t108692 = 0.2e1 * t81 * t24591 * t751;
33005   t108693 = t4954 * t227;
33006   t108696 = 0.8e1 * t4720 * t108693 * t443;
33007   t108698 = 0.4e1 * t397 * t24596;
33008   t108700 = 0.2e1 * t397 * t24592;
33009   t108704 = t1476 * t24637;
33010   t108707 = 0.2e1 * t397 * t24599;
33011   t108710 = 0.2e1 * t81 * t18421 * t227;
33012   t108711 = t397 * t5419;
33013   t108713 = 0.4e1 * t108711 * t1193;
33014   t108714 = t81 * t21319;
33015   t108716 = 0.4e1 * t108714 * t1193;
33016   t108717 = t81 * t21323;
33017   t108719 = 0.4e1 * t108717 * t1193;
33018   t108720 = -0.2e1 * t449 * t4714 * t5039 - t108676 + t108680 + t108683 - 0.4e1 * t108684 - 0.4e1 * t108686 - 0.4e1 * t108688 + t108692 - t108696 + t108698 + t108700 - 0.4e1 * t108704 + t108707 + t108710 + t108713 + t108716 + t108719;
33019   t108730 = t18088 * t18373;
33020   t108733 = t18048 * t18378;
33021   t108736 = t18054 * t18382;
33022   t108739 = t5048 * t21287;
33023   t108740 = t3762 * t108739;
33024   t108743 = t12791 * t5413 * t443;
33025   t108744 = t3762 * t108743;
33026   t108747 = t449 * t1199 * t21315;
33027   t108750 = 0.12e2 * t108658 * t21245;
33028   t108751 = t400 * t21344;
33029   t108752 = t108751 * t5146;
33030   t108754 = t400 * t21329;
33031   t108755 = t108754 * t5146;
33032   t108757 = t24605 * t18813;
33033   t108759 = t24605 * t18816;
33034   t108761 = t24605 * t18819;
33035   t108765 = -0.2e1 * t1476 * t24634 - 0.2e1 * t2448 * t24634 - 0.2e1 * t449 * t18357 * t1326 + 0.5e1 / 0.36e2 * t21210 * t108730 + 0.5e1 / 0.36e2 * t21210 * t108733 + 0.5e1 / 0.36e2 * t21210 * t108736 - 0.10e2 / 0.3e1 * t108740 - 0.10e2 / 0.3e1 * t108744 - 0.4e1 * t108747 + t108750 - 0.2e1 / 0.3e1 * t108752 - 0.2e1 / 0.3e1 * t108755 - 0.2e1 / 0.3e1 * t108757 - 0.2e1 / 0.3e1 * t108759 - 0.2e1 / 0.3e1 * t108761 + 0.5e1 / 0.72e2 * t86929 * t23765;
33036   t108773 = 0.4e1 * t81 * t3811 * t5412 * t227;
33037   t108777 = 0.4e1 * t81 * t1143 * t21315 * t227;
33038   t108778 = t2448 * t24637;
33039   t108781 = t449 * t3934 * t5412;
33040   t108783 = t5097 * t21282;
33041   t108786 = 0.4e1 * t18654 * t5413;
33042   t108788 = 0.4e1 * t18640 * t5413;
33043   t108790 = 0.2e1 * t23823 * t4694;
33044   t108791 = t24602 * t18816;
33045   t108793 = t24602 * t18819;
33046   t108795 = t1392 * t5424;
33047   t108796 = t108795 * t5146;
33048   t108798 = t400 * t21338;
33049   t108799 = t108798 * t5146;
33050   t108801 = t5044 * t21295;
33051   t108805 = t1204 * t3789 * t21315;
33052   t108806 = t3788 * t108805;
33053   t108810 = 0.5e1 / 0.72e2 * t86818 * t23765 + 0.5e1 / 0.72e2 * t86821 * t23765 + t108773 + t108777 - 0.4e1 * t108778 - 0.4e1 * t108781 - 0.4e1 * t108783 - t108786 - t108788 - t108790 - 0.2e1 / 0.3e1 * t108791 - 0.2e1 / 0.3e1 * t108793 - 0.2e1 / 0.3e1 * t108796 - 0.2e1 / 0.3e1 * t108799 - 0.5e1 / 0.72e2 * t18055 * t108801 + 0.2e1 / 0.3e1 * t108806 - 0.5e1 / 0.72e2 * t68969 * t24623;
33054   t108812 = t5044 * t21221;
33055   t108815 = t5044 * t21291;
33056   t108819 = t1204 * t18210 * t4714;
33057   t108822 = t13167 * t24620;
33058   t108824 = t12758 * t24620;
33059   t108826 = t12788 * t24620;
33060   t108828 = t81 * t108661;
33061   t108830 = 0.12e2 * t108828 * t21245;
33062   t108831 = t13344 * t18331;
33063   t108833 = 0.6e1 * t21244 * t108831;
33064   t108835 = 0.4e1 * t108828 * t21248;
33065   t108837 = 0.2e1 * t21201 * t5032;
33066   t108839 = 0.2e1 * t21204 * t5032;
33067   t108841 = 0.2e1 * t21207 * t5032;
33068   t108843 = 0.4e1 * t24643 * t3922;
33069   t108845 = 0.2e1 * t23823 * t4715;
33070   t108847 = 0.2e1 * t5427 * t18334;
33071   t108848 = -0.5e1 / 0.72e2 * t18055 * t108812 - 0.5e1 / 0.72e2 * t18055 * t108815 + 0.2e1 / 0.3e1 * t3788 * t108819 + 0.2e1 / 0.3e1 * t108822 + 0.2e1 / 0.3e1 * t108824 + 0.2e1 / 0.3e1 * t108826 + t108830 + t108833 - t108835 - t108837 - t108839 - t108841 + t108843 - t4957 - t108845 + t108847 - t18095;
33072   t108850 = 0.4e1 * t5097 * t21316;
33073   t108852 = 0.16e2 * t21257 * t21215;
33074   t108854 = 0.2e1 * t100056 * t1327;
33075   t108856 = 0.4e1 * t5097 * t21272;
33076   t108858 = 0.4e1 * t24640 * t3922;
33077   t108860 = 0.2e1 * t21201 * t5028;
33078   t108862 = 0.2e1 * t21204 * t5028;
33079   t108864 = 0.2e1 * t21207 * t5028;
33080   t108866 = t12791 * t5407 * t443;
33081   t108869 = t397 * t5423;
33082   t108871 = 0.4e1 * t108869 * t1193;
33083   t108872 = t81 * t21337;
33084   t108874 = 0.4e1 * t108872 * t1193;
33085   t108875 = t81 * t21343;
33086   t108877 = 0.4e1 * t108875 * t1193;
33087   t108878 = -t18097 - t18100 + t24594 - t108850 + t24601 - t108852 - t108854 - t108856 + t108858 + t108860 + t108862 + t108864 - t24629 - 0.10e2 / 0.3e1 * t3762 * t108866 + t108871 + t108874 + t108877;
33088   t108881 = t108555 + t108607 + t108673 + t108720 + t108765 + t108810 + t108848 + t108878;
33089   t108886 = 0.2e1 * t5430 * t1224;
33090   t108891 = t1333 * t5080;
33091   t108894 = t5065 * t1341;
33092   t108898 = 0.2e1 * t1216 * t5447;
33093   t108903 = t368 * t24681;
33094   t108905 = t5435 * t4003;
33095   t108908 = 0.12e2 * t1336 * t18501;
33096   t108911 = 0.12e2 * t369 * t21337 * t1143;
33097   t108914 = 0.12e2 * t369 * t21343 * t1143;
33098   t108917 = 0.12e2 * t369 * t5423 * t3811;
33099   t108919 = 0.6e1 * t873 * t24672;
33100   t108922 = 0.12e2 * t369 * t5419 * t3811;
33101   t108925 = t1219 * t21379;
33102   t108930 = 0.6e1 * t873 * t24678;
33103   t108932 = 0.6e1 * t1336 * t18506;
33104   t108937 = t3994 * t5441;
33105   t108939 = t21361 * t1221;
33106   t108941 = 0.3e1 * t18486 * t1338 + 0.3e1 * t24658 * t875 + 0.6e1 * t5070 * t4748 + 0.3e1 * t5070 * t4751 + 0.6e1 * t108905 + t108908 + t108911 + t108914 + t108917 + t108919 + t108922 + 0.12e2 * t108925 + t108930 + t108932 + 0.12e2 * t108937 + 0.6e1 * t108939 + t5079;
33107   t108943 = 0.6e1 * t1336 * t18498;
33108   t108944 = t3994 * t5444;
33109   t108947 = 0.6e1 * t4742 * t5074;
33110   t108950 = 0.6e1 * t369 * t4947 * t4714;
33111   t108951 = t5435 * t4000;
33112   t108955 = 0.6e1 * t369 * t4725 * t4954;
33113   t108958 = 0.6e1 * t369 * t4729 * t4954;
33114   t108959 = t1219 * t21393;
33115   t108964 = 0.3e1 * t4742 * t5077;
33116   t108965 = t1219 * t21382;
33117   t108967 = t1219 * t21385;
33118   t108970 = 0.12e2 * t873 * t24675;
33119   t108971 = t1219 * t21390;
33120   t108973 = t108881 * t370 * params->d + t108943 + 0.6e1 * t108944 + t108947 + t108950 + 0.12e2 * t108951 + t108955 + t108958 + 0.6e1 * t108959 + t108964 + 0.12e2 * t108965 + 0.12e2 * t108967 + t108970 + 0.12e2 * t108971 + t18505 + t18508 + t24665 + t24680;
33121   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
33122     v4rhosigma2tau[0] = t108502 + t7 * t108881 * t372 + t24650 * t878 + t108886 + 0.2e1 * t21350 * t1224 + 0.2e1 * t5431 * t4006 + t108891 + t4737 * t5080 + t1334 * t18509 + t108894 + t18475 * t1341 + t5066 * t4754 + t108898 + 0.2e1 * t3989 * t5447 + 0.2e1 * t1217 * t21396 + t108903 + t870 * t24681 + t872 * (t108941 + t108973);
33123 
33124   t108976 = t24743 * t372;
33125   t108977 = t24693 * t108512;
33126   t108979 = t24693 * t108516;
33127   t108981 = t24693 * t108519;
33128   t108983 = t24693 * t108522;
33129   t108985 = t5471 * t167;
33130   t108986 = t400 * t108985;
33131   t108988 = 0.16e2 * t108986 * t21241;
33132   t108989 = t3958 * t24687;
33133   t108993 = t1204 * t3816 * t1347;
33134   t108997 = t1204 * t68170 * t1347;
33135   t109001 = t1204 * t3789 * t21461;
33136   t109002 = t3788 * t109001;
33137   t109006 = t5044 * t21404;
33138   t109009 = t5044 * t21407;
33139   t109012 = t5044 * t21434;
33140   t109016 = 0.8e1 * t21423 * t108642;
33141   t109018 = t1204 * t12780 * t5460;
33142   t109019 = t3788 * t109018;
33143   t109021 = -0.2e1 / 0.3e1 * t108977 - 0.2e1 / 0.3e1 * t108979 - 0.2e1 / 0.3e1 * t108981 - 0.2e1 / 0.3e1 * t108983 + t108533 - t108988 + 0.2e1 / 0.3e1 * t3788 * t108989 + 0.2e1 / 0.3e1 * t3788 * t108993 + 0.2e1 / 0.3e1 * t3788 * t108997 + 0.2e1 / 0.3e1 * t109002 - 0.5e1 / 0.72e2 * t68969 * t24708 - 0.5e1 / 0.72e2 * t18055 * t109006 - 0.5e1 / 0.72e2 * t18055 * t109009 - 0.5e1 / 0.72e2 * t18055 * t109012 + t109016 + 0.2e1 / 0.3e1 * t109019;
33144   t109023 = t1204 * t18210 * t4775;
33145   t109026 = t5467 * t167;
33146   t109027 = t400 * t109026;
33147   t109029 = 0.16e2 * t109027 * t21241;
33148   t109031 = 0.6e1 * t21426 * t108645;
33149   t109033 = 0.4e1 * t21426 * t108648;
33150   t109035 = 0.4e1 * t21426 * t108651;
33151   t109036 = t1392 * t5468;
33152   t109037 = t109036 * t5146;
33153   t109039 = t400 * t21489;
33154   t109040 = t109039 * t5146;
33155   t109042 = t400 * t21493;
33156   t109043 = t109042 * t5146;
33157   t109045 = t400 * t21438;
33158   t109046 = t109045 * t5146;
33159   t109048 = t24722 * t18813;
33160   t109050 = t24722 * t18816;
33161   t109052 = t24722 * t18819;
33162   t109054 = t13167 * t24684;
33163   t109056 = t81 * t21492;
33164   t109058 = 0.4e1 * t109056 * t1193;
33165   t109059 = t397 * t5471;
33166   t109061 = 0.4e1 * t109059 * t1193;
33167   t109062 = t81 * t21448;
33168   t109064 = 0.4e1 * t109062 * t1193;
33169   t109065 = t81 * t21462;
33170   t109067 = 0.4e1 * t109065 * t1193;
33171   t109068 = 0.2e1 / 0.3e1 * t3788 * t109023 - t109029 - t109031 - t109033 + t109035 - 0.2e1 / 0.3e1 * t109037 - 0.2e1 / 0.3e1 * t109040 - 0.2e1 / 0.3e1 * t109043 - 0.2e1 / 0.3e1 * t109046 - 0.2e1 / 0.3e1 * t109048 - 0.2e1 / 0.3e1 * t109050 - 0.2e1 / 0.3e1 * t109052 + 0.2e1 / 0.3e1 * t109054 + t109058 + t109061 + t109064 + t109067;
33172   t109070 = t400 * t21441;
33173   t109071 = t109070 * t5146;
33174   t109073 = t24725 * t18813;
33175   t109075 = t24725 * t18816;
33176   t109077 = t24725 * t18819;
33177   t109087 = t81 * t108985;
33178   t109089 = 0.12e2 * t109087 * t21245;
33179   t109091 = 0.4e1 * t109087 * t21248;
33180   t109093 = 0.8e1 * t21423 * t108638;
33181   t109095 = 0.6e1 * t21426 * t108831;
33182   t109097 = 0.2e1 * t21426 * t108674;
33183   t109098 = t13167 * t24705;
33184   t109100 = t12758 * t24705;
33185   t109102 = t12788 * t24705;
33186   t109104 = -0.2e1 / 0.3e1 * t109071 - 0.2e1 / 0.3e1 * t109073 - 0.2e1 / 0.3e1 * t109075 - 0.2e1 / 0.3e1 * t109077 + 0.5e1 / 0.72e2 * t87750 * t23765 + 0.5e1 / 0.72e2 * t87753 * t23765 + 0.5e1 / 0.72e2 * t87775 * t23765 + 0.5e1 / 0.72e2 * t87765 * t23765 + t109089 - t109091 - t109093 + t109095 - t109097 + 0.2e1 / 0.3e1 * t109098 + 0.2e1 / 0.3e1 * t109100 + 0.2e1 / 0.3e1 * t109102;
33187   t109105 = t3958 * t24704;
33188   t109106 = t3788 * t109105;
33189   t109109 = t1204 * t465 * t5460;
33190   t109110 = t3788 * t109109;
33191   t109113 = t12791 * t5455 * t443;
33192   t109117 = 0.4e1 * t24696 * t3922;
33193   t109118 = t12758 * t24684;
33194   t109120 = t12788 * t24684;
33195   t109122 = t3958 * t24683;
33196   t109123 = t3788 * t109122;
33197   t109126 = t1204 * t3812 * t1347;
33198   t109127 = t3788 * t109126;
33199   t109130 = t1204 * t3802 * t1347;
33200   t109131 = t3788 * t109130;
33201   t109133 = t1392 * t5472;
33202   t109134 = t109133 * t5146;
33203   t109136 = t400 * t21449;
33204   t109137 = t109136 * t5146;
33205   t109139 = t400 * t21463;
33206   t109140 = t109139 * t5146;
33207   t109142 = t1476 * t24735;
33208   t109144 = t2448 * t24735;
33209   t109147 = t449 * t3934 * t5460;
33210   t109149 = t17116 * t24692;
33211   t109150 = t109149 * t24588;
33212   t109152 = t17094 * t24692;
33213   t109153 = t109152 * t24588;
33214   t109155 = 0.2e1 / 0.3e1 * t109106 + 0.2e1 / 0.3e1 * t109110 - 0.10e2 / 0.3e1 * t3762 * t109113 + t109117 + 0.2e1 / 0.3e1 * t109118 + 0.2e1 / 0.3e1 * t109120 + 0.2e1 / 0.3e1 * t109123 + 0.2e1 / 0.3e1 * t109127 + 0.2e1 / 0.3e1 * t109131 - 0.2e1 / 0.3e1 * t109134 - 0.2e1 / 0.3e1 * t109137 - 0.2e1 / 0.3e1 * t109140 - 0.4e1 * t109142 - 0.4e1 * t109144 - 0.4e1 * t109147 - 0.2e1 / 0.3e1 * t109150 - 0.2e1 / 0.3e1 * t109153;
33215   t109160 = t4720 * t4775 * t167 * t14483;
33216   t109161 = t109160 * t24588;
33217   t109164 = t1204 * t1144 * t4775;
33218   t109165 = t3788 * t109164;
33219   t109167 = t5048 * t21513;
33220   t109168 = t3762 * t109167;
33221   t109171 = 0.4e1 * t397 * t24717;
33222   t109175 = 0.4e1 * t81 * t3811 * t5460 * t227;
33223   t109177 = 0.2e1 * t21465 * t5028;
33224   t109179 = 0.2e1 * t21467 * t5028;
33225   t109181 = 0.2e1 * t21469 * t5028;
33226   t109185 = 0.4e1 * t81 * t1143 * t21461 * t227;
33227   t109189 = 0.4e1 * t5097 * t21502;
33228   t109191 = 0.4e1 * t18654 * t5461;
33229   t109193 = t449 * t1199 * t21461;
33230   t109195 = -0.2e1 / 0.3e1 * t109161 + 0.2e1 / 0.3e1 * t109165 - 0.10e2 / 0.3e1 * t109168 + t109171 + t109175 + t109177 + t109179 + t109181 - t108696 + t108707 + t108710 + t109185 - 0.2e1 * t1476 * t24732 - t109189 - t109191 - 0.4e1 * t109193;
33231   t109202 = 0.4e1 * t18640 * t5461;
33232   t109204 = 0.4e1 * t5097 * t21473;
33233   t109205 = t5097 * t21475;
33234   t109216 = t18560 * t21513;
33235   t109220 = t18560 * t1348 * t404;
33236   t109224 = t18560 * t1348 * t3778;
33237   t109228 = t68216 * t1348 * t439;
33238   t109233 = 0.2e1 * t81 * t24712 * t751;
33239   t109236 = 0.4e1 * t81 * t24716 * t751;
33240   t109237 = t7757 * t24692;
33241   t109238 = t109237 * t108612;
33242   t109241 = t4720 * t24691 * t13344;
33243   t109242 = t109241 * t108619;
33244   t109244 = -0.2e1 * t2448 * t24732 - 0.2e1 * t449 * t18357 * t1347 - t109202 - t109204 - 0.4e1 * t109205 - 0.2e1 * t449 * t5039 * t4775 + 0.2e1 / 0.3e1 * t13167 * t24688 + 0.2e1 / 0.3e1 * t12758 * t24688 + 0.2e1 / 0.3e1 * t12788 * t24688 + 0.5e1 / 0.12e2 * t18082 * t109216 - 0.5e1 / 0.36e2 * t18089 * t109220 - 0.5e1 / 0.36e2 * t18049 * t109224 - 0.5e1 / 0.36e2 * t18055 * t109228 + t109233 + t109236 + 0.10e2 / 0.3e1 * t109238 - 0.2e1 * t109242;
33245   t109246 = t24693 * t108625;
33246   t109249 = 0.2e1 * t397 * t24713;
33247   t109253 = 0.2e1 * t81 * t4954 * t4775 * t227;
33248   t109255 = 0.4e1 * t24699 * t3922;
33249   t109257 = 0.2e1 * t5475 * t18334;
33250   t109258 = t18654 * t5455;
33251   t109261 = 0.2e1 * t100056 * t1348;
33252   t109263 = 0.2e1 * t23823 * t4761;
33253   t109264 = t18640 * t5455;
33254   t109266 = t5097 * t21507;
33255   t109269 = 0.8e1 * t108528 * t4782;
33256   t109271 = 0.2e1 * t21465 * t5032;
33257   t109272 = 0.2e1 / 0.3e1 * t109246 - t4957 + t109249 + t109253 + t109255 - t18095 - t18097 - t18100 + t24601 + t109257 - 0.4e1 * t109258 - t109261 - t109263 - 0.4e1 * t109264 - 0.4e1 * t109266 - t109269 - t109271;
33258   t109274 = 0.2e1 * t21467 * t5032;
33259   t109276 = 0.2e1 * t21469 * t5032;
33260   t109277 = t397 * t5467;
33261   t109279 = 0.4e1 * t109277 * t1193;
33262   t109280 = t81 * t21488;
33263   t109282 = 0.4e1 * t109280 * t1193;
33264   t109283 = t81 * t109026;
33265   t109285 = 0.12e2 * t109283 * t21245;
33266   t109287 = 0.4e1 * t109283 * t21248;
33267   t109297 = t12791 * t5461 * t443;
33268   t109298 = t3762 * t109297;
33269   t109300 = t1397 * t5468;
33270   t109301 = t109300 * t21211;
33271   t109303 = t1397 * t5472;
33272   t109304 = t109303 * t21211;
33273   t109307 = 0.16e2 * t21257 * t21483;
33274   t109309 = 0.2e1 * t23823 * t4776;
33275   t109310 = -t109274 - t109276 + t109279 + t109282 + t109285 - t109287 + t24715 - 0.5e1 / 0.12e2 * t87504 * t108631 + 0.5e1 / 0.36e2 * t21510 * t108730 + 0.5e1 / 0.36e2 * t21510 * t108733 + 0.5e1 / 0.36e2 * t21510 * t108736 - 0.10e2 / 0.3e1 * t109298 + 0.10e2 / 0.3e1 * t109301 + 0.10e2 / 0.3e1 * t109304 - t24739 - t109307 - t109309;
33276   t109313 = t109021 + t109068 + t109104 + t109155 + t109195 + t109244 + t109272 + t109310;
33277   t109318 = 0.2e1 * t5478 * t1224;
33278   t109323 = t1354 * t5080;
33279   t109326 = t5065 * t1362;
33280   t109330 = 0.2e1 * t1216 * t5495;
33281   t109335 = t368 * t24775;
33282   t109337 = t5483 * t4000;
33283   t109341 = 0.12e2 * t369 * t5467 * t3811;
33284   t109344 = 0.12e2 * t369 * t5471 * t3811;
33285   t109346 = 0.12e2 * t1357 * t18501;
33286   t109348 = 0.6e1 * t873 * t24766;
33287   t109349 = t1219 * t21560;
33288   t109353 = t1219 * t21549;
33289   t109355 = t1219 * t21552;
33290   t109357 = t3994 * t5489;
33291   t109360 = 0.6e1 * t873 * t24772;
33292   t109363 = 0.6e1 * t369 * t4785 * t4954;
33293   t109366 = 0.6e1 * t369 * t4789 * t4954;
33294   t109373 = t109313 * t370 * params->d + 0.3e1 * t18486 * t1359 + 0.6e1 * t5070 * t4808 + 0.3e1 * t5070 * t4811 + 0.12e2 * t109337 + t109341 + t109344 + t109346 + t109348 + 0.12e2 * t109349 + 0.12e2 * t109353 + 0.12e2 * t109355 + 0.12e2 * t109357 + t109360 + t109363 + t109366 + t5079;
33295   t109375 = 0.6e1 * t4802 * t5074;
33296   t109376 = t1219 * t21555;
33297   t109379 = 0.6e1 * t1357 * t18498;
33298   t109383 = 0.3e1 * t4802 * t5077;
33299   t109384 = t1219 * t21563;
33300   t109387 = 0.12e2 * t873 * t24769;
33301   t109390 = 0.12e2 * t369 * t21448 * t1143;
33302   t109393 = 0.12e2 * t369 * t21462 * t1143;
33303   t109394 = t5483 * t4003;
33304   t109397 = 0.6e1 * t1357 * t18506;
33305   t109398 = t3994 * t5492;
33306   t109400 = t21531 * t1221;
33307   t109404 = 0.6e1 * t369 * t4947 * t4775;
33308   t109405 = 0.3e1 * t24752 * t875 + t109375 + 0.12e2 * t109376 + t109379 + t109383 + 0.6e1 * t109384 + t109387 + t109390 + t109393 + 0.6e1 * t109394 + t109397 + 0.6e1 * t109398 + 0.6e1 * t109400 + t109404 + t18505 + t18508 + t24759 + t24774;
33309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
33310     v4rhosigma2tau[1] = t108976 + t7 * t109313 * t372 + t24744 * t878 + t109318 + 0.2e1 * t21520 * t1224 + 0.2e1 * t5479 * t4006 + t109323 + t4797 * t5080 + t1355 * t18509 + t109326 + t18475 * t1362 + t5066 * t4814 + t109330 + 0.2e1 * t3989 * t5495 + 0.2e1 * t1217 * t21566 + t109335 + t870 * t24775 + t872 * (t109373 + t109405);
33311 
33312   t109408 = t24849 * t372;
33313   t109413 = t3958 * t24790;
33314   t109417 = t1204 * t4042 * t1326;
33315   t109421 = t1204 * t4035 * t1326;
33316   t109425 = 0.2e1 * t86737 * t24787;
33317   t109427 = 0.2e1 * t86741 * t24787;
33318   t109428 = t14483 * t18622;
33319   t109430 = 0.2e1 * t21244 * t109428;
33320   t109431 = t14483 * t18628;
33321   t109433 = 0.2e1 * t21244 * t109431;
33322   t109435 = 0.16e2 / 0.9e1 * t13453 * t24611;
33323   t109437 = 0.2e1 / 0.3e1 * t108570 * t5510;
33324   t109439 = 0.2e1 / 0.3e1 * t108573 * t5510;
33325   t109441 = 0.2e1 / 0.3e1 * t108576 * t5510;
33326   t109442 = t12758 * t24791 / 0.3e1 + t12788 * t24791 / 0.3e1 + t3788 * t109413 / 0.3e1 + t3788 * t109417 / 0.3e1 + t3788 * t109421 / 0.3e1 - t109425 - t109427 - t109430 - t109433 + t109435 + t109437 + t109439 + t109441;
33327   t109444 = 0.2e1 / 0.3e1 * t24602 * t21587;
33328   t109446 = 0.16e2 / 0.9e1 * t13453 * t24615;
33329   t109448 = 0.2e1 * t1476 * t24845;
33330   t109450 = 0.2e1 * t2448 * t24845;
33331   t109453 = 0.2e1 * t449 * t18638 * t1326;
33332   t109455 = 0.10e2 / 0.3e1 * t4013 * t108743;
33333   t109456 = t108511 * t1255;
33334   t109458 = 0.2e1 / 0.3e1 * t24586 * t109456;
33335   t109459 = t108515 * t1255;
33336   t109461 = 0.2e1 / 0.3e1 * t24586 * t109459;
33337   t109464 = t18369 * t24808;
33338   t109467 = t5083 * t18378;
33339   t109471 = t12791 * t5507 * t443;
33340   t109474 = t109444 + t109446 - t108530 + t108533 - t109448 - t109450 - t109453 + t109455 + t109458 + t109461 + 0.5e1 / 0.36e2 * t18527 * t24809 + 0.5e1 / 0.36e2 * t5084 * t109464 - 0.5e1 / 0.36e2 * t21210 * t109467 - 0.5e1 / 0.3e1 * t3762 * t109471;
33341   t109477 = 0.2e1 / 0.3e1 * t108525 * t24812;
33342   t109482 = t13459 * t25;
33343   t109483 = t109482 * t1205;
33344   t109486 = t4049 * t404;
33345   t109487 = t109486 * t1205;
33346   t109490 = t24815 * t3955;
33347   t109493 = t24815 * t3959;
33348   t109496 = t1326 * t1133;
33349   t109498 = t50654 * t109496 * t439;
33350   t109501 = t7757 * t90253;
33351   t109502 = t70066 * t18829;
33352   t109505 = t4721 * t4926;
33353   t109506 = t7757 * t109505;
33354   t109507 = t70066 * t18835;
33355   t109510 = t34500 * t109505;
33356   t109511 = t70066 * t18775;
33357   t109515 = t70080 * t109496 * t443;
33358   t109519 = t70080 * t109496 * t404;
33359   t109522 = t109477 - t108503 * t24816 / 0.3e1 - t108508 * t24816 / 0.3e1 - t24586 * t109483 / 0.3e1 - t24586 * t109487 / 0.3e1 - t24586 * t109490 / 0.3e1 - t24586 * t109493 / 0.3e1 + 0.5e1 / 0.18e2 * t70173 * t109498 - 0.5e1 / 0.18e2 * t109501 * t109502 - 0.5e1 / 0.18e2 * t109506 * t109507 + 0.5e1 / 0.6e1 * t109510 * t109511 - 0.5e1 / 0.6e1 * t70074 * t109515 + 0.5e1 / 0.18e2 * t70086 * t109519;
33360   t109524 = 0.2e1 / 0.3e1 * t108503 * t24812;
33361   t109526 = 0.2e1 / 0.3e1 * t108508 * t24812;
33362   t109529 = t24587 * t4106;
33363   t109531 = 0.2e1 / 0.3e1 * t24586 * t109529;
33364   t109534 = t3923 * t1226;
33365   t109535 = t109534 * t108624;
33366   t109537 = 0.2e1 / 0.3e1 * t24586 * t109535;
33367   t109538 = t4049 * t1134;
33368   t109539 = t109538 * t108611;
33369   t109544 = 0.2e1 * t81 * t24836 * t751;
33370   t109546 = 0.2e1 * t397 * t24837;
33371   t109550 = 0.2e1 * t81 * t4041 * t5412 * t227;
33372   t109551 = t108680 + t109524 + t109526 + 0.10e2 / 0.3e1 * t4013 * t108866 + t109531 - t108525 * t24816 / 0.3e1 - t109537 + 0.5e1 / 0.3e1 * t108609 * t109539 + t108692 + t109544 - t108696 + t108700 + t109546 + t109550;
33373   t109557 = 0.2e1 * t81 * t1231 * t21315 * t227;
33374   t109562 = 0.2e1 * t5097 * t21609;
33375   t109564 = 0.10e2 / 0.3e1 * t4013 * t108739;
33376   t109567 = 0.2e1 * t449 * t1252 * t21315;
33377   t109569 = 0.2e1 * t18654 * t5507;
33378   t109571 = 0.2e1 * t18640 * t5507;
33379   t109573 = 0.2e1 * t5097 * t21661;
33380   t109575 = 0.2e1 * t1476 * t24831;
33381   t109577 = 0.2e1 * t2448 * t24831;
33382   t109580 = 0.2e1 * t449 * t4090 * t5412;
33383   t109581 = -0.2e1 * t3934 * t449 * t5506 + t108707 + t108710 + t109557 - t109562 + t109564 - t109567 - t109569 - t109571 - t109573 - t109575 - t109577 - t109580;
33384   t109584 = 0.2e1 * t449 * t5135 * t4714;
33385   t109586 = 0.2e1 * t5097 * t21640;
33386   t109592 = 0.2e1 * t21649 * t5413;
33387   t109594 = 0.2e1 * t21652 * t5413;
33388   t109596 = 0.2e1 * t5499 * t21272;
33389   t109601 = 0.2e1 * t5499 * t21316;
33390   t109604 = t1397 * t5514;
33391   t109608 = 0.8e1 * t21257 * t21644;
33392   t109610 = t18560 * t4715 * t1133;
33393   t109614 = 0.2e1 / 0.3e1 * t24602 * t21590;
33394   t109615 = -t109584 - t109586 - 0.2e1 * t21649 * t5407 - 0.2e1 * t5499 * t21282 - t109592 - t109594 - t109596 - 0.2e1 * t449 * t1199 * t21608 - t109601 + 0.5e1 / 0.36e2 * t5084 * t108600 + 0.5e1 / 0.3e1 * t109604 * t21211 - t109608 + 0.5e1 / 0.36e2 * t5084 * t109610 + t109614;
33395   t109617 = t108795 * t5510;
33396   t109618 = t108798 * t5510;
33397   t109619 = t108751 * t5510;
33398   t109620 = t108754 * t5510;
33399   t109621 = t24605 * t21587;
33400   t109622 = t24605 * t21590;
33401   t109623 = t108567 * t5510;
33402   t109625 = t13412 * t24620;
33403   t109626 = t13424 * t24620;
33404   t109627 = t4026 * t108556;
33405   t109628 = t4026 * t108560;
33406   t109629 = t4026 * t108564;
33407   t109630 = -t4026 * t108819 + t109617 + t109618 + t109619 + t109620 + t109621 + t109622 + t109623 - t109625 - t109626 - t109627 - t109628 - t109629;
33408   t109633 = t1204 * t3789 * t21608;
33409   t109636 = t5513 * t167;
33410   t109637 = t400 * t109636;
33411   t109639 = 0.8e1 * t109637 * t21241;
33412   t109640 = t81 * t109636;
33413   t109642 = 0.6e1 * t109640 * t21245;
33414   t109644 = 0.2e1 * t109640 * t21248;
33415   t109645 = t5517 * t167;
33416   t109646 = t400 * t109645;
33417   t109648 = 0.8e1 * t109646 * t21241;
33418   t109649 = t81 * t109645;
33419   t109651 = 0.6e1 * t109649 * t21245;
33420   t109653 = 0.2e1 * t109649 * t21248;
33421   t109655 = 0.8e1 * t108655 * t21595;
33422   t109657 = 0.2e1 / 0.3e1 * t13424 * t24611;
33423   t109659 = 0.2e1 / 0.3e1 * t4026 * t108589;
33424   t109660 = t3874 * t1226;
33425   t109661 = t109660 * t108618;
33426   t109663 = 0.2e1 * t108616 * t109661;
33427   t109666 = 0.2e1 * t81 * t24839 * t751;
33428   t109669 = t3788 * t109633 / 0.3e1 - t109639 + t109642 - t109644 - t109648 + t109651 - t109653 - t109655 - t109657 - t109659 + t109663 + t109666 - t108790 - 0.2e1 * t21652 * t5407;
33429   t109678 = 0.2e1 * t81 * t3811 * t5506 * t227;
33430   t109682 = 0.2e1 * t81 * t1143 * t21608 * t227;
33431   t109683 = t4079 * t1134;
33432   t109684 = t109683 * t108624;
33433   t109688 = t87989 * t13055 * t746;
33434   t109690 = 0.4e1 * t21244 * t109688;
33435   t109695 = t18678 * t5138;
33436   t109697 = 0.10e2 / 0.27e2 * t21210 * t109695;
33437   t109699 = 0.8e1 * t21675 * t21215;
33438   t109701 = 0.2e1 * t5427 * t18616;
33439   t109702 = -0.2e1 * t5499 * t21279 + t109678 + t109682 + t24586 * t109684 / 0.3e1 + t109690 - t4957 - t108845 - 0.2e1 * t1476 * t24834 - 0.2e1 * t2448 * t24834 + t109697 - t109699 + t109701 - t18095;
33440   t109704 = t88070 * t3923 * t677;
33441   t109706 = 0.6e1 * t21244 * t109704;
33442   t109707 = t397 * t5517;
33443   t109709 = 0.2e1 * t109707 * t1193;
33444   t109710 = t81 * t21627;
33445   t109712 = 0.2e1 * t109710 * t1193;
33446   t109728 = 0.16e2 / 0.9e1 * t24602 * t21668;
33447   t109729 = -t18097 - t18100 + t24594 - t109706 + t109709 + t109712 - 0.5e1 / 0.36e2 * t86929 * t24819 - 0.5e1 / 0.36e2 * t86818 * t24819 - 0.2e1 / 0.3e1 * t13412 * t24615 - 0.2e1 / 0.3e1 * t13424 * t24615 - 0.2e1 / 0.3e1 * t4026 * t108544 - 0.2e1 / 0.3e1 * t4026 * t108548 - 0.2e1 / 0.3e1 * t4026 * t108552 - t109728;
33448   t109732 = 0.2e1 / 0.3e1 * t4026 * t108535;
33449   t109733 = t1392 * t5514;
33450   t109736 = t400 * t21689;
33451   t109739 = t400 * t21693;
33452   t109742 = t400 * t21612;
33453   t109751 = t1392 * t5518;
33454   t109754 = t1397 * t5518;
33455   t109758 = t18560 * t4694 * t1133;
33456   t109762 = 0.2e1 * t18654 * t5502;
33457   t109764 = 0.2e1 * t18640 * t5502;
33458   t109765 = -t109732 - t109733 * t5146 / 0.3e1 - t109736 * t5146 / 0.3e1 - t109739 * t5146 / 0.3e1 - t109742 * t5146 / 0.3e1 - t24781 * t18813 / 0.3e1 - t24781 * t18816 / 0.3e1 - t24781 * t18819 / 0.3e1 - t109751 * t5146 / 0.3e1 + 0.5e1 / 0.3e1 * t109754 * t21211 + 0.5e1 / 0.36e2 * t5084 * t109758 - t109762 - t109764;
33459   t109767 = 0.2e1 * t5097 * t21624;
33460   t109769 = 0.2e1 * t24643 * t4078;
33461   t109771 = 0.2e1 * t24826 * t3922;
33462   t109773 = 0.2e1 * t108711 * t1246;
33463   t109775 = 0.2e1 * t108714 * t1246;
33464   t109777 = 0.2e1 * t108717 * t1246;
33465   t109779 = 0.2e1 * t24640 * t4078;
33466   t109780 = t81 * t21692;
33467   t109782 = 0.2e1 * t109780 * t1193;
33468   t109784 = 0.2e1 * t397 * t24840;
33469   t109785 = t109660 * t108611;
33470   t109787 = 0.10e2 / 0.3e1 * t108609 * t109785;
33471   t109791 = t12791 * t5502 * t443;
33472   t109794 = -t109767 + t24601 + t109769 + t109771 + t109773 + t109775 + t109777 + t109779 + t109782 - t108854 + t109784 - t109787 - 0.5e1 / 0.36e2 * t86824 * t24819 - 0.5e1 / 0.3e1 * t3762 * t109791;
33473   t109798 = 0.2e1 * t21201 * t5126;
33474   t109800 = 0.2e1 * t21204 * t5126;
33475   t109801 = t24587 * t4103;
33476   t109803 = 0.16e2 / 0.9e1 * t24586 * t109801;
33477   t109805 = 0.2e1 * t21207 * t5126;
33478   t109806 = t400 * t21628;
33479   t109809 = t400 * t21634;
33480   t109812 = t400 * t21617;
33481   t109822 = 0.2e1 * t86733 * t24787;
33482   t109824 = 0.6e1 * t108658 * t21598;
33483   t109826 = 0.2e1 * t108658 * t21665;
33484   t109827 = t109798 + t109800 - t109803 + t109805 - t109806 * t5146 / 0.3e1 - t109809 * t5146 / 0.3e1 - t109812 * t5146 / 0.3e1 - t24784 * t18813 / 0.3e1 - t24784 * t18816 / 0.3e1 - t24784 * t18819 / 0.3e1 - t109822 + t109824 - t109826;
33485   t109829 = 0.8e1 * t108662 * t21595;
33486   t109831 = 0.6e1 * t108828 * t21598;
33487   t109833 = 0.2e1 * t108828 * t21665;
33488   t109835 = t14483 * t18569 * t443;
33489   t109837 = 0.8e1 * t21239 * t109835;
33490   t109838 = t13344 * t18570;
33491   t109840 = 0.6e1 * t21244 * t109838;
33492   t109841 = t14483 * t18618;
33493   t109843 = 0.2e1 * t21244 * t109841;
33494   t109847 = 0.2e1 * t24822 * t3922;
33495   t109849 = 0.10e2 / 0.27e2 * t18679 * t24809;
33496   t109851 = 0.10e2 / 0.3e1 * t108634 * t21637;
33497   t109853 = 0.10e2 / 0.3e1 * t108628 * t21637;
33498   t109854 = t5273 * t21287;
33499   t109859 = -t109829 + t109831 - t109833 - t109837 + t109840 - t109843 + t13167 * t24791 / 0.3e1 + t109847 - t109849 - t109851 - t109853 - 0.5e1 / 0.3e1 * t3762 * t109854 - 0.5e1 / 0.36e2 * t86821 * t24819 - t24629;
33500   t109861 = t397 * t5513;
33501   t109863 = 0.2e1 * t109861 * t1193;
33502   t109864 = t81 * t21688;
33503   t109866 = 0.2e1 * t109864 * t1193;
33504   t109868 = 0.16e2 / 0.9e1 * t24605 * t21668;
33505   t109875 = t3958 * t24777;
33506   t109879 = t1204 * t465 * t5506;
33507   t109883 = t1204 * t12780 * t5506;
33508   t109887 = 0.16e2 / 0.9e1 * t13453 * t24620;
33509   t109889 = 0.2e1 / 0.3e1 * t4026 * t108666;
33510   t109891 = 0.2e1 / 0.3e1 * t4026 * t108670;
33511   t109893 = t1204 * t1232 * t4714;
33512   t109898 = t109863 + t109866 - t109868 + t13167 * t24778 / 0.3e1 + t12758 * t24778 / 0.3e1 + t12788 * t24778 / 0.3e1 + t3788 * t109875 / 0.3e1 + t3788 * t109879 / 0.3e1 + t3788 * t109883 / 0.3e1 + t109887 - t109889 - t109891 + t3788 * t109893 / 0.3e1 + t13167 * t24795 / 0.3e1;
33513   t109903 = t3958 * t24794;
33514   t109907 = t1204 * t4046 * t1326;
33515   t109911 = t1204 * t70120 * t1326;
33516   t109915 = t1204 * t18732 * t4714;
33517   t109919 = 0.2e1 / 0.3e1 * t13412 * t24611;
33518   t109921 = 0.2e1 / 0.3e1 * t4026 * t108805;
33519   t109922 = t81 * t21633;
33520   t109924 = 0.2e1 * t109922 * t1193;
33521   t109926 = 0.2e1 * t108869 * t1246;
33522   t109928 = 0.2e1 * t108872 * t1246;
33523   t109930 = 0.2e1 * t108875 * t1246;
33524   t109932 = t87989 * t3923 * t443;
33525   t109934 = 0.8e1 * t21239 * t109932;
33526   t109935 = t109538 * t108618;
33527   t109937 = t12758 * t24795 / 0.3e1 + t12788 * t24795 / 0.3e1 + t3788 * t109903 / 0.3e1 + t3788 * t109907 / 0.3e1 + t3788 * t109911 / 0.3e1 + t3788 * t109915 / 0.3e1 - t109919 - t109921 + t109924 + t109926 + t109928 + t109930 + t109934 - t108616 * t109935;
33528   t109941 = t109442 + t109474 + t109522 + t109551 + t109581 + t109615 + 0.2e1 / 0.3e1 * t109630 + t109669 + t109702 + t109729 + t109765 + t109794 + t109827 + t109859 + t109898 + t109937;
33529   t109945 = t5523 * t1224;
33530   t109948 = t5430 * t1272;
33531   t109951 = t1333 * t5175;
33532   t109954 = t109941 * t372 * t7 + t21699 * t1224 + t21350 * t1272 + t1334 * t18897 + t24850 * t878 + t5524 * t4006 + t5431 * t4149 + t4737 * t5175 + t109408 + t109945 + t109948 + t109951;
33533   t109955 = t5161 * t1341;
33534   t109958 = t1264 * t5447;
33535   t109961 = t1216 * t5540;
33536   t109964 = t368 * t24885;
33537   t109967 = 0.6e1 * t4137 * t5441;
33538   t109969 = 0.6e1 * t4742 * t5172;
33539   t109971 = 0.6e1 * t1267 * t21390;
33540   t109979 = 0.6e1 * t873 * t24882;
33541   t109981 = 0.3e1 * t5528 * t4003;
33542   t109983 = 0.6e1 * t1267 * t21385;
33543   t109986 = 0.6e1 * t369 * t21627 * t1143;
33544   t109989 = 0.6e1 * t369 * t21633 * t1143;
33545   t109990 = 0.6e1 * t3994 * t5534 + 0.6e1 * t5435 * t4143 + 0.6e1 * t5166 * t4748 + t109967 + t109969 + t109971 + t109979 + t109981 + t109983 + t109986 + t109989 + t5079;
33546   t109992 = 0.6e1 * t1267 * t21379;
33547   t109994 = 0.6e1 * t1267 * t21382;
33548   t109997 = 0.6e1 * t369 * t5423 * t4041;
33549   t110000 = 0.6e1 * t369 * t21323 * t1231;
33550   t110003 = 0.6e1 * t369 * t5419 * t4041;
33551   t110007 = 0.3e1 * t1267 * t21393;
33552   t110009 = 0.6e1 * t1336 * t18894;
33553   t110014 = 0.6e1 * t369 * t21319 * t1231;
33554   t110016 = 0.3e1 * t21710 * t1221;
33555   t110017 = 0.3e1 * t24858 * t875 + 0.3e1 * t3994 * t5537 + t108930 + t108932 + t109992 + t109994 + t109997 + t110000 + t110003 + t110007 + t110009 + t110014 + t110016;
33556   t110020 = 0.6e1 * t5528 * t4000;
33557   t110022 = 0.6e1 * t1336 * t18888;
33558   t110024 = 0.6e1 * t1336 * t18891;
33559   t110037 = 0.6e1 * t369 * t21337 * t1231;
33560   t110040 = 0.6e1 * t369 * t21343 * t1231;
33561   t110043 = t109941 * t370 * params->d + 0.6e1 * t1219 * t21739 + 0.3e1 * t1219 * t21742 + 0.3e1 * t21361 * t1269 + 0.3e1 * t18870 * t1338 + 0.3e1 * t5166 * t4751 + t108955 + t108958 + t110020 + t110022 + t110024 + t110037 + t110040;
33562   t110045 = 0.6e1 * t873 * t24877;
33563   t110050 = 0.6e1 * t369 * t5517 * t3811;
33564   t110052 = 0.6e1 * t873 * t24874;
33565   t110054 = 0.3e1 * t4137 * t5444;
33566   t110061 = 0.6e1 * t1219 * t21728 + 0.6e1 * t1219 * t21731 + 0.6e1 * t1219 * t21734 + 0.3e1 * t5435 * t4146 + t108964 + t110045 + t110050 + t110052 + t110054 + t18505 + t18508 + t24665 + t24680;
33567   t110065 = t109955 + t18859 * t1341 + t5162 * t4754 + t109958 + t4132 * t5447 + t1265 * t21396 + t109961 + t3989 * t5540 + t1217 * t21745 + t109964 + t870 * t24885 + t872 * (t109990 + t110017 + t110043 + t110061);
33568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
33569     v4rhosigma2tau[2] = t109954 + t110065;
33570 
33571   t110066 = t24966 * t372;
33572   t110070 = t1204 * t12780 * t5550;
33573   t110074 = 0.8e1 * t108986 * t21595;
33574   t110076 = 0.6e1 * t109087 * t21598;
33575   t110078 = 0.2e1 * t109087 * t21665;
33576   t110080 = 0.8e1 * t21423 * t109835;
33577   t110082 = 0.6e1 * t21426 * t109838;
33578   t110084 = 0.2e1 * t21426 * t109841;
33579   t110086 = 0.2e1 / 0.3e1 * t109039 * t5510;
33580   t110091 = t3958 * t24908;
33581   t110095 = t1204 * t4046 * t1347;
33582   t110098 = -0.2e1 / 0.3e1 * t13424 * t24688 + t3788 * t110070 / 0.3e1 - t110074 + t110076 - t110078 - t110080 + t110082 - t110084 + t110086 - t24936 * t18813 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t109023 + t3788 * t110091 / 0.3e1 + t3788 * t110095 / 0.3e1;
33583   t110100 = t1204 * t70120 * t1347;
33584   t110104 = t1204 * t18732 * t4775;
33585   t110113 = t3958 * t24912;
33586   t110117 = t1204 * t465 * t5550;
33587   t110121 = 0.2e1 * t87401 * t24787;
33588   t110123 = 0.2e1 * t87404 * t24787;
33589   t110125 = 0.2e1 * t87455 * t24787;
33590   t110127 = 0.2e1 * t21426 * t109428;
33591   t110129 = 0.16e2 / 0.9e1 * t24722 * t21668;
33592   t110131 = 0.16e2 / 0.9e1 * t24725 * t21668;
33593   t110133 = 0.16e2 / 0.9e1 * t13453 * t24688;
33594   t110134 = t3788 * t110100 / 0.3e1 + t3788 * t110104 / 0.3e1 + t13167 * t24913 / 0.3e1 + t12758 * t24913 / 0.3e1 + t12788 * t24913 / 0.3e1 + t3788 * t110113 / 0.3e1 + t3788 * t110117 / 0.3e1 - t110121 - t110123 - t110125 - t110127 - t110129 - t110131 + t110133;
33595   t110137 = 0.2e1 / 0.3e1 * t24725 * t21587;
33596   t110139 = 0.2e1 / 0.3e1 * t24725 * t21590;
33597   t110141 = 0.2e1 / 0.3e1 * t109042 * t5510;
33598   t110143 = 0.2e1 / 0.3e1 * t109045 * t5510;
33599   t110145 = 0.2e1 / 0.3e1 * t24722 * t21587;
33600   t110147 = 0.2e1 / 0.3e1 * t24722 * t21590;
33601   t110149 = 0.2e1 / 0.3e1 * t109133 * t5510;
33602   t110151 = 0.2e1 / 0.3e1 * t109136 * t5510;
33603   t110153 = 0.2e1 / 0.3e1 * t109139 * t5510;
33604   t110155 = 0.2e1 / 0.3e1 * t109070 * t5510;
33605   t110157 = t1204 * t3789 * t21791;
33606   t110161 = 0.2e1 / 0.3e1 * t109036 * t5510;
33607   t110163 = 0.16e2 / 0.9e1 * t13453 * t24684;
33608   t110164 = t110137 + t110139 + t110141 + t110143 + t110145 + t110147 + t110149 + t110151 + t110153 + t110155 + t3788 * t110157 / 0.3e1 + t110161 + t110163;
33609   t110166 = t1204 * t1232 * t4775;
33610   t110176 = 0.2e1 / 0.3e1 * t4026 * t109164;
33611   t110182 = 0.2e1 / 0.3e1 * t109160 * t24812;
33612   t110186 = 0.2e1 * t5097 * t21792;
33613   t110188 = 0.2e1 * t109283 * t21665;
33614   t110190 = 0.16e2 / 0.9e1 * t13453 * t24705;
33615   t110191 = t400 * t21803;
33616   t110194 = t3788 * t110166 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t108989 - 0.2e1 / 0.3e1 * t4026 * t108993 - 0.2e1 / 0.3e1 * t4026 * t108997 - t110176 - 0.2e1 / 0.3e1 * t13412 * t24688 - t24693 * t109483 / 0.3e1 + t108533 + t110182 - t24693 * t109490 / 0.3e1 - t110186 - t110188 + t110190 - t110191 * t5146 / 0.3e1;
33617   t110198 = 0.2e1 / 0.3e1 * t4026 * t109001;
33618   t110205 = t3958 * t24927;
33619   t110209 = t1204 * t4042 * t1347;
33620   t110213 = t1204 * t4035 * t1347;
33621   t110226 = t1392 * t5557;
33622   t110229 = -t110198 + t13167 * t24928 / 0.3e1 + t12758 * t24928 / 0.3e1 + t12788 * t24928 / 0.3e1 + t3788 * t110205 / 0.3e1 + t3788 * t110209 / 0.3e1 + t3788 * t110213 / 0.3e1 - t24936 * t18816 / 0.3e1 - t24936 * t18819 / 0.3e1 + t13167 * t24909 / 0.3e1 + t12758 * t24909 / 0.3e1 + t12788 * t24909 / 0.3e1 - t110226 * t5146 / 0.3e1;
33623   t110230 = t400 * t21807;
33624   t110236 = 0.10e2 / 0.3e1 * t109237 * t109785;
33625   t110238 = 0.2e1 * t109241 * t109661;
33626   t110240 = 0.2e1 / 0.3e1 * t24693 * t109535;
33627   t110244 = 0.2e1 * t24696 * t4078;
33628   t110250 = 0.10e2 / 0.3e1 * t4013 * t109167;
33629   t110251 = t5273 * t21513;
33630   t110255 = 0.2e1 * t5475 * t18616;
33631   t110256 = t397 * t5560;
33632   t110258 = 0.2e1 * t110256 * t1193;
33633   t110259 = t81 * t21802;
33634   t110261 = 0.2e1 * t110259 * t1193;
33635   t110262 = -t110230 * t5146 / 0.3e1 + t24693 * t109684 / 0.3e1 - t110236 + t110238 - t110240 + 0.5e1 / 0.3e1 * t109237 * t109539 + t110244 - 0.5e1 / 0.36e2 * t87765 * t24819 - 0.5e1 / 0.36e2 * t21510 * t109467 + t110250 - 0.5e1 / 0.3e1 * t3762 * t110251 + t110255 + t110258 + t110261;
33636   t110264 = t81 * t21806;
33637   t110266 = 0.2e1 * t110264 * t1193;
33638   t110268 = t12791 * t5551 * t443;
33639   t110272 = t12791 * t5546 * t443;
33640   t110277 = t400 * t21821;
33641   t110282 = t400 * t21838;
33642   t110285 = t5556 * t167;
33643   t110286 = t400 * t110285;
33644   t110288 = 0.8e1 * t110286 * t21241;
33645   t110289 = t81 * t110285;
33646   t110291 = 0.6e1 * t110289 * t21245;
33647   t110293 = 0.2e1 * t110289 * t21248;
33648   t110295 = 0.2e1 / 0.3e1 * t13412 * t24684;
33649   t110297 = 0.2e1 / 0.3e1 * t13424 * t24684;
33650   t110299 = 0.2e1 / 0.3e1 * t4026 * t109122;
33651   t110300 = t110266 - 0.5e1 / 0.3e1 * t3762 * t110268 - 0.5e1 / 0.3e1 * t3762 * t110272 + 0.10e2 / 0.3e1 * t4013 * t109113 - t110277 * t5146 / 0.3e1 - t24933 * t18819 / 0.3e1 - t110282 * t5146 / 0.3e1 - t110288 + t110291 - t110293 - t110295 - t110297 - t110299;
33652   t110302 = 0.2e1 / 0.3e1 * t4026 * t109126;
33653   t110304 = 0.2e1 / 0.3e1 * t4026 * t109130;
33654   t110306 = 0.6e1 * t21426 * t109704;
33655   t110308 = 0.16e2 / 0.9e1 * t24693 * t109801;
33656   t110310 = 0.2e1 * t24942 * t3922;
33657   t110312 = 0.2e1 * t1476 * t24897;
33658   t110314 = 0.2e1 * t18654 * t5551;
33659   t110316 = 0.10e2 / 0.3e1 * t109300 * t21637;
33660   t110318 = 0.10e2 / 0.3e1 * t109303 * t21637;
33661   t110320 = 0.8e1 * t21675 * t21483;
33662   t110322 = 0.2e1 * t18654 * t5546;
33663   t110324 = 0.2e1 * t5499 * t21502;
33664   t110328 = -0.2e1 * t1199 * t21791 * t449 - t108696 - t110302 - t110304 - t110306 - t110308 + t110310 - t110312 - t110314 - t110316 - t110318 - t110320 - t110322 - t110324;
33665   t110333 = t18560 * t4776 * t1133;
33666   t110338 = t1397 * t5557;
33667   t110342 = 0.10e2 / 0.27e2 * t18679 * t24888;
33668   t110350 = 0.2e1 / 0.3e1 * t24693 * t109456;
33669   t110353 = 0.2e1 * t2448 * t24897;
33670   t110356 = 0.2e1 * t449 * t18638 * t1347;
33671   t110357 = 0.5e1 / 0.36e2 * t5084 * t110333 + 0.5e1 / 0.36e2 * t5084 * t109224 + 0.5e1 / 0.3e1 * t110338 * t21211 - t110342 - 0.5e1 / 0.36e2 * t87750 * t24819 - 0.5e1 / 0.36e2 * t87753 * t24819 - 0.5e1 / 0.36e2 * t87775 * t24819 + t110350 + t108707 + t108710 - t109241 * t109935 - t110353 - t110356;
33672   t110359 = 0.2e1 * t18640 * t5546;
33673   t110361 = 0.2e1 * t5097 * t21816;
33674   t110363 = 0.2e1 * t21426 * t109431;
33675   t110364 = t5560 * t167;
33676   t110365 = t400 * t110364;
33677   t110367 = 0.8e1 * t110365 * t21241;
33678   t110369 = 0.2e1 / 0.3e1 * t4026 * t109109;
33679   t110371 = 0.2e1 / 0.3e1 * t4026 * t109018;
33680   t110372 = t400 * t21845;
33681   t110379 = t400 * t21834;
33682   t110382 = t1392 * t5561;
33683   t110386 = 0.2e1 / 0.3e1 * t13412 * t24705;
33684   t110388 = 0.2e1 / 0.3e1 * t13424 * t24705;
33685   t110390 = 0.2e1 / 0.3e1 * t4026 * t109105;
33686   t110391 = -t110359 - t110361 - t110363 - t110367 - t110369 - t110371 - t110372 * t5146 / 0.3e1 - t24933 * t18813 / 0.3e1 - t24933 * t18816 / 0.3e1 - t110379 * t5146 / 0.3e1 - t110382 * t5146 / 0.3e1 - t110386 - t110388 - t110390;
33687   t110393 = t81 * t110364;
33688   t110395 = 0.6e1 * t110393 * t21245;
33689   t110397 = 0.2e1 * t110393 * t21248;
33690   t110399 = 0.8e1 * t109027 * t21595;
33691   t110401 = 0.6e1 * t109283 * t21598;
33692   t110408 = t7757 * t90856;
33693   t110411 = t4781 * t4926;
33694   t110412 = t7757 * t110411;
33695   t110418 = 0.4e1 * t21426 * t109688;
33696   t110421 = 0.2e1 * t449 * t1252 * t21461;
33697   t110422 = t110395 - t110397 - t110399 + t110401 - t109152 * t24816 / 0.3e1 - t109160 * t24816 / 0.3e1 - 0.2e1 * t21649 * t5455 - 0.5e1 / 0.18e2 * t110408 * t109502 - 0.5e1 / 0.18e2 * t110412 * t109507 - 0.2e1 * t5499 * t21475 + t110418 - t110421 + t109233;
33698   t110423 = t24699 * t4078;
33699   t110424 = t109062 * t1246;
33700   t110425 = t109065 * t1246;
33701   t110426 = t18640 * t5551;
33702   t110427 = t5097 * t21854;
33703   t110429 = t449 * t5135 * t4775;
33704   t110430 = t1476 * t24900;
33705   t110431 = t2448 * t24900;
33706   t110433 = t449 * t4090 * t5460;
33707   t110434 = t5097 * t21795;
33708   t110435 = t109277 * t1246;
33709   t110436 = t109280 * t1246;
33710   t110437 = t109056 * t1246;
33711   t110439 = -t1476 * t24905 + t110423 + t110424 + t110425 - t110426 - t110427 - t110429 - t110430 - t110431 - t110433 - t110434 + t110435 + t110436 + t110437;
33712   t110449 = 0.2e1 * t109059 * t1246;
33713   t110451 = 0.2e1 * t21465 * t5126;
33714   t110453 = 0.2e1 * t21467 * t5126;
33715   t110455 = 0.2e1 * t21469 * t5126;
33716   t110457 = t18560 * t4761 * t1133;
33717   t110461 = 0.10e2 / 0.3e1 * t4013 * t109297;
33718   t110465 = 0.10e2 / 0.27e2 * t21510 * t109695;
33719   t110466 = t34500 * t110411;
33720   t110469 = -0.2e1 * t2448 * t24905 - 0.2e1 * t449 * t3934 * t5550 + t110449 + t110451 + t110453 + t110455 + 0.5e1 / 0.36e2 * t5084 * t110457 + t110461 - t24693 * t109493 / 0.3e1 - t4957 + t110465 + 0.5e1 / 0.6e1 * t110466 * t109511 + t109249;
33721   t110471 = 0.2e1 * t24939 * t3922;
33722   t110473 = 0.2e1 / 0.3e1 * t24693 * t109459;
33723   t110475 = 0.2e1 / 0.3e1 * t24693 * t109529;
33724   t110479 = 0.2e1 / 0.3e1 * t109149 * t24812;
33725   t110481 = 0.2e1 / 0.3e1 * t109152 * t24812;
33726   t110483 = 0.2e1 * t397 * t24958;
33727   t110484 = t109253 + t110471 - t18095 - t18097 - t18100 + t110473 + t110475 - t109149 * t24816 / 0.3e1 + t110479 + t110481 + t24601 - t109261 - t109263 + t110483;
33728   t110489 = 0.2e1 * t81 * t4041 * t5460 * t227;
33729   t110493 = 0.2e1 * t81 * t1231 * t21461 * t227;
33730   t110495 = 0.2e1 * t397 * t24962;
33731   t110500 = t1347 * t1133;
33732   t110502 = t70080 * t110500 * t443;
33733   t110506 = t70080 * t110500 * t404;
33734   t110510 = t50654 * t110500 * t439;
33735   t110516 = 0.8e1 * t21257 * t21858;
33736   t110517 = t397 * t5556;
33737   t110519 = 0.2e1 * t110517 * t1193;
33738   t110520 = t81 * t21833;
33739   t110522 = 0.2e1 * t110520 * t1193;
33740   t110523 = t81 * t21837;
33741   t110525 = 0.2e1 * t110523 * t1193;
33742   t110526 = t110489 + t110493 + t110495 - t109269 - 0.2e1 * t21652 * t5455 - 0.2e1 * t5499 * t21507 - 0.5e1 / 0.6e1 * t70074 * t110502 + 0.5e1 / 0.18e2 * t70086 * t110506 + 0.5e1 / 0.18e2 * t70173 * t110510 - t24693 * t109487 / 0.3e1 - t110516 + t110519 + t110522 + t110525;
33743   t110529 = 0.2e1 * t81 * t24957 * t751;
33744   t110531 = 0.2e1 * t21649 * t5461;
33745   t110533 = 0.2e1 * t21652 * t5461;
33746   t110535 = 0.2e1 * t5499 * t21473;
33747   t110538 = t18369 * t24887;
33748   t110544 = 0.2e1 * t81 * t3811 * t5550 * t227;
33749   t110548 = 0.2e1 * t81 * t1143 * t21791 * t227;
33750   t110551 = 0.2e1 * t81 * t24961 * t751;
33751   t110553 = 0.8e1 * t21423 * t109932;
33752   t110554 = t1397 * t5561;
33753   t110557 = t110529 + t24715 - t110531 - t110533 - t110535 + 0.5e1 / 0.36e2 * t18527 * t24888 + 0.5e1 / 0.36e2 * t5084 * t110538 + t110544 + t110548 - t24739 + t110551 - t109309 + t110553 + 0.5e1 / 0.3e1 * t110554 * t21211;
33754   t110561 = t110098 + t110134 + t110164 + t110194 + t110229 + t110262 + t110300 + t110328 + t110357 + t110391 + t110422 + 0.2e1 * t110439 + t110469 + t110484 + t110526 + t110557;
33755   t110565 = t5566 * t1224;
33756   t110568 = t5478 * t1272;
33757   t110571 = t1354 * t5175;
33758   t110574 = t110561 * t372 * t7 + t21866 * t1224 + t21520 * t1272 + t1355 * t18897 + t24967 * t878 + t5567 * t4006 + t5479 * t4149 + t4797 * t5175 + t110066 + t110565 + t110568 + t110571;
33759   t110575 = t5161 * t1362;
33760   t110578 = t1264 * t5495;
33761   t110581 = t1216 * t5583;
33762   t110584 = t368 * t25002;
33763   t110587 = 0.6e1 * t1357 * t18888;
33764   t110589 = 0.6e1 * t1357 * t18891;
33765   t110591 = 0.6e1 * t5571 * t4000;
33766   t110602 = 0.6e1 * t1219 * t21895 + 0.6e1 * t1219 * t21898 + 0.6e1 * t1219 * t21901 + 0.3e1 * t24975 * t875 + 0.3e1 * t3994 * t5580 + t109360 + t109363 + t109366 + t110587 + t110589 + t110591 + t5079;
33767   t110608 = 0.3e1 * t1267 * t21563;
33768   t110611 = 0.6e1 * t369 * t5560 * t3811;
33769   t110614 = 0.6e1 * t369 * t21462 * t1231;
33770   t110617 = 0.6e1 * t369 * t5471 * t4041;
33771   t110620 = 0.6e1 * t369 * t21488 * t1231;
33772   t110624 = 0.3e1 * t4137 * t5492;
33773   t110627 = 0.6e1 * t369 * t21492 * t1231;
33774   t110630 = 0.6e1 * t369 * t5467 * t4041;
33775   t110633 = 0.3e1 * t1219 * t21909 + 0.3e1 * t21531 * t1269 + 0.3e1 * t18870 * t1359 + 0.6e1 * t3994 * t5577 + t110608 + t110611 + t110614 + t110617 + t110620 + t110624 + t110627 + t110630 + t24759;
33776   t110640 = 0.3e1 * t21877 * t1221;
33777   t110642 = 0.6e1 * t873 * t24999;
33778   t110644 = 0.6e1 * t1357 * t18894;
33779   t110646 = 0.6e1 * t4802 * t5172;
33780   t110652 = 0.6e1 * t873 * t24991;
33781   t110657 = 0.6e1 * t369 * t21802 * t1143;
33782   t110660 = 0.6e1 * t369 * t21806 * t1143;
33783   t110661 = t110561 * t370 * params->d + 0.6e1 * t1219 * t21906 + 0.6e1 * t5483 * t4143 + 0.3e1 * t5483 * t4146 + 0.6e1 * t5166 * t4808 + t109383 + t110640 + t110642 + t110644 + t110646 + t110652 + t110657 + t110660;
33784   t110663 = 0.6e1 * t4137 * t5489;
33785   t110668 = 0.6e1 * t369 * t21448 * t1231;
33786   t110670 = 0.6e1 * t1267 * t21560;
33787   t110672 = 0.6e1 * t873 * t24994;
33788   t110674 = 0.6e1 * t1267 * t21549;
33789   t110676 = 0.3e1 * t5571 * t4003;
33790   t110678 = 0.6e1 * t1267 * t21552;
33791   t110680 = 0.6e1 * t1267 * t21555;
33792   t110681 = 0.3e1 * t5166 * t4811 + t109397 + t110663 + t110668 + t110670 + t110672 + t110674 + t110676 + t110678 + t110680 + t18505 + t18508 + t24774;
33793   t110685 = t110575 + t18859 * t1362 + t5162 * t4814 + t110578 + t4132 * t5495 + t1265 * t21566 + t110581 + t3989 * t5583 + t1217 * t21912 + t110584 + t870 * t25002 + t872 * (t110602 + t110633 + t110661 + t110681);
33794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
33795     v4rhosigma2tau[3] = t110574 + t110685;
33796 
33797   t110686 = t25043 * t372;
33798   t110692 = t1204 * t18923 * t4714;
33799   t110694 = t108567 * t5590;
33800   t110695 = t4173 * t108544 + t3788 * t110692 + t13811 * t24615 + t13870 * t24615 + t13876 * t24615 - t108504 - t108509 - t108513 - t108517 - t108520 - t108523 - t110694;
33801   t110707 = -t108526 / 0.3e1 - t108530 + t108533 + t108536 / 0.3e1 + t108557 / 0.3e1 + t108561 / 0.3e1 + t108565 / 0.3e1 - t108568 / 0.3e1 - t108571 / 0.3e1 - t108574 / 0.3e1 - t108577 / 0.3e1 - t108579 / 0.3e1;
33802   t110713 = t108754 * t5590;
33803   t110715 = t24605 * t21927;
33804   t110721 = t4173 * t108805;
33805   t110723 = t108628 * t21916;
33806   t110726 = t108583 / 0.3e1 + t108585 / 0.3e1 + t108587 / 0.3e1 + t108590 / 0.3e1 - t110713 / 0.3e1 - t110715 / 0.3e1 + t13167 * t25033 / 0.3e1 + t12758 * t25033 / 0.3e1 + t110721 / 0.3e1 + 0.5e1 / 0.3e1 * t110723 + 0.5e1 / 0.3e1 * t108613 - t108620;
33807   t110728 = t108634 * t21916;
33808   t110737 = t12791 * t5587 * t443;
33809   t110742 = t4156 * t108739;
33810   t110744 = t108626 / 0.3e1 + 0.5e1 / 0.3e1 * t110728 - 0.5e1 / 0.3e1 * t4156 * t108866 - 0.5e1 / 0.72e2 * t5179 * t109610 - 0.5e1 / 0.72e2 * t5179 * t108600 - 0.5e1 / 0.3e1 * t3762 * t110737 + 0.5e1 / 0.3e1 * t108629 + 0.5e1 / 0.3e1 * t108635 - 0.5e1 / 0.3e1 * t110742 - t108640 + t108644 - t108647;
33811   t110749 = t108511 * t1310;
33812   t110750 = t24586 * t110749;
33813   t110756 = -t108650 + t108653 - t108657 - t108660 - t108664 + t108667 / 0.3e1 + t108671 / 0.3e1 - t108676 + t108680 - t110750 / 0.3e1 - 0.2e1 * t1476 * t25023 - 0.2e1 * t2448 * t25023;
33814   t110764 = t1204 * t4179 * t1326;
33815   t110768 = t1204 * t71149 * t1326;
33816   t110771 = t13811 * t24611;
33817   t110773 = t13876 * t24611;
33818   t110775 = t13870 * t24611;
33819   t110777 = t4173 * t108589;
33820   t110779 = t4173 * t108666;
33821   t110781 = -0.2e1 * t449 * t19070 * t1326 + t108683 - 0.2e1 * t108684 - 0.2e1 * t108686 - 0.2e1 * t108688 + t3788 * t110764 / 0.3e1 + t3788 * t110768 / 0.3e1 + t110771 / 0.3e1 + t110773 / 0.3e1 + t110775 / 0.3e1 + t110777 / 0.3e1 + t110779 / 0.3e1;
33822   t110783 = t4173 * t108670;
33823   t110785 = t3874 * t1276;
33824   t110786 = t110785 * t108618;
33825   t110787 = t108616 * t110786;
33826   t110790 = t18944 * t5138;
33827   t110793 = t5178 * t18378;
33828   t110797 = t108503 * t25014;
33829   t110799 = t108508 * t25014;
33830   t110801 = t110783 / 0.3e1 - t110787 + t108692 - t108696 + 0.5e1 / 0.72e2 * t86824 * t25008 + 0.5e1 / 0.72e2 * t21210 * t110790 + 0.5e1 / 0.72e2 * t21210 * t110793 + t108698 + t108700 - 0.2e1 * t108704 - t110797 / 0.3e1 - t110799 / 0.3e1;
33831   t110805 = t449 * t1307 * t21315;
33832   t110810 = t108707 + t108710 + t108713 + t108716 + t108719 - 0.5e1 / 0.3e1 * t108740 - 0.5e1 / 0.3e1 * t108744 - 0.2e1 * t110805 - 0.2e1 * t108747 + t108750 - t108752 / 0.3e1 - t108755 / 0.3e1;
33833   t110820 = t18654 * t5587;
33834   t110822 = -t108757 / 0.3e1 - t108759 / 0.3e1 - t108761 / 0.3e1 + t108773 + t108777 - 0.2e1 * t108778 - 0.2e1 * t108781 - 0.2e1 * t108783 - 0.2e1 * t110820 - t108786 - t108788 - t108790;
33835   t110830 = t108751 * t5590;
33836   t110833 = -t108791 / 0.3e1 - t108793 / 0.3e1 - t108796 / 0.3e1 - t108799 / 0.3e1 + t108806 / 0.3e1 + t108822 / 0.3e1 + t108824 / 0.3e1 - t110830 / 0.3e1 + t108826 / 0.3e1 + t108830 + t108833 - t108835;
33837   t110839 = t18640 * t5587;
33838   t110841 = t5097 * t21959;
33839   t110843 = t3923 * t1276;
33840   t110844 = t110843 * t108624;
33841   t110845 = t24586 * t110844;
33842   t110847 = 0.5e1 / 0.72e2 * t86818 * t25008 + 0.5e1 / 0.72e2 * t86821 * t25008 - t108837 - t108839 - t108841 - 0.2e1 * t110839 - 0.2e1 * t110841 + t108843 - t4957 - t108845 + t108847 + t110845 / 0.3e1;
33843   t110848 = t108515 * t1310;
33844   t110849 = t24586 * t110848;
33845   t110851 = t24587 * t4248;
33846   t110852 = t24586 * t110851;
33847   t110854 = t24587 * t4251;
33848   t110855 = t24586 * t110854;
33849   t110857 = t108525 * t25014;
33850   t110859 = -t18095 - t18097 - t18100 + t24594 - t108850 - t110849 / 0.3e1 - t110852 / 0.3e1 - t110855 / 0.3e1 + t24601 - t110857 / 0.3e1 - t108852 - t108854;
33851   t110865 = t5097 * t21955;
33852   t110867 = t4156 * t108743;
33853   t110869 = t2448 * t25018;
33854   t110872 = t449 * t4235 * t5412;
33855   t110874 = t24602 * t21930;
33856   t110876 = t4173 * t108560;
33857   t110878 = -0.2e1 * t449 * t5198 * t4714 - 0.2e1 * t110865 - t108856 - 0.5e1 / 0.3e1 * t110867 - 0.2e1 * t110869 - 0.2e1 * t110872 + t108858 + t108860 + t108862 + t108864 - t110874 / 0.3e1 + t110876 / 0.3e1;
33858   t110879 = t4173 * t108564;
33859   t110885 = t13811 * t24620;
33860   t110887 = t24602 * t21933;
33861   t110889 = t108795 * t5590;
33862   t110891 = t108798 * t5590;
33863   t110893 = t70854 * t18829;
33864   t110896 = t70854 * t18835;
33865   t110899 = t110785 * t108611;
33866   t110900 = t108609 * t110899;
33867   t110902 = t70854 * t18775;
33868   t110905 = t110879 / 0.3e1 + t4173 * t108548 / 0.3e1 + t4173 * t108552 / 0.3e1 + t110885 / 0.3e1 - t110887 / 0.3e1 - t110889 / 0.3e1 - t110891 / 0.3e1 + 0.5e1 / 0.36e2 * t109501 * t110893 + 0.5e1 / 0.36e2 * t109506 * t110896 + 0.5e1 / 0.3e1 * t110900 - 0.5e1 / 0.12e2 * t109510 * t110902 - t24629;
33869   t110923 = t108570 * t5590;
33870   t110925 = t108573 * t5590;
33871   t110927 = t108576 * t5590;
33872   t110929 = t24602 * t21927;
33873   t110931 = 0.5e1 / 0.72e2 * t86929 * t25008 - 0.5e1 / 0.72e2 * t18940 * t24809 - 0.5e1 / 0.72e2 * t18945 * t24809 - 0.5e1 / 0.72e2 * t5179 * t109464 - 0.5e1 / 0.72e2 * t5179 * t109758 + 0.5e1 / 0.12e2 * t71136 * t109515 - 0.5e1 / 0.36e2 * t70858 * t109519 - 0.5e1 / 0.36e2 * t70855 * t109498 - t110923 / 0.3e1 - t110925 / 0.3e1 - t110927 / 0.3e1 - t110929 / 0.3e1;
33874   t110932 = t1476 * t25018;
33875   t110934 = t24605 * t21930;
33876   t110936 = t24605 * t21933;
33877   t110938 = t13876 * t24620;
33878   t110940 = t13870 * t24620;
33879   t110942 = t4173 * t108556;
33880   t110944 = t4173 * t108535;
33881   t110950 = t3958 * t25032;
33882   t110953 = -0.2e1 * t110932 + t108871 + t108874 + t108877 - t110934 / 0.3e1 - t110936 / 0.3e1 + t110938 / 0.3e1 + t110940 / 0.3e1 + t110942 / 0.3e1 + t110944 / 0.3e1 + t4173 * t108819 / 0.3e1 + t12788 * t25033 / 0.3e1 + t3788 * t110950 / 0.3e1;
33883   t110957 = t110695 / 0.3e1 + t110707 + t110726 + t110744 + t110756 + t110781 + t110801 + t110810 + t110822 + t110833 + t110847 + t110859 + t110878 + t110905 + t110931 + t110953;
33884   t110961 = t5593 * t1224;
33885   t110964 = t5430 * t1320;
33886   t110967 = t1333 * t5223;
33887   t110970 = t110957 * t372 * t7 + t21965 * t1224 + t21350 * t1320 + t1334 * t19100 + t25044 * t878 + t5594 * t4006 + t5431 * t4267 + t4737 * t5223 + t110686 + t110961 + t110964 + t110967;
33888   t110971 = t5213 * t1341;
33889   t110974 = t1315 * t5447;
33890   t110977 = t1216 * t5602;
33891   t110980 = t368 * t25065;
33892   t110985 = t5598 * t4000;
33893   t110987 = t1318 * t21379;
33894   t110989 = t1318 * t21382;
33895   t110991 = t110957 * t370 * params->d + 0.3e1 * t108905 + t108908 + t108911 + t108914 + t108917 + t108919 + 0.6e1 * t110985 + 0.6e1 * t110987 + 0.6e1 * t110989 + t5079;
33896   t110993 = t1318 * t21385;
33897   t110995 = t5598 * t4003;
33898   t110997 = t1318 * t21393;
33899   t110999 = t1318 * t21390;
33900   t111005 = 0.3e1 * t25052 * t875 + t108922 + 0.6e1 * t108925 + t108930 + t108932 + 0.6e1 * t108937 + 0.3e1 * t108939 + 0.6e1 * t110993 + 0.3e1 * t110995 + 0.3e1 * t110997 + 0.6e1 * t110999;
33901   t111008 = t4263 * t5441;
33902   t111010 = t4263 * t5444;
33903   t111016 = 0.6e1 * t5218 * t4748 + t108943 + 0.3e1 * t108944 + t108947 + t108950 + 0.6e1 * t108951 + t108955 + t108958 + 0.3e1 * t108959 + 0.6e1 * t111008 + 0.3e1 * t111010;
33904   t111024 = t21976 * t1221;
33905   t111026 = 0.3e1 * t19087 * t1338 + 0.3e1 * t5218 * t4751 + t108964 + 0.6e1 * t108965 + 0.6e1 * t108967 + t108970 + 0.6e1 * t108971 + 0.3e1 * t111024 + t18505 + t18508 + t24665 + t24680;
33906   t111030 = t110971 + t19076 * t1341 + t5214 * t4754 + t110974 + t4258 * t5447 + t1316 * t21396 + t110977 + t3989 * t5602 + t1217 * t21986 + t110980 + t870 * t25065 + t872 * (t110991 + t111005 + t111016 + t111026);
33907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
33908     v4rhosigma2tau[4] = t110970 + t111030;
33909 
33910   t111031 = t25104 * t372;
33911   t111032 = t24725 * t21930;
33912   t111033 = t24725 * t21933;
33913   t111034 = t13811 * t24684;
33914   t111035 = t13876 * t24684;
33915   t111036 = t24722 * t21930;
33916   t111037 = t24722 * t21933;
33917   t111038 = t109133 * t5590;
33918   t111039 = t109136 * t5590;
33919   t111040 = t109139 * t5590;
33920   t111041 = t109070 * t5590;
33921   t111042 = t24725 * t21927;
33922   t111043 = -t111032 - t111033 + t111034 + t111035 - t111036 - t111037 - t111038 - t111039 - t111040 - t111041 - t111042 - t108977;
33923   t111048 = t109300 * t21916;
33924   t111050 = t4173 * t109018;
33925   t111053 = t1204 * t18923 * t4775;
33926   t111056 = t109036 * t5590;
33927   t111058 = t109039 * t5590;
33928   t111061 = -t108979 / 0.3e1 - t108981 / 0.3e1 - t108983 / 0.3e1 + t108533 - t108988 + 0.5e1 / 0.3e1 * t111048 + t111050 / 0.3e1 + t3788 * t111053 / 0.3e1 - t111056 / 0.3e1 - t111058 / 0.3e1 + t109002 / 0.3e1 + t109016;
33929   t111064 = t13876 * t24705;
33930   t111066 = t13870 * t24705;
33931   t111068 = t4173 * t109164;
33932   t111080 = t109241 * t110786;
33933   t111081 = t24693 * t110844;
33934   t111083 = t109019 / 0.3e1 + t111064 / 0.3e1 + t111066 / 0.3e1 + t111068 / 0.3e1 - t109029 + t13811 * t24688 / 0.3e1 + t13876 * t24688 / 0.3e1 + t13870 * t24688 / 0.3e1 + t4173 * t108989 / 0.3e1 + t4173 * t108993 / 0.3e1 - t111080 + t111081 / 0.3e1;
33935   t111092 = -t109031 - t109033 + t109035 - t109037 / 0.3e1 - t109040 / 0.3e1 - t109043 / 0.3e1 - t109046 / 0.3e1 - t109048 / 0.3e1 - t109050 / 0.3e1 - t109052 / 0.3e1 + t109054 / 0.3e1 + t109058;
33936   t111099 = t109061 + t109064 + t109067 - t109071 / 0.3e1 - t109073 / 0.3e1 - t109075 / 0.3e1 - t109077 / 0.3e1 + t109089 - t109091 - t109093 + t109095 - t109097;
33937   t111108 = t1204 * t71149 * t1347;
33938   t111111 = t24693 * t110749;
33939   t111118 = t109098 / 0.3e1 + t109100 / 0.3e1 + t109102 / 0.3e1 + t109106 / 0.3e1 + t109110 / 0.3e1 + t109117 - 0.5e1 / 0.3e1 * t4156 * t109113 + t3788 * t111108 / 0.3e1 - t111111 / 0.3e1 + 0.5e1 / 0.36e2 * t110408 * t110893 + 0.5e1 / 0.36e2 * t110412 * t110896 + t109118 / 0.3e1;
33940   t111120 = t109042 * t5590;
33941   t111121 = t109045 * t5590;
33942   t111122 = t24722 * t21927;
33943   t111124 = t13811 * t24705;
33944   t111125 = t4173 * t109023 + t109120 + t109123 + t109127 + t109131 - t109134 - t109137 - t109140 - t111120 - t111121 - t111122 + t111124;
33945   t111142 = t3958 * t25067;
33946   t111145 = -0.5e1 / 0.12e2 * t110466 * t110902 - 0.2e1 * t109142 - 0.2e1 * t109144 - 0.2e1 * t109147 - t109150 / 0.3e1 - t109153 / 0.3e1 - t109161 / 0.3e1 + t109165 / 0.3e1 + t13167 * t25068 / 0.3e1 + t12758 * t25068 / 0.3e1 + t12788 * t25068 / 0.3e1 + t3788 * t111142 / 0.3e1;
33947   t111150 = t1204 * t4179 * t1347;
33948   t111161 = t12791 * t5606 * t443;
33949   t111164 = t3788 * t111150 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t110333 - 0.5e1 / 0.72e2 * t5179 * t109224 - 0.5e1 / 0.3e1 * t109168 + 0.5e1 / 0.72e2 * t87765 * t25008 + t109171 + t109175 + t109177 + t109179 + t109181 - t108696 - 0.5e1 / 0.3e1 * t3762 * t111161;
33950   t111165 = t109237 * t110899;
33951   t111176 = t108707 + t108710 + t109185 + 0.5e1 / 0.3e1 * t111165 - 0.5e1 / 0.72e2 * t18940 * t24888 - 0.5e1 / 0.72e2 * t18945 * t24888 - 0.5e1 / 0.72e2 * t5179 * t110538 - 0.5e1 / 0.72e2 * t5179 * t110457 - t109189 - t109191 - 0.2e1 * t109193 - t109202;
33952   t111179 = t109303 * t21916;
33953   t111187 = t4173 * t109105;
33954   t111195 = -t109204 - 0.2e1 * t109205 + 0.5e1 / 0.3e1 * t111179 + 0.5e1 / 0.72e2 * t87750 * t25008 + 0.5e1 / 0.72e2 * t87753 * t25008 + 0.5e1 / 0.72e2 * t87775 * t25008 + t109233 + t111187 / 0.3e1 + t109236 + 0.5e1 / 0.12e2 * t71136 * t110502 - 0.5e1 / 0.36e2 * t70858 * t110506 - 0.5e1 / 0.36e2 * t70855 * t110510;
33955   t111198 = t4173 * t109109;
33956   t111200 = t4173 * t109001;
33957   t111202 = 0.5e1 / 0.3e1 * t109238 - t109242 + t109246 / 0.3e1 + t111198 / 0.3e1 - t4957 + t109249 + t109253 + t109255 - t18095 - t18097 - t18100 + t111200 / 0.3e1;
33958   t111206 = t449 * t1307 * t21461;
33959   t111209 = t18654 * t5606;
33960   t111211 = t5097 * t21993;
33961   t111215 = t109149 * t25014;
33962   t111217 = -0.2e1 * t111206 + t24601 + t109257 - 0.2e1 * t109258 - 0.2e1 * t111209 - 0.2e1 * t111211 - t109261 - t109263 - 0.2e1 * t109264 - 0.2e1 * t109266 - t109269 - t111215 / 0.3e1;
33963   t111218 = t109152 * t25014;
33964   t111220 = t109160 * t25014;
33965   t111222 = t13870 * t24684;
33966   t111224 = t4173 * t109122;
33967   t111226 = t4173 * t109126;
33968   t111228 = t4173 * t109130;
33969   t111232 = -t111218 / 0.3e1 - t111220 / 0.3e1 + t111222 / 0.3e1 + t111224 / 0.3e1 + t111226 / 0.3e1 + t111228 / 0.3e1 - t109271 - t109274 - t109276 + t109279 + t109282 + t4173 * t108997 / 0.3e1;
33970   t111237 = t1476 * t25093;
33971   t111239 = t2448 * t25093;
33972   t111242 = t449 * t4235 * t5460;
33973   t111247 = t4156 * t109297;
33974   t111249 = t109285 - t109287 + t24715 - 0.2e1 * t449 * t5198 * t4775 - 0.2e1 * t111237 - 0.2e1 * t111239 - 0.2e1 * t111242 - 0.5e1 / 0.3e1 * t109298 + 0.5e1 / 0.3e1 * t109301 + 0.5e1 / 0.3e1 * t109304 - t24739 - 0.5e1 / 0.3e1 * t111247;
33975   t111254 = t4156 * t109167;
33976   t111256 = t18640 * t5606;
33977   t111258 = t5097 * t21998;
33978   t111267 = t24693 * t110848;
33979   t111269 = t24693 * t110851;
33980   t111271 = t24693 * t110854;
33981   t111273 = 0.5e1 / 0.72e2 * t21510 * t110790 + 0.5e1 / 0.72e2 * t21510 * t110793 - 0.5e1 / 0.3e1 * t111254 - t109307 - 0.2e1 * t111256 - 0.2e1 * t111258 - t109309 - 0.2e1 * t1476 * t25090 - 0.2e1 * t2448 * t25090 - 0.2e1 * t449 * t19070 * t1347 - t111267 / 0.3e1 - t111269 / 0.3e1 - t111271 / 0.3e1;
33982   t111277 = t111043 / 0.3e1 + t111061 + t111083 + t111092 + t111099 + t111118 + t111125 / 0.3e1 + t111145 + t111164 + t111176 + t111195 + t111202 + t111217 + t111232 + t111249 + t111273;
33983   t111281 = t5611 * t1224;
33984   t111284 = t5478 * t1320;
33985   t111287 = t1354 * t5223;
33986   t111290 = t111277 * t372 * t7 + t22027 * t1224 + t21520 * t1320 + t1355 * t19100 + t25105 * t878 + t5612 * t4006 + t5479 * t4267 + t4797 * t5223 + t111031 + t111281 + t111284 + t111287;
33987   t111291 = t5213 * t1362;
33988   t111294 = t1315 * t5495;
33989   t111297 = t1216 * t5620;
33990   t111300 = t368 * t25126;
33991   t111303 = t5616 * t4003;
33992   t111305 = t1318 * t21560;
33993   t111311 = 0.3e1 * t5218 * t4811 + 0.6e1 * t109337 + t109341 + t109344 + t109346 + t109348 + 0.6e1 * t109349 + 0.6e1 * t109353 + 0.3e1 * t111303 + 0.6e1 * t111305 + t5079;
33994   t111314 = t4263 * t5492;
33995   t111316 = t22038 * t1221;
33996   t111318 = t1318 * t21552;
33997   t111320 = t1318 * t21555;
33998   t111322 = t1318 * t21549;
33999   t111324 = 0.6e1 * t109355 + 0.6e1 * t109357 + t109360 + t109363 + t109366 + 0.3e1 * t111314 + 0.3e1 * t111316 + 0.6e1 * t111318 + 0.6e1 * t111320 + 0.6e1 * t111322 + t24759;
34000   t111326 = t1318 * t21563;
34001   t111334 = 0.3e1 * t19087 * t1359 + 0.3e1 * t25113 * t875 + t109375 + 0.6e1 * t109376 + t109379 + t109383 + 0.3e1 * t109384 + t109387 + t109390 + t109393 + 0.3e1 * t111326;
34002   t111335 = t4263 * t5489;
34003   t111344 = t5616 * t4000;
34004   t111346 = t111277 * t370 * params->d + 0.6e1 * t5218 * t4808 + 0.3e1 * t109394 + t109397 + 0.3e1 * t109398 + 0.3e1 * t109400 + t109404 + 0.6e1 * t111335 + 0.6e1 * t111344 + t18505 + t18508 + t24774;
34005   t111350 = t111291 + t19076 * t1362 + t5214 * t4814 + t111294 + t4258 * t5495 + t1316 * t21566 + t111297 + t3989 * t5620 + t1217 * t22048 + t111300 + t870 * t25126 + t872 * (t111311 + t111324 + t111334 + t111346);
34006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34007     v4rhosigma2tau[5] = t111290 + t111350;
34008 
34009   t111351 = t25170 * t372;
34010   t111356 = t19113 * t18363;
34011   t111359 = t24815 * t4103;
34012   t111361 = 0.32e2 / 0.9e1 * t24586 * t111359;
34013   t111383 = -0.4e1 / 0.3e1 * t13412 * t24791 - 0.4e1 / 0.3e1 * t13424 * t24791 - t108530 - 0.5e1 / 0.3e1 * t87029 * t111356 + t108533 - t111361 - 0.2e1 * t1476 * t25157 - 0.2e1 * t2448 * t25157 - 0.2e1 * t449 * t19298 * t1326 - 0.4e1 * t21649 * t5507 - 0.4e1 * t21652 * t5507 - 0.4e1 * t5499 * t21661 - 0.5e1 / 0.18e2 * t19122 * t108801 + 0.4e1 / 0.3e1 * t24781 * t21587 + 0.4e1 / 0.3e1 * t24781 * t21590 + 0.4e1 / 0.3e1 * t109751 * t5510;
34014   t111388 = t13344 * t19272;
34015   t111409 = 0.40e2 / 0.27e2 * t71771 * t24623;
34016   t111411 = 0.32e2 / 0.9e1 * t24784 * t21668;
34017   t111413 = 0.32e2 / 0.9e1 * t13453 * t24791;
34018   t111415 = 0.32e2 / 0.9e1 * t13453 * t24778;
34019   t111420 = 0.4e1 / 0.3e1 * t109806 * t5510 + 0.4e1 / 0.3e1 * t109809 * t5510 + 0.6e1 * t21244 * t111388 - 0.4e1 * t5499 * t21640 - 0.4e1 * t449 * t1252 * t21608 + 0.4e1 / 0.3e1 * t109739 * t5510 + 0.4e1 / 0.3e1 * t109742 * t5510 - 0.4e1 / 0.3e1 * t13424 * t24778 - 0.4e1 / 0.3e1 * t4026 * t109875 - 0.4e1 / 0.3e1 * t4026 * t109879 - 0.4e1 / 0.3e1 * t4026 * t109883 + t111409 - t111411 + t111413 + t111415 - 0.4e1 / 0.3e1 * t4026 * t109893 - 0.4e1 / 0.3e1 * t13412 * t24795;
34020   t111434 = t19118 * t18373;
34021   t111437 = t19113 * t18382;
34022   t111458 = -0.4e1 / 0.3e1 * t13424 * t24795 - 0.4e1 / 0.3e1 * t4026 * t109903 - 0.4e1 / 0.3e1 * t4026 * t109907 - 0.4e1 / 0.3e1 * t4026 * t109911 - 0.4e1 / 0.3e1 * t4026 * t109915 - 0.4e1 / 0.3e1 * t13412 * t24778 + 0.5e1 / 0.9e1 * t21210 * t111434 + 0.5e1 / 0.9e1 * t21210 * t111437 - 0.4e1 * t21649 * t5502 - 0.4e1 * t21652 * t5502 - 0.4e1 * t5499 * t21624 - 0.2e1 * t449 * t5267 * t4714 - 0.4e1 * t1476 * t25160 - 0.4e1 * t2448 * t25160 - 0.4e1 * t449 * t4090 * t5506 - 0.16e2 * t109646 * t21595;
34023   t111464 = t14483 * t19271 * t443;
34024   t111468 = 0.32e2 / 0.9e1 * t13453 * t24795;
34025   t111478 = t14483 * t19279 * t443;
34026   t111481 = t13344 * t19280;
34027   t111484 = t14483 * t19283;
34028   t111487 = t14483 * t19287;
34029   t111498 = 0.12e2 * t109649 * t21598 - 0.4e1 * t109649 * t21665 - 0.8e1 * t21239 * t111464 + t111468 + 0.5e1 / 0.18e2 * t86929 * t25137 + 0.5e1 / 0.18e2 * t86818 * t25137 + 0.5e1 / 0.18e2 * t86821 * t25137 + 0.5e1 / 0.18e2 * t86824 * t25137 + 0.8e1 * t21239 * t111478 - 0.6e1 * t21244 * t111481 - 0.4e1 * t21244 * t111484 + 0.4e1 * t21244 * t111487 + 0.4e1 / 0.3e1 * t109733 * t5510 + 0.4e1 / 0.3e1 * t109736 * t5510 + t108680 + 0.4e1 / 0.3e1 * t108525 * t25128 + 0.4e1 / 0.3e1 * t108503 * t25128;
34030   t111503 = t14483 * t19277;
34031   t111506 = t19143 * t23764;
34032   t111508 = 0.40e2 / 0.27e2 * t21210 * t111506;
34033   t111510 = 0.32e2 / 0.9e1 * t24781 * t21668;
34034   t111519 = t109482 * t1255;
34035   t111522 = t109486 * t1255;
34036   t111525 = t24815 * t4106;
34037   t111528 = 0.4e1 / 0.3e1 * t108508 * t25128 - 0.2e1 * t21244 * t111503 - t111508 - t111510 - 0.16e2 * t109637 * t21595 + 0.12e2 * t109640 * t21598 - 0.4e1 * t109640 * t21665 + t108692 - t108696 + t108700 + t108707 + t108710 - 0.4e1 * t5499 * t21609 + 0.4e1 / 0.3e1 * t24586 * t111519 + 0.4e1 / 0.3e1 * t24586 * t111522 + 0.4e1 / 0.3e1 * t24586 * t111525;
34038   t111529 = t4049 * t1226;
34039   t111530 = t111529 * t108618;
34040   t111533 = t4079 * t1226;
34041   t111534 = t111533 * t108624;
34042   t111565 = 0.4e1 * t108616 * t111530 - 0.4e1 / 0.3e1 * t24586 * t111534 - 0.20e2 / 0.3e1 * t109604 * t21637 - 0.20e2 / 0.3e1 * t109754 * t21637 - 0.4e1 / 0.3e1 * t4026 * t109413 - 0.4e1 / 0.3e1 * t4026 * t109417 - 0.4e1 / 0.3e1 * t4026 * t109421 + 0.2e1 * t5427 * t19275 + 0.4e1 * t109861 * t1246 + 0.4e1 * t109864 * t1246 + 0.4e1 * t109780 * t1246 - t108790 - 0.2e1 * t21201 * t5260 - 0.2e1 * t21204 * t5260 - 0.2e1 * t21207 * t5260 + 0.4e1 * t109707 * t1246 + 0.4e1 * t109710 * t1246;
34043   t111590 = 0.4e1 * t109922 * t1246 - t4957 + 0.4e1 * t24822 * t4078 - t108845 + 0.4e1 * t81 * t25165 * t751 - t18095 - t18097 - t18100 + t24594 - 0.4e1 / 0.3e1 * t4026 * t109633 - 0.5e1 / 0.18e2 * t71540 * t24623 - 0.5e1 / 0.18e2 * t19122 * t108812 - 0.5e1 / 0.18e2 * t19122 * t108815 + 0.4e1 / 0.3e1 * t109812 * t5510 + 0.4e1 / 0.3e1 * t24784 * t21587 + 0.4e1 / 0.3e1 * t24784 * t21590 + 0.4e1 * t397 * t25166;
34044   t111609 = t111529 * t108611;
34045   t111624 = 0.4e1 * t81 * t4041 * t5506 * t227 + 0.4e1 * t81 * t1231 * t21608 * t227 + t24601 - t108854 - 0.16e2 * t21675 * t21644 - 0.5e1 / 0.9e1 * t19122 * t108604 + 0.20e2 / 0.3e1 * t4013 * t109854 + 0.4e1 * t24826 * t4078 + 0.20e2 / 0.3e1 * t4013 * t109471 - 0.20e2 / 0.3e1 * t108609 * t111609 + 0.20e2 / 0.3e1 * t4013 * t109791 - t24629 + 0.5e1 / 0.3e1 * t19114 * t108592 - 0.5e1 / 0.9e1 * t19119 * t108596 + 0.2e1 * t21201 * t5256 + 0.2e1 * t21204 * t5256 + 0.2e1 * t21207 * t5256;
34046   t111627 = t111383 + t111420 + t111458 + t111498 + t111528 + t111565 + t111590 + t111624;
34047   t111632 = 0.2e1 * t5523 * t1272;
34048   t111637 = t1333 * t5297;
34049   t111640 = t5285 * t1341;
34050   t111644 = 0.2e1 * t1264 * t5540;
34051   t111649 = t368 * t25197;
34052   t111684 = 0.12e2 * t1231 * t21627 * t369 + 0.12e2 * t1231 * t21633 * t369 + 0.12e2 * t369 * t4041 * t5513 + 0.12e2 * t369 * t4041 * t5517 + 0.6e1 * t369 * t4714 * t5235 + 0.12e2 * t1267 * t21734 + 0.12e2 * t1267 * t21739 + 0.6e1 * t1267 * t21742 + 0.12e2 * t1336 * t19353 + 0.3e1 * t19338 * t1338 + 0.3e1 * t25179 * t875 + 0.12e2 * t873 * t25194 + 0.12e2 * t5528 * t4143 + 0.6e1 * t5290 * t4748 + t108930 + t108932 + t5079;
34053   t111707 = t111627 * t370 * params->d + 0.12e2 * t1267 * t21728 + 0.12e2 * t1267 * t21731 + 0.6e1 * t21710 * t1269 + 0.6e1 * t1336 * t19350 + 0.6e1 * t873 * t25191 + 0.12e2 * t4137 * t5534 + 0.6e1 * t4137 * t5537 + 0.6e1 * t5528 * t4146 + 0.6e1 * t4742 * t5294 + 0.3e1 * t5290 * t4751 + t108955 + t108958 + t108964 + t18505 + t18508 + t24665 + t24680;
34054   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34055     v4rhosigma2tau[6] = t111351 + t7 * t111627 * t372 + t25171 * t878 + t111632 + 0.2e1 * t21699 * t1272 + 0.2e1 * t5524 * t4149 + t111637 + t4737 * t5297 + t1334 * t19356 + t111640 + t19327 * t1341 + t5286 * t4754 + t111644 + 0.2e1 * t4132 * t5540 + 0.2e1 * t1265 * t21745 + t111649 + t870 * t25197 + t872 * (t111684 + t111707);
34056 
34057   t111710 = t25239 * t372;
34058   t111718 = 0.32e2 / 0.9e1 * t24936 * t21668;
34059   t111720 = 0.32e2 / 0.9e1 * t13453 * t24909;
34060   t111743 = -0.4e1 * t21426 * t111484 + 0.4e1 * t21426 * t111487 - 0.16e2 * t110365 * t21595 - t111718 + t111720 - 0.4e1 / 0.3e1 * t4026 * t110157 - 0.5e1 / 0.18e2 * t71540 * t24708 - 0.4e1 / 0.3e1 * t4026 * t110209 - 0.4e1 / 0.3e1 * t4026 * t110213 - 0.5e1 / 0.18e2 * t19122 * t109012 - 0.16e2 * t110286 * t21595 + 0.12e2 * t110289 * t21598 - 0.4e1 * t110289 * t21665 - 0.4e1 / 0.3e1 * t13412 * t24928 - 0.4e1 / 0.3e1 * t13424 * t24928 - 0.4e1 / 0.3e1 * t4026 * t110205;
34061   t111765 = 0.32e2 / 0.9e1 * t24933 * t21668;
34062   t111778 = -0.4e1 / 0.3e1 * t13412 * t24913 - 0.4e1 / 0.3e1 * t13424 * t24913 - 0.4e1 / 0.3e1 * t4026 * t110113 + 0.4e1 / 0.3e1 * t110277 * t5510 + 0.4e1 / 0.3e1 * t24936 * t21587 + 0.4e1 / 0.3e1 * t24936 * t21590 + 0.5e1 / 0.18e2 * t87750 * t25137 + 0.5e1 / 0.18e2 * t87753 * t25137 + 0.5e1 / 0.18e2 * t87775 * t25137 + 0.5e1 / 0.18e2 * t87765 * t25137 - t111765 + 0.4e1 / 0.3e1 * t110282 * t5510 + 0.4e1 / 0.3e1 * t110372 * t5510 + 0.4e1 / 0.3e1 * t24933 * t21587 + 0.4e1 / 0.3e1 * t24933 * t21590 - 0.4e1 / 0.3e1 * t4026 * t110166 - 0.4e1 / 0.3e1 * t13412 * t24909;
34063   t111793 = 0.32e2 / 0.9e1 * t13453 * t24913;
34064   t111795 = 0.40e2 / 0.27e2 * t21510 * t111506;
34065   t111811 = 0.40e2 / 0.27e2 * t71771 * t24708;
34066   t111812 = -0.4e1 / 0.3e1 * t13424 * t24909 - 0.4e1 / 0.3e1 * t4026 * t110091 - 0.4e1 / 0.3e1 * t4026 * t110095 - 0.4e1 / 0.3e1 * t4026 * t110100 - 0.4e1 / 0.3e1 * t4026 * t110104 + 0.12e2 * t110393 * t21598 + t111793 - t111795 + 0.8e1 * t21423 * t111478 - 0.6e1 * t21426 * t111481 - 0.5e1 / 0.18e2 * t19122 * t109006 - 0.5e1 / 0.18e2 * t19122 * t109009 - 0.2e1 * t21426 * t111503 + 0.4e1 / 0.3e1 * t110226 * t5510 + 0.4e1 / 0.3e1 * t110379 * t5510 + t111811;
34067   t111814 = 0.32e2 / 0.9e1 * t13453 * t24928;
34068   t111845 = t111814 + 0.4e1 / 0.3e1 * t110382 * t5510 + 0.4e1 / 0.3e1 * t110191 * t5510 + 0.4e1 / 0.3e1 * t110230 * t5510 + t108533 - 0.5e1 / 0.9e1 * t19122 * t109228 - 0.2e1 * t21465 * t5260 - 0.2e1 * t21467 * t5260 - 0.2e1 * t21469 * t5260 + 0.4e1 * t110517 * t1246 + 0.4e1 * t110520 * t1246 + 0.4e1 * t110523 * t1246 + 0.20e2 / 0.3e1 * t4013 * t110268 + 0.5e1 / 0.9e1 * t21510 * t111434 + 0.5e1 / 0.9e1 * t21510 * t111437 + 0.4e1 / 0.3e1 * t109149 * t25128 + 0.4e1 * t24939 * t4078;
34069   t111876 = 0.2e1 * t5475 * t19275 + 0.5e1 / 0.3e1 * t19114 * t109216 - 0.5e1 / 0.9e1 * t19119 * t109220 + 0.20e2 / 0.3e1 * t4013 * t110251 + 0.20e2 / 0.3e1 * t4013 * t110272 - t108696 + 0.2e1 * t21465 * t5256 + 0.2e1 * t21467 * t5256 + 0.2e1 * t21469 * t5256 + 0.4e1 * t81 * t25201 * t751 + t108707 + t108710 - 0.20e2 / 0.3e1 * t109237 * t111609 - 0.2e1 * t449 * t5267 * t4775 + 0.4e1 * t109241 * t111530 - 0.4e1 / 0.3e1 * t24693 * t111534;
34070   t111909 = t109233 - 0.2e1 * t1476 * t25209 - 0.2e1 * t2448 * t25209 - 0.2e1 * t449 * t19298 * t1347 - 0.20e2 / 0.3e1 * t110554 * t21637 - 0.5e1 / 0.3e1 * t87504 * t111356 + 0.4e1 * t24942 * t4078 - 0.4e1 * t449 * t1252 * t21791 + 0.4e1 / 0.3e1 * t24693 * t111519 + 0.4e1 / 0.3e1 * t24693 * t111522 + 0.4e1 / 0.3e1 * t24693 * t111525 - t4957 + 0.4e1 * t397 * t25202 + 0.4e1 * t81 * t4041 * t5550 * t227 + 0.4e1 * t81 * t1231 * t21791 * t227 + t109249 + t109253;
34071   t111932 = -0.4e1 * t4090 * t449 * t5550 - 0.4e1 * t1476 * t25212 - 0.4e1 * t21649 * t5546 - 0.4e1 * t21649 * t5551 - 0.4e1 * t21652 * t5551 - 0.16e2 * t21675 * t21858 - 0.4e1 * t5499 * t21792 - 0.4e1 * t5499 * t21795 - 0.4e1 * t5499 * t21854 - 0.4e1 * t2448 * t25212 - t109261 - t109263 - t109269 - t18095 - t18097 - t18100 + t24601;
34072   t111934 = 0.32e2 / 0.9e1 * t24693 * t111359;
34073   t111961 = -t111934 - 0.4e1 * t21652 * t5546 - 0.4e1 * t5499 * t21816 + t24715 - 0.4e1 / 0.3e1 * t4026 * t110117 - 0.4e1 / 0.3e1 * t4026 * t110070 - 0.4e1 * t110393 * t21665 - 0.8e1 * t21423 * t111464 + 0.6e1 * t21426 * t111388 - t24739 - 0.20e2 / 0.3e1 * t110338 * t21637 + 0.4e1 * t110256 * t1246 + 0.4e1 * t110259 * t1246 + 0.4e1 * t110264 * t1246 - t109309 + 0.4e1 / 0.3e1 * t109152 * t25128 + 0.4e1 / 0.3e1 * t109160 * t25128;
34074   t111964 = t111743 + t111778 + t111812 + t111845 + t111876 + t111909 + t111932 + t111961;
34075   t111969 = 0.2e1 * t5566 * t1272;
34076   t111974 = t1354 * t5297;
34077   t111977 = t5285 * t1362;
34078   t111981 = 0.2e1 * t1264 * t5583;
34079   t111986 = t368 * t25266;
34080   t112018 = t111964 * t370 * params->d + 0.12e2 * t1231 * t21802 * t369 + 0.12e2 * t1231 * t21806 * t369 + 0.12e2 * t369 * t4041 * t5556 + 0.12e2 * t369 * t4041 * t5560 + 0.12e2 * t1267 * t21906 + 0.6e1 * t21877 * t1269 + 0.12e2 * t1357 * t19353 + 0.3e1 * t25248 * t875 + 0.6e1 * t873 * t25260 + 0.12e2 * t873 * t25263 + 0.6e1 * t4137 * t5580 + 0.6e1 * t5571 * t4146 + t109360 + t109363 + t109366 + t5079;
34081   t112044 = 0.6e1 * t369 * t4775 * t5235 + 0.12e2 * t1267 * t21895 + 0.12e2 * t1267 * t21898 + 0.12e2 * t1267 * t21901 + 0.6e1 * t1267 * t21909 + 0.6e1 * t1357 * t19350 + 0.3e1 * t19338 * t1359 + 0.12e2 * t4137 * t5577 + 0.12e2 * t5571 * t4143 + 0.6e1 * t4802 * t5294 + 0.6e1 * t5290 * t4808 + 0.3e1 * t5290 * t4811 + t109383 + t109397 + t18505 + t18508 + t24759 + t24774;
34082   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34083     v4rhosigma2tau[7] = t111710 + t7 * t111964 * t372 + t25240 * t878 + t111969 + 0.2e1 * t21866 * t1272 + 0.2e1 * t5567 * t4149 + t111974 + t4797 * t5297 + t1355 * t19356 + t111977 + t19327 * t1362 + t5286 * t4814 + t111981 + 0.2e1 * t4132 * t5583 + 0.2e1 * t1265 * t21912 + t111986 + t870 * t25266 + t872 * (t112018 + t112044);
34084 
34085   t112047 = t25308 * t372;
34086   t112059 = 0.16e2 / 0.9e1 * t13453 * t25033;
34087   t112074 = t4173 * t109903 / 0.3e1 + t4173 * t109907 / 0.3e1 + t4173 * t109911 / 0.3e1 + t4173 * t109915 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t110692 + t112059 - t109751 * t5590 / 0.3e1 - t109806 * t5590 / 0.3e1 - t109809 * t5590 / 0.3e1 - t109812 * t5590 / 0.3e1 - t24784 * t21927 / 0.3e1 - t24784 * t21930 / 0.3e1 - t24784 * t21933 / 0.3e1;
34088   t112085 = t13811 * t24791 / 0.3e1 + t13876 * t24791 / 0.3e1 + t13870 * t24791 / 0.3e1 + t4173 * t109413 / 0.3e1 + t4173 * t109417 / 0.3e1 - t109425 - t109427 - t109430 - t109433 + t109435 + t109437 + t109439 + t109441 + t109444;
34089   t112113 = -t24781 * t21930 / 0.3e1 - t24781 * t21933 / 0.3e1 + t4173 * t109633 / 0.3e1 - 0.2e1 / 0.3e1 * t13412 * t25033 - 0.2e1 / 0.3e1 * t13424 * t25033 - 0.2e1 / 0.3e1 * t4026 * t110950 - 0.2e1 / 0.3e1 * t4026 * t110764 - 0.2e1 / 0.3e1 * t4026 * t110768 - t109733 * t5590 / 0.3e1 - t109736 * t5590 / 0.3e1 - t108525 * t25294 / 0.3e1 - t108503 * t25294 / 0.3e1 - t108508 * t25294 / 0.3e1;
34090   t112118 = t5178 * t19450;
34091   t112120 = 0.10e2 / 0.27e2 * t21210 * t112118;
34092   t112127 = -t108530 + t108533 - t109448 - t109450 - t109453 + t13811 * t24778 / 0.3e1 + t13876 * t24778 / 0.3e1 + t109455 + t112120 + t109458 + t109461 + t4173 * t109421 / 0.3e1 + t4173 * t109893 / 0.3e1 + t13811 * t24795 / 0.3e1;
34093   t112145 = t1326 * t57;
34094   t112158 = t70854 * t19439;
34095   t112161 = t70854 * t19444;
34096   t112166 = t13876 * t24795 / 0.3e1 + t13870 * t24795 / 0.3e1 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4715 * t57 + 0.5e1 / 0.36e2 * t18940 * t25284 + 0.5e1 / 0.36e2 * t18945 * t25284 + 0.5e1 / 0.36e2 * t5179 * t18369 * t25283 - 0.5e1 / 0.6e1 * t71136 * t70080 * t112145 * t443 + 0.5e1 / 0.18e2 * t70858 * t70080 * t112145 * t404 + 0.5e1 / 0.18e2 * t70855 * t50654 * t112145 * t439 + t109477 - 0.5e1 / 0.18e2 * t109501 * t112158 - 0.5e1 / 0.18e2 * t109506 * t112161 - 0.5e1 / 0.3e1 * t4156 * t109791;
34097   t112170 = 0.10e2 / 0.27e2 * t5179 * t18560 * t1327 * t423;
34098   t112175 = t4049 * t1276;
34099   t112176 = t112175 * t108611;
34100   t112179 = t112175 * t108618;
34101   t112181 = t4079 * t1276;
34102   t112182 = t112181 * t108624;
34103   t112185 = t18944 * t5312;
34104   t112188 = -t112170 - 0.5e1 / 0.3e1 * t4156 * t109471 + 0.10e2 / 0.3e1 * t4013 * t110737 + 0.5e1 / 0.3e1 * t108609 * t112176 - t108616 * t112179 + t24586 * t112182 / 0.3e1 + t108680 + t109524 + t109526 + t109531 - t109537 + t108692 - 0.5e1 / 0.36e2 * t21210 * t112185 + t109544;
34105   t112190 = -t108696 + t108700 + t109546 + t109550 + t109557 + t108707 + t108710 - t109562 + t109564 - t109567 - t109569 - t109571 - t109573;
34106   t112197 = -0.2e1 * t21649 * t5587 - 0.2e1 * t21652 * t5587 - 0.2e1 * t5499 * t21959 - t109575 - t109577 - t109580 - t109584 - t109586 - t109592 - t109594 - t109596 - t109601 - t109608 + t109614;
34107   t112213 = 0.2e1 / 0.3e1 * t109617 + 0.2e1 / 0.3e1 * t109618 + 0.2e1 / 0.3e1 * t109619 + 0.2e1 / 0.3e1 * t109620 + 0.2e1 / 0.3e1 * t109621 + 0.2e1 / 0.3e1 * t109622 + 0.2e1 / 0.3e1 * t109623 - 0.2e1 / 0.3e1 * t109625 - 0.2e1 / 0.3e1 * t109626 - 0.2e1 / 0.3e1 * t109627 - 0.2e1 / 0.3e1 * t109628 - 0.2e1 / 0.3e1 * t109629 - t109639;
34108   t112220 = t109642 - t109644 - t109648 + t109651 - t109653 - t109655 - t109657 - t109659 + t109663 - 0.5e1 / 0.36e2 * t86824 * t25280 + 0.5e1 / 0.3e1 * t109604 * t21916 + 0.5e1 / 0.3e1 * t109754 * t21916 + t109666 - t108790;
34109   t112230 = t70854 * t19431;
34110   t112240 = t13870 * t24778 / 0.3e1 + t4173 * t109875 / 0.3e1 + t4173 * t109879 / 0.3e1 + t4173 * t109883 / 0.3e1 + t109678 + t109682 + 0.5e1 / 0.6e1 * t109510 * t112230 + t109690 - t4957 - t108845 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4694 * t57 - 0.2e1 * t449 * t1307 * t21608 - t109699;
34111   t112250 = -0.2e1 * t4235 * t449 * t5506 - 0.2e1 * t1476 * t25299 - 0.2e1 * t5499 * t21955 - 0.2e1 * t2448 * t25299 + t109701 - t109706 + t109709 + t109712 - t109728 - t109732 - t18095 - t18097 - t18100 + t24594;
34112   t112253 = t109482 * t1310;
34113   t112256 = t109486 * t1310;
34114   t112259 = t24815 * t4248;
34115   t112262 = t24815 * t4251;
34116   t112265 = -t109762 - t109764 - t109767 - t24586 * t112253 / 0.3e1 - t24586 * t112256 / 0.3e1 - t24586 * t112259 / 0.3e1 - t24586 * t112262 / 0.3e1 + t24601 + t109769 + t109771 + t109773 + t109775 + t109777;
34117   t112266 = t109779 + t109782 - t108854 + t109784 - t109787 + t109798 + t109800 - t109803 + t109805 - t109822 + t109824 - t109826 - t109829 + t109831;
34118   t112276 = -t109833 - t109837 + t109840 - t109843 + t109847 - 0.5e1 / 0.3e1 * t4156 * t109854 - 0.5e1 / 0.36e2 * t86929 * t25280 - 0.5e1 / 0.36e2 * t86818 * t25280 - 0.5e1 / 0.36e2 * t86821 * t25280 - t109851 - t109853 - t24629 + t109863 + t109866;
34119   t112283 = -t109868 + t109887 - t109889 - t109891 - t109919 - t109921 + t109924 + t109926 + t109928 + t109930 + t109934 - t109739 * t5590 / 0.3e1 - t109742 * t5590 / 0.3e1 - t24781 * t21927 / 0.3e1;
34120   t112287 = t112074 + t112085 + t112113 + t112127 + t112166 + t112188 + t112190 + t112197 + t112213 + t112220 + t112240 + t112250 + t112265 + t112266 + t112276 + t112283;
34121   t112291 = t5593 * t1272;
34122   t112294 = t5523 * t1320;
34123   t112297 = t1333 * t5331;
34124   t112300 = t112287 * t372 * t7 + t21965 * t1272 + t21699 * t1320 + t1334 * t19524 + t25309 * t878 + t5594 * t4149 + t5524 * t4267 + t4737 * t5331 + t112047 + t112291 + t112294 + t112297;
34125   t112301 = t5322 * t1341;
34126   t112304 = t1315 * t5540;
34127   t112307 = t1264 * t5602;
34128   t112310 = t368 * t25327;
34129   t112322 = 0.6e1 * t1318 * t21728 + 0.6e1 * t1318 * t21731 + 0.6e1 * t1318 * t21739 + 0.3e1 * t1318 * t21742 + 0.6e1 * t5327 * t4748 + t109967 + t109969 + t109971 + t109979 + t109981 + t109983 + t109986;
34130   t112327 = 0.6e1 * t1318 * t21734 + 0.6e1 * t4263 * t5534 + t108930 + t108932 + t109989 + t109992 + t109994 + t109997 + t110000 + t110003 + t110007 + t110009 + t5079;
34131   t112345 = t112287 * t370 * params->d + 0.3e1 * t21976 * t1269 + 0.3e1 * t19514 * t1338 + 0.3e1 * t25317 * t875 + 0.6e1 * t5598 * t4143 + 0.3e1 * t5598 * t4146 + 0.3e1 * t4263 * t5537 + 0.3e1 * t5327 * t4751 + t110014 + t110016 + t110020 + t110022 + t110024;
34132   t112346 = t110037 + t110040 + t108955 + t108958 + t110045 + t108964 + t110050 + t110052 + t18508 + t24665 + t110054 + t18505 + t24680;
34133   t112350 = t112301 + t19503 * t1341 + t5323 * t4754 + t112304 + t4258 * t5540 + t1316 * t21745 + t112307 + t4132 * t5602 + t1265 * t21986 + t112310 + t870 * t25327 + t872 * (t112322 + t112327 + t112345 + t112346);
34134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34135     v4rhosigma2tau[8] = t112300 + t112350;
34136 
34137   t112351 = t25356 * t372;
34138   t112352 = -t110074 + t110076 - t110078 - t110080 + t110082 - t110084 + t110086 - t110121 - t110123 - t110125 - t110127 - t110129 - t110131;
34139   t112355 = t110137 + t110139 + t110141 + t110143 + t110145 + t110147 + t110149 + t110151 + t110153 + t110155 + t110161 + t110163 - t110176 + t4173 * t110157 / 0.3e1;
34140   t112383 = -0.2e1 / 0.3e1 * t13412 * t25068 - t110226 * t5590 / 0.3e1 - t110379 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t111053 + t4173 * t110100 / 0.3e1 - t24933 * t21933 / 0.3e1 - t110382 * t5590 / 0.3e1 - t110191 * t5590 / 0.3e1 - t109149 * t25294 / 0.3e1 - t109152 * t25294 / 0.3e1 - t109160 * t25294 / 0.3e1 - t24693 * t112253 / 0.3e1 - t110282 * t5590 / 0.3e1;
34141   t112401 = 0.10e2 / 0.27e2 * t21510 * t112118;
34142   t112408 = -t110372 * t5590 / 0.3e1 - t24933 * t21927 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t111150 - 0.2e1 / 0.3e1 * t4026 * t111108 + t4173 * t110104 / 0.3e1 + t13811 * t24913 / 0.3e1 + t13876 * t24913 / 0.3e1 + t13870 * t24913 / 0.3e1 + t112401 + t108533 + t110182 - t24693 * t112256 / 0.3e1 - t24693 * t112259 / 0.3e1 - t24693 * t112262 / 0.3e1;
34143   t112412 = 0.16e2 / 0.9e1 * t13453 * t25068;
34144   t112416 = 0.10e2 / 0.27e2 * t5179 * t18560 * t1348 * t423;
34145   t112432 = -t110186 - t110188 + t110190 - t110198 + t112412 - t112416 + 0.5e1 / 0.36e2 * t18940 * t25349 + 0.5e1 / 0.36e2 * t18945 * t25349 + 0.5e1 / 0.36e2 * t5179 * t18369 * t25348 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4761 * t57 + 0.5e1 / 0.3e1 * t110554 * t21916 - 0.5e1 / 0.3e1 * t4156 * t110251 - t110236;
34146   t112445 = t110238 - t110240 + t110244 + t110250 + t110255 + t110258 + t110261 + t110266 - 0.5e1 / 0.36e2 * t87765 * t25280 - 0.5e1 / 0.36e2 * t21510 * t112185 + 0.5e1 / 0.3e1 * t110338 * t21916 + t4173 * t110113 / 0.3e1 + t4173 * t110117 / 0.3e1 - t24933 * t21930 / 0.3e1;
34147   t112463 = 0.5e1 / 0.6e1 * t110466 * t112230 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4776 * t57 - 0.5e1 / 0.3e1 * t4156 * t110268 + 0.10e2 / 0.3e1 * t4013 * t111161 + t13870 * t24928 / 0.3e1 + t4173 * t110205 / 0.3e1 + t4173 * t110209 / 0.3e1 - t110288 + t110291 - t110293 - t110295 - t110297 - t110299;
34148   t112472 = -t110302 - t110304 + t4173 * t110213 / 0.3e1 - 0.5e1 / 0.36e2 * t87750 * t25280 - 0.5e1 / 0.36e2 * t87753 * t25280 - 0.5e1 / 0.36e2 * t87775 * t25280 - t110306 - t110308 + t110310 - t110312 - t110314 - t110316 - t110318 - t110320;
34149   t112478 = -t110322 - t110324 - 0.5e1 / 0.3e1 * t4156 * t110272 - t108696 + t110350 + t108707 + t108710 - t110353 - t110356 - t110359 - t110361 - t110363 - t110367;
34150   t112489 = -t110369 - t110371 - t24936 * t21927 / 0.3e1 - t24936 * t21930 / 0.3e1 - t24936 * t21933 / 0.3e1 + t13811 * t24928 / 0.3e1 + t13876 * t24928 / 0.3e1 - t110386 - t110388 - t110390 + t110395 - t110397 - t110399 + t110401;
34151   t112491 = t1347 * t57;
34152   t112508 = -0.5e1 / 0.6e1 * t71136 * t70080 * t112491 * t443 + 0.5e1 / 0.18e2 * t70858 * t70080 * t112491 * t404 + t110418 - t110421 + t109233 + 0.2e1 * t110423 + 0.2e1 * t110424 + 0.2e1 * t110425 - 0.2e1 * t110426 - 0.2e1 * t110427 - 0.2e1 * t110429 - 0.2e1 * t110430 - 0.2e1 * t110431;
34153   t112517 = -0.2e1 * t110433 - 0.2e1 * t110434 + 0.2e1 * t110435 + 0.2e1 * t110436 + 0.2e1 * t110437 + t110449 + t110451 + t110453 + t110455 + t110461 - t4957 + 0.5e1 / 0.3e1 * t109237 * t112176 - t109241 * t112179 + t109249;
34154   t112535 = t109253 - 0.2e1 * t5499 * t21993 + t110471 - t18095 - t18097 - t18100 - 0.2e1 * t1476 * t25343 - 0.2e1 * t449 * t1307 * t21791 - t110277 * t5590 / 0.3e1 - 0.2e1 * t21649 * t5606 - 0.2e1 * t21652 * t5606 - 0.2e1 * t5499 * t21998 + t110473;
34155   t112542 = t110475 + t110479 + t110481 + t24601 - t109261 - t109263 + t110483 + t110489 + t110493 + t110495 - t109269 - t110230 * t5590 / 0.3e1 - 0.5e1 / 0.18e2 * t110408 * t112158 - 0.5e1 / 0.18e2 * t110412 * t112161;
34156   t112563 = -t110516 + t110519 + t110522 + t110525 + t24693 * t112182 / 0.3e1 + t13811 * t24909 / 0.3e1 + t13876 * t24909 / 0.3e1 + t13870 * t24909 / 0.3e1 + t4173 * t110091 / 0.3e1 - 0.2e1 * t2448 * t25343 - 0.2e1 * t449 * t4235 * t5550 + t110529 + t24715 + 0.5e1 / 0.18e2 * t70855 * t50654 * t112491 * t439;
34157   t112574 = -t110531 - t110533 - t110535 + t110544 + t110548 - 0.2e1 / 0.3e1 * t13424 * t25068 - 0.2e1 / 0.3e1 * t4026 * t111142 + t4173 * t110166 / 0.3e1 + t4173 * t110070 / 0.3e1 - t24739 + t110551 - t109309 + t110553 + t4173 * t110095 / 0.3e1;
34158   t112578 = t112352 + t112355 + t112383 + t112408 + t112432 + t112445 + t112463 + t112472 + t112478 + t112489 + t112508 + t112517 + t112535 + t112542 + t112563 + t112574;
34159   t112582 = t5611 * t1272;
34160   t112585 = t5566 * t1320;
34161   t112588 = t1354 * t5331;
34162   t112591 = t112578 * t372 * t7 + t22027 * t1272 + t21866 * t1320 + t1355 * t19524 + t25357 * t878 + t5612 * t4149 + t5567 * t4267 + t4797 * t5331 + t112351 + t112582 + t112585 + t112588;
34163   t112592 = t5322 * t1362;
34164   t112595 = t1315 * t5583;
34165   t112598 = t1264 * t5620;
34166   t112601 = t368 * t25375;
34167   t112615 = 0.3e1 * t22038 * t1269 + 0.6e1 * t1318 * t21906 + 0.3e1 * t1318 * t21909 + 0.3e1 * t19514 * t1359 + 0.6e1 * t5616 * t4143 + 0.3e1 * t5616 * t4146 + t109360 + t109363 + t110587 + t110589 + t110591 + t5079;
34168   t112622 = t112578 * t370 * params->d + 0.3e1 * t25365 * t875 + 0.3e1 * t4263 * t5580 + t109366 + t110608 + t110611 + t110614 + t110617 + t110620 + t110624 + t110627 + t110630 + t24759;
34169   t112630 = 0.6e1 * t1318 * t21895 + 0.6e1 * t1318 * t21898 + 0.6e1 * t4263 * t5577 + t109383 + t110640 + t110642 + t110644 + t110646 + t110652 + t110657 + t110660 + t110663 + t110668;
34170   t112637 = 0.6e1 * t1318 * t21901 + 0.6e1 * t5327 * t4808 + 0.3e1 * t5327 * t4811 + t109397 + t110670 + t110672 + t110674 + t110676 + t110678 + t110680 + t18505 + t18508 + t24774;
34171   t112641 = t112592 + t19503 * t1362 + t5323 * t4814 + t112595 + t4258 * t5583 + t1316 * t21912 + t112598 + t4132 * t5620 + t1265 * t22048 + t112601 + t870 * t25375 + t872 * (t112615 + t112622 + t112630 + t112637);
34172   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34173     v4rhosigma2tau[9] = t112591 + t112641;
34174 
34175   t112642 = t25396 * t372;
34176   t112652 = t19531 * t18363;
34177   t112655 = t19564 * t18373;
34178   t112658 = t5178 * t19702;
34179   t112661 = t19531 * t18382;
34180   t112669 = 0.2e1 / 0.3e1 * t13811 * t25033 + 0.2e1 / 0.3e1 * t13876 * t25033 + 0.2e1 / 0.3e1 * t13870 * t25033 - 0.2e1 / 0.3e1 * t110694 - t108530 + t108533 - 0.2e1 / 0.3e1 * t110713 - 0.2e1 / 0.3e1 * t110715 - 0.5e1 / 0.12e2 * t87029 * t112652 + 0.5e1 / 0.36e2 * t21210 * t112655 + 0.5e1 / 0.36e2 * t21210 * t112658 + 0.5e1 / 0.36e2 * t21210 * t112661 - 0.10e2 / 0.3e1 * t4156 * t110737 + 0.2e1 / 0.3e1 * t110721 + 0.10e2 / 0.3e1 * t110723 + 0.10e2 / 0.3e1 * t110728;
34181   t112696 = 0.5e1 / 0.72e2 * t86929 * t25377 + 0.5e1 / 0.72e2 * t86818 * t25377 + 0.5e1 / 0.72e2 * t86821 * t25377 + 0.5e1 / 0.72e2 * t86824 * t25377 + 0.2e1 / 0.3e1 * t4173 * t110950 + 0.2e1 / 0.3e1 * t4173 * t110764 + 0.2e1 / 0.3e1 * t4173 * t110768 + 0.2e1 / 0.3e1 * t4173 * t110692 - 0.5e1 / 0.72e2 * t73019 * t24623 - 0.5e1 / 0.72e2 * t19532 * t108812 - 0.5e1 / 0.72e2 * t19532 * t108815 - 0.10e2 / 0.3e1 * t110742 - 0.2e1 * t449 * t5381 * t4714 - t108640 + t108644 - t108647 - t108650;
34182   t112706 = t108653 - t108657 - t108660 - t108664 - t108676 + t108680 - 0.2e1 / 0.3e1 * t110750 + t108683 + 0.2e1 / 0.3e1 * t110771 + 0.2e1 / 0.3e1 * t110773 + 0.2e1 / 0.3e1 * t110775 + 0.2e1 / 0.3e1 * t110777 + 0.2e1 / 0.3e1 * t110779 + 0.2e1 / 0.3e1 * t110783 - 0.2e1 * t110787 + t108692;
34183   t112717 = -t108696 + t108698 + t108700 - 0.2e1 / 0.3e1 * t110797 - 0.2e1 / 0.3e1 * t110799 - 0.2e1 * t449 * t19689 * t1326 + t108707 + t108710 + t108713 + t108716 + t108719 - 0.4e1 * t110805 + t108750 + t108773 + t108777 + 0.5e1 / 0.12e2 * t19560 * t108592 - 0.5e1 / 0.36e2 * t19565 * t108596;
34184   t112730 = -0.5e1 / 0.36e2 * t5179 * t18560 * t1327 * t4166 - 0.5e1 / 0.36e2 * t19532 * t108604 - 0.4e1 * t110820 - t108786 - t108788 - t108790 - 0.2e1 / 0.3e1 * t110830 + t108830 + t108833 - t108835 - t108837 - t108839 - t108841 - 0.4e1 * t110839 - 0.4e1 * t110841 + t108843;
34185   t112740 = -t4957 - t108845 + t108847 + 0.2e1 / 0.3e1 * t110845 - 0.2e1 * t1476 * t25383 - 0.2e1 * t2448 * t25383 - t18095 - t18097 - t18100 + t24594 - t108850 - 0.2e1 / 0.3e1 * t110849 - 0.2e1 / 0.3e1 * t110852 - 0.2e1 / 0.3e1 * t110855 + t24601 - 0.2e1 / 0.3e1 * t110857 - t108852;
34186   t112753 = -t108854 - 0.4e1 * t110865 - t108856 - 0.10e2 / 0.3e1 * t110867 - 0.4e1 * t110869 - 0.4e1 * t110872 + t108858 + t108860 + t108862 + t108864 - 0.2e1 / 0.3e1 * t110874 + 0.2e1 / 0.3e1 * t110876 + 0.2e1 / 0.3e1 * t110879 + 0.2e1 / 0.3e1 * t110885 - 0.2e1 / 0.3e1 * t110887 - 0.2e1 / 0.3e1 * t110889 - 0.2e1 / 0.3e1 * t110891;
34187   t112768 = 0.10e2 / 0.3e1 * t110900 - t24629 - 0.5e1 / 0.72e2 * t19532 * t108801 - 0.2e1 / 0.3e1 * t110923 - 0.2e1 / 0.3e1 * t110925 - 0.2e1 / 0.3e1 * t110927 - 0.2e1 / 0.3e1 * t110929 - 0.4e1 * t110932 + t108871 + t108874 + t108877 - 0.2e1 / 0.3e1 * t110934 - 0.2e1 / 0.3e1 * t110936 + 0.2e1 / 0.3e1 * t110938 + 0.2e1 / 0.3e1 * t110940 + 0.2e1 / 0.3e1 * t110942 + 0.2e1 / 0.3e1 * t110944;
34188   t112771 = t112669 + t112696 + t112706 + t112717 + t112730 + t112740 + t112753 + t112768;
34189   t112776 = 0.2e1 * t5593 * t1320;
34190   t112781 = t1333 * t5399;
34191   t112784 = t5391 * t1341;
34192   t112788 = 0.2e1 * t1315 * t5602;
34193   t112793 = t368 * t25412;
34194   t112804 = 0.3e1 * t19732 * t1338 + t108908 + t108911 + t108914 + t108917 + t108919 + t108922 + t108930 + t108932 + 0.12e2 * t110985 + 0.12e2 * t110987 + 0.12e2 * t110989 + 0.12e2 * t110993 + 0.6e1 * t110995 + 0.6e1 * t110997 + 0.12e2 * t110999 + t5079;
34195   t112816 = t112771 * t370 * params->d + 0.3e1 * t25405 * t875 + 0.6e1 * t5396 * t4748 + 0.3e1 * t5396 * t4751 + t108943 + t108947 + t108950 + t108955 + t108958 + t108964 + t108970 + 0.12e2 * t111008 + 0.6e1 * t111010 + 0.6e1 * t111024 + t18505 + t18508 + t24665 + t24680;
34196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34197     v4rhosigma2tau[10] = t112642 + t7 * t112771 * t372 + t25397 * t878 + t112776 + 0.2e1 * t21965 * t1320 + 0.2e1 * t5594 * t4267 + t112781 + t4737 * t5399 + t1334 * t19739 + t112784 + t19721 * t1341 + t5392 * t4754 + t112788 + 0.2e1 * t4258 * t5602 + 0.2e1 * t1316 * t21986 + t112793 + t870 * t25412 + t872 * (t112804 + t112816);
34198 
34199   t112819 = t25432 * t372;
34200   t112825 = t4173 * t111142 + t4173 * t111150 + t13811 * t25068 + t13870 * t25068 + t13876 * t25068 - t111032 - t111033 + t111034 + t111035 - t111036 - t111037 - t111038 - t111039 - t111040 - t111041 - t111042;
34201   t112838 = 0.2e1 / 0.3e1 * t4173 * t111108 + t108533 - t108988 + 0.10e2 / 0.3e1 * t111048 + 0.2e1 / 0.3e1 * t111050 - 0.2e1 / 0.3e1 * t111056 - 0.2e1 / 0.3e1 * t111058 + t109016 + 0.2e1 / 0.3e1 * t111064 + 0.2e1 / 0.3e1 * t111066 + 0.2e1 / 0.3e1 * t111068 - t109029 - 0.2e1 * t111080 + 0.2e1 / 0.3e1 * t111081 - t109031 - t109033 + t109035;
34202   t112848 = t109058 + t109061 + t109064 + t109067 + t109089 - t109091 - t109093 + t109095 - t109097 + t109117 - 0.2e1 / 0.3e1 * t111111 + 0.5e1 / 0.36e2 * t21510 * t112655 + 0.5e1 / 0.36e2 * t21510 * t112658 - 0.2e1 / 0.3e1 * t111120 - 0.2e1 / 0.3e1 * t111121 - 0.2e1 / 0.3e1 * t111122;
34203   t112866 = 0.2e1 / 0.3e1 * t111124 - 0.10e2 / 0.3e1 * t4156 * t111161 + 0.2e1 / 0.3e1 * t4173 * t111053 - 0.5e1 / 0.72e2 * t73019 * t24708 - 0.5e1 / 0.72e2 * t19532 * t109006 - 0.5e1 / 0.72e2 * t19532 * t109009 + t109171 + t109175 + t109177 + t109179 + t109181 - t108696 - 0.5e1 / 0.72e2 * t19532 * t109012 + 0.5e1 / 0.72e2 * t87750 * t25377 + 0.5e1 / 0.72e2 * t87753 * t25377 + t108707 + t108710;
34204   t112886 = 0.5e1 / 0.12e2 * t19560 * t109216 - 0.5e1 / 0.36e2 * t19565 * t109220 + t109185 + 0.10e2 / 0.3e1 * t111165 - 0.5e1 / 0.12e2 * t87504 * t112652 - t109189 - t109191 - 0.2e1 * t449 * t5381 * t4775 - t109202 - t109204 + 0.10e2 / 0.3e1 * t111179 - 0.2e1 * t2448 * t25414 - 0.2e1 * t449 * t19689 * t1347 + t109233 + 0.2e1 / 0.3e1 * t111187 + t109236;
34205   t112898 = 0.2e1 / 0.3e1 * t111198 - t4957 + t109249 + t109253 - 0.2e1 * t1476 * t25414 + t109255 - t18095 - t18097 - t18100 + 0.5e1 / 0.72e2 * t87775 * t25377 + 0.5e1 / 0.72e2 * t87765 * t25377 + 0.2e1 / 0.3e1 * t111200 - 0.4e1 * t111206 + t24601 + t109257 - 0.4e1 * t111209 - 0.4e1 * t111211;
34206   t112909 = -t109261 - t109263 - t109269 - 0.2e1 / 0.3e1 * t111215 - 0.2e1 / 0.3e1 * t111218 - 0.2e1 / 0.3e1 * t111220 + 0.5e1 / 0.36e2 * t21510 * t112661 + 0.2e1 / 0.3e1 * t111222 + 0.2e1 / 0.3e1 * t111224 + 0.2e1 / 0.3e1 * t111226 + 0.2e1 / 0.3e1 * t111228 - t109271 - t109274 - t109276 + t109279 + t109282 + t109285;
34207   t112926 = -t109287 + t24715 - 0.4e1 * t111237 - 0.4e1 * t111239 - 0.4e1 * t111242 - t24739 - 0.10e2 / 0.3e1 * t111247 - 0.10e2 / 0.3e1 * t111254 - 0.5e1 / 0.36e2 * t5179 * t18560 * t1348 * t4166 - 0.5e1 / 0.36e2 * t19532 * t109228 - t109307 - 0.4e1 * t111256 - 0.4e1 * t111258 - t109309 - 0.2e1 / 0.3e1 * t111267 - 0.2e1 / 0.3e1 * t111269 - 0.2e1 / 0.3e1 * t111271;
34208   t112929 = 0.2e1 / 0.3e1 * t112825 + t112838 + t112848 + t112866 + t112886 + t112898 + t112909 + t112926;
34209   t112934 = 0.2e1 * t5611 * t1320;
34210   t112939 = t1354 * t5399;
34211   t112942 = t5391 * t1362;
34212   t112946 = 0.2e1 * t1315 * t5620;
34213   t112951 = t368 * t25448;
34214   t112964 = t112929 * t370 * params->d + 0.3e1 * t5396 * t4811 + t109341 + t109344 + t109346 + t109348 + t109360 + t109363 + t109366 + 0.6e1 * t111303 + 0.12e2 * t111305 + 0.6e1 * t111314 + 0.6e1 * t111316 + 0.12e2 * t111318 + 0.12e2 * t111320 + 0.12e2 * t111322 + t5079;
34215   t112974 = 0.3e1 * t19732 * t1359 + 0.3e1 * t25441 * t875 + 0.6e1 * t5396 * t4808 + t109375 + t109379 + t109383 + t109387 + t109390 + t109393 + t109397 + t109404 + 0.6e1 * t111326 + 0.12e2 * t111335 + 0.12e2 * t111344 + t18505 + t18508 + t24759 + t24774;
34216   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34217     v4rhosigma2tau[11] = t112819 + t7 * t112929 * t372 + t25433 * t878 + t112934 + 0.2e1 * t22027 * t1320 + 0.2e1 * t5612 * t4267 + t112939 + t4797 * t5399 + t1355 * t19739 + t112942 + t19721 * t1362 + t5392 * t4814 + t112946 + 0.2e1 * t4258 * t5620 + 0.2e1 * t1316 * t22048 + t112951 + t870 * t25448 + t872 * (t112964 + t112974);
34218 
34219   t112977 = t14152 * t24620;
34220   t112979 = t14156 * t24620;
34221   t112981 = t14848 * t24620;
34222   t112983 = t4412 * t24619;
34223   t112984 = t3788 * t112983;
34224   t112987 = t1204 * t929 * t5412;
34225   t112988 = t3788 * t112987;
34226   t112991 = t1204 * t14718 * t5412;
34227   t112992 = t3788 * t112991;
34228   t112995 = t1204 * t1144 * t4830;
34229   t112996 = t3788 * t112995;
34230   t113004 = t4412 * t24614;
34231   t113008 = t1204 * t4316 * t1326;
34232   t113012 = t1204 * t74227 * t1326;
34233   t113016 = t1204 * t3789 * t22061;
34234   t113017 = t3788 * t113016;
34235   t113021 = t5044 * t22105;
34236   t113024 = 0.2e1 / 0.3e1 * t112977 + 0.2e1 / 0.3e1 * t112979 + 0.2e1 / 0.3e1 * t112981 + 0.2e1 / 0.3e1 * t112984 + 0.2e1 / 0.3e1 * t112988 + 0.2e1 / 0.3e1 * t112992 + 0.2e1 / 0.3e1 * t112996 + 0.2e1 / 0.3e1 * t14152 * t24615 + 0.2e1 / 0.3e1 * t14156 * t24615 + 0.2e1 / 0.3e1 * t14848 * t24615 + 0.2e1 / 0.3e1 * t3788 * t113004 + 0.2e1 / 0.3e1 * t3788 * t113008 + 0.2e1 / 0.3e1 * t3788 * t113012 + 0.2e1 / 0.3e1 * t113017 - 0.5e1 / 0.72e2 * t74362 * t24623 - 0.5e1 / 0.72e2 * t18055 * t113021;
34237   t113025 = t5044 * t22109;
34238   t113029 = 0.16e2 * t108655 * t22087;
34239   t113031 = 0.12e2 * t108658 * t22090;
34240   t113033 = 0.4e1 * t108658 * t22093;
34241   t113035 = 0.16e2 * t108662 * t22087;
34242   t113042 = t14152 * t24611;
34243   t113044 = t14156 * t24611;
34244   t113046 = t14848 * t24611;
34245   t113048 = t4412 * t24610;
34246   t113049 = t3788 * t113048;
34247   t113052 = t1204 * t4312 * t1326;
34248   t113053 = t3788 * t113052;
34249   t113056 = t1204 * t4305 * t1326;
34250   t113057 = t3788 * t113056;
34251   t113059 = t24602 * t20217;
34252   t113061 = t2378 * t5424;
34253   t113062 = t113061 * t5146;
34254   t113064 = t5044 * t22113;
34255   t113067 = -0.5e1 / 0.72e2 * t18055 * t113025 - t113029 + t113031 - t113033 - t113035 + 0.5e1 / 0.72e2 * t90008 * t23765 + 0.5e1 / 0.72e2 * t89797 * t23765 + 0.5e1 / 0.72e2 * t90323 * t23765 + 0.2e1 / 0.3e1 * t113042 + 0.2e1 / 0.3e1 * t113044 + 0.2e1 / 0.3e1 * t113046 + 0.2e1 / 0.3e1 * t113049 + 0.2e1 / 0.3e1 * t113053 + 0.2e1 / 0.3e1 * t113057 - 0.2e1 / 0.3e1 * t113059 - 0.2e1 / 0.3e1 * t113062 - 0.5e1 / 0.72e2 * t18055 * t113064;
34256   t113070 = t14483 * t18338 * t912;
34257   t113072 = 0.8e1 * t21239 * t113070;
34258   t113073 = t13344 * t19936;
34259   t113075 = 0.6e1 * t21244 * t113073;
34260   t113076 = t14483 * t19939;
34261   t113078 = 0.4e1 * t21244 * t113076;
34262   t113079 = t14483 * t19942;
34263   t113081 = 0.4e1 * t21244 * t113079;
34264   t113083 = t1204 * t18210 * t4830;
34265   t113087 = 0.4e1 * t108828 * t22093;
34266   t113089 = t14483 * t18330 * t912;
34267   t113091 = 0.8e1 * t21239 * t113089;
34268   t113092 = t13344 * t19875;
34269   t113094 = 0.6e1 * t21244 * t113092;
34270   t113095 = t14483 * t19934;
34271   t113097 = 0.2e1 * t21244 * t113095;
34272   t113098 = t2378 * t5420;
34273   t113099 = t113098 * t5146;
34274   t113101 = t400 * t22160;
34275   t113102 = t113101 * t5146;
34276   t113104 = t400 * t22163;
34277   t113105 = t113104 * t5146;
34278   t113109 = t113072 - t113075 - t113078 + t113081 + 0.2e1 / 0.3e1 * t3788 * t113083 - t113087 - t113091 + t113094 - t113097 - 0.2e1 / 0.3e1 * t113099 - 0.2e1 / 0.3e1 * t113102 - 0.2e1 / 0.3e1 * t113105 - t19748 - t19750 - t19753 + 0.5e1 / 0.72e2 * t89958 * t23765;
34279   t113110 = t881 * t5423;
34280   t113112 = 0.4e1 * t113110 * t1193;
34281   t113113 = t81 * t22124;
34282   t113115 = 0.4e1 * t113113 * t1193;
34283   t113116 = t81 * t22128;
34284   t113118 = 0.4e1 * t113116 * t1193;
34285   t113119 = t24605 * t20211;
34286   t113121 = t24605 * t20214;
34287   t113123 = t24605 * t20217;
34288   t113125 = t400 * t22125;
34289   t113126 = t113125 * t5146;
34290   t113128 = t400 * t22129;
34291   t113129 = t113128 * t5146;
34292   t113131 = t400 * t22136;
34293   t113132 = t113131 * t5146;
34294   t113135 = 0.2e1 * t22050 * t5032;
34295   t113137 = 0.2e1 * t22050 * t5028;
34296   t113139 = 0.2e1 * t22165 * t5028;
34297   t113141 = 0.2e1 * t22167 * t5028;
34298   t113142 = t108634 * t22053;
34299   t113144 = t108628 * t22053;
34300   t113146 = t881 * t5419;
34301   t113148 = 0.4e1 * t113146 * t1193;
34302   t113150 = 0.2e1 * t22167 * t5032;
34303   t113151 = t113112 + t113115 + t113118 - 0.2e1 / 0.3e1 * t113119 - 0.2e1 / 0.3e1 * t113121 - 0.2e1 / 0.3e1 * t113123 - 0.2e1 / 0.3e1 * t113126 - 0.2e1 / 0.3e1 * t113129 - 0.2e1 / 0.3e1 * t113132 - t113135 + t113137 + t113139 + t113141 + 0.10e2 / 0.3e1 * t113142 + 0.10e2 / 0.3e1 * t113144 + t113148 - t113150;
34304   t113155 = 0.2e1 * t22165 * t5032;
34305   t113157 = t12791 * t5413 * t912;
34306   t113158 = t3762 * t113157;
34307   t113163 = 0.2e1 * t81 * t4954 * t4830 * t227;
34308   t113165 = 0.8e1 * t108528 * t4836;
34309   t113166 = t18054 * t19965;
34310   t113169 = t18088 * t19973;
34311   t113172 = t18048 * t19977;
34312   t113175 = t18054 * t19981;
34313   t113178 = t5048 * t22132;
34314   t113179 = t3762 * t113178;
34315   t113181 = t18560 * t22132;
34316   t113185 = t18560 * t1327 * t883;
34317   t113189 = t18560 * t1327 * t4282;
34318   t113193 = t68216 * t1327 * t908;
34319   t113197 = 0.4e1 * t881 * t24596;
34320   t113201 = 0.4e1 * t81 * t4311 * t5412 * t227;
34321   t113205 = 0.4e1 * t81 * t1143 * t22061 * t227;
34322   t113206 = -t113155 - 0.10e2 / 0.3e1 * t113158 + t113163 - t113165 - 0.5e1 / 0.12e2 * t87029 * t113166 + 0.5e1 / 0.36e2 * t21210 * t113169 + 0.5e1 / 0.36e2 * t21210 * t113172 + 0.5e1 / 0.36e2 * t21210 * t113175 - 0.10e2 / 0.3e1 * t113179 + 0.5e1 / 0.12e2 * t18082 * t113181 - 0.5e1 / 0.36e2 * t18089 * t113185 - 0.5e1 / 0.36e2 * t18049 * t113189 - 0.5e1 / 0.36e2 * t18055 * t113193 + t113197 + t113201 + t113205;
34323   t113215 = t449 * t4391 * t5412;
34324   t113218 = 0.4e1 * t5097 * t22062;
34325   t113220 = t449 * t1199 * t22061;
34326   t113225 = t2442 * t24637;
34327   t113227 = t4302 * t24637;
34328   t113230 = 0.2e1 * t5427 * t19933;
34329   t113232 = 0.2e1 * t104821 * t1327;
34330   t113234 = 0.2e1 * t23823 * t4820;
34331   t113236 = 0.4e1 * t20284 * t5413;
34332   t113238 = 0.4e1 * t5097 * t22155;
34333   t113239 = t81 * t22159;
34334   t113241 = 0.4e1 * t113239 * t1193;
34335   t113242 = t81 * t22162;
34336   t113244 = 0.4e1 * t113242 * t1193;
34337   t113246 = 0.4e1 * t24640 * t4380;
34338   t113247 = -0.2e1 * t1326 * t19953 * t449 - 0.2e1 * t449 * t4830 * t5039 - 0.2e1 * t2442 * t24634 - 0.2e1 * t4302 * t24634 - 0.4e1 * t113215 - t113218 - 0.4e1 * t113220 - 0.4e1 * t113225 - 0.4e1 * t113227 + t113230 - t113232 - t113234 - t113236 - t113238 + t113241 + t113244 + t113246;
34339   t113250 = 0.4e1 * t24643 * t4380;
34340   t113252 = t66 * t73 * t999;
34341   t113253 = t108610 * t113252;
34342   t113254 = t108616 * t113253;
34343   t113257 = t66 * t73 * t1033;
34344   t113258 = t108622 * t113257;
34345   t113259 = t24586 * t113258;
34346   t113262 = 0.2e1 * t881 * t24599;
34347   t113265 = 0.2e1 * t81 * t20021 * t227;
34348   t113268 = 0.8e1 * t4720 * t108693 * t912;
34349   t113270 = 0.16e2 * t21257 * t22141;
34350   t113272 = 0.2e1 * t23823 * t4831;
34351   t113273 = t17457 * t24585;
34352   t113274 = t113273 * t24588;
34353   t113276 = t17515 * t24585;
34354   t113277 = t113276 * t24588;
34355   t113281 = t4720 * t4830 * t167 * t14483;
34356   t113282 = t113281 * t24588;
34357   t113285 = t12791 * t5407 * t912;
34358   t113290 = 0.2e1 * t81 * t5054 * t1037;
34359   t113291 = t400 * t22121;
34360   t113292 = t113291 * t5146;
34361   t113294 = t113250 - 0.2e1 * t113254 + 0.2e1 / 0.3e1 * t113259 - t4957 + t113262 + t113265 + t24594 - t113268 - t113270 - t113272 + t24601 - 0.2e1 / 0.3e1 * t113274 - 0.2e1 / 0.3e1 * t113277 - 0.2e1 / 0.3e1 * t113282 - 0.10e2 / 0.3e1 * t3762 * t113285 + t113290 - 0.2e1 / 0.3e1 * t113292;
34362   t113295 = t24602 * t20211;
34363   t113297 = t24602 * t20214;
34364   t113300 = 0.2e1 * t881 * t24592;
34365   t113302 = 0.12e2 * t108828 * t22090;
34366   t113305 = 0.4e1 * t81 * t24595 * t1037;
34367   t113306 = t66 * t14501;
34368   t113307 = t108610 * t113306;
34369   t113308 = t108609 * t113307;
34370   t113310 = t20281 * t5407;
34371   t113312 = t20284 * t5407;
34372   t113314 = t5097 * t22172;
34373   t113316 = t5097 * t22148;
34374   t113319 = 0.4e1 * t20281 * t5413;
34375   t113322 = 0.2e1 * t81 * t24591 * t1037;
34376   t113323 = t14321 * t25;
34377   t113324 = t113323 * t1205;
34378   t113325 = t24586 * t113324;
34379   t113327 = t3874 * t883;
34380   t113328 = t113327 * t1205;
34381   t113329 = t24586 * t113328;
34382   t113331 = t24587 * t4409;
34383   t113332 = t24586 * t113331;
34384   t113334 = t24587 * t4413;
34385   t113335 = t24586 * t113334;
34386   t113337 = -0.2e1 / 0.3e1 * t113295 - 0.2e1 / 0.3e1 * t113297 + t113300 - t24629 + t113302 + t113305 + 0.10e2 / 0.3e1 * t113308 - 0.4e1 * t113310 - 0.4e1 * t113312 - 0.4e1 * t113314 - 0.4e1 * t113316 - t113319 + t113322 - 0.2e1 / 0.3e1 * t113325 - 0.2e1 / 0.3e1 * t113329 - 0.2e1 / 0.3e1 * t113332 - 0.2e1 / 0.3e1 * t113335;
34387   t113340 = t113024 + t113067 + t113109 + t113151 + t113206 + t113247 + t113294 + t113337;
34388   t113359 = t4445 * t5441;
34389   t113362 = 0.6e1 * t1336 * t20113;
34390   t113365 = 0.6e1 * t369 * t4839 * t4954;
34391   t113368 = 0.6e1 * t369 * t4843 * t4954;
34392   t113371 = 0.6e1 * t369 * t4947 * t4830;
34393   t113372 = t4445 * t5444;
34394   t113376 = 0.12e2 * t369 * t5419 * t4311;
34395   t113378 = 0.6e1 * t4855 * t5074;
34396   t113382 = 0.6e1 * t1125 * t24672;
34397   t113383 = t1125 * t24678;
34398   t113384 = 0.6e1 * t113383;
34399   t113385 = t1219 * t22218;
34400   t113388 = 0.12e2 * t1125 * t24675;
34401   t113389 = t1219 * t22215;
34402   t113391 = 0.3e1 * t24658 * t1127 + 0.6e1 * t5070 * t4861 + 0.12e2 * t113359 + t113362 + t113365 + t113368 + t113371 + 0.6e1 * t113372 + t113376 + t113378 + t113382 + t113384 + 0.6e1 * t113385 + t113388 + 0.12e2 * t113389 + t20112 + t5079;
34403   t113393 = 0.3e1 * t4855 * t5077;
34404   t113394 = t5435 * t4454;
34405   t113396 = t5435 * t4451;
34406   t113400 = t1219 * t22204;
34407   t113404 = 0.12e2 * t369 * t22124 * t1143;
34408   t113407 = 0.12e2 * t369 * t22128 * t1143;
34409   t113410 = 0.12e2 * t369 * t5423 * t4311;
34410   t113411 = t22186 * t1221;
34411   t113414 = 0.6e1 * t1336 * t20105;
34412   t113419 = t1219 * t22207;
34413   t113421 = t1219 * t22210;
34414   t113424 = 0.12e2 * t1336 * t20108;
34415   t113425 = t113340 * t370 * params->d + 0.3e1 * t20093 * t1338 + 0.3e1 * t5070 * t4864 + t113393 + 0.6e1 * t113394 + 0.12e2 * t113396 + 0.12e2 * t113400 + t113404 + t113407 + t113410 + 0.6e1 * t113411 + t113414 + 0.12e2 * t113419 + 0.12e2 * t113421 + t113424 + t20115 + t24665 + t24680;
34416   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34417     v4rhosigma2tau[12] = t108502 + t7 * t113340 * t372 + t24650 * t1130 + t108886 + 0.2e1 * t22178 * t1224 + 0.2e1 * t5431 * t4457 + t108891 + t4851 * t5080 + t1334 * t20116 + t108894 + t20085 * t1341 + t5066 * t4867 + t108898 + 0.2e1 * t4441 * t5447 + 0.2e1 * t1217 * t22221 + t108903 + t1123 * t24681 + t872 * (t113391 + t113425);
34418 
34419   t113429 = 0.6e1 * t21426 * t113092;
34420   t113431 = 0.2e1 * t21426 * t113095;
34421   t113432 = t14152 * t24705;
34422   t113434 = t4412 * t24687;
34423   t113438 = t1204 * t4316 * t1347;
34424   t113442 = t1204 * t74227 * t1347;
34425   t113445 = t5044 * t22242;
34426   t113449 = 0.8e1 * t21423 * t113070;
34427   t113451 = 0.6e1 * t21426 * t113073;
34428   t113453 = 0.4e1 * t21426 * t113076;
34429   t113455 = 0.4e1 * t21426 * t113079;
34430   t113456 = t24722 * t20214;
34431   t113459 = 0.8e1 * t21423 * t113089;
34432   t113466 = t113429 - t113431 + 0.2e1 / 0.3e1 * t113432 + 0.2e1 / 0.3e1 * t3788 * t113434 + 0.2e1 / 0.3e1 * t3788 * t113438 + 0.2e1 / 0.3e1 * t3788 * t113442 - 0.5e1 / 0.72e2 * t18055 * t113445 + t113449 - t113451 - t113453 + t113455 - 0.2e1 / 0.3e1 * t113456 - t113459 + 0.2e1 / 0.3e1 * t14152 * t24688 + 0.2e1 / 0.3e1 * t14156 * t24688 + 0.2e1 / 0.3e1 * t14848 * t24688;
34433   t113474 = t1204 * t1144 * t4887;
34434   t113475 = t3788 * t113474;
34435   t113477 = t14156 * t24705;
34436   t113479 = t14848 * t24705;
34437   t113481 = t4412 * t24704;
34438   t113482 = t3788 * t113481;
34439   t113485 = t1204 * t929 * t5460;
34440   t113486 = t3788 * t113485;
34441   t113489 = t1204 * t14718 * t5460;
34442   t113490 = t3788 * t113489;
34443   t113493 = t68216 * t1348 * t908;
34444   t113496 = t24693 * t113331;
34445   t113498 = t24693 * t113334;
34446   t113500 = t24693 * t113324;
34447   t113502 = t24693 * t113328;
34448   t113504 = t5048 * t22342;
34449   t113505 = t3762 * t113504;
34450   t113508 = t12791 * t5455 * t912;
34451   t113511 = 0.5e1 / 0.72e2 * t90747 * t23765 + 0.5e1 / 0.72e2 * t90750 * t23765 + 0.5e1 / 0.72e2 * t90648 * t23765 + 0.2e1 / 0.3e1 * t113475 + 0.2e1 / 0.3e1 * t113477 + 0.2e1 / 0.3e1 * t113479 + 0.2e1 / 0.3e1 * t113482 + 0.2e1 / 0.3e1 * t113486 + 0.2e1 / 0.3e1 * t113490 - 0.5e1 / 0.36e2 * t18055 * t113493 - 0.2e1 / 0.3e1 * t113496 - 0.2e1 / 0.3e1 * t113498 - 0.2e1 / 0.3e1 * t113500 - 0.2e1 / 0.3e1 * t113502 - 0.10e2 / 0.3e1 * t113505 - 0.10e2 / 0.3e1 * t3762 * t113508 - t19748;
34452   t113513 = t109303 * t22053;
34453   t113523 = t17515 * t24692;
34454   t113524 = t113523 * t24588;
34455   t113528 = t4720 * t4887 * t167 * t14483;
34456   t113529 = t113528 * t24588;
34457   t113531 = t109300 * t22053;
34458   t113533 = t24722 * t20217;
34459   t113535 = t2378 * t5472;
34460   t113536 = t113535 * t5146;
34461   t113538 = t400 * t22337;
34462   t113539 = t113538 * t5146;
34463   t113542 = t1204 * t3789 * t22295;
34464   t113543 = t3788 * t113542;
34465   t113547 = t5044 * t22246;
34466   t113550 = -t19750 - t19753 + 0.10e2 / 0.3e1 * t113513 - 0.5e1 / 0.12e2 * t87504 * t113166 + 0.5e1 / 0.36e2 * t21510 * t113169 + 0.5e1 / 0.36e2 * t21510 * t113172 + 0.5e1 / 0.36e2 * t21510 * t113175 - 0.2e1 / 0.3e1 * t113524 - 0.2e1 / 0.3e1 * t113529 + 0.10e2 / 0.3e1 * t113531 - 0.2e1 / 0.3e1 * t113533 - 0.2e1 / 0.3e1 * t113536 - 0.2e1 / 0.3e1 * t113539 + 0.2e1 / 0.3e1 * t113543 - 0.5e1 / 0.72e2 * t74362 * t24708 - 0.5e1 / 0.72e2 * t18055 * t113547;
34467   t113551 = t5044 * t22250;
34468   t113555 = t1204 * t18210 * t4887;
34469   t113559 = 0.16e2 * t109027 * t22087;
34470   t113561 = 0.12e2 * t109283 * t22090;
34471   t113563 = 0.4e1 * t109283 * t22093;
34472   t113565 = 0.16e2 * t108986 * t22087;
34473   t113567 = 0.12e2 * t109087 * t22090;
34474   t113569 = 0.4e1 * t109087 * t22093;
34475   t113571 = 0.4e1 * t881 * t24717;
34476   t113575 = 0.4e1 * t81 * t4311 * t5460 * t227;
34477   t113579 = 0.4e1 * t81 * t1143 * t22295 * t227;
34478   t113580 = t17457 * t24692;
34479   t113581 = t113580 * t24588;
34480   t113586 = 0.2e1 * t81 * t4954 * t4887 * t227;
34481   t113587 = t881 * t5467;
34482   t113589 = 0.4e1 * t113587 * t1193;
34483   t113590 = t81 * t22300;
34484   t113592 = 0.4e1 * t113590 * t1193;
34485   t113593 = t81 * t22303;
34486   t113595 = 0.4e1 * t113593 * t1193;
34487   t113597 = 0.4e1 * t24696 * t4380;
34488   t113598 = -0.5e1 / 0.72e2 * t18055 * t113551 + 0.2e1 / 0.3e1 * t3788 * t113555 - t113559 + t113561 - t113563 - t113565 + t113567 - t113569 + t113571 + t113575 + t113579 - 0.2e1 / 0.3e1 * t113581 + t113586 + t113589 + t113592 + t113595 + t113597;
34489   t113602 = 0.2e1 * t22223 * t5032;
34490   t113604 = 0.2e1 * t22226 * t5032;
34491   t113606 = 0.2e1 * t22229 * t5032;
34492   t113609 = 0.4e1 * t81 * t24716 * t1037;
34493   t113610 = t24693 * t113258;
34494   t113612 = t109237 * t113307;
34495   t113614 = t109241 * t113253;
34496   t113616 = t18560 * t22342;
34497   t113620 = t18560 * t1348 * t883;
34498   t113624 = t18560 * t1348 * t4282;
34499   t113628 = 0.4e1 * t24699 * t4380;
34500   t113631 = 0.2e1 * t81 * t24712 * t1037;
34501   t113632 = t20284 * t5455;
34502   t113634 = -t113602 - t113604 - t113606 + t113609 + 0.2e1 / 0.3e1 * t113610 + 0.10e2 / 0.3e1 * t113612 - 0.2e1 * t113614 + 0.5e1 / 0.12e2 * t18082 * t113616 - 0.5e1 / 0.36e2 * t18089 * t113620 - 0.5e1 / 0.36e2 * t18049 * t113624 + t113628 + t113631 - t4957 + t113262 + t113265 - 0.4e1 * t113632;
34503   t113635 = t5097 * t22331;
34504   t113640 = t14152 * t24684;
34505   t113642 = t14156 * t24684;
34506   t113644 = t14848 * t24684;
34507   t113646 = t4412 * t24683;
34508   t113647 = t3788 * t113646;
34509   t113650 = t1204 * t4312 * t1347;
34510   t113651 = t3788 * t113650;
34511   t113654 = t1204 * t4305 * t1347;
34512   t113655 = t3788 * t113654;
34513   t113658 = 0.4e1 * t20284 * t5461;
34514   t113660 = 0.4e1 * t5097 * t22318;
34515   t113662 = 0.2e1 * t5475 * t19933;
34516   t113664 = 0.2e1 * t22223 * t5028;
34517   t113666 = 0.2e1 * t22226 * t5028;
34518   t113668 = 0.2e1 * t22229 * t5028;
34519   t113670 = 0.2e1 * t881 * t24713;
34520   t113671 = -0.4e1 * t113635 - 0.2e1 * t449 * t5039 * t4887 + 0.2e1 / 0.3e1 * t113640 + 0.2e1 / 0.3e1 * t113642 + 0.2e1 / 0.3e1 * t113644 + 0.2e1 / 0.3e1 * t113647 + 0.2e1 / 0.3e1 * t113651 + 0.2e1 / 0.3e1 * t113655 - t113268 - t113658 - t113660 + t113662 + t24601 + t113664 + t113666 + t113668 + t113670;
34521   t113674 = 0.2e1 * t23823 * t4888;
34522   t113675 = t2442 * t24735;
34523   t113677 = t4302 * t24735;
34524   t113680 = t449 * t4391 * t5460;
34525   t113683 = 0.4e1 * t5097 * t22311;
34526   t113685 = 0.4e1 * t20281 * t5461;
34527   t113686 = t20281 * t5455;
34528   t113688 = t5097 * t22285;
34529   t113690 = t2378 * t5468;
34530   t113691 = t113690 * t5146;
34531   t113693 = t400 * t22301;
34532   t113694 = t113693 * t5146;
34533   t113696 = t400 * t22304;
34534   t113697 = t113696 * t5146;
34535   t113699 = t400 * t22309;
34536   t113700 = t113699 * t5146;
34537   t113702 = t24722 * t20211;
34538   t113704 = t400 * t22297;
34539   t113705 = t113704 * t5146;
34540   t113707 = t400 * t22306;
34541   t113708 = t113707 * t5146;
34542   t113710 = -t113674 - 0.4e1 * t113675 - 0.4e1 * t113677 - 0.4e1 * t113680 - t113683 - t113685 + t113290 - 0.4e1 * t113686 - 0.4e1 * t113688 + t24715 - 0.2e1 / 0.3e1 * t113691 - 0.2e1 / 0.3e1 * t113694 - 0.2e1 / 0.3e1 * t113697 - 0.2e1 / 0.3e1 * t113700 - 0.2e1 / 0.3e1 * t113702 - 0.2e1 / 0.3e1 * t113705 - 0.2e1 / 0.3e1 * t113708;
34543   t113711 = t24725 * t20211;
34544   t113713 = t24725 * t20214;
34545   t113715 = t24725 * t20217;
34546   t113720 = t12791 * t5461 * t912;
34547   t113721 = t3762 * t113720;
34548   t113723 = t881 * t5471;
34549   t113725 = 0.4e1 * t113723 * t1193;
34550   t113726 = t81 * t22336;
34551   t113728 = 0.4e1 * t113726 * t1193;
34552   t113729 = t81 * t22296;
34553   t113731 = 0.4e1 * t113729 * t1193;
34554   t113733 = 0.8e1 * t108528 * t4893;
34555   t113735 = 0.16e2 * t21257 * t22278;
34556   t113744 = t449 * t1199 * t22295;
34557   t113747 = 0.2e1 * t104821 * t1348;
34558   t113749 = 0.2e1 * t23823 * t4873;
34559   t113750 = -0.2e1 / 0.3e1 * t113711 - 0.2e1 / 0.3e1 * t113713 - 0.2e1 / 0.3e1 * t113715 + 0.5e1 / 0.72e2 * t90744 * t23765 - 0.10e2 / 0.3e1 * t113721 + t113725 + t113728 + t113731 - t24739 - t113733 - t113735 - 0.2e1 * t2442 * t24732 - 0.2e1 * t4302 * t24732 - 0.2e1 * t449 * t19953 * t1347 - 0.4e1 * t113744 - t113747 - t113749;
34560   t113753 = t113466 + t113511 + t113550 + t113598 + t113634 + t113671 + t113710 + t113750;
34561   t113770 = t4445 * t5492;
34562   t113773 = 0.6e1 * t1125 * t24766;
34563   t113778 = 0.6e1 * t369 * t4947 * t4887;
34564   t113782 = 0.6e1 * t1357 * t20105;
34565   t113783 = t4445 * t5489;
34566   t113788 = 0.12e2 * t1357 * t20108;
34567   t113789 = t1219 * t22389;
34568   t113791 = t22357 * t1221;
34569   t113795 = 0.12e2 * t369 * t5467 * t4311;
34570   t113796 = t1219 * t22375;
34571   t113798 = t1219 * t22378;
34572   t113800 = 0.3e1 * t20093 * t1359 + 0.6e1 * t5070 * t4918 + 0.3e1 * t5070 * t4921 + 0.6e1 * t113770 + t113773 + t113778 + t113782 + 0.12e2 * t113783 + t113788 + 0.6e1 * t113789 + 0.6e1 * t113791 + t113795 + 0.12e2 * t113796 + 0.12e2 * t113798 + t20112 + t24759 + t5079;
34573   t113802 = 0.3e1 * t4912 * t5077;
34574   t113804 = 0.6e1 * t1357 * t20113;
34575   t113805 = t1219 * t22381;
34576   t113807 = t1219 * t22386;
34577   t113812 = 0.12e2 * t1125 * t24769;
34578   t113815 = 0.6e1 * t369 * t4896 * t4954;
34579   t113818 = 0.6e1 * t369 * t4900 * t4954;
34580   t113819 = t5483 * t4451;
34581   t113824 = 0.6e1 * t1125 * t24772;
34582   t113826 = 0.6e1 * t4912 * t5074;
34583   t113829 = 0.12e2 * t369 * t22336 * t1143;
34584   t113832 = 0.12e2 * t369 * t22296 * t1143;
34585   t113835 = 0.12e2 * t369 * t5471 * t4311;
34586   t113836 = t5483 * t4454;
34587   t113838 = t113753 * t370 * params->d + 0.3e1 * t24752 * t1127 + t113802 + t113804 + 0.12e2 * t113805 + 0.12e2 * t113807 + t113812 + t113815 + t113818 + 0.12e2 * t113819 + t113824 + t113826 + t113829 + t113832 + t113835 + 0.6e1 * t113836 + t20115 + t24774;
34588   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34589     v4rhosigma2tau[13] = t108976 + t7 * t113753 * t372 + t24744 * t1130 + t109318 + 0.2e1 * t22349 * t1224 + 0.2e1 * t5479 * t4457 + t109323 + t4908 * t5080 + t1355 * t20116 + t109326 + t20085 * t1362 + t5066 * t4924 + t109330 + 0.2e1 * t4441 * t5495 + 0.2e1 * t1217 * t22392 + t109335 + t1123 * t24775 + t872 * (t113800 + t113838);
34590 
34591   t113842 = t1204 * t1232 * t4830;
34592   t113846 = 0.2e1 / 0.3e1 * t4026 * t112995;
34593   t113858 = 0.2e1 * t109649 * t22093;
34594   t113860 = 0.6e1 * t109640 * t22090;
34595   t113862 = t1204 * t18732 * t4830;
34596   t113868 = 0.2e1 / 0.3e1 * t14978 * t24620;
34597   t113870 = 0.2e1 / 0.3e1 * t14972 * t24620;
34598   t113871 = t3788 * t113842 / 0.3e1 - t113846 - 0.2e1 / 0.3e1 * t14978 * t24615 - 0.2e1 / 0.3e1 * t14972 * t24615 - 0.2e1 / 0.3e1 * t4026 * t113004 - 0.2e1 / 0.3e1 * t4026 * t113008 - 0.2e1 / 0.3e1 * t4026 * t113012 - t113858 + t113860 + t3788 * t113862 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t113083 - t113868 - t113870;
34599   t113873 = t1204 * t3789 * t22464;
34600   t113877 = 0.2e1 / 0.3e1 * t14972 * t24611;
34601   t113880 = t4412 * t24790;
34602   t113884 = t1204 * t4484 * t1326;
34603   t113888 = t1204 * t4478 * t1326;
34604   t113891 = t4412 * t24794;
34605   t113895 = t1204 * t4488 * t1326;
34606   t113899 = t1204 * t75628 * t1326;
34607   t113902 = t14483 * t20366;
34608   t113904 = 0.2e1 * t21244 * t113902;
34609   t113905 = t14483 * t20370;
34610   t113907 = 0.2e1 * t21244 * t113905;
34611   t113909 = 0.8e1 * t109637 * t22087;
34612   t113914 = t3788 * t113873 / 0.3e1 - t113877 + t14848 * t24791 / 0.3e1 + t3788 * t113880 / 0.3e1 + t3788 * t113884 / 0.3e1 + t3788 * t113888 / 0.3e1 + t3788 * t113891 / 0.3e1 + t3788 * t113895 / 0.3e1 + t3788 * t113899 / 0.3e1 - t113904 - t113907 - t113909 + t14152 * t24795 / 0.3e1 + t14156 * t24795 / 0.3e1;
34613   t113919 = 0.2e1 / 0.3e1 * t113098 * t5510;
34614   t113921 = 0.2e1 / 0.3e1 * t113101 * t5510;
34615   t113923 = 0.2e1 / 0.3e1 * t113104 * t5510;
34616   t113925 = 0.2e1 / 0.3e1 * t113291 * t5510;
34617   t113932 = t4412 * t24777;
34618   t113936 = t1204 * t929 * t5506;
34619   t113940 = t1204 * t14718 * t5506;
34620   t113944 = 0.2e1 / 0.3e1 * t4026 * t112983;
34621   t113946 = 0.2e1 / 0.3e1 * t4026 * t112987;
34622   t113947 = t14848 * t24795 / 0.3e1 + t113919 + t113921 + t113923 + t113925 + t14152 * t24778 / 0.3e1 + t14156 * t24778 / 0.3e1 + t14848 * t24778 / 0.3e1 + t3788 * t113932 / 0.3e1 + t3788 * t113936 / 0.3e1 + t3788 * t113940 / 0.3e1 - t113944 - t113946;
34623   t113949 = 0.2e1 / 0.3e1 * t4026 * t112991;
34624   t113950 = t113323 * t1255;
34625   t113952 = 0.2e1 / 0.3e1 * t24586 * t113950;
34626   t113953 = t113327 * t1255;
34627   t113955 = 0.2e1 / 0.3e1 * t24586 * t113953;
34628   t113956 = t24587 * t4539;
34629   t113958 = 0.2e1 / 0.3e1 * t24586 * t113956;
34630   t113960 = 0.2e1 / 0.3e1 * t113273 * t24812;
34631   t113962 = 0.2e1 / 0.3e1 * t113281 * t24812;
34632   t113968 = t87989 * t13055 * t1033;
34633   t113970 = 0.4e1 * t21244 * t113968;
34634   t113973 = 0.2e1 * t449 * t5135 * t4830;
34635   t113975 = 0.2e1 * t2442 * t24831;
34636   t113977 = 0.2e1 * t22167 * t5126;
34637   t113978 = -t113949 + t109435 + t109446 + t113952 + t113955 + t113958 + t113960 + t113962 - 0.5e1 / 0.36e2 * t89958 * t24819 - 0.5e1 / 0.36e2 * t90008 * t24819 + t113970 - t113973 - t113975 + t113977;
34638   t113982 = 0.2e1 * t113110 * t1246;
34639   t113984 = 0.2e1 * t113113 * t1246;
34640   t113986 = 0.2e1 * t22050 * t5126;
34641   t113988 = 0.2e1 * t22165 * t5126;
34642   t113989 = t2378 * t5514;
34643   t113992 = t400 * t22405;
34644   t113995 = t400 * t22409;
34645   t113998 = t400 * t22458;
34646   t114007 = t2378 * t5518;
34647   t114010 = t400 * t22506;
34648   t114013 = t113982 + t113984 + t113986 + t113988 - t113989 * t5146 / 0.3e1 - t113992 * t5146 / 0.3e1 - t113995 * t5146 / 0.3e1 - t113998 * t5146 / 0.3e1 - t24781 * t20211 / 0.3e1 - t24781 * t20214 / 0.3e1 - t24781 * t20217 / 0.3e1 - t114007 * t5146 / 0.3e1 - t114010 * t5146 / 0.3e1;
34649   t114014 = t400 * t22466;
34650   t114017 = t400 * t22445;
34651   t114027 = 0.2e1 * t89675 * t24787;
34652   t114029 = 0.2e1 * t89877 * t24787;
34653   t114031 = 0.2e1 * t89886 * t24787;
34654   t114033 = 0.6e1 * t109649 * t22090;
34655   t114035 = 0.2e1 * t109640 * t22093;
34656   t114037 = 0.8e1 * t108655 * t22419;
34657   t114039 = 0.2e1 / 0.3e1 * t4026 * t113016;
34658   t114041 = 0.2e1 * t5097 * t22475;
34659   t114044 = -t114014 * t5146 / 0.3e1 - t114017 * t5146 / 0.3e1 - t24784 * t20211 / 0.3e1 - t24784 * t20214 / 0.3e1 - t24784 * t20217 / 0.3e1 - t114027 - t114029 - t114031 + t114033 - t114035 - t114037 - t114039 - t114041 - 0.2e1 * t2442 * t24834;
34660   t114056 = 0.2e1 * t5499 * t22062;
34661   t114058 = 0.2e1 * t20281 * t5502;
34662   t114059 = t881 * t5517;
34663   t114061 = 0.2e1 * t114059 * t1193;
34664   t114062 = t81 * t22505;
34665   t114064 = 0.2e1 * t114062 * t1193;
34666   t114065 = t81 * t22465;
34667   t114067 = 0.2e1 * t114065 * t1193;
34668   t114069 = 0.10e2 / 0.3e1 * t4013 * t113157;
34669   t114070 = -0.2e1 * t4302 * t24834 - 0.2e1 * t449 * t4391 * t5506 - t19748 - t19750 - t19753 - t113273 * t24816 / 0.3e1 - t113276 * t24816 / 0.3e1 - t114056 - t114058 + t114061 + t114064 + t114067 + t114069;
34670   t114071 = t5083 * t19977;
34671   t114075 = t12791 * t5507 * t912;
34672   t114079 = t18560 * t4831 * t1133;
34673   t114083 = 0.10e2 / 0.3e1 * t4013 * t113178;
34674   t114091 = t88070 * t3923 * t999;
34675   t114093 = 0.6e1 * t21244 * t114091;
34676   t114097 = 0.10e2 / 0.3e1 * t108634 * t22437;
34677   t114099 = 0.10e2 / 0.3e1 * t108628 * t22437;
34678   t114100 = t4049 * t883;
34679   t114101 = t114100 * t1205;
34680   t114104 = t24815 * t4409;
34681   t114107 = t24815 * t4413;
34682   t114110 = -0.5e1 / 0.36e2 * t21210 * t114071 - 0.5e1 / 0.3e1 * t3762 * t114075 + 0.5e1 / 0.36e2 * t5084 * t114079 + t114083 + 0.5e1 / 0.36e2 * t5084 * t113189 + 0.5e1 / 0.3e1 * t109604 * t22053 + 0.10e2 / 0.3e1 * t4013 * t113285 - t114093 - t113281 * t24816 / 0.3e1 - t114097 - t114099 - t24586 * t114101 / 0.3e1 - t24586 * t114104 / 0.3e1 - t24586 * t114107 / 0.3e1;
34683   t114115 = 0.2e1 * t24640 * t4516;
34684   t114117 = t12791 * t5502 * t912;
34685   t114123 = t70080 * t109496 * t912;
34686   t114127 = t70080 * t109496 * t883;
34687   t114131 = t50654 * t109496 * t908;
34688   t114134 = t5273 * t22132;
34689   t114140 = 0.8e1 * t21675 * t22141;
34690   t114142 = 0.2e1 / 0.3e1 * t113276 * t24812;
34691   t114143 = t70066 * t20161;
34692   t114146 = t114115 - 0.5e1 / 0.3e1 * t3762 * t114117 - 0.5e1 / 0.36e2 * t89797 * t24819 - 0.5e1 / 0.6e1 * t70074 * t114123 + 0.5e1 / 0.18e2 * t70086 * t114127 + 0.5e1 / 0.18e2 * t70173 * t114131 + t113163 - 0.5e1 / 0.3e1 * t3762 * t114134 - t113165 - 0.5e1 / 0.36e2 * t90323 * t24819 - t114140 + t114142 - 0.5e1 / 0.18e2 * t109501 * t114143;
34693   t114147 = t70066 * t20165;
34694   t114151 = 0.2e1 * t24643 * t4516;
34695   t114153 = 0.2e1 * t113116 * t1246;
34696   t114155 = 0.2e1 * t881 * t24837;
34697   t114159 = 0.2e1 * t81 * t4483 * t5412 * t227;
34698   t114163 = 0.2e1 * t81 * t1231 * t22061 * t227;
34699   t114165 = 0.2e1 * t5427 * t20361;
34700   t114168 = 0.2e1 * t81 * t24836 * t1037;
34701   t114170 = t87989 * t3923 * t912;
34702   t114172 = 0.8e1 * t21239 * t114170;
34703   t114175 = 0.2e1 * t449 * t1252 * t22061;
34704   t114177 = 0.2e1 * t20281 * t5507;
34705   t114179 = 0.2e1 * t20284 * t5507;
34706   t114180 = -0.5e1 / 0.18e2 * t109506 * t114147 + t114151 + t114153 + t114155 + t114159 + t114163 + t114165 + t114168 + t114172 - t114175 - t114177 - t114179 - t113232 - t113234;
34707   t114183 = 0.2e1 * t20284 * t5502;
34708   t114185 = 0.2e1 * t5097 * t22498;
34709   t114187 = 0.2e1 * t5097 * t22509;
34710   t114189 = 0.2e1 * t2442 * t24845;
34711   t114190 = t109683 * t113257;
34712   t114193 = t109660 * t113306;
34713   t114195 = 0.10e2 / 0.3e1 * t108609 * t114193;
34714   t114196 = t109660 * t113252;
34715   t114198 = 0.2e1 * t108616 * t114196;
34716   t114199 = t109534 * t113257;
34717   t114201 = 0.2e1 / 0.3e1 * t24586 * t114199;
34718   t114202 = t109538 * t113306;
34719   t114205 = t109538 * t113252;
34720   t114207 = -t114183 - t114185 - t114187 - t114189 + t24586 * t114190 / 0.3e1 - t114195 + t114198 - t114201 + 0.5e1 / 0.3e1 * t108609 * t114202 - t108616 * t114205 - t4957 + t109697 + t113262;
34721   t114211 = 0.2e1 / 0.3e1 * t4026 * t113048;
34722   t114213 = 0.2e1 / 0.3e1 * t4026 * t113052;
34723   t114215 = 0.2e1 / 0.3e1 * t4026 * t113056;
34724   t114217 = 0.6e1 * t108658 * t22423;
34725   t114219 = 0.2e1 * t108658 * t22426;
34726   t114221 = 0.2e1 * t108828 * t22426;
34727   t114223 = 0.8e1 * t108662 * t22419;
34728   t114225 = 0.6e1 * t108828 * t22423;
34729   t114226 = t14483 * t20362;
34730   t114228 = 0.2e1 * t21244 * t114226;
34731   t114229 = t13344 * t20358;
34732   t114231 = 0.6e1 * t21244 * t114229;
34733   t114234 = t113265 + 0.5e1 / 0.3e1 * t109754 * t22053 + t24594 - t114211 - t114213 - t114215 + t114217 - t114219 - t114221 - t114223 + t114225 - t114228 + t114231 + t14156 * t24791 / 0.3e1;
34734   t114238 = t14483 * t18569 * t912;
34735   t114240 = 0.8e1 * t21239 * t114238;
34736   t114242 = 0.2e1 / 0.3e1 * t24602 * t22412;
34737   t114244 = 0.2e1 / 0.3e1 * t24602 * t22415;
34738   t114246 = 0.2e1 / 0.3e1 * t113061 * t5510;
34739   t114248 = 0.2e1 / 0.3e1 * t113125 * t5510;
34740   t114250 = 0.2e1 / 0.3e1 * t113128 * t5510;
34741   t114252 = 0.2e1 / 0.3e1 * t113131 * t5510;
34742   t114254 = 0.2e1 / 0.3e1 * t24605 * t22412;
34743   t114256 = 0.2e1 / 0.3e1 * t24605 * t22415;
34744   t114258 = 0.8e1 * t109646 * t22087;
34745   t114260 = 0.2e1 / 0.3e1 * t14978 * t24611;
34746   t114263 = -t114240 + t114242 + t114244 + t114246 + t114248 + t114250 + t114252 + t114254 + t114256 - t114258 - t114260 + t14152 * t24791 / 0.3e1 - t113268;
34747   t114264 = t15206 * t25;
34748   t114265 = t114264 * t1205;
34749   t114268 = t70066 * t20153;
34750   t114271 = t881 * t5513;
34751   t114272 = t114271 * t1193;
34752   t114274 = t81 * t22404;
34753   t114275 = t114274 * t1193;
34754   t114277 = t81 * t22408;
34755   t114278 = t114277 * t1193;
34756   t114280 = t113146 * t1246;
34757   t114282 = t113239 * t1246;
34758   t114284 = t113242 * t1246;
34759   t114288 = t81 * t1143 * t22464 * t227;
34760   t114290 = t5499 * t22155;
34761   t114294 = -t109728 - t113272 - t24586 * t114265 / 0.3e1 + 0.5e1 / 0.6e1 * t109510 * t114268 + t24601 + 0.2e1 * t114272 + 0.2e1 * t114275 + 0.2e1 * t114278 + 0.2e1 * t114280 + 0.2e1 * t114282 + 0.2e1 * t114284 + 0.2e1 * t114288 - 0.2e1 * t114290 - 0.2e1 * t22448 * t5407;
34762   t114301 = 0.8e1 * t21257 * t22442;
34763   t114305 = 0.2e1 * t22448 * t5413;
34764   t114307 = 0.2e1 * t22453 * t5413;
34765   t114309 = 0.2e1 * t881 * t24840;
34766   t114313 = 0.2e1 * t81 * t4311 * t5506 * t227;
34767   t114315 = 0.2e1 * t4302 * t24831;
34768   t114318 = 0.2e1 * t449 * t4527 * t5412;
34769   t114319 = -0.2e1 * t5499 * t22148 - 0.2e1 * t5499 * t22172 - 0.2e1 * t22453 * t5407 - t109803 - t109849 + t113290 + t113300 - t114301 - t114305 - t114307 + t114309 + t114313 - t114315 - t114318;
34770   t114322 = t19969 * t24808;
34771   t114326 = t18560 * t4820 * t1133;
34772   t114330 = 0.2e1 * t24826 * t4380;
34773   t114332 = 0.2e1 * t24822 * t4380;
34774   t114334 = 0.2e1 * t5097 * t22493;
34775   t114336 = 0.2e1 * t4302 * t24845;
34776   t114339 = 0.2e1 * t449 * t20380 * t1326;
34777   t114345 = 0.2e1 * t81 * t24839 * t1037;
34778   t114346 = -t24629 + 0.5e1 / 0.36e2 * t20345 * t24809 + 0.5e1 / 0.36e2 * t5084 * t114322 + 0.5e1 / 0.36e2 * t5084 * t114326 + t114330 - t109868 + t109887 + t114332 + t113322 - t114334 - t114336 - t114339 - 0.2e1 * t449 * t1199 * t22464 + t114345;
34779   t114350 = t113871 + t113914 + t113947 + t113978 + t114013 + t114044 + t114070 + t114110 + t114146 + t114180 + t114207 + t114234 + t114263 + t114294 + t114319 + t114346;
34780   t114360 = t114350 * t372 * t7 + t24850 * t1130 + t22515 * t1224 + t22178 * t1272 + t1334 * t20457 + t5524 * t4457 + t5431 * t4580 + t4851 * t5175 + t109408 + t109945 + t109948 + t109951;
34781   t114371 = 0.3e1 * t4568 * t5444;
34782   t114373 = 0.6e1 * t1336 * t20448;
34783   t114375 = 0.6e1 * t1336 * t20451;
34784   t114381 = 0.6e1 * t1125 * t24882;
34785   t114385 = 0.3e1 * t22523 * t1221;
34786   t114388 = 0.3e1 * t24858 * t1127 + 0.3e1 * t1219 * t22555 + 0.3e1 * t22186 * t1269 + 0.3e1 * t4445 * t5537 + 0.3e1 * t5435 * t4577 + t113362 + t114371 + t114373 + t114375 + t114381 + t114385 + t5079;
34787   t114394 = 0.6e1 * t1336 * t20454;
34788   t114404 = 0.3e1 * t5528 * t4454;
34789   t114407 = 0.6e1 * t369 * t22124 * t1231;
34790   t114410 = 0.6e1 * t369 * t22128 * t1231;
34791   t114411 = t114350 * t370 * params->d + 0.6e1 * t1219 * t22541 + 0.6e1 * t1219 * t22544 + 0.6e1 * t1219 * t22552 + 0.6e1 * t5166 * t4861 + 0.3e1 * t5166 * t4864 + t113365 + t113368 + t114394 + t114404 + t114407 + t114410 + t20112;
34792   t114414 = t1267 * t22215;
34793   t114415 = t1125 * t24874;
34794   t114416 = t1267 * t22204;
34795   t114417 = t1267 * t22207;
34796   t114418 = t1125 * t24877;
34797   t114419 = t4568 * t5441;
34798   t114421 = t369 * t22159 * t1231;
34799   t114423 = t369 * t22162 * t1231;
34800   t114425 = t369 * t5419 * t4483;
34801   t114426 = t4855 * t5172;
34802   t114427 = t1267 * t22210;
34803   t114428 = t5435 * t4574 + t113383 + t114414 + t114415 + t114416 + t114417 + t114418 + t114419 + t114421 + t114423 + t114425 + t114426 + t114427;
34804   t114432 = 0.6e1 * t369 * t5423 * t4483;
34805   t114435 = 0.6e1 * t369 * t22505 * t1143;
34806   t114438 = 0.6e1 * t369 * t22465 * t1143;
34807   t114441 = 0.6e1 * t369 * t5517 * t4311;
34808   t114445 = 0.3e1 * t1267 * t22218;
34809   t114451 = 0.6e1 * t5528 * t4451;
34810   t114452 = 0.6e1 * t1219 * t22547 + 0.3e1 * t20430 * t1338 + 0.6e1 * t4445 * t5534 + t113393 + t114432 + t114435 + t114438 + t114441 + t114445 + t114451 + t20115 + t24665 + t24680;
34811   t114456 = t109955 + t20422 * t1341 + t5162 * t4867 + t109958 + t4564 * t5447 + t1265 * t22221 + t109961 + t4441 * t5540 + t1217 * t22558 + t109964 + t1123 * t24885 + t872 * (t114388 + t114411 + 0.6e1 * t114428 + t114452);
34812   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
34813     v4rhosigma2tau[14] = t114360 + t114456;
34814 
34815   t114460 = 0.2e1 / 0.3e1 * t14978 * t24705;
34816   t114462 = 0.2e1 / 0.3e1 * t14972 * t24705;
34817   t114464 = 0.2e1 / 0.3e1 * t4026 * t113481;
34818   t114466 = 0.2e1 / 0.3e1 * t4026 * t113485;
34819   t114467 = t400 * t22667;
34820   t114476 = -t110129 - t110131 + t110133 + t110163 - 0.2e1 / 0.3e1 * t4026 * t113555 - t114460 - t114462 - t114464 - t114466 - t114467 * t5146 / 0.3e1 - t24933 * t20211 / 0.3e1 - t24933 * t20214 / 0.3e1 - t24933 * t20217 / 0.3e1;
34821   t114477 = t2378 * t5561;
34822   t114480 = t400 * t22567;
34823   t114483 = t400 * t22576;
34824   t114486 = t400 * t22653;
34825   t114492 = 0.2e1 / 0.3e1 * t4026 * t113542;
34826   t114500 = t1204 * t1232 * t4887;
34827   t114504 = 0.2e1 * t91071 * t24787;
34828   t114506 = 0.2e1 * t91126 * t24787;
34829   t114508 = 0.2e1 * t90502 * t24787;
34830   t114510 = 0.2e1 * t21426 * t113902;
34831   t114511 = -t114477 * t5146 / 0.3e1 - t114480 * t5146 / 0.3e1 - t114483 * t5146 / 0.3e1 - t114486 * t5146 / 0.3e1 - t24936 * t20211 / 0.3e1 - t114492 + t14152 * t24928 / 0.3e1 + t14156 * t24928 / 0.3e1 + t14848 * t24928 / 0.3e1 + t3788 * t114500 / 0.3e1 - t114504 - t114506 - t114508 - t114510;
34832   t114514 = 0.2e1 * t21426 * t113905;
34833   t114516 = 0.8e1 * t110365 * t22087;
34834   t114518 = 0.6e1 * t110393 * t22090;
34835   t114520 = 0.6e1 * t110289 * t22090;
34836   t114522 = 0.2e1 * t110289 * t22093;
34837   t114524 = 0.2e1 / 0.3e1 * t14978 * t24684;
34838   t114526 = 0.2e1 / 0.3e1 * t14972 * t24684;
34839   t114528 = 0.2e1 / 0.3e1 * t4026 * t113646;
34840   t114530 = 0.2e1 / 0.3e1 * t4026 * t113650;
34841   t114532 = 0.2e1 / 0.3e1 * t4026 * t113654;
34842   t114536 = 0.2e1 / 0.3e1 * t24725 * t22412;
34843   t114538 = 0.2e1 / 0.3e1 * t24725 * t22415;
34844   t114539 = -t114514 - t114516 + t114518 + t114520 - t114522 - t114524 - t114526 - t114528 - t114530 - t114532 - t24693 * t114265 / 0.3e1 + t114536 + t114538;
34845   t114541 = 0.2e1 / 0.3e1 * t4026 * t113474;
34846   t114555 = 0.2e1 * t4302 * t24900;
34847   t114558 = 0.2e1 * t449 * t4527 * t5460;
34848   t114560 = 0.2e1 / 0.3e1 * t4026 * t113489;
34849   t114562 = 0.8e1 * t110286 * t22087;
34850   t114564 = 0.2e1 / 0.3e1 * t24722 * t22415;
34851   t114565 = -t114541 - 0.2e1 / 0.3e1 * t14978 * t24688 - 0.2e1 / 0.3e1 * t14972 * t24688 - 0.2e1 / 0.3e1 * t4026 * t113434 - 0.5e1 / 0.36e2 * t90744 * t24819 - 0.5e1 / 0.36e2 * t90747 * t24819 - 0.5e1 / 0.36e2 * t90750 * t24819 - t114555 - t114558 - t114560 - t114562 + t114564 + t110190 - t19748;
34852   t114569 = 0.4e1 * t21426 * t113968;
34853   t114576 = t4412 * t24908;
34854   t114580 = t1204 * t4488 * t1347;
34855   t114584 = t1204 * t75628 * t1347;
34856   t114588 = t1204 * t18732 * t4887;
34857   t114595 = t2378 * t5557;
34858   t114598 = -t19750 - t19753 + t114569 + t14152 * t24909 / 0.3e1 + t14156 * t24909 / 0.3e1 + t14848 * t24909 / 0.3e1 + t3788 * t114576 / 0.3e1 + t3788 * t114580 / 0.3e1 + t3788 * t114584 / 0.3e1 + t3788 * t114588 / 0.3e1 + t14152 * t24913 / 0.3e1 + t14156 * t24913 / 0.3e1 - t114595 * t5146 / 0.3e1;
34859   t114599 = t400 * t22594;
34860   t114602 = t400 * t22598;
34861   t114612 = t18560 * t4888 * t1133;
34862   t114616 = 0.2e1 * t20284 * t5551;
34863   t114618 = 0.2e1 * t5097 * t22622;
34864   t114620 = 0.2e1 / 0.3e1 * t113580 * t24812;
34865   t114622 = 0.2e1 / 0.3e1 * t113523 * t24812;
34866   t114624 = 0.2e1 / 0.3e1 * t113528 * t24812;
34867   t114626 = 0.2e1 / 0.3e1 * t24693 * t113950;
34868   t114628 = 0.2e1 / 0.3e1 * t24693 * t113953;
34869   t114630 = 0.2e1 / 0.3e1 * t24693 * t113956;
34870   t114631 = -t114599 * t5146 / 0.3e1 - t114602 * t5146 / 0.3e1 + 0.5e1 / 0.3e1 * t110554 * t22053 - t24693 * t114104 / 0.3e1 - t24693 * t114107 / 0.3e1 + 0.5e1 / 0.36e2 * t5084 * t114612 - t114616 - t114618 + t114620 + t114622 + t114624 + t114626 + t114628 + t114630;
34871   t114644 = 0.10e2 / 0.3e1 * t4013 * t113504;
34872   t114646 = 0.6e1 * t21426 * t114091;
34873   t114649 = 0.2e1 * t81 * t24957 * t1037;
34874   t114651 = 0.2e1 * t20281 * t5546;
34875   t114653 = 0.2e1 * t20284 * t5546;
34876   t114655 = 0.2e1 * t5097 * t22642;
34877   t114656 = -t113580 * t24816 / 0.3e1 - t113523 * t24816 / 0.3e1 - t113528 * t24816 / 0.3e1 - 0.5e1 / 0.36e2 * t90648 * t24819 - 0.5e1 / 0.36e2 * t21510 * t114071 + t114644 - t114646 - t110308 + t114649 - t114651 - t114653 - t114655 - t110342;
34878   t114658 = 0.2e1 * t110393 * t22093;
34879   t114660 = 0.8e1 * t109027 * t22419;
34880   t114662 = 0.6e1 * t109283 * t22423;
34881   t114664 = 0.2e1 * t109283 * t22426;
34882   t114666 = 0.8e1 * t108986 * t22419;
34883   t114668 = 0.6e1 * t109087 * t22423;
34884   t114674 = t1204 * t14718 * t5550;
34885   t114682 = 0.2e1 * t109087 * t22426;
34886   t114684 = 0.8e1 * t21423 * t114238;
34887   t114686 = 0.6e1 * t21426 * t114229;
34888   t114687 = -t114658 - t114660 + t114662 - t114664 - t114666 + t114668 - 0.2e1 / 0.3e1 * t4026 * t113438 - 0.2e1 / 0.3e1 * t4026 * t113442 + t3788 * t114674 / 0.3e1 - t24936 * t20214 / 0.3e1 - t24936 * t20217 / 0.3e1 - t114682 - t114684 + t114686;
34889   t114692 = 0.2e1 * t21426 * t114226;
34890   t114694 = t1204 * t3789 * t22574;
34891   t114698 = 0.2e1 / 0.3e1 * t113690 * t5510;
34892   t114700 = 0.2e1 / 0.3e1 * t113693 * t5510;
34893   t114702 = 0.2e1 / 0.3e1 * t113696 * t5510;
34894   t114704 = 0.2e1 / 0.3e1 * t113699 * t5510;
34895   t114706 = 0.2e1 / 0.3e1 * t24722 * t22412;
34896   t114708 = t12791 * t5546 * t912;
34897   t114712 = 0.10e2 / 0.3e1 * t4013 * t113720;
34898   t114714 = 0.2e1 * t881 * t24958;
34899   t114718 = 0.2e1 * t81 * t4483 * t5460 * t227;
34900   t114722 = 0.2e1 * t81 * t1231 * t22295 * t227;
34901   t114723 = -t114692 + t3788 * t114694 / 0.3e1 + t114698 + t114700 + t114702 + t114704 + t114706 - 0.5e1 / 0.3e1 * t3762 * t114708 + t114712 + t113586 + t114714 + t114718 + t114722;
34902   t114724 = t5273 * t22342;
34903   t114728 = 0.2e1 * t5097 * t22664;
34904   t114734 = 0.2e1 * t449 * t1252 * t22295;
34905   t114736 = 0.2e1 * t881 * t24962;
34906   t114740 = 0.2e1 * t81 * t4311 * t5550 * t227;
34907   t114744 = 0.2e1 * t81 * t1143 * t22574 * t227;
34908   t114746 = 0.2e1 / 0.3e1 * t24693 * t114199;
34909   t114753 = 0.10e2 / 0.3e1 * t109237 * t114193;
34910   t114755 = 0.2e1 * t109241 * t114196;
34911   t114757 = t12791 * t5551 * t912;
34912   t114760 = -0.5e1 / 0.3e1 * t3762 * t114724 - t114728 - 0.2e1 * t449 * t1199 * t22574 - t114734 + t114736 + t114740 + t114744 - t114746 + 0.5e1 / 0.3e1 * t109237 * t114202 - t109241 * t114205 + t24693 * t114190 / 0.3e1 - t114753 + t114755 - 0.5e1 / 0.3e1 * t3762 * t114757;
34913   t114766 = 0.2e1 * t81 * t24961 * t1037;
34914   t114773 = t19969 * t24887;
34915   t114777 = t18560 * t4873 * t1133;
34916   t114782 = 0.10e2 / 0.3e1 * t4013 * t113508 + t114766 + 0.5e1 / 0.36e2 * t5084 * t113624 + 0.5e1 / 0.3e1 * t110338 * t22053 + 0.5e1 / 0.36e2 * t20345 * t24888 + 0.5e1 / 0.36e2 * t5084 * t114773 + 0.5e1 / 0.36e2 * t5084 * t114777 + t113631 - t4957 + t110465 + t113262 + t113265 + 0.5e1 / 0.6e1 * t110466 * t114268;
34917   t114784 = 0.2e1 * t20281 * t5551;
34918   t114795 = 0.8e1 * t21257 * t22581;
34919   t114799 = 0.2e1 * t22229 * t5126;
34920   t114800 = t4412 * t24912;
34921   t114804 = t1204 * t929 * t5550;
34922   t114807 = t4412 * t24927;
34923   t114811 = t1204 * t4484 * t1347;
34924   t114815 = t1204 * t4478 * t1347;
34925   t114818 = -t114784 - 0.2e1 * t22448 * t5455 - 0.2e1 * t2442 * t24905 - 0.2e1 * t4302 * t24905 - 0.2e1 * t449 * t4391 * t5550 - t114795 + t14848 * t24913 / 0.3e1 + t114799 + t3788 * t114800 / 0.3e1 + t3788 * t114804 / 0.3e1 + t3788 * t114807 / 0.3e1 + t3788 * t114811 / 0.3e1 + t3788 * t114815 / 0.3e1 - t113268;
34926   t114822 = 0.8e1 * t21675 * t22278;
34927   t114824 = 0.2e1 * t5499 * t22311;
34928   t114826 = 0.2e1 * t5097 * t22613;
34929   t114828 = 0.2e1 * t5475 * t20361;
34930   t114832 = 0.2e1 * t22448 * t5461;
34931   t114834 = 0.2e1 * t22453 * t5461;
34932   t114836 = 0.2e1 * t5499 * t22318;
34933   t114838 = 0.2e1 * t113723 * t1246;
34934   t114840 = 0.10e2 / 0.3e1 * t109300 * t22437;
34935   t114842 = 0.10e2 / 0.3e1 * t109303 * t22437;
34936   t114843 = -0.2e1 * t5499 * t22285 + t113670 - t114822 - t114824 - t114826 + t114828 - t114832 - t114834 - t114836 + t114838 - t114840 - t114842 + t24601;
34937   t114844 = t881 * t5556;
34938   t114846 = 0.2e1 * t114844 * t1193;
34939   t114847 = t81 * t22593;
34940   t114849 = 0.2e1 * t114847 * t1193;
34941   t114850 = t81 * t22597;
34942   t114852 = 0.2e1 * t114850 * t1193;
34943   t114854 = 0.2e1 * t24942 * t4380;
34944   t114855 = t81 * t22566;
34945   t114857 = 0.2e1 * t114855 * t1193;
34946   t114858 = t81 * t22575;
34947   t114860 = 0.2e1 * t114858 * t1193;
34948   t114866 = 0.2e1 * t24939 * t4380;
34949   t114868 = 0.2e1 * t113587 * t1246;
34950   t114870 = 0.2e1 * t113590 * t1246;
34951   t114872 = 0.2e1 * t113593 * t1246;
34952   t114873 = t114846 + t114849 + t114852 - t113674 + t114854 + t114857 + t114860 - t24693 * t114101 / 0.3e1 + t113290 - 0.5e1 / 0.18e2 * t110412 * t114147 + t114866 + t114868 + t114870 + t114872;
34953   t114876 = 0.2e1 * t22223 * t5126;
34954   t114878 = 0.2e1 * t113726 * t1246;
34955   t114880 = 0.2e1 * t113729 * t1246;
34956   t114882 = 0.2e1 * t22226 * t5126;
34957   t114884 = 0.8e1 * t21423 * t114170;
34958   t114886 = 0.2e1 / 0.3e1 * t113535 * t5510;
34959   t114888 = 0.2e1 / 0.3e1 * t113538 * t5510;
34960   t114890 = 0.2e1 / 0.3e1 * t113704 * t5510;
34961   t114892 = 0.2e1 / 0.3e1 * t113707 * t5510;
34962   t114894 = 0.2e1 * t24699 * t4516;
34963   t114896 = 0.2e1 * t2442 * t24900;
34964   t114898 = 0.2e1 * t2442 * t24897;
34965   t114900 = 0.2e1 * t4302 * t24897;
34966   t114901 = t114876 + t114878 + t114880 + t114882 + t114884 + t24715 + t114886 + t114888 + t114890 + t114892 + t114894 - t114896 - t114898 - t114900;
34967   t114904 = 0.2e1 * t449 * t20380 * t1347;
34968   t114907 = 0.2e1 * t449 * t5135 * t4887;
34969   t114909 = 0.2e1 * t24696 * t4516;
34970   t114910 = t881 * t5560;
34971   t114912 = 0.2e1 * t114910 * t1193;
34972   t114916 = t70080 * t110500 * t912;
34973   t114920 = t70080 * t110500 * t883;
34974   t114924 = t50654 * t110500 * t908;
34975   t114931 = -t114904 - t24739 - t114907 + t114909 + t114912 - t113733 - t113747 - t113749 - 0.5e1 / 0.18e2 * t110408 * t114143 - 0.5e1 / 0.6e1 * t70074 * t114916 + 0.5e1 / 0.18e2 * t70086 * t114920 + 0.5e1 / 0.18e2 * t70173 * t114924 - 0.2e1 * t22453 * t5455 - 0.2e1 * t5499 * t22331;
34976   t114935 = t114476 + t114511 + t114539 + t114565 + t114598 + t114631 + t114656 + t114687 + t114723 + t114760 + t114782 + t114818 + t114843 + t114873 + t114901 + t114931;
34977   t114945 = t114935 * t372 * t7 + t24967 * t1130 + t22673 * t1224 + t22349 * t1272 + t1355 * t20457 + t5567 * t4457 + t5479 * t4580 + t4908 * t5175 + t110066 + t110565 + t110568 + t110571;
34978   t114956 = 0.3e1 * t22681 * t1221;
34979   t114963 = 0.6e1 * t369 * t22566 * t1143;
34980   t114966 = 0.6e1 * t369 * t22575 * t1143;
34981   t114969 = 0.6e1 * t369 * t5560 * t4311;
34982   t114971 = 0.6e1 * t1125 * t24999;
34983   t114979 = 0.6e1 * t1125 * t24994;
34984   t114980 = t114935 * t370 * params->d + 0.3e1 * t1219 * t22713 + 0.3e1 * t20430 * t1359 + 0.3e1 * t4445 * t5580 + 0.6e1 * t5483 * t4574 + 0.6e1 * t5166 * t4918 + t114956 + t114963 + t114966 + t114969 + t114971 + t114979;
34985   t114982 = 0.6e1 * t1357 * t20454;
34986   t114984 = 0.6e1 * t4568 * t5489;
34987   t114986 = 0.6e1 * t1357 * t20448;
34988   t114988 = 0.6e1 * t1357 * t20451;
34989   t114990 = 0.6e1 * t1267 * t22378;
34990   t114992 = 0.6e1 * t1267 * t22381;
34991   t114995 = 0.6e1 * t369 * t22336 * t1231;
34992   t114998 = 0.6e1 * t369 * t22296 * t1231;
34993   t115001 = 0.6e1 * t369 * t5471 * t4483;
34994   t115005 = 0.3e1 * t4568 * t5492;
34995   t115008 = 0.3e1 * t24975 * t1127 + 0.3e1 * t5166 * t4921 + t114982 + t114984 + t114986 + t114988 + t114990 + t114992 + t114995 + t114998 + t115001 + t115005 + t5079;
34996   t115011 = 0.3e1 * t1267 * t22389;
34997   t115015 = 0.3e1 * t5571 * t4454;
34998   t115021 = 0.6e1 * t5571 * t4451;
34999   t115025 = 0.6e1 * t1267 * t22386;
35000   t115027 = 0.6e1 * t1125 * t24991;
35001   t115028 = 0.6e1 * t1219 * t22702 + 0.6e1 * t1219 * t22705 + 0.6e1 * t4445 * t5577 + 0.3e1 * t5483 * t4577 + t113802 + t113804 + t115011 + t115015 + t115021 + t115025 + t115027 + t20112 + t24759;
35002   t115030 = 0.6e1 * t4912 * t5172;
35003   t115032 = 0.6e1 * t1267 * t22375;
35004   t115037 = 0.6e1 * t369 * t22300 * t1231;
35005   t115040 = 0.6e1 * t369 * t22303 * t1231;
35006   t115043 = 0.6e1 * t369 * t5467 * t4483;
35007   t115048 = 0.6e1 * t1219 * t22699 + 0.6e1 * t1219 * t22710 + 0.3e1 * t22357 * t1269 + t113815 + t113818 + t113824 + t115030 + t115032 + t115037 + t115040 + t115043 + t20115 + t24774;
35008   t115052 = t110575 + t20422 * t1362 + t5162 * t4924 + t110578 + t4564 * t5495 + t1265 * t22392 + t110581 + t4441 * t5583 + t1217 * t22716 + t110584 + t1123 * t25002 + t872 * (t114980 + t115008 + t115028 + t115048);
35009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35010     v4rhosigma2tau[15] = t114945 + t115052;
35011 
35012   t115053 = t24587 * t4669;
35013   t115054 = t24586 * t115053;
35014   t115055 = t24587 * t4672;
35015   t115056 = t24586 * t115055;
35016   t115057 = t113273 * t25014;
35017   t115058 = t4173 * t113056;
35018   t115059 = t4173 * t113016;
35019   t115060 = -t115054 - t115056 - t115057 + t115058 + t115059 + t112977 + t112979 + t112981 + t112984 + t112988 + t112992 + t112996;
35020   t115070 = t113017 / 0.3e1 - t113029 + t113031 - t113033 - t113035 + t113042 / 0.3e1 + t113044 / 0.3e1 + t113046 / 0.3e1 + t113049 / 0.3e1 + t113053 / 0.3e1 + t113057 / 0.3e1 - t113059 / 0.3e1;
35021   t115073 = t15610 * t24611;
35022   t115075 = t4173 * t113048;
35023   t115077 = t4173 * t113052;
35024   t115083 = t4412 * t25032;
35025   t115087 = t1204 * t4607 * t1326;
35026   t115090 = -t113062 / 0.3e1 + t113072 - t113075 - t113078 + t113081 + t115073 / 0.3e1 + t115075 / 0.3e1 + t115077 / 0.3e1 + t14156 * t25033 / 0.3e1 + t14848 * t25033 / 0.3e1 + t3788 * t115083 / 0.3e1 + t3788 * t115087 / 0.3e1;
35027   t115092 = t1204 * t77598 * t1326;
35028   t115107 = t113125 * t5590;
35029   t115109 = t20281 * t5587;
35030   t115111 = t3788 * t115092 / 0.3e1 + t15503 * t24615 / 0.3e1 + t15686 * t24615 / 0.3e1 + t15610 * t24615 / 0.3e1 + t4173 * t113004 / 0.3e1 + t4173 * t113008 / 0.3e1 + t4173 * t113012 / 0.3e1 - t115107 / 0.3e1 - 0.2e1 * t115109 - t113087 - t113091 + t113094;
35031   t115125 = t113276 * t25014;
35032   t115127 = t113281 * t25014;
35033   t115129 = t113323 * t1310;
35034   t115130 = t24586 * t115129;
35035   t115132 = t113327 * t1310;
35036   t115133 = t24586 * t115132;
35037   t115135 = -t113097 - t113099 / 0.3e1 - t113102 / 0.3e1 - t113105 / 0.3e1 - 0.5e1 / 0.72e2 * t20468 * t24809 - 0.5e1 / 0.72e2 * t20554 * t24809 - 0.5e1 / 0.72e2 * t5179 * t114322 - 0.5e1 / 0.72e2 * t5179 * t114326 - t115125 / 0.3e1 - t115127 / 0.3e1 - t115130 / 0.3e1 - t115133 / 0.3e1;
35038   t115136 = t108628 * t22736;
35039   t115140 = t15503 * t24611;
35040   t115142 = t15686 * t24611;
35041   t115144 = t5097 * t22757;
35042   t115153 = t2442 * t25018;
35043   t115155 = -t19748 - t19750 - t19753 + 0.5e1 / 0.3e1 * t115136 - 0.5e1 / 0.3e1 * t4156 * t113285 + t115140 / 0.3e1 + t115142 / 0.3e1 - 0.2e1 * t115144 - 0.2e1 * t2442 * t25023 - 0.2e1 * t4302 * t25023 - 0.2e1 * t449 * t20508 * t1326 - 0.2e1 * t115153;
35044   t115163 = t20553 * t5138;
35045   t115166 = t5178 * t19977;
35046   t115169 = t70854 * t20153;
35047   t115178 = 0.5e1 / 0.72e2 * t90008 * t25008 + 0.5e1 / 0.72e2 * t89797 * t25008 + 0.5e1 / 0.72e2 * t90323 * t25008 + 0.5e1 / 0.72e2 * t21210 * t115163 + 0.5e1 / 0.72e2 * t21210 * t115166 + t113112 + t113115 + t113118 - 0.5e1 / 0.12e2 * t109510 * t115169 + 0.5e1 / 0.12e2 * t71136 * t114123 - 0.5e1 / 0.36e2 * t70858 * t114127 - 0.5e1 / 0.36e2 * t70855 * t114131;
35048   t115182 = t4302 * t25018;
35049   t115185 = t449 * t4656 * t5412;
35050   t115191 = t449 * t1307 * t22061;
35051   t115193 = t4156 * t113157;
35052   t115197 = t108634 * t22736;
35053   t115199 = -t113119 / 0.3e1 - t113121 / 0.3e1 - t113123 / 0.3e1 - 0.2e1 * t115182 - 0.2e1 * t115185 - t113126 / 0.3e1 - t113129 / 0.3e1 - t113132 / 0.3e1 - 0.2e1 * t115191 - 0.5e1 / 0.3e1 * t115193 + 0.5e1 / 0.72e2 * t89958 * t25008 + 0.5e1 / 0.3e1 * t115197;
35054   t115206 = -t113135 + t113137 + t113139 + t113141 + 0.5e1 / 0.3e1 * t113142 + 0.5e1 / 0.3e1 * t113144 + t113148 - t113150 - t113155 - 0.5e1 / 0.3e1 * t113158 + t113163 - t113165;
35055   t115208 = t20284 * t5587;
35056   t115210 = t5097 * t22764;
35057   t115215 = t15503 * t24620;
35058   t115217 = t15686 * t24620;
35059   t115219 = t15610 * t24620;
35060   t115221 = -0.5e1 / 0.3e1 * t113179 + t113197 + t113201 + t113205 - 0.2e1 * t115208 - 0.2e1 * t115210 - 0.2e1 * t113215 - t113218 + t4173 * t113083 / 0.3e1 + t115215 / 0.3e1 + t115217 / 0.3e1 + t115219 / 0.3e1;
35061   t115223 = t4173 * t112983;
35062   t115225 = t4173 * t112987;
35063   t115227 = t4173 * t112991;
35064   t115230 = t1204 * t18923 * t4830;
35065   t115233 = t113098 * t5590;
35066   t115235 = t113101 * t5590;
35067   t115237 = t113104 * t5590;
35068   t115239 = t113291 * t5590;
35069   t115241 = t24602 * t22720;
35070   t115247 = t115223 / 0.3e1 + t115225 / 0.3e1 + t115227 / 0.3e1 + t3788 * t115230 / 0.3e1 - t115233 / 0.3e1 - t115235 / 0.3e1 - t115237 / 0.3e1 - t115239 / 0.3e1 - t115241 / 0.3e1 + t14152 * t25033 / 0.3e1 - 0.2e1 * t113220 - 0.2e1 * t113225;
35071   t115250 = t12791 * t5587 * t912;
35072   t115253 = -0.2e1 * t113227 - 0.5e1 / 0.3e1 * t3762 * t115250 + t113230 - t113232 - t113234 - t113236 - t113238 + t113241 + t113244 + t113246 + t113250 - t113254;
35073   t115257 = t113128 * t5590;
35074   t115259 = t113131 * t5590;
35075   t115261 = t24605 * t22720;
35076   t115263 = t24605 * t22752;
35077   t115265 = t24605 * t22723;
35078   t115267 = t4173 * t112995;
35079   t115269 = t24602 * t22752;
35080   t115271 = t24602 * t22723;
35081   t115273 = t113061 * t5590;
35082   t115277 = t113259 / 0.3e1 - t115257 / 0.3e1 - t115259 / 0.3e1 - t115261 / 0.3e1 - t115263 / 0.3e1 - t115265 / 0.3e1 + t115267 / 0.3e1 - t115269 / 0.3e1 - t115271 / 0.3e1 - t115273 / 0.3e1 - t4957 - 0.5e1 / 0.72e2 * t5179 * t114079;
35083   t115280 = t4156 * t113178;
35084   t115282 = t110785 * t113306;
35085   t115283 = t108609 * t115282;
35086   t115285 = t110785 * t113252;
35087   t115286 = t108616 * t115285;
35088   t115288 = -0.5e1 / 0.72e2 * t5179 * t113189 + t113262 + t113265 + t24594 - 0.5e1 / 0.3e1 * t115280 - t113268 - t113270 - t113272 + t24601 + 0.5e1 / 0.3e1 * t115283 - t115286 - t113274 / 0.3e1;
35089   t115292 = t70854 * t20161;
35090   t115295 = t70854 * t20165;
35091   t115298 = t110843 * t113257;
35092   t115299 = t24586 * t115298;
35093   t115304 = -t113277 / 0.3e1 - t113282 / 0.3e1 + t113290 + 0.5e1 / 0.36e2 * t109501 * t115292 + 0.5e1 / 0.36e2 * t109506 * t115295 + t115299 / 0.3e1 - t113292 / 0.3e1 - t113295 / 0.3e1 - t113297 / 0.3e1 + t113300 - t24629 + t113302;
35094   t115317 = -0.2e1 * t449 * t5198 * t4830 + t113305 + 0.5e1 / 0.3e1 * t113308 - 0.2e1 * t113310 - 0.2e1 * t113312 - 0.2e1 * t113314 - 0.2e1 * t113316 - t113319 + t113322 - t113325 / 0.3e1 - t113329 / 0.3e1 - t113332 / 0.3e1 - t113335 / 0.3e1;
35095   t115321 = t115060 / 0.3e1 + t115070 + t115090 + t115111 + t115135 + t115155 + t115178 + t115199 + t115206 + t115221 + t115247 + t115253 + t115277 + t115288 + t115304 + t115317;
35096   t115331 = t115321 * t372 * t7 + t25044 * t1130 + t22772 * t1224 + t22178 * t1320 + t1334 * t20645 + t5594 * t4457 + t5431 * t4687 + t4851 * t5223 + t110686 + t110961 + t110964 + t110967;
35097   t115339 = t22780 * t1221;
35098   t115344 = t5598 * t4451;
35099   t115348 = t1318 * t22204;
35100   t115350 = 0.3e1 * t25052 * t1127 + 0.3e1 * t5218 * t4864 + 0.6e1 * t113359 + t113362 + t113365 + t113368 + t113371 + 0.3e1 * t115339 + 0.6e1 * t115344 + 0.6e1 * t115348 + t5079;
35101   t115352 = t4683 * t5441;
35102   t115354 = t4683 * t5444;
35103   t115356 = t1318 * t22218;
35104   t115358 = t1318 * t22215;
35105   t115362 = t5598 * t4454;
35106   t115366 = 0.3e1 * t20632 * t1338 + 0.6e1 * t5218 * t4861 + 0.3e1 * t113372 + t113376 + t113378 + 0.6e1 * t115352 + 0.3e1 * t115354 + 0.3e1 * t115356 + 0.6e1 * t115358 + 0.3e1 * t115362 + t20112;
35107   t115370 = t1318 * t22207;
35108   t115372 = t1318 * t22210;
35109   t115377 = t113382 + t113384 + 0.3e1 * t113385 + t113388 + 0.6e1 * t113389 + 0.6e1 * t115370 + 0.6e1 * t115372 + t113393 + 0.3e1 * t113394 + 0.6e1 * t113396 + 0.6e1 * t113400;
35110   t115383 = t115321 * t370 * params->d + t113404 + t113407 + t113410 + 0.3e1 * t113411 + t113414 + 0.6e1 * t113419 + 0.6e1 * t113421 + t113424 + t20115 + t24665 + t24680;
35111   t115387 = t110971 + t20624 * t1341 + t5214 * t4867 + t110974 + t4679 * t5447 + t1316 * t22221 + t110977 + t4441 * t5602 + t1217 * t22790 + t110980 + t1123 * t25065 + t872 * (t115350 + t115366 + t115377 + t115383);
35112   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35113     v4rhosigma2tau[16] = t115331 + t115387;
35114 
35115   t115388 = t4173 * t113542;
35116   t115390 = t15686 * t24705;
35117   t115392 = t15610 * t24705;
35118   t115394 = t4173 * t113481;
35119   t115396 = t4173 * t113485;
35120   t115398 = t4173 * t113489;
35121   t115400 = t113707 * t5590;
35122   t115402 = t24725 * t22720;
35123   t115404 = t24725 * t22752;
35124   t115407 = t115388 / 0.3e1 + t115390 / 0.3e1 + t115392 / 0.3e1 + t115394 / 0.3e1 + t115396 / 0.3e1 + t115398 / 0.3e1 - t115400 / 0.3e1 - t115402 / 0.3e1 - t115404 / 0.3e1 + t113429 - t113431 + t113432 / 0.3e1;
35125   t115409 = t1204 * t18923 * t4887;
35126   t115413 = t1204 * t4607 * t1347;
35127   t115417 = t1204 * t77598 * t1347;
35128   t115426 = t4412 * t25067;
35129   t115430 = t3788 * t115409 / 0.3e1 + t3788 * t115413 / 0.3e1 + t3788 * t115417 / 0.3e1 + t14152 * t25068 / 0.3e1 + t14156 * t25068 / 0.3e1 + t14848 * t25068 / 0.3e1 + t3788 * t115426 / 0.3e1 + t113449 - t113451 - t113453 + t113455 - t113456 / 0.3e1;
35130   t115432 = t113699 * t5590;
35131   t115434 = t24722 * t22720;
35132   t115436 = t24722 * t22752;
35133   t115438 = t24722 * t22723;
35134   t115440 = t113535 * t5590;
35135   t115442 = t113538 * t5590;
35136   t115444 = t113704 * t5590;
35137   t115446 = t113580 * t25014;
35138   t115448 = t113523 * t25014;
35139   t115450 = t113528 * t25014;
35140   t115452 = t24693 * t115132;
35141   t115454 = -t115432 / 0.3e1 - t115434 / 0.3e1 - t115436 / 0.3e1 - t113459 - t115438 / 0.3e1 - t115440 / 0.3e1 - t115442 / 0.3e1 - t115444 / 0.3e1 - t115446 / 0.3e1 - t115448 / 0.3e1 - t115450 / 0.3e1 - t115452 / 0.3e1;
35142   t115455 = t24693 * t115053;
35143   t115456 = t24693 * t115055;
35144   t115457 = -t115455 - t115456 + t113475 + t113477 + t113479 + t113482 + t113486 + t113490 - t113496 - t113498 - t113500 - t113502;
35145   t115467 = t24693 * t115129;
35146   t115471 = t15503 * t24705;
35147   t115476 = 0.5e1 / 0.72e2 * t90744 * t25008 + 0.5e1 / 0.72e2 * t90747 * t25008 + 0.5e1 / 0.72e2 * t90750 * t25008 - t115467 / 0.3e1 + t4173 * t113555 / 0.3e1 + t115471 / 0.3e1 - 0.5e1 / 0.3e1 * t113505 - t19748 - t19750 - t19753 + 0.5e1 / 0.3e1 * t113513 - t113524 / 0.3e1;
35148   t115486 = t113690 * t5590;
35149   t115488 = t113693 * t5590;
35150   t115491 = -t113529 / 0.3e1 + 0.5e1 / 0.3e1 * t113531 - t113533 / 0.3e1 - t113536 / 0.3e1 - t113539 / 0.3e1 + t4173 * t113438 / 0.3e1 + t4173 * t113442 / 0.3e1 - t115486 / 0.3e1 - t115488 / 0.3e1 + t113543 / 0.3e1 - t113559 + t113561;
35151   t115493 = t113696 * t5590;
35152   t115495 = t109241 * t115285;
35153   t115496 = t24693 * t115298;
35154   t115504 = t4156 * t113504;
35155   t115506 = t109300 * t22736;
35156   t115508 = -t113563 - t113565 + t113567 - t113569 - t115493 / 0.3e1 - t115495 + t115496 / 0.3e1 + 0.5e1 / 0.72e2 * t90648 * t25008 + 0.5e1 / 0.72e2 * t21510 * t115163 + 0.5e1 / 0.72e2 * t21510 * t115166 - 0.5e1 / 0.3e1 * t115504 + 0.5e1 / 0.3e1 * t115506;
35157   t115509 = t109303 * t22736;
35158   t115512 = t12791 * t5606 * t912;
35159   t115519 = t4156 * t113720;
35160   t115528 = 0.5e1 / 0.3e1 * t115509 + t113571 + t113575 + t113579 - 0.5e1 / 0.3e1 * t3762 * t115512 - 0.5e1 / 0.72e2 * t5179 * t114612 - 0.5e1 / 0.72e2 * t5179 * t113624 - 0.5e1 / 0.3e1 * t115519 - t113581 / 0.3e1 - 0.5e1 / 0.72e2 * t20468 * t24888 - 0.5e1 / 0.72e2 * t20554 * t24888 - 0.5e1 / 0.72e2 * t5179 * t114773;
35161   t115534 = t24725 * t22723;
35162   t115536 = t15503 * t24684;
35163   t115538 = -0.5e1 / 0.72e2 * t5179 * t114777 + t113586 + t113589 + t113592 + t113595 + t113597 - t113602 - t113604 - t113606 + t113609 - t115534 / 0.3e1 + t115536 / 0.3e1;
35164   t115539 = t15686 * t24684;
35165   t115541 = t15610 * t24684;
35166   t115543 = t4173 * t113646;
35167   t115545 = t4173 * t113650;
35168   t115547 = t4173 * t113654;
35169   t115559 = t115539 / 0.3e1 + t115541 / 0.3e1 + t115543 / 0.3e1 + t115545 / 0.3e1 + t115547 / 0.3e1 - 0.5e1 / 0.12e2 * t110466 * t115169 + 0.5e1 / 0.12e2 * t71136 * t114916 + t113610 / 0.3e1 + 0.5e1 / 0.3e1 * t113612 - t113614 + 0.5e1 / 0.36e2 * t110408 * t115292 + 0.5e1 / 0.36e2 * t110412 * t115295;
35170   t115561 = t109237 * t115282;
35171   t115563 = t4173 * t113474;
35172   t115572 = t449 * t1307 * t22295;
35173   t115574 = t5097 * t22798;
35174   t115583 = t113628 + 0.5e1 / 0.3e1 * t115561 + t115563 / 0.3e1 + t15503 * t24688 / 0.3e1 + t15686 * t24688 / 0.3e1 + t15610 * t24688 / 0.3e1 + t113631 - 0.2e1 * t115572 - 0.2e1 * t115574 - 0.2e1 * t2442 * t25090 - 0.2e1 * t4302 * t25090 - 0.2e1 * t449 * t20508 * t1347;
35175   t115587 = t449 * t4656 * t5460;
35176   t115596 = -t4957 + t113262 + t113265 - 0.2e1 * t113632 - 0.2e1 * t113635 - 0.2e1 * t115587 + t4173 * t113434 / 0.3e1 + t113640 / 0.3e1 + t113642 / 0.3e1 + t113644 / 0.3e1 + t113647 / 0.3e1 + t113651 / 0.3e1;
35177   t115604 = t20281 * t5606;
35178   t115606 = t113655 / 0.3e1 - t113268 - t113658 - t113660 - 0.5e1 / 0.36e2 * t70858 * t114920 - 0.5e1 / 0.36e2 * t70855 * t114924 + t113662 + t24601 - 0.2e1 * t115604 + t113664 + t113666 + t113668;
35179   t115610 = t20284 * t5606;
35180   t115612 = t5097 * t22841;
35181   t115617 = t113670 - t113674 - 0.2e1 * t113675 - 0.2e1 * t113677 - 0.2e1 * t113680 - t113683 - t113685 + t113290 - 0.2e1 * t115610 - 0.2e1 * t115612 - 0.2e1 * t113686 - 0.5e1 / 0.3e1 * t4156 * t113508;
35182   t115630 = -0.2e1 * t113688 + t24715 - t113691 / 0.3e1 - t113694 / 0.3e1 - t113697 / 0.3e1 - t113700 / 0.3e1 - t113702 / 0.3e1 - t113705 / 0.3e1 - t113708 / 0.3e1 - t113711 / 0.3e1 - t113713 / 0.3e1 - t113715 / 0.3e1;
35183   t115635 = t2442 * t25093;
35184   t115637 = t4302 * t25093;
35185   t115640 = -0.5e1 / 0.3e1 * t113721 - 0.2e1 * t449 * t5198 * t4887 - 0.2e1 * t115635 - 0.2e1 * t115637 + t113725 + t113728 + t113731 - t24739 - t113733 - t113735 - 0.2e1 * t113744 - t113747 - t113749;
35186   t115644 = t115407 + t115430 + t115454 + t115457 / 0.3e1 + t115476 + t115491 + t115508 + t115528 + t115538 + t115559 + t115583 + t115596 + t115606 + t115617 + t115630 + t115640;
35187   t115654 = t115644 * t372 * t7 + t25105 * t1130 + t22851 * t1224 + t22349 * t1320 + t1355 * t20645 + t5612 * t4457 + t5479 * t4687 + t4908 * t5223 + t111031 + t111281 + t111284 + t111287;
35188   t115663 = t4683 * t5492;
35189   t115665 = t1318 * t22375;
35190   t115667 = t1318 * t22378;
35191   t115669 = t5616 * t4451;
35192   t115671 = t1318 * t22381;
35193   t115675 = 0.3e1 * t20632 * t1359 + 0.3e1 * t113770 + t113773 + t113778 + t113782 + 0.3e1 * t115663 + 0.6e1 * t115665 + 0.6e1 * t115667 + 0.6e1 * t115669 + 0.6e1 * t115671 + t5079;
35194   t115679 = t1318 * t22389;
35195   t115681 = t22859 * t1221;
35196   t115687 = 0.3e1 * t25113 * t1127 + 0.3e1 * t5218 * t4921 + 0.6e1 * t113783 + t113788 + 0.3e1 * t113789 + 0.3e1 * t113791 + t113795 + 0.3e1 * t115679 + 0.3e1 * t115681 + t20112 + t24759;
35197   t115691 = t5616 * t4454;
35198   t115693 = t1318 * t22386;
35199   t115699 = 0.6e1 * t5218 * t4918 + 0.6e1 * t113796 + 0.6e1 * t113798 + t113802 + t113804 + 0.6e1 * t113805 + 0.6e1 * t113807 + t113812 + t113815 + 0.3e1 * t115691 + 0.6e1 * t115693;
35200   t115702 = t4683 * t5489;
35201   t115706 = t115644 * t370 * params->d + t113818 + 0.6e1 * t113819 + t113824 + t113826 + t113829 + t113832 + t113835 + 0.3e1 * t113836 + 0.6e1 * t115702 + t20115 + t24774;
35202   t115710 = t111291 + t20624 * t1362 + t5214 * t4924 + t111294 + t4679 * t5495 + t1316 * t22392 + t111297 + t4441 * t5620 + t1217 * t22869 + t111300 + t1123 * t25126 + t872 * (t115675 + t115687 + t115699 + t115706);
35203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35204     v4rhosigma2tau[17] = t115654 + t115710;
35205 
35206   t115716 = t14483 * t19271 * t912;
35207   t115719 = t13344 * t20742;
35208   t115738 = t19113 * t19981;
35209   t115743 = t14483 * t20746;
35210   t115746 = 0.12e2 * t109649 * t22423 - 0.4e1 * t109649 * t22426 - 0.8e1 * t21239 * t115716 + 0.6e1 * t21244 * t115719 - 0.16e2 * t109637 * t22419 + 0.12e2 * t109640 * t22423 - 0.4e1 * t109640 * t22426 + 0.4e1 / 0.3e1 * t113273 * t25128 + 0.4e1 / 0.3e1 * t113276 * t25128 + 0.4e1 / 0.3e1 * t113281 * t25128 - 0.4e1 / 0.3e1 * t4026 * t113842 - 0.4e1 / 0.3e1 * t14978 * t24795 + 0.5e1 / 0.9e1 * t21210 * t115738 - 0.20e2 / 0.3e1 * t109604 * t22437 - t111361 - 0.2e1 * t21244 * t115743;
35211   t115756 = t14483 * t19279 * t912;
35212   t115759 = t13344 * t20748;
35213   t115762 = t14483 * t20751;
35214   t115765 = t14483 * t20754;
35215   t115782 = 0.5e1 / 0.18e2 * t89958 * t25137 + 0.5e1 / 0.18e2 * t90008 * t25137 + 0.5e1 / 0.18e2 * t89797 * t25137 + 0.5e1 / 0.18e2 * t90323 * t25137 + 0.8e1 * t21239 * t115756 - 0.6e1 * t21244 * t115759 - 0.4e1 * t21244 * t115762 + 0.4e1 * t21244 * t115765 + 0.4e1 / 0.3e1 * t113989 * t5510 - 0.5e1 / 0.18e2 * t19122 * t113064 + 0.5e1 / 0.3e1 * t19114 * t113181 - 0.5e1 / 0.9e1 * t19119 * t113185 - 0.5e1 / 0.9e1 * t19122 * t113193 - 0.16e2 * t109646 * t22419 + 0.4e1 * t24822 * t4516 - t19748 - t19750;
35216   t115792 = t111529 * t113306;
35217   t115801 = -t19753 + t111409 - t111411 + t111413 + t111415 + 0.4e1 * t114271 * t1246 + 0.4e1 * t114274 * t1246 + 0.4e1 * t114277 * t1246 - 0.4e1 / 0.3e1 * t4026 * t113936 + t111468 - 0.20e2 / 0.3e1 * t108609 * t115792 - t111508 - t111510 - 0.4e1 / 0.3e1 * t14972 * t24795 - 0.4e1 / 0.3e1 * t4026 * t113891 - 0.4e1 / 0.3e1 * t4026 * t113895;
35218   t115819 = -t4026 * t113862 - t4026 * t113880 - t4026 * t113899 + t113992 * t5510 + t113995 * t5510 + t113998 * t5510 + t114007 * t5510 + t114010 * t5510 + t114014 * t5510 + t114017 * t5510 - t14972 * t24791 - t14978 * t24778 - t14978 * t24791 + t24781 * t22412 + t24784 * t22412 + t24781 * t22415 + t24784 * t22415;
35219   t115831 = t19113 * t19965;
35220   t115846 = t19118 * t19973;
35221   t115851 = -0.4e1 / 0.3e1 * t4026 * t113884 - 0.4e1 / 0.3e1 * t4026 * t113888 - 0.4e1 / 0.3e1 * t14972 * t24778 - 0.4e1 / 0.3e1 * t4026 * t113932 - 0.5e1 / 0.3e1 * t87029 * t115831 - 0.4e1 * t2442 * t25160 - 0.4e1 * t4302 * t25160 - 0.4e1 * t449 * t4527 * t5506 - 0.2e1 * t449 * t5267 * t4830 + 0.20e2 / 0.3e1 * t4013 * t114117 + 0.5e1 / 0.9e1 * t21210 * t115846 + t113163 - 0.16e2 * t21675 * t22442 - t113165 - t113232 - t113234;
35222   t115864 = t111533 * t113257;
35223   t115874 = t114100 * t1255;
35224   t115877 = t24815 * t4539;
35225   t115882 = -0.2e1 * t22165 * t5260 - 0.2e1 * t22167 * t5260 - 0.4e1 * t22448 * t5507 - 0.4e1 * t22453 * t5507 - 0.4e1 * t5499 * t22475 - 0.4e1 * t5499 * t22493 - t4957 - 0.4e1 / 0.3e1 * t24586 * t115864 - 0.2e1 * t2442 * t25157 - 0.2e1 * t4302 * t25157 - 0.2e1 * t449 * t20765 * t1326 + t113262 + t113265 + 0.4e1 / 0.3e1 * t24586 * t115874 + 0.4e1 / 0.3e1 * t24586 * t115877 + t24594 - 0.4e1 / 0.3e1 * t4026 * t113940;
35226   t115903 = t114264 * t1255;
35227   t115914 = -0.4e1 / 0.3e1 * t4026 * t113873 - 0.5e1 / 0.18e2 * t78700 * t24623 - 0.5e1 / 0.18e2 * t19122 * t113021 - 0.5e1 / 0.18e2 * t19122 * t113025 - t113268 - t113272 + 0.4e1 * t24826 * t4516 + 0.2e1 * t22050 * t5256 + 0.2e1 * t22165 * t5256 + 0.2e1 * t22167 * t5256 + 0.4e1 * t81 * t25165 * t1037 + 0.4e1 / 0.3e1 * t24586 * t115903 + t24601 + 0.20e2 / 0.3e1 * t4013 * t114075 - 0.20e2 / 0.3e1 * t109754 * t22437 + 0.20e2 / 0.3e1 * t4013 * t114134 + 0.4e1 * t881 * t25166;
35228   t115928 = t111529 * t113252;
35229   t115947 = 0.4e1 * t1231 * t22464 * t227 * t81 + 0.4e1 * t227 * t4483 * t5506 * t81 - 0.4e1 * t1252 * t22464 * t449 + 0.4e1 * t108616 * t115928 + 0.4e1 * t114059 * t1246 + 0.4e1 * t114062 * t1246 + 0.4e1 * t114065 * t1246 + 0.2e1 * t5427 * t20745 - 0.2e1 * t22050 * t5260 - 0.4e1 * t22448 * t5502 - 0.4e1 * t22453 * t5502 - 0.4e1 * t5499 * t22498 - 0.4e1 * t5499 * t22509 + t113290 + t113300 + t113322 - t24629;
35230   t115950 = t115746 + t115782 + t115801 + 0.4e1 / 0.3e1 * t115819 + t115851 + t115882 + t115914 + t115947;
35231   t116001 = t115950 * t370 * params->d + 0.12e2 * t1231 * t22465 * t369 + 0.12e2 * t1231 * t22505 * t369 + 0.12e2 * t369 * t4483 * t5513 + 0.12e2 * t369 * t4483 * t5517 + 0.6e1 * t1125 * t25191 + 0.12e2 * t1267 * t22541 + 0.12e2 * t1267 * t22544 + 0.12e2 * t1267 * t22547 + 0.6e1 * t1267 * t22555 + 0.6e1 * t22523 * t1269 + 0.12e2 * t4568 * t5534 + 0.6e1 * t5528 * t4577 + 0.6e1 * t4855 * t5294 + 0.6e1 * t5290 * t4861 + t113362 + t5079;
35232   t116023 = 0.6e1 * t369 * t4830 * t5235 + 0.12e2 * t1125 * t25194 + 0.3e1 * t25179 * t1127 + 0.12e2 * t1267 * t22552 + 0.6e1 * t1336 * t20858 + 0.12e2 * t1336 * t20861 + 0.3e1 * t20846 * t1338 + 0.6e1 * t4568 * t5537 + 0.12e2 * t5528 * t4574 + 0.3e1 * t5290 * t4864 + t113365 + t113368 + t113384 + t113393 + t20112 + t20115 + t24665 + t24680;
35233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35234     v4rhosigma2tau[18] = t111351 + t7 * t115950 * t372 + t25171 * t1130 + t111632 + 0.2e1 * t22515 * t1272 + 0.2e1 * t5524 * t4580 + t111637 + t4851 * t5297 + t1334 * t20864 + t111640 + t20838 * t1341 + t5286 * t4867 + t111644 + 0.2e1 * t4564 * t5540 + 0.2e1 * t1265 * t22558 + t111649 + t1123 * t25197 + t872 * (t116001 + t116023);
35235 
35236   t116038 = -t111718 + t111720 - t111765 + t111793 - t111795 + t111811 + t111814 + 0.4e1 / 0.3e1 * t24693 * t115903 + 0.4e1 / 0.3e1 * t24693 * t115874 + 0.4e1 / 0.3e1 * t24693 * t115877 + 0.5e1 / 0.18e2 * t90648 * t25137 + 0.8e1 * t21423 * t115756 - t19748 - t19750 - t19753 + 0.20e2 / 0.3e1 * t4013 * t114724;
35237   t116073 = 0.5e1 / 0.9e1 * t21510 * t115738 + 0.20e2 / 0.3e1 * t4013 * t114708 + 0.4e1 / 0.3e1 * t113580 * t25128 + 0.4e1 / 0.3e1 * t113523 * t25128 + 0.4e1 / 0.3e1 * t113528 * t25128 + 0.4e1 / 0.3e1 * t114467 * t5510 + 0.4e1 / 0.3e1 * t24933 * t22412 + 0.4e1 / 0.3e1 * t24933 * t22415 + 0.4e1 / 0.3e1 * t114477 * t5510 + 0.4e1 / 0.3e1 * t114480 * t5510 - 0.4e1 / 0.3e1 * t4026 * t114694 - 0.5e1 / 0.18e2 * t78700 * t24708 - 0.5e1 / 0.18e2 * t19122 * t113547 - 0.5e1 / 0.18e2 * t19122 * t113551 + 0.4e1 / 0.3e1 * t114483 * t5510 + 0.4e1 / 0.3e1 * t114486 * t5510 + 0.4e1 / 0.3e1 * t24936 * t22412;
35238   t116106 = 0.4e1 / 0.3e1 * t24936 * t22415 + 0.5e1 / 0.18e2 * t90744 * t25137 + 0.5e1 / 0.18e2 * t90747 * t25137 + 0.5e1 / 0.18e2 * t90750 * t25137 - 0.2e1 * t449 * t5267 * t4887 - 0.4e1 * t2442 * t25212 - 0.4e1 * t4302 * t25212 - 0.4e1 * t5499 * t22613 - 0.4e1 * t22448 * t5551 - 0.20e2 / 0.3e1 * t110554 * t22437 + t113586 + 0.4e1 * t24942 * t4516 + 0.4e1 * t114858 * t1246 - 0.2e1 * t22229 * t5260 + 0.4e1 * t114910 * t1246 + 0.4e1 * t114855 * t1246;
35239   t116142 = 0.20e2 / 0.3e1 * t4013 * t114757 - 0.4e1 * t5499 * t22664 - 0.4e1 * t449 * t1252 * t22574 - 0.4e1 / 0.3e1 * t14978 * t24913 - 0.4e1 / 0.3e1 * t14972 * t24913 - 0.4e1 / 0.3e1 * t4026 * t114800 - 0.4e1 / 0.3e1 * t4026 * t114804 - 0.4e1 / 0.3e1 * t4026 * t114674 - 0.8e1 * t21423 * t115716 + 0.6e1 * t21426 * t115719 - 0.2e1 * t21426 * t115743 - 0.4e1 / 0.3e1 * t4026 * t114500 - 0.4e1 / 0.3e1 * t14978 * t24909 - 0.4e1 / 0.3e1 * t14972 * t24909 - 0.4e1 / 0.3e1 * t4026 * t114576 - 0.4e1 / 0.3e1 * t4026 * t114580 - 0.4e1 / 0.3e1 * t4026 * t114584;
35240   t116176 = -0.4e1 / 0.3e1 * t4026 * t114588 - 0.4e1 / 0.3e1 * t14978 * t24928 - 0.4e1 / 0.3e1 * t14972 * t24928 - 0.4e1 / 0.3e1 * t4026 * t114807 - 0.4e1 * t449 * t4527 * t5550 - 0.4e1 * t22448 * t5546 - 0.4e1 * t22453 * t5551 - 0.4e1 * t5499 * t22622 + t113631 - 0.4e1 / 0.3e1 * t24693 * t115864 + 0.4e1 * t109241 * t115928 - 0.20e2 / 0.3e1 * t109237 * t115792 - 0.4e1 / 0.3e1 * t4026 * t114811 - 0.4e1 / 0.3e1 * t4026 * t114815 - 0.6e1 * t21426 * t115759 - 0.4e1 * t21426 * t115762;
35241   t116215 = 0.4e1 * t21426 * t115765 - 0.16e2 * t110365 * t22419 + 0.12e2 * t110393 * t22423 - 0.4e1 * t110393 * t22426 - 0.5e1 / 0.18e2 * t19122 * t113445 - 0.16e2 * t110286 * t22419 + 0.12e2 * t110289 * t22423 - 0.4e1 * t110289 * t22426 + 0.4e1 / 0.3e1 * t114595 * t5510 + 0.4e1 / 0.3e1 * t114599 * t5510 + 0.4e1 / 0.3e1 * t114602 * t5510 + 0.4e1 * t881 * t25202 + 0.4e1 * t81 * t4483 * t5550 * t227 + 0.4e1 * t81 * t1231 * t22574 * t227 - 0.20e2 / 0.3e1 * t110338 * t22437 - 0.5e1 / 0.3e1 * t87504 * t115831 + 0.5e1 / 0.9e1 * t21510 * t115846;
35242   t116235 = 0.4e1 * t1037 * t25201 * t81 - 0.2e1 * t1347 * t20765 * t449 + 0.2e1 * t5475 * t20745 - 0.2e1 * t22223 * t5260 - 0.2e1 * t22226 * t5260 + 0.2e1 * t22229 * t5256 - 0.2e1 * t2442 * t25209 - 0.2e1 * t4302 * t25209 - t111934 + t113262 + t113265 - t113268 + t113290 + t113670 - t113674 + t24601 - t4957;
35243   t116260 = 0.4e1 * t24939 * t4516 - 0.4e1 * t22453 * t5546 - 0.4e1 * t5499 * t22642 + t24715 + 0.2e1 * t22223 * t5256 + 0.2e1 * t22226 * t5256 - t24739 - t113733 + 0.4e1 * t114844 * t1246 + 0.4e1 * t114847 * t1246 + 0.4e1 * t114850 * t1246 - t113747 - t113749 - 0.16e2 * t21675 * t22581 + 0.5e1 / 0.3e1 * t19114 * t113616 - 0.5e1 / 0.9e1 * t19119 * t113620 - 0.5e1 / 0.9e1 * t19122 * t113493;
35244   t116263 = t116038 + t116073 + t116106 + t116142 + t116176 + t116215 + t116235 + t116260;
35245   t116306 = t116263 * t370 * params->d + 0.12e2 * t369 * t4483 * t5556 + 0.6e1 * t369 * t4887 * t5235 + 0.12e2 * t1267 * t22705 + 0.6e1 * t22681 * t1269 + 0.6e1 * t1357 * t20858 + 0.3e1 * t20846 * t1359 + 0.6e1 * t4568 * t5580 + 0.12e2 * t5571 * t4574 + 0.6e1 * t4912 * t5294 + 0.6e1 * t5290 * t4918 + 0.3e1 * t5290 * t4921 + t113802 + t113804 + t20112 + t24759 + t5079;
35246   t116336 = 0.12e2 * t1231 * t22566 * t369 + 0.12e2 * t1231 * t22575 * t369 + 0.12e2 * t369 * t4483 * t5560 + 0.6e1 * t1125 * t25260 + 0.12e2 * t1125 * t25263 + 0.3e1 * t25248 * t1127 + 0.12e2 * t1267 * t22699 + 0.12e2 * t1267 * t22702 + 0.12e2 * t1267 * t22710 + 0.6e1 * t1267 * t22713 + 0.12e2 * t1357 * t20861 + 0.12e2 * t4568 * t5577 + 0.6e1 * t5571 * t4577 + t113815 + t113818 + t113824 + t20115 + t24774;
35247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35248     v4rhosigma2tau[19] = t111710 + t7 * t116263 * t372 + t25240 * t1130 + t111969 + 0.2e1 * t22673 * t1272 + 0.2e1 * t5567 * t4580 + t111974 + t4908 * t5297 + t1355 * t20864 + t111977 + t20838 * t1362 + t5286 * t4924 + t111981 + 0.2e1 * t4564 * t5583 + 0.2e1 * t1265 * t22716 + t111986 + t1123 * t25266 + t872 * (t116306 + t116336);
35249 
35250   t116345 = -0.2e1 / 0.3e1 * t4026 * t115092 + t4173 * t113842 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t115230 - t113846 - t113858 + t113860 - t113868 - t113870 - t113877 - t113904 - t113907 - t113909 + t113919;
35251   t116348 = t113921 + t113923 + t113925 - t113944 - t113946 - t113949 + t112059 + t109435 + t113952 + t113955 + t113958 + t113960 + t113962 + t15503 * t24795 / 0.3e1;
35252   t116370 = t15686 * t24795 / 0.3e1 + t15610 * t24795 / 0.3e1 + t4173 * t113891 / 0.3e1 + t4173 * t113895 / 0.3e1 + t4173 * t113899 / 0.3e1 + t4173 * t113862 / 0.3e1 + t15503 * t24778 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t114117 + t113970 - t113973 - t113975 - t113989 * t5590 / 0.3e1 - t113992 * t5590 / 0.3e1;
35253   t116379 = -t113995 * t5590 / 0.3e1 - t113998 * t5590 / 0.3e1 - t24781 * t22720 / 0.3e1 - t24781 * t22752 / 0.3e1 + t113977 + t113982 + t113984 + t113986 + t113988 + t112120 - t114027 - t114029 - t114031 + t114033;
35254   t116394 = -t114035 - t114037 - t114039 - t114041 - t19748 - t19750 - t19753 + 0.10e2 / 0.3e1 * t4013 * t115250 + 0.5e1 / 0.3e1 * t109604 * t22736 + 0.5e1 / 0.3e1 * t109754 * t22736 - t24781 * t22723 / 0.3e1 - t114007 * t5590 / 0.3e1 - t114010 * t5590 / 0.3e1;
35255   t116419 = -t114014 * t5590 / 0.3e1 - t114017 * t5590 / 0.3e1 - t24784 * t22720 / 0.3e1 - t24784 * t22752 / 0.3e1 - t24784 * t22723 / 0.3e1 + t15503 * t24791 / 0.3e1 + t15686 * t24791 / 0.3e1 + t15610 * t24791 / 0.3e1 + t4173 * t113880 / 0.3e1 + t4173 * t113884 / 0.3e1 + t4173 * t113888 / 0.3e1 - t114056 - t114058 - t113281 * t25294 / 0.3e1;
35256   t116425 = t20553 * t5312;
35257   t116430 = t114061 + t114064 + t114067 + t114069 + t114083 - t112170 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4831 * t57 - t114093 - t114097 - t114099 - 0.5e1 / 0.36e2 * t21210 * t116425 - 0.5e1 / 0.3e1 * t4156 * t114134 + t114115;
35258   t116441 = t113163 - t113165 - 0.5e1 / 0.36e2 * t90323 * t25280 - t114140 + t114142 - 0.2e1 / 0.3e1 * t14972 * t25033 - 0.2e1 / 0.3e1 * t4026 * t115083 - 0.2e1 / 0.3e1 * t4026 * t115087 + t114151 + t114153 + t114155 + t114159 + t114163 - 0.5e1 / 0.36e2 * t89958 * t25280;
35259   t116449 = t70854 * t20910;
35260   t116464 = -0.5e1 / 0.36e2 * t90008 * t25280 - 0.5e1 / 0.36e2 * t89797 * t25280 + t114165 + 0.5e1 / 0.6e1 * t109510 * t116449 - 0.5e1 / 0.6e1 * t71136 * t70080 * t112145 * t912 + 0.5e1 / 0.18e2 * t70858 * t70080 * t112145 * t883 + 0.5e1 / 0.18e2 * t70855 * t50654 * t112145 * t908 + t114168 + t114172 - t114175 - t114177 - t114179 - t113232;
35261   t116477 = -t113234 - t114183 - t114185 - t114187 - t114189 - t114195 + t114198 - t114201 - 0.2e1 * t22448 * t5587 - 0.2e1 * t22453 * t5587 - 0.2e1 * t5499 * t22764 + t15686 * t24778 / 0.3e1 + t15610 * t24778 / 0.3e1 + t4173 * t113932 / 0.3e1;
35262   t116498 = t4173 * t113936 / 0.3e1 + t4173 * t113940 / 0.3e1 + t4173 * t113873 / 0.3e1 - 0.2e1 / 0.3e1 * t14978 * t25033 + 0.5e1 / 0.36e2 * t20468 * t25284 + 0.5e1 / 0.36e2 * t20554 * t25284 + 0.5e1 / 0.36e2 * t5179 * t19969 * t25283 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4820 * t57 - t4957 + t113262 + t113265 + t24594 - t114211;
35263   t116499 = -t114213 - t114215 + t114217 - t114219 - t114221 - t114223 + t114225 - t114228 + t114231 - t114240 + t114242 + t114244 + t114246 + t114248;
35264   t116502 = t114264 * t1310;
35265   t116505 = t114100 * t1310;
35266   t116508 = t24815 * t4669;
35267   t116511 = t24815 * t4672;
35268   t116514 = t114250 + t114252 + t114254 + t114256 - t114258 - t114260 - t113268 - t109728 - t113272 - t24586 * t116502 / 0.3e1 - t24586 * t116505 / 0.3e1 - t24586 * t116508 / 0.3e1 - t24586 * t116511 / 0.3e1;
35269   t116522 = -t1307 * t22464 * t449 - t449 * t4656 * t5506 - t5499 * t22757 - t2442 * t25299 - t4302 * t25299 + t114272 + t114275 + t114278 + t114280 + t114282 + t114284 + t114288 - t114290 + t24600;
35270   t116525 = t112175 * t113306;
35271   t116528 = t112175 * t113252;
35272   t116530 = t112181 * t113257;
35273   t116537 = t70854 * t20918;
35274   t116540 = t70854 * t20922;
35275   t116545 = 0.5e1 / 0.3e1 * t108609 * t116525 - t108616 * t116528 + t24586 * t116530 / 0.3e1 - t113273 * t25294 / 0.3e1 - t113276 * t25294 / 0.3e1 - 0.5e1 / 0.18e2 * t109501 * t116537 - 0.5e1 / 0.18e2 * t109506 * t116540 + t113290 - t109803 - t114301 - t114305 - t114307 - 0.5e1 / 0.3e1 * t4156 * t114075 + t113300;
35276   t116546 = t114309 + t114313 - t114315 - t114318 - t24629 + t114330 - t109868 + t109887 + t114332 + t113322 - t114334 - t114336 - t114339 + t114345;
35277   t116550 = t116345 + t116348 + t116370 + t116379 + t116394 + t116419 + t116430 + t116441 + t116464 + t116477 + t116498 + t116499 + t116514 + 0.2e1 * t116522 + t116545 + t116546;
35278   t116560 = t116550 * t372 * t7 + t25309 * t1130 + t22772 * t1272 + t22515 * t1320 + t1334 * t21015 + t5594 * t4580 + t5524 * t4687 + t4851 * t5331 + t112047 + t112291 + t112294 + t112297;
35279   t116582 = 0.6e1 * t1318 * t22541 + 0.6e1 * t1318 * t22544 + 0.6e1 * t1318 * t22547 + 0.6e1 * t1318 * t22552 + 0.3e1 * t1318 * t22555 + 0.6e1 * t5598 * t4574 + 0.6e1 * t5327 * t4861 + t113362 + t114371 + t114373 + t114375 + t5079;
35280   t116589 = t116550 * t370 * params->d + 0.3e1 * t21005 * t1338 + t113365 + t113368 + t114381 + t114385 + t114394 + t114404 + t114407 + t114410 + 0.6e1 * t114414 + 0.6e1 * t114415 + t20112;
35281   t116607 = 0.3e1 * t25317 * t1127 + 0.6e1 * t4683 * t5534 + 0.3e1 * t4683 * t5537 + 0.3e1 * t5327 * t4864 + t113384 + 0.6e1 * t114416 + 0.6e1 * t114417 + 0.6e1 * t114418 + 0.6e1 * t114419 + 0.6e1 * t114421 + 0.6e1 * t114423 + 0.6e1 * t114425 + 0.6e1 * t114426;
35282   t116613 = 0.3e1 * t22780 * t1269 + 0.3e1 * t5598 * t4577 + t113393 + 0.6e1 * t114427 + t114432 + t114435 + t114438 + t114441 + t114445 + t114451 + t20115 + t24665 + t24680;
35283   t116617 = t112301 + t20997 * t1341 + t5323 * t4867 + t112304 + t4679 * t5540 + t1316 * t22558 + t112307 + t4564 * t5602 + t1265 * t22790 + t112310 + t1123 * t25327 + t872 * (t116582 + t116589 + t116607 + t116613);
35284   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35285     v4rhosigma2tau[20] = t116560 + t116617;
35286 
35287   t116624 = -t24693 * t116505 / 0.3e1 - t24693 * t116508 / 0.3e1 - t24693 * t116511 / 0.3e1 - t110129 - t110131 + t110163 - t114460 - t114462 - t114464 - t114466 - t114492 - t114504 - t114506;
35288   t116631 = -t114508 - t114510 - t114514 - t114516 + t114518 + t4173 * t114815 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t115409 + t4173 * t114500 / 0.3e1 + t114520 - t114522 - t114524 - t114526 - t114528 - t114530;
35289   t116657 = -t114532 - t114602 * t5590 / 0.3e1 - t114467 * t5590 / 0.3e1 - t24933 * t22720 / 0.3e1 - t24933 * t22752 / 0.3e1 - t24933 * t22723 / 0.3e1 - t114477 * t5590 / 0.3e1 - t114480 * t5590 / 0.3e1 - t114483 * t5590 / 0.3e1 - t114486 * t5590 / 0.3e1 - t24936 * t22720 / 0.3e1 - t24936 * t22752 / 0.3e1 - t24936 * t22723 / 0.3e1;
35290   t116670 = t15503 * t24928 / 0.3e1 + t15686 * t24928 / 0.3e1 + t15610 * t24928 / 0.3e1 + t4173 * t114807 / 0.3e1 + t4173 * t114811 / 0.3e1 + t114536 + t114538 - t114541 + t112401 - t114555 - t114558 + 0.5e1 / 0.3e1 * t109237 * t116525 - t114560 - t114562;
35291   t116691 = t114564 + t110190 + t112412 - t112416 - 0.2e1 / 0.3e1 * t4026 * t115426 - 0.2e1 / 0.3e1 * t4026 * t115413 - 0.2e1 / 0.3e1 * t4026 * t115417 + t15686 * t24913 / 0.3e1 + t15610 * t24913 / 0.3e1 + t4173 * t114800 / 0.3e1 + t4173 * t114804 / 0.3e1 + t4173 * t114674 / 0.3e1 - 0.5e1 / 0.36e2 * t90648 * t25280;
35292   t116704 = -t19748 - t19750 - t19753 + t114569 - t24693 * t116502 / 0.3e1 - t114595 * t5590 / 0.3e1 - t114599 * t5590 / 0.3e1 + t4173 * t114694 / 0.3e1 - 0.2e1 / 0.3e1 * t14978 * t25068 - 0.2e1 / 0.3e1 * t14972 * t25068 - t114616 - t114618 + t114620 + t114622;
35293   t116723 = t114624 + t114626 + t114628 + t114630 - 0.5e1 / 0.36e2 * t21510 * t116425 + 0.5e1 / 0.3e1 * t110338 * t22736 + 0.5e1 / 0.3e1 * t110554 * t22736 + t114644 - t114646 + 0.5e1 / 0.36e2 * t20468 * t25349 + 0.5e1 / 0.36e2 * t20554 * t25349 + 0.5e1 / 0.36e2 * t5179 * t19969 * t25348 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4873 * t57;
35294   t116728 = -0.5e1 / 0.36e2 * t90744 * t25280 - t110308 + t114649 - 0.2e1 * t2442 * t25343 - t114651 - t114653 - t114655 - t114658 - t114660 + t114662 - t114664 - t114666 + t114668 - t114682;
35295   t116736 = -t114684 + t114686 - t114692 + t114698 + t114700 + t114702 + t114704 + t114706 + t114712 + t113586 + t114714 + t15503 * t24909 / 0.3e1 + t15686 * t24909 / 0.3e1;
35296   t116753 = t15610 * t24909 / 0.3e1 + t4173 * t114576 / 0.3e1 + t4173 * t114580 / 0.3e1 + t4173 * t114584 / 0.3e1 + t4173 * t114588 / 0.3e1 + t15503 * t24913 / 0.3e1 + t114718 + t114722 - 0.5e1 / 0.36e2 * t90747 * t25280 - 0.5e1 / 0.36e2 * t90750 * t25280 - t114728 - t114734 + t114736 + t114740;
35297   t116773 = t114744 - 0.5e1 / 0.6e1 * t71136 * t70080 * t112491 * t912 + 0.5e1 / 0.18e2 * t70858 * t70080 * t112491 * t883 - 0.5e1 / 0.3e1 * t4156 * t114724 - t114746 - t114753 + t114755 + t114766 - 0.2e1 * t22448 * t5606 - 0.2e1 * t22453 * t5606 - 0.2e1 * t5499 * t22841 + t113631 - t113580 * t25294 / 0.3e1;
35298   t116784 = -t113523 * t25294 / 0.3e1 - t113528 * t25294 / 0.3e1 + 0.10e2 / 0.3e1 * t4013 * t115512 - 0.5e1 / 0.3e1 * t4156 * t114757 - 0.2e1 * t5499 * t22798 - t4957 + t113262 + t113265 - t114784 - t114795 + t114799 - t113268 - t114822 - t114824;
35299   t116798 = -t114826 + t114828 - 0.5e1 / 0.3e1 * t4156 * t114708 + 0.5e1 / 0.36e2 * t5179 * t18560 * t4888 * t57 - t114832 - t114834 - t114836 + t24601 - 0.2e1 * t4302 * t25343 - 0.2e1 * t449 * t4656 * t5550 + t114838 - t114840 - t114842;
35300   t116805 = t113670 + t114846 + t114849 + t114852 - t113674 + t114854 - 0.2e1 * t449 * t1307 * t22574 - t109241 * t116528 + t24693 * t116530 / 0.3e1 + t114857 + t114860 + t113290 + t114866 + t114868;
35301   t116811 = t114870 + t114872 + t114876 + t114878 + t114880 + t114882 + t114884 + 0.5e1 / 0.18e2 * t70855 * t50654 * t112491 * t908 + t24715 + t114886 + t114888 + t114890 + t114892 + t114894;
35302   t116818 = -t114896 - t114898 - t114900 - t114904 + 0.5e1 / 0.6e1 * t110466 * t116449 - 0.5e1 / 0.18e2 * t110408 * t116537 - 0.5e1 / 0.18e2 * t110412 * t116540 - t24739 - t114907 + t114909 + t114912 - t113733 - t113747 - t113749;
35303   t116822 = t116624 + t116631 + t116657 + t116670 + t116691 + t116704 + t116723 + t116728 + t116736 + t116753 + t116773 + t116784 + t116798 + t116805 + t116811 + t116818;
35304   t116832 = t116822 * t372 * t7 + t25357 * t1130 + t22851 * t1272 + t22673 * t1320 + t1355 * t21015 + t5612 * t4580 + t5567 * t4687 + t4908 * t5331 + t112351 + t112582 + t112585 + t112588;
35305   t116844 = 0.3e1 * t25365 * t1127 + 0.6e1 * t1318 * t22710 + t114956 + t114963 + t114966 + t114969 + t114971 + t114979 + t114982 + t114984 + t114986 + t5079;
35306   t116849 = 0.3e1 * t4683 * t5580 + 0.3e1 * t5327 * t4921 + t114988 + t114990 + t114992 + t114995 + t114998 + t115001 + t115005 + t115011 + t115015 + t20112 + t24759;
35307   t116861 = 0.3e1 * t22859 * t1269 + 0.6e1 * t1318 * t22699 + 0.6e1 * t1318 * t22705 + 0.6e1 * t4683 * t5577 + 0.6e1 * t5327 * t4918 + t113802 + t113804 + t113815 + t113818 + t115021 + t115025 + t115027 + t115030;
35308   t116874 = t116822 * t370 * params->d + 0.6e1 * t1318 * t22702 + 0.3e1 * t1318 * t22713 + 0.3e1 * t21005 * t1359 + 0.6e1 * t5616 * t4574 + 0.3e1 * t5616 * t4577 + t113824 + t115032 + t115037 + t115040 + t115043 + t20115 + t24774;
35309   t116878 = t112592 + t20997 * t1362 + t5323 * t4924 + t112595 + t4679 * t5583 + t1316 * t22716 + t112598 + t4564 * t5620 + t1265 * t22869 + t112601 + t1123 * t25375 + t872 * (t116844 + t116849 + t116861 + t116874);
35310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35311     v4rhosigma2tau[21] = t116832 + t116878;
35312 
35313   t116890 = -0.2e1 / 0.3e1 * t115054 - 0.2e1 / 0.3e1 * t115056 - 0.2e1 / 0.3e1 * t115057 + 0.2e1 / 0.3e1 * t115058 + 0.2e1 / 0.3e1 * t115059 - t113029 + t113031 - t113033 - t113035 + t113072 - t113075 - t113078 + t113081 + 0.2e1 / 0.3e1 * t15503 * t25033 + 0.2e1 / 0.3e1 * t15686 * t25033 + 0.2e1 / 0.3e1 * t15610 * t25033;
35314   t116908 = 0.2e1 / 0.3e1 * t115073 + 0.2e1 / 0.3e1 * t115075 + 0.2e1 / 0.3e1 * t115077 - 0.2e1 / 0.3e1 * t115107 - 0.4e1 * t115109 - t113087 - t113091 + t113094 - t113097 - 0.2e1 / 0.3e1 * t115125 - 0.2e1 / 0.3e1 * t115127 - 0.2e1 / 0.3e1 * t115130 - 0.2e1 / 0.3e1 * t115133 + 0.5e1 / 0.72e2 * t89958 * t25377 + 0.5e1 / 0.72e2 * t90008 * t25377 + 0.2e1 / 0.3e1 * t4173 * t115230 - 0.5e1 / 0.72e2 * t81046 * t24623;
35315   t116925 = -0.5e1 / 0.72e2 * t19532 * t113021 - 0.5e1 / 0.72e2 * t19532 * t113025 - t19748 - t19750 - t19753 + 0.10e2 / 0.3e1 * t115136 + 0.2e1 / 0.3e1 * t115140 + 0.2e1 / 0.3e1 * t115142 - 0.4e1 * t115144 - 0.4e1 * t115153 + t113112 + t113115 + t113118 + 0.2e1 / 0.3e1 * t4173 * t115083 + 0.2e1 / 0.3e1 * t4173 * t115087 + 0.2e1 / 0.3e1 * t4173 * t115092;
35316   t116931 = t19564 * t19973;
35317   t116934 = t5178 * t21158;
35318   t116937 = t19531 * t19981;
35319   t116940 = -0.4e1 * t115182 - 0.4e1 * t115185 - 0.4e1 * t115191 - 0.10e2 / 0.3e1 * t115193 + 0.10e2 / 0.3e1 * t115197 - t113135 + t113137 + t113139 + t113141 + t113148 - t113150 - t113155 + t113163 + 0.5e1 / 0.36e2 * t21210 * t116931 + 0.5e1 / 0.36e2 * t21210 * t116934 + 0.5e1 / 0.36e2 * t21210 * t116937 - t113165;
35320   t116958 = t113197 + t113201 + t113205 - 0.5e1 / 0.72e2 * t19532 * t113064 + 0.5e1 / 0.72e2 * t89797 * t25377 + 0.5e1 / 0.72e2 * t90323 * t25377 - 0.4e1 * t115208 - 0.4e1 * t115210 - t113218 + 0.2e1 / 0.3e1 * t115215 + 0.2e1 / 0.3e1 * t115217 + 0.2e1 / 0.3e1 * t115219 + 0.2e1 / 0.3e1 * t115223 + 0.2e1 / 0.3e1 * t115225 + 0.2e1 / 0.3e1 * t115227 - 0.2e1 / 0.3e1 * t115233;
35321   t116973 = -0.2e1 / 0.3e1 * t115235 - 0.2e1 / 0.3e1 * t115237 - 0.2e1 / 0.3e1 * t115239 - 0.2e1 / 0.3e1 * t115241 + t113230 - t113232 - t113234 - t113236 - t113238 + 0.5e1 / 0.12e2 * t19560 * t113181 - 0.5e1 / 0.36e2 * t19565 * t113185 - 0.5e1 / 0.36e2 * t5179 * t18560 * t1327 * t4595 - 0.5e1 / 0.36e2 * t19532 * t113193 + t113241 + t113244 + t113246 + t113250;
35322   t116985 = -0.2e1 / 0.3e1 * t115257 - 0.2e1 / 0.3e1 * t115259 - 0.2e1 / 0.3e1 * t115261 - 0.2e1 / 0.3e1 * t115263 - 0.2e1 / 0.3e1 * t115265 + 0.2e1 / 0.3e1 * t115267 - 0.2e1 / 0.3e1 * t115269 - 0.2e1 / 0.3e1 * t115271 - 0.2e1 / 0.3e1 * t115273 - t4957 + t113262 + t113265 + t24594 - 0.10e2 / 0.3e1 * t115280 - t113268 - t113270 - t113272;
35323   t116990 = t19531 * t19965;
35324   t117004 = t24601 - 0.10e2 / 0.3e1 * t4156 * t115250 + 0.10e2 / 0.3e1 * t115283 - 0.2e1 * t115286 + t113290 - 0.5e1 / 0.12e2 * t87029 * t116990 + 0.2e1 / 0.3e1 * t115299 + t113300 - 0.2e1 * t449 * t5381 * t4830 - t24629 + t113302 + t113305 - t113319 + t113322 - 0.2e1 * t2442 * t25383 - 0.2e1 * t4302 * t25383 - 0.2e1 * t449 * t21137 * t1326;
35325   t117007 = t116890 + t116908 + t116925 + t116940 + t116958 + t116973 + t116985 + t117004;
35326   t117037 = 0.3e1 * t25405 * t1127 + 0.3e1 * t21191 * t1338 + 0.6e1 * t5396 * t4861 + 0.3e1 * t5396 * t4864 + t113362 + t113365 + t113368 + t113371 + t113376 + t113378 + 0.6e1 * t115339 + 0.12e2 * t115344 + 0.12e2 * t115348 + 0.12e2 * t115352 + 0.6e1 * t115354 + t20112 + t5079;
35327   t117045 = t117007 * t370 * params->d + t113382 + t113384 + t113388 + t113393 + t113404 + t113407 + t113410 + t113414 + t113424 + 0.6e1 * t115356 + 0.12e2 * t115358 + 0.6e1 * t115362 + 0.12e2 * t115370 + 0.12e2 * t115372 + t20115 + t24665 + t24680;
35328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35329     v4rhosigma2tau[22] = t112642 + t7 * t117007 * t372 + t25397 * t1130 + t112776 + 0.2e1 * t22772 * t1320 + 0.2e1 * t5594 * t4687 + t112781 + t4851 * t5399 + t1334 * t21198 + t112784 + t21183 * t1341 + t5392 * t4867 + t112788 + 0.2e1 * t4679 * t5602 + 0.2e1 * t1316 * t22790 + t112793 + t1123 * t25412 + t872 * (t117037 + t117045);
35330 
35331   t117059 = 0.2e1 / 0.3e1 * t115388 + 0.2e1 / 0.3e1 * t115390 + 0.2e1 / 0.3e1 * t115392 + 0.2e1 / 0.3e1 * t115394 + 0.2e1 / 0.3e1 * t115396 + 0.2e1 / 0.3e1 * t115398 - 0.2e1 / 0.3e1 * t115400 - 0.2e1 / 0.3e1 * t115402 - 0.2e1 / 0.3e1 * t115404 + t113429 - t113431 - 0.5e1 / 0.72e2 * t19532 * t113445 + t113449 - t113451 - t113453 + t113455;
35332   t117078 = -0.2e1 / 0.3e1 * t115432 - 0.2e1 / 0.3e1 * t115434 - 0.2e1 / 0.3e1 * t115436 - t113459 - 0.2e1 / 0.3e1 * t115438 - 0.2e1 / 0.3e1 * t115440 - 0.2e1 / 0.3e1 * t115442 - 0.2e1 / 0.3e1 * t115444 - 0.2e1 / 0.3e1 * t115446 - 0.2e1 / 0.3e1 * t115448 - 0.2e1 / 0.3e1 * t115450 - 0.2e1 / 0.3e1 * t115452 - 0.2e1 / 0.3e1 * t115455 - 0.2e1 / 0.3e1 * t115456 + 0.2e1 / 0.3e1 * t15503 * t25068 + 0.2e1 / 0.3e1 * t15686 * t25068 - 0.2e1 / 0.3e1 * t115467;
35333   t117087 = 0.2e1 / 0.3e1 * t115471 - t19748 - t19750 - t19753 - 0.2e1 / 0.3e1 * t115486 - 0.2e1 / 0.3e1 * t115488 - t113559 + t113561 - t113563 - t113565 + t113567 - t113569 - 0.2e1 / 0.3e1 * t115493 - 0.2e1 * t115495 + 0.2e1 / 0.3e1 * t115496 - 0.10e2 / 0.3e1 * t115504;
35334   t117103 = 0.2e1 / 0.3e1 * t4173 * t115426 + 0.2e1 / 0.3e1 * t4173 * t115413 + 0.5e1 / 0.72e2 * t90744 * t25377 + 0.5e1 / 0.72e2 * t90747 * t25377 + 0.5e1 / 0.72e2 * t90750 * t25377 + 0.5e1 / 0.72e2 * t90648 * t25377 + 0.10e2 / 0.3e1 * t115506 + 0.10e2 / 0.3e1 * t115509 + t113571 + t113575 + t113579 - 0.10e2 / 0.3e1 * t115519 + t113586 + t113589 + t113592 + t113595 + t113597;
35335   t117123 = -t113602 - t113604 - t113606 + t113609 - 0.2e1 / 0.3e1 * t115534 + 0.2e1 / 0.3e1 * t115536 + 0.2e1 / 0.3e1 * t115539 + 0.2e1 / 0.3e1 * t115541 + 0.2e1 / 0.3e1 * t115543 + 0.2e1 / 0.3e1 * t115545 + 0.2e1 / 0.3e1 * t115547 - 0.10e2 / 0.3e1 * t4156 * t115512 + 0.2e1 / 0.3e1 * t4173 * t115409 - 0.5e1 / 0.72e2 * t81046 * t24708 - 0.5e1 / 0.72e2 * t19532 * t113547 - 0.5e1 / 0.72e2 * t19532 * t113551;
35336   t117143 = 0.2e1 / 0.3e1 * t4173 * t115417 + 0.5e1 / 0.12e2 * t19560 * t113616 - 0.5e1 / 0.36e2 * t19565 * t113620 - 0.5e1 / 0.36e2 * t5179 * t18560 * t1348 * t4595 - 0.5e1 / 0.36e2 * t19532 * t113493 + t113628 + 0.10e2 / 0.3e1 * t115561 + 0.2e1 / 0.3e1 * t115563 + t113631 - 0.4e1 * t115572 - 0.4e1 * t115574 + 0.2e1 / 0.3e1 * t15610 * t25068 - t4957 + t113262 + t113265 - 0.4e1 * t115587 - t113268;
35337   t117153 = -t113658 - t113660 + t113662 + t24601 - 0.4e1 * t115604 + t113664 + t113666 + t113668 + t113670 - t113674 - t113683 - t113685 + t113290 + 0.5e1 / 0.36e2 * t21510 * t116931 + 0.5e1 / 0.36e2 * t21510 * t116934 + 0.5e1 / 0.36e2 * t21510 * t116937 - 0.4e1 * t115610;
35338   t117169 = -0.4e1 * t115612 + t24715 - 0.2e1 * t4302 * t25414 - 0.2e1 * t449 * t21137 * t1347 - 0.5e1 / 0.12e2 * t87504 * t116990 - 0.4e1 * t115635 - 0.4e1 * t115637 - 0.2e1 * t449 * t5381 * t4887 - 0.2e1 * t2442 * t25414 + t113725 + t113728 + t113731 - t24739 - t113733 - t113735 - t113747 - t113749;
35339   t117172 = t117059 + t117078 + t117087 + t117103 + t117123 + t117143 + t117153 + t117169;
35340   t117200 = 0.6e1 * t5396 * t4918 + 0.3e1 * t5396 * t4921 + t113773 + t113778 + t113782 + t113788 + t113795 + 0.6e1 * t115663 + 0.12e2 * t115665 + 0.12e2 * t115667 + 0.12e2 * t115669 + 0.12e2 * t115671 + 0.6e1 * t115679 + 0.6e1 * t115681 + t20112 + t24759 + t5079;
35341   t117210 = t117172 * t370 * params->d + 0.3e1 * t25441 * t1127 + 0.3e1 * t21191 * t1359 + t113802 + t113804 + t113812 + t113815 + t113818 + t113824 + t113826 + t113829 + t113832 + t113835 + 0.6e1 * t115691 + 0.12e2 * t115693 + 0.12e2 * t115702 + t20115 + t24774;
35342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35343     v4rhosigma2tau[23] = t112819 + t7 * t117172 * t372 + t25433 * t1130 + t112934 + 0.2e1 * t22851 * t1320 + 0.2e1 * t5612 * t4687 + t112939 + t4908 * t5399 + t1355 * t21198 + t112942 + t21183 * t1362 + t5392 * t4924 + t112946 + 0.2e1 * t4679 * t5620 + 0.2e1 * t1316 * t22869 + t112951 + t1123 * t25448 + t872 * (t117200 + t117210);
35344 
35345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35346     v4rhosigmalapl2[0] = 0.0e0;
35347 
35348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35349     v4rhosigmalapl2[1] = 0.0e0;
35350 
35351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35352     v4rhosigmalapl2[2] = 0.0e0;
35353 
35354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35355     v4rhosigmalapl2[3] = 0.0e0;
35356 
35357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35358     v4rhosigmalapl2[4] = 0.0e0;
35359 
35360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35361     v4rhosigmalapl2[5] = 0.0e0;
35362 
35363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35364     v4rhosigmalapl2[6] = 0.0e0;
35365 
35366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35367     v4rhosigmalapl2[7] = 0.0e0;
35368 
35369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35370     v4rhosigmalapl2[8] = 0.0e0;
35371 
35372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35373     v4rhosigmalapl2[9] = 0.0e0;
35374 
35375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35376     v4rhosigmalapl2[10] = 0.0e0;
35377 
35378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35379     v4rhosigmalapl2[11] = 0.0e0;
35380 
35381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35382     v4rhosigmalapl2[12] = 0.0e0;
35383 
35384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35385     v4rhosigmalapl2[13] = 0.0e0;
35386 
35387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35388     v4rhosigmalapl2[14] = 0.0e0;
35389 
35390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35391     v4rhosigmalapl2[15] = 0.0e0;
35392 
35393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35394     v4rhosigmalapl2[16] = 0.0e0;
35395 
35396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35397     v4rhosigmalapl2[17] = 0.0e0;
35398 
35399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35400     v4rhosigmalapltau[0] = 0.0e0;
35401 
35402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35403     v4rhosigmalapltau[1] = 0.0e0;
35404 
35405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35406     v4rhosigmalapltau[2] = 0.0e0;
35407 
35408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35409     v4rhosigmalapltau[3] = 0.0e0;
35410 
35411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35412     v4rhosigmalapltau[4] = 0.0e0;
35413 
35414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35415     v4rhosigmalapltau[5] = 0.0e0;
35416 
35417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35418     v4rhosigmalapltau[6] = 0.0e0;
35419 
35420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35421     v4rhosigmalapltau[7] = 0.0e0;
35422 
35423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35424     v4rhosigmalapltau[8] = 0.0e0;
35425 
35426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35427     v4rhosigmalapltau[9] = 0.0e0;
35428 
35429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35430     v4rhosigmalapltau[10] = 0.0e0;
35431 
35432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35433     v4rhosigmalapltau[11] = 0.0e0;
35434 
35435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35436     v4rhosigmalapltau[12] = 0.0e0;
35437 
35438   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35439     v4rhosigmalapltau[13] = 0.0e0;
35440 
35441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35442     v4rhosigmalapltau[14] = 0.0e0;
35443 
35444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35445     v4rhosigmalapltau[15] = 0.0e0;
35446 
35447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35448     v4rhosigmalapltau[16] = 0.0e0;
35449 
35450   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35451     v4rhosigmalapltau[17] = 0.0e0;
35452 
35453   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35454     v4rhosigmalapltau[18] = 0.0e0;
35455 
35456   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35457     v4rhosigmalapltau[19] = 0.0e0;
35458 
35459   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35460     v4rhosigmalapltau[20] = 0.0e0;
35461 
35462   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35463     v4rhosigmalapltau[21] = 0.0e0;
35464 
35465   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35466     v4rhosigmalapltau[22] = 0.0e0;
35467 
35468   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
35469     v4rhosigmalapltau[23] = 0.0e0;
35470 
35471   t117213 = t25499 * t372;
35472   t117214 = t400 * t22930;
35473   t117217 = t400 * t22933;
35474   t117223 = t1397 * t5637 * t25;
35475   t117226 = t5639 * t167;
35476   t117227 = t81 * t117226;
35477   t117229 = 0.6e1 * t117227 * t21245;
35478   t117234 = t400 * t117226;
35479   t117236 = 0.8e1 * t117234 * t21241;
35480   t117241 = t3958 * t25459;
35481   t117245 = t1204 * t465 * t5634;
35482   t117249 = t1204 * t12780 * t5634;
35483   t117253 = t1204 * t3789 * t22904;
35484   t117259 = t1204 * t1327 * t4714;
35485   t117263 = 0.2e1 * t117227 * t21248;
35486   t117264 = t5622 * t363;
35487   t117266 = t1204 * t117264 * t443;
35488   t117269 = t400 * t90253;
35489   t117270 = t1204 * t4714;
35490   t117274 = -t117214 * t5146 / 0.3e1 - t117217 * t5146 / 0.3e1 - t25485 * t18813 / 0.3e1 + 0.5e1 / 0.3e1 * t117223 * t3941 + t117229 - t25485 * t18816 / 0.3e1 - t25485 * t18819 / 0.3e1 - t117236 + t12758 * t25460 / 0.3e1 + t12788 * t25460 / 0.3e1 + t3788 * t117241 / 0.3e1 + t3788 * t117245 / 0.3e1 + t3788 * t117249 / 0.3e1 + t3788 * t117253 / 0.3e1 + t13167 * t25460 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t117259 - t117263 - 0.5e1 / 0.3e1 * t3762 * t117266 - 0.2e1 / 0.3e1 * t117269 * t1203 * t117270;
35491   t117275 = t1392 * t5640;
35492   t117278 = t400 * t22926;
35493   t117284 = 0.2e1 * t5097 * t22905;
35494   t117286 = 0.2e1 * t25496 * t3922;
35495   t117287 = t397 * t5639;
35496   t117289 = 0.2e1 * t117287 * t1193;
35497   t117290 = t81 * t22925;
35498   t117292 = 0.2e1 * t117290 * t1193;
35499   t117294 = 0.4e1 * t22980 * t5413;
35500   t117296 = 0.4e1 * t5660 * t21272;
35501   t117298 = 0.4e1 * t22977 * t5413;
35502   t117300 = 0.8e1 * t21257 * t22922;
35503   t117313 = 0.2e1 * t18654 * t5635;
35504   t117315 = 0.2e1 * t18640 * t5635;
35505   t117317 = 0.2e1 * t5097 * t22883;
35506   t117318 = -t117275 * t5146 / 0.3e1 - t117278 * t5146 / 0.3e1 - 0.2e1 * t5623 * t3934 - t117284 + t117286 + t117289 + t117292 - t117294 - t117296 - t117298 - t117300 - t25474 * t18819 / 0.3e1 - 0.2e1 * t1476 * t25465 - 0.2e1 * t2448 * t25465 - 0.2e1 * t449 * t3934 * t5634 - 0.4e1 * t5660 * t21282 - t117313 - t117315 - t117317;
35507   t117320 = t1397 * t5640;
35508   t117324 = t12791 * t5635 * t443;
35509   t117335 = t66 * t439 * t5622 * t363;
35510   t117339 = t66 * t25450 * t857;
35511   t117342 = t47571 * t22888;
35512   t117343 = 0.2e1 / 0.3e1 * t117342;
35513   t117344 = t47575 * t22889;
35514   t117346 = t13149 * t96419;
35515   t117348 = t13149 * t22900;
35516   t117351 = my_piecewise3(t95, 0, -t117343 - 0.3e1 / 0.4e1 * t117344 - 0.5e1 / 0.6e1 * t117346 + 0.5e1 / 0.6e1 * t117348);
35517   t117354 = 0.2e1 * t449 * t363 * t117351;
35518   t117356 = 0.4e1 * t5660 * t21316;
35519   t117357 = t25470 * t227;
35520   t117360 = 0.8e1 * t4720 * t117357 * t443;
35521   t117362 = 0.2e1 * t2448 * t25471;
35522   t117365 = 0.2e1 * t449 * t857 * t25470;
35523   t117370 = 0.2e1 * t1476 * t25471;
35524   t117371 = t397 * t25480;
35525   t117373 = 0.2e1 * t117371 * t25482;
35526   t117374 = t400 * t22916;
35527   t117383 = 0.2e1 * t81 * t25492 * t751;
35528   t117384 = 0.5e1 / 0.3e1 * t117320 * t21211 - 0.5e1 / 0.3e1 * t3762 * t117324 + t3758 * t25452 / 0.3e1 + t3769 * t25452 / 0.3e1 + t3780 * t25452 / 0.3e1 + t1135 * t117335 / 0.3e1 + t1135 * t117339 / 0.3e1 - t117354 - t117356 - t117360 - t117362 - t117365 - 0.2e1 * t449 * t1199 * t22904 - t117370 + t117373 - t117374 * t5146 / 0.3e1 - t25474 * t18813 / 0.3e1 - t25474 * t18816 / 0.3e1 + t117383;
35529   t117386 = 0.2e1 * t397 * t25493;
35530   t117390 = 0.2e1 * t81 * t464 * t25470 * t227;
35531   t117394 = 0.2e1 * t81 * t96 * t117351 * t227;
35532   t117397 = 0.2e1 * t81 * t25488 * t751;
35533   t117399 = 0.4e1 * t397 * t25477;
35534   t117402 = 0.4e1 * t81 * t17097 * t5412;
35535   t117404 = 0.6e1 * t25481 * t21245;
35536   t117405 = t1392 * t5637;
35537   t117408 = t81 * t22929;
35538   t117410 = 0.2e1 * t117408 * t1193;
35539   t117415 = 0.4e1 * t81 * t17112 * t5412;
35540   t117417 = 0.2e1 * t25481 * t21248;
35541   t117418 = t400 * t25480;
35542   t117420 = 0.8e1 * t117418 * t21241;
35543   t117421 = t81 * t24584;
35544   t117425 = 0.4e1 * t117421 * t14483 * t3874 * t4714;
35545   t117426 = t14483 * t12937;
35546   t117428 = 0.2e1 * t25481 * t117426;
35547   t117430 = 0.16e2 * t23023 * t21215;
35548   t117433 = 0.4e1 * t81 * t4721 * t21315;
35549   t117435 = 0.2e1 * t397 * t25489;
35550   t117439 = 0.2e1 * t81 * t3811 * t5634 * t227;
35551   t117443 = 0.2e1 * t81 * t1143 * t22904 * t227;
35552   t117444 = t117386 + t117390 + t117394 + t117397 + t117399 + t117402 + t117404 - t117405 * t5146 / 0.3e1 + t117410 - 0.2e1 * t22872 * t1199 + t117415 - t117417 - t117420 + t117425 + t117428 - t117430 + t117433 + t117435 + t117439 + t117443;
35553   t117446 = t117274 + t117318 + t117384 + t117444;
35554   t117450 = t5643 * t1224;
35555   t117454 = 0.2e1 * t5430 * t1341;
35556   t117460 = 0.2e1 * t1333 * t5447;
35557   t117465 = t1216 * t5658;
35558   t117468 = t368 * t25534;
35559   t117472 = 0.6e1 * t369 * t5639 * t3811;
35560   t117477 = 0.3e1 * t369 * t97 * t117351;
35561   t117480 = 0.6e1 * t369 * t22925 * t1143;
35562   t117483 = 0.6e1 * t369 * t22929 * t1143;
35563   t117485 = 0.6e1 * t873 * t25528;
35564   t117487 = 0.12e2 * t1336 * t21382;
35565   t117489 = 0.12e2 * t1336 * t21385;
35566   t117491 = 0.6e1 * t5648 * t4000;
35567   t117494 = 0.12e2 * t369 * t1329 * t21315;
35568   t117496 = 0.3e1 * t5648 * t4003;
35569   t117500 = 0.12e2 * t1336 * t21390;
35570   t117504 = 0.6e1 * t1336 * t21393;
35571   t117506 = 0.12e2 * t4742 * t5441;
35572   t117509 = 0.12e2 * t369 * t4725 * t5412;
35573   t117510 = 0.12e2 * t1219 * t22963 + 0.3e1 * t1219 * t22971 + 0.6e1 * t21361 * t1338 + t117472 + t117477 + t117480 + t117483 + t117485 + t117487 + t117489 + t117491 + t117494 + t117496 + t117500 + t117504 + t117506 + t117509;
35574   t117513 = 0.12e2 * t369 * t4729 * t5412;
35575   t117516 = 0.12e2 * t369 * t5419 * t4714;
35576   t117518 = 0.3e1 * t873 * t25531;
35577   t117520 = 0.6e1 * t873 * t25520;
35578   t117523 = 0.6e1 * t369 * t3811 * t5622;
35579   t117531 = 0.6e1 * t4742 * t5444;
35580   t117533 = 0.12e2 * t873 * t25523;
35581   t117537 = 0.3e1 * t22948 * t1221;
35582   t117540 = 0.6e1 * t369 * t25492 * t464;
35583   t117544 = 0.12e2 * t1336 * t21379;
35584   t117551 = t117446 * t370 * params->d + 0.6e1 * t1219 * t22960 + 0.6e1 * t1219 * t22968 + 0.3e1 * t25508 * t875 + 0.6e1 * t3994 * t5652 + 0.3e1 * t3994 * t5655 + 0.12e2 * t5435 * t4748 + 0.6e1 * t5435 * t4751 + t117513 + t117516 + t117518 + t117520 + t117523 + t117531 + t117533 + t117537 + t117540 + t117544;
35585   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35586     v4rhosigmatau2[0] = t117213 + t7 * t117446 * t372 + t25500 * t878 + t117450 + t22937 * t1224 + t5644 * t4006 + t117454 + 0.2e1 * t21350 * t1341 + 0.2e1 * t5431 * t4754 + t117460 + 0.2e1 * t4737 * t5447 + 0.2e1 * t1334 * t21396 + t117465 + t3989 * t5658 + t1217 * t22974 + t117468 + t870 * t25534 + t872 * (t117510 + t117551);
35587 
35588   t117554 = t25592 * t372;
35589   t117555 = t400 * t23027;
35590   t117559 = t1204 * t1327 * t4775;
35591   t117562 = t400 * t23031;
35592   t117565 = t400 * t23034;
35593   t117569 = t1204 * t4694 * t1347;
35594   t117572 = t5668 * t167;
35595   t117573 = t400 * t117572;
35596   t117575 = 0.8e1 * t117573 * t21241;
35597   t117576 = t81 * t117572;
35598   t117578 = 0.6e1 * t117576 * t21245;
35599   t117580 = 0.2e1 * t117576 * t21248;
35600   t117581 = t1392 * t5672;
35601   t117585 = t1204 * t3789 * t23017;
35602   t117588 = t400 * t23048;
35603   t117591 = -t117555 * t5146 / 0.3e1 + t3788 * t117559 / 0.3e1 - t117562 * t5146 / 0.3e1 - t117565 * t5146 / 0.3e1 + t3788 * t117569 / 0.3e1 - t117575 + t117578 - t117580 - t117581 * t5146 / 0.3e1 + t3788 * t117585 / 0.3e1 - t117588 * t5146 / 0.3e1;
35604   t117592 = t400 * t23051;
35605   t117601 = t5671 * t167;
35606   t117602 = t400 * t117601;
35607   t117604 = 0.8e1 * t117602 * t21241;
35608   t117605 = t81 * t117601;
35609   t117607 = 0.6e1 * t117605 * t21245;
35610   t117609 = 0.2e1 * t117605 * t21248;
35611   t117610 = t400 * t23044;
35612   t117619 = -t117592 * t5146 / 0.3e1 - t25578 * t18813 / 0.3e1 - t25578 * t18816 / 0.3e1 - t25578 * t18819 / 0.3e1 - t117604 + t117607 - t117609 - t117610 * t5146 / 0.3e1 - t25564 * t18816 / 0.3e1 - t25564 * t18819 / 0.3e1 + t12788 * t25548 / 0.3e1;
35613   t117621 = t3958 * t25547;
35614   t117625 = 0.2e1 * t25575 * t3922;
35615   t117631 = 0.2e1 * t25589 * t3922;
35616   t117632 = t397 * t5668;
35617   t117634 = 0.2e1 * t117632 * t1193;
35618   t117635 = t81 * t23026;
35619   t117637 = 0.2e1 * t117635 * t1193;
35620   t117638 = t81 * t23030;
35621   t117640 = 0.2e1 * t117638 * t1193;
35622   t117649 = 0.2e1 * t81 * t21315 * t1347 * t227;
35623   t117650 = t3788 * t117621 / 0.3e1 + t117625 + t13167 * t25548 / 0.3e1 + t12758 * t25548 / 0.3e1 + t117631 + t117634 + t117637 + t117640 - 0.2e1 * t2448 * t25553 - 0.2e1 * t449 * t3934 * t5665 + t117649;
35624   t117654 = 0.2e1 * t81 * t5412 * t4775 * t227;
35625   t117656 = 0.8e1 * t21257 * t23040;
35626   t117658 = 0.8e1 * t23023 * t21483;
35627   t117659 = t1397 * t5669;
35628   t117662 = t1204 * t1326;
35629   t117663 = t117662 * t21513;
35630   t117667 = t81 * t25585 * t751;
35631   t117669 = t397 * t25582;
35632   t117673 = t81 * t3811 * t5665 * t227;
35633   t117676 = t81 * t25571 * t751;
35634   t117679 = t1204 * t465 * t5665;
35635   t117682 = t5097 * t23018;
35636   t117684 = t397 * t5671;
35637   t117685 = t117684 * t1193;
35638   t117687 = t117654 - t117656 - t117658 + 0.5e1 / 0.3e1 * t117659 * t21211 - 0.5e1 / 0.3e1 * t3762 * t117663 + 0.2e1 * t117667 + 0.2e1 * t117669 + 0.2e1 * t117673 + 0.2e1 * t117676 + t3788 * t117679 / 0.3e1 - 0.2e1 * t117682 + 0.2e1 * t117685;
35639   t117690 = t81 * t23043;
35640   t117691 = t117690 * t1193;
35641   t117693 = t81 * t23047;
35642   t117695 = 0.2e1 * t117693 * t1193;
35643   t117696 = t25560 * t227;
35644   t117699 = 0.8e1 * t4720 * t117696 * t443;
35645   t117700 = t400 * t5412;
35646   t117702 = 0.8e1 * t117700 * t4782;
35647   t117704 = t1204 * t12780 * t5665;
35648   t117715 = t3958 * t25536;
35649   t117719 = t1204 * t4715 * t1347;
35650   t117722 = 0.2e1 * t117691 + t117695 - t117699 - t117702 + t3788 * t117704 / 0.3e1 - t25564 * t18813 / 0.3e1 + t13167 * t25537 / 0.3e1 + t12758 * t25537 / 0.3e1 + t12788 * t25537 / 0.3e1 + t3788 * t117715 / 0.3e1 + t3788 * t117719 / 0.3e1;
35651   t117723 = t1392 * t5669;
35652   t117728 = 0.2e1 * t82 * t21315 * t1348;
35653   t117730 = 0.2e1 * t25540 * t4761;
35654   t117733 = 0.2e1 * t446 * t5412 * t1348;
35655   t117736 = 0.2e1 * t81 * t25581 * t751;
35656   t117740 = 0.2e1 * t81 * t1143 * t23017 * t227;
35657   t117742 = 0.2e1 * t25540 * t4776;
35658   t117744 = t12791 * t5666 * t443;
35659   t117748 = 0.2e1 * t18640 * t5666;
35660   t117750 = 0.2e1 * t5097 * t22991;
35661   t117754 = -t117723 * t5146 / 0.3e1 - t117728 - t117730 - t117733 + t117736 + t117740 - t117742 - 0.5e1 / 0.3e1 * t3762 * t117744 - t117748 - t117750 - 0.2e1 * t449 * t1199 * t23017;
35662   t117756 = t1476 * t25561;
35663   t117757 = t2448 * t25561;
35664   t117759 = t449 * t857 * t25560;
35665   t117761 = t47571 * t88 * t25557;
35666   t117762 = 0.2e1 / 0.3e1 * t117761;
35667   t117763 = t90890 * t23000;
35668   t117765 = t25556 * t23007;
35669   t117768 = t25556 * t96757 * t38;
35670   t117770 = t25556 * t23013;
35671   t117773 = my_piecewise3(t95, 0, -t117762 - 0.3e1 / 0.4e1 * t117763 + 0.5e1 / 0.12e2 * t117765 - 0.5e1 / 0.12e2 * t117768 + 0.5e1 / 0.12e2 * t117770);
35672   t117775 = t449 * t363 * t117773;
35673   t117777 = t5660 * t21502;
35674   t117778 = t22977 * t5461;
35675   t117779 = t22980 * t5461;
35676   t117780 = t5660 * t21473;
35677   t117782 = t81 * t25567 * t751;
35678   t117784 = -t1476 * t25553 - t22977 * t5455 - t117756 - t117757 - t117759 - t117775 - t117777 - t117778 - t117779 - t117780 + t117782;
35679   t117791 = 0.2e1 * t397 * t25586;
35680   t117795 = 0.2e1 * t81 * t464 * t25560 * t227;
35681   t117799 = 0.2e1 * t81 * t96 * t117773 * t227;
35682   t117801 = 0.2e1 * t18654 * t5666;
35683   t117803 = 0.2e1 * t397 * t25568;
35684   t117804 = t1397 * t5672;
35685   t117810 = 0.2e1 * t397 * t25572;
35686   t117814 = 0.2e1 * t81 * t4714 * t5460 * t227;
35687   t117818 = 0.2e1 * t81 * t1326 * t21461 * t227;
35688   t117819 = -0.2e1 * t22980 * t5455 - 0.2e1 * t5660 * t21507 + t117791 + t117795 + t117799 - t117801 + t117803 + 0.5e1 / 0.3e1 * t117804 * t21211 - 0.2e1 * t5660 * t21475 + t117810 + t117814 + t117818;
35689   t117822 = t117591 + t117619 + t117650 + t117687 + t117722 + t117754 + 0.2e1 * t117784 + t117819;
35690   t117826 = t5675 * t1224;
35691   t117829 = t5478 * t1341;
35692   t117832 = t1354 * t5447;
35693   t117835 = t117822 * t372 * t7 + t23055 * t1224 + t21520 * t1341 + t1355 * t21396 + t25593 * t878 + t5676 * t4006 + t5479 * t4754 + t4797 * t5447 + t117554 + t117826 + t117829 + t117832;
35694   t117836 = t5430 * t1362;
35695   t117839 = t1333 * t5495;
35696   t117842 = t1216 * t5692;
35697   t117845 = t368 * t25636;
35698   t117854 = 0.6e1 * t1357 * t21390;
35699   t117856 = 0.6e1 * t1336 * t21549;
35700   t117858 = 0.3e1 * t4802 * t5444;
35701   t117860 = 0.6e1 * t1336 * t21552;
35702   t117862 = 0.6e1 * t1336 * t21555;
35703   t117864 = 0.3e1 * t873 * t25633;
35704   t117871 = t117822 * t370 * params->d + 0.3e1 * t1219 * t23098 + 0.3e1 * t21531 * t1338 + 0.3e1 * t5483 * t4751 + 0.6e1 * t5435 * t4808 + 0.3e1 * t5435 * t4811 + t117854 + t117856 + t117858 + t117860 + t117862 + t117864;
35705   t117872 = t873 * t25630;
35706   t117877 = t873 * t25622;
35707   t117879 = t369 * t21448 * t1326;
35708   t117881 = t369 * t21462 * t1326;
35709   t117883 = t369 * t5471 * t4714;
35710   t117884 = t4742 * t5489;
35711   t117887 = t369 * t4789 * t5412;
35712   t117889 = t369 * t1350 * t21315;
35713   t117890 = t1219 * t23087 + t1219 * t23090 + t1219 * t23095 + t3994 * t5686 + t5483 * t4748 + t117872 + t117877 + t117879 + t117881 + t117883 + t117884 + t117887 + t117889;
35714   t117894 = 0.3e1 * t23066 * t1221;
35715   t117896 = 0.3e1 * t5680 * t4003;
35716   t117900 = 0.6e1 * t1357 * t21385;
35717   t117904 = 0.6e1 * t5680 * t4000;
35718   t117910 = 0.3e1 * t1357 * t21393;
35719   t117912 = 0.6e1 * t873 * t25619;
35720   t117915 = 0.3e1 * t369 * t97 * t117773;
35721   t117917 = 0.3e1 * t4742 * t5492;
35722   t117919 = 0.6e1 * t873 * t25625;
35723   t117920 = 0.6e1 * t1219 * t23084 + 0.3e1 * t21361 * t1359 + 0.3e1 * t25601 * t875 + 0.3e1 * t3994 * t5689 + t117894 + t117896 + t117900 + t117904 + t117910 + t117912 + t117915 + t117917 + t117919;
35724   t117923 = 0.6e1 * t369 * t25585 * t464;
35725   t117926 = 0.6e1 * t369 * t4785 * t5412;
35726   t117929 = 0.6e1 * t369 * t21492 * t1326;
35727   t117932 = 0.6e1 * t369 * t5467 * t4714;
35728   t117934 = 0.3e1 * t1336 * t21563;
35729   t117937 = 0.6e1 * t369 * t23043 * t1143;
35730   t117940 = 0.6e1 * t369 * t23047 * t1143;
35731   t117943 = 0.6e1 * t369 * t5671 * t3811;
35732   t117946 = 0.6e1 * t369 * t21488 * t1326;
35733   t117948 = 0.6e1 * t4802 * t5441;
35734   t117950 = 0.6e1 * t1336 * t21560;
35735   t117952 = 0.6e1 * t1357 * t21379;
35736   t117954 = 0.6e1 * t1357 * t21382;
35737   t117955 = t117923 + t117926 + t117929 + t117932 + t117934 + t117937 + t117940 + t117943 + t117946 + t117948 + t117950 + t117952 + t117954;
35738   t117959 = t117836 + t21350 * t1362 + t5431 * t4814 + t117839 + t4737 * t5495 + t1334 * t21566 + t117842 + t3989 * t5692 + t1217 * t23101 + t117845 + t870 * t25636 + t872 * (t117871 + 0.6e1 * t117890 + t117920 + t117955);
35739   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35740     v4rhosigmatau2[1] = t117835 + t117959;
35741 
35742   t117960 = t25686 * t372;
35743   t117961 = t5711 * t167;
35744   t117962 = t400 * t117961;
35745   t117964 = 0.8e1 * t117962 * t21241;
35746   t117965 = t81 * t117961;
35747   t117967 = 0.6e1 * t117965 * t21245;
35748   t117971 = t1204 * t1348 * t4775;
35749   t117974 = t1397 * t5712;
35750   t117977 = t81 * t23152;
35751   t117979 = 0.2e1 * t117977 * t1193;
35752   t117980 = t81 * t23156;
35753   t117982 = 0.2e1 * t117980 * t1193;
35754   t117983 = t1392 * t5709;
35755   t117987 = t1204 * t3789 * t23131;
35756   t117994 = t3958 * t25647;
35757   t117998 = t1204 * t465 * t5706;
35758   t118001 = t400 * t23157;
35759   t118004 = t400 * t23160;
35760   t118015 = t66 * t439 * t5694 * t363;
35761   t118018 = -t117964 + t117967 + t13167 * t25648 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t117971 + 0.5e1 / 0.3e1 * t117974 * t21211 + t117979 + t117982 - t117983 * t5146 / 0.3e1 + t3788 * t117987 / 0.3e1 + t12758 * t25648 / 0.3e1 + t12788 * t25648 / 0.3e1 + t3788 * t117994 / 0.3e1 + t3788 * t117998 / 0.3e1 - t118001 * t5146 / 0.3e1 - t118004 * t5146 / 0.3e1 + t3758 * t25640 / 0.3e1 + t3769 * t25640 / 0.3e1 + t3780 * t25640 / 0.3e1 + t1135 * t118015 / 0.3e1;
35762   t118020 = t66 * t25638 * t857;
35763   t118023 = t1392 * t5712;
35764   t118026 = t400 * t23153;
35765   t118029 = t400 * t25668;
35766   t118031 = 0.8e1 * t118029 * t21241;
35767   t118032 = t81 * t24691;
35768   t118036 = 0.4e1 * t118032 * t14483 * t3874 * t4775;
35769   t118038 = 0.6e1 * t25669 * t21245;
35770   t118039 = t397 * t5711;
35771   t118041 = 0.2e1 * t118039 * t1193;
35772   t118043 = 0.2e1 * t397 * t25680;
35773   t118047 = 0.2e1 * t81 * t464 * t25658 * t227;
35774   t118048 = t47571 * t23121;
35775   t118049 = 0.2e1 / 0.3e1 * t118048;
35776   t118050 = t47575 * t23122;
35777   t118052 = t13149 * t23127;
35778   t118055 = my_piecewise3(t95, 0, -t118049 - 0.3e1 / 0.4e1 * t118050 + 0.5e1 / 0.6e1 * t118052);
35779   t118059 = 0.2e1 * t81 * t96 * t118055 * t227;
35780   t118060 = t400 * t23143;
35781   t118071 = 0.2e1 * t81 * t25675 * t751;
35782   t118073 = 0.2e1 * t25683 * t3922;
35783   t118075 = 0.2e1 * t25669 * t21248;
35784   t118080 = t1135 * t118020 / 0.3e1 - t118023 * t5146 / 0.3e1 - t118026 * t5146 / 0.3e1 - t118031 + t118036 + t118038 + t118041 + t118043 + t118047 + t118059 - t118060 * t5146 / 0.3e1 - t25662 * t18813 / 0.3e1 - t25662 * t18816 / 0.3e1 - t25662 * t18819 / 0.3e1 + t118071 + t118073 - t118075 - t25672 * t18813 / 0.3e1 - t25672 * t18816 / 0.3e1;
35785   t118084 = t5694 * t363;
35786   t118086 = t1204 * t118084 * t443;
35787   t118090 = t1397 * t5709 * t25;
35788   t118093 = t400 * t90856;
35789   t118094 = t1204 * t4775;
35790   t118099 = t1204 * t12780 * t5706;
35791   t118103 = 0.2e1 * t117965 * t21248;
35792   t118105 = 0.2e1 * t25669 * t117426;
35793   t118107 = 0.4e1 * t397 * t25665;
35794   t118110 = 0.4e1 * t81 * t17328 * t5460;
35795   t118113 = 0.4e1 * t81 * t17236 * t5460;
35796   t118116 = 0.4e1 * t81 * t4781 * t21461;
35797   t118118 = 0.2e1 * t397 * t25676;
35798   t118122 = 0.2e1 * t81 * t3811 * t5706 * t227;
35799   t118126 = 0.2e1 * t81 * t1143 * t23131 * t227;
35800   t118127 = t397 * t25668;
35801   t118129 = 0.2e1 * t118127 * t25482;
35802   t118131 = 0.8e1 * t21257 * t23149;
35803   t118133 = t12791 * t5707 * t443;
35804   t118138 = 0.2e1 * t449 * t857 * t25658;
35805   t118141 = 0.2e1 * t449 * t363 * t118055;
35806   t118142 = -t25672 * t18819 / 0.3e1 - 0.5e1 / 0.3e1 * t3762 * t118086 + 0.5e1 / 0.3e1 * t118090 * t3941 - 0.2e1 / 0.3e1 * t118093 * t1203 * t118094 + t3788 * t118099 / 0.3e1 - t118103 + t118105 + t118107 + t118110 + t118113 + t118116 + t118118 + t118122 + t118126 + t118129 - t118131 - 0.5e1 / 0.3e1 * t3762 * t118133 - t118138 - t118141;
35807   t118144 = 0.2e1 * t5097 * t23132;
35808   t118146 = 0.4e1 * t23107 * t21502;
35809   t118150 = 0.2e1 * t18654 * t5707;
35810   t118152 = 0.2e1 * t18640 * t5707;
35811   t118154 = 0.2e1 * t5097 * t23116;
35812   t118156 = 0.4e1 * t97037 * t5461;
35813   t118159 = 0.2e1 * t81 * t25679 * t751;
35814   t118170 = t25658 * t227;
35815   t118173 = 0.8e1 * t4720 * t118170 * t443;
35816   t118175 = 0.16e2 * t97129 * t21483;
35817   t118177 = 0.2e1 * t1476 * t25659;
35818   t118179 = 0.2e1 * t2448 * t25659;
35819   t118185 = 0.4e1 * t98073 * t5461;
35820   t118187 = 0.4e1 * t23107 * t21473;
35821   t118188 = -0.2e1 * t1199 * t23131 * t449 - 0.2e1 * t3934 * t449 * t5706 - 0.2e1 * t23104 * t1199 - 0.2e1 * t1476 * t25653 - 0.4e1 * t23107 * t21475 - 0.2e1 * t2448 * t25653 - 0.2e1 * t5695 * t3934 - t118144 - t118146 - t118150 - t118152 - t118154 - t118156 + t118159 - t118173 - t118175 - t118177 - t118179 - t118185 - t118187;
35822   t118190 = t118018 + t118080 + t118142 + t118188;
35823   t118194 = t5715 * t1224;
35824   t118198 = 0.2e1 * t5478 * t1362;
35825   t118204 = 0.2e1 * t1354 * t5495;
35826   t118209 = t1216 * t5730;
35827   t118212 = t368 * t25721;
35828   t118217 = 0.12e2 * t873 * t25710;
35829   t118219 = 0.12e2 * t1357 * t21560;
35830   t118222 = 0.6e1 * t369 * t25679 * t464;
35831   t118225 = 0.6e1 * t369 * t23156 * t1143;
35832   t118228 = 0.6e1 * t369 * t5711 * t3811;
35833   t118230 = 0.12e2 * t4802 * t5489;
35834   t118239 = 0.12e2 * t369 * t5467 * t4775;
35835   t118248 = 0.3e1 * t369 * t97 * t118055;
35836   t118250 = 0.6e1 * t873 * t25707;
35837   t118252 = 0.3e1 * t23175 * t1221;
35838   t118253 = 0.6e1 * t1219 * t23187 + 0.6e1 * t1219 * t23195 + 0.6e1 * t21531 * t1359 + 0.3e1 * t25695 * t875 + 0.3e1 * t3994 * t5727 + 0.12e2 * t5483 * t4808 + 0.6e1 * t5483 * t4811 + t118217 + t118219 + t118222 + t118225 + t118228 + t118230 + t118239 + t118248 + t118250 + t118252;
35839   t118256 = 0.6e1 * t369 * t3811 * t5694;
35840   t118260 = 0.3e1 * t5720 * t4003;
35841   t118262 = 0.6e1 * t4802 * t5492;
35842   t118264 = 0.6e1 * t873 * t25715;
35843   t118267 = 0.6e1 * t369 * t23152 * t1143;
35844   t118269 = 0.6e1 * t5720 * t4000;
35845   t118273 = 0.12e2 * t1357 * t21552;
35846   t118275 = 0.12e2 * t1357 * t21555;
35847   t118278 = 0.12e2 * t369 * t4789 * t5460;
35848   t118281 = 0.12e2 * t369 * t1350 * t21461;
35849   t118283 = 0.12e2 * t1357 * t21549;
35850   t118288 = 0.12e2 * t369 * t4785 * t5460;
35851   t118290 = 0.3e1 * t873 * t25718;
35852   t118294 = 0.6e1 * t1357 * t21563;
35853   t118295 = t118190 * t370 * params->d + 0.12e2 * t1219 * t23190 + 0.3e1 * t1219 * t23198 + 0.6e1 * t3994 * t5724 + t118256 + t118260 + t118262 + t118264 + t118267 + t118269 + t118273 + t118275 + t118278 + t118281 + t118283 + t118288 + t118290 + t118294;
35854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35855     v4rhosigmatau2[2] = t117960 + t7 * t118190 * t372 + t25687 * t878 + t118194 + t23164 * t1224 + t5716 * t4006 + t118198 + 0.2e1 * t21520 * t1362 + 0.2e1 * t5479 * t4814 + t118204 + 0.2e1 * t4797 * t5495 + 0.2e1 * t1355 * t21566 + t118209 + t3989 * t5730 + t1217 * t23201 + t118212 + t870 * t25721 + t872 * (t118253 + t118295);
35856 
35857   t118298 = t25761 * t372;
35858   t118300 = 0.16e2 / 0.9e1 * t13453 * t25460;
35859   t118329 = 0.16e2 / 0.9e1 * t25485 * t21668;
35860   t118334 = t25737 * t227;
35861   t118340 = t118300 + 0.4e1 / 0.3e1 * t117269 * t1254 * t117270 + 0.2e1 / 0.3e1 * t117275 * t5510 + 0.2e1 / 0.3e1 * t117278 * t5510 + 0.2e1 / 0.3e1 * t117214 * t5510 + 0.2e1 / 0.3e1 * t117217 * t5510 + 0.2e1 / 0.3e1 * t25485 * t21587 + 0.2e1 / 0.3e1 * t25485 * t21590 + 0.10e2 / 0.3e1 * t4013 * t117266 - 0.4e1 / 0.3e1 * t4026 * t117259 - 0.10e2 / 0.3e1 * t117223 * t4094 - 0.2e1 / 0.3e1 * t4026 * t117245 - 0.2e1 / 0.3e1 * t4026 * t117249 - 0.2e1 / 0.3e1 * t4026 * t117253 - t118329 + 0.10e2 / 0.3e1 * t4013 * t117324 - 0.2e1 / 0.3e1 * t4026 * t117241 - 0.8e1 * t4720 * t118334 * t443 + 0.2e1 * t117371 * t25746;
35862   t118341 = t14483 * t13459;
35863   t118357 = 0.4e1 / 0.3e1 * t117342;
35864   t118362 = my_piecewise3(t95, 0, -t118357 - 0.3e1 / 0.2e1 * t117344 - 0.5e1 / 0.3e1 * t117346 + 0.5e1 / 0.3e1 * t117348);
35865   t118389 = 0.2e1 * t25481 * t118341 - 0.16e2 * t23023 * t21644 - 0.8e1 * t21675 * t22922 - 0.2e1 * t22872 * t1252 + 0.2e1 / 0.3e1 * t117405 * t5510 + 0.2e1 / 0.3e1 * t117374 * t5510 + 0.2e1 * t81 * t25755 * t751 - 0.2e1 * t449 * t363 * t118362 - 0.8e1 * t117234 * t21595 + 0.6e1 * t117227 * t21598 - 0.2e1 * t117227 * t21665 - 0.2e1 / 0.3e1 * t13412 * t25460 - 0.2e1 / 0.3e1 * t13424 * t25460 + 0.4e1 * t81 * t4721 * t21608 - 0.2e1 * t21652 * t5635 - 0.2e1 * t5499 * t22883 - 0.4e1 * t5660 * t21640 - 0.2e1 * t1476 * t25733 - 0.2e1 * t2448 * t25733;
35866   t118426 = 0.16e2 / 0.9e1 * t4021 * t25452;
35867   t118428 = 0.16e2 / 0.9e1 * t25474 * t21668;
35868   t118435 = -0.2e1 * t449 * t4090 * t5634 - 0.2e1 * t449 * t1252 * t22904 - 0.10e2 / 0.3e1 * t117320 * t21637 + 0.4e1 * t397 * t25743 + 0.2e1 * t117290 * t1246 + 0.2e1 * t117408 * t1246 - 0.4e1 * t5660 * t21609 + 0.2e1 * t117287 * t1246 - 0.2e1 * t5623 * t4090 - 0.2e1 / 0.3e1 * t4017 * t25452 - 0.2e1 / 0.3e1 * t1227 * t117335 - 0.2e1 / 0.3e1 * t1227 * t117339 - 0.8e1 * t117418 * t21595 + 0.4e1 * t81 * t17112 * t5506 + 0.2e1 * t81 * t25751 * t751 + t118426 - t118428 - 0.2e1 / 0.3e1 * t4009 * t25452 + 0.2e1 * t81 * t4041 * t5634 * t227;
35869   t118486 = 0.2e1 * t81 * t1231 * t22904 * t227 + 0.2e1 * t25496 * t4078 + 0.2e1 / 0.3e1 * t25474 * t21587 + 0.2e1 / 0.3e1 * t25474 * t21590 + 0.2e1 * t397 * t25752 + 0.2e1 * t397 * t25756 + 0.2e1 * t81 * t464 * t25737 * t227 + 0.2e1 * t81 * t96 * t118362 * t227 + 0.4e1 * t117421 * t14483 * t4049 * t4714 + 0.6e1 * t25481 * t21598 - 0.2e1 * t21649 * t5635 - 0.2e1 * t5499 * t22905 - 0.4e1 * t22977 * t5507 - 0.4e1 * t22980 * t5507 - 0.4e1 * t5660 * t21661 + 0.4e1 * t81 * t17097 * t5506 - 0.2e1 * t25481 * t21665 - 0.2e1 * t1476 * t25738 - 0.2e1 * t2448 * t25738 - 0.2e1 * t449 * t857 * t25737;
35870   t118488 = t118340 + t118389 + t118435 + t118486;
35871   t118492 = t5643 * t1272;
35872   t118496 = 0.2e1 * t5523 * t1341;
35873   t118502 = 0.2e1 * t1333 * t5540;
35874   t118507 = t1264 * t5658;
35875   t118510 = t368 * t25796;
35876   t118551 = t118488 * t370 * params->d + 0.6e1 * t1231 * t22925 * t369 + 0.6e1 * t1231 * t22929 * t369 + 0.12e2 * t1329 * t21608 * t369 + 0.6e1 * t369 * t4041 * t5622 + 0.12e2 * t369 * t4714 * t5513 + 0.12e2 * t1267 * t22963 + 0.3e1 * t1267 * t22971 + 0.12e2 * t1336 * t21728 + 0.12e2 * t1336 * t21731 + 0.12e2 * t1336 * t21734 + 0.12e2 * t1336 * t21739 + 0.6e1 * t1336 * t21742 + 0.6e1 * t5648 * t4143 + 0.6e1 * t4742 * t5537 + 0.12e2 * t5528 * t4748 + 0.6e1 * t5528 * t4751;
35877   t118593 = 0.3e1 * t118362 * t369 * t97 + 0.6e1 * t25755 * t369 * t464 + 0.6e1 * t369 * t4041 * t5639 + 0.12e2 * t369 * t4725 * t5506 + 0.12e2 * t369 * t4729 * t5506 + 0.6e1 * t1267 * t22960 + 0.6e1 * t1267 * t22968 + 0.3e1 * t22948 * t1269 + 0.6e1 * t21710 * t1338 + 0.3e1 * t25770 * t875 + 0.6e1 * t873 * t25782 + 0.12e2 * t873 * t25785 + 0.6e1 * t873 * t25790 + 0.3e1 * t873 * t25793 + 0.6e1 * t4137 * t5652 + 0.3e1 * t4137 * t5655 + 0.3e1 * t5648 * t4146 + 0.12e2 * t4742 * t5534;
35878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35879     v4rhosigmatau2[3] = t118298 + t7 * t118488 * t372 + t25762 * t878 + t118492 + t22937 * t1272 + t5644 * t4149 + t118496 + 0.2e1 * t21699 * t1341 + 0.2e1 * t5524 * t4754 + t118502 + 0.2e1 * t4737 * t5540 + 0.2e1 * t1334 * t21745 + t118507 + t4132 * t5658 + t1265 * t22974 + t118510 + t870 * t25796 + t872 * (t118551 + t118593);
35880 
35881   t118596 = t25843 * t372;
35882   t118608 = 0.16e2 / 0.9e1 * t25578 * t21668;
35883   t118616 = 0.16e2 / 0.9e1 * t25564 * t21668;
35884   t118618 = 0.16e2 / 0.9e1 * t13453 * t25548;
35885   t118619 = 0.10e2 / 0.3e1 * t4013 * t117744 - 0.10e2 / 0.3e1 * t117659 * t21637 - 0.2e1 / 0.3e1 * t4026 * t117719 - 0.2e1 / 0.3e1 * t4026 * t117569 - 0.2e1 / 0.3e1 * t13424 * t25548 - t118608 + 0.6e1 * t117576 * t21598 - 0.2e1 * t117576 * t21665 - 0.2e1 / 0.3e1 * t4026 * t117704 - t118616 + t118618;
35886   t118646 = 0.2e1 / 0.3e1 * t25578 * t21590 - 0.8e1 * t117602 * t21595 + 0.6e1 * t117605 * t21598 - 0.2e1 * t117605 * t21665 - 0.2e1 / 0.3e1 * t4026 * t117621 + 0.2e1 * t81 * t25833 * t751 + 0.2e1 * t81 * t1231 * t23017 * t227 + 0.2e1 * t25589 * t4078 + 0.2e1 * t81 * t25821 * t751 - 0.8e1 * t23023 * t21858 + 0.10e2 / 0.3e1 * t4013 * t117663;
35887   t118654 = t400 * t5506;
35888   t118673 = 0.2e1 * t227 * t4041 * t5665 * t81 + 0.2e1 * t117632 * t1246 + 0.2e1 * t117684 * t1246 + 0.2e1 * t117690 * t1246 + 0.2e1 * t117693 * t1246 - 0.8e1 * t118654 * t4782 - 0.2e1 * t5660 * t21792 - 0.2e1 * t5660 * t21854 - 0.2e1 * t22977 * t5551 - 0.2e1 * t22980 * t5551 + 0.2e1 * t397 * t25834;
35889   t118683 = 0.4e1 / 0.3e1 * t117761;
35890   t118689 = my_piecewise3(t95, 0, -t118683 - 0.3e1 / 0.2e1 * t117763 + 0.5e1 / 0.6e1 * t117765 - 0.5e1 / 0.6e1 * t117768 + 0.5e1 / 0.6e1 * t117770);
35891   t118707 = -0.2e1 * t449 * t1252 * t23017 - 0.2e1 * t1476 * t25816 - 0.8e1 * t21675 * t23040 - 0.10e2 / 0.3e1 * t117804 * t21637 - 0.2e1 * t449 * t363 * t118689 - 0.2e1 * t25800 * t4776 + 0.2e1 / 0.3e1 * t117581 * t5510 + 0.2e1 / 0.3e1 * t117610 * t5510 + 0.2e1 / 0.3e1 * t117588 * t5510 + 0.2e1 / 0.3e1 * t117592 * t5510 + 0.2e1 / 0.3e1 * t25578 * t21587 - 0.2e1 / 0.3e1 * t4026 * t117585;
35892   t118717 = 0.16e2 / 0.9e1 * t13453 * t25537;
35893   t118732 = -0.2e1 / 0.3e1 * t13412 * t25548 - 0.2e1 / 0.3e1 * t4026 * t117559 - 0.8e1 * t117573 * t21595 + t118717 + 0.2e1 / 0.3e1 * t117723 * t5510 + 0.2e1 / 0.3e1 * t117555 * t5510 + 0.2e1 / 0.3e1 * t117562 * t5510 + 0.2e1 / 0.3e1 * t117565 * t5510 + 0.2e1 / 0.3e1 * t25564 * t21587 + 0.2e1 / 0.3e1 * t25564 * t21590 - 0.2e1 / 0.3e1 * t4026 * t117679;
35894   t118756 = -0.2e1 / 0.3e1 * t13412 * t25537 - 0.2e1 / 0.3e1 * t13424 * t25537 - 0.2e1 / 0.3e1 * t4026 * t117715 + 0.2e1 * t25575 * t4078 + 0.2e1 * t117635 * t1246 + 0.2e1 * t117638 * t1246 - 0.2e1 * t2448 * t25816 - 0.2e1 * t449 * t857 * t25815 - 0.2e1 * t21652 * t5666 - 0.2e1 * t5499 * t22991 - 0.2e1 * t21649 * t5666;
35895   t118779 = t1326 * t21791 * t227 * t81 + t1347 * t21608 * t227 * t81 + t227 * t4714 * t5550 * t81 + t227 * t4775 * t5506 * t81 + t25837 * t751 * t81 - t4090 * t449 * t5665 - t5499 * t23018 - t2448 * t25811 + t397 * t25822 + t397 * t25826 + t397 * t25838;
35896   t118808 = t25815 * t227;
35897   t118814 = 0.2e1 * t118689 * t227 * t81 * t96 + 0.2e1 * t227 * t25815 * t464 * t81 - 0.8e1 * t118808 * t443 * t4720 - 0.2e1 * t1348 * t21608 * t82 - 0.2e1 * t1348 * t446 * t5506 + 0.2e1 * t25825 * t751 * t81 - 0.2e1 * t1476 * t25811 - 0.2e1 * t5660 * t21795 - 0.2e1 * t5660 * t21816 - 0.2e1 * t22977 * t5546 - 0.2e1 * t22980 * t5546 - 0.2e1 * t25800 * t4761;
35898   t118817 = t118619 + t118646 + t118673 + t118707 + t118732 + t118756 + 0.2e1 * t118779 + t118814;
35899   t118821 = t5675 * t1272;
35900   t118824 = t5566 * t1341;
35901   t118827 = t1354 * t5540;
35902   t118830 = t118817 * t372 * t7 + t23055 * t1272 + t21866 * t1341 + t1355 * t21745 + t25844 * t878 + t5676 * t4149 + t5567 * t4754 + t4797 * t5540 + t118596 + t118821 + t118824 + t118827;
35903   t118831 = t5523 * t1362;
35904   t118834 = t1333 * t5583;
35905   t118837 = t1264 * t5692;
35906   t118840 = t368 * t25887;
35907   t118868 = 0.6e1 * t369 * t4041 * t5671 + 0.6e1 * t369 * t4789 * t5506 + 0.6e1 * t1267 * t23095 + 0.6e1 * t1336 * t21895 + 0.6e1 * t1336 * t21898 + 0.6e1 * t1336 * t21906 + 0.6e1 * t1357 * t21739 + 0.6e1 * t873 * t25870 + 0.6e1 * t873 * t25881 + 0.6e1 * t4137 * t5686 + 0.3e1 * t4742 * t5580 + 0.6e1 * t5571 * t4748;
35908   t118898 = 0.6e1 * t1326 * t21802 * t369 + 0.6e1 * t1326 * t21806 * t369 + 0.6e1 * t1350 * t21608 * t369 + 0.6e1 * t1267 * t23084 + 0.6e1 * t1267 * t23087 + 0.6e1 * t1267 * t23090 + 0.3e1 * t1267 * t23098 + 0.6e1 * t1336 * t21901 + 0.6e1 * t873 * t25876 + 0.6e1 * t5680 * t4143 + 0.6e1 * t4742 * t5577 + 0.6e1 * t4802 * t5534 + 0.6e1 * t5528 * t4808;
35909   t118932 = t118817 * t370 * params->d + 0.6e1 * t1231 * t23043 * t369 + 0.6e1 * t1231 * t23047 * t369 + 0.6e1 * t1326 * t21833 * t369 + 0.6e1 * t1326 * t21837 * t369 + 0.6e1 * t25837 * t369 * t464 + 0.6e1 * t369 * t4714 * t5556 + 0.3e1 * t21877 * t1338 + 0.6e1 * t1357 * t21728 + 0.6e1 * t1357 * t21731 + 0.6e1 * t1357 * t21734 + 0.6e1 * t873 * t25873 + 0.3e1 * t5680 * t4146;
35910   t118962 = 0.3e1 * t118689 * t369 * t97 + 0.6e1 * t369 * t4714 * t5560 + 0.6e1 * t369 * t4785 * t5506 + 0.3e1 * t23066 * t1269 + 0.3e1 * t1336 * t21909 + 0.3e1 * t1357 * t21742 + 0.3e1 * t21710 * t1359 + 0.3e1 * t25852 * t875 + 0.3e1 * t873 * t25884 + 0.3e1 * t4137 * t5689 + 0.3e1 * t5571 * t4751 + 0.3e1 * t4802 * t5537 + 0.3e1 * t5528 * t4811;
35911   t118966 = t118831 + t21699 * t1362 + t5524 * t4814 + t118834 + t4737 * t5583 + t1334 * t21912 + t118837 + t4132 * t5692 + t1265 * t23101 + t118840 + t870 * t25887 + t872 * (t118868 + t118898 + t118932 + t118962);
35912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35913     v4rhosigmatau2[4] = t118830 + t118966;
35914 
35915   t118967 = t25926 * t372;
35916   t118979 = 0.16e2 / 0.9e1 * t4021 * t25640;
35917   t118981 = 0.16e2 / 0.9e1 * t25662 * t21668;
35918   t118990 = 0.16e2 / 0.9e1 * t13453 * t25648;
35919   t119007 = -0.2e1 / 0.3e1 * t4026 * t118099 + 0.2e1 / 0.3e1 * t118023 * t5510 + 0.2e1 / 0.3e1 * t118026 * t5510 + 0.2e1 / 0.3e1 * t118001 * t5510 + 0.2e1 / 0.3e1 * t118004 * t5510 + t118979 - t118981 + 0.2e1 / 0.3e1 * t117983 * t5510 - 0.10e2 / 0.3e1 * t118090 * t4094 + 0.4e1 / 0.3e1 * t118093 * t1254 * t118094 + t118990 + 0.2e1 / 0.3e1 * t25662 * t21590 - 0.2e1 / 0.3e1 * t4009 * t25640 - 0.2e1 / 0.3e1 * t4017 * t25640 - 0.2e1 / 0.3e1 * t1227 * t118015 - 0.2e1 / 0.3e1 * t1227 * t118020 + 0.2e1 * t25683 * t4078 - 0.4e1 * t23107 * t21795 + 0.2e1 / 0.3e1 * t118060 * t5510;
35920   t119028 = 0.4e1 / 0.3e1 * t118048;
35921   t119032 = my_piecewise3(t95, 0, -t119028 - 0.3e1 / 0.2e1 * t118050 + 0.5e1 / 0.3e1 * t118052);
35922   t119054 = -0.8e1 * t118029 * t21595 - 0.2e1 * t25669 * t21665 + 0.2e1 * t118039 * t1246 + 0.2e1 * t117977 * t1246 + 0.2e1 * t117980 * t1246 - 0.2e1 * t21649 * t5707 - 0.2e1 * t21652 * t5707 - 0.2e1 * t5499 * t23116 + 0.4e1 * t397 * t25909 + 0.2e1 * t397 * t25921 - 0.2e1 * t449 * t363 * t119032 + 0.2e1 / 0.3e1 * t25662 * t21587 + 0.10e2 / 0.3e1 * t4013 * t118133 + 0.4e1 * t118032 * t14483 * t4049 * t4775 + 0.6e1 * t25669 * t21598 - 0.2e1 * t5695 * t4090 - 0.2e1 / 0.3e1 * t4026 * t117987 - 0.2e1 / 0.3e1 * t4026 * t117998 - 0.2e1 / 0.3e1 * t13412 * t25648;
35923   t119063 = 0.16e2 / 0.9e1 * t25672 * t21668;
35924   t119101 = -0.2e1 / 0.3e1 * t13424 * t25648 - 0.2e1 / 0.3e1 * t4026 * t117994 - 0.4e1 / 0.3e1 * t4026 * t117971 - t119063 - 0.8e1 * t117962 * t21595 + 0.6e1 * t117965 * t21598 - 0.2e1 * t117965 * t21665 + 0.2e1 / 0.3e1 * t25672 * t21587 + 0.2e1 / 0.3e1 * t25672 * t21590 + 0.10e2 / 0.3e1 * t4013 * t118086 + 0.2e1 * t81 * t25916 * t751 - 0.2e1 * t2448 * t25899 - 0.2e1 * t449 * t4090 * t5706 - 0.2e1 * t449 * t1252 * t23131 - 0.2e1 * t1476 * t25904 - 0.2e1 * t2448 * t25904 - 0.2e1 * t449 * t857 * t25903 + 0.4e1 * t81 * t4781 * t21791 + 0.2e1 * t81 * t464 * t25903 * t227;
35925   t119146 = t25903 * t227;
35926   t119153 = 0.2e1 * t81 * t96 * t119032 * t227 + 0.2e1 * t81 * t25920 * t751 - 0.2e1 * t5499 * t23132 - 0.2e1 * t1476 * t25899 - 0.4e1 * t98073 * t5551 - 0.4e1 * t23107 * t21854 + 0.4e1 * t81 * t17328 * t5550 - 0.2e1 * t23104 * t1252 - 0.4e1 * t97037 * t5551 - 0.4e1 * t23107 * t21792 + 0.2e1 * t25669 * t118341 - 0.10e2 / 0.3e1 * t117974 * t21637 + 0.2e1 * t118127 * t25746 + 0.2e1 * t397 * t25917 + 0.2e1 * t81 * t4041 * t5706 * t227 + 0.2e1 * t81 * t1231 * t23131 * t227 - 0.8e1 * t21675 * t23149 - 0.16e2 * t97129 * t21858 - 0.8e1 * t4720 * t119146 * t443 + 0.4e1 * t81 * t17236 * t5550;
35927   t119155 = t119007 + t119054 + t119101 + t119153;
35928   t119159 = t5715 * t1272;
35929   t119163 = 0.2e1 * t5566 * t1362;
35930   t119169 = 0.2e1 * t1354 * t5583;
35931   t119174 = t1264 * t5730;
35932   t119177 = t368 * t25961;
35933   t119216 = t119155 * t370 * params->d + 0.12e2 * t369 * t4775 * t5556 + 0.12e2 * t369 * t4785 * t5550 + 0.12e2 * t369 * t4789 * t5550 + 0.12e2 * t1267 * t23190 + 0.3e1 * t1267 * t23198 + 0.3e1 * t23175 * t1269 + 0.12e2 * t1357 * t21895 + 0.12e2 * t1357 * t21906 + 0.6e1 * t1357 * t21909 + 0.6e1 * t21877 * t1359 + 0.3e1 * t25935 * t875 + 0.6e1 * t873 * t25947 + 0.3e1 * t873 * t25958 + 0.3e1 * t4137 * t5727 + 0.3e1 * t5720 * t4146 + 0.6e1 * t4802 * t5580;
35934   t119260 = 0.3e1 * t119032 * t369 * t97 + 0.6e1 * t1231 * t23152 * t369 + 0.6e1 * t1231 * t23156 * t369 + 0.12e2 * t1350 * t21791 * t369 + 0.6e1 * t25920 * t369 * t464 + 0.6e1 * t369 * t4041 * t5694 + 0.6e1 * t369 * t4041 * t5711 + 0.6e1 * t1267 * t23187 + 0.6e1 * t1267 * t23195 + 0.12e2 * t1357 * t21898 + 0.12e2 * t1357 * t21901 + 0.12e2 * t873 * t25950 + 0.6e1 * t873 * t25955 + 0.6e1 * t4137 * t5724 + 0.6e1 * t5720 * t4143 + 0.12e2 * t4802 * t5577 + 0.12e2 * t5571 * t4808 + 0.6e1 * t5571 * t4811;
35935   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35936     v4rhosigmatau2[5] = t118967 + t7 * t119155 * t372 + t25927 * t878 + t119159 + t23164 * t1272 + t5716 * t4149 + t119163 + 0.2e1 * t21866 * t1362 + 0.2e1 * t5567 * t4814 + t119169 + 0.2e1 * t4797 * t5583 + 0.2e1 * t1355 * t21912 + t119174 + t4132 * t5730 + t1265 * t23201 + t119177 + t870 * t25961 + t872 * (t119216 + t119260);
35937 
35938   t119263 = t25976 * t372;
35939   t119297 = t117229 - t117236 - t117263 - t25485 * t21933 / 0.3e1 + 0.5e1 / 0.3e1 * t117223 * t4239 - 0.2e1 / 0.3e1 * t117269 * t1309 * t117270 - t117275 * t5590 / 0.3e1 - t117278 * t5590 / 0.3e1 - t117214 * t5590 / 0.3e1 - t117217 * t5590 / 0.3e1 - t25485 * t21927 / 0.3e1 - t25485 * t21930 / 0.3e1 + t13811 * t25460 / 0.3e1 + t13876 * t25460 / 0.3e1 + t13870 * t25460 / 0.3e1 + t4173 * t117241 / 0.3e1 + t4173 * t117245 / 0.3e1 + t4173 * t117249 / 0.3e1 + t4173 * t117253 / 0.3e1;
35940   t119320 = -0.5e1 / 0.3e1 * t4156 * t117266 + 0.2e1 / 0.3e1 * t4173 * t117259 - t117374 * t5590 / 0.3e1 + t4152 * t25452 / 0.3e1 + t4160 * t25452 / 0.3e1 - t117284 - 0.4e1 * t5660 * t21955 - 0.2e1 * t449 * t1307 * t22904 + t117286 + t117289 + t117292 - t117294 - t117296 - t117298 - 0.2e1 * t5623 * t4235 - 0.2e1 * t2448 * t25969 - 0.2e1 * t449 * t4235 * t5634 - t117300 - t117313;
35941   t119336 = -t117315 - t117317 - 0.5e1 / 0.3e1 * t4156 * t117324 + 0.5e1 / 0.3e1 * t117320 * t21916 - t117354 - t117356 - t117360 - t117362 - t117365 - t117370 - t25474 * t21927 / 0.3e1 - t25474 * t21930 / 0.3e1 - t25474 * t21933 / 0.3e1 + t117373 - 0.2e1 * t22872 * t1307 - 0.2e1 * t1476 * t25969 + t117383 + t117386 + t117390;
35942   t119345 = t117394 + t117397 + t117399 + t117402 + t117404 + t117410 + t117415 - t117417 - t117420 + t117425 + t117428 + t4168 * t25452 / 0.3e1 + t1277 * t117335 / 0.3e1 + t1277 * t117339 / 0.3e1 - t117405 * t5590 / 0.3e1 - t117430 + t117433 + t117435 + t117439 + t117443;
35943   t119347 = t119297 + t119320 + t119336 + t119345;
35944   t119351 = t5643 * t1320;
35945   t119355 = 0.2e1 * t5593 * t1341;
35946   t119361 = 0.2e1 * t1333 * t5602;
35947   t119366 = t1315 * t5658;
35948   t119369 = t368 * t25993;
35949   t119385 = 0.6e1 * t1318 * t22960 + 0.12e2 * t1318 * t22963 + 0.3e1 * t1318 * t22971 + 0.3e1 * t25985 * t875 + 0.3e1 * t4263 * t5655 + 0.12e2 * t5598 * t4748 + 0.6e1 * t5598 * t4751 + t117472 + t117477 + t117480 + t117483 + t117485 + t117487 + t117489 + t117491 + t117494 + t117496;
35950   t119394 = t119347 * t370 * params->d + 0.6e1 * t1318 * t22968 + 0.6e1 * t21976 * t1338 + 0.6e1 * t4263 * t5652 + t117500 + t117504 + t117506 + t117509 + t117513 + t117516 + t117518 + t117520 + t117523 + t117531 + t117533 + t117537 + t117540 + t117544;
35951   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35952     v4rhosigmatau2[6] = t119263 + t7 * t119347 * t372 + t25977 * t878 + t119351 + t22937 * t1320 + t5644 * t4267 + t119355 + 0.2e1 * t21965 * t1341 + 0.2e1 * t5594 * t4754 + t119361 + 0.2e1 * t4737 * t5602 + 0.2e1 * t1334 * t21986 + t119366 + t4258 * t5658 + t1316 * t22974 + t119369 + t870 * t25993 + t872 * (t119385 + t119394);
35953 
35954   t119397 = t26008 * t372;
35955   t119409 = t4173 * t117585 + t4173 * t117621 + t4173 * t117679 + t4173 * t117704 + t4173 * t117715 + t4173 * t117719 + t13811 * t25548 + t13870 * t25537 + t13870 * t25548 + t13876 * t25537 + t13876 * t25548;
35956   t119421 = t4173 * t117569 / 0.3e1 - t117562 * t5590 / 0.3e1 - t117565 * t5590 / 0.3e1 - t25564 * t21927 / 0.3e1 - t25564 * t21930 / 0.3e1 - t117575 + t117578 - t117580 - t117604 + t117607 - t117609;
35957   t119443 = t117625 - t117581 * t5590 / 0.3e1 - t117610 * t5590 / 0.3e1 - t117588 * t5590 / 0.3e1 - t117592 * t5590 / 0.3e1 - t25578 * t21927 / 0.3e1 - t25578 * t21930 / 0.3e1 - t25578 * t21933 / 0.3e1 + t13811 * t25537 / 0.3e1 + t4173 * t117559 / 0.3e1 - t25564 * t21933 / 0.3e1;
35958   t119453 = -t117723 * t5590 / 0.3e1 - t117555 * t5590 / 0.3e1 + t117631 + t117634 + t117637 + t117640 - 0.2e1 * t449 * t1307 * t23017 + t117649 + t117654 - 0.5e1 / 0.3e1 * t4156 * t117744 - t117656 - t117658;
35959   t119461 = -t4235 * t449 * t5665 - t1476 * t26001 - t5660 * t21993 - t2448 * t26001 + t117667 + t117669 + t117673 + t117676 - t117682 + t117685 + t117691;
35960   t119463 = t117695 - t117699 - t117702 - t117728 - t117730 - t117733 + t117736 + t117740 - t117742 - t117748 - t117750;
35961   t119478 = -0.2e1 * t117756 - 0.2e1 * t117757 - 0.2e1 * t117759 - 0.2e1 * t117775 - 0.2e1 * t117777 - 0.2e1 * t117778 - 0.2e1 * t117779 - 0.2e1 * t117780 + 0.2e1 * t117782 + 0.5e1 / 0.3e1 * t117659 * t21916 - 0.5e1 / 0.3e1 * t4156 * t117663;
35962   t119487 = t117791 + t117795 + t117799 - t117801 - 0.2e1 * t22977 * t5606 - 0.2e1 * t22980 * t5606 - 0.2e1 * t5660 * t21998 + t117803 + t117810 + t117814 + t117818 + 0.5e1 / 0.3e1 * t117804 * t21916;
35963   t119490 = t119409 / 0.3e1 + t119421 + t119443 + t119453 + 0.2e1 * t119461 + t119463 + t119478 + t119487;
35964   t119494 = t5675 * t1320;
35965   t119497 = t5611 * t1341;
35966   t119500 = t1354 * t5602;
35967   t119503 = t119490 * t372 * t7 + t23055 * t1320 + t22027 * t1341 + t1355 * t21986 + t26009 * t878 + t5676 * t4267 + t5612 * t4754 + t4797 * t5602 + t119397 + t119494 + t119497 + t119500;
35968   t119504 = t5593 * t1362;
35969   t119507 = t1333 * t5620;
35970   t119510 = t1315 * t5692;
35971   t119513 = t368 * t26027;
35972   t119525 = 0.6e1 * t1318 * t23090 + 0.6e1 * t4263 * t5686 + 0.6e1 * t5616 * t4748 + 0.6e1 * t5598 * t4808 + t117854 + t117856 + t117858 + t117860 + t117862 + t117864 + 0.6e1 * t117872 + 0.6e1 * t117877;
35973   t119540 = 0.6e1 * t1318 * t23095 + 0.3e1 * t1318 * t23098 + 0.3e1 * t22038 * t1338 + 0.3e1 * t5616 * t4751 + 0.6e1 * t117879 + 0.6e1 * t117881 + 0.6e1 * t117883 + 0.6e1 * t117884 + 0.6e1 * t117887 + 0.6e1 * t117889 + t117894 + t117896 + t117900;
35974   t119548 = t119490 * t370 * params->d + 0.3e1 * t26017 * t875 + 0.3e1 * t5598 * t4811 + t117904 + t117910 + t117912 + t117915 + t117917 + t117919 + t117923 + t117926 + t117929 + t117932;
35975   t119557 = 0.6e1 * t1318 * t23084 + 0.6e1 * t1318 * t23087 + 0.3e1 * t21976 * t1359 + 0.3e1 * t4263 * t5689 + t117934 + t117937 + t117940 + t117943 + t117946 + t117948 + t117950 + t117952 + t117954;
35976   t119561 = t119504 + t21965 * t1362 + t5594 * t4814 + t119507 + t4737 * t5620 + t1334 * t22048 + t119510 + t4258 * t5692 + t1316 * t23101 + t119513 + t870 * t26027 + t872 * (t119525 + t119540 + t119548 + t119557);
35977   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35978     v4rhosigmatau2[7] = t119503 + t119561;
35979 
35980   t119562 = t26042 * t372;
35981   t119594 = 0.5e1 / 0.3e1 * t118090 * t4239 - 0.2e1 / 0.3e1 * t118093 * t1309 * t118094 - t118023 * t5590 / 0.3e1 - t118026 * t5590 / 0.3e1 - t118001 * t5590 / 0.3e1 - t118004 * t5590 / 0.3e1 - t25672 * t21927 / 0.3e1 - t25672 * t21930 / 0.3e1 - t25672 * t21933 / 0.3e1 - t117964 + t117967 - 0.5e1 / 0.3e1 * t4156 * t118086 + 0.2e1 / 0.3e1 * t4173 * t117971 + t4173 * t117994 / 0.3e1 + t117979 + t117982 + t4173 * t117987 / 0.3e1 + t13811 * t25648 / 0.3e1 + t4173 * t117998 / 0.3e1;
35982   t119605 = t4173 * t118099 / 0.3e1 + 0.5e1 / 0.3e1 * t117974 * t21916 - 0.5e1 / 0.3e1 * t4156 * t118133 - t118031 + t118036 + t118038 + t118041 + t118043 + t118047 + t118059 + t118071 + t118073 - t118075 + t13876 * t25648 / 0.3e1 + t13870 * t25648 / 0.3e1 - t118103 + t118105 + t118107 + t118110;
35983   t119626 = t118113 + t118116 + t118118 + t118122 + t118126 - t117983 * t5590 / 0.3e1 + t118129 + t4152 * t25640 / 0.3e1 + t4160 * t25640 / 0.3e1 + t4168 * t25640 / 0.3e1 + t1277 * t118015 / 0.3e1 + t1277 * t118020 / 0.3e1 - t118131 - 0.2e1 * t449 * t1307 * t23131 - t118138 - t118141 - t118144 - 0.2e1 * t23104 * t1307 - 0.2e1 * t5695 * t4235;
35984   t119644 = -t118060 * t5590 / 0.3e1 - t25662 * t21927 / 0.3e1 - t25662 * t21930 / 0.3e1 - t25662 * t21933 / 0.3e1 - t118146 - t118150 - t118152 - t118154 - t118156 + t118159 - t118173 - t118175 - t118177 - t118179 - 0.2e1 * t1476 * t26035 - 0.2e1 * t2448 * t26035 - 0.2e1 * t449 * t4235 * t5706 - 0.4e1 * t23107 * t21993 - t118185 - t118187;
35985   t119646 = t119594 + t119605 + t119626 + t119644;
35986   t119650 = t5715 * t1320;
35987   t119654 = 0.2e1 * t5611 * t1362;
35988   t119660 = 0.2e1 * t1354 * t5620;
35989   t119665 = t1315 * t5730;
35990   t119668 = t368 * t26059;
35991   t119678 = t119646 * t370 * params->d + 0.3e1 * t26051 * t875 + 0.3e1 * t4263 * t5727 + 0.6e1 * t5616 * t4811 + t118217 + t118219 + t118222 + t118225 + t118228 + t118230 + t118239 + t118248 + t118250 + t118252 + t118256 + t118260 + t118262;
35992   t119693 = 0.6e1 * t1318 * t23187 + 0.12e2 * t1318 * t23190 + 0.6e1 * t1318 * t23195 + 0.3e1 * t1318 * t23198 + 0.6e1 * t22038 * t1359 + 0.6e1 * t4263 * t5724 + 0.12e2 * t5616 * t4808 + t118264 + t118267 + t118269 + t118273 + t118275 + t118278 + t118281 + t118283 + t118288 + t118290 + t118294;
35993   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
35994     v4rhosigmatau2[8] = t119562 + t7 * t119646 * t372 + t26043 * t878 + t119650 + t23164 * t1320 + t5716 * t4267 + t119654 + 0.2e1 * t22027 * t1362 + 0.2e1 * t5612 * t4814 + t119660 + 0.2e1 * t4797 * t5620 + 0.2e1 * t1355 * t22048 + t119665 + t4258 * t5730 + t1316 * t23201 + t119668 + t870 * t26059 + t872 * (t119678 + t119693);
35995 
35996   t119696 = t2378 * t5640;
35997   t119700 = t1204 * t14718 * t5634;
35998   t119703 = t2378 * t5637;
35999   t119706 = t400 * t23236;
36000   t119723 = t66 * t908 * t5622 * t363;
36001   t119726 = t14483 * t14321;
36002   t119728 = 0.2e1 * t25481 * t119726;
36003   t119735 = t4412 * t25459;
36004   t119739 = t1204 * t929 * t5634;
36005   t119743 = t1204 * t3789 * t23224;
36006   t119748 = -t119696 * t5146 / 0.3e1 + t3788 * t119700 / 0.3e1 - t119703 * t5146 / 0.3e1 - t119706 * t5146 / 0.3e1 - t25474 * t20211 / 0.3e1 - t25474 * t20214 / 0.3e1 - t25474 * t20217 / 0.3e1 + t4269 * t25452 / 0.3e1 + t4277 * t25452 / 0.3e1 + t4284 * t25452 / 0.3e1 + t1135 * t119723 / 0.3e1 + t119728 + t14152 * t25460 / 0.3e1 + t14156 * t25460 / 0.3e1 + t14848 * t25460 / 0.3e1 + t3788 * t119735 / 0.3e1 + t3788 * t119739 / 0.3e1 + t3788 * t119743 / 0.3e1 + 0.5e1 / 0.3e1 * t117223 * t4397;
36007   t119749 = t400 * t23245;
36008   t119752 = t400 * t23249;
36009   t119755 = t400 * t23252;
36010   t119763 = t1204 * t1327 * t4830;
36011   t119767 = 0.8e1 * t117234 * t22087;
36012   t119769 = 0.6e1 * t117227 * t22090;
36013   t119770 = t1204 * t4830;
36014   t119775 = 0.2e1 * t117227 * t22093;
36015   t119777 = t1204 * t117264 * t912;
36016   t119781 = 0.2e1 * t25481 * t22093;
36017   t119783 = t12791 * t5635 * t912;
36018   t119791 = 0.2e1 * t5097 * t23225;
36019   t119794 = 0.2e1 * t81 * t25488 * t1037;
36020   t119796 = 0.2e1 * t881 * t25493;
36021   t119800 = 0.2e1 * t81 * t928 * t25470 * t227;
36022   t119801 = -t119749 * t5146 / 0.3e1 - t119752 * t5146 / 0.3e1 - t119755 * t5146 / 0.3e1 - t25485 * t20211 / 0.3e1 - t25485 * t20214 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t119763 - t119767 + t119769 - 0.2e1 / 0.3e1 * t117269 * t1203 * t119770 - t119775 - 0.5e1 / 0.3e1 * t3762 * t119777 - t119781 - 0.5e1 / 0.3e1 * t3762 * t119783 - t25485 * t20217 / 0.3e1 - 0.2e1 * t2442 * t25465 - t119791 + t119794 + t119796 + t119800;
36023   t119803 = t47575 * t23217;
36024   t119805 = t13149 * t23220;
36025   t119808 = my_piecewise3(t95, 0, -t117343 - 0.3e1 / 0.4e1 * t119803 + 0.5e1 / 0.6e1 * t119805);
36026   t119812 = 0.2e1 * t81 * t96 * t119808 * t227;
36027   t119816 = 0.4e1 * t117421 * t14483 * t3874 * t4830;
36028   t119818 = 0.6e1 * t25481 * t22090;
36029   t119820 = 0.4e1 * t881 * t25477;
36030   t119822 = t66 * t25450 * t1110;
36031   t119825 = t881 * t5639;
36032   t119827 = 0.2e1 * t119825 * t1193;
36033   t119828 = t81 * t23244;
36034   t119830 = 0.2e1 * t119828 * t1193;
36035   t119831 = t81 * t23248;
36036   t119833 = 0.2e1 * t119831 * t1193;
36037   t119836 = 0.4e1 * t81 * t4721 * t22061;
36038   t119838 = 0.2e1 * t881 * t25489;
36039   t119842 = 0.2e1 * t81 * t4311 * t5634 * t227;
36040   t119844 = 0.2e1 * t25496 * t4380;
36041   t119846 = 0.8e1 * t117418 * t22087;
36042   t119850 = 0.2e1 * t81 * t1143 * t23224 * t227;
36043   t119855 = 0.4e1 * t23295 * t5413;
36044   t119857 = 0.4e1 * t5660 * t22155;
36045   t119861 = 0.2e1 * t2442 * t25471;
36046   t119862 = t119812 + t119816 + t119818 + t119820 + t1135 * t119822 / 0.3e1 + t119827 + t119830 + t119833 + t119836 + t119838 + t119842 + t119844 - t119846 + t119850 - 0.2e1 * t449 * t1199 * t23224 - t119855 - t119857 - 0.4e1 * t5660 * t22148 - t119861;
36047   t119864 = 0.2e1 * t4302 * t25471;
36048   t119867 = 0.2e1 * t449 * t1110 * t25470;
36049   t119872 = 0.4e1 * t81 * t17451 * t5412;
36050   t119875 = 0.4e1 * t81 * t17470 * t5412;
36051   t119877 = 0.8e1 * t21257 * t23241;
36052   t119879 = 0.2e1 * t20281 * t5635;
36053   t119881 = 0.2e1 * t20284 * t5635;
36054   t119883 = 0.2e1 * t5097 * t23214;
36055   t119886 = 0.2e1 * t449 * t363 * t119808;
36056   t119888 = 0.4e1 * t23292 * t5413;
36057   t119895 = 0.2e1 * t81 * t25492 * t1037;
36058   t119902 = 0.4e1 * t5660 * t22062;
36059   t119904 = 0.16e2 * t23023 * t22141;
36060   t119905 = t881 * t25480;
36061   t119907 = 0.2e1 * t119905 * t25482;
36062   t119910 = 0.8e1 * t4720 * t117357 * t912;
36063   t119911 = -t119864 - t119867 + 0.5e1 / 0.3e1 * t117320 * t22053 + t119872 + t119875 - t119877 - t119879 - t119881 - t119883 - t119886 - t119888 - 0.2e1 * t23203 * t1199 - 0.2e1 * t5623 * t4391 + t119895 - 0.2e1 * t4302 * t25465 - 0.2e1 * t449 * t4391 * t5634 - t119902 - t119904 + t119907 - t119910;
36064   t119913 = t119748 + t119801 + t119862 + t119911;
36065   t119931 = 0.6e1 * t1125 * t25520;
36066   t119935 = 0.3e1 * t23264 * t1221;
36067   t119937 = 0.3e1 * t5648 * t4454;
36068   t119939 = 0.6e1 * t1336 * t22218;
36069   t119942 = 0.12e2 * t369 * t4843 * t5412;
36070   t119945 = 0.12e2 * t369 * t1329 * t22061;
36071   t119951 = 0.12e2 * t1336 * t22207;
36072   t119953 = 0.12e2 * t1336 * t22210;
36073   t119955 = 0.12e2 * t1336 * t22215;
36074   t119962 = 0.6e1 * t369 * t23244 * t1143;
36075   t119965 = 0.6e1 * t369 * t23248 * t1143;
36076   t119968 = 0.6e1 * t369 * t5639 * t4311;
36077   t119969 = t119913 * t370 * params->d + 0.3e1 * t25508 * t1127 + 0.6e1 * t1219 * t23276 + 0.12e2 * t5435 * t4861 + 0.6e1 * t5435 * t4864 + t119931 + t119935 + t119937 + t119939 + t119942 + t119945 + t119951 + t119953 + t119955 + t119962 + t119965 + t119968;
36078   t119972 = 0.12e2 * t369 * t5419 * t4830;
36079   t119974 = 0.6e1 * t1125 * t25528;
36080   t119979 = 0.12e2 * t369 * t4839 * t5412;
36081   t119983 = 0.12e2 * t4855 * t5441;
36082   t119985 = 0.12e2 * t1336 * t22204;
36083   t119988 = 0.6e1 * t369 * t25492 * t928;
36084   t119993 = 0.6e1 * t369 * t4311 * t5622;
36085   t119998 = 0.3e1 * t369 * t97 * t119808;
36086   t120000 = 0.6e1 * t5648 * t4451;
36087   t120004 = 0.6e1 * t4855 * t5444;
36088   t120006 = 0.12e2 * t1125 * t25523;
36089   t120010 = 0.3e1 * t1125 * t25531;
36090   t120011 = 0.12e2 * t1219 * t23279 + 0.6e1 * t1219 * t23284 + 0.3e1 * t1219 * t23287 + 0.6e1 * t22186 * t1338 + 0.6e1 * t4445 * t5652 + 0.3e1 * t4445 * t5655 + t119972 + t119974 + t119979 + t119983 + t119985 + t119988 + t119993 + t119998 + t120000 + t120004 + t120006 + t120010;
36091   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36092     v4rhosigmatau2[9] = t117213 + t7 * t119913 * t372 + t25500 * t1130 + t117450 + t23256 * t1224 + t5644 * t4457 + t117454 + 0.2e1 * t22178 * t1341 + 0.2e1 * t5431 * t4867 + t117460 + 0.2e1 * t4851 * t5447 + 0.2e1 * t1334 * t22221 + t117465 + t4441 * t5658 + t1217 * t23290 + t117468 + t1123 * t25534 + t872 * (t119969 + t120011);
36093 
36094   t120017 = t4412 * t25536;
36095   t120020 = t1204 * t4831 * t1347;
36096   t120023 = t1204 * t4820 * t1347;
36097   t120026 = t1204 * t1327 * t4887;
36098   t120030 = t4412 * t25547;
36099   t120033 = t3788 * t120017 + t3788 * t120020 + t3788 * t120023 + t3788 * t120026 + t3788 * t120030 + t14152 * t25537 + t14156 * t25537 + t14156 * t25548 + t14848 * t25537 + t14848 * t25548 - t25578 * t20217;
36100   t120036 = 0.8e1 * t117602 * t22087;
36101   t120038 = t1204 * t3789 * t23324;
36102   t120041 = t81 * t23352;
36103   t120043 = 0.2e1 * t120041 * t1193;
36104   t120044 = t117662 * t22342;
36105   t120048 = 0.2e1 * t25575 * t4380;
36106   t120050 = 0.2e1 * t881 * t25582;
36107   t120054 = 0.2e1 * t81 * t4311 * t5665 * t227;
36108   t120058 = 0.2e1 * t81 * t1143 * t23324 * t227;
36109   t120059 = t881 * t5668;
36110   t120061 = 0.2e1 * t120059 * t1193;
36111   t120062 = t81 * t23332;
36112   t120064 = 0.2e1 * t120062 * t1193;
36113   t120065 = t81 * t23336;
36114   t120067 = 0.2e1 * t120065 * t1193;
36115   t120068 = -t120036 + t3788 * t120038 / 0.3e1 + t120043 - 0.5e1 / 0.3e1 * t3762 * t120044 + t120048 + t120050 + t120054 + t120058 + t120061 + t120064 + t120067;
36116   t120070 = t90890 * t23310;
36117   t120073 = t13149 * t44 * t25557;
36118   t120075 = t25556 * t23317;
36119   t120077 = t25556 * t23320;
36120   t120080 = my_piecewise3(t95, 0, -t117762 - 0.3e1 / 0.4e1 * t120070 - 0.5e1 / 0.12e2 * t120073 + 0.5e1 / 0.12e2 * t120075 + 0.5e1 / 0.12e2 * t120077);
36121   t120084 = 0.2e1 * t81 * t96 * t120080 * t227;
36122   t120086 = 0.2e1 * t881 * t25586;
36123   t120090 = 0.2e1 * t81 * t928 * t25560 * t227;
36124   t120091 = t881 * t5671;
36125   t120093 = 0.2e1 * t120091 * t1193;
36126   t120094 = t81 * t23348;
36127   t120096 = 0.2e1 * t120094 * t1193;
36128   t120098 = 0.2e1 * t117605 * t22093;
36129   t120101 = 0.2e1 * t81 * t25585 * t1037;
36130   t120103 = 0.2e1 * t5660 * t22311;
36131   t120106 = 0.2e1 * t82 * t22061 * t1348;
36132   t120107 = t400 * t23353;
36133   t120110 = t400 * t23356;
36134   t120113 = t120084 + t120086 + t120090 + t120093 + t120096 - t120098 + t120101 - t120103 - t120106 - t120107 * t5146 / 0.3e1 - t120110 * t5146 / 0.3e1;
36135   t120116 = t2378 * t5672;
36136   t120120 = t1204 * t929 * t5665;
36137   t120124 = t1204 * t14718 * t5665;
36138   t120130 = 0.6e1 * t117576 * t22090;
36139   t120132 = 0.2e1 * t117576 * t22093;
36140   t120134 = 0.6e1 * t117605 * t22090;
36141   t120135 = t2378 * t5669;
36142   t120138 = t400 * t23333;
36143   t120141 = t400 * t23337;
36144   t120144 = t400 * t23340;
36145   t120147 = -t25578 * t20211 / 0.3e1 - t120116 * t5146 / 0.3e1 + t3788 * t120120 / 0.3e1 + t3788 * t120124 / 0.3e1 - t25578 * t20214 / 0.3e1 + t120130 - t120132 + t120134 - t120135 * t5146 / 0.3e1 - t120138 * t5146 / 0.3e1 - t120141 * t5146 / 0.3e1 - t120144 * t5146 / 0.3e1;
36146   t120157 = 0.8e1 * t117573 * t22087;
36147   t120158 = t400 * t23349;
36148   t120164 = 0.2e1 * t4302 * t25561;
36149   t120167 = 0.2e1 * t449 * t1110 * t25560;
36150   t120170 = 0.2e1 * t449 * t363 * t120080;
36151   t120172 = 0.2e1 * t5097 * t23325;
36152   t120175 = -t25564 * t20211 / 0.3e1 - t25564 * t20214 / 0.3e1 - t25564 * t20217 / 0.3e1 - t120157 - t120158 * t5146 / 0.3e1 + t14152 * t25548 / 0.3e1 - t120164 - t120167 - t120170 - t120172 + 0.5e1 / 0.3e1 * t117659 * t22053;
36153   t120182 = 0.2e1 * t25540 * t4888;
36154   t120186 = 0.2e1 * t23292 * t5461;
36155   t120188 = 0.2e1 * t23295 * t5461;
36156   t120190 = 0.2e1 * t5660 * t22318;
36157   t120196 = 0.2e1 * t81 * t5412 * t4887 * t227;
36158   t120201 = -0.2e1 * t4302 * t25553 - 0.2e1 * t449 * t4391 * t5665 - t120182 - 0.2e1 * t5660 * t22285 - t120186 - t120188 - t120190 + 0.5e1 / 0.3e1 * t117804 * t22053 + t120196 - 0.2e1 * t23292 * t5455 - 0.2e1 * t23295 * t5455;
36159   t120205 = t20281 * t5666;
36160   t120207 = t20284 * t5666;
36161   t120209 = t5097 * t23306;
36162   t120212 = t81 * t25581 * t1037;
36163   t120214 = t25589 * t4380;
36164   t120217 = t12791 * t5666 * t912;
36165   t120221 = 0.2e1 * t25540 * t4873;
36166   t120223 = 0.8e1 * t23023 * t22278;
36167   t120226 = 0.2e1 * t915 * t5412 * t1348;
36168   t120229 = -0.2e1 * t5660 * t22331 - 0.2e1 * t120205 - 0.2e1 * t120207 - 0.2e1 * t120209 + 0.2e1 * t120212 + 0.2e1 * t120214 - 0.5e1 / 0.3e1 * t3762 * t120217 - t120221 - t120223 - t120226 - 0.2e1 * t2442 * t25553;
36169   t120235 = 0.8e1 * t4720 * t117696 * t912;
36170   t120238 = 0.2e1 * t81 * t25571 * t1037;
36171   t120240 = 0.8e1 * t117700 * t4893;
36172   t120244 = 0.2e1 * t81 * t4830 * t5460 * t227;
36173   t120248 = 0.2e1 * t81 * t1326 * t22295 * t227;
36174   t120250 = 0.2e1 * t881 * t25572;
36175   t120252 = 0.8e1 * t21257 * t23345;
36176   t120254 = 0.2e1 * t2442 * t25561;
36177   t120257 = 0.2e1 * t81 * t25567 * t1037;
36178   t120259 = 0.2e1 * t881 * t25568;
36179   t120263 = 0.2e1 * t81 * t22061 * t1347 * t227;
36180   t120264 = -0.2e1 * t1199 * t23324 * t449 - t120235 + t120238 - t120240 + t120244 + t120248 + t120250 - t120252 - t120254 + t120257 + t120259 + t120263;
36181   t120267 = t120033 / 0.3e1 + t120068 + t120113 + t120147 + t120175 + t120201 + t120229 + t120264;
36182   t120277 = t120267 * t372 * t7 + t25593 * t1130 + t23360 * t1224 + t22349 * t1341 + t1355 * t22221 + t5676 * t4457 + t5479 * t4867 + t4908 * t5447 + t117554 + t117826 + t117829 + t117832;
36183   t120286 = 0.3e1 * t1125 * t25633;
36184   t120290 = 0.6e1 * t5680 * t4451;
36185   t120292 = 0.6e1 * t4912 * t5441;
36186   t120294 = 0.6e1 * t1336 * t22386;
36187   t120296 = 0.6e1 * t1125 * t25625;
36188   t120300 = 0.6e1 * t1336 * t22381;
36189   t120304 = 0.6e1 * t1357 * t22207;
36190   t120306 = 0.6e1 * t1357 * t22210;
36191   t120308 = 0.6e1 * t1357 * t22215;
36192   t120309 = 0.6e1 * t1219 * t23389 + 0.3e1 * t22357 * t1338 + 0.6e1 * t5483 * t4861 + t120286 + t120290 + t120292 + t120294 + t120296 + t120300 + t120304 + t120306 + t120308;
36193   t120311 = 0.6e1 * t1357 * t22204;
36194   t120313 = 0.6e1 * t1125 * t25619;
36195   t120316 = 0.6e1 * t369 * t4896 * t5412;
36196   t120318 = 0.3e1 * t1357 * t22218;
36197   t120321 = 0.3e1 * t369 * t97 * t120080;
36198   t120326 = 0.6e1 * t369 * t22300 * t1326;
36199   t120329 = 0.6e1 * t369 * t22303 * t1326;
36200   t120332 = 0.6e1 * t369 * t5467 * t4830;
36201   t120335 = 0.6e1 * t369 * t25585 * t928;
36202   t120337 = 0.6e1 * t1336 * t22375;
36203   t120339 = 0.6e1 * t1336 * t22378;
36204   t120342 = 0.6e1 * t1219 * t23386 + 0.6e1 * t1219 * t23397 + t120311 + t120313 + t120316 + t120318 + t120321 + t120326 + t120329 + t120332 + t120335 + t120337 + t120339;
36205   t120345 = 0.3e1 * t4855 * t5492;
36206   t120348 = 0.6e1 * t369 * t23352 * t1143;
36207   t120351 = 0.6e1 * t369 * t5671 * t4311;
36208   t120359 = 0.6e1 * t1125 * t25630;
36209   t120362 = 0.6e1 * t369 * t23348 * t1143;
36210   t120364 = 0.3e1 * t1336 * t22389;
36211   t120366 = 0.3e1 * t23368 * t1221;
36212   t120369 = 0.6e1 * t369 * t4900 * t5412;
36213   t120372 = 0.6e1 * t369 * t1350 * t22061;
36214   t120375 = 0.6e1 * t1219 * t23392 + 0.6e1 * t4445 * t5686 + 0.3e1 * t5483 * t4864 + 0.3e1 * t5435 * t4921 + t120345 + t120348 + t120351 + t120359 + t120362 + t120364 + t120366 + t120369 + t120372;
36215   t120385 = 0.3e1 * t5680 * t4454;
36216   t120387 = 0.6e1 * t4855 * t5489;
36217   t120390 = 0.6e1 * t369 * t22336 * t1326;
36218   t120393 = 0.6e1 * t369 * t22296 * t1326;
36219   t120396 = 0.6e1 * t369 * t5471 * t4830;
36220   t120400 = 0.6e1 * t1125 * t25622;
36221   t120402 = 0.3e1 * t4912 * t5444;
36222   t120405 = t120267 * t370 * params->d + 0.3e1 * t25601 * t1127 + 0.3e1 * t1219 * t23400 + 0.3e1 * t22186 * t1359 + 0.3e1 * t4445 * t5689 + 0.6e1 * t5435 * t4918 + t120385 + t120387 + t120390 + t120393 + t120396 + t120400 + t120402;
36223   t120409 = t117836 + t22178 * t1362 + t5431 * t4924 + t117839 + t4851 * t5495 + t1334 * t22392 + t117842 + t4441 * t5692 + t1217 * t23403 + t117845 + t1123 * t25636 + t872 * (t120309 + t120342 + t120375 + t120405);
36224   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36225     v4rhosigmatau2[10] = t120277 + t120409;
36226 
36227   t120411 = 0.2e1 * t25683 * t4380;
36228   t120417 = 0.2e1 * t4302 * t25659;
36229   t120420 = 0.2e1 * t449 * t1110 * t25658;
36230   t120421 = t47575 * t23419;
36231   t120423 = t13149 * t98005;
36232   t120425 = t13149 * t23428;
36233   t120428 = my_piecewise3(t95, 0, -t118049 - 0.3e1 / 0.4e1 * t120421 - 0.5e1 / 0.6e1 * t120423 + 0.5e1 / 0.6e1 * t120425);
36234   t120431 = 0.2e1 * t449 * t363 * t120428;
36235   t120433 = 0.2e1 * t20281 * t5707;
36236   t120435 = 0.2e1 * t20284 * t5707;
36237   t120437 = 0.2e1 * t5097 * t23416;
36238   t120442 = 0.2e1 * t2442 * t25659;
36239   t120449 = t4412 * t25647;
36240   t120453 = t1204 * t929 * t5706;
36241   t120457 = t1204 * t14718 * t5706;
36242   t120461 = t1204 * t3789 * t23432;
36243   t120466 = t120411 + t4269 * t25640 / 0.3e1 + t4277 * t25640 / 0.3e1 - t120417 - t120420 - t120431 - t120433 - t120435 - t120437 - 0.2e1 * t449 * t1199 * t23432 - t120442 + t14152 * t25648 / 0.3e1 + t14156 * t25648 / 0.3e1 + t14848 * t25648 / 0.3e1 + t3788 * t120449 / 0.3e1 + t3788 * t120453 / 0.3e1 + t3788 * t120457 / 0.3e1 + t3788 * t120461 / 0.3e1 - 0.2e1 * t2442 * t25653;
36244   t120473 = 0.6e1 * t117965 * t22090;
36245   t120475 = 0.2e1 * t117965 * t22093;
36246   t120477 = t1204 * t118084 * t912;
36247   t120481 = t1204 * t1348 * t4887;
36248   t120486 = t1204 * t4887;
36249   t120490 = t2378 * t5712;
36250   t120495 = 0.4e1 * t81 * t4781 * t22295;
36251   t120497 = 0.2e1 * t881 * t25676;
36252   t120501 = 0.2e1 * t81 * t4311 * t5706 * t227;
36253   t120505 = 0.2e1 * t81 * t1143 * t23432 * t227;
36254   t120507 = 0.4e1 * t881 * t25665;
36255   t120509 = 0.4e1 * t98078 * t5461;
36256   t120510 = t82 * t4887;
36257   t120512 = 0.4e1 * t120510 * t5461;
36258   t120514 = 0.4e1 * t23107 * t22318;
36259   t120516 = 0.2e1 * t5097 * t23433;
36260   t120519 = 0.4e1 * t81 * t17710 * t5460;
36261   t120520 = -0.2e1 * t4302 * t25653 - 0.2e1 * t449 * t4391 * t5706 + t120473 - t120475 - 0.5e1 / 0.3e1 * t3762 * t120477 + 0.2e1 / 0.3e1 * t3788 * t120481 + 0.5e1 / 0.3e1 * t118090 * t4397 - 0.2e1 / 0.3e1 * t118093 * t1203 * t120486 - t120490 * t5146 / 0.3e1 + t120495 + t120497 + t120501 + t120505 + t120507 - t120509 - t120512 - t120514 - t120516 + t120519;
36262   t120523 = 0.2e1 * t881 * t25680;
36263   t120527 = 0.2e1 * t81 * t928 * t25658 * t227;
36264   t120531 = 0.2e1 * t81 * t96 * t120428 * t227;
36265   t120534 = 0.2e1 * t81 * t25679 * t1037;
36266   t120535 = t881 * t5711;
36267   t120537 = 0.2e1 * t120535 * t1193;
36268   t120538 = t81 * t23452;
36269   t120540 = 0.2e1 * t120538 * t1193;
36270   t120541 = t81 * t23456;
36271   t120543 = 0.2e1 * t120541 * t1193;
36272   t120549 = 0.2e1 * t25669 * t119726;
36273   t120551 = 0.4e1 * t23107 * t22311;
36274   t120554 = 0.2e1 * t81 * t25675 * t1037;
36275   t120556 = 0.16e2 * t97129 * t22278;
36276   t120558 = 0.8e1 * t21257 * t23449;
36277   t120562 = 0.2e1 * t25669 * t22093;
36278   t120564 = 0.8e1 * t118029 * t22087;
36279   t120568 = 0.4e1 * t118032 * t14483 * t3874 * t4887;
36280   t120570 = 0.6e1 * t25669 * t22090;
36281   t120571 = t120523 + t120527 + t120531 + t120534 + t120537 + t120540 + t120543 - 0.4e1 * t23107 * t22285 + 0.5e1 / 0.3e1 * t117974 * t22053 + t120549 - t120551 + t120554 - t120556 - t120558 - 0.2e1 * t5695 * t4391 - t120562 - t120564 + t120568 + t120570;
36282   t120574 = 0.4e1 * t81 * t17618 * t5460;
36283   t120577 = t400 * t23453;
36284   t120580 = t400 * t23457;
36285   t120583 = t400 * t23460;
36286   t120593 = 0.8e1 * t117962 * t22087;
36287   t120594 = t400 * t23444;
36288   t120599 = 0.8e1 * t4720 * t118170 * t912;
36289   t120600 = t881 * t25668;
36290   t120602 = 0.2e1 * t120600 * t25482;
36291   t120604 = t12791 * t5707 * t912;
36292   t120615 = t66 * t908 * t5694 * t363;
36293   t120619 = t66 * t25638 * t1110;
36294   t120624 = t2378 * t5709;
36295   t120627 = t120574 - 0.2e1 * t23405 * t1199 - t120577 * t5146 / 0.3e1 - t120580 * t5146 / 0.3e1 - t120583 * t5146 / 0.3e1 - t25672 * t20211 / 0.3e1 - t25672 * t20214 / 0.3e1 - t25672 * t20217 / 0.3e1 - t120593 - t120594 * t5146 / 0.3e1 - t120599 + t120602 - 0.5e1 / 0.3e1 * t3762 * t120604 - t25662 * t20217 / 0.3e1 - t25662 * t20211 / 0.3e1 - t25662 * t20214 / 0.3e1 + t1135 * t120615 / 0.3e1 + t1135 * t120619 / 0.3e1 + t4284 * t25640 / 0.3e1 - t120624 * t5146 / 0.3e1;
36296   t120629 = t120466 + t120520 + t120571 + t120627;
36297   t120654 = 0.3e1 * t369 * t97 * t120428;
36298   t120660 = 0.6e1 * t4912 * t5492;
36299   t120662 = 0.3e1 * t5720 * t4454;
36300   t120664 = 0.6e1 * t1125 * t25715;
36301   t120666 = 0.3e1 * t23472 * t1221;
36302   t120670 = 0.6e1 * t1125 * t25707;
36303   t120672 = 0.6e1 * t5720 * t4451;
36304   t120676 = 0.12e2 * t1125 * t25710;
36305   t120681 = 0.12e2 * t369 * t4896 * t5460;
36306   t120682 = 0.3e1 * t25695 * t1127 + 0.6e1 * t1219 * t23484 + 0.12e2 * t1219 * t23487 + 0.6e1 * t1219 * t23492 + 0.3e1 * t1219 * t23495 + 0.6e1 * t4445 * t5724 + 0.3e1 * t4445 * t5727 + 0.12e2 * t5483 * t4918 + t120654 + t120660 + t120662 + t120664 + t120666 + t120670 + t120672 + t120676 + t120681;
36307   t120687 = 0.12e2 * t369 * t4900 * t5460;
36308   t120690 = 0.12e2 * t369 * t1350 * t22295;
36309   t120693 = 0.6e1 * t369 * t23452 * t1143;
36310   t120696 = 0.6e1 * t369 * t23456 * t1143;
36311   t120700 = 0.12e2 * t4912 * t5489;
36312   t120703 = 0.12e2 * t369 * t5467 * t4887;
36313   t120706 = 0.6e1 * t369 * t5711 * t4311;
36314   t120708 = 0.12e2 * t1357 * t22381;
36315   t120710 = 0.12e2 * t1357 * t22386;
36316   t120713 = 0.6e1 * t369 * t25679 * t928;
36317   t120715 = 0.12e2 * t1357 * t22375;
36318   t120717 = 0.12e2 * t1357 * t22378;
36319   t120722 = 0.6e1 * t369 * t4311 * t5694;
36320   t120724 = 0.6e1 * t1357 * t22389;
36321   t120726 = 0.3e1 * t1125 * t25718;
36322   t120727 = t120629 * t370 * params->d + 0.6e1 * t22357 * t1359 + 0.6e1 * t5483 * t4921 + t120687 + t120690 + t120693 + t120696 + t120700 + t120703 + t120706 + t120708 + t120710 + t120713 + t120715 + t120717 + t120722 + t120724 + t120726;
36323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36324     v4rhosigmatau2[11] = t117960 + t7 * t120629 * t372 + t25687 * t1130 + t118194 + t23464 * t1224 + t5716 * t4457 + t118198 + 0.2e1 * t22349 * t1362 + 0.2e1 * t5479 * t4924 + t118204 + 0.2e1 * t4908 * t5495 + 0.2e1 * t1355 * t22392 + t118209 + t4441 * t5730 + t1217 * t23498 + t118212 + t1123 * t25721 + t872 * (t120682 + t120727);
36325 
36326   t120767 = t118300 + 0.6e1 * t117227 * t22423 - 0.10e2 / 0.3e1 * t117223 * t4531 + 0.4e1 / 0.3e1 * t117269 * t1254 * t119770 + 0.10e2 / 0.3e1 * t4013 * t119777 - 0.4e1 / 0.3e1 * t4026 * t119763 - 0.2e1 / 0.3e1 * t4026 * t119735 - 0.2e1 / 0.3e1 * t4026 * t119739 + 0.2e1 / 0.3e1 * t119752 * t5510 + 0.2e1 / 0.3e1 * t119755 * t5510 + 0.2e1 / 0.3e1 * t119696 * t5510 + 0.2e1 / 0.3e1 * t119749 * t5510 - 0.2e1 * t117227 * t22426 + 0.2e1 / 0.3e1 * t25485 * t22412 + 0.2e1 / 0.3e1 * t25485 * t22415 - 0.8e1 * t117234 * t22419 - 0.2e1 / 0.3e1 * t14978 * t25460 - 0.2e1 / 0.3e1 * t14972 * t25460 - 0.2e1 / 0.3e1 * t4026 * t119743;
36327   t120808 = -0.2e1 * t5499 * t23225 - 0.4e1 * t5660 * t22509 - 0.2e1 / 0.3e1 * t4026 * t119700 - t118329 - 0.2e1 * t22448 * t5635 - 0.2e1 * t22453 * t5635 - 0.2e1 * t5499 * t23214 + 0.4e1 * t117421 * t14483 * t4049 * t4830 + 0.6e1 * t25481 * t22423 + 0.4e1 * t881 * t25743 + 0.4e1 * t81 * t17470 * t5506 - 0.4e1 * t5660 * t22493 - 0.16e2 * t23023 * t22442 - 0.2e1 * t25481 * t22426 + 0.2e1 * t81 * t25751 * t1037 + 0.2e1 / 0.3e1 * t119706 * t5510 + 0.2e1 / 0.3e1 * t25474 * t22412 - 0.2e1 * t23203 * t1252 - 0.2e1 * t5623 * t4527;
36328   t120810 = t14483 * t15206;
36329   t120823 = my_piecewise3(t95, 0, -t118357 - 0.3e1 / 0.2e1 * t119803 + 0.5e1 / 0.3e1 * t119805);
36330   t120865 = 0.2e1 * t25481 * t120810 - 0.2e1 * t2442 * t25733 - 0.2e1 * t4302 * t25733 - 0.2e1 * t449 * t4527 * t5634 - 0.2e1 * t449 * t363 * t120823 - 0.2e1 * t449 * t1252 * t23224 - 0.2e1 * t2442 * t25738 - 0.2e1 * t4302 * t25738 + 0.2e1 * t881 * t25752 + 0.2e1 * t81 * t4483 * t5634 * t227 + 0.2e1 * t81 * t1231 * t23224 * t227 + 0.4e1 * t81 * t17451 * t5506 + 0.2e1 * t119905 * t25746 + 0.10e2 / 0.3e1 * t4013 * t119783 + 0.2e1 * t81 * t96 * t120823 * t227 + 0.2e1 * t81 * t25755 * t1037 + 0.4e1 * t81 * t4721 * t22464 + 0.2e1 / 0.3e1 * t119703 * t5510 - 0.8e1 * t21675 * t23241;
36331   t120906 = t118426 - t118428 - 0.8e1 * t4720 * t118334 * t912 - 0.4e1 * t23292 * t5507 - 0.4e1 * t23295 * t5507 - 0.4e1 * t5660 * t22475 - 0.2e1 * t449 * t1110 * t25737 + 0.2e1 * t881 * t25756 + 0.2e1 * t81 * t928 * t25737 * t227 - 0.10e2 / 0.3e1 * t117320 * t22437 + 0.2e1 / 0.3e1 * t25474 * t22415 - 0.2e1 / 0.3e1 * t4459 * t25452 - 0.2e1 / 0.3e1 * t4465 * t25452 - 0.2e1 / 0.3e1 * t1227 * t119723 + 0.2e1 * t119825 * t1246 + 0.2e1 * t119828 * t1246 + 0.2e1 * t119831 * t1246 + 0.2e1 * t25496 * t4516 - 0.2e1 / 0.3e1 * t1227 * t119822 - 0.8e1 * t117418 * t22419;
36332   t120908 = t120767 + t120808 + t120865 + t120906;
36333   t120963 = 0.6e1 * t1231 * t23244 * t369 + 0.6e1 * t1231 * t23248 * t369 + 0.6e1 * t25755 * t369 * t928 + 0.6e1 * t369 * t4483 * t5639 + 0.6e1 * t1125 * t25782 + 0.6e1 * t1125 * t25790 + 0.3e1 * t1125 * t25793 + 0.6e1 * t1267 * t23276 + 0.6e1 * t1267 * t23284 + 0.3e1 * t1267 * t23287 + 0.3e1 * t23264 * t1269 + 0.12e2 * t1336 * t22541 + 0.12e2 * t1336 * t22544 + 0.12e2 * t1336 * t22547 + 0.12e2 * t1336 * t22552 + 0.3e1 * t4568 * t5655 + 0.6e1 * t5528 * t4864;
36334   t121006 = 0.6e1 * t5648 * t4574 + 0.12e2 * t1125 * t25785 + 0.6e1 * t4568 * t5652 + 0.3e1 * t369 * t97 * t120823 + 0.3e1 * t5648 * t4577 + 0.12e2 * t5528 * t4861 + 0.6e1 * t1336 * t22555 + 0.12e2 * t369 * t4839 * t5506 + 0.12e2 * t369 * t4843 * t5506 + 0.12e2 * t369 * t1329 * t22464 + 0.6e1 * t22523 * t1338 + 0.12e2 * t1267 * t23279 + params->d * t120908 * t370 + 0.12e2 * t4855 * t5534 + 0.6e1 * t4855 * t5537 + 0.3e1 * t25770 * t1127 + 0.6e1 * t369 * t4483 * t5622 + 0.12e2 * t369 * t5513 * t4830;
36335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36336     v4rhosigmatau2[12] = t118298 + t7 * t120908 * t372 + t25762 * t1130 + t118492 + t23256 * t1272 + t5644 * t4580 + t118496 + 0.2e1 * t22515 * t1341 + 0.2e1 * t5524 * t4867 + t118502 + 0.2e1 * t4851 * t5540 + 0.2e1 * t1334 * t22558 + t118507 + t4564 * t5658 + t1265 * t23290 + t118510 + t1123 * t25796 + t872 * (t120963 + t121006);
36337 
36338   t121031 = 0.2e1 / 0.3e1 * t120135 * t5510 + 0.2e1 / 0.3e1 * t120138 * t5510 + 0.2e1 / 0.3e1 * t120141 * t5510 + 0.2e1 / 0.3e1 * t120144 * t5510 + 0.2e1 / 0.3e1 * t25564 * t22412 + 0.2e1 / 0.3e1 * t25564 * t22415 - 0.8e1 * t117573 * t22419 + 0.6e1 * t117576 * t22423 - 0.2e1 / 0.3e1 * t4026 * t120017 - 0.2e1 / 0.3e1 * t4026 * t120020 - 0.2e1 * t2442 * t25811;
36339   t121049 = -0.2e1 * t4302 * t25811 - 0.2e1 * t449 * t4527 * t5665 - 0.2e1 * t23292 * t5546 - 0.2e1 * t4302 * t25816 - t118608 - t118616 + t118618 - 0.2e1 / 0.3e1 * t14978 * t25548 - 0.2e1 / 0.3e1 * t14972 * t25548 - 0.2e1 / 0.3e1 * t4026 * t120030 - 0.2e1 / 0.3e1 * t4026 * t120120;
36340   t121073 = -0.2e1 / 0.3e1 * t4026 * t120124 - 0.2e1 * t117576 * t22426 + 0.2e1 / 0.3e1 * t120116 * t5510 + 0.2e1 / 0.3e1 * t120158 * t5510 + 0.2e1 / 0.3e1 * t120107 * t5510 + 0.2e1 / 0.3e1 * t120110 * t5510 + 0.2e1 / 0.3e1 * t25578 * t22412 + 0.2e1 / 0.3e1 * t25578 * t22415 - 0.8e1 * t117602 * t22419 + 0.6e1 * t117605 * t22423 - 0.2e1 * t117605 * t22426;
36341   t121099 = -0.2e1 / 0.3e1 * t14978 * t25537 - 0.2e1 / 0.3e1 * t14972 * t25537 - 0.2e1 / 0.3e1 * t4026 * t120038 - 0.2e1 / 0.3e1 * t4026 * t120026 + 0.2e1 * t120091 * t1246 + 0.2e1 * t120094 * t1246 - 0.2e1 / 0.3e1 * t4026 * t120023 - 0.2e1 * t449 * t1110 * t25815 + 0.10e2 / 0.3e1 * t4013 * t120044 - 0.2e1 * t5660 * t22664 - 0.2e1 * t25800 * t4888 - 0.2e1 * t5660 * t22613;
36342   t121118 = my_piecewise3(t95, 0, -t118683 - 0.3e1 / 0.2e1 * t120070 - 0.5e1 / 0.6e1 * t120073 + 0.5e1 / 0.6e1 * t120075 + 0.5e1 / 0.6e1 * t120077);
36343   t121133 = -0.2e1 * t23292 * t5551 - 0.10e2 / 0.3e1 * t117804 * t22437 + 0.2e1 * t25575 * t4516 - 0.2e1 * t449 * t1252 * t23324 - 0.2e1 * t2442 * t25816 - 0.2e1 * t449 * t363 * t121118 - 0.2e1 * t23295 * t5551 - 0.2e1 * t5660 * t22622 - 0.2e1 * t5499 * t23325 + 0.2e1 * t81 * t25833 * t1037 - 0.8e1 * t21675 * t23345;
36344   t121165 = 0.2e1 * t121118 * t227 * t81 * t96 + 0.2e1 * t1326 * t22574 * t227 * t81 + 0.2e1 * t227 * t25815 * t81 * t928 + 0.2e1 * t227 * t4830 * t5550 * t81 + 0.2e1 * t1037 * t25821 * t81 + 0.2e1 * t1037 * t25825 * t81 - 0.8e1 * t118808 * t4720 * t912 + 0.2e1 * t120041 * t1246 + 0.2e1 * t881 * t25826 + 0.2e1 * t881 * t25838 + t118717;
36345   t121194 = 0.2e1 * t25589 * t4516 + 0.2e1 * t120059 * t1246 + 0.2e1 * t881 * t25822 + 0.2e1 * t81 * t22464 * t1347 * t227 + 0.2e1 * t81 * t5506 * t4887 * t227 + 0.10e2 / 0.3e1 * t4013 * t120217 - 0.10e2 / 0.3e1 * t117659 * t22437 + 0.2e1 * t120062 * t1246 + 0.2e1 * t120065 * t1246 + 0.2e1 * t81 * t25837 * t1037 - 0.2e1 * t5499 * t23306;
36346   t121225 = 0.2e1 * t1231 * t227 * t23324 * t81 + 0.2e1 * t227 * t4483 * t5665 * t81 - 0.2e1 * t1348 * t22464 * t82 - 0.2e1 * t1348 * t5506 * t915 - 0.8e1 * t118654 * t4893 - 0.2e1 * t22448 * t5666 - 0.2e1 * t22453 * t5666 - 0.8e1 * t23023 * t22581 - 0.2e1 * t5660 * t22642 - 0.2e1 * t23295 * t5546 - 0.2e1 * t25800 * t4873 + 0.2e1 * t881 * t25834;
36347   t121228 = t121031 + t121049 + t121073 + t121099 + t121133 + t121165 + t121194 + t121225;
36348   t121238 = t121228 * t372 * t7 + t25844 * t1130 + t23360 * t1272 + t22673 * t1341 + t1355 * t22558 + t5676 * t4580 + t5567 * t4867 + t4908 * t5540 + t118596 + t118821 + t118824 + t118827;
36349   t121275 = t121228 * t370 * params->d + 0.6e1 * t1231 * t23348 * t369 + 0.6e1 * t1231 * t23352 * t369 + 0.6e1 * t1326 * t22566 * t369 + 0.6e1 * t1326 * t22575 * t369 + 0.6e1 * t369 * t4830 * t5560 + 0.6e1 * t1125 * t25870 + 0.3e1 * t1267 * t23400 + 0.6e1 * t1336 * t22699 + 0.6e1 * t1336 * t22702 + 0.6e1 * t4568 * t5686 + 0.6e1 * t5680 * t4574;
36350   t121290 = t369 * t4483 * t5671 + t1125 * t25873 + t1125 * t25881 + t1267 * t23386 + t1267 * t23397 + t1336 * t22705 + t1336 * t22710 + t1357 * t22541 + t1357 * t22544 + t1357 * t22547 + t4855 * t5577 + t4912 * t5534 + t5528 * t4918;
36351   t121325 = 0.3e1 * t121118 * t369 * t97 + 0.6e1 * t1326 * t22593 * t369 + 0.6e1 * t1326 * t22597 * t369 + 0.6e1 * t1350 * t22464 * t369 + 0.6e1 * t369 * t4896 * t5506 + 0.6e1 * t369 * t4900 * t5506 + 0.3e1 * t1125 * t25884 + 0.3e1 * t25852 * t1127 + 0.6e1 * t1267 * t23389 + 0.6e1 * t1267 * t23392 + 0.3e1 * t1336 * t22713 + 0.3e1 * t22681 * t1338 + 0.3e1 * t22523 * t1359;
36352   t121354 = 0.6e1 * t25837 * t369 * t928 + 0.6e1 * t369 * t4830 * t5556 + 0.6e1 * t1125 * t25876 + 0.3e1 * t23368 * t1269 + 0.6e1 * t1357 * t22552 + 0.3e1 * t1357 * t22555 + 0.3e1 * t4568 * t5689 + 0.3e1 * t5680 * t4577 + 0.3e1 * t4855 * t5580 + 0.6e1 * t5571 * t4861 + 0.3e1 * t5571 * t4864 + 0.3e1 * t4912 * t5537 + 0.3e1 * t5528 * t4921;
36353   t121358 = t118831 + t22515 * t1362 + t5524 * t4924 + t118834 + t4851 * t5583 + t1334 * t22716 + t118837 + t4564 * t5692 + t1265 * t23403 + t118840 + t1123 * t25887 + t872 * (t121275 + 0.6e1 * t121290 + t121325 + t121354);
36354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36355     v4rhosigmatau2[13] = t121238 + t121358;
36356 
36357   t121393 = -0.2e1 / 0.3e1 * t14978 * t25648 + 0.2e1 / 0.3e1 * t25672 * t22412 + 0.2e1 / 0.3e1 * t25672 * t22415 - 0.8e1 * t117962 * t22419 + 0.6e1 * t117965 * t22423 - 0.2e1 * t117965 * t22426 - 0.2e1 / 0.3e1 * t4026 * t120461 - 0.2e1 / 0.3e1 * t14972 * t25648 - 0.2e1 / 0.3e1 * t4026 * t120449 - 0.2e1 / 0.3e1 * t4026 * t120453 - 0.2e1 / 0.3e1 * t4026 * t120457 + t118979 - t118981 + t118990 + 0.6e1 * t25669 * t22423 + 0.2e1 * t81 * t25920 * t1037 + 0.4e1 * t881 * t25909 + 0.4e1 * t81 * t17618 * t5550 + 0.2e1 * t881 * t25921;
36358   t121402 = my_piecewise3(t95, 0, -t119028 - 0.3e1 / 0.2e1 * t120421 - 0.5e1 / 0.3e1 * t120423 + 0.5e1 / 0.3e1 * t120425);
36359   t121445 = 0.2e1 * t81 * t928 * t25903 * t227 + 0.2e1 * t81 * t96 * t121402 * t227 - 0.10e2 / 0.3e1 * t117974 * t22437 + 0.4e1 * t81 * t17710 * t5550 - 0.2e1 * t2442 * t25904 - 0.2e1 * t4302 * t25904 - 0.2e1 * t449 * t1110 * t25903 - 0.2e1 / 0.3e1 * t1227 * t120619 + 0.2e1 * t120535 * t1246 + 0.2e1 * t120538 * t1246 + 0.2e1 * t120541 * t1246 - 0.2e1 * t2442 * t25899 - 0.2e1 * t4302 * t25899 - 0.2e1 * t449 * t4527 * t5706 - 0.10e2 / 0.3e1 * t118090 * t4531 + 0.4e1 / 0.3e1 * t118093 * t1254 * t120486 + 0.2e1 / 0.3e1 * t120490 * t5510 + 0.2e1 / 0.3e1 * t120577 * t5510 + 0.2e1 / 0.3e1 * t120580 * t5510;
36360   t121486 = 0.2e1 / 0.3e1 * t120583 * t5510 - t119063 + 0.10e2 / 0.3e1 * t4013 * t120604 - 0.8e1 * t4720 * t119146 * t912 - 0.2e1 * t5499 * t23433 - 0.4e1 * t23107 * t22664 - 0.2e1 * t449 * t1252 * t23432 - 0.2e1 * t449 * t363 * t121402 - 0.2e1 * t22448 * t5707 - 0.2e1 * t22453 * t5707 - 0.2e1 * t5499 * t23416 + 0.2e1 * t25669 * t120810 - 0.4e1 * t98078 * t5551 - 0.4e1 * t120510 * t5551 - 0.4e1 * t23107 * t22622 - 0.2e1 * t25669 * t22426 - 0.2e1 / 0.3e1 * t4459 * t25640 - 0.2e1 / 0.3e1 * t4465 * t25640 - 0.2e1 / 0.3e1 * t1227 * t120615;
36361   t121535 = 0.2e1 / 0.3e1 * t25662 * t22412 + 0.2e1 / 0.3e1 * t25662 * t22415 - 0.8e1 * t118029 * t22419 + 0.4e1 * t118032 * t14483 * t4049 * t4887 - 0.16e2 * t97129 * t22581 - 0.2e1 * t5695 * t4527 - 0.2e1 * t23405 * t1252 + 0.2e1 * t881 * t25917 + 0.2e1 * t81 * t4483 * t5706 * t227 + 0.2e1 * t81 * t1231 * t23432 * t227 - 0.8e1 * t21675 * t23449 + 0.10e2 / 0.3e1 * t4013 * t120477 - 0.4e1 / 0.3e1 * t4026 * t120481 + 0.2e1 * t25683 * t4516 + 0.2e1 / 0.3e1 * t120624 * t5510 + 0.2e1 / 0.3e1 * t120594 * t5510 + 0.2e1 * t81 * t25916 * t1037 + 0.4e1 * t81 * t4781 * t22574 + 0.2e1 * t120600 * t25746 - 0.4e1 * t23107 * t22613;
36362   t121537 = t121393 + t121445 + t121486 + t121535;
36363   t121593 = t121537 * t370 * params->d + 0.12e2 * t1350 * t22574 * t369 + 0.6e1 * t25920 * t369 * t928 + 0.12e2 * t369 * t4887 * t5556 + 0.12e2 * t369 * t4896 * t5550 + 0.12e2 * t369 * t4900 * t5550 + 0.12e2 * t1125 * t25950 + 0.6e1 * t1125 * t25955 + 0.3e1 * t1125 * t25958 + 0.12e2 * t1267 * t23487 + 0.6e1 * t1267 * t23492 + 0.12e2 * t1357 * t22699 + 0.12e2 * t1357 * t22702 + 0.12e2 * t1357 * t22705 + 0.6e1 * t1357 * t22713 + 0.6e1 * t5720 * t4574 + 0.12e2 * t4912 * t5577;
36364   t121635 = 0.6e1 * t1267 * t23484 + 0.6e1 * t4568 * t5724 + 0.3e1 * t1267 * t23495 + 0.6e1 * t1125 * t25947 + 0.3e1 * t5720 * t4577 + 0.6e1 * t369 * t23452 * t1231 + 0.6e1 * t369 * t23456 * t1231 + 0.6e1 * t369 * t5711 * t4483 + 0.12e2 * t1357 * t22710 + 0.3e1 * t4568 * t5727 + 0.12e2 * t5571 * t4918 + 0.3e1 * t25935 * t1127 + 0.3e1 * t23472 * t1269 + 0.6e1 * t4912 * t5580 + 0.6e1 * t369 * t4483 * t5694 + 0.6e1 * t5571 * t4921 + 0.6e1 * t22681 * t1359 + 0.3e1 * t369 * t97 * t121402;
36365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36366     v4rhosigmatau2[14] = t118967 + t7 * t121537 * t372 + t25927 * t1130 + t119159 + t23464 * t1272 + t5716 * t4580 + t119163 + 0.2e1 * t22673 * t1362 + 0.2e1 * t5567 * t4924 + t119169 + 0.2e1 * t4908 * t5583 + 0.2e1 * t1355 * t22716 + t119174 + t4564 * t5730 + t1265 * t23498 + t119177 + t1123 * t25961 + t872 * (t121593 + t121635);
36367 
36368   t121667 = t15686 * t25460 / 0.3e1 + t15610 * t25460 / 0.3e1 + t4173 * t119735 / 0.3e1 + t4173 * t119739 / 0.3e1 + t4173 * t119700 / 0.3e1 + t4173 * t119743 / 0.3e1 - t119755 * t5590 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t119783 - t119703 * t5590 / 0.3e1 + t15503 * t25460 / 0.3e1 + 0.5e1 / 0.3e1 * t117223 * t4660 - 0.2e1 / 0.3e1 * t117269 * t1309 * t119770 + 0.2e1 / 0.3e1 * t4173 * t119763 - 0.5e1 / 0.3e1 * t4156 * t119777 + t119728 - t119767 + t119769 - t119775 - t119781;
36369   t121701 = 0.5e1 / 0.3e1 * t117320 * t22736 - t119706 * t5590 / 0.3e1 - t25474 * t22720 / 0.3e1 - t25474 * t22752 / 0.3e1 - t25474 * t22723 / 0.3e1 - t119696 * t5590 / 0.3e1 - t119749 * t5590 / 0.3e1 - t119752 * t5590 / 0.3e1 - 0.2e1 * t2442 * t25969 - t119791 - t25485 * t22720 / 0.3e1 - t25485 * t22752 / 0.3e1 - t25485 * t22723 / 0.3e1 - 0.2e1 * t4302 * t25969 + t119794 + t119796 - 0.2e1 * t449 * t1307 * t23224 + t1277 * t119723 / 0.3e1 + t1277 * t119822 / 0.3e1;
36370   t121711 = t4582 * t25452 / 0.3e1 + t4588 * t25452 / 0.3e1 + t4597 * t25452 / 0.3e1 + t119800 + t119812 + t119816 + t119818 + t119820 + t119827 + t119830 + t119833 - 0.4e1 * t5660 * t22757 + t119836 + t119838 + t119842 + t119844 - t119846 + t119850 - t119855;
36371   t121719 = -0.2e1 * t449 * t4656 * t5634 - 0.2e1 * t23203 * t1307 - 0.2e1 * t5623 * t4656 - t119857 - t119861 - t119864 - t119867 + t119872 + t119875 - t119877 - t119879 - t119881 - t119883 - t119886 - t119888 + t119895 - t119902 - t119904 + t119907 - t119910;
36372   t121721 = t121667 + t121701 + t121711 + t121719;
36373   t121748 = 0.6e1 * t1318 * t23276 + 0.6e1 * t1318 * t23284 + 0.3e1 * t1318 * t23287 + 0.6e1 * t4683 * t5652 + 0.6e1 * t5598 * t4864 + t119931 + t119935 + t119937 + t119939 + t119942 + t119945 + t119951 + t119953 + t119955 + t119962 + t119965 + t119968;
36374   t121761 = t121721 * t370 * params->d + 0.3e1 * t25985 * t1127 + 0.12e2 * t1318 * t23279 + 0.6e1 * t22780 * t1338 + 0.3e1 * t4683 * t5655 + 0.12e2 * t5598 * t4861 + t119972 + t119974 + t119979 + t119983 + t119985 + t119988 + t119993 + t119998 + t120000 + t120004 + t120006 + t120010;
36375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36376     v4rhosigmatau2[15] = t119263 + t7 * t121721 * t372 + t25977 * t1130 + t119351 + t23256 * t1320 + t5644 * t4687 + t119355 + 0.2e1 * t22772 * t1341 + 0.2e1 * t5594 * t4867 + t119361 + 0.2e1 * t4851 * t5602 + 0.2e1 * t1334 * t22790 + t119366 + t4679 * t5658 + t1316 * t23290 + t119369 + t1123 * t25993 + t872 * (t121748 + t121761);
36377 
36378   t121770 = -t120036 + t120043 - t120135 * t5590 / 0.3e1 - t120138 * t5590 / 0.3e1 - t120141 * t5590 / 0.3e1 + t120048 + t120050 + t120054 + t120058 + t120061 + t120064;
36379   t121779 = t120067 + t120084 - 0.5e1 / 0.3e1 * t4156 * t120217 + t120086 + t120090 + t120093 + t120096 - t120098 - t25564 * t22720 / 0.3e1 - t25564 * t22752 / 0.3e1 - t25564 * t22723 / 0.3e1;
36380   t121791 = t15503 * t25548 / 0.3e1 + t15686 * t25548 / 0.3e1 + t15610 * t25548 / 0.3e1 + t4173 * t120030 / 0.3e1 + t120101 - t120103 - t120144 * t5590 / 0.3e1 - t120106 + t120130 - t120132 + t120134;
36381   t121796 = -t120157 - t120164 - t120167 + 0.5e1 / 0.3e1 * t117659 * t22736 - t120170 - t120172 - t120182 - t120186 - t120188 - t120190 + t120196 - 0.2e1 * t23292 * t5606;
36382   t121807 = -t1307 * t23324 * t449 - t449 * t4656 * t5665 - t5660 * t22798 - t5660 * t22841 - t23295 * t5606 - t4302 * t26001 - t120205 - t120207 - t120209 + t120212 + t120214;
36383   t121819 = -t120221 - 0.2e1 * t2442 * t26001 - t120223 - t120226 - t120235 + t120238 - t120240 + t4173 * t120020 / 0.3e1 + t4173 * t120023 / 0.3e1 + t4173 * t120026 / 0.3e1 + t4173 * t120038 / 0.3e1;
36384   t121832 = -t120107 * t5590 - t120110 * t5590 - t120116 * t5590 + t4173 * t120120 + t4173 * t120124 - t120158 * t5590 + t15503 * t25537 + t15686 * t25537 - t25578 * t22720 - t25578 * t22723 - t25578 * t22752;
36385   t121842 = t15610 * t25537 / 0.3e1 + t4173 * t120017 / 0.3e1 + t120244 + t120248 + t120250 - t120252 - t120254 - 0.5e1 / 0.3e1 * t4156 * t120044 + 0.5e1 / 0.3e1 * t117804 * t22736 + t120257 + t120259 + t120263;
36386   t121845 = t121770 + t121779 + t121791 + t121796 + 0.2e1 * t121807 + t121819 + t121832 / 0.3e1 + t121842;
36387   t121855 = t121845 * t372 * t7 + t26009 * t1130 + t23360 * t1320 + t22851 * t1341 + t1355 * t22790 + t5676 * t4687 + t5612 * t4867 + t4908 * t5602 + t119397 + t119494 + t119497 + t119500;
36388   t121875 = 0.6e1 * t1318 * t23386 + 0.6e1 * t1318 * t23389 + 0.6e1 * t1318 * t23392 + 0.3e1 * t1318 * t23400 + 0.3e1 * t5616 * t4864 + 0.3e1 * t5598 * t4921 + t120286 + t120290 + t120292 + t120294 + t120296 + t120300;
36389   t121878 = 0.3e1 * t22859 * t1338 + t120304 + t120306 + t120308 + t120311 + t120313 + t120316 + t120318 + t120321 + t120326 + t120329 + t120332 + t120335;
36390   t121888 = 0.6e1 * t1318 * t23397 + 0.3e1 * t22780 * t1359 + 0.6e1 * t4683 * t5686 + 0.3e1 * t4683 * t5689 + t120337 + t120339 + t120345 + t120348 + t120351 + t120359 + t120362 + t120364 + t120366;
36391   t121897 = t121845 * t370 * params->d + 0.3e1 * t26017 * t1127 + 0.6e1 * t5616 * t4861 + 0.6e1 * t5598 * t4918 + t120369 + t120372 + t120385 + t120387 + t120390 + t120393 + t120396 + t120400 + t120402;
36392   t121901 = t119504 + t22772 * t1362 + t5594 * t4924 + t119507 + t4851 * t5620 + t1334 * t22869 + t119510 + t4679 * t5692 + t1316 * t23403 + t119513 + t1123 * t26027 + t872 * (t121875 + t121878 + t121888 + t121897);
36393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36394     v4rhosigmatau2[16] = t121855 + t121901;
36395 
36396   t121931 = -t120583 * t5590 / 0.3e1 - t25672 * t22720 / 0.3e1 - t25672 * t22752 / 0.3e1 - t25672 * t22723 / 0.3e1 + 0.5e1 / 0.3e1 * t118090 * t4660 + t4173 * t120449 / 0.3e1 + t4173 * t120453 / 0.3e1 + t4173 * t120457 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t120477 + 0.2e1 / 0.3e1 * t4173 * t120481 - 0.2e1 / 0.3e1 * t118093 * t1309 * t120486 - t120490 * t5590 / 0.3e1 - t120577 * t5590 / 0.3e1 - t120580 * t5590 / 0.3e1 + t120411 - t120417 - t120420 - t120431 - t120433;
36397   t121943 = -0.2e1 * t1307 * t23432 * t449 - 0.2e1 * t23405 * t1307 - 0.4e1 * t23107 * t22798 - 0.2e1 * t2442 * t26035 - 0.2e1 * t5695 * t4656 - t120435 - t120437 - t120442 + t120473 - t120475 + t120495 + t120497 + t120501 + t120505 + t120507 - t120509 - t120512 - t120514 - t120516;
36398   t121969 = -t25662 * t22752 / 0.3e1 - t25662 * t22723 / 0.3e1 - 0.5e1 / 0.3e1 * t4156 * t120604 + t120519 + t120523 + t120527 + t120531 + t15503 * t25648 / 0.3e1 + t15686 * t25648 / 0.3e1 + t15610 * t25648 / 0.3e1 + t4173 * t120461 / 0.3e1 + t120534 - t120624 * t5590 / 0.3e1 - t120594 * t5590 / 0.3e1 - t25662 * t22720 / 0.3e1 + t4582 * t25640 / 0.3e1 + t4588 * t25640 / 0.3e1 + t120537 + t120540;
36399   t121983 = t120543 + t120549 - t120551 - 0.2e1 * t449 * t4656 * t5706 + t120554 - 0.2e1 * t4302 * t26035 + t4597 * t25640 / 0.3e1 + t1277 * t120615 / 0.3e1 + t1277 * t120619 / 0.3e1 - t120556 - t120558 - t120562 - t120564 + t120568 + t120570 + t120574 - t120593 + 0.5e1 / 0.3e1 * t117974 * t22736 - t120599 + t120602;
36400   t121985 = t121931 + t121943 + t121969 + t121983;
36401   t122022 = t121985 * t370 * params->d + 0.3e1 * t26051 * t1127 + 0.6e1 * t1318 * t23484 + 0.12e2 * t1318 * t23487 + 0.3e1 * t1318 * t23495 + 0.6e1 * t22859 * t1359 + 0.6e1 * t4683 * t5724 + 0.3e1 * t4683 * t5727 + 0.12e2 * t5616 * t4918 + 0.6e1 * t5616 * t4921 + t120654 + t120660 + t120662 + t120664 + t120666 + t120670 + t120672;
36402   t122025 = 0.6e1 * t1318 * t23492 + t120676 + t120681 + t120687 + t120690 + t120693 + t120696 + t120700 + t120703 + t120706 + t120708 + t120710 + t120713 + t120715 + t120717 + t120722 + t120724 + t120726;
36403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36404     v4rhosigmatau2[17] = t119562 + t7 * t121985 * t372 + t26043 * t1130 + t119650 + t23464 * t1320 + t5716 * t4687 + t119654 + 0.2e1 * t22851 * t1362 + 0.2e1 * t5612 * t4924 + t119660 + 0.2e1 * t4908 * t5620 + 0.2e1 * t1355 * t22869 + t119665 + t4679 * t5730 + t1316 * t23498 + t119668 + t1123 * t26059 + t872 * (t122022 + t122025);
36405 
36406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36407     v4rholapl3[0] = 0.0e0;
36408 
36409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36410     v4rholapl3[1] = 0.0e0;
36411 
36412   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36413     v4rholapl3[2] = 0.0e0;
36414 
36415   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36416     v4rholapl3[3] = 0.0e0;
36417 
36418   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36419     v4rholapl3[4] = 0.0e0;
36420 
36421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36422     v4rholapl3[5] = 0.0e0;
36423 
36424   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36425     v4rholapl3[6] = 0.0e0;
36426 
36427   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36428     v4rholapl3[7] = 0.0e0;
36429 
36430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36431     v4rholapl2tau[0] = 0.0e0;
36432 
36433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36434     v4rholapl2tau[1] = 0.0e0;
36435 
36436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36437     v4rholapl2tau[2] = 0.0e0;
36438 
36439   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36440     v4rholapl2tau[3] = 0.0e0;
36441 
36442   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36443     v4rholapl2tau[4] = 0.0e0;
36444 
36445   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36446     v4rholapl2tau[5] = 0.0e0;
36447 
36448   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36449     v4rholapl2tau[6] = 0.0e0;
36450 
36451   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36452     v4rholapl2tau[7] = 0.0e0;
36453 
36454   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36455     v4rholapl2tau[8] = 0.0e0;
36456 
36457   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36458     v4rholapl2tau[9] = 0.0e0;
36459 
36460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36461     v4rholapl2tau[10] = 0.0e0;
36462 
36463   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36464     v4rholapl2tau[11] = 0.0e0;
36465 
36466   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36467     v4rholapltau2[0] = 0.0e0;
36468 
36469   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36470     v4rholapltau2[1] = 0.0e0;
36471 
36472   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36473     v4rholapltau2[2] = 0.0e0;
36474 
36475   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36476     v4rholapltau2[3] = 0.0e0;
36477 
36478   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36479     v4rholapltau2[4] = 0.0e0;
36480 
36481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36482     v4rholapltau2[5] = 0.0e0;
36483 
36484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36485     v4rholapltau2[6] = 0.0e0;
36486 
36487   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36488     v4rholapltau2[7] = 0.0e0;
36489 
36490   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36491     v4rholapltau2[8] = 0.0e0;
36492 
36493   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36494     v4rholapltau2[9] = 0.0e0;
36495 
36496   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36497     v4rholapltau2[10] = 0.0e0;
36498 
36499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
36500     v4rholapltau2[11] = 0.0e0;
36501 
36502   t122028 = t26081 * t372;
36503   t122045 = 0.2e1 * t424 * t26067;
36504   t122046 = t26063 * t26066;
36505   t122055 = t26063 * t26065;
36506   t122060 = my_piecewise3(t95, 0, t122045 + 0.3e1 * t64949 * t122046 * t459 + 0.15e2 / 0.4e1 * t58 * t5751 / t545 * t26066 - 0.15e2 / 0.4e1 * t17133 * t122055 * t414);
36507   t122079 = t26070 * t227;
36508   t122094 = -0.6e1 * t22977 * t5635 - 0.6e1 * t22980 * t5635 - 0.6e1 * t5660 * t22883 - 0.6e1 * t5660 * t22905 - 0.2e1 * t1476 * t26071 - 0.2e1 * t2448 * t26071 - 0.2e1 * t449 * t857 * t26070 - 0.2e1 * t449 * t363 * t122060 + 0.6e1 * t397 * t26074 - 0.24e2 * t23023 * t22922 + 0.6e1 * t81 * t17097 * t5634 + 0.6e1 * t81 * t17112 * t5634 + 0.6e1 * t81 * t4721 * t22904 + 0.2e1 * t397 * t26078 - 0.8e1 * t4720 * t122079 * t443 + 0.2e1 * t81 * t464 * t26070 * t227 + 0.2e1 * t81 * t96 * t122060 * t227 + 0.2e1 * t81 * t26077 * t751;
36509   t122099 = 0.3e1 * t5643 * t1341;
36510   t122105 = 0.3e1 * t1333 * t5658;
36511   t122110 = t368 * t26105;
36512   t122158 = params->d * t122094 * t370 + 0.3e1 * t26088 * t875 + 0.9e1 * t22948 * t1338 + 0.18e2 * t5648 * t4748 + 0.9e1 * t5648 * t4751 + 0.18e2 * t4742 * t5652 + 0.18e2 * t1336 * t22960 + 0.36e2 * t1336 * t22963 + 0.9e1 * t4742 * t5655 + 0.18e2 * t1336 * t22968 + 0.9e1 * t1336 * t22971 + 0.6e1 * t873 * t26096 + 0.18e2 * t369 * t5622 * t4714 + 0.18e2 * t873 * t26099 + 0.18e2 * t369 * t4725 * t5634 + 0.18e2 * t369 * t4729 * t5634 + 0.18e2 * t369 * t1329 * t22904 + 0.3e1 * t873 * t26102 + 0.6e1 * t369 * t26077 * t464 + 0.3e1 * t369 * t97 * t122060;
36513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36514     v4rhotau3[0] = t122094 * t372 * t7 + t872 * t122158 + 0.3e1 * t1334 * t22974 + 0.3e1 * t22937 * t1341 + t26082 * t878 + t870 * t26105 + 0.3e1 * t4737 * t5658 + 0.3e1 * t5644 * t4754 + t122028 + t122099 + t122105 + t122110;
36515 
36516   t122160 = t26131 * t372;
36517   t122184 = t400 * t5634;
36518   t122198 = 0.4e1 * t1326 * t227 * t23017 * t81 + 0.2e1 * t1347 * t227 * t22904 * t81 + 0.4e1 * t227 * t4714 * t5665 * t81 + 0.2e1 * t227 * t4775 * t5634 * t81 - 0.2e1 * t1348 * t22904 * t82 + 0.2e1 * t26127 * t751 * t81 - 0.8e1 * t122184 * t4782 - 0.2e1 * t1476 * t26116 - 0.2e1 * t26107 * t4761 - 0.2e1 * t26107 * t4776 + 0.2e1 * t397 * t26120 + 0.4e1 * t397 * t26124 + 0.2e1 * t397 * t26128;
36519   t122204 = 0.2e1 * t64942 * t26112;
36520   t122205 = t50 * t5626;
36521   t122210 = t49 * t5626;
36522   t122223 = my_piecewise3(t95, 0, t122204 + 0.3e1 * t96748 * t122205 * t5630 * t459 - 0.5e1 / 0.4e1 * t22997 * t122210 * t5630 * t418 + 0.5e1 / 0.2e1 * t17133 * t4766 * t96419 - 0.5e1 / 0.2e1 * t22997 * t122205 * t22898 * t414);
36523   t122243 = t26115 * t227;
36524   t122259 = 0.2e1 * t122223 * t227 * t81 * t96 + 0.2e1 * t227 * t26115 * t464 * t81 - 0.2e1 * t122223 * t363 * t449 - 0.8e1 * t122243 * t443 * t4720 - 0.2e1 * t1348 * t446 * t5634 - 0.2e1 * t26115 * t449 * t857 + 0.2e1 * t26119 * t751 * t81 + 0.4e1 * t26123 * t751 * t81 - 0.4e1 * t22977 * t5666 - 0.4e1 * t22980 * t5666 - 0.4e1 * t5660 * t22991 - 0.4e1 * t5660 * t23018 - 0.16e2 * t23023 * t23040 - 0.2e1 * t2448 * t26116;
36525   t122260 = t122198 + t122259;
36526   t122265 = 0.2e1 * t5675 * t1341;
36527   t122270 = t1354 * t5658;
36528   t122273 = t5643 * t1362;
36529   t122277 = 0.2e1 * t1333 * t5692;
36530   t122282 = t368 * t26166;
36531   t122325 = 0.6e1 * t23066 * t1338 + 0.6e1 * t1336 * t23098 + 0.6e1 * t369 * t5622 * t4775 + 0.3e1 * t26140 * t875 + 0.6e1 * t1357 * t22960 + 0.3e1 * t5648 * t4811 + 0.6e1 * t4802 * t5652 + 0.6e1 * t369 * t26127 * t464 + 0.3e1 * t22948 * t1359 + 0.6e1 * t369 * t4785 * t5634 + 0.6e1 * t369 * t4789 * t5634 + 0.6e1 * t369 * t1350 * t22904 + 0.6e1 * t5648 * t4808 + 0.6e1 * t873 * t26160 + params->d * t122260 * t370 + 0.12e2 * t369 * t23043 * t1326 + 0.12e2 * t369 * t23047 * t1326;
36532   t122365 = 0.3e1 * t122223 * t369 * t97 + 0.12e2 * t369 * t4714 * t5668 + 0.12e2 * t369 * t4714 * t5671 + 0.12e2 * t1336 * t23084 + 0.12e2 * t1336 * t23087 + 0.12e2 * t1336 * t23090 + 0.12e2 * t1336 * t23095 + 0.12e2 * t1357 * t22963 + 0.6e1 * t1357 * t22968 + 0.3e1 * t1357 * t22971 + 0.6e1 * t873 * t26154 + 0.12e2 * t873 * t26157 + 0.3e1 * t873 * t26163 + 0.12e2 * t4742 * t5686 + 0.6e1 * t4742 * t5689 + 0.12e2 * t5680 * t4748 + 0.6e1 * t5680 * t4751 + 0.3e1 * t4802 * t5655;
36533   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36534     v4rhotau3[1] = t122160 + t7 * t122260 * t372 + t26132 * t878 + t122265 + 0.2e1 * t23055 * t1341 + 0.2e1 * t5676 * t4754 + t122270 + t4797 * t5658 + t1355 * t22974 + t122273 + t22937 * t1362 + t5644 * t4814 + t122277 + 0.2e1 * t4737 * t5692 + 0.2e1 * t1334 * t23101 + t122282 + t870 * t26166 + t872 * (t122325 + t122365);
36535 
36536   t122368 = t26190 * t372;
36537   t122385 = 0.2e1 * t64942 * t26172;
36538   t122387 = t58 * t26299 * t5698;
36539   t122388 = t5702 * t84;
36540   t122393 = t58 * t5751 * t5698;
36541   t122394 = t23125 * t84;
36542   t122405 = my_piecewise3(t95, 0, t122385 + 0.3e1 * t122387 * t122388 * t22999 - 0.5e1 / 0.2e1 * t122393 * t122394 * t23006 + 0.5e1 / 0.4e1 * t17133 * t23121 * t1132 - 0.5e1 / 0.4e1 * t122393 * t122388 * t415);
36543   t122417 = t26175 * t227;
36544   t122421 = -0.2e1 * t122405 * t363 * t449 - 0.8e1 * t122417 * t443 * t4720 - 0.2e1 * t26175 * t449 * t857 - 0.2e1 * t1476 * t26176 - 0.2e1 * t22977 * t5707 - 0.2e1 * t22980 * t5707 - 0.4e1 * t23107 * t22991 - 0.4e1 * t23107 * t23018 - 0.2e1 * t5660 * t23116 - 0.2e1 * t5660 * t23132 - 0.2e1 * t2448 * t26176 - 0.4e1 * t97037 * t5666 - 0.4e1 * t98073 * t5666;
36545   t122463 = 0.2e1 * t122405 * t227 * t81 * t96 + 0.2e1 * t1326 * t227 * t23131 * t81 + 0.2e1 * t227 * t26175 * t464 * t81 + 0.2e1 * t227 * t4714 * t5706 * t81 + 0.4e1 * t17236 * t5665 * t81 + 0.4e1 * t17328 * t5665 * t81 + 0.4e1 * t23017 * t4781 * t81 + 0.2e1 * t26182 * t751 * t81 + 0.2e1 * t26186 * t751 * t81 - 0.8e1 * t23023 * t23149 - 0.16e2 * t97129 * t23040 + 0.4e1 * t397 * t26179 + 0.2e1 * t397 * t26183 + 0.2e1 * t397 * t26187;
36546   t122464 = t122421 + t122463;
36547   t122468 = t5715 * t1341;
36548   t122472 = 0.2e1 * t5675 * t1362;
36549   t122478 = 0.2e1 * t1354 * t5692;
36550   t122483 = t1333 * t5730;
36551   t122486 = t368 * t26225;
36552   t122528 = 0.3e1 * t122405 * t369 * t97 + 0.12e2 * t1350 * t23017 * t369 + 0.6e1 * t369 * t4714 * t5694 + 0.12e2 * t369 * t4775 * t5668 + 0.12e2 * t369 * t4785 * t5665 + 0.12e2 * t369 * t4789 * t5665 + 0.12e2 * t1336 * t23190 + 0.6e1 * t1336 * t23195 + 0.12e2 * t1357 * t23084 + 0.12e2 * t1357 * t23087 + 0.12e2 * t1357 * t23090 + 0.12e2 * t1357 * t23095 + 0.6e1 * t873 * t26211 + 0.6e1 * t873 * t26219 + 0.6e1 * t5720 * t4748 + 0.12e2 * t5680 * t4808 + 0.6e1 * t5680 * t4811;
36553   t122569 = 0.3e1 * t4742 * t5727 + 0.3e1 * t1336 * t23198 + 0.3e1 * t23175 * t1338 + 0.12e2 * t4802 * t5686 + 0.3e1 * t5720 * t4751 + 0.6e1 * t4802 * t5689 + 0.12e2 * t873 * t26214 + 0.6e1 * t369 * t26186 * t464 + params->d * t122464 * t370 + 0.3e1 * t873 * t26222 + 0.6e1 * t369 * t23156 * t1326 + 0.6e1 * t369 * t5711 * t4714 + 0.6e1 * t1336 * t23187 + 0.6e1 * t369 * t23152 * t1326 + 0.6e1 * t23066 * t1359 + 0.6e1 * t1357 * t23098 + 0.6e1 * t4742 * t5724 + 0.3e1 * t26199 * t875;
36554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36555     v4rhotau3[2] = t122368 + t7 * t122464 * t372 + t26191 * t878 + t122468 + t23164 * t1341 + t5716 * t4754 + t122472 + 0.2e1 * t23055 * t1362 + 0.2e1 * t5676 * t4814 + t122478 + 0.2e1 * t4797 * t5692 + 0.2e1 * t1355 * t23101 + t122483 + t4737 * t5730 + t1334 * t23201 + t122486 + t870 * t26225 + t872 * (t122528 + t122569);
36556 
36557   t122572 = t26247 * t372;
36558   t122589 = 0.2e1 * t424 * t26233;
36559   t122590 = t26229 * t26232;
36560   t122594 = t26229 * t26231;
36561   t122599 = my_piecewise3(t95, 0, t122589 + 0.3e1 * t64949 * t122590 * t459 - 0.15e2 / 0.4e1 * t17133 * t122594 * t418);
36562   t122618 = t26236 * t227;
36563   t122633 = -0.6e1 * t97037 * t5707 - 0.6e1 * t98073 * t5707 - 0.6e1 * t23107 * t23116 - 0.6e1 * t23107 * t23132 - 0.2e1 * t1476 * t26237 - 0.2e1 * t2448 * t26237 - 0.2e1 * t449 * t857 * t26236 - 0.2e1 * t449 * t363 * t122599 + 0.6e1 * t397 * t26240 - 0.24e2 * t97129 * t23149 + 0.6e1 * t81 * t17328 * t5706 + 0.6e1 * t81 * t17236 * t5706 + 0.6e1 * t81 * t4781 * t23131 + 0.2e1 * t397 * t26244 - 0.8e1 * t4720 * t122618 * t443 + 0.2e1 * t81 * t464 * t26236 * t227 + 0.2e1 * t81 * t96 * t122599 * t227 + 0.2e1 * t81 * t26243 * t751;
36564   t122638 = 0.3e1 * t5715 * t1362;
36565   t122644 = 0.3e1 * t1354 * t5730;
36566   t122649 = t368 * t26271;
36567   t122697 = params->d * t122633 * t370 + 0.3e1 * t26254 * t875 + 0.9e1 * t23175 * t1359 + 0.18e2 * t5720 * t4808 + 0.9e1 * t5720 * t4811 + 0.18e2 * t4802 * t5724 + 0.18e2 * t1357 * t23187 + 0.36e2 * t1357 * t23190 + 0.9e1 * t4802 * t5727 + 0.18e2 * t1357 * t23195 + 0.9e1 * t1357 * t23198 + 0.6e1 * t873 * t26262 + 0.18e2 * t369 * t5694 * t4775 + 0.18e2 * t873 * t26265 + 0.18e2 * t369 * t4785 * t5706 + 0.18e2 * t369 * t4789 * t5706 + 0.18e2 * t369 * t1350 * t23131 + 0.3e1 * t873 * t26268 + 0.6e1 * t369 * t26243 * t464 + 0.3e1 * t369 * t97 * t122599;
36568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36569     v4rhotau3[3] = t122633 * t372 * t7 + t872 * t122697 + 0.3e1 * t1355 * t23201 + 0.3e1 * t23164 * t1362 + t26248 * t878 + t870 * t26271 + 0.3e1 * t4797 * t5730 + 0.3e1 * t5716 * t4814 + t122572 + t122638 + t122644 + t122649;
36570 
36571   t122721 = my_piecewise3(t95, 0, t122045 + 0.3e1 * t64949 * t122046 * t923 - 0.15e2 / 0.4e1 * t17133 * t122055 * t887);
36572   t122754 = -0.6e1 * t23292 * t5635 - 0.6e1 * t23295 * t5635 - 0.6e1 * t5660 * t23214 - 0.6e1 * t5660 * t23225 - 0.2e1 * t2442 * t26071 - 0.2e1 * t4302 * t26071 - 0.2e1 * t449 * t1110 * t26070 - 0.2e1 * t449 * t363 * t122721 + 0.6e1 * t881 * t26074 - 0.24e2 * t23023 * t23241 + 0.6e1 * t81 * t17470 * t5634 + 0.6e1 * t81 * t17451 * t5634 + 0.6e1 * t81 * t4721 * t23224 + 0.2e1 * t881 * t26078 - 0.8e1 * t4720 * t122079 * t912 + 0.2e1 * t81 * t928 * t26070 * t227 + 0.2e1 * t81 * t96 * t122721 * t227 + 0.2e1 * t81 * t26077 * t1037;
36573   t122813 = params->d * t122754 * t370 + 0.3e1 * t26088 * t1127 + 0.9e1 * t23264 * t1338 + 0.18e2 * t5648 * t4861 + 0.9e1 * t5648 * t4864 + 0.18e2 * t4855 * t5652 + 0.18e2 * t1336 * t23276 + 0.36e2 * t1336 * t23279 + 0.9e1 * t4855 * t5655 + 0.18e2 * t1336 * t23284 + 0.9e1 * t1336 * t23287 + 0.6e1 * t1125 * t26096 + 0.18e2 * t369 * t5622 * t4830 + 0.18e2 * t1125 * t26099 + 0.18e2 * t369 * t4839 * t5634 + 0.18e2 * t369 * t4843 * t5634 + 0.18e2 * t369 * t1329 * t23224 + 0.3e1 * t1125 * t26102 + 0.6e1 * t369 * t26077 * t928 + 0.3e1 * t369 * t97 * t122721;
36574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36575     v4rhotau3[4] = t122754 * t372 * t7 + t1123 * t26105 + t26082 * t1130 + t872 * t122813 + 0.3e1 * t1334 * t23290 + 0.3e1 * t23256 * t1341 + 0.3e1 * t4851 * t5658 + 0.3e1 * t5644 * t4867 + t122028 + t122099 + t122105 + t122110;
36576 
36577   t122831 = my_piecewise3(t95, 0, t122204 + 0.3e1 * t96748 * t122205 * t5630 * t923 + 0.5e1 / 0.4e1 * t17133 * t1274 * t22888 - 0.5e1 / 0.4e1 * t22997 * t122210 * t5630 * t897 - 0.5e1 / 0.2e1 * t22997 * t122205 * t22898 * t887);
36578   t122867 = 0.2e1 * t122831 * t227 * t81 * t96 + 0.2e1 * t227 * t26115 * t81 * t928 + 0.2e1 * t1037 * t26119 * t81 + 0.4e1 * t1037 * t26123 * t81 + 0.2e1 * t1037 * t26127 * t81 - 0.8e1 * t122243 * t4720 * t912 - 0.2e1 * t122831 * t363 * t449 - 0.8e1 * t122184 * t4893 - 0.16e2 * t23023 * t23345 - 0.4e1 * t23295 * t5666 - 0.4e1 * t5660 * t23306 + 0.4e1 * t881 * t26124 + 0.2e1 * t881 * t26128;
36579   t122907 = 0.4e1 * t1326 * t227 * t23324 * t81 + 0.2e1 * t1347 * t227 * t23224 * t81 + 0.4e1 * t227 * t4830 * t5665 * t81 + 0.2e1 * t227 * t4887 * t5634 * t81 - 0.2e1 * t1110 * t26115 * t449 - 0.2e1 * t1348 * t23224 * t82 - 0.2e1 * t1348 * t5634 * t915 - 0.4e1 * t23292 * t5666 - 0.4e1 * t5660 * t23325 - 0.2e1 * t2442 * t26116 - 0.2e1 * t26107 * t4873 - 0.2e1 * t26107 * t4888 - 0.2e1 * t4302 * t26116 + 0.2e1 * t881 * t26120;
36580   t122908 = t122867 + t122907;
36581   t122960 = 0.12e2 * t1326 * t23348 * t369 + 0.6e1 * t1125 * t26154 + 0.12e2 * t1125 * t26157 + 0.6e1 * t1125 * t26160 + 0.3e1 * t26140 * t1127 + 0.12e2 * t1336 * t23386 + 0.12e2 * t1336 * t23389 + 0.12e2 * t1336 * t23392 + 0.6e1 * t1336 * t23400 + 0.6e1 * t23368 * t1338 + 0.6e1 * t1357 * t23276 + 0.6e1 * t4855 * t5689 + 0.12e2 * t5680 * t4861 + 0.6e1 * t5680 * t4864 + 0.6e1 * t4912 * t5652 + 0.3e1 * t4912 * t5655 + 0.3e1 * t5648 * t4921;
36582   t123006 = 0.12e2 * t4855 * t5686 + 0.6e1 * t369 * t26127 * t928 + 0.3e1 * t23264 * t1359 + 0.6e1 * t5648 * t4918 + 0.3e1 * t369 * t97 * t122831 + params->d * t122908 * t370 + 0.6e1 * t369 * t4900 * t5634 + 0.6e1 * t369 * t1350 * t23224 + 0.12e2 * t1336 * t23397 + 0.12e2 * t369 * t5668 * t4830 + 0.6e1 * t369 * t5622 * t4887 + 0.12e2 * t1357 * t23279 + 0.6e1 * t1357 * t23284 + 0.6e1 * t369 * t4896 * t5634 + 0.3e1 * t1125 * t26163 + 0.3e1 * t1357 * t23287 + 0.12e2 * t369 * t23352 * t1326 + 0.12e2 * t369 * t5671 * t4830;
36583   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36584     v4rhotau3[5] = t122160 + t7 * t122908 * t372 + t26132 * t1130 + t122265 + 0.2e1 * t23360 * t1341 + 0.2e1 * t5676 * t4867 + t122270 + t4908 * t5658 + t1355 * t23290 + t122273 + t23256 * t1362 + t5644 * t4924 + t122277 + 0.2e1 * t4851 * t5692 + 0.2e1 * t1334 * t23403 + t122282 + t1123 * t26166 + t872 * (t122960 + t123006);
36585 
36586   t123041 = 0.2e1 * t227 * t4830 * t5706 * t81 - 0.2e1 * t1110 * t26175 * t449 + 0.4e1 * t17618 * t5665 * t81 + 0.4e1 * t17710 * t5665 * t81 + 0.4e1 * t23324 * t4781 * t81 - 0.4e1 * t120510 * t5666 - 0.4e1 * t23107 * t23306 - 0.2e1 * t5660 * t23433 - 0.2e1 * t2442 * t26176 - 0.2e1 * t4302 * t26176 + 0.4e1 * t881 * t26179 + 0.2e1 * t881 * t26183 - 0.4e1 * t98078 * t5666;
36587   t123084 = my_piecewise3(t95, 0, t122385 + 0.3e1 * t122387 * t122388 * t23309 + 0.5e1 / 0.2e1 * t17133 * t98005 * t4700 - 0.5e1 / 0.2e1 * t122393 * t122394 * t23316 - 0.5e1 / 0.4e1 * t122393 * t122388 * t888);
36588   t123094 = 0.2e1 * t123084 * t227 * t81 * t96 + 0.2e1 * t1326 * t227 * t23432 * t81 + 0.2e1 * t227 * t26175 * t81 * t928 + 0.2e1 * t1037 * t26182 * t81 + 0.2e1 * t1037 * t26186 * t81 - 0.8e1 * t122417 * t4720 * t912 - 0.2e1 * t123084 * t363 * t449 - 0.8e1 * t23023 * t23449 - 0.4e1 * t23107 * t23325 - 0.2e1 * t23292 * t5707 - 0.2e1 * t23295 * t5707 - 0.16e2 * t97129 * t23345 - 0.2e1 * t5660 * t23416 + 0.2e1 * t881 * t26187;
36589   t123095 = t123041 + t123094;
36590   t123150 = 0.3e1 * t123084 * t369 * t97 + t123095 * t370 * params->d + 0.6e1 * t369 * t4830 * t5694 + 0.12e2 * t369 * t4896 * t5665 + 0.12e2 * t369 * t4900 * t5665 + 0.6e1 * t1125 * t26211 + 0.3e1 * t1125 * t26222 + 0.3e1 * t26199 * t1127 + 0.12e2 * t1336 * t23487 + 0.12e2 * t1357 * t23386 + 0.12e2 * t1357 * t23389 + 0.12e2 * t1357 * t23392 + 0.12e2 * t1357 * t23397 + 0.6e1 * t1357 * t23400 + 0.3e1 * t4855 * t5727 + 0.12e2 * t4912 * t5686 + 0.6e1 * t5680 * t4921;
36591   t123193 = 0.12e2 * t369 * t1350 * t23324 + 0.6e1 * t23368 * t1359 + 0.3e1 * t1336 * t23495 + 0.6e1 * t1336 * t23484 + 0.6e1 * t4855 * t5724 + 0.12e2 * t1125 * t26214 + 0.3e1 * t23472 * t1338 + 0.6e1 * t1336 * t23492 + 0.6e1 * t4912 * t5689 + 0.3e1 * t5720 * t4864 + 0.6e1 * t1125 * t26219 + 0.6e1 * t369 * t26186 * t928 + 0.12e2 * t369 * t5668 * t4887 + 0.6e1 * t369 * t23452 * t1326 + 0.6e1 * t369 * t23456 * t1326 + 0.6e1 * t369 * t5711 * t4830 + 0.12e2 * t5680 * t4918 + 0.6e1 * t5720 * t4861;
36592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36593     v4rhotau3[6] = t122368 + t7 * t123095 * t372 + t26191 * t1130 + t122468 + t23464 * t1341 + t5716 * t4867 + t122472 + 0.2e1 * t23360 * t1362 + 0.2e1 * t5676 * t4924 + t122478 + 0.2e1 * t4908 * t5692 + 0.2e1 * t1355 * t23403 + t122483 + t4851 * t5730 + t1334 * t23498 + t122486 + t1123 * t26225 + t872 * (t123150 + t123193);
36594 
36595   t123223 = my_piecewise3(t95, 0, t122589 + 0.3e1 * t64949 * t122590 * t923 + 0.15e2 / 0.4e1 * t58 * t5751 / t1080 * t26232 - 0.15e2 / 0.4e1 * t17133 * t122594 * t897);
36596   t123256 = -0.6e1 * t98078 * t5707 - 0.6e1 * t120510 * t5707 - 0.6e1 * t23107 * t23416 - 0.6e1 * t23107 * t23433 - 0.2e1 * t2442 * t26237 - 0.2e1 * t4302 * t26237 - 0.2e1 * t449 * t1110 * t26236 - 0.2e1 * t449 * t363 * t123223 + 0.6e1 * t881 * t26240 - 0.24e2 * t97129 * t23449 + 0.6e1 * t81 * t17618 * t5706 + 0.6e1 * t81 * t17710 * t5706 + 0.6e1 * t81 * t4781 * t23432 + 0.2e1 * t881 * t26244 - 0.8e1 * t4720 * t122618 * t912 + 0.2e1 * t81 * t928 * t26236 * t227 + 0.2e1 * t81 * t96 * t123223 * t227 + 0.2e1 * t81 * t26243 * t1037;
36597   t123315 = params->d * t123256 * t370 + 0.3e1 * t26254 * t1127 + 0.9e1 * t23472 * t1359 + 0.18e2 * t5720 * t4918 + 0.9e1 * t5720 * t4921 + 0.18e2 * t4912 * t5724 + 0.18e2 * t1357 * t23484 + 0.36e2 * t1357 * t23487 + 0.9e1 * t4912 * t5727 + 0.18e2 * t1357 * t23492 + 0.9e1 * t1357 * t23495 + 0.6e1 * t1125 * t26262 + 0.18e2 * t369 * t5694 * t4887 + 0.18e2 * t1125 * t26265 + 0.18e2 * t369 * t4896 * t5706 + 0.18e2 * t369 * t4900 * t5706 + 0.18e2 * t369 * t1350 * t23432 + 0.3e1 * t1125 * t26268 + 0.6e1 * t369 * t26243 * t928 + 0.3e1 * t369 * t97 * t123223;
36598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36599     v4rhotau3[7] = t123256 * t372 * t7 + t1123 * t26271 + t26248 * t1130 + t872 * t123315 + 0.3e1 * t1355 * t23498 + 0.3e1 * t23464 * t1362 + 0.3e1 * t4908 * t5730 + 0.3e1 * t5716 * t4924 + t122572 + t122638 + t122644 + t122649;
36600 
36601   t123318 = t1204 * t1144 * t4954;
36602   t123319 = t3788 * t123318;
36603   t123322 = t1204 * t99112 * t1143;
36604   t123323 = t3788 * t123322;
36605   t123325 = t4926 * t4926;
36606   t123326 = t4927 * t4927;
36607   t123330 = t4933 * t4933;
36608   t123331 = t123330 * t97;
36609   t123334 = t123331 * t363 * t61 * t65;
36610   t123337 = t5044 * t23656;
36611   t123338 = t18055 * t123337;
36612   t123340 = t5044 * t23660;
36613   t123341 = t18055 * t123340;
36614   t123344 = t1204 * t18210 * t4954;
36615   t123345 = t3788 * t123344;
36616   t123347 = t97 * t123325;
36617   t123348 = t26389 * t123347;
36618   t123351 = t123330 * t61 * t65;
36619   t123355 = t23509 * t1143;
36620   t123357 = t99471 * t99465 * t123355;
36621   t123360 = t1397 * t4947 * t4926;
36622   t123361 = t123360 * t5045;
36623   t123363 = t5044 * t4954;
36624   t123365 = t18368 * t5043 * t123363;
36625   t123367 = t24051 * t23638;
36626   t123370 = t4954 * t4954;
36627   t123372 = 0.6e1 * t81 * t123370;
36628   t123373 = 0.8e1 * t23641;
36629   t123377 = t23510 * t18205;
36630   t123380 = t5060 * t23615;
36631   t123384 = 0.4e1 * t1214 * t23553 * t3923;
36632   t123385 = t5097 * t23623;
36633   t123389 = 0.6e1 * t82 * t123370 * t363;
36634   t123390 = t4948 * t5039;
36635   t123394 = t4932 * t4933 * t4947 * t363;
36636   t123395 = t4929 * t123394;
36637   t123398 = t4932 * t4934 * t5039;
36638   t123401 = 0.4e1 * t123319 + 0.4e1 * t123323 - 0.35e2 / 0.4608e4 * t26389 * t123325 * t123326 * t23508 * t123334 - 0.5e1 / 0.6e1 * t123338 - 0.5e1 / 0.12e2 * t123341 + 0.4e1 * t123345 + (0.35e2 / 0.4608e4 * t123348 * t123326 * t23508 * t123351 - 0.5e1 / 0.24e2 * t123357 + 0.5e1 / 0.12e2 * t123361 + 0.5e1 / 0.12e2 * t123365 - 0.4e1 * t123367 - 0.4e1 / 0.3e1 * t23639 + t123372 + t123373 + t5056) * t227 + 0.4e1 / 0.3e1 * t23662 + 0.5e1 / 0.48e2 * t23507 * t123377 - 0.12e2 * t123380 - t123384 - t4957 - 0.24e2 * t123385 - t123389 - 0.12e2 * t123390 - 0.5e1 / 0.12e2 * t123395 - 0.5e1 / 0.24e2 * t4929 * t123398;
36639   t123402 = t23532 * t23535;
36640   t123403 = t123402 * t23537;
36641   t123407 = t123403 * t68880 * t2746 * t68861 * t5007;
36642   t123408 = 0.3e1 / 0.128e3 * t123407;
36643   t123411 = 0.1e1 / t54 / t6436;
36644   t123417 = 0.1e1 / t100 / t99;
36645   t123418 = t123417 * t102;
36646   t123421 = t123402 * t23537 * t1887 * t123411 * t130 * t28077 * t114 * t123418 * t736;
36647   t123423 = t5007 * t5007;
36648   t123426 = t23538 * t1887;
36649   t123429 = t23532 * params->beta;
36650   t123430 = t123429 * t214;
36651   t123432 = 0.1e1 / t23534 / t167;
36652   t123433 = t123430 * t123432;
36653   t123434 = t23537 * t62;
36654   t123435 = t123434 * t28634;
36655   t123440 = t123434 * t6345;
36656   t123442 = t123433 * t123440 * t6259;
36657   t123446 = t123442 * t5007 * t202 * t203 * t23548;
36658   t123447 = 0.3e1 / 0.128e3 * t123446;
36659   t123456 = t123433 * t123434 * t2059 * t6259 * t123411 * t130 * t28077 * t114 * t123417 * t102;
36660   t123460 = t175 * (t123408 - t123421 / 0.49152e5 - 0.24e2 * t23532 * t123423 * t23535 * t123426 + 0.24e2 * t123433 * t123435 * t6259 * t123423 - t123447 + t123456 / 0.49152e5) * t748;
36661   t123461 = t1214 * t123460;
36662   t123462 = 0.8e1 * t23618;
36663   t123473 = 0.1e1 / t28 / t6906 / t26;
36664   t123477 = t123418 * t468;
36665   t123482 = t4967 * t4967;
36666   t123489 = t123429 * t282 * t123432;
36667   t123505 = t102 * t468;
36668   t123520 = t4992 * t4992;
36669   t123524 = t4995 * t4995;
36670   t123536 = t5025 * t5025;
36671   t123538 = t175 * t123536 * t2093;
36672   t123541 = t5029 * t5029;
36673   t123543 = t175 * t123541 * t28769;
36674   t123546 = -0.4e1 * t1190 * t2849 * t99411 + 0.12e2 * t2849 * t5029 * t69373 + t169 * t123460 - 0.3e1 * t169 * t123538 - 0.6e1 * t169 * t123543;
36675   t123547 = my_piecewise3(t296, t169 * (0.3e1 / 0.64e2 * t123403 * t18296 * t61 * t533 * t474 * t1734 * t4967 - t123403 * t1668 * t123473 * t114 * t123477 * t1582 * t570 / 0.24576e5 - 0.24e2 * t23532 * t123482 * t23535 * t23571 * t1668 + 0.24e2 * t123489 * t123434 * t27558 * t6817 * t123482 - 0.3e1 / 0.64e2 * t123489 * t123434 * t7024 * t74445 * t4989 + t123489 * t123434 * t1734 * t6817 * t123473 * t114 * t123417 * t123505 * t1582 / 0.24576e5) * t581 / 0.2e1 - 0.2e1 * t169 * t99301 * t1169 + 0.6e1 * t169 * t69335 * t4995 - 0.3e1 / 0.2e1 * t169 * t123520 * t1763 - 0.3e1 * t169 * t123524 * t27681, t123546);
36676   t123549 = my_piecewise3(t359, 0, t123546);
36677   t123550 = t123549 * t46;
36678   t123555 = t449 * t5039 * t4954;
36679   t123558 = t449 * t23607 * t1143;
36680   t123560 = t23510 * t4939;
36681   t123561 = t23507 * t123560;
36682   t123563 = t5060 * t23554;
36683   t123565 = t5060 * t23598;
36684   t123569 = 0.12e2 * t1214 * t5026 * t18345;
36685   t123571 = t66 * t23652 * t1199;
36686   t123572 = t1135 * t123571;
36687   t123575 = t66 * t1136 * t23607;
36688   t123579 = 0.6e1 * t1214 * t123543;
36689   t123580 = t23515 * t5031;
36690   t123583 = 0.3e1 * t1214 * t123538;
36691   t123585 = t23643 * t167 * t168;
36692   t123586 = t123585 * t1192;
36693   t123588 = t23515 * t5027;
36694   t123590 = t123461 - t123462 - 0.8e1 * t23624 - t98 * (t123547 * t34 / 0.2e1 + t123550 / 0.2e1) - 0.12e2 * t123555 - 0.8e1 * t123558 + 0.5e1 / 0.24e2 * t123561 + 0.4e1 * t123563 + 0.8e1 * t123565 + t123569 + 0.4e1 * t123572 + 0.2e1 / 0.3e1 * t1135 * t123575 - t123579 - 0.6e1 * t123580 - t123583 + 0.4e1 * t123586 + 0.6e1 * t123588;
36695   t123591 = t123401 + t123590;
36696   t123602 = t23670 * t1221;
36697   t123604 = t5070 * t5074;
36698   t123606 = t5070 * t5077;
36699   t123608 = t1219 * t23678;
36700   t123610 = t1219 * t23681;
36701   t123614 = t369 * t4947 * t4954;
36702   t123615 = 0.36e2 * t123614;
36703   t123618 = 0.18e2 * t369 * t96 * t123370;
36704   t123619 = 0.24e2 * t23682;
36705   t123620 = t123591 * t370 * params->d + 0.12e2 * t123602 + 0.36e2 * t123604 + 0.18e2 * t123606 + 0.24e2 * t123608 + 0.72e2 * t123610 + t123615 + t123618 + t123619 + 0.12e2 * t23676 + t5079;
36706   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36707     v4sigma4[0] = t123591 * t372 * t7 + 0.4e1 * t1217 * t23684 + 0.4e1 * t23664 * t1224 + t872 * t123620 + 0.6e1 * t5066 * t5080;
36708 
36709   t123622 = t4026 * t123318;
36710   t123623 = 0.2e1 * t123622;
36711   t123625 = t5044 * t99150 * t1133;
36712   t123626 = t5084 * t123625;
36713   t123628 = t5044 * t23737;
36714   t123629 = t18055 * t123628;
36715   t123632 = t100379 * t100364 * t1143;
36716   t123633 = t99743 * t123632;
36717   t123635 = 0.2e1 * t123319;
36718   t123636 = 0.5e1 / 0.24e2 * t123341;
36719   t123637 = 0.2e1 * t123345;
36720   t123639 = t1204 * t99779 * t1143;
36721   t123640 = t3788 * t123639;
36722   t123643 = t5044 * t99107 * t1133;
36723   t123647 = t1214 * t1244 * t99411;
36724   t123649 = t18560 * t100004 * t1143;
36725   t123650 = t5084 * t123649;
36726   t123652 = t5060 * t23809;
36727   t123654 = t23515 * t5159;
36728   t123656 = t5060 * t23745;
36729   t123660 = 0.3e1 * t1214 * t5124 * t18335;
36730   t123661 = -t123623 + 0.5e1 / 0.12e2 * t123626 - 0.5e1 / 0.24e2 * t123629 - 0.5e1 / 0.16e2 * t123633 + t123635 - t123636 + t123637 + 0.2e1 * t123640 + 0.5e1 / 0.24e2 * t5084 * t123643 - t123647 + 0.5e1 / 0.6e1 * t123650 - 0.6e1 * t123652 - 0.3e1 * t123654 - 0.3e1 * t123656 - t123660 + t23662;
36731   t123663 = t1204 * t4955 * t1231;
36732   t123664 = t3788 * t123663;
36733   t123665 = t5060 * t23840;
36734   t123668 = 0.3e1 * t5155 * t23615;
36735   t123670 = t13542 * t5025 * t1190;
36736   t123672 = 0.6e1 * t14484 * t123670;
36737   t123674 = t1204 * t18732 * t4954;
36738   t123675 = t3788 * t123674;
36739   t123679 = t123331 * t363;
36740   t123681 = t23505 * t61 * t65;
36741   t123682 = t123679 * t123681;
36742   t123685 = 0.12e2 * t123385;
36743   t123687 = t23776 * t167 * t168;
36744   t123688 = t123687 * t1192;
36745   t123690 = t23835 * t5027;
36746   t123694 = t23532 * t1237 * t23535;
36747   t123698 = t123694 * t23544 * t23549;
36748   t123701 = t123430 * t123432 * t123434;
36749   t123702 = t28634 * t6259;
36750   t123709 = t123433 * t123440 * t54025 * t23549;
36751   t123714 = t175 * (t123408 - t123421 / 0.24576e5 - 0.24e2 * t123694 * t23540 + 0.3e1 / 0.256e3 * t123698 + 0.24e2 * t123701 * t123702 * t1237 * t23527 - t123447 - 0.3e1 / 0.256e3 * t123709 + t123456 / 0.24576e5) * t748;
36752   t123732 = -0.3e1 * t100422 * t1190 * t2849 - 0.3e1 * t18617 * t2849 * t5025 - t23552 * t2849 * t4079 - 0.6e1 * t23596 * t2849 * t49014 + 0.6e1 * t2849 * t5029 * t70710 + 0.6e1 * t2849 * t123670 + t169 * t123714;
36753   t123733 = my_piecewise3(t296, 0, t123732);
36754   t123735 = my_piecewise3(t359, 0, t123732);
36755   t123739 = t98 * (t123733 * t34 / 0.2e1 + t123735 * t46 / 0.2e1);
36756   t123741 = 0.6e1 * t4948 * t5135;
36757   t123743 = 0.2e1 * t5155 * t23598;
36758   t123746 = 0.3e1 * t1214 * t23708 * t3923;
36759   t123747 = t123664 + 0.6e1 * t123665 - t123668 + t123672 + t123675 + 0.35e2 / 0.2304e4 * t26389 * t123325 * t57 * t23508 * t123682 - t4957 - t123685 + 0.3e1 * t123688 + 0.3e1 * t123690 - t123739 - t123741 - t123389 + t123743 - t123746 - t23619 - t23625;
36760   t123750 = t66 * t23652 * t1252;
36761   t123751 = t1135 * t123750;
36762   t123755 = t4932 * t4934 * t5135;
36763   t123756 = t4929 * t123755;
36764   t123759 = t23510 * t18205 * t4927;
36765   t123762 = t1227 * t123571;
36766   t123764 = t23510 * t5093;
36767   t123767 = 0.6e1 * t123555;
36768   t123768 = t5060 * t23709;
36769   t123770 = t1214 * t123714;
36770   t123773 = 0.6e1 * t1214 * t1244 * t99431;
36771   t123774 = t5044 * t23733;
36772   t123775 = t18055 * t123774;
36773   t123777 = t5044 * t23799;
36774   t123780 = t4026 * t123322;
36775   t123782 = t4026 * t123344;
36776   t123783 = 0.2e1 * t123782;
36777   t123785 = t1204 * t4951 * t1231;
36778   t123786 = t3788 * t123785;
36779   t123789 = t1204 * t99112 * t1231;
36780   t123791 = t123751 - t1227 * t123575 / 0.3e1 - 0.5e1 / 0.48e2 * t123756 - 0.5e1 / 0.32e2 * t23791 * t123759 - 0.2e1 * t123762 + 0.5e1 / 0.96e2 * t23507 * t123764 - t123767 + 0.3e1 * t123768 + t123770 - t23806 - t123773 - 0.5e1 / 0.24e2 * t123775 - 0.5e1 / 0.24e2 * t18055 * t123777 - 0.2e1 * t123780 - t123783 + 0.2e1 * t123786 + t3788 * t123789;
36781   t123792 = t23835 * t5031;
36782   t123796 = 0.6e1 * t1214 * t5124 * t18345;
36783   t123799 = 0.6e1 * t449 * t23725 * t1143;
36784   t123800 = t5097 * t23814;
36785   t123805 = t5097 * t23820;
36786   t123806 = 0.6e1 * t123805;
36787   t123808 = t449 * t5135 * t4954;
36788   t123809 = 0.6e1 * t123808;
36789   t123810 = t23823 * t5100;
36790   t123811 = 0.6e1 * t123810;
36791   t123812 = t5155 * t23554;
36792   t123814 = t23515 * t5125;
36793   t123817 = t18560 * t4955 * t1133;
36794   t123818 = t5084 * t123817;
36795   t123819 = 0.5e1 / 0.12e2 * t123818;
36796   t123821 = t66 * t1136 * t23725;
36797   t123822 = t1135 * t123821;
36798   t123824 = t24051 * t23760;
36799   t123825 = 0.2e1 * t123824;
36800   t123827 = t1397 * t5149 * t23765;
36801   t123830 = t400 * t23772 * t5146;
36802   t123831 = t23750 * t1143;
36803   t123833 = t99471 * t23749 * t123831;
36804   t123837 = t23508 * t123330;
36805   t123838 = t123837 * t123681;
36806   t123841 = t123360 * t5139;
36807   t123844 = t4932 * t18774 * t4954;
36808   t123845 = t18823 * t123844;
36809   t123846 = 0.5e1 / 0.12e2 * t123845;
36810   t123847 = 0.5e1 / 0.24e2 * t123365;
36811   t123848 = 0.2e1 * t123367;
36812   t123852 = t123825 + 0.5e1 / 0.24e2 * t123827 - t123830 + 0.5e1 / 0.16e2 * t123833 - t23639 + t5056 + t23762 + t123372 - 0.35e2 / 0.2304e4 * t26389 * t123347 * t57 * t123838 - 0.5e1 / 0.12e2 * t123841 - t123846 + t23774 + t123847 - t123848 + t23642 - 0.5e1 / 0.96e2 * t6453 * t1258 * t23627;
36813   t123854 = t23510 * t18727;
36814   t123857 = -0.3e1 * t123792 - t23822 - t23825 + t123796 - t123799 - 0.6e1 * t123800 - 0.2e1 * t449 * t23607 * t1231 - t123806 - t123809 - t123811 + t123812 + t123585 * t1245 + 0.3e1 * t123814 + t123819 + t123822 / 0.2e1 + t123852 * t227 + 0.5e1 / 0.192e3 * t23507 * t123854;
36815   t123859 = t123661 + t123747 + t123791 + t123857;
36816   t123872 = t5070 * t5172;
36817   t123874 = t1219 * t23866;
36818   t123876 = t1219 * t23870;
36819   t123877 = 0.18e2 * t123876;
36820   t123879 = t369 * t5149 * t4954;
36821   t123880 = 0.18e2 * t123879;
36822   t123881 = 0.36e2 * t123610;
36823   t123883 = 0.6e1 * t1267 * t23678;
36824   t123888 = t5166 * t5074;
36825   t123890 = t5166 * t5077;
36826   t123891 = 0.9e1 * t123890;
36827   t123892 = 0.18e2 * t123614;
36828   t123893 = t23853 * t1221;
36829   t123895 = 0.9e1 * t123606;
36830   t123896 = t1267 * t23681;
36831   t123897 = 0.18e2 * t123896;
36832   t123898 = t123859 * t370 * params->d + 0.3e1 * t23670 * t1269 + t123618 + 0.18e2 * t123872 + 0.18e2 * t123874 + t123877 + t123880 + t123881 + t123883 + 0.18e2 * t123888 + t123891 + t123892 + 0.9e1 * t123893 + t123895 + t123897 + t23677 + t23683 + t23860 + t23872 + t5079;
36833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36834     v4sigma4[1] = t123859 * t372 * t7 + 0.3e1 * t1217 * t23873 + 0.3e1 * t23845 * t1224 + t872 * t123898 + t1265 * t23684 + t23664 * t1272 + 0.3e1 * t5066 * t5175 + 0.3e1 * t5162 * t5080;
36835 
36836   t123900 = t4173 * t123322;
36837   t123901 = t4173 * t123344;
36838   t123903 = t1204 * t100610 * t1143;
36839   t123904 = t3788 * t123903;
36840   t123907 = t1204 * t18923 * t4954;
36841   t123908 = t3788 * t123907;
36842   t123909 = t5044 * t23882;
36843   t123910 = t18055 * t123909;
36844   t123914 = t4173 * t123318;
36845   t123915 = t5179 * t123625;
36846   t123916 = 0.5e1 / 0.24e2 * t123915;
36847   t123917 = t24147 * t123632;
36848   t123921 = t123900 + t123901 + 0.2e1 * t123904 + t123908 - 0.5e1 / 0.24e2 * t123910 - 0.5e1 / 0.48e2 * t5179 * t123643 + t123914 - t123916 + 0.5e1 / 0.32e2 * t123917 + 0.3e1 * t123319 + t123323 - 0.5e1 / 0.24e2 * t123338 - t123636 + t123637 + t23880;
36849   t123922 = t5179 * t123817;
36850   t123923 = 0.5e1 / 0.24e2 * t123922;
36851   t123924 = my_piecewise3(t296, 0, t123546);
36852   t123925 = t123924 * t34;
36853   t123928 = t98 * (t123925 / 0.2e1 + t123550 / 0.2e1);
36854   t123930 = t5179 * t123649;
36855   t123934 = t26389 * t123325 * t1275 * t23508;
36856   t123938 = t23901 * t167 * t168;
36857   t123939 = t123938 * t1192;
36858   t123941 = t4948 * t5198;
36859   t123942 = 0.6e1 * t123941;
36860   t123944 = t66 * t23652 * t1307;
36861   t123945 = t1135 * t123944;
36862   t123947 = t4932 * t4934 * t5198;
36863   t123951 = t26389 * t123347 * t1275;
36864   t123955 = t99471 * t23888 * t123831;
36865   t123957 = t123360 * t5201;
36866   t123958 = 0.5e1 / 0.24e2 * t123957;
36867   t123959 = t19027 * t123844;
36868   t123960 = 0.5e1 / 0.24e2 * t123959;
36869   t123961 = t24051 * t23896;
36870   t123965 = 0.35e2 / 0.4608e4 * t123951 * t123838 - 0.5e1 / 0.32e2 * t123955 + t123958 + t123960 - t123961 - t23898 - 0.5e1 / 0.96e2 * t123357 + 0.5e1 / 0.24e2 * t123361 + t123847 - 0.3e1 * t123367 - t23639 + t123372 + t123373 + t5056;
36871   t123968 = t23662 - t123923 - t123928 - 0.9e1 * t123380 - t123384 - 0.5e1 / 0.12e2 * t123930 - 0.35e2 / 0.4608e4 * t123934 * t123682 + 0.3e1 * t123939 - t123942 + t123945 - 0.5e1 / 0.48e2 * t4929 * t123947 - t4957 + t123965 * t227 - 0.18e2 * t123385 - t23910;
36872   t123973 = t5097 * t23908;
36873   t123976 = t449 * t23916 * t1143;
36874   t123977 = 0.6e1 * t123976;
36875   t123979 = t449 * t5198 * t4954;
36876   t123980 = 0.6e1 * t123979;
36877   t123982 = t23929 * t5031;
36878   t123983 = 0.3e1 * t123982;
36879   t123984 = t23929 * t5027;
36880   t123985 = 0.3e1 * t123984;
36881   t123986 = t5211 * t23554;
36882   t123987 = -t123389 - 0.6e1 * t123390 - 0.5e1 / 0.24e2 * t123395 + t123461 - t123462 - t23625 - t123767 - 0.2e1 * t123558 - 0.6e1 * t123973 - t123977 - t123980 + 0.5e1 / 0.96e2 * t123561 - t123983 + t123985 + t123986;
36883   t123988 = t1277 * t123571;
36884   t123995 = t5211 * t23598;
36885   t123998 = t23510 * t18918;
36886   t124001 = t5211 * t23615;
36887   t124005 = t66 * t1136 * t23916;
36888   t124006 = t1135 * t124005;
36889   t124009 = t123988 + t1277 * t123575 / 0.6e1 + 0.5e1 / 0.64e2 * t23919 * t123759 + 0.3e1 * t123563 + 0.6e1 * t123565 + 0.2e1 * t123995 + t123569 + 0.2e1 * t123572 + 0.5e1 / 0.192e3 * t23507 * t123998 - 0.3e1 * t124001 - t123579 - 0.3e1 * t123580 - t123583 + t124006 / 0.2e1 + t123586 + 0.3e1 * t123588;
36890   t124011 = t123921 + t123968 + t123987 + t124009;
36891   t124024 = t5218 * t5074;
36892   t124025 = 0.18e2 * t124024;
36893   t124026 = t1318 * t23681;
36894   t124032 = t5218 * t5077;
36895   t124033 = 0.9e1 * t124032;
36896   t124034 = t1318 * t23678;
36897   t124036 = t23955 * t1221;
36898   t124040 = t124011 * t370 * params->d + 0.3e1 * t123602 + 0.18e2 * t123604 + 0.18e2 * t123608 + 0.54e2 * t123610 + t123615 + t123618 + t123619 + t123895 + t124025 + 0.18e2 * t124026 + t124033 + 0.6e1 * t124034 + 0.9e1 * t124036 + t23677 + t23962 + t5079;
36899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
36900     v4sigma4[2] = t124011 * t372 * t7 + 0.3e1 * t1217 * t23965 + 0.3e1 * t23947 * t1224 + t872 * t124040 + t1316 * t23684 + t23664 * t1320 + 0.3e1 * t5066 * t5223 + 0.3e1 * t5214 * t5080;
36901 
36902   t124042 = t5044 * t23967;
36903   t124046 = t100379 * t1232 * t4927;
36904   t124049 = t4026 * t123674;
36905   t124050 = 0.4e1 / 0.3e1 * t124049;
36906   t124051 = t19122 * t123337;
36907   t124053 = t19122 * t123340;
36908   t124054 = 0.5e1 / 0.18e2 * t124053;
36909   t124055 = t100379 * t23826;
36910   t124056 = t101204 * t124055;
36911   t124059 = t1204 * t101096 * t1143;
36912   t124060 = t3788 * t124059;
36913   t124062 = 0.8e1 / 0.3e1 * t123622;
36914   t124064 = t5044 * t99774 * t1133;
36915   t124065 = t5084 * t124064;
36916   t124067 = 0.2e1 / 0.3e1 * t123319;
36917   t124068 = 0.5e1 / 0.72e2 * t123341;
36918   t124069 = 0.2e1 / 0.3e1 * t123345;
36919   t124071 = 0.8e1 / 0.3e1 * t4026 * t123639;
36920   t124072 = t4026 * t123663;
36921   t124073 = 0.4e1 / 0.3e1 * t124072;
36922   t124074 = t4026 * t123785;
36923   t124079 = t1204 * t5107 * t1231;
36924   t124080 = t3788 * t124079;
36925   t124083 = t24065 * t5031;
36926   t124084 = -0.5e1 / 0.36e2 * t18055 * t124042 - 0.5e1 / 0.24e2 * t99743 * t124046 - t124050 - 0.5e1 / 0.9e1 * t124051 - t124054 + 0.5e1 / 0.12e2 * t124056 + 0.2e1 / 0.3e1 * t124060 - t124062 + 0.5e1 / 0.18e2 * t124065 + t124067 - t124068 + t124069 - t124071 + t23729 - t124073 - 0.8e1 / 0.3e1 * t124074 - 0.4e1 / 0.3e1 * t4026 * t123789 + 0.4e1 / 0.3e1 * t124080 + 0.4e1 / 0.3e1 * t123664 - t124083;
36927   t124085 = t5123 * t5123;
36928   t124087 = t175 * t124085 * t2093;
36929   t124089 = 0.2e1 * t1214 * t124087;
36930   t124094 = t4927 * t61 * t65;
36931   t124095 = t123679 * t124094;
36932   t124101 = t23835 * t5125;
36933   t124104 = 0.2e1 * t5155 * t23709;
36934   t124106 = t23510 * t18727 * t4927;
36935   t124110 = t1204 * t99779 * t1231;
36936   t124111 = t3788 * t124110;
36937   t124114 = t66 * t1136 * t24022;
36938   t124115 = t1135 * t124114;
36939   t124120 = 0.4e1 * t449 * t24022 * t1143;
36940   t124122 = t449 * t5267 * t4954;
36941   t124123 = 0.2e1 * t124122;
36942   t124124 = 0.4e1 * t123385;
36943   t124127 = t23835 * t5159;
36944   t124131 = 0.2e1 * t1214 * t5258 * t69373;
36945   t124133 = 0.2e1 * t5155 * t23745;
36946   t124136 = 0.2e1 * t1214 * t24005 * t3923;
36947   t124138 = 0.2e1 / 0.3e1 * t1227 * t123821;
36948   t124140 = t66 * t24073 * t1199;
36949   t124143 = -t124120 - t124123 - t124124 + 0.2e1 * t123687 * t1245 - 0.4e1 * t124127 + t124131 - t124133 - t123389 - t124136 - t124138 + 0.2e1 / 0.3e1 * t1135 * t124140;
36950   t124148 = 0.2e1 * t1214 * t5254 * t18345;
36951   t124150 = t18560 * t5107 * t1133;
36952   t124151 = t5084 * t124150;
36953   t124157 = t23532 * t5243 * t23535;
36954   t124162 = t124157 * t23544 * t211;
36955   t124172 = t123442 * t5243 * t202 * t203 * t23548;
36956   t124178 = t175 * (t123407 / 0.64e2 - t123421 / 0.12288e5 + t123698 / 0.32e2 - 0.24e2 * t124157 * t23538 * t68726 + t124162 / 0.256e3 + 0.24e2 * t123701 * t123702 * t5243 * t5007 - t123709 / 0.32e2 - t124172 / 0.256e3 + t123456 / 0.12288e5 - t123446 / 0.64e2) * t748;
36957   t124191 = t13542 * t5123 * t1190;
36958   t124203 = -0.2e1 * t101432 * t1190 * t2849 - t19276 * t2849 * t5025 + 0.2e1 * t19286 * t2849 * t5025 - 0.2e1 * t23707 * t2849 * t4079 + 0.2e1 * t2849 * t5029 * t71708 - 0.6e1 * t2849 * t5029 * t71739 - 0.2e1 * t169 * t124087 + t169 * t124178 + 0.8e1 * t2849 * t124191;
36959   t124204 = my_piecewise3(t296, 0, t124203);
36960   t124206 = my_piecewise3(t359, 0, t124203);
36961   t124210 = t98 * (t124204 * t34 / 0.2e1 + t124206 * t46 / 0.2e1);
36962   t124212 = 0.2e1 * t4948 * t5267;
36963   t124213 = t5060 * t24082;
36964   t124216 = 0.4e1 * t5155 * t23840;
36965   t124218 = t4932 * t4934 * t5267;
36966   t124221 = t23510 * t23741;
36967   t124227 = t123837 * t124094;
36968   t124230 = t1143 * t4926;
36969   t124233 = t1397 * t124230 * t57 * t24047;
36970   t124235 = 0.8e1 / 0.3e1 * t123824;
36971   t124238 = t1397 * t5235 * t4926;
36972   t124241 = t24038 * t1143;
36973   t124243 = t99471 * t24037 * t124241;
36974   t124246 = 0.5e1 / 0.18e2 * t123360 * t5270;
36975   t124249 = t18368 * t5269 * t123363;
36976   t124250 = 0.5e1 / 0.18e2 * t124249;
36977   t124251 = t23509 * t1231;
36978   t124252 = t124251 * t4927;
36979   t124257 = t400 * t4954 * t25;
36980   t124258 = t124257 * t5274;
36981   t124259 = 0.4e1 / 0.3e1 * t124258;
36982   t124260 = 0.5e1 / 0.72e2 * t123365;
36983   t124261 = 0.2e1 / 0.3e1 * t123367;
36984   t124262 = 0.35e2 / 0.1152e4 * t26389 * t123347 * t5226 * t124227 - 0.5e1 / 0.9e1 * t124233 + t124235 - 0.4e1 / 0.3e1 * t123830 + 0.5e1 / 0.72e2 * t124238 * t5045 - t23771 + t5056 + t24054 - 0.5e1 / 0.12e2 * t124243 + t124246 + t123372 - 0.5e1 / 0.9e1 * t123845 + t124250 + 0.5e1 / 0.24e2 * t99471 * t23749 * t124252 + t124259 + t24059 + t124260 - t124261 + t23775;
36985   t124266 = 0.5e1 / 0.18e2 * t5228 * t123394;
36986   t124269 = t4932 * t4933 * t5235 * t363;
36987   t124274 = 0.2e1 * t123555;
36988   t124275 = t5060 * t24084;
36989   t124279 = 0.2e1 * t1214 * t1244 * t100422;
36990   t124280 = t1214 * t124178;
36991   t124282 = t124262 * t227 - t23515 * t5259 - t124266 - 0.5e1 / 0.72e2 * t4929 * t124269 - 0.2e1 * t5236 * t5039 - t124274 - 0.4e1 * t124275 - t124279 - t24087 + t124280 - 0.8e1 / 0.3e1 * t123782;
36992   t124285 = t24062 * t167 * t168;
36993   t124286 = t124285 * t1192;
36994   t124288 = t24065 * t5027;
36995   t124289 = t5060 * t23988;
36996   t124291 = t23823 * t5239;
36997   t124292 = 0.4e1 * t124291;
36998   t124294 = 0.8e1 * t5097 * t24088;
36999   t124297 = 0.4e1 * t449 * t23725 * t1231;
37000   t124300 = 0.6e1 * t1214 * t5258 * t69396;
37001   t124301 = t23630 * t23983;
37002   t124302 = t5084 * t124301;
37003   t124306 = t18560 * t5100 * t1133;
37004   t124309 = 0.8e1 * t123805;
37005   t124310 = 0.8e1 * t123808;
37006   t124313 = 0.4e1 / 0.3e1 * t1227 * t123750;
37007   t124315 = 0.4e1 * t5155 * t23809;
37008   t124317 = t5060 * t24006;
37009   t124320 = 0.8e1 * t14484 * t124191;
37010   t124323 = t1214 * t5254 * t18335;
37011   t124324 = 0.5e1 / 0.9e1 * t5084 * t124306 - t124309 - t124310 - 0.8e1 * t123810 - t124313 - t124315 + t23515 * t5255 + 0.2e1 * t124317 + t124320 + 0.5e1 / 0.9e1 * t123818 - t124323;
37012   t124327 = t124324 + 0.5e1 / 0.9e1 * t124302 - t124297 - t124300 - t124292 - t124294 + t124288 + 0.4e1 * t124289 + 0.2e1 * t124286 + t124282 + t124216 - t124212 - 0.2e1 * t124213 - t124210 + 0.5e1 / 0.9e1 * t124151 + t124148 + t124143 + t124115 / 0.3e1 + 0.4e1 / 0.3e1 * t124111 + 0.4e1 * t124101 + t124104 - t124089 + t124084 + 0.4e1 / 0.3e1 * t123675 - 0.5e1 / 0.144e3 * t4929 * t124218 + 0.5e1 / 0.24e2 * t24029 * t124221 - 0.5e1 / 0.36e2 * t5228 * t123398 - 0.5e1 / 0.48e2 * t23791 * t124106 - t24096 - t24097 - t23796 - t23797 - t4957 - 0.35e2 / 0.1152e4 * t26389 * t123325 * t5226 * t23508 * t124095;
37013   t124343 = 0.24e2 * t123879;
37014   t124344 = t24110 * t1221;
37015   t124346 = t1219 * t24121;
37016   t124349 = t369 * t4954 * t5235;
37017   t124350 = 0.6e1 * t124349;
37018   t124351 = 0.12e2 * t123610;
37019   t124353 = 0.6e1 * t123614;
37020   t124355 = 0.6e1 * t5290 * t5074;
37021   t124356 = 0.24e2 * t123876 + t124343 + 0.6e1 * t124344 + 0.12e2 * t124346 + t124350 + t124351 + t123618 + 0.12e2 * t123890 + t124353 + t124355 + t5079 + t23869;
37022   t124362 = 0.12e2 * t1267 * t23866;
37023   t124363 = t1267 * t23870;
37024   t124364 = 0.12e2 * t124363;
37025   t124365 = t5166 * t5172;
37026   t124367 = t5290 * t5077;
37027   t124368 = 0.3e1 * t124367;
37028   t124371 = 0.3e1 * t123606;
37029   t124372 = 0.24e2 * t123896;
37030   t124373 = t124327 * t370 * params->d + 0.6e1 * t23853 * t1269 + 0.6e1 * t5070 * t5294 + t124362 + t124364 + 0.24e2 * t124365 + t124368 + t124371 + t124372 + t23865 + t24118 + t24124;
37031   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37032     v4sigma4[3] = t7 * t124327 * t372 + 0.2e1 * t24102 * t1224 + t5286 * t5080 + 0.2e1 * t23845 * t1272 + 0.4e1 * t5162 * t5175 + 0.2e1 * t1265 * t23873 + t5066 * t5297 + 0.2e1 * t1217 * t24127 + t872 * (t124356 + t124373);
37033 
37034   t124376 = 0.2e1 / 0.3e1 * t123901;
37035   t124377 = 0.2e1 / 0.3e1 * t123908;
37036   t124378 = 0.2e1 / 0.3e1 * t123914;
37037   t124386 = t1204 * t5192 * t1231;
37038   t124388 = 0.2e1 / 0.3e1 * t3788 * t124386;
37039   t124390 = t1204 * t100610 * t1231;
37040   t124393 = t5044 * t24160;
37041   t124399 = t123837 * t57;
37042   t124406 = t124257 * t5316;
37043   t124409 = 0.2e1 / 0.3e1 * t123830;
37044   t124411 = 0.2e1 / 0.3e1 * t123961;
37045   t124412 = t101823 * t1143;
37046   t124415 = 0.5e1 / 0.24e2 * t102080 * t23510 * t124412;
37047   t124416 = t123360 * t5313;
37048   t124420 = t19027 * t4932 * t19430 * t4954;
37049   t124423 = t1397 * t124230 * t1275;
37050   t124425 = 0.5e1 / 0.36e2 * t124423 * t24047;
37051   t124426 = -0.35e2 / 0.2304e4 * t123951 * t124399 * t124094 - 0.5e1 / 0.96e2 * t99471 * t23888 * t124252 - t124406 / 0.3e1 + t123825 + 0.5e1 / 0.72e2 * t123827 - t124409 + 0.5e1 / 0.48e2 * t123833 - t124411 + t124415 - 0.5e1 / 0.36e2 * t124416 - 0.5e1 / 0.36e2 * t124420 + t124425;
37052   t124427 = 0.5e1 / 0.36e2 * t123959;
37053   t124429 = 0.5e1 / 0.18e2 * t123845;
37054   t124431 = -t23771 + t5056 + t23762 + t124427 + t123372 - 0.5e1 / 0.18e2 * t123841 - t124429 + t23774 + t124260 - 0.4e1 / 0.3e1 * t123367 + t23642 - t23898;
37055   t124434 = t124376 + t124377 + t124378 - 0.5e1 / 0.48e2 * t24147 * t24148 * t101853 * t1133 + 0.5e1 / 0.96e2 * t24147 * t124046 + t124388 + 0.2e1 / 0.3e1 * t3788 * t124390 - 0.5e1 / 0.72e2 * t18055 * t124393 - t123623 + 0.5e1 / 0.18e2 * t123626 - 0.5e1 / 0.72e2 * t123629 - 0.5e1 / 0.48e2 * t123633 + (t124426 + t124431) * t227;
37056   t124437 = 0.5e1 / 0.36e2 * t5179 * t124150;
37057   t124440 = t5179 * t18560 * t19359 * t4954;
37058   t124444 = t18560 * t5192 * t1133;
37059   t124446 = 0.5e1 / 0.18e2 * t5084 * t124444;
37060   t124450 = 0.4e1 / 0.3e1 * t123319 - t124068 + t124069 + t23880 - t124437 + 0.5e1 / 0.36e2 * t124440 + 0.4e1 / 0.3e1 * t123640 + t124446 - t123647 + 0.5e1 / 0.18e2 * t123650 - 0.4e1 * t123652 - t123654 - 0.2e1 * t123656 - t123660;
37061   t124453 = 0.4e1 / 0.3e1 * t4026 * t123903;
37062   t124455 = t5044 * t100605 * t1133;
37063   t124458 = t4026 * t123907;
37064   t124460 = 0.2e1 / 0.3e1 * t123664;
37065   t124462 = 0.5e1 / 0.36e2 * t123922;
37066   t124463 = t26389 * t123325;
37067   t124465 = t124463 * t23888 * t123330;
37068   t124469 = t1277 * t123821;
37069   t124471 = 0.2e1 / 0.3e1 * t123675;
37070   t124472 = t5211 * t23709;
37071   t124473 = t23729 - t124453 + 0.5e1 / 0.36e2 * t5084 * t124455 - 0.2e1 / 0.3e1 * t124458 + t124460 + 0.4e1 * t123665 - t123668 - t124462 + t123672 + 0.35e2 / 0.2304e4 * t124465 * t5299 * t124094 + t124469 / 0.6e1 + t124471 + t124472;
37072   t124477 = 0.5e1 / 0.18e2 * t5179 * t18560 * t101853 * t1143;
37073   t124480 = 0.5e1 / 0.24e2 * t24147 * t101836 * t124412;
37074   t124485 = t24189 * t5031;
37075   t124486 = t24189 * t5027;
37076   t124488 = t124477 - t4957 - t124480 - 0.5e1 / 0.36e2 * t5179 * t124306 - 0.8e1 * t123385 + t123688 + 0.2e1 * t123690 - t124485 + t124486 + t123938 * t1245 - t123739 - t123741 - t23910 - t123389;
37077   t124492 = 0.2e1 * t23929 * t5125;
37078   t124493 = t23823 * t5309;
37079   t124496 = 0.4e1 * t5097 * t24203;
37080   t124499 = 0.2e1 * t449 * t23916 * t1231;
37081   t124501 = t23510 * t18918 * t4927;
37082   t124504 = t1277 * t123750;
37083   t124507 = t1227 * t124005 / 0.3e1;
37084   t124510 = t1227 * t123944;
37085   t124513 = 0.2e1 * t23929 * t5159;
37086   t124514 = t124492 - 0.2e1 * t124493 - t124496 - t124499 + t123743 - 0.5e1 / 0.96e2 * t23791 * t124501 + t124504 / 0.3e1 - t124507 + 0.5e1 / 0.192e3 * t23919 * t124106 - 0.2e1 / 0.3e1 * t124510 - t124513 - t123746 - t23619;
37087   t124518 = t4173 * t123639;
37088   t124520 = t4173 * t123674;
37089   t124523 = 0.5e1 / 0.72e2 * t5179 * t124064;
37090   t124532 = t5179 * t5044 * t99150 * t57;
37091   t124534 = t4173 * t123663;
37092   t124537 = 0.2e1 / 0.3e1 * t4173 * t123785;
37093   t124538 = t5211 * t23745;
37094   t124539 = -t23797 + 0.2e1 / 0.3e1 * t123751 - 0.5e1 / 0.144e3 * t123756 - 0.4e1 / 0.3e1 * t123762 + 0.2e1 / 0.3e1 * t124518 + t124520 / 0.3e1 - t124523 + t4173 * t123789 / 0.3e1 + 0.5e1 / 0.72e2 * t5179 * t5044 * t99107 * t57 + 0.5e1 / 0.36e2 * t124532 + t124534 / 0.3e1 + t124537 - t124538 - t124274;
37095   t124541 = 0.4e1 * t123973;
37096   t124542 = 0.4e1 * t123979;
37097   t124545 = t24183 * t167 * t168;
37098   t124547 = 0.2e1 * t124545 * t1192;
37099   t124550 = 0.4e1 / 0.3e1 * t123782;
37100   t124551 = t5211 * t23809;
37101   t124555 = -t124541 - t124542 + 0.2e1 * t123768 + t123770 - t23806 + t124547 - t123773 - 0.5e1 / 0.72e2 * t123775 - 0.2e1 / 0.3e1 * t123780 - t124550 - 0.2e1 * t124551 + 0.2e1 / 0.3e1 * t123786 - 0.2e1 * t123792;
37102   t124557 = 0.4e1 * t123810;
37103   t124558 = t5211 * t23840;
37104   t124561 = 0.5e1 / 0.36e2 * t5179 * t124301;
37105   t124562 = 0.5e1 / 0.18e2 * t123818;
37106   t124564 = -t23822 - t23825 + t123796 - t123799 - 0.2e1 * t123800 - t123806 - t123809 - t124557 + 0.2e1 * t124558 + t123812 + t123814 - t124561 + t124562 + t123822 / 0.3e1;
37107   t124567 = t124434 + t124450 + t124473 + t124488 + t124514 + t124539 + t124555 + t124564;
37108   t124584 = t1318 * t23870;
37109   t124586 = 0.12e2 * t124026;
37110   t124587 = 0.12e2 * t123876;
37111   t124588 = t1318 * t23866;
37112   t124591 = t5327 * t5074;
37113   t124597 = 0.6e1 * t124032;
37114   t124598 = 0.3e1 * t23955 * t1269 + 0.24e2 * t123610 + 0.6e1 * t123872 + 0.12e2 * t123874 + t123880 + t123883 + t123897 + 0.6e1 * t124584 + t124586 + t124587 + 0.6e1 * t124588 + 0.6e1 * t124591 + t124597 + t5079;
37115   t124600 = 0.12e2 * t5218 * t5172;
37116   t124601 = t5327 * t5077;
37117   t124604 = 0.6e1 * t24217 * t1221;
37118   t124609 = 0.6e1 * t123890;
37119   t124610 = t124567 * t370 * params->d + t123618 + 0.12e2 * t123888 + t123892 + 0.3e1 * t123893 + t124371 + t124600 + 0.3e1 * t124601 + t124604 + t124609 + t23683 + t23860 + t23865 + t23872 + t23962;
37120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37121     v4sigma4[4] = t7 * t124567 * t372 + 0.2e1 * t24209 * t1224 + t5323 * t5080 + t23947 * t1272 + 0.2e1 * t5214 * t5175 + t1316 * t23873 + t23845 * t1320 + 0.2e1 * t5162 * t5223 + t1265 * t23965 + t5066 * t5331 + 0.2e1 * t1217 * t24227 + t872 * (t124598 + t124610);
37122 
37123   t124618 = 0.2e1 * t123914;
37124   t124621 = t19532 * t123340;
37125   t124622 = 0.5e1 / 0.72e2 * t124621;
37126   t124623 = t102352 * t124055;
37127   t124626 = t1204 * t102386 * t1143;
37128   t124627 = t3788 * t124626;
37129   t124631 = t26389 * t123325 * t5333 * t23508;
37130   t124636 = 0.2e1 / 0.3e1 * t123900 + 0.4e1 / 0.3e1 * t123901 + 0.4e1 / 0.3e1 * t123904 + 0.4e1 / 0.3e1 * t123908 - 0.5e1 / 0.36e2 * t123910 + t124618 - 0.5e1 / 0.18e2 * t123915 + 0.5e1 / 0.48e2 * t123917 - t124622 + 0.5e1 / 0.48e2 * t124623 + 0.2e1 / 0.3e1 * t124627 + t123635 - t124068 + t124069 + t24229 - 0.35e2 / 0.4608e4 * t124631 * t124095 - 0.5e1 / 0.144e3 * t5335 * t123398;
37131   t124638 = t4932 * t4934 * t5381;
37132   t124642 = t5335 * t123394;
37133   t124645 = t449 * t5381 * t4954;
37134   t124646 = 0.2e1 * t124645;
37135   t124647 = t24269 * t5031;
37136   t124649 = t5179 * t124444;
37137   t124656 = t26389 * t123347 * t5333;
37138   t124660 = t99471 * t24231 * t124241;
37139   t124662 = t123360 * t5384;
37140   t124665 = t18368 * t5383 * t123363;
37141   t124666 = 0.5e1 / 0.72e2 * t124665;
37142   t124670 = 0.2e1 * t123961;
37143   t124672 = 0.35e2 / 0.4608e4 * t124656 * t124227 - 0.5e1 / 0.48e2 * t124660 + 0.5e1 / 0.72e2 * t124662 + t124666 - 0.5e1 / 0.48e2 * t123955 + 0.5e1 / 0.18e2 * t123957 + 0.5e1 / 0.18e2 * t123959 - t124670 - t24239 + 0.5e1 / 0.72e2 * t123361 - t123848 + t123372 + t123373 + t124260 - t23771 + t5056;
37144   t124674 = t24269 * t5027;
37145   t124675 = -0.5e1 / 0.144e3 * t4929 * t124638 + t23729 - 0.5e1 / 0.18e2 * t123922 - 0.5e1 / 0.72e2 * t124642 - t123928 - t124646 - t124647 - 0.6e1 * t123380 - t123384 - 0.5e1 / 0.18e2 * t124649 - 0.5e1 / 0.18e2 * t123930 + 0.2e1 * t123939 - 0.8e1 * t123941 + 0.4e1 / 0.3e1 * t123945 + t124672 * t227 - t4957 + t124674 - t123685;
37146   t124681 = t1277 * t123944;
37147   t124685 = t1277 * t124005;
37148   t124687 = t4173 * t123903;
37149   t124689 = t4173 * t123907;
37150   t124690 = 0.2e1 / 0.3e1 * t124689;
37151   t124693 = t19532 * t123337;
37152   t124695 = 0.12e2 * t123973;
37153   t124697 = -t24249 - t123389 - 0.2e1 * t123390 - 0.5e1 / 0.72e2 * t123395 + t123461 - t123462 - t23797 + 0.5e1 / 0.96e2 * t24259 * t124221 + 0.2e1 / 0.3e1 * t124681 + 0.5e1 / 0.96e2 * t23919 * t124501 + t124685 / 0.3e1 + 0.4e1 / 0.3e1 * t124687 + t124690 - 0.5e1 / 0.36e2 * t5179 * t124455 - 0.5e1 / 0.36e2 * t124693 - t124274 - t124695 - 0.8e1 * t123976;
37154   t124710 = t24241 * t167 * t168;
37155   t124711 = t124710 * t1192;
37156   t124713 = t4948 * t5381;
37157   t124715 = -0.8e1 * t123979 - 0.4e1 * t123982 + 0.4e1 * t123984 + 0.2e1 * t123986 + 0.4e1 / 0.3e1 * t123988 + 0.2e1 * t123563 + 0.4e1 * t123565 + 0.4e1 * t123995 + t123569 + 0.2e1 / 0.3e1 * t123572 - 0.6e1 * t124001 - t123579 - t123580 - t123583 + t124006 / 0.3e1 + 0.2e1 * t124711 - 0.2e1 * t124713 + t123588;
37158   t124717 = t124636 + t124675 + t124697 + t124715;
37159   t124733 = 0.36e2 * t124026;
37160   t124735 = t5396 * t5077;
37161   t124736 = 0.3e1 * t124735;
37162   t124738 = t24284 * t1221;
37163   t124744 = t5396 * t5074;
37164   t124747 = t124717 * t370 * params->d + 0.6e1 * t123604 + 0.12e2 * t123608 + t123615 + t123618 + t123619 + t123881 + 0.24e2 * t124024 + 0.12e2 * t124032 + 0.12e2 * t124034 + 0.6e1 * t124036 + t124371 + t124733 + t124736 + 0.6e1 * t124738 + 0.6e1 * t124744 + t23865 + t24289 + t5079;
37165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37166     v4sigma4[5] = t124717 * t372 * t7 + 0.2e1 * t1217 * t24291 + 0.2e1 * t24276 * t1224 + t872 * t124747 + 0.2e1 * t1316 * t23965 + 0.2e1 * t23947 * t1320 + t5066 * t5399 + t5392 * t5080 + 0.4e1 * t5214 * t5223;
37167 
37168   t124751 = t100379 * t23983;
37169   t124755 = t5044 * t101028 * t1133;
37170   t124759 = 0.4e1 * t4026 * t124079;
37171   t124761 = 0.4e1 * t4026 * t124110;
37172   t124762 = 0.4e1 * t124049;
37173   t124763 = 0.5e1 / 0.6e1 * t124053;
37174   t124766 = t123837 * t50651;
37175   t124771 = 0.5e1 / 0.12e2 * t99471 * t102932 * t123355;
37176   t124772 = t124251 * t1133;
37177   t124776 = t1397 * t124230;
37178   t124778 = 0.5e1 / 0.6e1 * t124776 * t24354;
37179   t124779 = 0.5e1 / 0.6e1 * t124249;
37180   t124782 = 0.4e1 * t124258;
37181   t124783 = -0.35e2 / 0.576e3 * t26389 * t123347 * t1387 * t124766 + t124771 - 0.5e1 / 0.8e1 * t99471 * t24037 * t124772 + t124778 + t124779 - 0.5e1 / 0.12e2 * t124238 * t5139 + t124782 - t123846 + t123825 + t24359 - t123830 + t24360 + t123372 - t24060 + t24061 + t5056;
37182   t124801 = t175 * (-t123421 / 0.6144e4 + 0.3e1 / 0.64e2 * t123698 + 0.3e1 / 0.128e3 * t124162 - 0.24e2 * t23532 * t24297 * t23535 * t99383 + 0.24e2 * t123701 * t123702 * t24297 * t1181 - 0.3e1 / 0.128e3 * t124172 - 0.3e1 / 0.64e2 * t123709 + t123456 / 0.6144e4) * t748;
37183   t124809 = t71708 * t1243 * t1190;
37184   t124821 = -0.3e1 * t101432 * t1243 * t2849 - t102852 * t1190 * t2849 - 0.6e1 * t102874 * t1190 * t2849 - 0.3e1 * t19276 * t2849 * t5123 + 0.6e1 * t19286 * t2849 * t5123 + t169 * t124801 + 0.6e1 * t2849 * t124809;
37185   t124822 = my_piecewise3(t296, 0, t124821);
37186   t124824 = my_piecewise3(t359, 0, t124821);
37187   t124828 = t98 * (t124822 * t34 / 0.2e1 + t124824 * t46 / 0.2e1);
37188   t124830 = t18560 * t5239 * t1133;
37189   t124833 = t23510 * t23979;
37190   t124837 = t66 * t1136 * t24341;
37191   t124843 = t66 * t24073 * t1252;
37192   t124845 = t1227 * t124114;
37193   t124846 = -0.5e1 / 0.6e1 * t19122 * t123777 + 0.5e1 / 0.8e1 * t101204 * t124751 + 0.5e1 / 0.12e2 * t5084 * t124755 - t124759 - t124761 - t124762 - t124763 - t123623 + t124783 * t227 - t124828 + 0.5e1 / 0.6e1 * t5084 * t124830 + 0.5e1 / 0.16e2 * t24029 * t124833 + t1135 * t124837 / 0.6e1 - 0.2e1 * t1227 * t124140 + t1135 * t124843 - t124845;
37194   t124850 = t123679 * t50651;
37195   t124854 = 0.5e1 / 0.12e2 * t24316 * t123560;
37196   t124855 = 0.4e1 * t124072;
37197   t124859 = 0.3e1 * t5155 * t24082;
37198   t124861 = t1214 * t24308 * t3923;
37199   t124864 = 0.3e1 * t1214 * t24005 * t4079;
37200   t124867 = 0.2e1 * t449 * t24341 * t1143;
37201   t124869 = t1204 * t101096 * t1231;
37202   t124872 = 0.5e1 / 0.6e1 * t19122 * t123774;
37203   t124874 = 0.6e1 * t5097 * t24293;
37204   t124877 = 0.6e1 * t449 * t24022 * t1231;
37205   t124879 = 0.6e1 * t5155 * t24084;
37206   t124881 = 0.6e1 * t5155 * t23988;
37207   t124883 = 0.3e1 * t24065 * t5159;
37208   t124884 = 0.35e2 / 0.576e3 * t26389 * t123325 * t1387 * t23508 * t124850 - t124854 + t23987 - t124855 + t123664 - 0.3e1 * t5060 * t24366 - t124859 - t124861 - t124864 - t124867 + t3788 * t124869 - t124872 - t124874 - t124877 - t124879 + t124881 - t124883;
37209   t124891 = 0.3e1 * t5155 * t24006;
37210   t124893 = 0.6e1 * t14484 * t124809;
37211   t124897 = t24361 * t167 * t168;
37212   t124898 = t124897 * t1192;
37213   t124901 = 0.3e1 * t1214 * t5254 * t18617;
37214   t124903 = 0.3e1 * t24065 * t5125;
37215   t124905 = t1214 * t124801;
37216   t124906 = 0.6e1 * t124122;
37217   t124908 = 0.2e1 * t4026 * t124059;
37218   t124910 = t5044 * t101091 * t1133;
37219   t124914 = 0.5e1 / 0.6e1 * t19122 * t123628;
37220   t124915 = 0.2e1 * t5060 * t24332 + 0.3e1 * t23835 * t5255 + t124891 + t123675 + t124893 + 0.3e1 * t124285 * t1245 + t124898 - t124901 + t124903 - t4957 + t5060 * t24309 + t124905 - t124906 - t124908 + 0.5e1 / 0.24e2 * t5084 * t124910 - t124914 - t123389;
37221   t124920 = 0.6e1 * t1214 * t24331 * t48478;
37222   t124923 = 0.6e1 * t1214 * t5258 * t70710;
37223   t124924 = 0.12e2 * t124291;
37224   t124928 = 0.5e1 / 0.12e2 * t5228 * t123755;
37225   t124930 = 0.6e1 * t5236 * t5135;
37226   t124931 = -t24071 - t24072 - 0.3e1 * t23835 * t5259 - t124920 - t24325 + t124923 - t123783 - t124924 - t24349 - t24369 - t123806 - t123809 - t123811 - 0.5e1 / 0.24e2 * t24316 * t123377 - t124928 + t123819 - t124930;
37227   t124933 = t124846 + t124884 + t124915 + t124931;
37228   t124949 = 0.3e1 * t24377 * t1221;
37229   t124953 = 0.18e2 * t5290 * t5172;
37230   t124954 = 0.9e1 * t124367;
37231   t124958 = 0.18e2 * t1267 * t24121;
37232   t124959 = 0.36e2 * t124363;
37233   t124962 = 0.18e2 * t124349;
37234   t124963 = t124933 * t370 * params->d + 0.6e1 * t1219 * t24384 + 0.9e1 * t24110 * t1269 + 0.18e2 * t5166 * t5294 + t123618 + t123877 + t123880 + t123891 + t123897 + t124949 + t124953 + t124954 + t124958 + t124959 + t124962 + t24125 + t24126 + t24383 + t24387 + t5079;
37235   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37236     v4sigma4[6] = t124933 * t372 * t7 + t1217 * t24388 + t24371 * t1224 + t872 * t124963 + 0.3e1 * t1265 * t24127 + 0.3e1 * t24102 * t1272 + 0.3e1 * t5162 * t5297 + 0.3e1 * t5286 * t5175;
37237 
37238   t124966 = t19122 * t123909;
37239   t124968 = t4173 * t124079;
37240   t124970 = t4173 * t124110;
37241   t124974 = t4026 * t124386;
37242   t124981 = t123901 / 0.3e1 - 0.5e1 / 0.18e2 * t124966 + 0.2e1 / 0.3e1 * t124968 + 0.2e1 / 0.3e1 * t124970 + t123908 / 0.3e1 + t123914 / 0.3e1 - 0.4e1 / 0.3e1 * t124974 - 0.4e1 / 0.3e1 * t4026 * t124390 - t124050 - 0.5e1 / 0.18e2 * t124051 - t124054 + 0.5e1 / 0.24e2 * t124056 + t124060 / 0.3e1 - t124062;
37243   t124982 = t4173 * t124059;
37244   t124990 = 0.5e1 / 0.18e2 * t124440;
37245   t124993 = t5179 * t5044 * t99774 * t57;
37246   t125006 = 0.5e1 / 0.18e2 * t124420;
37247   t125009 = t99471 * t23888 * t24407 * t1143;
37248   t125015 = 0.2e1 / 0.3e1 * t124406;
37249   t125016 = t124423 * t24412;
37250   t125018 = t103078 * t1133;
37251   t125022 = 0.5e1 / 0.72e2 * t123959 + 0.35e2 / 0.1152e4 * t123951 * t123837 * t5226 * t50651 - t125006 - 0.5e1 / 0.24e2 * t125009 + 0.5e1 / 0.72e2 * t124238 * t5201 - 0.5e1 / 0.18e2 * t124233 + t5056 - t123961 / 0.3e1 - t125015 - 0.5e1 / 0.18e2 * t125016 + 0.5e1 / 0.24e2 * t102080 * t23510 * t125018 - t124409;
37252   t125025 = -0.5e1 / 0.24e2 * t124243 + t24054 + t124235 + t23775 + t124250 + t124259 - t23898 - t24060 - t124429 - t123367 / 0.3e1 + t24059 + t124246 + t123372;
37253   t125028 = t124982 / 0.3e1 - 0.5e1 / 0.144e3 * t5179 * t124910 + 0.5e1 / 0.36e2 * t124065 + t123319 / 0.3e1 + t23880 - 0.5e1 / 0.36e2 * t5179 * t124830 + t124990 + 0.5e1 / 0.36e2 * t124993 - 0.5e1 / 0.48e2 * t24147 * t24148 * t103051 * t1133 - 0.5e1 / 0.72e2 * t5179 * t124755 - t124071 + (t125022 + t125025) * t227 + t23987 - t124073;
37254   t125032 = 0.4e1 / 0.3e1 * t124458;
37255   t125037 = t5179 * t23630 * t24390;
37256   t125044 = t5211 * t24082;
37257   t125046 = t24417 * t167 * t168;
37258   t125047 = t125046 * t1192;
37259   t125050 = t24147 * t100379 * t103214 * t1143;
37260   t125052 = t5211 * t23988;
37261   t125054 = -0.4e1 / 0.3e1 * t124074 + 0.2e1 / 0.3e1 * t124080 - t125032 + t124460 - 0.5e1 / 0.24e2 * t24147 * t101836 * t125018 + 0.5e1 / 0.18e2 * t125037 + 0.5e1 / 0.18e2 * t5179 * t18560 * t101853 * t1231 - 0.5e1 / 0.72e2 * t123922 - t124083 - t124089 - t125044 + t125047 + 0.5e1 / 0.24e2 * t125050 + 0.2e1 * t125052;
37262   t125058 = t1277 * t124114;
37263   t125065 = t66 * t24073 * t1307;
37264   t125072 = t23510 * t24156;
37265   t125075 = t24189 * t5159;
37266   t125079 = t124471 + 0.2e1 * t124545 * t1245 + 0.2e1 * t124101 + t124104 + t125058 / 0.6e1 + 0.5e1 / 0.48e2 * t23919 * t23510 * t18205 * t5226 + t1135 * t125065 / 0.3e1 + t1277 * t124140 / 0.3e1 - 0.5e1 / 0.36e2 * t5228 * t123947 + 0.5e1 / 0.48e2 * t24029 * t125072 - 0.2e1 * t125075 + 0.2e1 / 0.3e1 * t124111 - t4957 + t124115 / 0.6e1;
37267   t125085 = t18560 * t5309 * t1133;
37268   t125088 = 0.4e1 * t124493;
37269   t125091 = t5179 * t18560 * t103051 * t1143;
37270   t125093 = -t124120 - t124123 - 0.2e1 * t123385 - 0.2e1 * t124127 + t124131 - t23910 - t124133 - t123389 - t124136 + 0.5e1 / 0.18e2 * t5084 * t125085 - t124138 - t125088 + 0.5e1 / 0.18e2 * t125091 + t124148;
37271   t125095 = 0.2e1 / 0.3e1 * t124520;
37272   t125096 = 0.2e1 / 0.3e1 * t124534;
37273   t125099 = t24189 * t5125;
37274   t125102 = 0.5e1 / 0.18e2 * t124151 - t124210 - t23796 - t24072 - t124212 - t124213 + t124216 + t125095 + t125096 - t124266 - 0.2e1 * t123973 - 0.2e1 * t123979 + 0.2e1 * t125099 - t23929 * t5259;
37275   t125111 = -0.2e1 * t124275 - t124279 - t24087 + t124280 - t124550 - 0.35e2 / 0.1152e4 * t124465 * t24425 * t50651 - 0.2e1 * t5236 * t5198 + t124286 + t124288 + 0.2e1 * t124289 - t124292 - t124294 - t124297 - t24096;
37276   t125114 = t5211 * t24006;
37277   t125115 = t5211 * t24084;
37278   t125117 = -t24097 - t124300 + 0.5e1 / 0.18e2 * t124302 - t124309 - t124310 - t124557 - t124313 - t124315 + t124317 + t124320 + t124562 - t124323 + t23929 * t5255 + t125114 - 0.2e1 * t125115;
37279   t125120 = t124981 + t125028 + t125054 + t125079 + t125093 + t125102 + t125111 + t125117;
37280   t125138 = 0.12e2 * t124584;
37281   t125140 = t24441 * t1221;
37282   t125143 = t1318 * t24121;
37283   t125149 = 0.6e1 * t24217 * t1269 + 0.6e1 * t5218 * t5294 + 0.6e1 * t123610 + 0.6e1 * t124026 + t124343 + t124350 + t124362 + 0.12e2 * t124365 + t124368 + t124372 + t124587 + t125138 + 0.3e1 * t125140 + 0.6e1 * t125143 + t5079;
37284   t125151 = 0.6e1 * t124601;
37285   t125154 = t5327 * t5172;
37286   t125158 = t125120 * t370 * params->d + t123618 + 0.3e1 * t124032 + 0.3e1 * t124344 + 0.6e1 * t124346 + t124353 + t124355 + t124364 + t124609 + t125151 + 0.12e2 * t125154 + t23869 + t23962 + t24118 + t24124 + t24125;
37287   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37288     v4sigma4[7] = t7 * t125120 * t372 + t24433 * t1224 + 0.2e1 * t24209 * t1272 + 0.2e1 * t5323 * t5175 + t5214 * t5297 + t1316 * t24127 + t24102 * t1320 + t5286 * t5223 + 0.2e1 * t5162 * t5331 + 0.2e1 * t1265 * t24227 + t1217 * t24447 + t872 * (t125149 + t125158);
37289 
37290   t125167 = t124776 * t24461;
37291   t125174 = t124666 - 0.35e2 / 0.2304e4 * t124656 * t124399 * t50651 - t125015 + t123825 - t123830 / 0.3e1 + 0.5e1 / 0.72e2 * t125167 - 0.5e1 / 0.96e2 * t99471 * t24231 * t124772 - 0.4e1 / 0.3e1 * t123961 + t124415 - 0.5e1 / 0.18e2 * t124416 - t125006 + t124425;
37292   t125177 = t99471 * t24231 * t24168 * t1143;
37293   t125181 = 0.5e1 / 0.48e2 * t125177 - t24060 + t5056 + t23762 + t124427 + t123372 - 0.5e1 / 0.36e2 * t123841 - 0.5e1 / 0.36e2 * t123845 + t23774 - t124261 + t23642 - t24239;
37294   t125185 = t124376 + t124377 + 0.4e1 / 0.3e1 * t123914 + t124388 - t123623 + 0.5e1 / 0.36e2 * t123626 + (t125174 + t125181) * t227 - t124622 + t124067 + t24229 - t124437 + t124990 + 0.2e1 / 0.3e1 * t123640;
37295   t125189 = t124446 - t123647 - 0.2e1 * t123652 - t123656 - t123660 + t23987 - t124453 - t125032 + t123664 / 0.3e1 + 0.2e1 * t123665 - t123668 - t124462 + t123672 - t124646;
37296   t125192 = t1204 * t102386 * t1231;
37297   t125195 = t4173 * t124386;
37298   t125211 = t24269 * t5125;
37299   t125216 = t19532 * t123774;
37300   t125220 = t3788 * t125192 / 0.3e1 + 0.2e1 / 0.3e1 * t125195 + 0.2e1 / 0.3e1 * t4173 * t124390 + 0.5e1 / 0.36e2 * t5179 * t5044 * t100605 * t57 + t124469 / 0.3e1 + t123675 / 0.3e1 + 0.2e1 * t124472 + 0.35e2 / 0.2304e4 * t124463 * t24231 * t123330 * t5299 * t50651 + t125211 + t124477 - 0.5e1 / 0.48e2 * t24147 * t24148 * t103414 * t1133 - 0.5e1 / 0.72e2 * t125216 - 0.5e1 / 0.72e2 * t19532 * t123777;
37301   t125224 = t102352 * t100379 * t24129;
37302   t125226 = t19532 * t123628;
37303   t125228 = t4026 * t124626;
37304   t125231 = t5044 * t102381 * t1133;
37305   t125238 = t5179 * t18560 * t103414 * t1143;
37306   t125242 = 0.5e1 / 0.96e2 * t102352 * t124751 - 0.5e1 / 0.48e2 * t125224 - 0.5e1 / 0.72e2 * t125226 - 0.2e1 / 0.3e1 * t125228 + 0.5e1 / 0.72e2 * t5084 * t125231 - 0.5e1 / 0.36e2 * t5179 * t125085 + 0.5e1 / 0.18e2 * t125238 - t4957 - t124480 - t124124 + t123690 - 0.2e1 * t124485 + 0.2e1 * t124486 - t123739;
37307   t125247 = -t123741 - t24249 - t123389 + t124492 - t125088 - t124496 - t124499 + t123743 + 0.2e1 / 0.3e1 * t124504 - t124507 - 0.4e1 / 0.3e1 * t124510 - t124513 - t123746;
37308   t125253 = t24269 * t5159;
37309   t125258 = t24466 * t167 * t168;
37310   t125259 = t125258 * t1192;
37311   t125262 = -t23619 - t24072 + 0.5e1 / 0.192e3 * t24259 * t124833 - 0.5e1 / 0.96e2 * t24259 * t23510 * t24142 - t125253 + t123751 / 0.3e1 - 0.2e1 / 0.3e1 * t123762 + t124710 * t1245 + t125259 + t124690 + 0.4e1 / 0.3e1 * t124518 + t125095 - t124523 + 0.5e1 / 0.18e2 * t124532;
37312   t125268 = t5097 * t24482;
37313   t125270 = t125096 + t124537 - 0.2e1 * t124538 - 0.8e1 * t123973 - t124542 + t123768 + t123770 - t23806 + t124547 - t123773 - 0.2e1 / 0.3e1 * t123782 - 0.4e1 * t124551 - 0.2e1 * t125268;
37314   t125273 = t5335 * t123755;
37315   t125277 = -t123792 - t23822 - t23825 + t123796 - t123799 - t123806 - t123809 - 0.2e1 * t123810 + 0.4e1 * t124558 + t123812 - t124561 - 0.5e1 / 0.144e3 * t125273 + 0.5e1 / 0.36e2 * t123818 + t123822 / 0.6e1;
37316   t125280 = t125185 + t125189 + t125220 + t125242 + t125247 + t125262 + t125270 + t125277;
37317   t125304 = 0.3e1 * t24284 * t1269 + 0.6e1 * t123874 + 0.6e1 * t123876 + t123880 + t123883 + t123897 + 0.24e2 * t124026 + t124351 + 0.12e2 * t124588 + 0.12e2 * t124591 + t124597 + t124736 + t125138 + t5079;
37318   t125305 = t5396 * t5172;
37319   t125311 = t24498 * t1221;
37320   t125313 = t125280 * t370 * params->d + t123618 + 0.6e1 * t123888 + 0.3e1 * t123890 + t123892 + t124600 + t124604 + t125151 + 0.6e1 * t125305 + 0.3e1 * t125311 + t23683 + t23860 + t23872 + t24125 + t24289;
37321   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37322     v4sigma4[8] = t7 * t125280 * t372 + t24490 * t1224 + t24276 * t1272 + t5392 * t5175 + 0.2e1 * t24209 * t1320 + 0.2e1 * t5323 * t5223 + 0.2e1 * t5214 * t5331 + 0.2e1 * t1316 * t24227 + t5162 * t5399 + t1265 * t24291 + t1217 * t24504 + t872 * (t125304 + t125313);
37323 
37324   t125317 = t19532 * t123909;
37325   t125319 = 0.5e1 / 0.24e2 * t124621;
37326   t125322 = t449 * t24551 * t1143;
37327   t125325 = t123901 + t123908 + 0.3e1 * t123914 - t123916 - 0.5e1 / 0.24e2 * t125317 - t125319 + 0.5e1 / 0.32e2 * t124623 + t124627 + t123319 + t23879 - 0.2e1 * t125322 + t23987 - t123923 - 0.5e1 / 0.24e2 * t124642 - t123928;
37328   t125326 = 0.6e1 * t124645;
37329   t125328 = t24566 * t167 * t168;
37330   t125329 = t125328 * t1192;
37331   t125333 = t66 * t1136 * t24551;
37332   t125336 = t4173 * t124626;
37333   t125339 = t26389 * t123347 * t24556;
37334   t125343 = t99471 * t103796 * t123355;
37335   t125347 = 0.5e1 / 0.24e2 * t124665;
37336   t125349 = 0.35e2 / 0.4608e4 * t125339 * t124766 - 0.5e1 / 0.96e2 * t125343 - 0.5e1 / 0.32e2 * t124660 + 0.5e1 / 0.24e2 * t124662 + t125347 + t123958 - 0.3e1 * t123961 + t123960 - t23897 - t123367 + t123372 + t123373 - t24060 + t5056;
37337   t125351 = t24558 * t123560;
37338   t125356 = -t125326 + t125329 - 0.3e1 * t124647 - 0.3e1 * t123380 + t1135 * t125333 / 0.6e1 + t125336 - t123384 - 0.5e1 / 0.12e2 * t124649 - t123942 + t123945 + t125349 * t227 + 0.5e1 / 0.96e2 * t125351 + 0.5e1 / 0.64e2 * t24259 * t125072 - t4957 + 0.3e1 * t124674;
37339   t125364 = 0.2e1 * t124689;
37340   t125370 = t26389 * t123325 * t24556 * t23508;
37341   t125374 = -0.5e1 / 0.48e2 * t5335 * t123947 - 0.6e1 * t123385 - t24555 - t123389 + t123461 - t123462 - t24072 + 0.2e1 * t124681 + t124685 / 0.2e1 + 0.2e1 * t124687 + t125364 - 0.5e1 / 0.24e2 * t124693 - 0.5e1 / 0.48e2 * t5179 * t125231 - 0.35e2 / 0.4608e4 * t125370 * t124850 - 0.18e2 * t123973;
37342   t125383 = -t123977 - t123980 - t123983 + t123985 + 0.3e1 * t123986 + t123988 + t123563 + 0.2e1 * t123565 + 0.6e1 * t123995 + t123569 - 0.9e1 * t124001 - t123579 - t123583 + 0.5e1 / 0.192e3 * t24558 * t123377 + 0.3e1 * t124711 - 0.6e1 * t124713;
37343   t125385 = t125325 + t125356 + t125374 + t125383;
37344   t125400 = t24577 * t1221;
37345   t125404 = 0.9e1 * t124735;
37346   t125409 = t125385 * t370 * params->d + 0.6e1 * t123608 + 0.18e2 * t123610 + t123615 + t123618 + t123619 + t124025 + 0.54e2 * t124026 + t124033 + 0.18e2 * t124034 + 0.9e1 * t124738 + 0.18e2 * t124744 + 0.3e1 * t125400 + t125404 + t24125 + t24581 + t5079;
37347   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37348     v4sigma4[9] = t125385 * t372 * t7 + t1217 * t24582 + t24571 * t1224 + t872 * t125409 + 0.3e1 * t1316 * t24291 + 0.3e1 * t24276 * t1320 + 0.3e1 * t5214 * t5399 + 0.3e1 * t5392 * t5223;
37349 
37350   t125415 = t5243 * t5243;
37351   t125428 = t175 * (-t123421 / 0.3072e4 + 0.3e1 / 0.32e2 * t124162 - 0.24e2 * t23532 * t125415 * t23535 * t123426 + 0.24e2 * t123433 * t123435 * t6259 * t125415 - 0.3e1 / 0.32e2 * t124172 + t123456 / 0.3072e4) * t748;
37352   t125436 = t5253 * t5253;
37353   t125438 = t175 * t125436 * t2093;
37354   t125441 = t5257 * t5257;
37355   t125443 = t175 * t125441 * t28769;
37356   t125446 = -0.4e1 * t102852 * t1243 * t2849 + 0.12e2 * t2849 * t5257 * t71708 + t169 * t125428 - 0.3e1 * t169 * t125438 - 0.6e1 * t169 * t125443;
37357   t125447 = my_piecewise3(t296, 0, t125446);
37358   t125449 = my_piecewise3(t359, 0, t125446);
37359   t125458 = 0.1e1 / t55 / t26568;
37360   t125496 = -0.8e1 * t124049 - 0.5e1 / 0.3e1 * t124053 - t98 * (t125447 * t34 / 0.2e1 + t125449 * t46 / 0.2e1) - 0.12e2 * t5236 * t5267 - 0.8e1 * t124072 + (0.35e2 / 0.288e3 * t123348 * t125458 * t23508 * t123351 + 0.5e1 / 0.3e1 * t99471 * t102932 * t124251 + 0.5e1 / 0.3e1 * t124238 * t5270 + 0.5e1 / 0.3e1 * t124249 + 0.8e1 * t124258 + 0.8e1 / 0.3e1 * t23761 + 0.8e1 * t23773 + t123372 + t5056) * t227 - 0.4e1 / 0.3e1 * t1227 * t124837 - 0.3e1 * t1214 * t125438 + 0.4e1 * t5155 * t24309 + t1214 * t125428 + 0.8e1 * t5155 * t24332 - 0.8e1 * t1227 * t124843 - 0.5e1 / 0.3e1 * t5228 * t124269 - 0.5e1 / 0.6e1 * t5228 * t124218 - 0.8e1 * t449 * t24341 * t1231 - 0.8e1 * t4026 * t124869 - 0.10e2 / 0.3e1 * t19122 * t124042;
37361   t125527 = -t4957 - 0.12e2 * t124122 - 0.5e1 / 0.3e1 * t24316 * t123764 - 0.5e1 / 0.6e1 * t24316 * t123854 - t123389 + 0.12e2 * t1214 * t5258 * t71708 - 0.6e1 * t24065 * t5259 - 0.6e1 * t1214 * t125443 + 0.4e1 * t124897 * t1245 + 0.6e1 * t24065 * t5255 - 0.12e2 * t5155 * t24366 - 0.8e1 / 0.3e1 * t23805 - 0.35e2 / 0.288e3 * t26389 * t123325 * t125458 * t23508 * t123334 - 0.24e2 * t124291 - 0.8e1 * t23821 - 0.8e1 * t23824 - 0.4e1 * t1214 * t24308 * t4079;
37362   t125528 = t125496 + t125527;
37363   t125550 = t125528 * t370 * params->d + 0.24e2 * t1267 * t24384 + 0.12e2 * t24377 * t1269 + 0.36e2 * t5290 * t5294 + t123618 + 0.36e2 * t124349 + 0.72e2 * t124363 + 0.18e2 * t124367 + 0.12e2 * t23859 + 0.24e2 * t23871 + t5079;
37364   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37365     v4sigma4[10] = t125528 * t372 * t7 + t872 * t125550 + 0.4e1 * t1265 * t24388 + 0.4e1 * t24371 * t1272 + 0.6e1 * t5286 * t5297;
37366 
37367   t125568 = 0.5e1 / 0.12e2 * t124440;
37368   t125570 = t1387 * t61 * t65;
37369   t125580 = 0.5e1 / 0.12e2 * t124420;
37370   t125581 = -0.35e2 / 0.576e3 * t123951 * t123837 * t125570 - 0.5e1 / 0.12e2 * t124238 * t5313 + t124771 - 0.5e1 / 0.8e1 * t99471 * t23888 * t24407 * t1231 - t124406 + t123825 + t124778 - t125580 + t5056 + t24359 + t123372 + t124779 + t124782 + t24360 + t24061 - t23898;
37371   t125583 = -t124759 - t124761 + t4173 * t124869 - 0.5e1 / 0.6e1 * t19122 * t124393 + 0.5e1 / 0.24e2 * t5179 * t5044 * t101091 * t57 - t124762 - t124763 + 0.5e1 / 0.8e1 * t24147 * t100379 * t103214 * t1231 - t123623 + t23880 + 0.5e1 / 0.16e2 * t23919 * t23510 * t18727 * t5226 + t1277 * t124843 + t125568 - t124828 - t124845 + t125581 * t227;
37372   t125584 = 0.2e1 * t124458;
37373   t125596 = -t124854 - t124855 - t125584 + 0.5e1 / 0.12e2 * t5179 * t5044 * t101028 * t57 + 0.3e1 * t24189 * t5255 - t124859 - t124861 - t124864 - 0.5e1 / 0.24e2 * t24316 * t123998 - t124867 + 0.35e2 / 0.576e3 * t123934 * t123679 * t125570 - t124872 - t124874 - t124877 - t124879 + t124881 - t124883;
37374   t125609 = t124891 + t124893 + t124898 + 0.3e1 * t125046 * t1245 - t124901 - 0.2e1 * t1227 * t125065 - 0.3e1 * t24189 * t5259 + t5211 * t24309 + t124903 - t4957 + t124905 - t124906 - t124908 - t124914 - t23910 - t123389 + 0.5e1 / 0.6e1 * t5179 * t18560 * t103051 * t1231;
37375   t125610 = 0.6e1 * t124493;
37376   t125617 = -t125610 - t24071 - t124920 + t124520 + t124534 + t1277 * t124837 / 0.6e1 - t24325 + t124923 - t124924 + 0.2e1 * t5211 * t24332 - t24349 - t24369 - t123806 - t123809 - t124928 - 0.3e1 * t5211 * t24366 - t124930;
37377   t125619 = t125583 + t125596 + t125609 + t125617;
37378   t125638 = 0.9e1 * t124601;
37379   t125639 = 0.18e2 * t124584;
37380   t125642 = t125619 * t370 * params->d + 0.9e1 * t24441 * t1269 + 0.6e1 * t1318 * t24384 + 0.18e2 * t5327 * t5294 + t123618 + t123880 + t123897 + t124949 + t124953 + t124954 + t124958 + t124959 + t124962 + t125638 + t125639 + t23962 + t24126 + t24383 + t24387 + t5079;
37381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37382     v4sigma4[11] = t125619 * t372 * t7 + t872 * t125642 + 0.3e1 * t1265 * t24447 + 0.3e1 * t24433 * t1272 + t1316 * t24388 + t24371 * t1320 + 0.3e1 * t5286 * t5331 + 0.3e1 * t5323 * t5297;
37383 
37384   t125664 = -0.5e1 / 0.9e1 * t124966 + 0.4e1 / 0.3e1 * t124968 + 0.4e1 / 0.3e1 * t124970 + t124378 - 0.8e1 / 0.3e1 * t124974 - t124050 - t124054 - t124062 + 0.2e1 / 0.3e1 * t124982 - t124622 + t24229 + 0.2e1 / 0.3e1 * t1277 * t125065 + 0.5e1 / 0.9e1 * t124440 + 0.5e1 / 0.18e2 * t124993 - t124071 + 0.5e1 / 0.9e1 * t5179 * t18560 * t5309 * t57 - 0.5e1 / 0.36e2 * t19532 * t124042 - 0.5e1 / 0.24e2 * t102352 * t100379 * t24390 - t124073 - 0.5e1 / 0.72e2 * t5335 * t124269;
37385   t125668 = t5226 * t61 * t65;
37386   t125681 = t124666 - 0.5e1 / 0.9e1 * t125016 + 0.35e2 / 0.1152e4 * t124656 * t123837 * t125668 - 0.4e1 / 0.3e1 * t124406 + t124235 - t124411 + 0.5e1 / 0.24e2 * t99471 * t24231 * t24168 * t1231 + 0.5e1 / 0.72e2 * t124238 * t5384 - 0.5e1 / 0.9e1 * t124420 + t5056 - 0.5e1 / 0.12e2 * t125009 + t24054 + t124246 + t123372 + t124250 + t124259 + t24059 + t23775 - t24239;
37387   t125695 = t124104 + t125058 / 0.3e1 - t24269 * t5259 - 0.4e1 * t125075 + t24269 * t5255 + 0.2e1 * t125258 * t1245 - t4957 - t124120 - t124123 + t124131 - t24249;
37388   t125708 = -t124212 + t124216 + t124690 + 0.4e1 / 0.3e1 * t124520 - 0.4e1 / 0.3e1 * t4026 * t125192 + 0.4e1 / 0.3e1 * t124534 - t124266 - t124541 + 0.4e1 * t125099 - t124279 - t24087;
37389   t125727 = -0.2e1 * t5236 * t5381 + 0.5e1 / 0.24e2 * t23919 * t23510 * t18918 * t5226 - 0.5e1 / 0.48e2 * t24259 * t23510 * t24401 - 0.5e1 / 0.36e2 * t5228 * t124638 - t124313 - t124315 + t124320 - t124323 - 0.35e2 / 0.1152e4 * t124631 * t123679 * t125668 + 0.2e1 * t125114 - 0.4e1 * t125115;
37390   t125730 = t125727 + t125708 + t125695 + t125664 + 0.5e1 / 0.9e1 * t125091 + 0.5e1 / 0.12e2 * t125050 + 0.4e1 * t125052 - 0.2e1 * t125044 + 0.2e1 * t125047 + 0.5e1 / 0.9e1 * t125037 - t124646 - 0.8e1 * t124493 - 0.8e1 / 0.3e1 * t124458 - t124310 - t124309 - t124297 - t124300 - t124292 - t124294 + t124288 + t124280 - t124210 + t124148 - t124138 - t124133 - t124136 - t124089 - t124083 - t123389 - 0.5e1 / 0.144e3 * t5335 * t124218 + t125681 * t227 - t24096 - t24097 - t23796;
37391   t125752 = t125730 * t370 * params->d + 0.6e1 * t5396 * t5294 + t123618 + t124343 + t124350 + t124353 + t124355 + t124586 + 0.12e2 * t124601 + t124736 + 0.6e1 * t125140 + 0.12e2 * t125143;
37392   t125757 = 0.6e1 * t24498 * t1269 + t124362 + t124364 + t124368 + t124372 + 0.24e2 * t124584 + 0.24e2 * t125154 + t23869 + t24118 + t24124 + t24289 + t5079;
37393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37394     v4sigma4[12] = t7 * t125730 * t372 + 0.2e1 * t24490 * t1272 + t5392 * t5297 + 0.2e1 * t24433 * t1320 + 0.4e1 * t5323 * t5331 + 0.2e1 * t1316 * t24447 + t5286 * t5399 + 0.2e1 * t1265 * t24504 + t872 * (t125752 + t125757);
37395 
37396   t125769 = -0.35e2 / 0.2304e4 * t125339 * t123837 * t52962 - 0.5e1 / 0.96e2 * t99471 * t103796 * t124251 + 0.5e1 / 0.16e2 * t125177 + 0.5e1 / 0.24e2 * t125167 + t125347 - 0.5e1 / 0.12e2 * t124416 - t124670 - t125580 - t124406 - t23897 + t123825 + t123372 + t23642 + t23762 + t23774 + t5056;
37397   t125778 = t124618 + t125769 * t227 - t123623 - t125319 + t23879 + t125568 - t123647 - 0.2e1 * t449 * t24551 * t1231 + t125328 * t1245 - 0.5e1 / 0.24e2 * t19532 * t124393 - t123660 - t125584 - t123668 + t123672 - t125326 + 0.2e1 * t125195;
37398   t125797 = t124469 / 0.2e1 + 0.35e2 / 0.2304e4 * t125370 * t123679 * t52962 + 0.3e1 * t124472 + 0.3e1 * t125211 - 0.5e1 / 0.24e2 * t125216 + t4173 * t125192 - 0.5e1 / 0.16e2 * t125224 + 0.5e1 / 0.24e2 * t5179 * t5044 * t102381 * t57 - 0.5e1 / 0.24e2 * t125226 - 0.2e1 * t125228 + 0.5e1 / 0.6e1 * t125238 - t4957 - 0.3e1 * t124485 + 0.3e1 * t124486 - t123739 - t123741 - t24555;
37399   t125811 = -t123389 - t125610 - t1227 * t125333 / 0.3e1 + 0.5e1 / 0.96e2 * t24558 * t123764 - 0.5e1 / 0.32e2 * t24259 * t23510 * t24452 + t123743 + t124504 - 0.2e1 * t124510 - t123746 - t23619 - 0.3e1 * t125253 + 0.3e1 * t125259 + t125364 + 0.2e1 * t124518 + t124520 + 0.5e1 / 0.12e2 * t124532 + t124534;
37400   t125819 = -0.3e1 * t124538 - t124695 + t123770 - t23806 - t123773 - 0.6e1 * t124551 - 0.6e1 * t125268 - t23822 - t23825 + t123796 + 0.5e1 / 0.192e3 * t24558 * t123854 - t123799 - t123806 - t123809 + 0.6e1 * t124558 + t123812 - 0.5e1 / 0.48e2 * t125273;
37401   t125821 = t125778 + t125797 + t125811 + t125819;
37402   t125842 = t125821 * t370 * params->d + 0.3e1 * t24577 * t1269 + t123618 + t123880 + t123883 + t123892 + t123897 + 0.18e2 * t124588 + 0.18e2 * t124591 + t124733 + 0.18e2 * t125305 + 0.9e1 * t125311 + t125404 + t125638 + t125639 + t23683 + t23860 + t23872 + t24581 + t5079;
37403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37404     v4sigma4[13] = t125821 * t372 * t7 + t872 * t125842 + t1265 * t24582 + t24571 * t1272 + 0.3e1 * t1316 * t24504 + 0.3e1 * t24490 * t1320 + 0.3e1 * t5323 * t5399 + 0.3e1 * t5392 * t5331;
37405 
37406   t125846 = t5333 * t5333;
37407   t125876 = 0.4e1 * t123914 - 0.5e1 / 0.6e1 * t125317 + (0.35e2 / 0.4608e4 * t123348 * t125846 * t23508 * t123351 - 0.5e1 / 0.24e2 * t125343 + 0.5e1 / 0.12e2 * t124662 + 0.5e1 / 0.12e2 * t124665 - 0.4e1 * t123961 - 0.4e1 / 0.3e1 * t23897 + t123372 + t123373 + t5056) * t227 - 0.5e1 / 0.12e2 * t124621 + 0.4e1 / 0.3e1 * t23879 - 0.8e1 * t125322 + 0.2e1 / 0.3e1 * t1277 * t125333 - 0.5e1 / 0.12e2 * t124642 - 0.12e2 * t124645 + 0.4e1 * t125329 - 0.6e1 * t124647 + 0.4e1 * t125336 - t123384 - 0.35e2 / 0.4608e4 * t26389 * t123325 * t125846 * t23508 * t123334 - 0.5e1 / 0.24e2 * t5335 * t124638 + 0.5e1 / 0.24e2 * t125351 - t4957;
37408   t125888 = 0.1e1 / t42 / t12472 / t40;
37409   t125896 = t5349 * t5349;
37410   t125903 = t123429 * t345 * t123432;
37411   t125933 = t5370 * t5370;
37412   t125937 = t5373 * t5373;
37413   t125942 = my_piecewise3(t359, t169 * (0.3e1 / 0.64e2 * t123403 * t19656 * t61 * t533 * t758 * t2291 * t5349 - t123403 * t2214 * t125888 * t114 * t123477 * t2169 * t837 / 0.24576e5 - 0.24e2 * t23532 * t125896 * t23535 * t24527 * t2214 + 0.24e2 * t125903 * t123434 * t29536 * t7378 * t125896 - 0.3e1 / 0.64e2 * t125903 * t123434 * t7461 * t81227 * t5367 + t125903 * t123434 * t2291 * t7378 * t125888 * t114 * t123417 * t123505 * t2169 / 0.24576e5) * t848 / 0.2e1 - 0.2e1 * t169 * t103924 * t1300 + 0.6e1 * t169 * t73445 * t5373 - 0.3e1 / 0.2e1 * t169 * t125933 * t2320 - 0.3e1 * t169 * t125937 * t29662, t123546);
37414   t125956 = 0.6e1 * t124674 - 0.8e1 * t23909 - t123389 - t98 * (t125942 * t46 / 0.2e1 + t123925 / 0.2e1) + t123461 - t123462 + 0.4e1 * t124681 + 0.4e1 * t124689 - 0.24e2 * t123973 + 0.5e1 / 0.48e2 * t24558 * t123998 + 0.4e1 * t123986 + 0.8e1 * t123995 + t123569 - 0.12e2 * t124001 - t123579 - t123583 - 0.12e2 * t124713;
37415   t125957 = t125876 + t125956;
37416   t125974 = t125957 * t370 * params->d + t123615 + t123618 + t123619 + 0.72e2 * t124026 + 0.24e2 * t124034 + 0.18e2 * t124735 + 0.36e2 * t124744 + 0.12e2 * t125400 + 0.12e2 * t23961 + t5079;
37417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37418     v4sigma4[14] = t125957 * t372 * t7 + t872 * t125974 + 0.4e1 * t1316 * t24582 + 0.4e1 * t24571 * t1320 + 0.6e1 * t5392 * t5399;
37419 
37420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37421     v4sigma3lapl[0] = 0.0e0;
37422 
37423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37424     v4sigma3lapl[1] = 0.0e0;
37425 
37426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37427     v4sigma3lapl[2] = 0.0e0;
37428 
37429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37430     v4sigma3lapl[3] = 0.0e0;
37431 
37432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37433     v4sigma3lapl[4] = 0.0e0;
37434 
37435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37436     v4sigma3lapl[5] = 0.0e0;
37437 
37438   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37439     v4sigma3lapl[6] = 0.0e0;
37440 
37441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37442     v4sigma3lapl[7] = 0.0e0;
37443 
37444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37445     v4sigma3lapl[8] = 0.0e0;
37446 
37447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37448     v4sigma3lapl[9] = 0.0e0;
37449 
37450   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37451     v4sigma3lapl[10] = 0.0e0;
37452 
37453   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37454     v4sigma3lapl[11] = 0.0e0;
37455 
37456   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37457     v4sigma3lapl[12] = 0.0e0;
37458 
37459   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37460     v4sigma3lapl[13] = 0.0e0;
37461 
37462   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37463     v4sigma3lapl[14] = 0.0e0;
37464 
37465   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37466     v4sigma3lapl[15] = 0.0e0;
37467 
37468   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37469     v4sigma3lapl[16] = 0.0e0;
37470 
37471   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37472     v4sigma3lapl[17] = 0.0e0;
37473 
37474   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37475     v4sigma3lapl[18] = 0.0e0;
37476 
37477   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
37478     v4sigma3lapl[19] = 0.0e0;
37479 
37480   t125976 = t3874 * t4926;
37481   t125977 = t125976 * t5045;
37482   t125978 = t108609 * t125977;
37483   t125980 = t400 * t24592;
37484   t125981 = t125980 * t5146;
37485   t125982 = t400 * t24596;
37486   t125983 = t125982 * t5146;
37487   t125986 = t1204 * t4955 * t1326;
37488   t125987 = t3788 * t125986;
37489   t125989 = t1204 * t18210 * t5412;
37490   t125990 = t3788 * t125989;
37491   t125992 = t5044 * t24614;
37492   t125995 = t5044 * t24619;
37493   t125996 = t18055 * t125995;
37494   t125998 = t400 * t24599;
37495   t125999 = t125998 * t5146;
37496   t126000 = t108634 * t23765;
37497   t126002 = t108628 * t23765;
37498   t126005 = t1204 * t4951 * t1326;
37499   t126006 = t3788 * t126005;
37500   t126008 = 0.5e1 / 0.24e2 * t125978 - t125981 - 0.2e1 * t125983 + t125987 + 0.2e1 * t125990 - 0.5e1 / 0.24e2 * t18055 * t125992 - 0.5e1 / 0.24e2 * t125996 - t125999 + 0.5e1 / 0.24e2 * t126000 + 0.5e1 / 0.24e2 * t126002 + 0.2e1 * t126006;
37501   t126010 = t1204 * t1144 * t5412;
37502   t126011 = t3788 * t126010;
37503   t126015 = t4720 * t5412 * t167 * t14483;
37504   t126016 = t126015 * t24588;
37505   t126018 = t6453 * t1329;
37506   t126019 = t227 * t23504;
37507   t126021 = t126019 * t99465 * t23509;
37508   t126025 = 0.6e1 * t24643 * t5028;
37509   t126027 = 0.2e1 * t5427 * t23592;
37510   t126028 = t5097 * t24634;
37511   t126030 = t5097 * t24637;
37512   t126036 = t449 * t5039 * t5412;
37513   t126038 = t5044 * t24610;
37514   t126039 = t18055 * t126038;
37515   t126041 = 0.2e1 * t126011 - 0.2e1 * t126016 - 0.5e1 / 0.96e2 * t126018 * t126021 + t126025 + t126027 - 0.6e1 * t126028 - 0.12e2 * t126030 - 0.2e1 * t449 * t23607 * t1326 - 0.6e1 * t126036 + t23662 - 0.5e1 / 0.24e2 * t126039;
37516   t126044 = t1204 * t99112 * t1326;
37517   t126046 = t14483 * t23593;
37518   t126048 = 0.6e1 * t21244 * t126046;
37519   t126049 = t21257 * t24585;
37520   t126050 = t126049 * t24588;
37521   t126054 = t81 * t4954 * t5412 * t227;
37522   t126055 = 0.6e1 * t126054;
37523   t126057 = t81 * t23640 * t227;
37524   t126058 = 0.6e1 * t126057;
37525   t126060 = 0.4e1 * t5427 * t23599;
37526   t126062 = 0.6e1 * t24643 * t5032;
37527   t126063 = t81 * t24595;
37528   t126065 = 0.12e2 * t126063 * t1193;
37529   t126066 = t5055 * t1193;
37530   t126067 = 0.6e1 * t126066;
37531   t126069 = 0.6e1 * t24640 * t5028;
37532   t126070 = t23510 * t5401;
37533   t126073 = t3788 * t126044 - t126048 - 0.2e1 * t126050 + t126055 + t126058 + t126060 - t126062 + t126065 + t126067 + t126069 + 0.5e1 / 0.96e2 * t23507 * t126070;
37534   t126075 = 0.6e1 * t24640 * t5032;
37535   t126076 = t81 * t24591;
37536   t126077 = t126076 * t1193;
37537   t126078 = 0.6e1 * t126077;
37538   t126079 = t18338 * t25;
37539   t126080 = t126079 * t1205;
37540   t126081 = t24586 * t126080;
37541   t126082 = t18330 * t25;
37542   t126083 = t126082 * t1205;
37543   t126084 = t24586 * t126083;
37544   t126085 = t23823 * t5407;
37545   t126087 = t23823 * t5413;
37546   t126088 = 0.6e1 * t126087;
37547   t126089 = -t126075 + t126078 - t4957 + t24594 + t126081 + t24601 - t23619 - t23625 - t126084 - 0.6e1 * t126085 - t126088 - t24629;
37548   t126091 = t126008 + t126041 + t126073 + t126089;
37549   t126104 = t1336 * t23681;
37550   t126105 = 0.18e2 * t126104;
37551   t126106 = t1219 * t24672;
37552   t126108 = t1219 * t24675;
37553   t126110 = t1219 * t24678;
37554   t126113 = t369 * t5423 * t4954;
37555   t126114 = 0.18e2 * t126113;
37556   t126115 = t5435 * t5074;
37557   t126117 = t24658 * t1221;
37558   t126120 = 0.6e1 * t1336 * t23678;
37559   t126123 = t5070 * t5444;
37560   t126128 = t369 * t5419 * t4954;
37561   t126129 = 0.18e2 * t126128;
37562   t126132 = 0.18e2 * t369 * t4947 * t5412;
37563   t126133 = t5070 * t5441;
37564   t126135 = t5435 * t5077;
37565   t126137 = t126091 * t370 * params->d + 0.3e1 * t23670 * t1338 + t126105 + 0.18e2 * t126106 + 0.36e2 * t126108 + 0.18e2 * t126110 + t126114 + 0.18e2 * t126115 + 0.9e1 * t126117 + t126120 + 0.9e1 * t126123 + t126129 + t126132 + 0.18e2 * t126133 + 0.9e1 * t126135 + t23677 + t23683 + t24665 + t24680 + t5079;
37566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37567     v4sigma3tau[0] = t126091 * t372 * t7 + 0.3e1 * t1217 * t24681 + 0.3e1 * t24650 * t1224 + t872 * t126137 + t1334 * t23684 + t23664 * t1341 + 0.3e1 * t5066 * t5447 + 0.3e1 * t5431 * t5080;
37568 
37569   t126139 = t109237 * t125977;
37570   t126141 = t24693 * t126080;
37571   t126142 = t21257 * t24692;
37572   t126143 = t126142 * t24588;
37573   t126147 = t4720 * t5460 * t167 * t14483;
37574   t126148 = t126147 * t24588;
37575   t126150 = t24693 * t126083;
37576   t126152 = t1204 * t4955 * t1347;
37577   t126153 = t3788 * t126152;
37578   t126155 = t1204 * t4951 * t1347;
37579   t126156 = t3788 * t126155;
37580   t126159 = t1204 * t1144 * t5460;
37581   t126160 = t3788 * t126159;
37582   t126162 = t5044 * t24683;
37583   t126163 = t18055 * t126162;
37584   t126166 = t1204 * t99112 * t1347;
37585   t126168 = 0.5e1 / 0.24e2 * t126139 + t126141 - 0.2e1 * t126143 - 0.2e1 * t126148 - t126150 - t125999 + t126153 + 0.2e1 * t126156 + 0.2e1 * t126160 - 0.5e1 / 0.24e2 * t126163 + t3788 * t126166;
37586   t126169 = t109303 * t23765;
37587   t126172 = t1204 * t18210 * t5460;
37588   t126173 = t3788 * t126172;
37589   t126175 = t5044 * t24687;
37590   t126179 = 0.6e1 * t21426 * t126046;
37591   t126180 = t5044 * t24704;
37592   t126181 = t18055 * t126180;
37593   t126183 = t81 * t24712;
37594   t126184 = t126183 * t1193;
37595   t126185 = 0.6e1 * t126184;
37596   t126186 = t81 * t24716;
37597   t126188 = 0.12e2 * t126186 * t1193;
37598   t126190 = 0.6e1 * t24696 * t5028;
37599   t126191 = t6453 * t1350;
37600   t126195 = 0.6e1 * t24696 * t5032;
37601   t126197 = 0.6e1 * t24699 * t5032;
37602   t126198 = 0.5e1 / 0.24e2 * t126169 + 0.2e1 * t126173 - 0.5e1 / 0.24e2 * t18055 * t126175 - t126179 - 0.5e1 / 0.24e2 * t126181 + t126185 + t126188 + t126190 - 0.5e1 / 0.96e2 * t126191 * t126021 - t126195 - t126197;
37603   t126201 = 0.2e1 * t5475 * t23592;
37604   t126203 = 0.6e1 * t24699 * t5028;
37605   t126204 = t23510 * t5449;
37606   t126208 = 0.4e1 * t5475 * t23599;
37607   t126211 = t81 * t4954 * t5460 * t227;
37608   t126212 = 0.6e1 * t126211;
37609   t126213 = t400 * t24713;
37610   t126214 = t126213 * t5146;
37611   t126215 = t400 * t24717;
37612   t126216 = t126215 * t5146;
37613   t126218 = t109300 * t23765;
37614   t126220 = t126201 + t126203 + 0.5e1 / 0.96e2 * t23507 * t126204 + t126208 + t23662 + t126212 - t126214 - 0.2e1 * t126216 + 0.5e1 / 0.24e2 * t126218 + t126058 + t126067;
37615   t126221 = t23823 * t5461;
37616   t126222 = 0.6e1 * t126221;
37617   t126223 = t5097 * t24735;
37618   t126225 = t5097 * t24732;
37619   t126231 = t449 * t5039 * t5460;
37620   t126233 = t23823 * t5455;
37621   t126235 = -0.2e1 * t1347 * t23607 * t449 - t126222 - 0.12e2 * t126223 - 0.6e1 * t126225 - 0.6e1 * t126231 - 0.6e1 * t126233 - t23619 - t23625 + t24601 + t24715 - t24739 - t4957;
37622   t126237 = t126168 + t126198 + t126220 + t126235;
37623   t126252 = 0.18e2 * t369 * t4947 * t5460;
37624   t126253 = t5483 * t5077;
37625   t126255 = t24752 * t1221;
37626   t126257 = t5070 * t5492;
37627   t126262 = 0.6e1 * t1357 * t23678;
37628   t126265 = t1357 * t23681;
37629   t126266 = 0.18e2 * t126265;
37630   t126267 = t5483 * t5074;
37631   t126270 = t369 * t5471 * t4954;
37632   t126271 = 0.18e2 * t126270;
37633   t126272 = t5070 * t5489;
37634   t126275 = t369 * t5467 * t4954;
37635   t126276 = 0.18e2 * t126275;
37636   t126277 = t1219 * t24766;
37637   t126279 = t1219 * t24769;
37638   t126281 = t1219 * t24772;
37639   t126283 = t126237 * t370 * params->d + 0.3e1 * t23670 * t1359 + t126252 + 0.9e1 * t126253 + 0.9e1 * t126255 + 0.9e1 * t126257 + t126262 + t126266 + 0.18e2 * t126267 + t126271 + 0.18e2 * t126272 + t126276 + 0.18e2 * t126277 + 0.36e2 * t126279 + 0.18e2 * t126281 + t23677 + t23683 + t24759 + t24774 + t5079;
37640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37641     v4sigma3tau[1] = t126237 * t372 * t7 + 0.3e1 * t1217 * t24775 + 0.3e1 * t24744 * t1224 + t872 * t126283 + t1355 * t23684 + t23664 * t1362 + 0.3e1 * t5066 * t5495 + 0.3e1 * t5479 * t5080;
37642 
37643   t126285 = t126015 * t24816;
37644   t126287 = t18569 * t25;
37645   t126288 = t126287 * t1205;
37646   t126289 = t24586 * t126288;
37647   t126291 = t4049 * t4926;
37648   t126292 = t126291 * t5045;
37649   t126295 = t21675 * t24585;
37650   t126296 = t126295 * t24588;
37651   t126300 = t4720 * t5506 * t167 * t14483;
37652   t126301 = t126300 * t24588;
37653   t126304 = 0.4e1 / 0.3e1 * t126049 * t24812;
37654   t126306 = 0.4e1 / 0.3e1 * t126015 * t24812;
37655   t126308 = 0.4e1 / 0.3e1 * t4026 * t126010;
37656   t126311 = t4026 * t125989;
37657   t126314 = t1204 * t1232 * t5412;
37658   t126315 = t3788 * t126314;
37659   t126317 = -0.2e1 / 0.3e1 * t126285 - 0.2e1 / 0.3e1 * t126289 + 0.5e1 / 0.72e2 * t108609 * t126292 - 0.2e1 / 0.3e1 * t126296 - 0.2e1 / 0.3e1 * t126301 + t126304 + t126306 - t126308 - 0.2e1 / 0.3e1 * t4026 * t126044 - 0.4e1 / 0.3e1 * t126311 + 0.2e1 / 0.3e1 * t126315;
37660   t126318 = t5044 * t24790;
37661   t126322 = t1204 * t5107 * t1326;
37662   t126323 = t3788 * t126322;
37663   t126326 = t1204 * t99779 * t1326;
37664   t126327 = t3788 * t126326;
37665   t126330 = t1204 * t18732 * t5412;
37666   t126331 = t3788 * t126330;
37667   t126333 = t5044 * t24794;
37668   t126336 = 0.2e1 / 0.3e1 * t125981;
37669   t126337 = 0.2e1 / 0.3e1 * t125987;
37670   t126338 = t23510 * t4927;
37671   t126339 = t23790 * t126338;
37672   t126343 = t1204 * t1144 * t5506;
37673   t126344 = t3788 * t126343;
37674   t126347 = t1204 * t18210 * t5506;
37675   t126350 = t5044 * t24777;
37676   t126353 = -0.5e1 / 0.72e2 * t18055 * t126318 + 0.2e1 / 0.3e1 * t126323 + 0.2e1 / 0.3e1 * t126327 + 0.2e1 / 0.3e1 * t126331 - 0.5e1 / 0.72e2 * t18055 * t126333 - t126336 + t126337 + 0.5e1 / 0.48e2 * t87029 * t126339 + 0.2e1 / 0.3e1 * t126344 + 0.2e1 / 0.3e1 * t3788 * t126347 - 0.5e1 / 0.72e2 * t18055 * t126350;
37677   t126355 = t400 * t24837;
37678   t126356 = t126355 * t5146;
37679   t126358 = t14483 * t23714;
37680   t126360 = 0.4e1 * t21244 * t126358;
37681   t126361 = t400 * t24840;
37682   t126362 = t126361 * t5146;
37683   t126365 = t100379 * t1327 * t4927;
37684   t126370 = t126082 * t1255;
37685   t126372 = 0.2e1 / 0.3e1 * t24586 * t126370;
37686   t126373 = t126049 * t24816;
37687   t126375 = t126079 * t1255;
37688   t126377 = 0.2e1 / 0.3e1 * t24586 * t126375;
37689   t126378 = t4026 * t125986;
37690   t126379 = 0.2e1 / 0.3e1 * t126378;
37691   t126380 = t4026 * t126005;
37692   t126383 = t1204 * t5100 * t1326;
37693   t126386 = -0.2e1 / 0.3e1 * t126356 + t126360 - 0.2e1 / 0.3e1 * t126362 - 0.5e1 / 0.48e2 * t99743 * t126365 + 0.5e1 / 0.72e2 * t109604 * t23765 + t126372 - 0.2e1 / 0.3e1 * t126373 - t126377 - t126379 - 0.4e1 / 0.3e1 * t126380 + 0.2e1 / 0.3e1 * t3788 * t126383;
37694   t126387 = t125980 * t5510;
37695   t126388 = 0.2e1 / 0.3e1 * t126387;
37696   t126390 = 0.4e1 / 0.3e1 * t125982 * t5510;
37697   t126391 = t125998 * t5510;
37698   t126392 = 0.2e1 / 0.3e1 * t126391;
37699   t126396 = 0.4e1 * t108658 * t24787;
37700   t126398 = 0.4e1 * t108828 * t24787;
37701   t126399 = t14483 * t23711;
37702   t126401 = 0.4e1 * t21244 * t126399;
37703   t126402 = t14483 * t23717;
37704   t126404 = 0.2e1 * t21244 * t126402;
37705   t126407 = t4079 * t1190 * t25 * t1205;
37706   t126408 = t24586 * t126407;
37707   t126411 = t4932 * t18774;
37708   t126412 = t3874 * t5082 * t126411;
37709   t126413 = t108609 * t126412;
37710   t126415 = 0.2e1 / 0.3e1 * t125999;
37711   t126416 = t126388 + t126390 + t126392 + 0.5e1 / 0.72e2 * t109754 * t23765 - t126396 - t126398 - t126401 - t126404 + 0.2e1 / 0.3e1 * t126408 - 0.5e1 / 0.18e2 * t126413 - t126415;
37712   t126420 = t81 * t23772 * t227;
37713   t126421 = 0.2e1 * t126420;
37714   t126424 = t81 * t4954 * t5506 * t227;
37715   t126425 = 0.2e1 * t126424;
37716   t126426 = t23630 * t24808;
37717   t126427 = t5084 * t126426;
37718   t126430 = t18560 * t5407 * t1133;
37719   t126433 = 0.4e1 * t126054;
37720   t126434 = 0.4e1 * t126057;
37721   t126435 = 0.4e1 * t126066;
37722   t126436 = 0.4e1 * t126077;
37723   t126437 = t23729 + t126421 + t126425 + 0.5e1 / 0.18e2 * t126427 + 0.5e1 / 0.18e2 * t5084 * t126430 + t126433 + t126434 + t126435 + t126436 - t4957 + t24594;
37724   t126438 = t81 * t24839;
37725   t126440 = 0.4e1 * t126438 * t1193;
37726   t126441 = t126076 * t1246;
37727   t126442 = 0.2e1 * t126441;
37728   t126444 = 0.4e1 * t126063 * t1246;
37729   t126446 = 0.4e1 * t24640 * t5126;
37730   t126447 = t5055 * t1246;
37731   t126448 = 0.2e1 * t126447;
37732   t126449 = t108628 * t24819;
37733   t126451 = t81 * t24836;
37734   t126453 = 0.4e1 * t126451 * t1193;
37735   t126454 = t5499 * t24637;
37736   t126456 = t24601 - t23796 - t23797 + t126440 + t126442 + t126444 + t126446 + t126448 - 0.5e1 / 0.18e2 * t126449 + t126453 - 0.4e1 * t126454;
37737   t126458 = t23823 * t5502;
37738   t126459 = 0.2e1 * t126458;
37739   t126461 = 0.4e1 * t5097 * t24845;
37740   t126463 = 0.4e1 * t5097 * t24831;
37741   t126466 = 0.2e1 * t449 * t23725 * t1326;
37742   t126469 = 0.4e1 * t449 * t5135 * t5412;
37743   t126470 = t23823 * t5507;
37744   t126471 = 0.2e1 * t126470;
37745   t126472 = t5097 * t24834;
37746   t126477 = 0.2e1 * t24826 * t5028;
37747   t126479 = t18560 * t5413 * t1133;
37748   t126480 = t5084 * t126479;
37749   t126482 = -t126459 - t126461 - t126463 - t126466 - t126469 - t126471 - 0.4e1 * t126472 - 0.2e1 * t5499 * t24634 - t23806 + t126477 + 0.5e1 / 0.18e2 * t126480;
37750   t126483 = t108634 * t24819;
37751   t126486 = 0.2e1 * t5427 * t23710;
37752   t126488 = 0.2e1 * t24822 * t5032;
37753   t126490 = 0.2e1 * t24826 * t5032;
37754   t126492 = 0.2e1 * t24822 * t5028;
37755   t126494 = 0.4e1 * t24643 * t5126;
37756   t126495 = 0.4e1 * t126085;
37757   t126496 = 0.4e1 * t126087;
37758   t126500 = -0.5e1 / 0.18e2 * t126483 + t126486 - t126488 - t126490 + t126492 + t126494 - t23822 - t23825 - t126495 - t126496 - t24629 - 0.2e1 * t449 * t5039 * t5506;
37759   t126503 = t126317 + t126353 + t126386 + t126416 + t126437 + t126456 + t126482 + t126500;
37760   t126520 = 0.12e2 * t126128;
37761   t126521 = t1336 * t23870;
37762   t126522 = 0.6e1 * t126521;
37763   t126524 = t369 * t5517 * t4954;
37764   t126525 = 0.6e1 * t126524;
37765   t126528 = t1219 * t24877;
37766   t126530 = 0.12e2 * t126104;
37767   t126532 = t369 * t24591 * t1231;
37768   t126533 = 0.6e1 * t126532;
37769   t126536 = 0.12e2 * t369 * t24595 * t1231;
37770   t126537 = t5166 * t5441;
37771   t126541 = t5166 * t5444;
37772   t126543 = t24858 * t1221;
37773   t126548 = 0.6e1 * t5528 * t5074;
37774   t126551 = t126503 * t370 * params->d + 0.3e1 * t23853 * t1338 + 0.6e1 * t5070 * t5534 + 0.3e1 * t5070 * t5537 + t126520 + t126522 + t126525 + 0.12e2 * t126528 + t126530 + t126533 + t126536 + 0.12e2 * t126537 + 0.6e1 * t126541 + 0.6e1 * t126543 + t126548 + t23860 + t5079;
37775   t126552 = 0.6e1 * t126135;
37776   t126553 = t1219 * t24882;
37777   t126555 = t1219 * t24874;
37778   t126557 = t5435 * t5172;
37779   t126562 = 0.6e1 * t1267 * t24672;
37780   t126563 = 0.12e2 * t126110;
37781   t126564 = 0.12e2 * t126113;
37782   t126566 = 0.12e2 * t1267 * t24675;
37783   t126567 = t1267 * t24678;
37784   t126568 = 0.6e1 * t126567;
37785   t126569 = t5528 * t5077;
37786   t126570 = 0.3e1 * t126569;
37787   t126572 = 0.6e1 * t1336 * t23866;
37788   t126575 = 0.6e1 * t369 * t4947 * t5506;
37789   t126576 = 0.3e1 * t24658 * t1269 + t126552 + 0.12e2 * t126553 + 0.12e2 * t126555 + 0.12e2 * t126557 + t126562 + t126563 + t126564 + t126566 + t126568 + t126570 + t126572 + t126575 + t23865 + t23869 + t23872 + t24665 + t24680;
37790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37791     v4sigma3tau[2] = t7 * t126503 * t372 + 0.2e1 * t24850 * t1224 + t5524 * t5080 + t24650 * t1272 + 0.2e1 * t5431 * t5175 + t1334 * t23873 + t23845 * t1341 + 0.2e1 * t5162 * t5447 + t1265 * t24681 + t5066 * t5540 + 0.2e1 * t1217 * t24885 + t872 * (t126551 + t126576);
37792 
37793   t126580 = 0.4e1 / 0.3e1 * t126147 * t24812;
37794   t126582 = 0.4e1 * t21426 * t126358;
37795   t126585 = t4026 * t126172;
37796   t126588 = t100379 * t1348 * t4927;
37797   t126591 = t400 * t24958;
37798   t126592 = t126591 * t5146;
37799   t126596 = t400 * t24962;
37800   t126597 = t126596 * t5146;
37801   t126600 = t1204 * t5107 * t1347;
37802   t126601 = t3788 * t126600;
37803   t126604 = t1204 * t99779 * t1347;
37804   t126605 = t3788 * t126604;
37805   t126608 = t1204 * t18732 * t5460;
37806   t126609 = t3788 * t126608;
37807   t126611 = t126580 + t126582 - 0.2e1 / 0.3e1 * t4026 * t126166 - 0.4e1 / 0.3e1 * t126585 - 0.5e1 / 0.48e2 * t99743 * t126588 - 0.2e1 / 0.3e1 * t126592 + 0.5e1 / 0.72e2 * t110338 * t23765 - 0.2e1 / 0.3e1 * t126597 + 0.2e1 / 0.3e1 * t126601 + 0.2e1 / 0.3e1 * t126605 + 0.2e1 / 0.3e1 * t126609;
37808   t126612 = t5044 * t24908;
37809   t126617 = t4026 * t126152;
37810   t126618 = 0.2e1 / 0.3e1 * t126617;
37811   t126619 = t4026 * t126155;
37812   t126622 = 0.4e1 / 0.3e1 * t4026 * t126159;
37813   t126623 = t21675 * t24692;
37814   t126624 = t126623 * t24588;
37815   t126626 = t23630 * t24887;
37816   t126627 = t5084 * t126626;
37817   t126630 = 0.2e1 / 0.3e1 * t24693 * t126375;
37818   t126632 = 0.2e1 / 0.3e1 * t24693 * t126370;
37819   t126633 = -0.5e1 / 0.72e2 * t18055 * t126612 + 0.5e1 / 0.48e2 * t87504 * t126339 - t126618 - 0.4e1 / 0.3e1 * t126619 - t126622 - 0.2e1 / 0.3e1 * t126624 + t126392 - t126415 + 0.5e1 / 0.18e2 * t126627 - t126630 + t126632;
37820   t126635 = t126142 * t24816;
37821   t126637 = t126147 * t24816;
37822   t126639 = t24693 * t126288;
37823   t126645 = t4720 * t5550 * t167 * t14483;
37824   t126646 = t126645 * t24588;
37825   t126649 = 0.4e1 / 0.3e1 * t126142 * t24812;
37826   t126650 = 0.2e1 / 0.3e1 * t126153;
37827   t126651 = 0.4e1 * t126184;
37828   t126652 = t109300 * t24819;
37829   t126654 = t109303 * t24819;
37830   t126656 = -0.2e1 / 0.3e1 * t126635 - 0.2e1 / 0.3e1 * t126637 - 0.2e1 / 0.3e1 * t126639 + 0.5e1 / 0.72e2 * t109237 * t126292 - 0.2e1 / 0.3e1 * t126646 + t126649 + t126650 + t126651 - 0.5e1 / 0.18e2 * t126652 - 0.5e1 / 0.18e2 * t126654 + t23729;
37831   t126657 = t109237 * t126412;
37832   t126659 = t24693 * t126407;
37833   t126661 = 0.4e1 * t126211;
37834   t126662 = 0.2e1 / 0.3e1 * t126214;
37835   t126665 = t81 * t4954 * t5550 * t227;
37836   t126666 = 0.2e1 * t126665;
37837   t126670 = t18560 * t5455 * t1133;
37838   t126674 = t18560 * t5461 * t1133;
37839   t126675 = t5084 * t126674;
37840   t126677 = -0.5e1 / 0.18e2 * t126657 + t126421 + 0.2e1 / 0.3e1 * t126659 + t126661 - t126662 + t126666 + t126434 + t126435 + 0.5e1 / 0.72e2 * t110554 * t23765 + 0.5e1 / 0.18e2 * t5084 * t126670 + 0.5e1 / 0.18e2 * t126675;
37841   t126680 = t5044 * t24927;
37842   t126684 = 0.4e1 * t109283 * t24787;
37843   t126686 = 0.4e1 * t109087 * t24787;
37844   t126688 = 0.4e1 * t21426 * t126399;
37845   t126690 = 0.2e1 * t21426 * t126402;
37846   t126692 = t1204 * t5100 * t1347;
37847   t126696 = t1204 * t1232 * t5460;
37848   t126697 = t3788 * t126696;
37849   t126700 = t1204 * t1144 * t5550;
37850   t126701 = t3788 * t126700;
37851   t126704 = t1204 * t18210 * t5550;
37852   t126707 = t5044 * t24912;
37853   t126710 = -t4957 - 0.5e1 / 0.72e2 * t18055 * t126680 - t126684 - t126686 - t126688 - t126690 + 0.2e1 / 0.3e1 * t3788 * t126692 + 0.2e1 / 0.3e1 * t126697 + 0.2e1 / 0.3e1 * t126701 + 0.2e1 / 0.3e1 * t3788 * t126704 - 0.5e1 / 0.72e2 * t18055 * t126707;
37854   t126711 = t126213 * t5510;
37855   t126712 = 0.2e1 / 0.3e1 * t126711;
37856   t126714 = 0.4e1 / 0.3e1 * t126215 * t5510;
37857   t126716 = 0.2e1 * t5475 * t23710;
37858   t126717 = t23823 * t5551;
37859   t126718 = 0.2e1 * t126717;
37860   t126719 = t5097 * t24905;
37861   t126724 = t81 * t24961;
37862   t126726 = 0.4e1 * t126724 * t1193;
37863   t126728 = 0.2e1 * t24942 * t5028;
37864   t126729 = -0.2e1 * t449 * t5039 * t5550 + t126712 + t126714 + t126716 - t126718 - 0.4e1 * t126719 + t126726 + t126728 - t23796 - t23797 + t24601;
37865   t126732 = 0.2e1 * t24942 * t5032;
37866   t126733 = t126183 * t1246;
37867   t126734 = 0.2e1 * t126733;
37868   t126736 = 0.2e1 * t24939 * t5032;
37869   t126737 = 0.4e1 * t126221;
37870   t126738 = 0.4e1 * t126233;
37871   t126740 = 0.4e1 * t126186 * t1246;
37872   t126742 = 0.4e1 * t24696 * t5126;
37873   t126743 = -t126732 + t126734 + t126448 - t126736 - t23806 - t126737 - t126738 + t126740 + t126742 - t23822 - t23825;
37874   t126745 = 0.4e1 * t24699 * t5126;
37875   t126746 = t81 * t24957;
37876   t126748 = 0.4e1 * t126746 * t1193;
37877   t126750 = 0.2e1 * t24939 * t5028;
37878   t126753 = t5499 * t24735;
37879   t126755 = t23823 * t5546;
37880   t126756 = 0.2e1 * t126755;
37881   t126758 = 0.4e1 * t5097 * t24897;
37882   t126760 = 0.4e1 * t5097 * t24900;
37883   t126763 = 0.2e1 * t449 * t23725 * t1347;
37884   t126766 = 0.4e1 * t449 * t5135 * t5460;
37885   t126767 = -0.2e1 * t5499 * t24732 + t126745 + t126748 + t126750 - 0.4e1 * t126753 - t126756 - t126758 - t126760 - t126763 - t126766 + t24715 - t24739;
37886   t126770 = t126611 + t126633 + t126656 + t126677 + t126710 + t126729 + t126743 + t126767;
37887   t126787 = 0.12e2 * t126270;
37888   t126788 = 0.12e2 * t126281;
37889   t126790 = 0.12e2 * t1267 * t24769;
37890   t126791 = t1267 * t24772;
37891   t126792 = 0.6e1 * t126791;
37892   t126793 = t5483 * t5172;
37893   t126795 = t5166 * t5489;
37894   t126797 = t1219 * t24999;
37895   t126799 = t1357 * t23870;
37896   t126800 = 0.6e1 * t126799;
37897   t126803 = 0.6e1 * t369 * t4947 * t5550;
37898   t126804 = 0.12e2 * t126275;
37899   t126808 = t369 * t24712 * t1231;
37900   t126809 = 0.6e1 * t126808;
37901   t126812 = 0.12e2 * t369 * t24716 * t1231;
37902   t126815 = 0.3e1 * t24752 * t1269 + 0.3e1 * t23853 * t1359 + t126787 + t126788 + t126790 + t126792 + 0.12e2 * t126793 + 0.12e2 * t126795 + 0.12e2 * t126797 + t126800 + t126803 + t126804 + t126809 + t126812 + t23860 + t24759 + t5079;
37903   t126818 = 0.6e1 * t126253;
37904   t126820 = t369 * t5560 * t4954;
37905   t126821 = 0.6e1 * t126820;
37906   t126822 = t1219 * t24994;
37907   t126825 = 0.6e1 * t1357 * t23866;
37908   t126828 = t24975 * t1221;
37909   t126833 = 0.6e1 * t1267 * t24766;
37910   t126834 = 0.12e2 * t126265;
37911   t126836 = 0.6e1 * t5571 * t5074;
37912   t126837 = t5166 * t5492;
37913   t126839 = t1219 * t24991;
37914   t126841 = t5571 * t5077;
37915   t126842 = 0.3e1 * t126841;
37916   t126843 = t126770 * t370 * params->d + 0.6e1 * t5070 * t5577 + 0.3e1 * t5070 * t5580 + t126818 + t126821 + 0.12e2 * t126822 + t126825 + 0.6e1 * t126828 + t126833 + t126834 + t126836 + 0.6e1 * t126837 + 0.12e2 * t126839 + t126842 + t23865 + t23869 + t23872 + t24774;
37917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37918     v4sigma3tau[3] = t7 * t126770 * t372 + 0.2e1 * t24967 * t1224 + t5567 * t5080 + t24744 * t1272 + 0.2e1 * t5479 * t5175 + t1355 * t23873 + t23845 * t1362 + 0.2e1 * t5162 * t5495 + t1265 * t24775 + t5066 * t5583 + 0.2e1 * t1217 * t25002 + t872 * (t126815 + t126843);
37919 
37920   t126846 = t5044 * t25032;
37921   t126849 = t125980 * t5590;
37922   t126850 = t126849 / 0.3e1;
37923   t126851 = t125982 * t5590;
37924   t126853 = t126049 * t25014;
37925   t126855 = t126015 * t25014;
37926   t126859 = t1204 * t18923 * t5412;
37927   t126861 = 0.2e1 / 0.3e1 * t3788 * t126859;
37928   t126863 = t126082 * t1310;
37929   t126864 = t24586 * t126863;
37930   t126866 = t125998 * t5590;
37931   t126867 = t126866 / 0.3e1;
37932   t126868 = t4173 * t125986;
37933   t126869 = t126868 / 0.3e1;
37934   t126871 = 0.2e1 / 0.3e1 * t4173 * t126005;
37935   t126872 = t4173 * t126010;
37936   t126877 = 0.2e1 / 0.3e1 * t4173 * t125989;
37937   t126878 = -0.5e1 / 0.72e2 * t18055 * t126846 - t126850 - 0.2e1 / 0.3e1 * t126851 - 0.2e1 / 0.3e1 * t126853 - 0.2e1 / 0.3e1 * t126855 + 0.5e1 / 0.72e2 * t125978 + t126861 - t126336 - 0.4e1 / 0.3e1 * t125983 + t126337 - t126864 / 0.3e1 - t126867 + t126869 + t126871 + 0.2e1 / 0.3e1 * t126872 + t4173 * t126044 / 0.3e1 + t126877;
37938   t126880 = 0.5e1 / 0.36e2 * t108634 * t25008;
37939   t126882 = 0.5e1 / 0.36e2 * t108628 * t25008;
37940   t126886 = 0.5e1 / 0.36e2 * t5179 * t126479;
37941   t126891 = t126079 * t1310;
37942   t126892 = t24586 * t126891;
37943   t126899 = t23880 + t126880 + t126882 - 0.5e1 / 0.36e2 * t5179 * t126430 - t126886 + 0.2e1 / 0.3e1 * t125990 - 0.5e1 / 0.72e2 * t125996 - t126415 + 0.5e1 / 0.72e2 * t126000 + 0.5e1 / 0.72e2 * t126002 + t126892 / 0.3e1 + 0.2e1 / 0.3e1 * t126006 + 0.4e1 / 0.3e1 * t126011 - 0.4e1 / 0.3e1 * t126016 + t126025 + t126027 - 0.2e1 * t126028 - 0.8e1 * t126030;
37944   t126902 = t23918 * t126338;
37945   t126908 = t1204 * t5192 * t1326;
37946   t126910 = 0.2e1 / 0.3e1 * t3788 * t126908;
37947   t126912 = t1204 * t100610 * t1326;
37948   t126917 = t3874 * t5177;
37949   t126918 = t126917 * t126411;
37950   t126920 = 0.5e1 / 0.36e2 * t108609 * t126918;
37951   t126921 = -0.2e1 * t126036 + t23729 - 0.5e1 / 0.96e2 * t87029 * t126902 + 0.5e1 / 0.96e2 * t24147 * t126365 + t126910 + 0.2e1 / 0.3e1 * t3788 * t126912 - 0.5e1 / 0.72e2 * t126039 - t126048 - 0.4e1 / 0.3e1 * t126050 + t126920 + t126055 + t126058 + t126060 - t126062 + t126065 + t126067 + t126069 - t126075;
37952   t126922 = t5097 * t25018;
37953   t126926 = 0.4e1 * t449 * t5198 * t5412;
37954   t126928 = t23823 * t5587;
37955   t126929 = 0.2e1 * t126928;
37956   t126931 = 0.4e1 * t5097 * t25023;
37957   t126934 = 0.2e1 * t449 * t23916 * t1326;
37958   t126937 = 0.5e1 / 0.36e2 * t5179 * t126426;
37959   t126938 = t126078 - t4957 + t24594 - t23910 - 0.4e1 * t126922 - t126926 + 0.2e1 / 0.3e1 * t126081 + t24601 - t23619 - t23797 - t126929 - t126931 - t126934 - 0.2e1 / 0.3e1 * t126084 - t126495 - t126088 - t24629 - t126937;
37960   t126940 = t126878 + t126899 + t126921 + t126938;
37961   t126959 = 0.12e2 * t5218 * t5441;
37962   t126963 = t1318 * t24675;
37963   t126965 = t1318 * t24678;
37964   t126966 = 0.6e1 * t126965;
37965   t126971 = t126940 * t370 * params->d + 0.12e2 * t126106 + 0.24e2 * t126108 + 0.12e2 * t126115 + 0.3e1 * t126117 + t126120 + 0.3e1 * t126123 + t126129 + t126132 + 0.6e1 * t126133 + t126959 + 0.12e2 * t126963 + t126966 + t5079;
37966   t126973 = 0.6e1 * t25052 * t1221;
37967   t126975 = 0.6e1 * t5218 * t5444;
37968   t126976 = t5598 * t5074;
37969   t126978 = t5598 * t5077;
37970   t126979 = 0.3e1 * t126978;
37971   t126980 = t1318 * t24672;
37972   t126984 = 0.3e1 * t23955 * t1338 + t126105 + t126114 + t126552 + t126563 + t126973 + t126975 + 0.6e1 * t126976 + t126979 + 0.6e1 * t126980 + t23683 + t23865 + t23962 + t24665 + t24680;
37973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
37974     v4sigma3tau[4] = t7 * t126940 * t372 + 0.2e1 * t25044 * t1224 + t5594 * t5080 + t24650 * t1320 + 0.2e1 * t5431 * t5223 + t1334 * t23965 + t23947 * t1341 + 0.2e1 * t5214 * t5447 + t1316 * t24681 + t5066 * t5602 + 0.2e1 * t1217 * t25065 + t872 * (t126971 + t126984);
37975 
37976   t126987 = t24693 * t126891;
37977   t126989 = t126147 * t25014;
37978   t126991 = t24693 * t126863;
37979   t126993 = t126142 * t25014;
37980   t126995 = t4173 * t126152;
37981   t126996 = t126995 / 0.3e1;
37982   t126998 = 0.2e1 / 0.3e1 * t4173 * t126155;
37983   t126999 = t4173 * t126159;
37984   t127004 = 0.2e1 / 0.3e1 * t4173 * t126172;
37985   t127006 = t1204 * t5192 * t1347;
37986   t127008 = 0.2e1 / 0.3e1 * t3788 * t127006;
37987   t127010 = t1204 * t100610 * t1347;
37988   t127013 = t5044 * t25067;
37989   t127016 = t126213 * t5590;
37990   t127017 = t127016 / 0.3e1;
37991   t127018 = t126215 * t5590;
37992   t127023 = t1204 * t18923 * t5460;
37993   t127025 = 0.2e1 / 0.3e1 * t3788 * t127023;
37994   t127028 = t126987 / 0.3e1 - 0.2e1 / 0.3e1 * t126989 - t126991 / 0.3e1 - 0.2e1 / 0.3e1 * t126993 + t126996 + t126998 + 0.2e1 / 0.3e1 * t126999 + t4173 * t126166 / 0.3e1 + t127004 + t127008 + 0.2e1 / 0.3e1 * t3788 * t127010 - 0.5e1 / 0.72e2 * t18055 * t127013 - t127017 - 0.2e1 / 0.3e1 * t127018 - 0.5e1 / 0.96e2 * t87504 * t126902 + t127025 + 0.5e1 / 0.96e2 * t24147 * t126588;
37995   t127040 = 0.5e1 / 0.72e2 * t126139 + 0.2e1 / 0.3e1 * t126141 - 0.4e1 / 0.3e1 * t126143 - 0.4e1 / 0.3e1 * t126148 - 0.2e1 / 0.3e1 * t126150 - t126867 + t23880 - t126415 + t126650 + 0.2e1 / 0.3e1 * t126156 + 0.4e1 / 0.3e1 * t126160 - 0.5e1 / 0.72e2 * t126163 + 0.5e1 / 0.72e2 * t126169 + 0.2e1 / 0.3e1 * t126173 - t126179 - 0.5e1 / 0.72e2 * t126181 + t126185 + t126188;
37996   t127043 = 0.5e1 / 0.36e2 * t109300 * t25008;
37997   t127045 = 0.5e1 / 0.36e2 * t109303 * t25008;
37998   t127049 = 0.5e1 / 0.36e2 * t5179 * t126626;
37999   t127053 = 0.5e1 / 0.36e2 * t5179 * t126674;
38000   t127054 = t126190 - t126195 - t126197 + t126201 + t126203 + t126208 + t127043 + t127045 + t23729 + t126212 - t126662 - 0.4e1 / 0.3e1 * t126216 + 0.5e1 / 0.72e2 * t126218 + t126058 + t126067 - t127049 - 0.5e1 / 0.36e2 * t5179 * t126670 - t127053;
38001   t127056 = 0.5e1 / 0.36e2 * t109237 * t126918;
38002   t127060 = t23823 * t5606;
38003   t127061 = 0.2e1 * t127060;
38004   t127063 = 0.4e1 * t5097 * t25090;
38005   t127064 = t5097 * t25093;
38006   t127068 = 0.2e1 * t449 * t23916 * t1347;
38007   t127071 = 0.4e1 * t449 * t5198 * t5460;
38008   t127072 = t127056 - t4957 - t23910 + t24601 - t23619 - t23797 - t126222 - 0.8e1 * t126223 - 0.2e1 * t126225 - 0.2e1 * t126231 - t126738 + t24715 - t24739 - t127061 - t127063 - 0.4e1 * t127064 - t127068 - t127071;
38009   t127074 = t127028 + t127040 + t127054 + t127072;
38010   t127092 = 0.12e2 * t5218 * t5489;
38011   t127093 = t1318 * t24772;
38012   t127094 = 0.6e1 * t127093;
38013   t127095 = t1318 * t24769;
38014   t127101 = t1318 * t24766;
38015   t127104 = 0.6e1 * t5218 * t5492;
38016   t127105 = t127074 * t370 * params->d + t126262 + t126271 + 0.6e1 * t126272 + t126276 + 0.24e2 * t126279 + t126788 + t127092 + t127094 + 0.12e2 * t127095 + 0.6e1 * t127101 + t127104 + t24759 + t5079;
38017   t127108 = t5616 * t5077;
38018   t127109 = 0.3e1 * t127108;
38019   t127111 = 0.6e1 * t25113 * t1221;
38020   t127112 = t5616 * t5074;
38021   t127118 = 0.3e1 * t23955 * t1359 + t126252 + 0.3e1 * t126255 + 0.3e1 * t126257 + t126266 + 0.12e2 * t126267 + 0.12e2 * t126277 + t126818 + t127109 + t127111 + 0.6e1 * t127112 + t23683 + t23865 + t23962 + t24774;
38022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38023     v4sigma3tau[5] = t7 * t127074 * t372 + 0.2e1 * t25105 * t1224 + t5612 * t5080 + t24744 * t1320 + 0.2e1 * t5479 * t5223 + t1355 * t23965 + t23947 * t1362 + 0.2e1 * t5214 * t5495 + t1316 * t24775 + t5066 * t5620 + 0.2e1 * t1217 * t25126 + t872 * (t127105 + t127118);
38024 
38025   t127121 = t14483 * t24010;
38026   t127123 = 0.4e1 * t21244 * t127121;
38027   t127124 = t14483 * t24013;
38028   t127126 = 0.4e1 * t21244 * t127124;
38029   t127128 = 0.4e1 / 0.3e1 * t126355 * t5510;
38030   t127130 = 0.4e1 / 0.3e1 * t126361 * t5510;
38031   t127132 = t1204 * t101096 * t1326;
38032   t127136 = t1204 * t18732 * t5506;
38033   t127140 = t1204 * t5239 * t1326;
38034   t127143 = t400 * t25166;
38035   t127147 = 0.5e1 / 0.18e2 * t19122 * t126038;
38036   t127151 = 0.5e1 / 0.18e2 * t19122 * t125995;
38037   t127152 = -t127123 + t127126 + t127128 + t127130 + t3788 * t127132 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t127136 + 0.2e1 / 0.3e1 * t3788 * t127140 - 0.2e1 / 0.3e1 * t127143 * t5146 - t127147 - 0.5e1 / 0.18e2 * t19122 * t125992 - t127151;
38038   t127153 = t100379 * t24808;
38039   t127157 = t1204 * t1232 * t5506;
38040   t127160 = t14483 * t24008;
38041   t127162 = 0.2e1 * t21244 * t127160;
38042   t127164 = 0.5e1 / 0.18e2 * t108634 * t25137;
38043   t127166 = 0.5e1 / 0.18e2 * t108628 * t25137;
38044   t127167 = t23510 * t1133;
38045   t127168 = t24028 * t127167;
38046   t127174 = 0.4e1 / 0.3e1 * t4026 * t126314;
38047   t127176 = 0.4e1 / 0.3e1 * t4026 * t126322;
38048   t127178 = 0.4e1 / 0.3e1 * t4026 * t126326;
38049   t127180 = 0.4e1 / 0.3e1 * t4026 * t126330;
38050   t127181 = 0.5e1 / 0.24e2 * t101204 * t127153 + 0.2e1 / 0.3e1 * t3788 * t127157 - t127162 + t127164 + t127166 - 0.5e1 / 0.24e2 * t87029 * t127168 - 0.4e1 / 0.3e1 * t4026 * t126383 - t127174 - t127176 - t127178 - t127180;
38051   t127184 = 0.4e1 / 0.3e1 * t4026 * t126343;
38052   t127188 = 0.4e1 * t109640 * t24787;
38053   t127190 = 0.4e1 * t109649 * t24787;
38054   t127191 = t125981 / 0.3e1;
38055   t127192 = t125987 / 0.3e1;
38056   t127194 = 0.4e1 / 0.3e1 * t126015 * t25128;
38057   t127195 = t126287 * t1255;
38058   t127197 = 0.4e1 / 0.3e1 * t24586 * t127195;
38059   t127202 = t19271 * t25;
38060   t127203 = t127202 * t1205;
38061   t127206 = -t127184 - 0.4e1 / 0.3e1 * t4026 * t126347 - t127188 - t127190 - t127191 + t127192 + t127194 + t127197 - 0.2e1 / 0.3e1 * t126295 * t24816 - 0.2e1 / 0.3e1 * t126300 * t24816 - t24586 * t127203 / 0.3e1;
38062   t127207 = t125976 * t5270;
38063   t127209 = 0.5e1 / 0.18e2 * t108609 * t127207;
38064   t127210 = t19279 * t25;
38065   t127211 = t127210 * t1205;
38066   t127215 = 0.4e1 / 0.3e1 * t126295 * t24812;
38067   t127217 = 0.4e1 / 0.3e1 * t126300 * t24812;
38068   t127218 = 0.4e1 / 0.3e1 * t126378;
38069   t127219 = 0.4e1 / 0.3e1 * t126387;
38070   t127220 = 0.4e1 / 0.3e1 * t126391;
38071   t127221 = t125999 / 0.3e1;
38072   t127223 = t4049 * t5082 * t126411;
38073   t127227 = 0.4e1 / 0.3e1 * t126049 * t25128;
38074   t127228 = t127209 + t24586 * t127211 / 0.3e1 + t127215 + t127217 - t127218 + t127219 + t127220 - t127221 + t23987 - 0.5e1 / 0.18e2 * t108609 * t127223 + t127227;
38075   t127232 = 0.2e1 * t24643 * t5256;
38076   t127234 = 0.2e1 * t5427 * t24007;
38077   t127238 = 0.2e1 * t5097 * t25157;
38078   t127241 = 0.2e1 * t449 * t24022 * t1326;
38079   t127244 = 0.2e1 * t449 * t5267 * t5412;
38080   t127246 = 0.4e1 * t5097 * t25160;
38081   t127249 = 0.4e1 * t449 * t5135 * t5506;
38082   t127251 = 0.4e1 * t5499 * t24845;
38083   t127253 = 0.4e1 * t5499 * t24831;
38084   t127254 = t24353 * t24808;
38085   t127257 = t127232 + t127234 - 0.4e1 * t5499 * t24834 - t127238 - t127241 - t127244 - t127246 - t127249 - t127251 - t127253 + 0.5e1 / 0.18e2 * t5084 * t127254;
38086   t127258 = 0.4e1 * t126420;
38087   t127259 = 0.4e1 * t126424;
38088   t127261 = 0.2e1 * t24643 * t5260;
38089   t127262 = t81 * t25165;
38090   t127264 = 0.4e1 * t127262 * t1193;
38091   t127265 = 0.2e1 * t126054;
38092   t127266 = 0.2e1 * t126057;
38093   t127267 = 0.2e1 * t126066;
38094   t127268 = 0.2e1 * t126077;
38095   t127271 = t127258 + t127259 - t127261 + t127264 + t127265 + t127266 + t127267 + t127268 - t4957 + t24594 - 0.5e1 / 0.18e2 * t109604 * t24819;
38096   t127274 = t18560 * t5502 * t1133;
38097   t127278 = t18560 * t5507 * t1133;
38098   t127282 = 0.4e1 * t126438 * t1246;
38099   t127284 = 0.4e1 * t24826 * t5126;
38100   t127286 = 0.4e1 * t126451 * t1246;
38101   t127288 = 0.4e1 * t24822 * t5126;
38102   t127290 = 0.2e1 * t24640 * t5260;
38103   t127291 = 0.4e1 * t126441;
38104   t127292 = 0.5e1 / 0.18e2 * t5084 * t127274 + 0.5e1 / 0.18e2 * t5084 * t127278 + t127282 + t127284 + t127286 + t127288 - t127290 + t24601 - t24071 - t24072 + t127291;
38105   t127293 = 0.4e1 * t126447;
38106   t127296 = 0.4e1 * t126458;
38107   t127297 = 0.4e1 * t126470;
38108   t127298 = 0.2e1 * t126085;
38109   t127299 = 0.2e1 * t126087;
38110   t127301 = t66 * t73 * t1190;
38111   t127302 = t111533 * t127301;
38112   t127304 = 0.4e1 / 0.3e1 * t24586 * t127302;
38113   t127306 = 0.2e1 * t24640 * t5256;
38114   t127307 = t127293 - 0.5e1 / 0.18e2 * t109754 * t24819 - t127296 - t127297 - t24087 - t24096 - t24097 - t127298 - t127299 - t24629 - t127304 + t127306;
38115   t127310 = t127152 + t127181 + t127206 + t127228 + t127257 + t127271 + t127292 + t127307;
38116   t127330 = 0.12e2 * t1267 * t24874;
38117   t127333 = 0.12e2 * t369 * t24839 * t1231;
38118   t127340 = 0.6e1 * t369 * t5235 * t5412;
38119   t127342 = 0.3e1 * t5290 * t5444;
38120   t127345 = 0.6e1 * t126128;
38121   t127348 = 0.12e2 * t126521;
38122   t127349 = 0.12e2 * t126524;
38123   t127351 = 0.6e1 * t5290 * t5441;
38124   t127355 = 0.12e2 * t5528 * t5172;
38125   t127358 = 0.6e1 * t1219 * t25191 + 0.12e2 * t1219 * t25194 + 0.6e1 * t24858 * t1269 + 0.3e1 * t24110 * t1338 + 0.12e2 * t5166 * t5534 + 0.6e1 * t5166 * t5537 + 0.6e1 * t5435 * t5294 + t127330 + t127333 + t127340 + t127342 + t127345 + t127348 + t127349 + t127351 + t127355 + t5079;
38126   t127360 = 0.6e1 * t1336 * t24121;
38127   t127361 = 0.6e1 * t126104;
38128   t127362 = 0.12e2 * t126532;
38129   t127364 = 0.12e2 * t1267 * t24877;
38130   t127366 = 0.3e1 * t25179 * t1221;
38131   t127369 = 0.3e1 * t126135;
38132   t127370 = 0.6e1 * t126110;
38133   t127371 = 0.6e1 * t126113;
38134   t127372 = 0.12e2 * t126567;
38135   t127373 = 0.6e1 * t126569;
38136   t127375 = 0.12e2 * t1267 * t24882;
38137   t127376 = t127310 * t370 * params->d + t127360 + t127361 + t127362 + t127364 + t127366 + t127369 + t127370 + t127371 + t127372 + t127373 + t127375 + t24118 + t24124 + t24125 + t24126 + t24665 + t24680;
38138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38139     v4sigma3tau[6] = t7 * t127310 * t372 + t25171 * t1224 + 0.2e1 * t24850 * t1272 + 0.2e1 * t5524 * t5175 + t5431 * t5297 + t1334 * t24127 + t24102 * t1341 + t5286 * t5447 + 0.2e1 * t5162 * t5540 + 0.2e1 * t1265 * t24885 + t1217 * t25197 + t872 * (t127358 + t127376);
38140 
38141   t127380 = 0.4e1 / 0.3e1 * t4026 * t126604;
38142   t127382 = 0.4e1 / 0.3e1 * t4026 * t126608;
38143   t127384 = 0.5e1 / 0.18e2 * t19122 * t126180;
38144   t127385 = t100379 * t24887;
38145   t127389 = 0.4e1 * t110289 * t24787;
38146   t127390 = 0.4e1 / 0.3e1 * t126617;
38147   t127394 = 0.4e1 / 0.3e1 * t4026 * t126696;
38148   t127395 = t400 * t25202;
38149   t127398 = -t127380 - t127382 - t127384 + 0.5e1 / 0.24e2 * t101204 * t127385 - t127389 - t127390 - 0.4e1 / 0.3e1 * t4026 * t126692 - t127394 - 0.2e1 / 0.3e1 * t127395 * t5146 + t127220 - t127221;
38150   t127399 = t126153 / 0.3e1;
38151   t127401 = t1204 * t1232 * t5550;
38152   t127405 = t1204 * t101096 * t1347;
38153   t127409 = t1204 * t18732 * t5550;
38154   t127413 = 0.4e1 / 0.3e1 * t126591 * t5510;
38155   t127415 = 0.4e1 / 0.3e1 * t126596 * t5510;
38156   t127417 = 0.5e1 / 0.18e2 * t109300 * t25137;
38157   t127419 = 0.5e1 / 0.18e2 * t109303 * t25137;
38158   t127423 = 0.4e1 * t21426 * t127121;
38159   t127425 = 0.4e1 * t21426 * t127124;
38160   t127426 = t127399 + 0.2e1 / 0.3e1 * t3788 * t127401 + t3788 * t127405 / 0.3e1 + 0.2e1 / 0.3e1 * t3788 * t127409 + t127413 + t127415 + t127417 + t127419 - 0.5e1 / 0.24e2 * t87504 * t127168 - t127423 + t127425;
38161   t127429 = 0.2e1 * t24696 * t5260;
38162   t127431 = 0.2e1 * t24699 * t5260;
38163   t127432 = 0.2e1 * t126184;
38164   t127434 = 0.4e1 / 0.3e1 * t126142 * t25128;
38165   t127436 = 0.4e1 / 0.3e1 * t126147 * t25128;
38166   t127438 = 0.4e1 / 0.3e1 * t24693 * t127195;
38167   t127442 = 0.4e1 / 0.3e1 * t126623 * t24812;
38168   t127444 = 0.4e1 / 0.3e1 * t126645 * t24812;
38169   t127446 = 0.5e1 / 0.18e2 * t109237 * t127207;
38170   t127449 = -t127429 - t127431 + t127432 + t127434 + t127436 + t127438 - 0.2e1 / 0.3e1 * t126623 * t24816 + t127442 + t127444 + t127446 + t24693 * t127211 / 0.3e1;
38171   t127456 = 0.2e1 * t126211;
38172   t127458 = t18560 * t5546 * t1133;
38173   t127466 = 0.2e1 * t5097 * t25209;
38174   t127469 = 0.2e1 * t449 * t24022 * t1347;
38175   t127470 = -0.2e1 / 0.3e1 * t126645 * t24816 - t24693 * t127203 / 0.3e1 + t23987 - 0.5e1 / 0.18e2 * t110554 * t24819 + t127258 + t127456 + 0.5e1 / 0.18e2 * t5084 * t127458 - 0.5e1 / 0.18e2 * t110338 * t24819 - 0.4e1 * t5499 * t24905 - t127466 - t127469;
38176   t127475 = 0.2e1 * t449 * t5267 * t5460;
38177   t127477 = 0.4e1 * t5097 * t25212;
38178   t127480 = 0.4e1 * t449 * t5135 * t5550;
38179   t127481 = t126214 / 0.3e1;
38180   t127482 = 0.4e1 * t126665;
38181   t127484 = 0.4e1 / 0.3e1 * t24693 * t127302;
38182   t127486 = 0.4e1 * t5499 * t24897;
38183   t127488 = 0.4e1 * t5499 * t24900;
38184   t127490 = t18560 * t5551 * t1133;
38185   t127493 = -t127475 - t127477 - t127480 - t127481 + t127482 - t127484 - t127486 - t127488 + t127266 + 0.5e1 / 0.18e2 * t5084 * t127490 + t127267;
38186   t127495 = t1204 * t5239 * t1347;
38187   t127499 = 0.4e1 * t110393 * t24787;
38188   t127501 = 0.2e1 * t21426 * t127160;
38189   t127503 = 0.4e1 / 0.3e1 * t4026 * t126700;
38190   t127507 = 0.5e1 / 0.18e2 * t19122 * t126162;
38191   t127511 = 0.4e1 / 0.3e1 * t4026 * t126600;
38192   t127512 = 0.4e1 / 0.3e1 * t126711;
38193   t127513 = 0.4e1 * t126717;
38194   t127514 = 0.2e1 / 0.3e1 * t3788 * t127495 - t4957 - t127499 - t127501 - t127503 - 0.4e1 / 0.3e1 * t4026 * t126704 - t127507 - 0.5e1 / 0.18e2 * t19122 * t126175 - t127511 + t127512 - t127513;
38195   t127516 = 0.4e1 * t126733;
38196   t127517 = t24353 * t24887;
38197   t127522 = 0.2e1 * t126221;
38198   t127523 = 0.2e1 * t126233;
38199   t127525 = 0.4e1 * t126746 * t1246;
38200   t127526 = t24601 - t24071 - t24072 + t127516 + 0.5e1 / 0.18e2 * t5084 * t127517 + t127293 - 0.5e1 / 0.18e2 * t109237 * t127223 - t24087 - t127522 - t127523 + t127525;
38201   t127528 = 0.4e1 * t24939 * t5126;
38202   t127529 = t81 * t25201;
38203   t127531 = 0.4e1 * t127529 * t1193;
38204   t127533 = 0.2e1 * t24699 * t5256;
38205   t127535 = 0.2e1 * t5475 * t24007;
38206   t127537 = 0.4e1 * t126724 * t1246;
38207   t127539 = 0.4e1 * t24942 * t5126;
38208   t127541 = 0.2e1 * t24696 * t5256;
38209   t127542 = 0.4e1 * t126755;
38210   t127543 = t127528 + t127531 + t127533 + t127535 + t127537 + t127539 + t127541 - t24096 - t24097 + t24715 - t24739 - t127542;
38211   t127546 = t127398 + t127426 + t127449 + t127470 + t127493 + t127514 + t127526 + t127543;
38212   t127567 = 0.6e1 * t369 * t5235 * t5460;
38213   t127568 = 0.6e1 * t126270;
38214   t127569 = 0.6e1 * t126281;
38215   t127570 = 0.12e2 * t126791;
38216   t127571 = 0.12e2 * t126799;
38217   t127577 = 0.3e1 * t25248 * t1221;
38218   t127578 = 0.6e1 * t126275;
38219   t127581 = 0.12e2 * t126808;
38220   t127582 = 0.3e1 * t126253;
38221   t127583 = 0.12e2 * t126820;
38222   t127584 = 0.6e1 * t1219 * t25260 + 0.6e1 * t24975 * t1269 + 0.12e2 * t5166 * t5577 + 0.6e1 * t5166 * t5580 + t127567 + t127568 + t127569 + t127570 + t127571 + t127577 + t127578 + t127581 + t127582 + t127583 + t24118 + t24759 + t5079;
38223   t127586 = 0.6e1 * t5290 * t5489;
38224   t127590 = 0.6e1 * t1357 * t24121;
38225   t127592 = 0.3e1 * t5290 * t5492;
38226   t127594 = 0.12e2 * t5571 * t5172;
38227   t127596 = 0.12e2 * t1267 * t24994;
38228   t127599 = 0.6e1 * t126265;
38229   t127602 = 0.12e2 * t369 * t24961 * t1231;
38230   t127604 = 0.12e2 * t1267 * t24999;
38231   t127608 = 0.12e2 * t1267 * t24991;
38232   t127609 = 0.6e1 * t126841;
38233   t127612 = t127546 * t370 * params->d + 0.12e2 * t1219 * t25263 + 0.3e1 * t24110 * t1359 + 0.6e1 * t5483 * t5294 + t127586 + t127590 + t127592 + t127594 + t127596 + t127599 + t127602 + t127604 + t127608 + t127609 + t24124 + t24125 + t24126 + t24774;
38234   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38235     v4sigma3tau[7] = t7 * t127546 * t372 + t25240 * t1224 + 0.2e1 * t24967 * t1272 + 0.2e1 * t5567 * t5175 + t5479 * t5297 + t1355 * t24127 + t24102 * t1362 + t5286 * t5495 + 0.2e1 * t5162 * t5583 + 0.2e1 * t1265 * t25002 + t1217 * t25266 + t872 * (t127584 + t127612);
38236 
38237   t127624 = t126049 * t25294;
38238   t127626 = t126015 * t25294;
38239   t127628 = -t126285 / 0.3e1 - t126289 / 0.3e1 - t126296 / 0.3e1 - t126301 / 0.3e1 + t126304 + t126306 - t126308 - 0.2e1 / 0.3e1 * t126311 - t126850 + t126315 / 0.3e1 + t126323 / 0.3e1 + t126327 / 0.3e1 + t126331 / 0.3e1 - t127624 / 0.3e1 - t127626 / 0.3e1;
38240   t127629 = t126287 * t1310;
38241   t127630 = t24586 * t127629;
38242   t127637 = -t127630 / 0.3e1 - t127191 + t127192 + t126344 / 0.3e1 - t126356 / 0.3e1 + t126360 - t126362 / 0.3e1 + t126372 - t126373 / 0.3e1 - t126377 - t126379 - 0.2e1 / 0.3e1 * t126380 - t126867 + t126869 + t126388;
38243   t127639 = t108628 * t25280;
38244   t127642 = t5179 * t23630 * t25283;
38245   t127650 = t5179 * t18560 * t5413 * t57;
38246   t127659 = t18560 * t5587 * t1133;
38247   t127662 = t126390 + t126392 - t126396 - t126398 - t126401 - t126404 - 0.5e1 / 0.36e2 * t127639 + 0.5e1 / 0.36e2 * t127642 + 0.5e1 / 0.36e2 * t5179 * t18560 * t5407 * t57 + 0.5e1 / 0.36e2 * t127650 - 0.5e1 / 0.48e2 * t24147 * t101836 * t112145 * t1133 + t23880 + t126408 / 0.3e1 - 0.5e1 / 0.36e2 * t126413 + 0.5e1 / 0.36e2 * t5084 * t127659;
38248   t127663 = t4049 * t5177;
38249   t127664 = t127663 * t126411;
38250   t127669 = t4173 * t126314;
38251   t127671 = t4173 * t126322;
38252   t127673 = t4173 * t126326;
38253   t127675 = t4173 * t126330;
38254   t127677 = t4932 * t19430;
38255   t127678 = t126917 * t127677;
38256   t127679 = t108609 * t127678;
38257   t127681 = t112181 * t127301;
38258   t127682 = t24586 * t127681;
38259   t127685 = t1204 * t18923 * t5506;
38260   t127688 = t4173 * t126343;
38261   t127692 = t4026 * t126908;
38262   t127696 = -t127221 + 0.5e1 / 0.72e2 * t108609 * t127664 + t4173 * t126383 / 0.3e1 + t127669 / 0.3e1 + t127671 / 0.3e1 + t127673 / 0.3e1 + t127675 / 0.3e1 - 0.5e1 / 0.36e2 * t127679 + t127682 / 0.3e1 + t23987 + t3788 * t127685 / 0.3e1 + t127688 / 0.3e1 + t4173 * t126347 / 0.3e1 - 0.2e1 / 0.3e1 * t127692 - 0.2e1 / 0.3e1 * t4026 * t126912;
38263   t127699 = t4026 * t126859;
38264   t127708 = t126295 * t25014;
38265   t127710 = t126300 * t25014;
38266   t127712 = t108634 * t25280;
38267   t127714 = -0.2e1 / 0.3e1 * t127699 - 0.5e1 / 0.72e2 * t5179 * t127274 + t126421 + t126425 + 0.5e1 / 0.36e2 * t126427 + 0.5e1 / 0.72e2 * t109604 * t25008 + 0.5e1 / 0.72e2 * t109754 * t25008 + t126433 + t126434 + t126435 + t126436 - t127708 / 0.3e1 - t127710 / 0.3e1 - 0.5e1 / 0.36e2 * t127712 - t4957;
38268   t127716 = t1204 * t5309 * t1326;
38269   t127719 = t126355 * t5590;
38270   t127721 = t126361 * t5590;
38271   t127725 = t5499 * t25018;
38272   t127727 = t5097 * t25299;
38273   t127732 = t24146 * t24169;
38274   t127737 = t3788 * t127716 / 0.3e1 - t127719 / 0.3e1 - t127721 / 0.3e1 + t24594 - t23910 - 0.2e1 * t5499 * t25023 - 0.2e1 * t127725 - 0.2e1 * t127727 - 0.2e1 * t449 * t5198 * t5506 + 0.5e1 / 0.48e2 * t87029 * t127732 - 0.5e1 / 0.72e2 * t5179 * t127254 + t24601 - t23796 - t24072 + t126440;
38275   t127742 = t126442 + t126444 + t126446 + t126448 - 0.5e1 / 0.36e2 * t126449 - t126929 + t126453 - 0.2e1 * t126454 - t126459 - t126461 - t126463 - t126466 - t126469 - t126471 - 0.2e1 * t126472;
38276   t127747 = -t23806 + t126477 + 0.5e1 / 0.36e2 * t126480 - 0.5e1 / 0.36e2 * t126483 + t126486 - t126488 - t126490 + t126492 + t126494 - 0.5e1 / 0.72e2 * t5179 * t127278 - t23822 - t23825 - t127298 - t126496 - t24629;
38277   t127750 = t127628 + t127637 + t127662 + t127696 + t127714 + t127737 + t127742 + t127747;
38278   t127771 = t25317 * t1221;
38279   t127776 = 0.3e1 * t25052 * t1269 + 0.3e1 * t24217 * t1338 + 0.3e1 * t5218 * t5537 + t126520 + t126522 + t126525 + 0.6e1 * t126528 + t126530 + t126966 + 0.3e1 * t127771 + t5079;
38280   t127780 = t5327 * t5444;
38281   t127782 = t1318 * t24882;
38282   t127784 = t1318 * t24874;
38283   t127786 = t1318 * t24877;
38284   t127788 = t126533 + t126536 + 0.6e1 * t126537 + 0.3e1 * t126541 + 0.3e1 * t126543 + t23860 + 0.3e1 * t127780 + 0.6e1 * t127782 + 0.6e1 * t127784 + 0.6e1 * t127786 + t126979;
38285   t127792 = t5598 * t5172;
38286   t127797 = 0.6e1 * t5218 * t5534 + t126548 + 0.6e1 * t126553 + 0.6e1 * t126555 + 0.6e1 * t126557 + t126562 + t127369 + t127370 + 0.6e1 * t127792 + t23872 + t23962;
38287   t127800 = t5327 * t5441;
38288   t127802 = t127750 * t370 * params->d + t126564 + t126566 + t126568 + t126570 + t126572 + t126575 + 0.6e1 * t127800 + t23869 + t24125 + t24665 + t24680;
38289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38290     v4sigma3tau[8] = t7 * t127750 * t372 + t25309 * t1224 + t25044 * t1272 + t5594 * t5175 + t24850 * t1320 + t5524 * t5223 + t5431 * t5331 + t1334 * t24227 + t24209 * t1341 + t5323 * t5447 + t5214 * t5540 + t1316 * t24885 + t5162 * t5602 + t1265 * t25065 + t1217 * t25327 + t872 * (t127776 + t127788 + t127797 + t127802);
38291 
38292   t127808 = t4026 * t127023;
38293   t127810 = t4173 * t126600;
38294   t127812 = t4173 * t126604;
38295   t127814 = t4173 * t126608;
38296   t127816 = t126591 * t5590;
38297   t127818 = t126596 * t5590;
38298   t127824 = t126580 + t126996 - t127017 - 0.2e1 / 0.3e1 * t4026 * t127010 - 0.2e1 / 0.3e1 * t127808 + t127810 / 0.3e1 + t127812 / 0.3e1 + t127814 / 0.3e1 - t127816 / 0.3e1 - t127818 / 0.3e1 + t126582 - 0.2e1 / 0.3e1 * t126585 - t126592 / 0.3e1 - t126597 / 0.3e1 + t126601 / 0.3e1;
38299   t127829 = t109300 * t25280;
38300   t127831 = t109303 * t25280;
38301   t127838 = t126605 / 0.3e1 + t126609 / 0.3e1 - t126618 - 0.2e1 / 0.3e1 * t126619 - t126622 - t126624 / 0.3e1 - t126867 + t126392 + t23880 - t127221 - 0.5e1 / 0.36e2 * t127829 - 0.5e1 / 0.36e2 * t127831 + 0.5e1 / 0.48e2 * t87504 * t127732 + 0.5e1 / 0.72e2 * t110338 * t25008 + 0.5e1 / 0.36e2 * t126627;
38302   t127844 = t4173 * t126700;
38303   t127848 = t4026 * t127006;
38304   t127850 = t126147 * t25294;
38305   t127852 = t24693 * t127629;
38306   t127854 = t126142 * t25294;
38307   t127856 = t126623 * t25014;
38308   t127858 = t126645 * t25014;
38309   t127860 = -t126630 + t126632 - t126635 / 0.3e1 - t126637 / 0.3e1 - t126639 / 0.3e1 - t126646 / 0.3e1 + t126649 + t127844 / 0.3e1 + t4173 * t126704 / 0.3e1 - 0.2e1 / 0.3e1 * t127848 - t127850 / 0.3e1 - t127852 / 0.3e1 - t127854 / 0.3e1 - t127856 / 0.3e1 - t127858 / 0.3e1;
38310   t127862 = t1204 * t5309 * t1347;
38311   t127866 = t1204 * t18923 * t5550;
38312   t127871 = t4173 * t126696;
38313   t127886 = t5179 * t18560 * t5461 * t57;
38314   t127892 = t127399 + t3788 * t127862 / 0.3e1 + t3788 * t127866 / 0.3e1 + t4173 * t126692 / 0.3e1 + t127871 / 0.3e1 + t126651 - 0.5e1 / 0.36e2 * t126652 - 0.5e1 / 0.36e2 * t126654 + t23987 - 0.5e1 / 0.36e2 * t126657 + 0.5e1 / 0.72e2 * t110554 * t25008 - 0.5e1 / 0.72e2 * t5179 * t127517 + 0.5e1 / 0.36e2 * t5179 * t18560 * t5455 * t57 + 0.5e1 / 0.36e2 * t127886 - 0.5e1 / 0.48e2 * t24147 * t101836 * t112491 * t1133;
38315   t127900 = t5499 * t25093;
38316   t127902 = t5097 * t25343;
38317   t127908 = t5179 * t23630 * t25348;
38318   t127910 = t109237 * t127678;
38319   t127913 = -0.5e1 / 0.72e2 * t5179 * t127490 + t126421 + t126659 / 0.3e1 + t126661 - t127481 + t126666 - 0.2e1 * t5499 * t25090 - 0.2e1 * t127900 - 0.2e1 * t127902 - 0.2e1 * t449 * t5198 * t5550 + 0.5e1 / 0.36e2 * t127908 + t126434 + t126435 - 0.5e1 / 0.36e2 * t127910 + 0.5e1 / 0.36e2 * t126675;
38320   t127919 = -t4957 - t23910 - t126684 - t126686 - t126688 - t126690 + t126697 / 0.3e1 + t126701 / 0.3e1 + t126712 + t126714 + t126716 - t126718 - 0.2e1 * t126719 - 0.5e1 / 0.72e2 * t5179 * t127458 + t24601;
38321   t127921 = t126726 + t126728 - t23796 - t24072 - t126732 + t126734 + t126448 - t126736 - t23806 - t126737 - t127523 + t126740 + t126742 - t23822 - t23825;
38322   t127923 = t18560 * t5606 * t1133;
38323   t127927 = t24693 * t127681;
38324   t127931 = t24715 + t126745 + t126748 + t126750 - t24739 - t127061 + 0.5e1 / 0.36e2 * t5084 * t127923 - 0.2e1 * t126753 - t126756 - t126758 - t126760 - t126763 - t126766 + t127927 / 0.3e1 + 0.5e1 / 0.72e2 * t109237 * t127664;
38325   t127934 = t127824 + t127838 + t127860 + t127892 + t127913 + t127919 + t127921 + t127931;
38326   t127951 = t25365 * t1221;
38327   t127955 = t5327 * t5492;
38328   t127960 = t127934 * t370 * params->d + 0.3e1 * t24217 * t1359 + t126787 + t126790 + t126792 + 0.6e1 * t126793 + t127094 + t127569 + 0.3e1 * t127951 + 0.3e1 * t127955 + t5079;
38329   t127965 = 0.3e1 * t25113 * t1269 + 0.6e1 * t126795 + 0.6e1 * t126797 + t126800 + t126803 + t126804 + t126809 + t126812 + t127109 + t23860 + t24759;
38330   t127971 = 0.3e1 * t5218 * t5580 + t126821 + 0.6e1 * t126822 + t126825 + 0.3e1 * t126828 + t126833 + t126834 + t126836 + t127582 + t23962 + t24774;
38331   t127974 = t1318 * t24991;
38332   t127976 = t1318 * t24994;
38333   t127978 = t5616 * t5172;
38334   t127980 = t5327 * t5489;
38335   t127984 = t1318 * t24999;
38336   t127986 = 0.6e1 * t5218 * t5577 + 0.3e1 * t126837 + 0.6e1 * t126839 + t126842 + 0.6e1 * t127974 + 0.6e1 * t127976 + 0.6e1 * t127978 + 0.6e1 * t127980 + 0.6e1 * t127984 + t23869 + t23872 + t24125;
38337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38338     v4sigma3tau[9] = t7 * t127934 * t372 + t25357 * t1224 + t25105 * t1272 + t5612 * t5175 + t24967 * t1320 + t5567 * t5223 + t5479 * t5331 + t1355 * t24227 + t24209 * t1362 + t5323 * t5495 + t5214 * t5583 + t1316 * t25002 + t5162 * t5620 + t1265 * t25126 + t1217 * t25375 + t872 * (t127960 + t127965 + t127971 + t127986);
38339 
38340   t127990 = 0.2e1 / 0.3e1 * t126849;
38341   t127993 = t1204 * t102386 * t1326;
38342   t127998 = t4173 * t126859;
38343   t128002 = t125976 * t5384;
38344   t128003 = t108609 * t128002;
38345   t128005 = t4173 * t126908;
38346   t128007 = t108634 * t25377;
38347   t128009 = t108628 * t25377;
38348   t128011 = t24258 * t127167;
38349   t128014 = t19532 * t126038;
38350   t128018 = t19532 * t125995;
38351   t128022 = -t127990 - 0.4e1 / 0.3e1 * t126851 + t3788 * t127993 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t126912 + 0.2e1 / 0.3e1 * t127998 - 0.4e1 / 0.3e1 * t126853 - 0.4e1 / 0.3e1 * t126855 + 0.5e1 / 0.72e2 * t128003 + t126861 + 0.2e1 / 0.3e1 * t128005 + 0.5e1 / 0.72e2 * t128007 + 0.5e1 / 0.72e2 * t128009 - 0.5e1 / 0.96e2 * t87029 * t128011 - 0.5e1 / 0.72e2 * t128014 - 0.5e1 / 0.72e2 * t19532 * t125992 - 0.5e1 / 0.72e2 * t128018 + 0.5e1 / 0.96e2 * t102352 * t127153;
38352   t128025 = 0.2e1 / 0.3e1 * t126866;
38353   t128026 = 0.2e1 / 0.3e1 * t126868;
38354   t128031 = -t127191 - 0.2e1 / 0.3e1 * t125983 + t127192 - 0.2e1 / 0.3e1 * t126864 - t128025 + t128026 + t126871 + 0.4e1 / 0.3e1 * t126872 + t126877 + t24229 + t126880 + t126882 - t126886 - t127221 + 0.2e1 / 0.3e1 * t126892 + 0.2e1 / 0.3e1 * t126011 - 0.2e1 / 0.3e1 * t126016 + t126025;
38355   t128034 = t5097 * t25383;
38356   t128037 = t449 * t5381 * t5412;
38357   t128042 = t126027 - 0.4e1 * t126030 - 0.2e1 * t128034 - 0.2e1 * t128037 + t23987 + t126910 - t126048 - 0.2e1 / 0.3e1 * t126050 + t126920 + t126055 + t126058 - 0.5e1 / 0.36e2 * t5179 * t127659 + t126060 - t126062 + t126065 + t126067 + t126069 - t126075;
38358   t128045 = 0.4e1 * t126928;
38359   t128047 = t126078 - t4957 + t24594 - t24249 - 0.8e1 * t126922 - t126926 + t126081 / 0.3e1 + t24601 - t23619 - t24072 - t128045 - t126931 - t126934 - t126084 / 0.3e1 - t127298 - t126088 - t24629 - t126937;
38360   t128049 = t128022 + t128031 + t128042 + t128047;
38361   t128067 = t25405 * t1221;
38362   t128070 = 0.12e2 * t126965;
38363   t128073 = t5396 * t5441;
38364   t128075 = t5396 * t5444;
38365   t128077 = 0.6e1 * t126115 + t126132 + 0.3e1 * t128067 + t126959 + 0.24e2 * t126963 + t128070 + 0.6e1 * t126106 + t126120 + t126129 + 0.12e2 * t126108 + t5079 + 0.6e1 * t128073 + t126105 + 0.3e1 * t128075;
38366   t128081 = 0.6e1 * t126978;
38367   t128085 = t128049 * t370 * params->d + 0.3e1 * t24284 * t1338 + t126114 + t126973 + t126975 + 0.12e2 * t126976 + 0.12e2 * t126980 + t127369 + t127370 + t128081 + t23683 + t24125 + t24289 + t24665 + t24680;
38368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38369     v4sigma3tau[10] = t7 * t128049 * t372 + t25397 * t1224 + 0.2e1 * t25044 * t1320 + 0.2e1 * t5594 * t5223 + t5431 * t5399 + t1334 * t24291 + t24276 * t1341 + t5392 * t5447 + 0.2e1 * t5214 * t5602 + 0.2e1 * t1316 * t25065 + t1217 * t25412 + t872 * (t128077 + t128085);
38370 
38371   t128093 = t1204 * t102386 * t1347;
38372   t128096 = 0.2e1 / 0.3e1 * t126995;
38373   t128098 = 0.2e1 / 0.3e1 * t127016;
38374   t128104 = 0.2e1 / 0.3e1 * t126987 - 0.4e1 / 0.3e1 * t126989 - 0.2e1 / 0.3e1 * t126991 - 0.4e1 / 0.3e1 * t126993 + t3788 * t128093 / 0.3e1 + t128096 + t126998 + 0.4e1 / 0.3e1 * t126999 + t127004 + t127008 - t128098 - 0.4e1 / 0.3e1 * t127018 + t127025 + t126141 / 0.3e1 - 0.2e1 / 0.3e1 * t126143 - 0.2e1 / 0.3e1 * t126148 - t126150 / 0.3e1;
38375   t128106 = t5097 * t25414;
38376   t128109 = t449 * t5381 * t5460;
38377   t128111 = t109237 * t128002;
38378   t128113 = -t128025 + t24229 - t127221 + t127399 + 0.2e1 / 0.3e1 * t126160 - t126179 - 0.2e1 * t128106 - 0.2e1 * t128109 + t126185 + t126188 + t126190 - t126195 - t126197 + t126201 + t126203 + t126208 + 0.5e1 / 0.72e2 * t128111 + t127043;
38379   t128115 = t4173 * t127006;
38380   t128119 = t4173 * t127023;
38381   t128121 = t19532 * t126162;
38382   t128125 = t19532 * t126180;
38383   t128128 = t127045 + t23987 + 0.2e1 / 0.3e1 * t128115 + 0.2e1 / 0.3e1 * t4173 * t127010 + 0.2e1 / 0.3e1 * t128119 - 0.5e1 / 0.72e2 * t128121 - 0.5e1 / 0.72e2 * t19532 * t126175 - 0.5e1 / 0.72e2 * t128125 + t126212 - t127481 - 0.2e1 / 0.3e1 * t126216 + t126058 + t126067 - t127049 - t127053 + t127056 - t4957 - t24249;
38384   t128131 = t109300 * t25377;
38385   t128133 = t109303 * t25377;
38386   t128138 = 0.4e1 * t127060;
38387   t128142 = t24601 - t23619 - t24072 + 0.5e1 / 0.96e2 * t102352 * t127385 + 0.5e1 / 0.72e2 * t128131 + 0.5e1 / 0.72e2 * t128133 - 0.5e1 / 0.96e2 * t87504 * t128011 - t126222 - 0.4e1 * t126223 - t127523 + t24715 - t24739 - t128138 - t127063 - 0.8e1 * t127064 - t127068 - t127071 - 0.5e1 / 0.36e2 * t5179 * t127923;
38388   t128144 = t128104 + t128113 + t128128 + t128142;
38389   t128161 = 0.12e2 * t127093;
38390   t128167 = t5396 * t5492;
38391   t128170 = t25441 * t1221;
38392   t128173 = t128144 * t370 * params->d + 0.3e1 * t24284 * t1359 + t126271 + t126276 + 0.12e2 * t126279 + t127092 + 0.24e2 * t127095 + 0.12e2 * t127101 + t127104 + t127569 + t128161 + 0.3e1 * t128167 + 0.3e1 * t128170 + t5079;
38393   t128174 = 0.6e1 * t127108;
38394   t128176 = t5396 * t5489;
38395   t128180 = t126262 + t24759 + t128174 + t127111 + t127582 + t126252 + 0.12e2 * t127112 + 0.6e1 * t128176 + t24289 + 0.6e1 * t126277 + t126266 + t24774 + 0.6e1 * t126267 + t24125 + t23683;
38396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38397     v4sigma3tau[11] = t7 * t128144 * t372 + t25433 * t1224 + 0.2e1 * t25105 * t1320 + 0.2e1 * t5612 * t5223 + t5479 * t5399 + t1355 * t24291 + t24276 * t1362 + t5392 * t5495 + 0.2e1 * t5214 * t5620 + 0.2e1 * t1316 * t25126 + t1217 * t25448 + t872 * (t128173 + t128180);
38398 
38399   t128187 = 0.2e1 * t126391;
38400   t128190 = t127202 * t1255;
38401   t128193 = t126291 * t5270;
38402   t128198 = t127210 * t1255;
38403   t128201 = 0.6e1 * t126420;
38404   t128203 = -0.2e1 * t4026 * t127132 - 0.2e1 * t126378 + 0.2e1 * t126387 + t128187 + 0.4e1 * t126295 * t25128 + 0.2e1 * t24586 * t128190 + 0.5e1 / 0.6e1 * t108609 * t128193 + 0.4e1 * t126300 * t25128 - 0.2e1 * t24586 * t128198 + t128201 + 0.6e1 * t126424;
38405   t128226 = -0.12e2 * t5499 * t25160 - 0.6e1 * t5499 * t25157 - 0.2e1 * t449 * t24341 * t1326 - 0.6e1 * t449 * t5267 * t5506 - t4957 - 0.4e1 * t4026 * t127136 - 0.5e1 / 0.6e1 * t19122 * t126333 - 0.5e1 / 0.6e1 * t19122 * t126350 + 0.4e1 * t127143 * t5510 + 0.5e1 / 0.6e1 * t109604 * t25137 + 0.5e1 / 0.6e1 * t109754 * t25137;
38406   t128228 = t14483 * t24327;
38407   t128240 = 0.6e1 * t126447;
38408   t128243 = -0.6e1 * t21244 * t128228 - 0.4e1 * t4026 * t127140 - 0.4e1 * t4026 * t127157 - 0.5e1 / 0.6e1 * t19122 * t126318 + t24594 + t24601 + 0.2e1 * t5427 * t24326 + 0.6e1 * t126441 + t128240 - 0.6e1 * t126458 - 0.6e1 * t126470;
38409   t128249 = t126019 * t102932 * t23509;
38410   t128262 = -t24325 + 0.4e1 * t5427 * t24333 - 0.6e1 * t24826 * t5260 + 0.5e1 / 0.12e2 * t126018 * t128249 - 0.5e1 / 0.12e2 * t24316 * t126070 + 0.12e2 * t127262 * t1246 + 0.6e1 * t24822 * t5256 - 0.6e1 * t24822 * t5260 - t24349 - t24369 - t24629 + 0.6e1 * t24826 * t5256;
38411   t128264 = t128203 + t128226 + t128243 + t128262;
38412   t128303 = t128264 * t370 * params->d + 0.18e2 * t369 * t5235 * t5506 + 0.18e2 * t1267 * t25191 + 0.36e2 * t1267 * t25194 + 0.9e1 * t25179 * t1269 + 0.6e1 * t1336 * t24384 + 0.3e1 * t24377 * t1338 + 0.18e2 * t5290 * t5534 + 0.9e1 * t5290 * t5537 + 0.18e2 * t5528 * t5294 + 0.18e2 * t126521 + 0.18e2 * t126524 + 0.18e2 * t126532 + 0.18e2 * t126567 + 0.9e1 * t126569 + t24383 + t24387 + t24665 + t24680 + t5079;
38413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38414     v4sigma3tau[12] = t128264 * t372 * t7 + 0.3e1 * t1265 * t25197 + 0.3e1 * t25171 * t1272 + t872 * t128303 + t1334 * t24388 + t24371 * t1341 + 0.3e1 * t5286 * t5540 + 0.3e1 * t5524 * t5297;
38415 
38416   t128324 = -0.6e1 * t21426 * t128228 - 0.2e1 * t4026 * t127405 - 0.4e1 * t4026 * t127409 + 0.4e1 * t127395 * t5510 - 0.4e1 * t4026 * t127495 - 0.2e1 * t126617 + t128187 - 0.4e1 * t4026 * t127401 - 0.5e1 / 0.6e1 * t19122 * t126707 - 0.5e1 / 0.6e1 * t19122 * t126680 - 0.5e1 / 0.6e1 * t19122 * t126612;
38417   t128349 = 0.5e1 / 0.6e1 * t110338 * t25137 + 0.5e1 / 0.6e1 * t110554 * t25137 - 0.2e1 * t24693 * t128198 + 0.4e1 * t126623 * t25128 + 0.4e1 * t126645 * t25128 + 0.2e1 * t24693 * t128190 + 0.5e1 / 0.6e1 * t109237 * t128193 - 0.6e1 * t5499 * t25209 - 0.12e2 * t5499 * t25212 - 0.2e1 * t449 * t24341 * t1347 - 0.6e1 * t449 * t5267 * t5550;
38418   t128361 = t128201 + 0.6e1 * t126665 - t4957 + 0.12e2 * t127529 * t1246 - 0.5e1 / 0.12e2 * t24316 * t126204 + 0.2e1 * t126711 - 0.6e1 * t126717 + t24601 + 0.6e1 * t126733 + t128240 - 0.6e1 * t24939 * t5260;
38419   t128375 = -0.6e1 * t24942 * t5260 + 0.4e1 * t5475 * t24333 + 0.6e1 * t24942 * t5256 + 0.6e1 * t24939 * t5256 + 0.2e1 * t5475 * t24326 + 0.5e1 / 0.12e2 * t126191 * t128249 - t24325 - t24349 - t24369 + t24715 - t24739 - 0.6e1 * t126755;
38420   t128377 = t128324 + t128349 + t128361 + t128375;
38421   t128416 = t128377 * t370 * params->d + 0.18e2 * t369 * t5235 * t5550 + 0.18e2 * t1267 * t25260 + 0.36e2 * t1267 * t25263 + 0.9e1 * t25248 * t1269 + 0.6e1 * t1357 * t24384 + 0.3e1 * t24377 * t1359 + 0.18e2 * t5290 * t5577 + 0.9e1 * t5290 * t5580 + 0.18e2 * t5571 * t5294 + 0.18e2 * t126791 + 0.18e2 * t126799 + 0.18e2 * t126808 + 0.18e2 * t126820 + 0.9e1 * t126841 + t24383 + t24387 + t24759 + t24774 + t5079;
38422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38423     v4sigma3tau[13] = t128377 * t372 * t7 + 0.3e1 * t1265 * t25266 + 0.3e1 * t25240 * t1272 + t872 * t128416 + t1355 * t24388 + t24371 * t1362 + 0.3e1 * t5286 * t5583 + 0.3e1 * t5567 * t5297;
38424 
38425   t128428 = -t126850 - t127123 + t127126 + t127128 + t127130 - t127147 - t127151 + 0.5e1 / 0.24e2 * t24147 * t100379 * t1327 * t5226 - 0.4e1 / 0.3e1 * t4026 * t127716 - 0.4e1 / 0.3e1 * t4026 * t127685 - 0.5e1 / 0.18e2 * t19122 * t126846;
38426   t128430 = t23918 * t23510 * t5226;
38427   t128441 = -0.5e1 / 0.24e2 * t87029 * t128430 + 0.2e1 / 0.3e1 * t4173 * t127140 + 0.2e1 / 0.3e1 * t4173 * t127157 + t4173 * t127132 / 0.3e1 + 0.2e1 / 0.3e1 * t4173 * t127136 - t127162 + t127164 + t127166 - t127174 - t127176 - t127178;
38428   t128443 = -t127180 - t127184 - t127188 - t127190 + t127194 + t127197 + t127209 + t127215 + t127217 - t127218 - t126867;
38429   t128456 = t127202 * t1310;
38430   t128459 = t127210 * t1310;
38431   t128462 = t126869 + t127219 + t127220 + t23880 + 0.5e1 / 0.18e2 * t5179 * t18560 * t5502 * t57 - 0.5e1 / 0.18e2 * t109604 * t25280 - 0.5e1 / 0.18e2 * t109754 * t25280 - 0.2e1 / 0.3e1 * t126295 * t25294 - 0.2e1 / 0.3e1 * t126300 * t25294 - t24586 * t128456 / 0.3e1 + t24586 * t128459 / 0.3e1;
38432   t128469 = 0.5e1 / 0.18e2 * t5179 * t18560 * t5507 * t57 + t127227 + t127232 + t127234 - t127238 - t127241 - t127244 - t127246 - t127249 - t127251 - t127253;
38433   t128474 = t127258 + t127259 - t127261 + t127264 + t127265 + t127266 + t127267 + t127268 - 0.4e1 * t5499 * t25299 - 0.2e1 / 0.3e1 * t127143 * t5590 - t4957;
38434   t128476 = t24594 - t23910 + t127282 + t127284 + t127286 + t127288 - t127290 + t24601 - t24071 + t127291 + t127293;
38435   t128480 = t127663 * t127677;
38436   t128483 = -t126929 - t127296 - t127297 - t24087 - t24096 - t24097 - t127299 - t24629 + 0.5e1 / 0.18e2 * t5179 * t24353 * t25283 - 0.5e1 / 0.18e2 * t108609 * t128480 - t127304 + t127306;
38437   t128486 = t128428 + t128441 + t128443 + t128462 + t128469 + t128474 + t128476 + t128483;
38438   t128505 = t128486 * t370 * params->d + t126966 + t127330 + t127333 + t127340 + t127342 + t127345 + t127348 + t127349 + t127351 + t127355 + t127360 + t127361 + t127362 + t127364 + t24118 + t5079;
38439   t128520 = 0.6e1 * t25317 * t1269 + 0.6e1 * t1318 * t25191 + 0.12e2 * t1318 * t25194 + 0.3e1 * t24441 * t1338 + 0.6e1 * t5598 * t5294 + 0.12e2 * t5327 * t5534 + 0.6e1 * t5327 * t5537 + t126979 + t127366 + t127371 + t127372 + t127373 + t127375 + t23962 + t24124 + t24126 + t24665 + t24680;
38440   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38441     v4sigma3tau[14] = t7 * t128486 * t372 + 0.2e1 * t25309 * t1272 + t5594 * t5297 + t25171 * t1320 + 0.2e1 * t5524 * t5331 + t1334 * t24447 + t24433 * t1341 + 0.2e1 * t5323 * t5540 + t1316 * t25197 + t5286 * t5602 + 0.2e1 * t1265 * t25327 + t872 * (t128505 + t128520);
38442 
38443   t128529 = -0.2e1 / 0.3e1 * t127395 * t5590 - 0.4e1 / 0.3e1 * t4026 * t127866 + t126996 - t127017 - 0.5e1 / 0.24e2 * t87504 * t128430 - t127380 - t127382 - t127384 - t127389 - t127390 - t127394;
38444   t128550 = -t126867 + t127220 + t23880 + 0.5e1 / 0.18e2 * t5179 * t18560 * t5551 * t57 - 0.5e1 / 0.18e2 * t19122 * t127013 + 0.5e1 / 0.24e2 * t24147 * t100379 * t1348 * t5226 + 0.2e1 / 0.3e1 * t4173 * t127409 + 0.2e1 / 0.3e1 * t4173 * t127401 - 0.4e1 / 0.3e1 * t4026 * t127862 + 0.2e1 / 0.3e1 * t4173 * t127495 + t4173 * t127405 / 0.3e1;
38445   t128558 = t127413 + t127415 + t127417 + t127419 - t127423 + t127425 - 0.2e1 / 0.3e1 * t126645 * t25294 - t24693 * t128456 / 0.3e1 + t24693 * t128459 / 0.3e1 - t127429 - t127431;
38446   t128563 = t127432 + t127434 + t127436 + t127438 + t127442 + t127444 + t127446 + t127258 - 0.5e1 / 0.18e2 * t110338 * t25280 - 0.5e1 / 0.18e2 * t110554 * t25280 + t127456;
38447   t128568 = -t127466 - t127469 - t127475 - t127477 - t127480 + t127482 - 0.2e1 / 0.3e1 * t126623 * t25294 - t127484 - t127486 - t127488 + t127266;
38448   t128576 = t127267 + 0.5e1 / 0.18e2 * t5179 * t18560 * t5546 * t57 + 0.5e1 / 0.18e2 * t5179 * t24353 * t25348 - t4957 - t23910 - t127499 - t127501 - t127503 - t127507 - t127511 + t127512;
38449   t128578 = -t127513 + t24601 - t24071 + t127516 + t127293 - t24087 - t127522 + t127525 + t127528 + t127531 + t127533;
38450   t128583 = t127535 + t127537 + t127539 + t127541 - t24096 - t24097 - 0.4e1 * t5499 * t25343 + t24715 - t24739 - t127061 - t127542 - 0.5e1 / 0.18e2 * t109237 * t128480;
38451   t128586 = t128529 + t128550 + t128558 + t128563 + t128568 + t128576 + t128578 + t128583;
38452   t128613 = t128586 * t370 * params->d + 0.6e1 * t1318 * t25260 + 0.12e2 * t1318 * t25263 + 0.3e1 * t24441 * t1359 + 0.12e2 * t5327 * t5577 + t127094 + t127109 + t127567 + t127568 + t127570 + t127571 + t127577 + t127578 + t127581 + t24118 + t24759 + t5079;
38453   t128620 = 0.6e1 * t25365 * t1269 + 0.6e1 * t5616 * t5294 + 0.6e1 * t5327 * t5580 + t127583 + t127586 + t127590 + t127592 + t127594 + t127596 + t127599 + t127602 + t127604 + t127608 + t127609 + t23962 + t24124 + t24126 + t24774;
38454   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38455     v4sigma3tau[15] = t7 * t128586 * t372 + 0.2e1 * t25357 * t1272 + t5612 * t5297 + t25240 * t1320 + 0.2e1 * t5567 * t5331 + t1355 * t24447 + t24433 * t1362 + 0.2e1 * t5323 * t5583 + t1316 * t25266 + t5286 * t5620 + 0.2e1 * t1265 * t25375 + t872 * (t128613 + t128620);
38456 
38457   t128626 = t126304 + t126306 - t126308 - t127990 - 0.2e1 / 0.3e1 * t127624 - 0.2e1 / 0.3e1 * t127626 - 0.2e1 / 0.3e1 * t127630 + t126360 + t126372 - t126377 - t126379;
38458   t128629 = -t128025 + t128026 + t126388 + t126390 + t126392 - t126396 - t126398 - t126401 - t126404 - 0.5e1 / 0.18e2 * t127639 + 0.5e1 / 0.18e2 * t127642;
38459   t128632 = t126291 * t5384;
38460   t128643 = 0.5e1 / 0.18e2 * t127650 + t24229 + 0.5e1 / 0.72e2 * t108609 * t128632 + 0.2e1 / 0.3e1 * t127669 + 0.2e1 / 0.3e1 * t127671 + 0.2e1 / 0.3e1 * t127673 + 0.2e1 / 0.3e1 * t127675 - 0.5e1 / 0.18e2 * t127679 + 0.2e1 / 0.3e1 * t127682 + 0.2e1 / 0.3e1 * t127688 - 0.4e1 / 0.3e1 * t127692;
38461   t128650 = -0.4e1 / 0.3e1 * t127699 + t126421 + t126425 + 0.2e1 / 0.3e1 * t4173 * t127685 + t126433 + t126434 + t126435 + t126436 - 0.2e1 / 0.3e1 * t127708 - 0.2e1 / 0.3e1 * t127710 - 0.5e1 / 0.18e2 * t127712;
38462   t128664 = -t4957 + 0.2e1 / 0.3e1 * t4173 * t127716 - 0.5e1 / 0.72e2 * t19532 * t126350 - 0.5e1 / 0.48e2 * t102352 * t100379 * t25283 - 0.2e1 / 0.3e1 * t127719 - 0.2e1 / 0.3e1 * t127721 + t24594 - t24249 - 0.4e1 * t127725 - 0.4e1 * t127727 + t24601;
38463   t128665 = -t23796 + t126440 + t126442 + t126444 + t126446 + t126448 - t128045 + t126453 - t126459 - t126461 - t126463;
38464   t128669 = -t126466 - t126469 - t126471 - t23806 + t126477 + t126486 - t126488 - t126490 + t126492 + t126494 - 0.5e1 / 0.72e2 * t19532 * t126318;
38465   t128675 = t24258 * t23510 * t57;
38466   t128691 = -0.5e1 / 0.72e2 * t19532 * t126333 + 0.5e1 / 0.72e2 * t109754 * t25377 + 0.5e1 / 0.48e2 * t87029 * t128675 + 0.5e1 / 0.72e2 * t109604 * t25377 - 0.2e1 / 0.3e1 * t4026 * t127993 - t23822 - t23825 - t126496 + 0.5e1 / 0.18e2 * t5179 * t18560 * t5587 * t57 - t24629 - 0.2e1 * t5499 * t25383 - 0.2e1 * t449 * t5381 * t5506;
38467   t128694 = t128626 + t128629 + t128643 + t128650 + t128664 + t128665 + t128669 + t128691;
38468   t128720 = 0.6e1 * t5396 * t5534 + 0.3e1 * t5396 * t5537 + t126520 + t126522 + t126525 + t126530 + t126533 + t126536 + 0.6e1 * t127771 + 0.6e1 * t127780 + 0.12e2 * t127782 + 0.12e2 * t127784 + 0.12e2 * t127786 + t128070 + t128081 + t23860 + t5079;
38469   t128729 = t128694 * t370 * params->d + 0.3e1 * t25405 * t1269 + 0.3e1 * t24498 * t1338 + t126548 + t126562 + t126564 + t126566 + t126568 + t126570 + t126572 + t126575 + 0.12e2 * t127792 + 0.12e2 * t127800 + t23869 + t23872 + t24289 + t24665 + t24680;
38470   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38471     v4sigma3tau[16] = t7 * t128694 * t372 + t25397 * t1272 + 0.2e1 * t25309 * t1320 + 0.2e1 * t5594 * t5331 + t5524 * t5399 + t1334 * t24504 + t24490 * t1341 + t5392 * t5540 + 0.2e1 * t5323 * t5602 + 0.2e1 * t1316 * t25327 + t1265 * t25412 + t872 * (t128720 + t128729);
38472 
38473   t128744 = t126580 + 0.5e1 / 0.72e2 * t110338 * t25377 + 0.5e1 / 0.72e2 * t109237 * t128632 + 0.5e1 / 0.72e2 * t110554 * t25377 + 0.5e1 / 0.48e2 * t87504 * t128675 + t128096 - t128098 - 0.4e1 / 0.3e1 * t127808 + 0.2e1 / 0.3e1 * t127810 + 0.2e1 / 0.3e1 * t127812 + 0.2e1 / 0.3e1 * t127814;
38474   t128749 = -0.2e1 / 0.3e1 * t127816 - 0.2e1 / 0.3e1 * t127818 + t126582 - t126618 - t126622 - t128025 + t126392 + t24229 - 0.5e1 / 0.18e2 * t127829 - 0.5e1 / 0.18e2 * t127831 - t126630;
38475   t128767 = t126632 + t126649 + 0.2e1 / 0.3e1 * t4173 * t127862 + 0.2e1 / 0.3e1 * t4173 * t127866 - 0.5e1 / 0.72e2 * t19532 * t126680 - 0.5e1 / 0.72e2 * t19532 * t126612 - 0.5e1 / 0.72e2 * t19532 * t126707 - 0.5e1 / 0.48e2 * t102352 * t100379 * t25348 + 0.2e1 / 0.3e1 * t127844 - 0.4e1 / 0.3e1 * t127848 - 0.2e1 / 0.3e1 * t127850;
38476   t128778 = -0.2e1 / 0.3e1 * t127852 - 0.2e1 / 0.3e1 * t127854 - 0.2e1 / 0.3e1 * t127856 - 0.2e1 / 0.3e1 * t127858 + 0.2e1 / 0.3e1 * t127871 + t126651 + 0.5e1 / 0.18e2 * t127886 + 0.5e1 / 0.18e2 * t5179 * t18560 * t5606 * t57 + t126421 + t126661 + t126666;
38477   t128787 = -0.4e1 * t127900 - 0.4e1 * t127902 + 0.5e1 / 0.18e2 * t127908 + t126434 + t126435 - 0.5e1 / 0.18e2 * t127910 - 0.2e1 / 0.3e1 * t4026 * t128093 - t4957 - t24249 - t126684 - t126686;
38478   t128788 = -t126688 - t126690 + t126712 + t126714 + t126716 - t126718 + t24601 + t126726 + t126728 - t23796 - t126732;
38479   t128795 = -0.2e1 * t449 * t5381 * t5550 - 0.2e1 * t5499 * t25414 + t126448 + t126734 - t126736 - t126737 + t126740 + t126742 - t23806 - t23822 - t23825;
38480   t128797 = t24715 + t126745 + t126748 + t126750 - t24739 - t128138 - t126756 - t126758 - t126760 - t126763 - t126766 + 0.2e1 / 0.3e1 * t127927;
38481   t128800 = t128744 + t128749 + t128767 + t128778 + t128787 + t128788 + t128795 + t128797;
38482   t128825 = 0.3e1 * t25441 * t1269 + 0.6e1 * t5396 * t5577 + 0.3e1 * t5396 * t5580 + t126787 + t126790 + t126792 + t126800 + t126803 + t126804 + t126809 + 0.6e1 * t127951 + 0.6e1 * t127955 + t128161 + t128174 + t23860 + t24759 + t5079;
38483   t128835 = t128800 * t370 * params->d + 0.3e1 * t24498 * t1359 + t126812 + t126821 + t126825 + t126833 + t126834 + t126836 + t126842 + 0.12e2 * t127974 + 0.12e2 * t127976 + 0.12e2 * t127978 + 0.12e2 * t127980 + 0.12e2 * t127984 + t23869 + t23872 + t24289 + t24774;
38484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38485     v4sigma3tau[17] = t7 * t128800 * t372 + t25433 * t1272 + 0.2e1 * t25357 * t1320 + 0.2e1 * t5612 * t5331 + t5567 * t5399 + t1355 * t24504 + t24490 * t1362 + t5392 * t5583 + 0.2e1 * t5323 * t5620 + 0.2e1 * t1316 * t25375 + t1265 * t25448 + t872 * (t128825 + t128835);
38486 
38487   t128848 = -t126849 - 0.2e1 * t126851 + 0.2e1 * t127998 - 0.2e1 * t126853 - 0.2e1 * t126855 + 0.5e1 / 0.24e2 * t128003 + 0.2e1 * t128005 + 0.5e1 / 0.24e2 * t128007 + 0.5e1 / 0.24e2 * t128009 - 0.5e1 / 0.24e2 * t128014 - 0.5e1 / 0.24e2 * t128018;
38488   t128852 = -t126864 - t126866 + t126868 + 0.2e1 * t126872 + t23879 + t126892 + t126025 + t126027 - 0.6e1 * t128034 - 0.6e1 * t128037 - t126048;
38489   t128857 = t126019 * t103796 * t23509;
38490   t128863 = 0.5e1 / 0.96e2 * t24558 * t126070 - 0.5e1 / 0.96e2 * t126018 * t128857 - 0.5e1 / 0.24e2 * t19532 * t126846 + t4173 * t127993 + t126055 + t126058 + t126060 - t126062 + t126065 + t126067 + t126069;
38491   t128869 = -0.2e1 * t1326 * t24551 * t449 - t126075 + t126078 - t126088 - 0.12e2 * t126922 - 0.6e1 * t126928 - t23619 - t24555 + t24594 + t24601 - t24629 - t4957;
38492   t128871 = t128848 + t128852 + t128863 + t128869;
38493   t128896 = t128871 * t370 * params->d + 0.3e1 * t24577 * t1338 + t126105 + t126114 + t126120 + t126129 + t126132 + 0.36e2 * t126963 + 0.18e2 * t126965 + 0.18e2 * t126976 + 0.9e1 * t126978 + 0.18e2 * t126980 + 0.9e1 * t128067 + 0.18e2 * t128073 + 0.9e1 * t128075 + t23683 + t24581 + t24665 + t24680 + t5079;
38494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38495     v4sigma3tau[18] = t128871 * t372 * t7 + t872 * t128896 + 0.3e1 * t1316 * t25412 + 0.3e1 * t25397 * t1320 + t1334 * t24582 + t24571 * t1341 + 0.3e1 * t5392 * t5602 + 0.3e1 * t5594 * t5399;
38496 
38497   t128902 = t126987 - 0.2e1 * t126989 - t126991 - 0.2e1 * t126993 + t126995 + 0.2e1 * t126999 - t127016 - 0.2e1 * t127018 - t126866 + t23879 - t126179;
38498   t128906 = -0.6e1 * t128106 - 0.6e1 * t128109 + t126185 + t126188 + t126190 - t126195 - t126197 + t126201 + t126203 + t126208 + 0.5e1 / 0.24e2 * t128111;
38499   t128919 = 0.5e1 / 0.96e2 * t24558 * t126204 - 0.5e1 / 0.96e2 * t126191 * t128857 + 0.2e1 * t128115 + 0.2e1 * t128119 - 0.5e1 / 0.24e2 * t128121 - 0.5e1 / 0.24e2 * t128125 + t126212 - 0.5e1 / 0.24e2 * t19532 * t127013 + t4173 * t128093 + t126058 + t126067;
38500   t128927 = -t4957 - 0.2e1 * t449 * t24551 * t1347 - t24555 + t24601 - t23619 + 0.5e1 / 0.24e2 * t128131 + 0.5e1 / 0.24e2 * t128133 - t126222 + t24715 - t24739 - 0.6e1 * t127060 - 0.12e2 * t127064;
38501   t128929 = t128902 + t128906 + t128919 + t128927;
38502   t128954 = t128929 * t370 * params->d + 0.3e1 * t24577 * t1359 + t126252 + t126262 + t126266 + t126271 + t126276 + 0.18e2 * t127093 + 0.36e2 * t127095 + 0.18e2 * t127101 + 0.9e1 * t127108 + 0.18e2 * t127112 + 0.9e1 * t128167 + 0.9e1 * t128170 + 0.18e2 * t128176 + t23683 + t24581 + t24759 + t24774 + t5079;
38503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38504     v4sigma3tau[19] = t128929 * t372 * t7 + t872 * t128954 + 0.3e1 * t1316 * t25448 + 0.3e1 * t25433 * t1320 + t1355 * t24582 + t24571 * t1362 + 0.3e1 * t5392 * t5620 + 0.3e1 * t5612 * t5399;
38505 
38506   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38507     v4sigma2lapl2[0] = 0.0e0;
38508 
38509   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38510     v4sigma2lapl2[1] = 0.0e0;
38511 
38512   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38513     v4sigma2lapl2[2] = 0.0e0;
38514 
38515   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38516     v4sigma2lapl2[3] = 0.0e0;
38517 
38518   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38519     v4sigma2lapl2[4] = 0.0e0;
38520 
38521   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38522     v4sigma2lapl2[5] = 0.0e0;
38523 
38524   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38525     v4sigma2lapl2[6] = 0.0e0;
38526 
38527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38528     v4sigma2lapl2[7] = 0.0e0;
38529 
38530   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38531     v4sigma2lapl2[8] = 0.0e0;
38532 
38533   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38534     v4sigma2lapl2[9] = 0.0e0;
38535 
38536   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38537     v4sigma2lapl2[10] = 0.0e0;
38538 
38539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38540     v4sigma2lapl2[11] = 0.0e0;
38541 
38542   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38543     v4sigma2lapl2[12] = 0.0e0;
38544 
38545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38546     v4sigma2lapl2[13] = 0.0e0;
38547 
38548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38549     v4sigma2lapl2[14] = 0.0e0;
38550 
38551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38552     v4sigma2lapl2[15] = 0.0e0;
38553 
38554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38555     v4sigma2lapl2[16] = 0.0e0;
38556 
38557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38558     v4sigma2lapl2[17] = 0.0e0;
38559 
38560   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38561     v4sigma2lapltau[0] = 0.0e0;
38562 
38563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38564     v4sigma2lapltau[1] = 0.0e0;
38565 
38566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38567     v4sigma2lapltau[2] = 0.0e0;
38568 
38569   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38570     v4sigma2lapltau[3] = 0.0e0;
38571 
38572   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38573     v4sigma2lapltau[4] = 0.0e0;
38574 
38575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38576     v4sigma2lapltau[5] = 0.0e0;
38577 
38578   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38579     v4sigma2lapltau[6] = 0.0e0;
38580 
38581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38582     v4sigma2lapltau[7] = 0.0e0;
38583 
38584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38585     v4sigma2lapltau[8] = 0.0e0;
38586 
38587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38588     v4sigma2lapltau[9] = 0.0e0;
38589 
38590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38591     v4sigma2lapltau[10] = 0.0e0;
38592 
38593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38594     v4sigma2lapltau[11] = 0.0e0;
38595 
38596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38597     v4sigma2lapltau[12] = 0.0e0;
38598 
38599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38600     v4sigma2lapltau[13] = 0.0e0;
38601 
38602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38603     v4sigma2lapltau[14] = 0.0e0;
38604 
38605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38606     v4sigma2lapltau[15] = 0.0e0;
38607 
38608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38609     v4sigma2lapltau[16] = 0.0e0;
38610 
38611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38612     v4sigma2lapltau[17] = 0.0e0;
38613 
38614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38615     v4sigma2lapltau[18] = 0.0e0;
38616 
38617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38618     v4sigma2lapltau[19] = 0.0e0;
38619 
38620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38621     v4sigma2lapltau[20] = 0.0e0;
38622 
38623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38624     v4sigma2lapltau[21] = 0.0e0;
38625 
38626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38627     v4sigma2lapltau[22] = 0.0e0;
38628 
38629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
38630     v4sigma2lapltau[23] = 0.0e0;
38631 
38632   t128958 = t4720 * t5634 * t167 * t14483;
38633   t128959 = t128958 * t24588;
38634   t128962 = t1204 * t1144 * t5634;
38635   t128963 = t3788 * t128962;
38636   t128968 = 0.4e1 * t81 * t1143 * t25470 * t227;
38637   t128970 = t66 * t25450 * t1199;
38638   t128974 = 0.2e1 * t25496 * t5032;
38639   t128975 = t1397 * t5637;
38640   t128978 = t81 * t25492;
38641   t128980 = 0.4e1 * t128978 * t1193;
38642   t128981 = t81 * t25488;
38643   t128983 = 0.4e1 * t128981 * t1193;
38644   t128987 = 0.8e1 * t117421 * t14483 * t3874 * t5412;
38645   t128990 = t4932 * t4933 * t5622 * t363;
38646   t128994 = 0.2e1 * t25496 * t5028;
38647   t128998 = 0.2e1 * t81 * t4954 * t5634 * t227;
38648   t128999 = t14483 * t18330;
38649   t129001 = 0.2e1 * t25481 * t128999;
38650   t129002 = t5412 * t5412;
38651   t129005 = 0.4e1 * t81 * t129002 * t227;
38652   t129007 = 0.2e1 * t23823 * t5635;
38653   t129008 = t5097 * t25465;
38654   t129011 = t1204 * t18210 * t5634;
38655   t129015 = t1204 * t1327 * t5412;
38656   t129016 = t3788 * t129015;
38657   t129018 = -0.2e1 / 0.3e1 * t128959 + 0.2e1 / 0.3e1 * t128963 + t128968 + 0.2e1 / 0.3e1 * t1135 * t128970 - t128974 + 0.5e1 / 0.72e2 * t128975 * t23765 + t128980 + t128983 + t128987 - 0.5e1 / 0.72e2 * t4929 * t128990 + t128994 + t128998 + t129001 + t129005 - t129007 - 0.4e1 * t129008 + 0.2e1 / 0.3e1 * t3788 * t129011 + 0.4e1 / 0.3e1 * t129016;
38658   t129020 = t1204 * t3789 * t25470;
38659   t129021 = t3788 * t129020;
38660   t129023 = t5044 * t25459;
38661   t129026 = t400 * t25489;
38662   t129027 = t129026 * t5146;
38663   t129029 = t400 * t25493;
38664   t129030 = t129029 * t5146;
38665   t129034 = t1204 * t5412;
38666   t129036 = t117269 * t1203 * t129034;
38667   t129038 = 0.4e1 * t24593;
38668   t129041 = 0.4e1 * t82 * t129002 * t363;
38669   t129043 = 0.4e1 * t5097 * t25471;
38670   t129048 = t449 * t1199 * t25470;
38671   t129050 = t5660 * t24637;
38672   t129055 = t400 * t5622 * t2849;
38673   t129056 = t129055 * t24588;
38674   t129058 = t14483 * t18338;
38675   t129060 = 0.2e1 * t25481 * t129058;
38676   t129061 = 0.4e1 * t24628;
38677   t129062 = 0.2e1 / 0.3e1 * t129021 - 0.5e1 / 0.72e2 * t18055 * t129023 - 0.2e1 / 0.3e1 * t129027 - 0.2e1 / 0.3e1 * t129030 + 0.5e1 / 0.72e2 * t117320 * t23765 - 0.4e1 / 0.3e1 * t129036 - t4957 + t129038 - t129041 - t129043 - 0.2e1 * t449 * t5039 * t5634 - 0.4e1 * t129048 - 0.8e1 * t129050 + t24601 - 0.2e1 * t5623 * t5039 - 0.2e1 / 0.3e1 * t129056 - t129060 - t129061;
38678   t129063 = t129018 + t129062;
38679   t129079 = 0.12e2 * t1336 * t24678;
38680   t129081 = 0.24e2 * t1336 * t24675;
38681   t129082 = t1219 * t25523;
38682   t129086 = 0.12e2 * t369 * t25492 * t1143;
38683   t129089 = 0.6e1 * t369 * t5639 * t4954;
38684   t129091 = 0.3e1 * t5648 * t5077;
38685   t129093 = 0.12e2 * t1336 * t24672;
38686   t129094 = t1219 * t25520;
38687   t129098 = t1219 * t25531;
38688   t129101 = 0.6e1 * t5648 * t5074;
38689   t129102 = 0.3e1 * t5070 * t5655 + t129079 + t129081 + 0.24e2 * t129082 + t129086 + t129089 + t129091 + t129093 + 0.12e2 * t129094 + 0.6e1 * t129098 + t129101 + t5079;
38690   t129103 = t5435 * t5444;
38691   t129107 = 0.6e1 * t369 * t4947 * t5634;
38692   t129108 = t25508 * t1221;
38693   t129112 = 0.12e2 * t369 * t96 * t129002;
38694   t129115 = t1219 * t25528;
38695   t129119 = 0.24e2 * t369 * t5419 * t5412;
38696   t129122 = 0.6e1 * t369 * t4954 * t5622;
38697   t129123 = t5435 * t5441;
38698   t129127 = 0.6e1 * t24664;
38699   t129128 = 0.12e2 * t24679;
38700   t129131 = t129063 * t370 * params->d + 0.6e1 * t24658 * t1338 + 0.6e1 * t5070 * t5652 + 0.12e2 * t129103 + t129107 + 0.6e1 * t129108 + t129112 + 0.12e2 * t129115 + t129119 + t129122 + 0.24e2 * t129123 + t129127 + t129128;
38701   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38702     v4sigma2tau2[0] = t7 * t129063 * t372 + 0.2e1 * t25500 * t1224 + t5644 * t5080 + 0.2e1 * t24650 * t1341 + 0.4e1 * t5431 * t5447 + 0.2e1 * t1334 * t24681 + t5066 * t5658 + 0.2e1 * t1217 * t25534 + t872 * (t129102 + t129131);
38703 
38704   t129137 = 0.4e1 * t81 * t5412 * t5460 * t227;
38705   t129141 = 0.2e1 * t81 * t4954 * t5665 * t227;
38706   t129145 = 0.4e1 * t81 * t1143 * t25560 * t227;
38707   t129146 = t23023 * t24692;
38708   t129147 = t129146 * t24588;
38709   t129151 = t4720 * t5665 * t167 * t14483;
38710   t129152 = t129151 * t24588;
38711   t129155 = 0.2e1 * t23823 * t5666;
38712   t129156 = t5097 * t25553;
38713   t129159 = 0.4e1 * t5097 * t25561;
38714   t129164 = t449 * t1199 * t25560;
38715   t129167 = t25540 * t5455;
38716   t129170 = 0.4e1 * t25540 * t5461;
38717   t129172 = t1204 * t5413 * t1347;
38718   t129173 = t3788 * t129172;
38719   t129175 = t400 * t25568;
38720   t129176 = t129175 * t5146;
38721   t129178 = t400 * t25572;
38722   t129179 = t129178 * t5146;
38723   t129183 = t400 * t25582;
38724   t129184 = t129183 * t5146;
38725   t129186 = t400 * t25586;
38726   t129187 = t129186 * t5146;
38727   t129190 = t1204 * t5407 * t1347;
38728   t129194 = t1204 * t1327 * t5460;
38729   t129195 = t3788 * t129194;
38730   t129197 = -0.4e1 * t129167 - t129170 - t4957 + 0.2e1 / 0.3e1 * t129173 - 0.2e1 / 0.3e1 * t129176 - 0.2e1 / 0.3e1 * t129179 + 0.5e1 / 0.72e2 * t117659 * t23765 - 0.2e1 / 0.3e1 * t129184 - 0.2e1 / 0.3e1 * t129187 + 0.2e1 / 0.3e1 * t3788 * t129190 + 0.2e1 / 0.3e1 * t129195;
38731   t129199 = t5044 * t25536;
38732   t129205 = t1204 * t1144 * t5665;
38733   t129206 = t3788 * t129205;
38734   t129209 = t1204 * t18210 * t5665;
38735   t129213 = t1204 * t3789 * t25560;
38736   t129214 = t3788 * t129213;
38737   t129216 = t5044 * t25547;
38738   t129221 = t5660 * t24735;
38739   t129225 = 0.2e1 * t25575 * t5032;
38740   t129227 = 0.2e1 * t25589 * t5032;
38741   t129228 = t81 * t25571;
38742   t129230 = 0.4e1 * t129228 * t1193;
38743   t129232 = 0.2e1 * t25575 * t5028;
38744   t129233 = t81 * t25567;
38745   t129235 = 0.4e1 * t129233 * t1193;
38746   t129236 = t81 * t25585;
38747   t129238 = 0.4e1 * t129236 * t1193;
38748   t129240 = 0.2e1 * t25589 * t5028;
38749   t129241 = t81 * t25581;
38750   t129243 = 0.4e1 * t129241 * t1193;
38751   t129244 = -t129225 - t129227 + t129230 + t129232 + t129235 + t129238 + t129240 + t129243 + t24715 - t24629 - t24739;
38752   t129246 = t129137 + t129141 + t129145 - 0.2e1 / 0.3e1 * t129147 - 0.2e1 / 0.3e1 * t129152 - t129155 - 0.4e1 * t129156 - t129159 - 0.2e1 * t449 * t5039 * t5665 - 0.4e1 * t129164 + t129197 - 0.5e1 / 0.72e2 * t18055 * t129199 + 0.5e1 / 0.72e2 * t117804 * t23765 + 0.2e1 / 0.3e1 * t129206 + 0.2e1 / 0.3e1 * t3788 * t129209 + 0.2e1 / 0.3e1 * t129214 - 0.5e1 / 0.72e2 * t18055 * t129216 - 0.2e1 * t5660 * t24732 - 0.4e1 * t129221 + t24594 + t24601 + t129244;
38753   t129265 = t1219 * t25619;
38754   t129267 = t5483 * t5441;
38755   t129270 = 0.12e2 * t1336 * t24769;
38756   t129271 = t1219 * t25622;
38757   t129273 = t1219 * t25625;
38758   t129276 = 0.3e1 * t5680 * t5077;
38759   t129282 = 0.6e1 * t1357 * t24672;
38760   t129285 = 0.6e1 * t369 * t4947 * t5665;
38761   t129286 = t1219 * t25630;
38762   t129289 = 0.6e1 * t1336 * t24766;
38763   t129290 = t5435 * t5492;
38764   t129292 = t1219 * t25633;
38765   t129295 = 0.12e2 * t1357 * t24675;
38766   t129296 = t129246 * t370 * params->d + 0.3e1 * t24752 * t1338 + 0.6e1 * t5070 * t5686 + 0.12e2 * t129265 + 0.12e2 * t129267 + t129270 + 0.12e2 * t129271 + 0.12e2 * t129273 + t129276 + t129282 + t129285 + 0.12e2 * t129286 + t129289 + 0.6e1 * t129290 + 0.6e1 * t129292 + t129295 + t5079;
38767   t129298 = 0.6e1 * t1357 * t24678;
38768   t129303 = 0.6e1 * t369 * t24712 * t1326;
38769   t129304 = t25601 * t1221;
38770   t129308 = 0.6e1 * t369 * t5671 * t4954;
38771   t129313 = 0.12e2 * t369 * t25585 * t1143;
38772   t129316 = 0.12e2 * t369 * t24716 * t1326;
38773   t129319 = 0.12e2 * t369 * t5467 * t5412;
38774   t129321 = 0.6e1 * t1336 * t24772;
38775   t129322 = t5435 * t5489;
38776   t129325 = 0.6e1 * t5680 * t5074;
38777   t129328 = 0.12e2 * t369 * t5471 * t5412;
38778   t129329 = t5483 * t5444;
38779   t129331 = 0.3e1 * t24658 * t1359 + 0.3e1 * t5070 * t5689 + t129298 + t129303 + 0.6e1 * t129304 + t129308 + t129313 + t129316 + t129319 + t129321 + 0.12e2 * t129322 + t129325 + t129328 + 0.6e1 * t129329 + t24665 + t24680 + t24759 + t24774;
38780   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38781     v4sigma2tau2[1] = t7 * t129246 * t372 + 0.2e1 * t25593 * t1224 + t5676 * t5080 + t24744 * t1341 + 0.2e1 * t5479 * t5447 + t1355 * t24681 + t24650 * t1362 + 0.2e1 * t5431 * t5495 + t1334 * t24775 + t5066 * t5692 + 0.2e1 * t1217 * t25636 + t872 * (t129296 + t129331);
38782 
38783   t129336 = t4720 * t5706 * t167 * t14483;
38784   t129337 = t129336 * t24588;
38785   t129340 = 0.2e1 * t25669 * t128999;
38786   t129341 = t1397 * t5709;
38787   t129347 = 0.8e1 * t118032 * t14483 * t3874 * t5460;
38788   t129348 = t81 * t25675;
38789   t129350 = 0.4e1 * t129348 * t1193;
38790   t129351 = t81 * t25679;
38791   t129353 = 0.4e1 * t129351 * t1193;
38792   t129355 = 0.2e1 * t25683 * t5032;
38793   t129357 = t66 * t25638 * t1199;
38794   t129362 = t4932 * t4933 * t5694 * t363;
38795   t129366 = 0.2e1 * t25683 * t5028;
38796   t129367 = t23107 * t24735;
38797   t129370 = 0.2e1 * t23823 * t5707;
38798   t129371 = t5097 * t25653;
38799   t129374 = 0.4e1 * t5097 * t25659;
38800   t129379 = t449 * t1199 * t25658;
38801   t129381 = t5460 * t5460;
38802   t129384 = 0.4e1 * t81 * t129381 * t227;
38803   t129386 = 0.2e1 * t25669 * t129058;
38804   t129387 = -0.2e1 / 0.3e1 * t129337 + t129340 + 0.5e1 / 0.72e2 * t129341 * t23765 + t129347 + t129350 + t129353 - t129355 + 0.2e1 / 0.3e1 * t1135 * t129357 - 0.5e1 / 0.72e2 * t4929 * t129362 + t129366 - 0.8e1 * t129367 - t129370 - 0.4e1 * t129371 - t129374 - 0.2e1 * t449 * t5039 * t5706 - 0.4e1 * t129379 + t129384 - t129386;
38805   t129388 = t1204 * t5460;
38806   t129390 = t118093 * t1203 * t129388;
38807   t129392 = t400 * t25676;
38808   t129393 = t129392 * t5146;
38809   t129395 = t400 * t25680;
38810   t129396 = t129395 * t5146;
38811   t129399 = t1204 * t1348 * t5460;
38812   t129400 = t3788 * t129399;
38813   t129405 = t1204 * t1144 * t5706;
38814   t129406 = t3788 * t129405;
38815   t129409 = t1204 * t18210 * t5706;
38816   t129413 = t1204 * t3789 * t25658;
38817   t129414 = t3788 * t129413;
38818   t129416 = t5044 * t25647;
38819   t129421 = 0.4e1 * t82 * t129381 * t363;
38820   t129422 = 0.4e1 * t24714;
38821   t129424 = t400 * t5694 * t2849;
38822   t129425 = t129424 * t24588;
38823   t129430 = 0.2e1 * t81 * t4954 * t5706 * t227;
38824   t129434 = 0.4e1 * t81 * t1143 * t25658 * t227;
38825   t129435 = 0.4e1 * t24738;
38826   t129438 = -0.4e1 / 0.3e1 * t129390 - 0.2e1 / 0.3e1 * t129393 - 0.2e1 / 0.3e1 * t129396 + 0.4e1 / 0.3e1 * t129400 + 0.5e1 / 0.72e2 * t117974 * t23765 + 0.2e1 / 0.3e1 * t129406 + 0.2e1 / 0.3e1 * t3788 * t129409 + 0.2e1 / 0.3e1 * t129414 - 0.5e1 / 0.72e2 * t18055 * t129416 - t4957 + t24601 - t129421 + t129422 - 0.2e1 / 0.3e1 * t129425 + t129430 + t129434 - t129435 - 0.2e1 * t5695 * t5039;
38827   t129439 = t129387 + t129438;
38828   t129454 = t25695 * t1221;
38829   t129457 = 0.12e2 * t1357 * t24766;
38830   t129460 = 0.12e2 * t369 * t96 * t129381;
38831   t129463 = 0.6e1 * t369 * t4947 * t5706;
38832   t129466 = 0.6e1 * t369 * t4954 * t5694;
38833   t129467 = t1219 * t25707;
38834   t129469 = t5483 * t5492;
38835   t129471 = 0.6e1 * t24758;
38836   t129472 = t5483 * t5489;
38837   t129478 = t129439 * t370 * params->d + 0.3e1 * t5070 * t5727 + 0.6e1 * t129454 + t129457 + t129460 + t129463 + t129466 + 0.12e2 * t129467 + 0.12e2 * t129469 + t129471 + 0.24e2 * t129472 + t5079;
38838   t129482 = 0.6e1 * t5720 * t5074;
38839   t129483 = t1219 * t25710;
38840   t129487 = 0.6e1 * t369 * t5711 * t4954;
38841   t129488 = 0.12e2 * t24773;
38842   t129489 = t1219 * t25715;
38843   t129493 = 0.12e2 * t369 * t25679 * t1143;
38844   t129495 = 0.24e2 * t1357 * t24769;
38845   t129497 = 0.12e2 * t1357 * t24772;
38846   t129500 = 0.24e2 * t369 * t5467 * t5460;
38847   t129504 = 0.3e1 * t5720 * t5077;
38848   t129505 = t1219 * t25718;
38849   t129507 = 0.6e1 * t24752 * t1359 + 0.6e1 * t5070 * t5724 + t129482 + 0.24e2 * t129483 + t129487 + t129488 + 0.12e2 * t129489 + t129493 + t129495 + t129497 + t129500 + t129504 + 0.6e1 * t129505;
38850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38851     v4sigma2tau2[2] = t7 * t129439 * t372 + 0.2e1 * t25687 * t1224 + t5716 * t5080 + 0.2e1 * t24744 * t1362 + 0.4e1 * t5479 * t5495 + 0.2e1 * t1355 * t24775 + t5066 * t5730 + 0.2e1 * t1217 * t25721 + t872 * (t129478 + t129507);
38852 
38853   t129511 = 0.2e1 / 0.3e1 * t128958 * t24812;
38854   t129516 = 0.4e1 / 0.3e1 * t117269 * t1254 * t129034;
38855   t129518 = t5044 * t117264 * t1133;
38856   t129522 = t1204 * t1327 * t5506;
38857   t129526 = 0.2e1 / 0.3e1 * t4026 * t128962;
38858   t129530 = 0.4e1 / 0.3e1 * t4026 * t129015;
38859   t129532 = 0.2e1 / 0.3e1 * t4026 * t129020;
38860   t129534 = t1204 * t1232 * t5634;
38861   t129538 = t1204 * t18732 * t5634;
38862   t129542 = t1204 * t3789 * t25737;
38863   t129545 = t129511 - t128958 * t24816 / 0.3e1 + t129516 + 0.5e1 / 0.36e2 * t5084 * t129518 + 0.2e1 / 0.3e1 * t3788 * t129522 - t129526 - 0.2e1 / 0.3e1 * t4026 * t129011 - t129530 - t129532 + t3788 * t129534 / 0.3e1 + t3788 * t129538 / 0.3e1 + t3788 * t129542 / 0.3e1 + t128998;
38864   t129547 = t66 * t25450 * t1252;
38865   t129552 = t81 * t25751;
38866   t129554 = 0.2e1 * t129552 * t1193;
38867   t129555 = t81 * t25755;
38868   t129557 = 0.2e1 * t129555 * t1193;
38869   t129559 = 0.2e1 * t128981 * t1246;
38870   t129563 = t1397 * t5637 * t4926;
38871   t129570 = 0.2e1 / 0.3e1 * t129026 * t5510;
38872   t129572 = 0.2e1 / 0.3e1 * t129029 * t5510;
38873   t129573 = t400 * t25752;
38874   t129576 = t400 * t25756;
38875   t129580 = 0.2e1 * t117227 * t24787;
38876   t129581 = t1135 * t129547 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t128970 + t129554 + t129557 + t129559 - 0.5e1 / 0.36e2 * t117320 * t24819 - t129007 - 0.5e1 / 0.36e2 * t129563 * t5139 - 0.2e1 / 0.3e1 * t400 * t25743 * t5146 + t129570 + t129572 - t129573 * t5146 / 0.3e1 - t129576 * t5146 / 0.3e1 - t129580;
38877   t129584 = 0.4e1 * t25540 * t5507;
38878   t129588 = t18560 * t5635 * t1133;
38879   t129592 = 0.2e1 * t128978 * t1246;
38880   t129594 = 0.2e1 * t25496 * t5126;
38881   t129596 = 0.2e1 / 0.3e1 * t129055 * t24812;
38882   t129601 = 0.4e1 * t81 * t21214 * t5506;
38883   t129605 = 0.2e1 * t81 * t1231 * t25470 * t227;
38884   t129606 = -t129584 - 0.4e1 * t5660 * t24834 - t4957 + t129038 + 0.5e1 / 0.36e2 * t5084 * t129588 + t24601 + t129592 + t129594 + t129596 - t129055 * t24816 / 0.3e1 + t129601 - t129061 + t129605;
38885   t129610 = 0.2e1 * t81 * t1143 * t25737 * t227;
38886   t129612 = 0.4e1 * t5660 * t24831;
38887   t129616 = 0.2e1 * t5499 * t25471;
38888   t129618 = 0.2e1 * t5097 * t25733;
38889   t129621 = 0.2e1 * t449 * t5135 * t5634;
38890   t129624 = 0.2e1 * t449 * t1252 * t25470;
38891   t129626 = 0.2e1 * t5097 * t25738;
38892   t129630 = t14483 * t18569;
38893   t129632 = 0.2e1 * t25481 * t129630;
38894   t129636 = 0.4e1 * t117421 * t14483 * t3874 * t5506;
38895   t129640 = 0.4e1 * t117421 * t14483 * t4049 * t5412;
38896   t129642 = 0.2e1 * t25481 * t24787;
38897   t129644 = 0.2e1 * t5623 * t5135;
38898   t129645 = -0.2e1 * t1199 * t25737 * t449 - 0.2e1 * t5499 * t25465 + t129610 - t129612 - t129616 - t129618 - t129621 - t129624 - t129626 + t129632 + t129636 + t129640 - t129642 - t129644;
38899   t129647 = t129545 + t129581 + t129606 + t129645;
38900   t129669 = 0.6e1 * t5528 * t5444;
38901   t129671 = 0.6e1 * t1267 * t25520;
38902   t129677 = 0.6e1 * t1267 * t25528;
38903   t129680 = 0.12e2 * t369 * t5513 * t5412;
38904   t129687 = 0.6e1 * t369 * t25488 * t1231;
38905   t129689 = 0.12e2 * t1267 * t25523;
38906   t129692 = 0.12e2 * t369 * t5419 * t5506;
38907   t129693 = 0.6e1 * t1219 * t25782 + 0.12e2 * t1219 * t25785 + 0.3e1 * t25508 * t1269 + 0.6e1 * t24858 * t1338 + 0.6e1 * t5166 * t5652 + 0.6e1 * t5435 * t5537 + t129079 + t129089 + t129091 + t129669 + t129671 + t129677 + t129680 + t129687 + t129689 + t129692 + t5079;
38908   t129696 = 0.12e2 * t369 * t5423 * t5506;
38909   t129699 = 0.6e1 * t369 * t25492 * t1231;
38910   t129702 = 0.6e1 * t369 * t25755 * t1143;
38911   t129704 = 0.12e2 * t1336 * t24874;
38912   t129706 = 0.12e2 * t1336 * t24877;
38913   t129712 = 0.12e2 * t1336 * t24882;
38914   t129714 = 0.12e2 * t5528 * t5441;
38915   t129716 = 0.6e1 * t5648 * t5172;
38916   t129722 = 0.3e1 * t25770 * t1221;
38917   t129724 = 0.3e1 * t1267 * t25531;
38918   t129727 = t129647 * t370 * params->d + 0.6e1 * t1219 * t25790 + 0.3e1 * t1219 * t25793 + 0.3e1 * t5166 * t5655 + 0.12e2 * t5435 * t5534 + t129122 + t129127 + t129128 + t129696 + t129699 + t129702 + t129704 + t129706 + t129712 + t129714 + t129716 + t129722 + t129724;
38919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
38920     v4sigma2tau2[3] = t7 * t129647 * t372 + t25762 * t1224 + t25500 * t1272 + t5644 * t5175 + 0.2e1 * t24850 * t1341 + 0.2e1 * t5524 * t5447 + 0.2e1 * t5431 * t5540 + 0.2e1 * t1334 * t24885 + t5162 * t5658 + t1265 * t25534 + t1217 * t25796 + t872 * (t129693 + t129727);
38921 
38922   t129731 = t1204 * t5502 * t1347;
38923   t129735 = t1204 * t1327 * t5550;
38924   t129739 = 0.2e1 / 0.3e1 * t4026 * t129205;
38925   t129741 = t1204 * t1232 * t5665;
38926   t129745 = t1204 * t18732 * t5665;
38927   t129749 = t1204 * t3789 * t25815;
38928   t129753 = 0.2e1 / 0.3e1 * t129175 * t5510;
38929   t129755 = 0.2e1 / 0.3e1 * t129178 * t5510;
38930   t129756 = t400 * t25822;
38931   t129760 = 0.2e1 / 0.3e1 * t129183 * t5510;
38932   t129762 = 0.2e1 / 0.3e1 * t4026 * t129172;
38933   t129764 = 0.2e1 * t129236 * t1246;
38934   t129766 = 0.2e1 * t25589 * t5126;
38935   t129767 = t81 * t25821;
38936   t129769 = 0.2e1 * t129767 * t1193;
38937   t129771 = 0.2e1 * t117605 * t24787;
38938   t129772 = t3788 * t129731 / 0.3e1 + t3788 * t129735 / 0.3e1 - t129739 + t3788 * t129741 / 0.3e1 + t3788 * t129745 / 0.3e1 + t3788 * t129749 / 0.3e1 + t129753 + t129755 - t129756 * t5146 / 0.3e1 + t129760 - t129762 + t129764 + t129766 + t129769 + t129141 - t129771;
38939   t129776 = 0.2e1 / 0.3e1 * t129186 * t5510;
38940   t129777 = t400 * t25834;
38941   t129780 = t400 * t25838;
38942   t129786 = 0.2e1 / 0.3e1 * t4026 * t129213;
38943   t129788 = 0.2e1 * t117576 * t24787;
38944   t129792 = 0.2e1 / 0.3e1 * t4026 * t129194;
38945   t129794 = t1204 * t5507 * t1347;
38946   t129800 = 0.2e1 * t25800 * t5461;
38947   t129802 = t18560 * t5666 * t1133;
38948   t129807 = t5044 * t1326;
38949   t129808 = t129807 * t24887;
38950   t129812 = 0.2e1 / 0.3e1 * t129146 * t24812;
38951   t129813 = -0.5e1 / 0.36e2 * t117804 * t24819 + t129776 - t129777 * t5146 / 0.3e1 - t129780 * t5146 / 0.3e1 - t129155 - 0.2e1 / 0.3e1 * t4026 * t129209 - t129786 - t129788 - 0.2e1 / 0.3e1 * t4026 * t129190 - t129792 + t3788 * t129794 / 0.3e1 - 0.2e1 * t25800 * t5455 - t129800 + 0.5e1 / 0.36e2 * t5084 * t129802 - 0.5e1 / 0.36e2 * t117659 * t24819 + 0.5e1 / 0.36e2 * t5084 * t129808 + t129812;
38952   t129818 = 0.2e1 / 0.3e1 * t129151 * t24812;
38953   t129823 = t81 * t5412 * t5550 * t227;
38954   t129825 = t25540 * t5546;
38955   t129827 = t5660 * t24897;
38956   t129829 = t5660 * t24900;
38957   t129831 = t25540 * t5551;
38958   t129837 = t5499 * t25561;
38959   t129839 = t5097 * t25811;
38960   t129842 = t449 * t5135 * t5665;
38961   t129845 = t449 * t1252 * t25560;
38962   t129847 = -t129146 * t24816 / 0.3e1 + t129818 - t129151 * t24816 / 0.3e1 - t4957 + t24594 + 0.2e1 * t129823 - 0.2e1 * t129825 - 0.2e1 * t129827 - 0.2e1 * t129829 - 0.2e1 * t129831 - 0.2e1 * t5660 * t24905 - 0.2e1 * t5499 * t25553 - 0.2e1 * t129837 - 0.2e1 * t129839 - 0.2e1 * t129842 - 0.2e1 * t129845;
38963   t129848 = t5097 * t25816;
38964   t129855 = t81 * t1231 * t25560 * t227;
38965   t129859 = t81 * t1143 * t25815 * t227;
38966   t129863 = t81 * t5506 * t5460 * t227;
38967   t129865 = t400 * t25826;
38968   t129868 = t81 * t25833;
38969   t129870 = 0.2e1 * t129868 * t1193;
38970   t129871 = t81 * t25837;
38971   t129873 = 0.2e1 * t129871 * t1193;
38972   t129874 = t81 * t25825;
38973   t129876 = 0.2e1 * t129874 * t1193;
38974   t129878 = 0.2e1 * t129233 * t1246;
38975   t129880 = 0.2e1 * t129228 * t1246;
38976   t129882 = 0.2e1 * t25575 * t5126;
38977   t129884 = 0.2e1 * t129241 * t1246;
38978   t129885 = -0.2e1 * t129848 - 0.2e1 * t449 * t1199 * t25815 + t24601 + 0.2e1 * t129855 + 0.2e1 * t129859 + 0.2e1 * t129863 - t129865 * t5146 / 0.3e1 + t24715 - t24629 - t24739 + t129870 + t129873 + t129876 + t129878 + t129880 + t129882 + t129884;
38979   t129887 = t129772 + t129813 + t129847 + t129885;
38980   t129909 = 0.3e1 * t5528 * t5492;
38981   t129913 = 0.3e1 * t1267 * t25633;
38982   t129918 = 0.3e1 * t25601 * t1269 + 0.3e1 * t24975 * t1338 + 0.3e1 * t24858 * t1359 + 0.3e1 * t5166 * t5689 + 0.3e1 * t5435 * t5580 + t129276 + t129298 + t129303 + t129308 + t129909 + t129913 + t5079;
38983   t129922 = 0.3e1 * t5571 * t5444;
38984   t129924 = 0.6e1 * t1267 * t25625;
38985   t129930 = 0.6e1 * t1357 * t24882;
38986   t129934 = 0.3e1 * t25852 * t1221;
38987   t129936 = 0.6e1 * t1357 * t24874;
38988   t129940 = 0.6e1 * t1357 * t24877;
38989   t129941 = t129887 * t370 * params->d + 0.6e1 * t1219 * t25870 + 0.3e1 * t1219 * t25884 + 0.6e1 * t5435 * t5577 + 0.3e1 * t5483 * t5537 + t129321 + t129922 + t129924 + t129930 + t129934 + t129936 + t129940 + t24759;
38990   t129944 = t369 * t5560 * t5412;
38991   t129945 = t1267 * t25630;
38992   t129948 = t369 * t25837 * t1143;
38993   t129949 = t1267 * t25619;
38994   t129952 = t369 * t24961 * t1326;
38995   t129955 = t369 * t25581 * t1231;
38996   t129957 = t369 * t25585 * t1231;
38997   t129959 = t369 * t5467 * t5506;
38998   t129961 = t369 * t5471 * t5506;
38999   t129963 = t369 * t24957 * t1326;
39000   t129964 = t1219 * t25881 + t5166 * t5686 + t5483 * t5534 + t129944 + t129945 + t129948 + t129949 + t129952 + t129955 + t129957 + t129959 + t129961 + t129963;
39001   t129967 = 0.6e1 * t1336 * t24991;
39002   t129969 = 0.6e1 * t1336 * t24994;
39003   t129973 = 0.6e1 * t1267 * t25622;
39004   t129975 = 0.6e1 * t5528 * t5489;
39005   t129977 = 0.6e1 * t5680 * t5172;
39006   t129979 = 0.6e1 * t1336 * t24999;
39007   t129981 = 0.6e1 * t5571 * t5441;
39008   t129984 = 0.6e1 * t369 * t5556 * t5412;
39009   t129987 = 0.6e1 * t1219 * t25873 + 0.6e1 * t1219 * t25876 + t129967 + t129969 + t129973 + t129975 + t129977 + t129979 + t129981 + t129984 + t24665 + t24680 + t24774;
39010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39011     v4sigma2tau2[4] = t7 * t129887 * t372 + t25844 * t1224 + t25593 * t1272 + t5676 * t5175 + t24967 * t1341 + t5567 * t5447 + t5479 * t5540 + t1355 * t24885 + t24850 * t1362 + t5524 * t5495 + t5431 * t5583 + t1334 * t25002 + t5162 * t5692 + t1265 * t25636 + t1217 * t25887 + t872 * (t129918 + t129941 + 0.6e1 * t129964 + t129987);
39012 
39013   t129992 = 0.2e1 / 0.3e1 * t129336 * t24812;
39014   t129996 = 0.2e1 / 0.3e1 * t4026 * t129413;
39015   t129998 = t1204 * t1232 * t5706;
39016   t130002 = 0.4e1 / 0.3e1 * t4026 * t129399;
39017   t130004 = 0.2e1 * t117965 * t24787;
39018   t130009 = 0.2e1 / 0.3e1 * t129392 * t5510;
39019   t130011 = t1204 * t3789 * t25903;
39020   t130016 = 0.4e1 / 0.3e1 * t118093 * t1254 * t129388;
39021   t130018 = t1397 * t5709 * t4926;
39022   t130021 = t400 * t25917;
39023   t130024 = t400 * t25921;
39024   t130027 = t129992 - t129336 * t24816 / 0.3e1 - t129996 + t3788 * t129998 / 0.3e1 - t130002 - t130004 - 0.2e1 / 0.3e1 * t400 * t25909 * t5146 + t130009 + t3788 * t130011 / 0.3e1 + t130016 - 0.5e1 / 0.36e2 * t130018 * t5139 - t130021 * t5146 / 0.3e1 - t130024 * t5146 / 0.3e1;
39025   t130029 = t1204 * t18732 * t5706;
39026   t130035 = t18560 * t5707 * t1133;
39027   t130038 = t82 * t5460;
39028   t130040 = 0.4e1 * t130038 * t5551;
39029   t130044 = 0.4e1 * t23107 * t24900;
39030   t130046 = t66 * t25638 * t1252;
39031   t130052 = 0.4e1 * t118032 * t14483 * t3874 * t5550;
39032   t130056 = 0.4e1 * t118032 * t14483 * t4049 * t5460;
39033   t130058 = 0.2e1 * t25669 * t24787;
39034   t130059 = t81 * t25920;
39035   t130061 = 0.2e1 * t130059 * t1193;
39036   t130063 = 0.2e1 * t129348 * t1246;
39037   t130065 = 0.2e1 * t129351 * t1246;
39038   t130066 = t3788 * t130029 / 0.3e1 - 0.5e1 / 0.36e2 * t117974 * t24819 + 0.5e1 / 0.36e2 * t5084 * t130035 - t130040 - 0.4e1 * t23107 * t24905 - t130044 - t129370 + t1135 * t130046 / 0.3e1 + t130052 + t130056 - t130058 + t130061 + t130063 + t130065;
39039   t130069 = 0.2e1 * t25683 * t5126;
39040   t130072 = t81 * t25916;
39041   t130074 = 0.2e1 * t130072 * t1193;
39042   t130078 = 0.2e1 * t5499 * t25659;
39043   t130080 = 0.2e1 * t5097 * t25899;
39044   t130083 = 0.2e1 * t449 * t5135 * t5706;
39045   t130086 = 0.2e1 * t449 * t1252 * t25658;
39046   t130088 = 0.2e1 * t5097 * t25904;
39047   t130093 = t5044 * t118084 * t1133;
39048   t130097 = t1204 * t1348 * t5550;
39049   t130100 = t130069 - 0.2e1 / 0.3e1 * t1227 * t129357 + t130074 - 0.2e1 * t5499 * t25653 - t130078 - t130080 - t130083 - t130086 - t130088 - 0.2e1 * t449 * t1199 * t25903 - t4957 + 0.5e1 / 0.36e2 * t5084 * t130093 + 0.2e1 / 0.3e1 * t3788 * t130097;
39050   t130102 = 0.2e1 / 0.3e1 * t4026 * t129405;
39051   t130106 = 0.2e1 / 0.3e1 * t129395 * t5510;
39052   t130108 = 0.2e1 * t25669 * t129630;
39053   t130110 = 0.2e1 / 0.3e1 * t129424 * t24812;
39054   t130115 = 0.4e1 * t81 * t21482 * t5550;
39055   t130117 = 0.2e1 * t5695 * t5135;
39056   t130121 = 0.2e1 * t81 * t1231 * t25658 * t227;
39057   t130125 = 0.2e1 * t81 * t1143 * t25903 * t227;
39058   t130126 = -t130102 - 0.2e1 / 0.3e1 * t4026 * t129409 + t130106 + t130108 + t130110 - t129424 * t24816 / 0.3e1 + t24601 + t130115 - t130117 + t129422 + t129430 - t129435 + t130121 + t130125;
39059   t130128 = t130027 + t130066 + t130100 + t130126;
39060   t130146 = 0.6e1 * t1267 * t25707;
39061   t130148 = 0.3e1 * t25935 * t1221;
39062   t130152 = 0.3e1 * t1267 * t25718;
39063   t130164 = 0.6e1 * t5571 * t5492;
39064   t130173 = t130128 * t370 * params->d + 0.6e1 * t1219 * t25947 + 0.6e1 * t1219 * t25955 + 0.3e1 * t1219 * t25958 + 0.3e1 * t25695 * t1269 + 0.6e1 * t24975 * t1359 + 0.6e1 * t5166 * t5724 + 0.3e1 * t5166 * t5727 + 0.12e2 * t5483 * t5577 + 0.6e1 * t5483 * t5580 + t129466 + t129471 + t130146 + t130148 + t130152 + t130164 + t5079;
39065   t130175 = 0.12e2 * t1357 * t24991;
39066   t130177 = 0.12e2 * t1357 * t24994;
39067   t130180 = 0.12e2 * t369 * t5467 * t5550;
39068   t130183 = 0.12e2 * t369 * t5471 * t5550;
39069   t130186 = 0.6e1 * t369 * t25675 * t1231;
39070   t130189 = 0.6e1 * t369 * t25679 * t1231;
39071   t130191 = 0.6e1 * t1267 * t25715;
39072   t130193 = 0.6e1 * t5720 * t5172;
39073   t130195 = 0.12e2 * t1267 * t25710;
39074   t130197 = 0.12e2 * t1357 * t24999;
39075   t130199 = 0.12e2 * t5571 * t5489;
39076   t130202 = 0.6e1 * t369 * t25920 * t1143;
39077   t130205 = 0.12e2 * t369 * t5556 * t5460;
39078   t130208 = 0.12e2 * t1219 * t25950 + t129487 + t129488 + t129497 + t129504 + t130175 + t130177 + t130180 + t130183 + t130186 + t130189 + t130191 + t130193 + t130195 + t130197 + t130199 + t130202 + t130205;
39079   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39080     v4sigma2tau2[5] = t7 * t130128 * t372 + t25927 * t1224 + t25687 * t1272 + t5716 * t5175 + 0.2e1 * t24967 * t1362 + 0.2e1 * t5567 * t5495 + 0.2e1 * t5479 * t5583 + 0.2e1 * t1355 * t25002 + t5162 * t5730 + t1265 * t25721 + t1217 * t25961 + t872 * (t130173 + t130208);
39081 
39082   t130211 = t128958 * t25014;
39083   t130216 = t117269 * t1309 * t129034;
39084   t130220 = t129026 * t5590;
39085   t130222 = t129029 * t5590;
39086   t130224 = t4173 * t128962;
39087   t130228 = t4173 * t129020;
39088   t130231 = t1204 * t18923 * t5634;
39089   t130234 = -t130211 / 0.3e1 - t128959 / 0.3e1 + t128963 / 0.3e1 - 0.2e1 / 0.3e1 * t130216 + 0.5e1 / 0.72e2 * t129563 * t5201 - t130220 / 0.3e1 - t130222 / 0.3e1 + t130224 / 0.3e1 + t4173 * t129011 / 0.3e1 + t130228 / 0.3e1 + t3788 * t130231 / 0.3e1 + t128968;
39090   t130235 = t4173 * t129015;
39091   t130240 = t66 * t25450 * t1307;
39092   t130245 = 0.2e1 / 0.3e1 * t130235 - 0.5e1 / 0.72e2 * t5179 * t129518 - t128974 + t128980 + t128983 + t128987 + t128994 + t128998 + t129001 + t1135 * t130240 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t129588 + t129005;
39093   t130254 = -t129007 - 0.2e1 * t129008 + 0.2e1 / 0.3e1 * t129016 + t129021 / 0.3e1 - t129027 / 0.3e1 - t129030 / 0.3e1 - 0.2e1 / 0.3e1 * t129036 - t4957 + t129038 - t129041 - t129043 - 0.2e1 * t129048;
39094   t130256 = t5097 * t25969;
39095   t130262 = t449 * t1307 * t25470;
39096   t130264 = t5660 * t25018;
39097   t130266 = t129055 * t25014;
39098   t130275 = -0.4e1 * t129050 - 0.2e1 * t130256 - 0.2e1 * t449 * t5198 * t5634 - 0.2e1 * t130262 - 0.4e1 * t130264 + t24601 - t130266 / 0.3e1 + t1277 * t128970 / 0.3e1 - t129056 / 0.3e1 - t129060 - t129061 + 0.5e1 / 0.72e2 * t117320 * t25008 - 0.2e1 * t5623 * t5198;
39099   t130277 = t130234 + t130245 + t130254 + t130275;
39100   t130294 = t1318 * t25531;
39101   t130299 = t25985 * t1221;
39102   t130301 = t5598 * t5444;
39103   t130307 = t130277 * t370 * params->d + 0.6e1 * t5218 * t5652 + t129079 + t129081 + 0.12e2 * t129082 + t129086 + t129089 + t129091 + t129093 + 0.6e1 * t129094 + 0.3e1 * t129098 + t129101 + 0.3e1 * t130294 + 0.3e1 * t130299 + 0.6e1 * t130301 + t5079;
39104   t130309 = t1318 * t25528;
39105   t130313 = t1318 * t25523;
39106   t130320 = t1318 * t25520;
39107   t130322 = t5598 * t5441;
39108   t130324 = 0.6e1 * t25052 * t1338 + 0.3e1 * t5218 * t5655 + 0.6e1 * t129103 + t129107 + 0.3e1 * t129108 + t129112 + 0.6e1 * t129115 + t129119 + t129122 + 0.12e2 * t129123 + t129127 + t129128 + 0.6e1 * t130309 + 0.12e2 * t130313 + 0.6e1 * t130320 + 0.12e2 * t130322;
39109   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39110     v4sigma2tau2[6] = t7 * t130277 * t372 + t25977 * t1224 + t25500 * t1320 + t5644 * t5223 + 0.2e1 * t25044 * t1341 + 0.2e1 * t5594 * t5447 + 0.2e1 * t5431 * t5602 + 0.2e1 * t1334 * t25065 + t5214 * t5658 + t1316 * t25534 + t1217 * t25993 + t872 * (t130307 + t130324);
39111 
39112   t130327 = t129186 * t5590;
39113   t130329 = t4173 * t129205;
39114   t130333 = t4173 * t129213;
39115   t130335 = t129183 * t5590;
39116   t130341 = t129146 * t25014;
39117   t130343 = t129151 * t25014;
39118   t130346 = t1204 * t18923 * t5665;
39119   t130349 = t129175 * t5590;
39120   t130351 = -t130327 / 0.3e1 + t130329 / 0.3e1 + t4173 * t129209 / 0.3e1 + t130333 / 0.3e1 - t130335 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t129808 + t129137 + t129141 + t129145 + 0.5e1 / 0.72e2 * t117804 * t25008 - t130341 / 0.3e1 - t130343 / 0.3e1 + t3788 * t130346 / 0.3e1 - t130349 / 0.3e1;
39121   t130352 = t129178 * t5590;
39122   t130360 = t4173 * t129172;
39123   t130364 = t4173 * t129194;
39124   t130367 = t1204 * t5587 * t1347;
39125   t130370 = t5097 * t26001;
39126   t130376 = t449 * t1307 * t25560;
39127   t130378 = -t130352 / 0.3e1 - t129147 / 0.3e1 - t129152 / 0.3e1 - t129155 - 0.2e1 * t129156 - t129159 - 0.2e1 * t129164 + 0.5e1 / 0.72e2 * t117659 * t25008 + t130360 / 0.3e1 + t4173 * t129190 / 0.3e1 + t130364 / 0.3e1 + t3788 * t130367 / 0.3e1 - 0.2e1 * t130370 - 0.2e1 * t449 * t5198 * t5665 - 0.2e1 * t130376;
39128   t130380 = t25540 * t5606;
39129   t130384 = t5660 * t25093;
39130   t130396 = -0.2e1 * t130380 - 0.2e1 * t5660 * t25090 - 0.2e1 * t130384 - 0.5e1 / 0.72e2 * t5179 * t129802 - 0.2e1 * t129167 - t129170 - t4957 + t129173 / 0.3e1 - t129176 / 0.3e1 - t129179 / 0.3e1 - t129184 / 0.3e1 - t129187 / 0.3e1 + t129195 / 0.3e1 + t129206 / 0.3e1;
39131   t130399 = t129214 / 0.3e1 - 0.2e1 * t129221 + t24594 + t24601 - t129225 - t129227 + t129230 + t129232 + t129235 + t129238 + t129240 + t129243 + t24715 - t24629 - t24739;
39132   t130401 = t130351 + t130378 + t130396 + t130399;
39133   t130418 = t5616 * t5444;
39134   t130420 = t1318 * t25633;
39135   t130430 = t1318 * t25619;
39136   t130432 = t1318 * t25622;
39137   t130434 = 0.3e1 * t25052 * t1359 + 0.3e1 * t5218 * t5689 + 0.6e1 * t129265 + 0.6e1 * t129267 + t129270 + 0.6e1 * t129271 + 0.6e1 * t129273 + 0.3e1 * t130418 + 0.3e1 * t130420 + 0.6e1 * t130430 + 0.6e1 * t130432;
39138   t130435 = t5598 * t5489;
39139   t130437 = t1318 * t25630;
39140   t130440 = t1318 * t25625;
39141   t130444 = t129276 + 0.6e1 * t130435 + t129282 + 0.6e1 * t130437 + t5079 + t129285 + 0.6e1 * t129286 + 0.6e1 * t130440 + t129289 + 0.3e1 * t129290 + 0.3e1 * t129292;
39142   t130451 = t26017 * t1221;
39143   t130453 = t130401 * t370 * params->d + 0.3e1 * t25113 * t1338 + t129295 + t129298 + t129303 + 0.3e1 * t129304 + t129308 + t129313 + t129316 + 0.3e1 * t130451 + t24759;
39144   t130455 = t5616 * t5441;
39145   t130457 = t5598 * t5492;
39146   t130462 = 0.6e1 * t5218 * t5686 + t129319 + t129321 + 0.6e1 * t129322 + t129325 + t129328 + 0.3e1 * t129329 + 0.6e1 * t130455 + 0.3e1 * t130457 + t24665 + t24680 + t24774;
39147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39148     v4sigma2tau2[7] = t7 * t130401 * t372 + t26009 * t1224 + t25593 * t1320 + t5676 * t5223 + t25105 * t1341 + t5612 * t5447 + t5479 * t5602 + t1355 * t25065 + t25044 * t1362 + t5594 * t5495 + t5431 * t5620 + t1334 * t25126 + t5214 * t5692 + t1316 * t25636 + t1217 * t26027 + t872 * (t130434 + t130444 + t130453 + t130462);
39149 
39150   t130466 = t4173 * t129405;
39151   t130470 = t4173 * t129413;
39152   t130473 = t1204 * t18923 * t5706;
39153   t130477 = t118093 * t1309 * t129388;
39154   t130484 = t4173 * t129399;
39155   t130488 = t130466 / 0.3e1 + t4173 * t129409 / 0.3e1 + t130470 / 0.3e1 + t3788 * t130473 / 0.3e1 - 0.2e1 / 0.3e1 * t130477 + 0.5e1 / 0.72e2 * t130018 * t5201 - t129337 / 0.3e1 - 0.5e1 / 0.72e2 * t5179 * t130035 + t129340 + 0.2e1 / 0.3e1 * t130484 - 0.5e1 / 0.72e2 * t5179 * t130093 + t129347;
39156   t130489 = t129336 * t25014;
39157   t130496 = t129350 + t129353 - t129355 + t129366 - t130489 / 0.3e1 - 0.4e1 * t129367 - t129370 - 0.2e1 * t129371 - 0.2e1 * t5695 * t5198 - t129374 - 0.2e1 * t129379 + t129384;
39158   t130504 = t129392 * t5590;
39159   t130506 = t129395 * t5590;
39160   t130508 = -t129386 - 0.2e1 / 0.3e1 * t129390 - t129393 / 0.3e1 - t129396 / 0.3e1 + 0.2e1 / 0.3e1 * t129400 + t129406 / 0.3e1 + t129414 / 0.3e1 - t4957 + t24601 - t130504 / 0.3e1 - t130506 / 0.3e1 - t129421;
39161   t130509 = t129424 * t25014;
39162   t130513 = t23107 * t25093;
39163   t130515 = t5097 * t26035;
39164   t130521 = t449 * t1307 * t25658;
39165   t130525 = t66 * t25638 * t1307;
39166   t130530 = -t130509 / 0.3e1 + 0.5e1 / 0.72e2 * t117974 * t25008 - 0.4e1 * t130513 - 0.2e1 * t130515 - 0.2e1 * t449 * t5198 * t5706 - 0.2e1 * t130521 + t129422 - t129425 / 0.3e1 + t129430 + t129434 - t129435 + t1135 * t130525 / 0.3e1 + t1277 * t129357 / 0.3e1;
39167   t130532 = t130488 + t130496 + t130508 + t130530;
39168   t130552 = t26051 * t1221;
39169   t130554 = t1318 * t25710;
39170   t130556 = t1318 * t25718;
39171   t130558 = t5616 * t5489;
39172   t130561 = t1318 * t25715;
39173   t130565 = t130532 * t370 * params->d + 0.3e1 * t129454 + t129457 + t129460 + t129463 + t129466 + 0.6e1 * t129467 + 0.6e1 * t129469 + t129471 + 0.12e2 * t129472 + 0.3e1 * t130552 + 0.12e2 * t130554 + 0.3e1 * t130556 + 0.12e2 * t130558 + 0.6e1 * t130561 + t5079;
39174   t130566 = t1318 * t25707;
39175   t130574 = t5616 * t5492;
39176   t130579 = 0.6e1 * t25113 * t1359 + 0.6e1 * t5218 * t5724 + 0.3e1 * t5218 * t5727 + t129482 + 0.12e2 * t129483 + t129487 + t129488 + 0.6e1 * t129489 + t129493 + t129495 + t129497 + t129500 + t129504 + 0.3e1 * t129505 + 0.6e1 * t130566 + 0.6e1 * t130574;
39177   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39178     v4sigma2tau2[8] = t7 * t130532 * t372 + t26043 * t1224 + t25687 * t1320 + t5716 * t5223 + 0.2e1 * t25105 * t1362 + 0.2e1 * t5612 * t5495 + 0.2e1 * t5479 * t5620 + 0.2e1 * t1355 * t25126 + t5214 * t5730 + t1316 * t25721 + t1217 * t26059 + t872 * (t130565 + t130579);
39179 
39180   t130584 = t5506 * t5506;
39181   t130588 = t14483 * t19271;
39182   t130616 = -0.8e1 / 0.3e1 * t4026 * t129522 + t128998 - 0.4e1 * t82 * t130584 * t363 + 0.2e1 * t25481 * t130588 + 0.4e1 * t81 * t130584 * t227 - t129007 - 0.4e1 * t5499 * t25733 - 0.4e1 * t5499 * t25738 - 0.2e1 * t449 * t5267 * t5634 - 0.4e1 * t449 * t1252 * t25737 - 0.8e1 * t5660 * t25160 + 0.4e1 / 0.3e1 * t128958 * t25128 - 0.2e1 * t5623 * t5267 - t4957 + t129038 - 0.2e1 * t25496 * t5260 - 0.4e1 / 0.3e1 * t1227 * t129547 - 0.5e1 / 0.18e2 * t5228 * t128990;
39183   t130635 = t1204 * t5506;
39184   t130643 = t14483 * t19279;
39185   t130656 = 0.5e1 / 0.18e2 * t128975 * t25137 + t24601 + 0.4e1 / 0.3e1 * t129055 * t25128 + 0.4e1 / 0.3e1 * t129573 * t5510 + 0.4e1 / 0.3e1 * t129576 * t5510 + 0.5e1 / 0.18e2 * t117320 * t25137 - 0.4e1 / 0.3e1 * t4026 * t129534 - 0.4e1 / 0.3e1 * t4026 * t129538 - 0.4e1 / 0.3e1 * t4026 * t129542 - 0.5e1 / 0.18e2 * t19122 * t129023 + 0.8e1 / 0.3e1 * t117269 * t1254 * t130635 + 0.4e1 * t81 * t1231 * t25737 * t227 - 0.2e1 * t25481 * t130643 - t129061 + 0.8e1 * t117421 * t14483 * t4049 * t5506 + 0.2e1 * t25496 * t5256 + 0.4e1 * t129552 * t1246 + 0.4e1 * t129555 * t1246;
39186   t130657 = t130616 + t130656;
39187   t130688 = 0.12e2 * t1267 * t25782 + 0.12e2 * t1267 * t25790 + 0.6e1 * t25770 * t1269 + 0.6e1 * t25179 * t1338 + 0.3e1 * t5290 * t5655 + 0.6e1 * t5648 * t5294 + 0.24e2 * t5528 * t5534 + 0.12e2 * t5528 * t5537 + t129079 + t129089 + t129091 + t5079;
39188   t130713 = 0.12e2 * t1231 * t25755 * t369 + 0.12e2 * t130584 * t369 * t96 + t130657 * t370 * params->d + 0.6e1 * t369 * t5235 * t5634 + 0.24e2 * t369 * t5506 * t5513 + 0.24e2 * t1267 * t25785 + 0.6e1 * t1267 * t25793 + 0.12e2 * t1336 * t25191 + 0.24e2 * t1336 * t25194 + 0.6e1 * t5290 * t5652 + t129122 + t129127 + t129128;
39189   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39190     v4sigma2tau2[9] = t7 * t130657 * t372 + 0.2e1 * t25762 * t1272 + t5644 * t5297 + 0.2e1 * t25171 * t1341 + 0.4e1 * t5524 * t5540 + 0.2e1 * t1334 * t25197 + t5286 * t5658 + 0.2e1 * t1265 * t25796 + t872 * (t130688 + t130713);
39191 
39192   t130759 = -0.4e1 / 0.3e1 * t4026 * t129794 - 0.4e1 / 0.3e1 * t4026 * t129731 - 0.4e1 / 0.3e1 * t4026 * t129735 - 0.5e1 / 0.18e2 * t19122 * t129199 - 0.4e1 * t25800 * t5546 - 0.4e1 * t25800 * t5551 - 0.2e1 * t5660 * t25209 - 0.4e1 * t5660 * t25212 - 0.4e1 * t5499 * t25811 + t129141 + 0.4e1 * t81 * t5506 * t5550 * t227;
39193   t130794 = -0.4e1 * t1252 * t25815 * t449 + 0.4e1 * t129767 * t1246 + 0.4e1 * t129874 * t1246 + 0.2e1 * t25575 * t5256 - 0.2e1 * t25589 * t5260 + t24594 + t24601 - t24629 + t24715 - t24739 - t4957;
39194   t130796 = 0.4e1 / 0.3e1 * t129756 * t5510 + 0.4e1 / 0.3e1 * t129865 * t5510 + 0.5e1 / 0.18e2 * t117659 * t25137 + 0.4e1 / 0.3e1 * t129777 * t5510 + 0.4e1 / 0.3e1 * t129780 * t5510 + 0.5e1 / 0.18e2 * t117804 * t25137 - 0.4e1 / 0.3e1 * t4026 * t129741 - 0.4e1 / 0.3e1 * t4026 * t129745 - 0.4e1 / 0.3e1 * t4026 * t129749 - 0.5e1 / 0.18e2 * t19122 * t129216 + t130759 - t129155 - 0.4e1 * t5499 * t25816 - 0.2e1 * t449 * t5267 * t5665 + 0.4e1 / 0.3e1 * t129146 * t25128 + 0.4e1 / 0.3e1 * t129151 * t25128 + 0.4e1 * t81 * t1231 * t25815 * t227 + 0.4e1 * t129868 * t1246 + 0.4e1 * t129871 * t1246 + 0.2e1 * t25589 * t5256 - 0.2e1 * t25575 * t5260 + t130794;
39195   t130837 = 0.12e2 * t1231 * t25837 * t369 + 0.12e2 * t1326 * t25201 * t369 + 0.12e2 * t369 * t5506 * t5556 + 0.12e2 * t369 * t5506 * t5560 + 0.12e2 * t1267 * t25881 + 0.12e2 * t1336 * t25263 + 0.12e2 * t1357 * t25194 + 0.3e1 * t25179 * t1359 + 0.12e2 * t5528 * t5577 + 0.12e2 * t5571 * t5534 + t129276 + t129298 + t129303 + t129308 + t129321 + t24759 + t5079;
39196   t130869 = t130796 * t370 * params->d + 0.6e1 * t369 * t5235 * t5665 + 0.12e2 * t1267 * t25870 + 0.12e2 * t1267 * t25873 + 0.12e2 * t1267 * t25876 + 0.6e1 * t1267 * t25884 + 0.6e1 * t25852 * t1269 + 0.6e1 * t1336 * t25260 + 0.3e1 * t25248 * t1338 + 0.6e1 * t1357 * t25191 + 0.6e1 * t5290 * t5686 + 0.3e1 * t5290 * t5689 + 0.6e1 * t5680 * t5294 + 0.6e1 * t5528 * t5580 + 0.6e1 * t5571 * t5537 + t24665 + t24680 + t24774;
39197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39198     v4sigma2tau2[10] = t7 * t130796 * t372 + 0.2e1 * t25844 * t1272 + t5676 * t5297 + t25240 * t1341 + 0.2e1 * t5567 * t5540 + t1355 * t25197 + t25171 * t1362 + 0.2e1 * t5524 * t5583 + t1334 * t25266 + t5286 * t5692 + 0.2e1 * t1265 * t25887 + t872 * (t130837 + t130869);
39199 
39200   t130872 = t1204 * t5550;
39201   t130908 = 0.8e1 / 0.3e1 * t118093 * t1254 * t130872 + 0.4e1 / 0.3e1 * t130021 * t5510 + 0.4e1 / 0.3e1 * t130024 * t5510 + 0.5e1 / 0.18e2 * t117974 * t25137 + 0.4e1 / 0.3e1 * t129336 * t25128 - 0.2e1 * t5695 * t5267 + 0.4e1 * t130072 * t1246 - 0.2e1 * t25683 * t5260 - 0.2e1 * t25669 * t130643 - t129370 + 0.2e1 * t25669 * t130588 + 0.4e1 * t81 * t1231 * t25903 * t227 - t4957 + t24601 + 0.5e1 / 0.18e2 * t129341 * t25137 + 0.8e1 * t118032 * t14483 * t4049 * t5550 - 0.4e1 / 0.3e1 * t1227 * t130046 - 0.5e1 / 0.18e2 * t5228 * t129362;
39202   t130913 = t5550 * t5550;
39203   t130944 = 0.4e1 * t130059 * t1246 + 0.2e1 * t25683 * t5256 - 0.4e1 * t82 * t130913 * t363 + t129422 - 0.8e1 * t23107 * t25212 - 0.4e1 * t5499 * t25899 - 0.4e1 * t5499 * t25904 - 0.2e1 * t449 * t5267 * t5706 - 0.4e1 * t449 * t1252 * t25903 + 0.4e1 * t81 * t130913 * t227 + t129430 - t129435 + 0.4e1 / 0.3e1 * t129424 * t25128 - 0.8e1 / 0.3e1 * t4026 * t130097 - 0.4e1 / 0.3e1 * t4026 * t129998 - 0.4e1 / 0.3e1 * t4026 * t130029 - 0.4e1 / 0.3e1 * t4026 * t130011 - 0.5e1 / 0.18e2 * t19122 * t129416;
39204   t130945 = t130908 + t130944;
39205   t130980 = 0.12e2 * t1231 * t25920 * t369 + t130945 * t370 * params->d + 0.24e2 * t369 * t5550 * t5556 + 0.24e2 * t1267 * t25950 + 0.12e2 * t1267 * t25955 + 0.24e2 * t1357 * t25263 + 0.6e1 * t25248 * t1359 + 0.3e1 * t5290 * t5727 + 0.24e2 * t5571 * t5577 + t129466 + t129471 + t5079;
39206   t131001 = 0.12e2 * t130913 * t369 * t96 + 0.6e1 * t369 * t5235 * t5706 + 0.12e2 * t1267 * t25947 + 0.6e1 * t1267 * t25958 + 0.6e1 * t25935 * t1269 + 0.12e2 * t1357 * t25260 + 0.6e1 * t5290 * t5724 + 0.6e1 * t5720 * t5294 + 0.12e2 * t5571 * t5580 + t129487 + t129488 + t129497 + t129504;
39207   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39208     v4sigma2tau2[11] = t7 * t130945 * t372 + 0.2e1 * t25927 * t1272 + t5716 * t5297 + 0.2e1 * t25240 * t1362 + 0.4e1 * t5567 * t5583 + 0.2e1 * t1355 * t25266 + t5286 * t5730 + 0.2e1 * t1265 * t25961 + t872 * (t130980 + t131001);
39209 
39210   t131013 = t129511 + t129516 - t129526 - t129530 - t129532 - t128958 * t25294 / 0.3e1 + t128998 + t129554 + t129557 + t129559 + t4173 * t129542 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t130231 - 0.2e1 / 0.3e1 * t117269 * t1309 * t130635;
39211   t131034 = -0.5e1 / 0.36e2 * t129563 * t5313 + 0.2e1 / 0.3e1 * t4173 * t129522 - 0.2e1 / 0.3e1 * t1227 * t130240 - t129007 + t129570 + t129572 - t129580 - t129584 - t129573 * t5590 / 0.3e1 - t129576 * t5590 / 0.3e1 + 0.5e1 / 0.36e2 * t5179 * t5044 * t117264 * t57 + t4173 * t129534 / 0.3e1 + t4173 * t129538 / 0.3e1 - 0.5e1 / 0.36e2 * t117320 * t25280;
39212   t131043 = -0.2e1 * t1307 * t25737 * t449 - 0.4e1 * t5660 * t25299 - 0.2e1 * t5499 * t25969 + t129038 - t129061 + t129592 + t129594 + t129596 + t129601 + t129605 + t129610 + t24601 - t4957;
39213   t131052 = 0.5e1 / 0.36e2 * t5179 * t18560 * t5635 * t57 - t129612 - t129616 - t129618 - t129621 - t129624 - t129626 - t129055 * t25294 / 0.3e1 + t1277 * t129547 / 0.3e1 + t129632 + t129636 + t129640 - t129642 - t129644;
39214   t131054 = t131013 + t131034 + t131043 + t131052;
39215   t131081 = 0.12e2 * t1318 * t25785 + 0.6e1 * t1318 * t25790 + 0.3e1 * t1318 * t25793 + 0.3e1 * t5327 * t5655 + 0.12e2 * t5598 * t5534 + t129079 + t129089 + t129091 + t129669 + t129671 + t129677 + t129680 + t129687 + t129689 + t129692 + t129696 + t5079;
39216   t131094 = t131054 * t370 * params->d + 0.3e1 * t25985 * t1269 + 0.6e1 * t1318 * t25782 + 0.6e1 * t25317 * t1338 + 0.6e1 * t5327 * t5652 + 0.6e1 * t5598 * t5537 + t129122 + t129127 + t129128 + t129699 + t129702 + t129704 + t129706 + t129712 + t129714 + t129716 + t129722 + t129724;
39217   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39218     v4sigma2tau2[12] = t7 * t131054 * t372 + t25977 * t1272 + t25762 * t1320 + t5644 * t5331 + 0.2e1 * t25309 * t1341 + 0.2e1 * t5594 * t5540 + 0.2e1 * t5524 * t5602 + 0.2e1 * t1334 * t25327 + t5323 * t5658 + t1316 * t25796 + t1265 * t25993 + t872 * (t131081 + t131094);
39219 
39220   t131115 = -t129739 - t129146 * t25294 / 0.3e1 - t129151 * t25294 / 0.3e1 + t129753 + t129755 + t4173 * t129794 / 0.3e1 + t4173 * t129731 / 0.3e1 + t4173 * t129735 / 0.3e1 - t129777 * t5590 / 0.3e1 - t129780 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t130346 - t129756 * t5590 / 0.3e1 + t129760 - t129762 + t129764 + t129766;
39221   t131127 = t129769 + t129141 - t129771 + t129776 - t129155 - t129786 - t129788 - t129792 - t129800 - 0.5e1 / 0.36e2 * t117804 * t25280 + t129812 + t129818 - t4957 - 0.5e1 / 0.36e2 * t117659 * t25280 + t24594 + 0.5e1 / 0.36e2 * t5179 * t129807 * t25348 + 0.5e1 / 0.36e2 * t5179 * t18560 * t5666 * t57;
39222   t131132 = -t1307 * t25815 * t449 - t5499 * t26001 + t129823 - t129825 - t129827 - t129829 - t129831 - t129837 - t129839 - t129842 - t129845 - t129848 + t129855 + t129859 + t129863 + t24600;
39223   t131148 = -t129865 * t5590 / 0.3e1 - 0.2e1 / 0.3e1 * t4026 * t130367 + t4173 * t129741 / 0.3e1 + t4173 * t129745 / 0.3e1 + t4173 * t129749 / 0.3e1 - 0.2e1 * t25800 * t5606 - 0.2e1 * t5660 * t25343 + t24715 - t24629 - t24739 + t129870 + t129873 + t129876 + t129878 + t129880 + t129882 + t129884;
39224   t131150 = t131115 + t131127 + 0.2e1 * t131132 + t131148;
39225   t131173 = 0.6e1 * t1318 * t25870 + 0.6e1 * t1318 * t25873 + 0.6e1 * t1318 * t25881 + t129276 + t129298 + t129303 + t129308 + t129909 + t129913 + t129922 + t129924 + t5079;
39226   t131187 = 0.3e1 * t1318 * t25884 + 0.3e1 * t25317 * t1359 + 0.6e1 * t5327 * t5686 + 0.3e1 * t5327 * t5689 + 0.6e1 * t5598 * t5577 + 0.3e1 * t5598 * t5580 + t129321 + t129930 + t129934 + t129936 + t129940 + 0.6e1 * t129944 + t24759;
39227   t131202 = 0.3e1 * t26017 * t1269 + 0.6e1 * t1318 * t25876 + 0.6e1 * t129945 + 0.6e1 * t129948 + 0.6e1 * t129949 + 0.6e1 * t129952 + 0.6e1 * t129955 + 0.6e1 * t129957 + 0.6e1 * t129959 + 0.6e1 * t129961 + 0.6e1 * t129963 + t129967 + t129969;
39228   t131211 = t131150 * t370 * params->d + 0.3e1 * t25365 * t1338 + 0.6e1 * t5616 * t5534 + 0.3e1 * t5616 * t5537 + t129973 + t129975 + t129977 + t129979 + t129981 + t129984 + t24665 + t24680 + t24774;
39229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39230     v4sigma2tau2[13] = t7 * t131150 * t372 + t26009 * t1272 + t25844 * t1320 + t5676 * t5331 + t25357 * t1341 + t5612 * t5540 + t5567 * t5602 + t1355 * t25327 + t25309 * t1362 + t5594 * t5583 + t5524 * t5620 + t1334 * t25375 + t5323 * t5692 + t1316 * t25887 + t1265 * t26027 + t872 * (t131173 + t131187 + t131202 + t131211);
39231 
39232   t131232 = t129992 + 0.5e1 / 0.36e2 * t5179 * t18560 * t5707 * t57 - 0.5e1 / 0.36e2 * t117974 * t25280 - t130021 * t5590 / 0.3e1 - t130024 * t5590 / 0.3e1 - t129996 - t130002 - t130004 + t130009 + t130016 - 0.2e1 / 0.3e1 * t4026 * t130473 - 0.2e1 / 0.3e1 * t118093 * t1309 * t130872 - t129336 * t25294 / 0.3e1;
39233   t131233 = -t130040 - t130044 - t129370 + t130052 + t130056 - t130058 + t130061 + t130063 + t130065 + t130069 + t130074 - t130078 - t130080 - t130083;
39234   t131245 = -t130086 - t130088 - t4957 + 0.2e1 / 0.3e1 * t4173 * t130097 + 0.5e1 / 0.36e2 * t5179 * t5044 * t118084 * t57 - 0.5e1 / 0.36e2 * t130018 * t5313 - t130102 + t130106 + t130108 - t129424 * t25294 / 0.3e1 + t130110 + t24601 + t130115;
39235   t131263 = -t130117 + t4173 * t129998 / 0.3e1 + t4173 * t130029 / 0.3e1 + t4173 * t130011 / 0.3e1 + t1277 * t130046 / 0.3e1 - 0.2e1 / 0.3e1 * t1227 * t130525 + t129422 + t129430 - 0.4e1 * t23107 * t25343 - 0.2e1 * t5499 * t26035 - 0.2e1 * t449 * t1307 * t25903 - t129435 + t130121 + t130125;
39236   t131265 = t131232 + t131233 + t131245 + t131263;
39237   t131300 = 0.6e1 * t1318 * t25947 + 0.12e2 * t1318 * t25950 + 0.6e1 * t1318 * t25955 + 0.3e1 * t1318 * t25958 + 0.6e1 * t25365 * t1359 + 0.6e1 * t5327 * t5724 + 0.3e1 * t5327 * t5727 + 0.12e2 * t5616 * t5577 + 0.6e1 * t5616 * t5580 + t129466 + t129471 + t130146 + t130148 + t130152 + t130164 + t130175 + t5079;
39238   t131305 = t131265 * t370 * params->d + 0.3e1 * t26051 * t1269 + t129487 + t129488 + t129497 + t129504 + t130177 + t130180 + t130183 + t130186 + t130189 + t130191 + t130193 + t130195 + t130197 + t130199 + t130202 + t130205;
39239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39240     v4sigma2tau2[14] = t7 * t131265 * t372 + t26043 * t1272 + t25927 * t1320 + t5716 * t5331 + 0.2e1 * t25357 * t1362 + 0.2e1 * t5612 * t5583 + 0.2e1 * t5567 * t5620 + 0.2e1 * t1355 * t25375 + t5323 * t5730 + t1316 * t25961 + t1265 * t26059 + t872 * (t131300 + t131305);
39241 
39242   t131322 = -0.2e1 / 0.3e1 * t130211 - 0.4e1 / 0.3e1 * t130216 - 0.2e1 / 0.3e1 * t130220 - 0.2e1 / 0.3e1 * t130222 + 0.2e1 / 0.3e1 * t130224 + 0.2e1 / 0.3e1 * t130228 + t128968 + 0.4e1 / 0.3e1 * t130235 - t128974 + t128980 + t128983 + t128987 + t128994 + t128998 + t129001 - 0.2e1 * t449 * t5381 * t5634 + 0.5e1 / 0.72e2 * t117320 * t25377 + 0.2e1 / 0.3e1 * t4173 * t130231;
39243   t131337 = -0.5e1 / 0.72e2 * t19532 * t129023 - 0.5e1 / 0.72e2 * t5335 * t128990 + 0.2e1 / 0.3e1 * t1277 * t130240 + 0.5e1 / 0.72e2 * t128975 * t25377 + t129005 - t129007 - t4957 + t129038 - t129041 - t129043 - 0.4e1 * t130256 - 0.4e1 * t130262 - 0.8e1 * t130264 + t24601 - 0.2e1 / 0.3e1 * t130266 - t129060 - t129061 - 0.2e1 * t5623 * t5381;
39244   t131338 = t131322 + t131337;
39245   t131360 = 0.6e1 * t25405 * t1338 + 0.6e1 * t5396 * t5652 + t129079 + t129081 + t129086 + t129089 + t129091 + t129093 + t129101 + 0.6e1 * t130294 + 0.6e1 * t130299 + 0.12e2 * t130301;
39246   t131369 = t131338 * t370 * params->d + 0.3e1 * t5396 * t5655 + t129107 + t129112 + t129119 + t129122 + t129127 + t129128 + 0.12e2 * t130309 + 0.24e2 * t130313 + 0.12e2 * t130320 + 0.24e2 * t130322 + t5079;
39247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39248     v4sigma2tau2[15] = t7 * t131338 * t372 + 0.2e1 * t25977 * t1320 + t5644 * t5399 + 0.2e1 * t25397 * t1341 + 0.4e1 * t5594 * t5602 + 0.2e1 * t1334 * t25412 + t5392 * t5658 + 0.2e1 * t1316 * t25993 + t872 * (t131360 + t131369);
39249 
39250   t131391 = -0.2e1 / 0.3e1 * t130343 - 0.2e1 / 0.3e1 * t130349 - 0.2e1 / 0.3e1 * t130352 - t129155 - t129159 + 0.2e1 / 0.3e1 * t130360 + 0.2e1 / 0.3e1 * t130364 - 0.4e1 * t130370 - 0.4e1 * t130376 - 0.4e1 * t130380 - 0.4e1 * t130384;
39251   t131407 = t129232 + t129235 + t129238 + t129240 + t129243 + 0.5e1 / 0.72e2 * t117804 * t25377 + t24715 - t24629 - 0.2e1 * t5660 * t25414 - 0.2e1 * t449 * t5381 * t5665 - t24739;
39252   t131409 = -0.2e1 / 0.3e1 * t130327 + 0.2e1 / 0.3e1 * t130329 + 0.2e1 / 0.3e1 * t130333 - 0.2e1 / 0.3e1 * t130335 + 0.5e1 / 0.72e2 * t117659 * t25377 + 0.2e1 / 0.3e1 * t4173 * t130367 + t129137 + t129141 + t129145 - 0.2e1 / 0.3e1 * t130341 + t131391 - t129170 - t4957 + 0.2e1 / 0.3e1 * t4173 * t130346 - 0.5e1 / 0.72e2 * t19532 * t129216 - 0.5e1 / 0.72e2 * t19532 * t129199 + t24594 + t24601 - t129225 - t129227 + t129230 + t131407;
39253   t131439 = 0.3e1 * t25441 * t1338 + 0.3e1 * t25405 * t1359 + 0.6e1 * t5396 * t5686 + t129270 + t129276 + t129282 + t129285 + t129289 + t129295 + 0.6e1 * t130418 + 0.6e1 * t130420 + 0.12e2 * t130430 + 0.12e2 * t130432 + 0.12e2 * t130435 + 0.12e2 * t130437 + 0.12e2 * t130440 + t5079;
39254   t131447 = t131409 * t370 * params->d + 0.3e1 * t5396 * t5689 + t129298 + t129303 + t129308 + t129313 + t129316 + t129319 + t129321 + t129325 + t129328 + 0.6e1 * t130451 + 0.12e2 * t130455 + 0.6e1 * t130457 + t24665 + t24680 + t24759 + t24774;
39255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39256     v4sigma2tau2[16] = t7 * t131409 * t372 + 0.2e1 * t26009 * t1320 + t5676 * t5399 + t25433 * t1341 + 0.2e1 * t5612 * t5602 + t1355 * t25412 + t25397 * t1362 + 0.2e1 * t5594 * t5620 + t1334 * t25448 + t5392 * t5692 + 0.2e1 * t1316 * t26027 + t872 * (t131439 + t131447);
39257 
39258   t131468 = -0.5e1 / 0.72e2 * t19532 * t129416 + 0.2e1 / 0.3e1 * t130466 + 0.2e1 / 0.3e1 * t130470 - 0.4e1 / 0.3e1 * t130477 + 0.2e1 / 0.3e1 * t4173 * t130473 + 0.2e1 / 0.3e1 * t1277 * t130525 - 0.5e1 / 0.72e2 * t5335 * t129362 + 0.5e1 / 0.72e2 * t129341 * t25377 + t129340 + 0.4e1 / 0.3e1 * t130484 + t129347 + t129350 + t129353 - t129355 + t129366 - 0.2e1 / 0.3e1 * t130489 - 0.2e1 * t449 * t5381 * t5706 - t129370;
39259   t131479 = -t129374 + t129384 - t129386 + 0.5e1 / 0.72e2 * t117974 * t25377 - t4957 - 0.2e1 * t5695 * t5381 + t24601 - 0.2e1 / 0.3e1 * t130504 - 0.2e1 / 0.3e1 * t130506 - t129421 - 0.2e1 / 0.3e1 * t130509 - 0.8e1 * t130513 - 0.4e1 * t130515 - 0.4e1 * t130521 + t129422 + t129430 + t129434 - t129435;
39260   t131480 = t131468 + t131479;
39261   t131504 = t131480 * t370 * params->d + 0.6e1 * t5396 * t5724 + t129457 + t129460 + t129463 + t129466 + 0.6e1 * t130552 + 0.24e2 * t130554 + 0.6e1 * t130556 + 0.24e2 * t130558 + 0.12e2 * t130561 + t5079;
39262   t131511 = 0.6e1 * t25441 * t1359 + 0.3e1 * t5396 * t5727 + t129471 + t129482 + t129487 + t129488 + t129493 + t129495 + t129497 + t129500 + t129504 + 0.12e2 * t130566 + 0.12e2 * t130574;
39263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39264     v4sigma2tau2[17] = t7 * t131480 * t372 + 0.2e1 * t26043 * t1320 + t5716 * t5399 + 0.2e1 * t25433 * t1362 + 0.4e1 * t5612 * t5620 + 0.2e1 * t1355 * t25448 + t5392 * t5730 + 0.2e1 * t1316 * t26059 + t872 * (t131504 + t131511);
39265 
39266   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39267     v4sigmalapl3[0] = 0.0e0;
39268 
39269   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39270     v4sigmalapl3[1] = 0.0e0;
39271 
39272   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39273     v4sigmalapl3[2] = 0.0e0;
39274 
39275   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39276     v4sigmalapl3[3] = 0.0e0;
39277 
39278   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39279     v4sigmalapl3[4] = 0.0e0;
39280 
39281   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39282     v4sigmalapl3[5] = 0.0e0;
39283 
39284   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39285     v4sigmalapl3[6] = 0.0e0;
39286 
39287   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39288     v4sigmalapl3[7] = 0.0e0;
39289 
39290   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39291     v4sigmalapl3[8] = 0.0e0;
39292 
39293   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39294     v4sigmalapl3[9] = 0.0e0;
39295 
39296   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39297     v4sigmalapl3[10] = 0.0e0;
39298 
39299   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39300     v4sigmalapl3[11] = 0.0e0;
39301 
39302   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39303     v4sigmalapl2tau[0] = 0.0e0;
39304 
39305   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39306     v4sigmalapl2tau[1] = 0.0e0;
39307 
39308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39309     v4sigmalapl2tau[2] = 0.0e0;
39310 
39311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39312     v4sigmalapl2tau[3] = 0.0e0;
39313 
39314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39315     v4sigmalapl2tau[4] = 0.0e0;
39316 
39317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39318     v4sigmalapl2tau[5] = 0.0e0;
39319 
39320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39321     v4sigmalapl2tau[6] = 0.0e0;
39322 
39323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39324     v4sigmalapl2tau[7] = 0.0e0;
39325 
39326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39327     v4sigmalapl2tau[8] = 0.0e0;
39328 
39329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39330     v4sigmalapl2tau[9] = 0.0e0;
39331 
39332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39333     v4sigmalapl2tau[10] = 0.0e0;
39334 
39335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39336     v4sigmalapl2tau[11] = 0.0e0;
39337 
39338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39339     v4sigmalapl2tau[12] = 0.0e0;
39340 
39341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39342     v4sigmalapl2tau[13] = 0.0e0;
39343 
39344   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39345     v4sigmalapl2tau[14] = 0.0e0;
39346 
39347   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39348     v4sigmalapl2tau[15] = 0.0e0;
39349 
39350   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39351     v4sigmalapl2tau[16] = 0.0e0;
39352 
39353   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39354     v4sigmalapl2tau[17] = 0.0e0;
39355 
39356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39357     v4sigmalapltau2[0] = 0.0e0;
39358 
39359   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39360     v4sigmalapltau2[1] = 0.0e0;
39361 
39362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39363     v4sigmalapltau2[2] = 0.0e0;
39364 
39365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39366     v4sigmalapltau2[3] = 0.0e0;
39367 
39368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39369     v4sigmalapltau2[4] = 0.0e0;
39370 
39371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39372     v4sigmalapltau2[5] = 0.0e0;
39373 
39374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39375     v4sigmalapltau2[6] = 0.0e0;
39376 
39377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39378     v4sigmalapltau2[7] = 0.0e0;
39379 
39380   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39381     v4sigmalapltau2[8] = 0.0e0;
39382 
39383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39384     v4sigmalapltau2[9] = 0.0e0;
39385 
39386   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39387     v4sigmalapltau2[10] = 0.0e0;
39388 
39389   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39390     v4sigmalapltau2[11] = 0.0e0;
39391 
39392   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39393     v4sigmalapltau2[12] = 0.0e0;
39394 
39395   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39396     v4sigmalapltau2[13] = 0.0e0;
39397 
39398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39399     v4sigmalapltau2[14] = 0.0e0;
39400 
39401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39402     v4sigmalapltau2[15] = 0.0e0;
39403 
39404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39405     v4sigmalapltau2[16] = 0.0e0;
39406 
39407   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39408     v4sigmalapltau2[17] = 0.0e0;
39409 
39410   t131515 = t1204 * t1327 * t5634;
39411   t131518 = 0.6e1 * t25540 * t5635;
39412   t131522 = 0.6e1 * t5660 * t25471;
39413   t131524 = t1204 * t3789 * t26070;
39414   t131528 = 0.2e1 * t5097 * t26071;
39415   t131532 = t47575 * t122046;
39416   t131534 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t131532);
39417   t131537 = 0.2e1 * t449 * t363 * t131534;
39418   t131538 = t400 * t26074;
39419   t131542 = 0.6e1 * t81 * t21214 * t5634;
39420   t131546 = 0.6e1 * t117421 * t14483 * t3874 * t5634;
39421   t131549 = 0.6e1 * t81 * t4721 * t25470;
39422   t131550 = t400 * t26078;
39423   t131556 = 0.2e1 * t81 * t1143 * t26070 * t227;
39424   t131560 = 0.2e1 * t81 * t96 * t131534 * t227;
39425   t131561 = t81 * t26077;
39426   t131563 = 0.2e1 * t131561 * t1193;
39427   t131564 = t3788 * t131515 - t131518 - 0.6e1 * t5660 * t25465 - t131522 + t3788 * t131524 / 0.3e1 - t131528 - 0.2e1 * t449 * t1199 * t26070 - t131537 - t131538 * t5146 + t131542 + t131546 + t131549 - t131550 * t5146 / 0.3e1 + t131556 + t131560 + t131563;
39428   t131580 = 0.3e1 * t26088 * t1221;
39429   t131584 = 0.18e2 * t5648 * t5441;
39430   t131586 = 0.9e1 * t5648 * t5444;
39431   t131590 = 0.18e2 * t1336 * t25520;
39432   t131592 = 0.36e2 * t1336 * t25523;
39433   t131596 = 0.18e2 * t1336 * t25528;
39434   t131598 = 0.9e1 * t1336 * t25531;
39435   t131603 = 0.18e2 * t369 * t5622 * t5412;
39436   t131608 = 0.18e2 * t369 * t5419 * t5634;
39437   t131611 = 0.18e2 * t369 * t5423 * t5634;
39438   t131614 = 0.18e2 * t369 * t1329 * t25470;
39439   t131619 = 0.6e1 * t369 * t26077 * t1143;
39440   t131622 = 0.3e1 * t369 * t97 * t131534;
39441   t131623 = t131564 * t370 * params->d + 0.6e1 * t1219 * t26096 + 0.18e2 * t1219 * t26099 + 0.3e1 * t1219 * t26102 + 0.9e1 * t25508 * t1338 + 0.18e2 * t5435 * t5652 + 0.9e1 * t5435 * t5655 + t131580 + t131584 + t131586 + t131590 + t131592 + t131596 + t131598 + t131603 + t131608 + t131611 + t131614 + t131619 + t131622;
39442   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39443     v4sigmatau3[0] = t131564 * t372 * t7 + t1217 * t26105 + t26082 * t1224 + t872 * t131623 + 0.3e1 * t1334 * t25534 + 0.3e1 * t25500 * t1341 + 0.3e1 * t5431 * t5658 + 0.3e1 * t5644 * t5447;
39444 
39445   t131626 = t1204 * t5635 * t1347;
39446   t131631 = 0.2e1 * t82 * t25470 * t1348;
39447   t131635 = 0.2e1 * t26107 * t5461;
39448   t131637 = t1204 * t1327 * t5665;
39449   t131641 = 0.4e1 * t25540 * t5666;
39450   t131645 = 0.4e1 * t5660 * t25561;
39451   t131647 = t1204 * t3789 * t26115;
39452   t131651 = 0.2e1 * t5097 * t26116;
39453   t131656 = t90890 * t122205 * t5630;
39454   t131658 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t131656);
39455   t131661 = 0.2e1 * t449 * t363 * t131658;
39456   t131662 = t3788 * t131626 / 0.3e1 - t131631 - 0.2e1 * t26107 * t5455 - t131635 + 0.2e1 / 0.3e1 * t3788 * t131637 - t131641 - 0.4e1 * t5660 * t25553 - t131645 + t3788 * t131647 / 0.3e1 - t131651 - 0.2e1 * t449 * t1199 * t26115 - t131661;
39457   t131663 = t400 * t26120;
39458   t131669 = 0.2e1 * t81 * t25470 * t1347 * t227;
39459   t131673 = 0.2e1 * t81 * t5634 * t5460 * t227;
39460   t131674 = t81 * t26119;
39461   t131676 = 0.2e1 * t131674 * t1193;
39462   t131677 = t400 * t26124;
39463   t131683 = 0.4e1 * t81 * t5412 * t5665 * t227;
39464   t131687 = 0.4e1 * t81 * t1326 * t25560 * t227;
39465   t131688 = t81 * t26123;
39466   t131690 = 0.4e1 * t131688 * t1193;
39467   t131691 = t400 * t26128;
39468   t131697 = 0.2e1 * t81 * t1143 * t26115 * t227;
39469   t131701 = 0.2e1 * t81 * t96 * t131658 * t227;
39470   t131702 = t81 * t26127;
39471   t131704 = 0.2e1 * t131702 * t1193;
39472   t131705 = -t131663 * t5146 / 0.3e1 + t131669 + t131673 + t131676 - 0.2e1 / 0.3e1 * t131677 * t5146 + t131683 + t131687 + t131690 - t131691 * t5146 / 0.3e1 + t131697 + t131701 + t131704;
39473   t131706 = t131662 + t131705;
39474   t131726 = 0.3e1 * t5648 * t5492;
39475   t131731 = 0.6e1 * t369 * t5622 * t5460;
39476   t131735 = 0.3e1 * t26140 * t1221;
39477   t131738 = 0.3e1 * t369 * t97 * t131658;
39478   t131742 = 0.6e1 * t1357 * t25520;
39479   t131748 = 0.3e1 * t1357 * t25531;
39480   t131752 = 0.6e1 * t1336 * t25633;
39481   t131757 = 0.12e2 * t369 * t25581 * t1326;
39482   t131760 = 0.12e2 * t369 * t25585 * t1326;
39483   t131761 = t131706 * t370 * params->d + 0.6e1 * t1219 * t26154 + 0.3e1 * t1219 * t26163 + 0.6e1 * t25601 * t1338 + 0.3e1 * t25508 * t1359 + 0.6e1 * t5435 * t5689 + 0.6e1 * t5483 * t5652 + 0.3e1 * t5483 * t5655 + t131726 + t131731 + t131735 + t131738 + t131742 + t131748 + t131752 + t131757 + t131760;
39484   t131765 = 0.12e2 * t1336 * t25630;
39485   t131767 = 0.12e2 * t1357 * t25523;
39486   t131770 = 0.12e2 * t369 * t5668 * t5412;
39487   t131774 = 0.6e1 * t1357 * t25528;
39488   t131776 = 0.12e2 * t1336 * t25625;
39489   t131779 = 0.6e1 * t369 * t5467 * t5634;
39490   t131782 = 0.6e1 * t369 * t5471 * t5634;
39491   t131785 = 0.6e1 * t369 * t1350 * t25470;
39492   t131788 = 0.6e1 * t369 * t26127 * t1143;
39493   t131790 = 0.6e1 * t5680 * t5444;
39494   t131792 = 0.6e1 * t5648 * t5489;
39495   t131795 = 0.12e2 * t369 * t5671 * t5412;
39496   t131799 = 0.12e2 * t5680 * t5441;
39497   t131801 = 0.12e2 * t1336 * t25619;
39498   t131803 = 0.12e2 * t1336 * t25622;
39499   t131804 = 0.12e2 * t1219 * t26157 + 0.6e1 * t1219 * t26160 + 0.12e2 * t5435 * t5686 + t131765 + t131767 + t131770 + t131774 + t131776 + t131779 + t131782 + t131785 + t131788 + t131790 + t131792 + t131795 + t131799 + t131801 + t131803;
39500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39501     v4sigmatau3[1] = t7 * t131706 * t372 + t26132 * t1224 + 0.2e1 * t25593 * t1341 + 0.2e1 * t5676 * t5447 + t5479 * t5658 + t1355 * t25534 + t25500 * t1362 + t5644 * t5495 + 0.2e1 * t5431 * t5692 + 0.2e1 * t1334 * t25636 + t1217 * t26166 + t872 * (t131761 + t131804);
39502 
39503   t131808 = t1204 * t1348 * t5665;
39504   t131812 = 0.4e1 * t130038 * t5666;
39505   t131816 = 0.4e1 * t23107 * t25561;
39506   t131818 = t1204 * t1327 * t5706;
39507   t131822 = 0.2e1 * t25540 * t5707;
39508   t131826 = 0.2e1 * t5660 * t25659;
39509   t131828 = t1204 * t3789 * t26175;
39510   t131832 = 0.2e1 * t5097 * t26176;
39511   t131838 = t47575 * t5698 * t122388 * t38;
39512   t131840 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t131838);
39513   t131843 = 0.2e1 * t449 * t363 * t131840;
39514   t131844 = 0.2e1 / 0.3e1 * t3788 * t131808 - t131812 - 0.4e1 * t23107 * t25553 - t131816 + t3788 * t131818 / 0.3e1 - t131822 - 0.2e1 * t5660 * t25653 - t131826 + t3788 * t131828 / 0.3e1 - t131832 - 0.2e1 * t449 * t1199 * t26175 - t131843;
39515   t131845 = t400 * t26179;
39516   t131850 = 0.4e1 * t81 * t21482 * t5665;
39517   t131854 = 0.4e1 * t118032 * t14483 * t3874 * t5665;
39518   t131857 = 0.4e1 * t81 * t4781 * t25560;
39519   t131858 = t400 * t26183;
39520   t131864 = 0.2e1 * t81 * t5412 * t5706 * t227;
39521   t131868 = 0.2e1 * t81 * t1326 * t25658 * t227;
39522   t131869 = t81 * t26182;
39523   t131871 = 0.2e1 * t131869 * t1193;
39524   t131872 = t400 * t26187;
39525   t131878 = 0.2e1 * t81 * t1143 * t26175 * t227;
39526   t131882 = 0.2e1 * t81 * t96 * t131840 * t227;
39527   t131883 = t81 * t26186;
39528   t131885 = 0.2e1 * t131883 * t1193;
39529   t131886 = -0.2e1 / 0.3e1 * t131845 * t5146 + t131850 + t131854 + t131857 - t131858 * t5146 / 0.3e1 + t131864 + t131868 + t131871 - t131872 * t5146 / 0.3e1 + t131878 + t131882 + t131885;
39530   t131887 = t131844 + t131886;
39531   t131908 = 0.3e1 * t369 * t97 * t131840;
39532   t131914 = 0.6e1 * t1336 * t25707;
39533   t131918 = 0.6e1 * t5680 * t5492;
39534   t131922 = 0.3e1 * t26199 * t1221;
39535   t131925 = 0.6e1 * t369 * t5711 * t5412;
39536   t131927 = 0.12e2 * t1336 * t25710;
39537   t131929 = 0.12e2 * t5680 * t5489;
39538   t131932 = 0.6e1 * t369 * t5412 * t5694;
39539   t131938 = 0.12e2 * t1357 * t25630;
39540   t131940 = 0.12e2 * t1357 * t25619;
39541   t131941 = 0.6e1 * t1219 * t26211 + 0.6e1 * t1219 * t26219 + 0.3e1 * t1219 * t26222 + 0.3e1 * t25695 * t1338 + 0.6e1 * t5435 * t5724 + 0.12e2 * t5483 * t5686 + 0.6e1 * t5483 * t5689 + t131908 + t131914 + t131918 + t131922 + t131925 + t131927 + t131929 + t131932 + t131938 + t131940;
39542   t131943 = 0.12e2 * t1357 * t25622;
39543   t131945 = 0.12e2 * t1357 * t25625;
39544   t131949 = 0.6e1 * t1336 * t25715;
39545   t131952 = 0.6e1 * t369 * t26186 * t1143;
39546   t131956 = 0.3e1 * t1336 * t25718;
39547   t131958 = 0.6e1 * t1357 * t25633;
39548   t131962 = 0.3e1 * t5720 * t5444;
39549   t131965 = 0.12e2 * t369 * t5467 * t5665;
39550   t131968 = 0.12e2 * t369 * t5471 * t5665;
39551   t131971 = 0.12e2 * t369 * t1350 * t25560;
39552   t131976 = 0.6e1 * t369 * t25675 * t1326;
39553   t131979 = 0.6e1 * t369 * t25679 * t1326;
39554   t131981 = 0.6e1 * t5720 * t5441;
39555   t131984 = 0.12e2 * t369 * t5668 * t5460;
39556   t131985 = t131887 * t370 * params->d + 0.12e2 * t1219 * t26214 + 0.6e1 * t25601 * t1359 + 0.3e1 * t5435 * t5727 + t131943 + t131945 + t131949 + t131952 + t131956 + t131958 + t131962 + t131965 + t131968 + t131971 + t131976 + t131979 + t131981 + t131984;
39557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39558     v4sigmatau3[2] = t7 * t131887 * t372 + t26191 * t1224 + t25687 * t1341 + t5716 * t5447 + 0.2e1 * t25593 * t1362 + 0.2e1 * t5676 * t5495 + 0.2e1 * t5479 * t5692 + 0.2e1 * t1355 * t25636 + t5431 * t5730 + t1334 * t25721 + t1217 * t26225 + t872 * (t131941 + t131985);
39559 
39560   t131989 = t1204 * t1348 * t5706;
39561   t131992 = 0.6e1 * t130038 * t5707;
39562   t131996 = 0.6e1 * t23107 * t25659;
39563   t131998 = t1204 * t3789 * t26236;
39564   t132002 = 0.2e1 * t5097 * t26237;
39565   t132006 = t47575 * t122590;
39566   t132008 = my_piecewise3(t95, 0, -0.3e1 / 0.4e1 * t132006);
39567   t132011 = 0.2e1 * t449 * t363 * t132008;
39568   t132012 = t400 * t26240;
39569   t132016 = 0.6e1 * t81 * t21482 * t5706;
39570   t132020 = 0.6e1 * t118032 * t14483 * t3874 * t5706;
39571   t132023 = 0.6e1 * t81 * t4781 * t25658;
39572   t132024 = t400 * t26244;
39573   t132030 = 0.2e1 * t81 * t1143 * t26236 * t227;
39574   t132034 = 0.2e1 * t81 * t96 * t132008 * t227;
39575   t132035 = t81 * t26243;
39576   t132037 = 0.2e1 * t132035 * t1193;
39577   t132038 = t3788 * t131989 - t131992 - 0.6e1 * t23107 * t25653 - t131996 + t3788 * t131998 / 0.3e1 - t132002 - 0.2e1 * t449 * t1199 * t26236 - t132011 - t132012 * t5146 + t132016 + t132020 + t132023 - t132024 * t5146 / 0.3e1 + t132030 + t132034 + t132037;
39578   t132054 = 0.3e1 * t26254 * t1221;
39579   t132058 = 0.18e2 * t5720 * t5489;
39580   t132060 = 0.9e1 * t5720 * t5492;
39581   t132064 = 0.18e2 * t1357 * t25707;
39582   t132066 = 0.36e2 * t1357 * t25710;
39583   t132070 = 0.18e2 * t1357 * t25715;
39584   t132072 = 0.9e1 * t1357 * t25718;
39585   t132077 = 0.18e2 * t369 * t5694 * t5460;
39586   t132082 = 0.18e2 * t369 * t5467 * t5706;
39587   t132085 = 0.18e2 * t369 * t5471 * t5706;
39588   t132088 = 0.18e2 * t369 * t1350 * t25658;
39589   t132093 = 0.6e1 * t369 * t26243 * t1143;
39590   t132096 = 0.3e1 * t369 * t97 * t132008;
39591   t132097 = t132038 * t370 * params->d + 0.6e1 * t1219 * t26262 + 0.18e2 * t1219 * t26265 + 0.3e1 * t1219 * t26268 + 0.9e1 * t25695 * t1359 + 0.18e2 * t5483 * t5724 + 0.9e1 * t5483 * t5727 + t132054 + t132058 + t132060 + t132064 + t132066 + t132070 + t132072 + t132077 + t132082 + t132085 + t132088 + t132093 + t132096;
39592   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39593     v4sigmatau3[3] = t132038 * t372 * t7 + t1217 * t26271 + t26248 * t1224 + t872 * t132097 + 0.3e1 * t1355 * t25721 + 0.3e1 * t25687 * t1362 + 0.3e1 * t5479 * t5730 + 0.3e1 * t5716 * t5495;
39594 
39595   t132115 = my_piecewise3(t95, 0, -0.3e1 / 0.2e1 * t131532);
39596   t132143 = -0.2e1 * t4026 * t131515 - 0.6e1 * t25800 * t5635 - 0.6e1 * t5660 * t25733 - 0.6e1 * t5660 * t25738 - 0.2e1 / 0.3e1 * t4026 * t131524 - 0.2e1 * t5499 * t26071 - 0.2e1 * t449 * t1252 * t26070 - 0.2e1 * t449 * t363 * t132115 + 0.2e1 * t131538 * t5510 + 0.6e1 * t81 * t21643 * t5634 + 0.6e1 * t117421 * t14483 * t4049 * t5634 + 0.6e1 * t81 * t4721 * t25737 + 0.2e1 / 0.3e1 * t131550 * t5510 + 0.2e1 * t81 * t1231 * t26070 * t227 + 0.2e1 * t81 * t96 * t132115 * t227 + 0.2e1 * t131561 * t1246;
39597   t132202 = params->d * t132143 * t370 + 0.3e1 * t26088 * t1269 + 0.9e1 * t25770 * t1338 + 0.18e2 * t5648 * t5534 + 0.9e1 * t5648 * t5537 + 0.18e2 * t5528 * t5652 + 0.18e2 * t1336 * t25782 + 0.36e2 * t1336 * t25785 + 0.9e1 * t5528 * t5655 + 0.18e2 * t1336 * t25790 + 0.9e1 * t1336 * t25793 + 0.6e1 * t1267 * t26096 + 0.18e2 * t369 * t5622 * t5506 + 0.18e2 * t1267 * t26099 + 0.18e2 * t369 * t5513 * t5634 + 0.18e2 * t369 * t5517 * t5634 + 0.18e2 * t369 * t1329 * t25737 + 0.3e1 * t1267 * t26102 + 0.6e1 * t369 * t26077 * t1231 + 0.3e1 * t369 * t97 * t132115;
39598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39599     v4sigmatau3[4] = t132143 * t372 * t7 + t1265 * t26105 + t26082 * t1272 + t872 * t132202 + 0.3e1 * t1334 * t25796 + 0.3e1 * t25762 * t1341 + 0.3e1 * t5524 * t5658 + 0.3e1 * t5644 * t5540;
39600 
39601   t132229 = my_piecewise3(t95, 0, -0.3e1 / 0.2e1 * t131656);
39602   t132233 = -0.2e1 / 0.3e1 * t4026 * t131626 - 0.2e1 * t82 * t25737 * t1348 - 0.2e1 * t26107 * t5546 - 0.2e1 * t26107 * t5551 - 0.4e1 / 0.3e1 * t4026 * t131637 - 0.4e1 * t25800 * t5666 - 0.4e1 * t5660 * t25811 - 0.4e1 * t5660 * t25816 - 0.2e1 / 0.3e1 * t4026 * t131647 - 0.2e1 * t5499 * t26116 - 0.2e1 * t449 * t1252 * t26115 - 0.2e1 * t449 * t363 * t132229;
39603   t132270 = 0.2e1 / 0.3e1 * t131663 * t5510 + 0.2e1 * t81 * t25737 * t1347 * t227 + 0.2e1 * t81 * t5634 * t5550 * t227 + 0.2e1 * t131674 * t1246 + 0.4e1 / 0.3e1 * t131677 * t5510 + 0.4e1 * t81 * t5506 * t5665 * t227 + 0.4e1 * t81 * t1326 * t25815 * t227 + 0.4e1 * t131688 * t1246 + 0.2e1 / 0.3e1 * t131691 * t5510 + 0.2e1 * t81 * t1231 * t26115 * t227 + 0.2e1 * t81 * t96 * t132229 * t227 + 0.2e1 * t131702 * t1246;
39604   t132271 = t132233 + t132270;
39605   t132326 = t132271 * t370 * params->d + 0.12e2 * t1326 * t25833 * t369 + 0.12e2 * t369 * t5506 * t5668 + 0.6e1 * t369 * t5550 * t5622 + 0.6e1 * t369 * t5556 * t5634 + 0.6e1 * t1267 * t26154 + 0.12e2 * t1267 * t26157 + 0.3e1 * t26140 * t1269 + 0.12e2 * t1336 * t25873 + 0.12e2 * t1336 * t25876 + 0.12e2 * t1336 * t25881 + 0.6e1 * t1336 * t25884 + 0.12e2 * t1357 * t25785 + 0.3e1 * t1357 * t25793 + 0.3e1 * t25770 * t1359 + 0.6e1 * t5528 * t5689 + 0.6e1 * t5571 * t5652;
39606   t132369 = 0.12e2 * t5680 * t5534 + 0.6e1 * t1357 * t25790 + 0.12e2 * t1336 * t25870 + 0.12e2 * t5528 * t5686 + 0.6e1 * t25852 * t1338 + 0.6e1 * t5680 * t5537 + 0.6e1 * t369 * t26127 * t1231 + 0.6e1 * t369 * t5560 * t5634 + 0.6e1 * t369 * t1350 * t25737 + 0.3e1 * t1267 * t26163 + 0.3e1 * t369 * t97 * t132229 + 0.3e1 * t5648 * t5580 + 0.6e1 * t5648 * t5577 + 0.6e1 * t1357 * t25782 + 0.3e1 * t5571 * t5655 + 0.12e2 * t369 * t25837 * t1326 + 0.12e2 * t369 * t5671 * t5506 + 0.6e1 * t1267 * t26160;
39607   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39608     v4sigmatau3[5] = t7 * t132271 * t372 + t26132 * t1272 + 0.2e1 * t25844 * t1341 + 0.2e1 * t5676 * t5540 + t5567 * t5658 + t1355 * t25796 + t25762 * t1362 + t5644 * t5583 + 0.2e1 * t5524 * t5692 + 0.2e1 * t1334 * t25887 + t1265 * t26166 + t872 * (t132326 + t132369);
39609 
39610   t132374 = t82 * t5550;
39611   t132397 = my_piecewise3(t95, 0, -0.3e1 / 0.2e1 * t131838);
39612   t132401 = -0.4e1 / 0.3e1 * t4026 * t131808 - 0.4e1 * t132374 * t5666 - 0.4e1 * t23107 * t25811 - 0.4e1 * t23107 * t25816 - 0.2e1 / 0.3e1 * t4026 * t131818 - 0.2e1 * t25800 * t5707 - 0.2e1 * t5660 * t25899 - 0.2e1 * t5660 * t25904 - 0.2e1 / 0.3e1 * t4026 * t131828 - 0.2e1 * t5499 * t26176 - 0.2e1 * t449 * t1252 * t26175 - 0.2e1 * t449 * t363 * t132397;
39613   t132438 = 0.4e1 / 0.3e1 * t131845 * t5510 + 0.4e1 * t81 * t21857 * t5665 + 0.4e1 * t118032 * t14483 * t4049 * t5665 + 0.4e1 * t81 * t4781 * t25815 + 0.2e1 / 0.3e1 * t131858 * t5510 + 0.2e1 * t81 * t5506 * t5706 * t227 + 0.2e1 * t81 * t1326 * t25903 * t227 + 0.2e1 * t131869 * t1246 + 0.2e1 / 0.3e1 * t131872 * t5510 + 0.2e1 * t81 * t1231 * t26175 * t227 + 0.2e1 * t81 * t96 * t132397 * t227 + 0.2e1 * t131883 * t1246;
39614   t132439 = t132401 + t132438;
39615   t132493 = 0.3e1 * t5720 * t5537 + 0.3e1 * t5528 * t5727 + 0.6e1 * t1336 * t25947 + 0.6e1 * t1267 * t26211 + 0.6e1 * t369 * t5506 * t5694 + 0.6e1 * t5528 * t5724 + 0.6e1 * t5680 * t5580 + 0.3e1 * t369 * t97 * t132397 + 0.3e1 * t1336 * t25958 + 0.6e1 * t25852 * t1359 + 0.3e1 * t26199 * t1269 + 0.3e1 * t1267 * t26222 + 0.3e1 * t25935 * t1338 + params->d * t132439 * t370 + 0.12e2 * t5680 * t5577 + 0.12e2 * t1357 * t25876 + 0.12e2 * t369 * t5668 * t5550;
39616   t132537 = 0.6e1 * t1231 * t26186 * t369 + 0.6e1 * t1326 * t25916 * t369 + 0.6e1 * t1326 * t25920 * t369 + 0.12e2 * t1350 * t25815 * t369 + 0.6e1 * t369 * t5506 * t5711 + 0.12e2 * t369 * t5556 * t5665 + 0.12e2 * t369 * t5560 * t5665 + 0.12e2 * t1267 * t26214 + 0.6e1 * t1267 * t26219 + 0.12e2 * t1336 * t25950 + 0.6e1 * t1336 * t25955 + 0.12e2 * t1357 * t25870 + 0.12e2 * t1357 * t25873 + 0.12e2 * t1357 * t25881 + 0.6e1 * t1357 * t25884 + 0.6e1 * t5720 * t5534 + 0.12e2 * t5571 * t5686 + 0.6e1 * t5571 * t5689;
39617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39618     v4sigmatau3[6] = t7 * t132439 * t372 + t26191 * t1272 + t25927 * t1341 + t5716 * t5540 + 0.2e1 * t25844 * t1362 + 0.2e1 * t5676 * t5583 + 0.2e1 * t5567 * t5692 + 0.2e1 * t1355 * t25887 + t5524 * t5730 + t1334 * t25961 + t1265 * t26225 + t872 * (t132493 + t132537);
39619 
39620   t132556 = my_piecewise3(t95, 0, -0.3e1 / 0.2e1 * t132006);
39621   t132584 = -0.2e1 * t4026 * t131989 - 0.6e1 * t132374 * t5707 - 0.6e1 * t23107 * t25899 - 0.6e1 * t23107 * t25904 - 0.2e1 / 0.3e1 * t4026 * t131998 - 0.2e1 * t5499 * t26237 - 0.2e1 * t449 * t1252 * t26236 - 0.2e1 * t449 * t363 * t132556 + 0.2e1 * t132012 * t5510 + 0.6e1 * t81 * t21857 * t5706 + 0.6e1 * t118032 * t14483 * t4049 * t5706 + 0.6e1 * t81 * t4781 * t25903 + 0.2e1 / 0.3e1 * t132024 * t5510 + 0.2e1 * t81 * t1231 * t26236 * t227 + 0.2e1 * t81 * t96 * t132556 * t227 + 0.2e1 * t132035 * t1246;
39622   t132643 = params->d * t132584 * t370 + 0.3e1 * t26254 * t1269 + 0.9e1 * t25935 * t1359 + 0.18e2 * t5720 * t5577 + 0.9e1 * t5720 * t5580 + 0.18e2 * t5571 * t5724 + 0.18e2 * t1357 * t25947 + 0.36e2 * t1357 * t25950 + 0.9e1 * t5571 * t5727 + 0.18e2 * t1357 * t25955 + 0.9e1 * t1357 * t25958 + 0.6e1 * t1267 * t26262 + 0.18e2 * t369 * t5694 * t5550 + 0.18e2 * t1267 * t26265 + 0.18e2 * t369 * t5556 * t5706 + 0.18e2 * t369 * t5560 * t5706 + 0.18e2 * t369 * t1350 * t25903 + 0.3e1 * t1267 * t26268 + 0.6e1 * t369 * t26243 * t1231 + 0.3e1 * t369 * t97 * t132556;
39623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39624     v4sigmatau3[7] = t132584 * t372 * t7 + t1265 * t26271 + t26248 * t1272 + t872 * t132643 + 0.3e1 * t1355 * t25961 + 0.3e1 * t25927 * t1362 + 0.3e1 * t5567 * t5730 + 0.3e1 * t5716 * t5583;
39625 
39626   t132656 = t4173 * t131515 - t131518 - 0.6e1 * t5660 * t25969 - t131522 + t4173 * t131524 / 0.3e1 - t131528 - 0.2e1 * t449 * t1307 * t26070 - t131537 - t131538 * t5590 + t131542 + t131546 + t131549 - t131550 * t5590 / 0.3e1 + t131556 + t131560 + t131563;
39627   t132683 = t132656 * t370 * params->d + 0.6e1 * t1318 * t26096 + 0.18e2 * t1318 * t26099 + 0.3e1 * t1318 * t26102 + 0.9e1 * t25985 * t1338 + 0.18e2 * t5598 * t5652 + 0.9e1 * t5598 * t5655 + t131580 + t131584 + t131586 + t131590 + t131592 + t131596 + t131598 + t131603 + t131608 + t131611 + t131614 + t131619 + t131622;
39628   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39629     v4sigmatau3[8] = t132656 * t372 * t7 + t1316 * t26105 + t26082 * t1320 + t872 * t132683 + 0.3e1 * t1334 * t25993 + 0.3e1 * t25977 * t1341 + 0.3e1 * t5594 * t5658 + 0.3e1 * t5644 * t5602;
39630 
39631   t132698 = t4173 * t131626 / 0.3e1 - t131631 - 0.2e1 * t26107 * t5606 - t131635 + 0.2e1 / 0.3e1 * t4173 * t131637 - t131641 - 0.4e1 * t5660 * t26001 - t131645 + t4173 * t131647 / 0.3e1 - t131651 - 0.2e1 * t449 * t1307 * t26115 - t131661;
39632   t132705 = -t131663 * t5590 / 0.3e1 + t131669 + t131673 + t131676 - 0.2e1 / 0.3e1 * t131677 * t5590 + t131683 + t131687 + t131690 - t131691 * t5590 / 0.3e1 + t131697 + t131701 + t131704;
39633   t132706 = t132698 + t132705;
39634   t132737 = t132706 * t370 * params->d + 0.6e1 * t1318 * t26154 + 0.12e2 * t1318 * t26157 + 0.6e1 * t1318 * t26160 + 0.3e1 * t25985 * t1359 + 0.6e1 * t5598 * t5689 + 0.6e1 * t5616 * t5652 + t131726 + t131731 + t131735 + t131738 + t131742 + t131748 + t131752 + t131757 + t131760 + t131765;
39635   t132746 = 0.3e1 * t1318 * t26163 + 0.6e1 * t26017 * t1338 + 0.12e2 * t5598 * t5686 + 0.3e1 * t5616 * t5655 + t131767 + t131770 + t131774 + t131776 + t131779 + t131782 + t131785 + t131788 + t131790 + t131792 + t131795 + t131799 + t131801 + t131803;
39636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39637     v4sigmatau3[9] = t7 * t132706 * t372 + t26132 * t1320 + 0.2e1 * t26009 * t1341 + 0.2e1 * t5676 * t5602 + t5612 * t5658 + t1355 * t25993 + t25977 * t1362 + t5644 * t5620 + 0.2e1 * t5594 * t5692 + 0.2e1 * t1334 * t26027 + t1316 * t26166 + t872 * (t132737 + t132746);
39638 
39639   t132762 = 0.2e1 / 0.3e1 * t4173 * t131808 - t131812 - 0.4e1 * t23107 * t26001 - t131816 + t4173 * t131818 / 0.3e1 - t131822 - 0.2e1 * t5660 * t26035 - t131826 + t4173 * t131828 / 0.3e1 - t131832 - 0.2e1 * t449 * t1307 * t26175 - t131843;
39640   t132769 = -0.2e1 / 0.3e1 * t131845 * t5590 + t131850 + t131854 + t131857 - t131858 * t5590 / 0.3e1 + t131864 + t131868 + t131871 - t131872 * t5590 / 0.3e1 + t131878 + t131882 + t131885;
39641   t132770 = t132762 + t132769;
39642   t132793 = 0.6e1 * t1318 * t26211 + 0.12e2 * t1318 * t26214 + 0.12e2 * t5616 * t5686 + t131908 + t131914 + t131918 + t131922 + t131925 + t131927 + t131929 + t131932 + t131938 + t131940 + t131943 + t131945 + t131949 + t131952;
39643   t132810 = t132770 * t370 * params->d + 0.6e1 * t1318 * t26219 + 0.3e1 * t1318 * t26222 + 0.3e1 * t26051 * t1338 + 0.6e1 * t26017 * t1359 + 0.6e1 * t5598 * t5724 + 0.3e1 * t5598 * t5727 + 0.6e1 * t5616 * t5689 + t131956 + t131958 + t131962 + t131965 + t131968 + t131971 + t131976 + t131979 + t131981 + t131984;
39644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39645     v4sigmatau3[10] = t7 * t132770 * t372 + t26191 * t1320 + t26043 * t1341 + t5716 * t5602 + 0.2e1 * t26009 * t1362 + 0.2e1 * t5676 * t5620 + 0.2e1 * t5612 * t5692 + 0.2e1 * t1355 * t26027 + t5594 * t5730 + t1334 * t26059 + t1316 * t26225 + t872 * (t132793 + t132810);
39646 
39647   t132824 = t4173 * t131989 - t131992 - 0.6e1 * t23107 * t26035 - t131996 + t4173 * t131998 / 0.3e1 - t132002 - 0.2e1 * t449 * t1307 * t26236 - t132011 - t132012 * t5590 + t132016 + t132020 + t132023 - t132024 * t5590 / 0.3e1 + t132030 + t132034 + t132037;
39648   t132851 = t132824 * t370 * params->d + 0.6e1 * t1318 * t26262 + 0.18e2 * t1318 * t26265 + 0.3e1 * t1318 * t26268 + 0.9e1 * t26051 * t1359 + 0.18e2 * t5616 * t5724 + 0.9e1 * t5616 * t5727 + t132054 + t132058 + t132060 + t132064 + t132066 + t132070 + t132072 + t132077 + t132082 + t132085 + t132088 + t132093 + t132096;
39649   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39650     v4sigmatau3[11] = t132824 * t372 * t7 + t1316 * t26271 + t26248 * t1320 + t872 * t132851 + 0.3e1 * t1355 * t26059 + 0.3e1 * t26043 * t1362 + 0.3e1 * t5612 * t5730 + 0.3e1 * t5716 * t5620;
39651 
39652   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39653     v4lapl4[0] = 0.0e0;
39654 
39655   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39656     v4lapl4[1] = 0.0e0;
39657 
39658   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39659     v4lapl4[2] = 0.0e0;
39660 
39661   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39662     v4lapl4[3] = 0.0e0;
39663 
39664   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39665     v4lapl4[4] = 0.0e0;
39666 
39667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39668     v4lapl3tau[0] = 0.0e0;
39669 
39670   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39671     v4lapl3tau[1] = 0.0e0;
39672 
39673   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39674     v4lapl3tau[2] = 0.0e0;
39675 
39676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39677     v4lapl3tau[3] = 0.0e0;
39678 
39679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39680     v4lapl3tau[4] = 0.0e0;
39681 
39682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39683     v4lapl3tau[5] = 0.0e0;
39684 
39685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39686     v4lapl3tau[6] = 0.0e0;
39687 
39688   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39689     v4lapl3tau[7] = 0.0e0;
39690 
39691   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39692     v4lapl2tau2[0] = 0.0e0;
39693 
39694   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39695     v4lapl2tau2[1] = 0.0e0;
39696 
39697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39698     v4lapl2tau2[2] = 0.0e0;
39699 
39700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39701     v4lapl2tau2[3] = 0.0e0;
39702 
39703   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39704     v4lapl2tau2[4] = 0.0e0;
39705 
39706   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39707     v4lapl2tau2[5] = 0.0e0;
39708 
39709   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39710     v4lapl2tau2[6] = 0.0e0;
39711 
39712   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39713     v4lapl2tau2[7] = 0.0e0;
39714 
39715   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39716     v4lapl2tau2[8] = 0.0e0;
39717 
39718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39719     v4lapltau3[0] = 0.0e0;
39720 
39721   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39722     v4lapltau3[1] = 0.0e0;
39723 
39724   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39725     v4lapltau3[2] = 0.0e0;
39726 
39727   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39728     v4lapltau3[3] = 0.0e0;
39729 
39730   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39731     v4lapltau3[4] = 0.0e0;
39732 
39733   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39734     v4lapltau3[5] = 0.0e0;
39735 
39736   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39737     v4lapltau3[6] = 0.0e0;
39738 
39739   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
39740     v4lapltau3[7] = 0.0e0;
39741 
39742   t132853 = t5634 * t5634;
39743   t132865 = my_piecewise3(t95, 0, 0.3e1 * t58 * t26299 * t26458 * t37 * t26065 * t5628);
39744   t132879 = 0.2e1 * t132865 * t227 * t81 * t96 + 0.6e1 * t132853 * t227 * t81 - 0.6e1 * t132853 * t363 * t82 - 0.2e1 * t132865 * t363 * t449 + 0.8e1 * t26070 * t4721 * t81 - 0.8e1 * t5660 * t26071;
39745   t132914 = 0.18e2 * t132853 * t369 * t96 + 0.3e1 * t132865 * t369 * t97 + t132879 * t370 * params->d + 0.24e2 * t1329 * t26070 * t369 + 0.36e2 * t369 * t5622 * t5634 + 0.24e2 * t1336 * t26096 + 0.72e2 * t1336 * t26099 + 0.12e2 * t1336 * t26102 + 0.12e2 * t26088 * t1338 + 0.36e2 * t5648 * t5652 + 0.18e2 * t5648 * t5655;
39746   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39747     v4tau4[0] = t132879 * t372 * t7 + t872 * t132914 + 0.4e1 * t1334 * t26105 + 0.4e1 * t26082 * t1341 + 0.6e1 * t5644 * t5658;
39748 
39749   t132926 = my_piecewise3(t95, 0, 0.3e1 * t64949 * t4766 * t122046);
39750   t132946 = 0.6e1 * t1326 * t227 * t26115 * t81 + 0.2e1 * t132926 * t227 * t81 * t96 + 0.2e1 * t1347 * t227 * t26070 * t81 + 0.6e1 * t227 * t5634 * t5665 * t81 - 0.2e1 * t132926 * t363 * t449 - 0.2e1 * t1348 * t26070 * t82 - 0.6e1 * t26107 * t5666 - 0.6e1 * t5660 * t26116;
39751   t133005 = params->d * t132946 * t370 + 0.18e2 * t5680 * t5652 + 0.18e2 * t1357 * t26099 + 0.18e2 * t369 * t5622 * t5665 + 0.3e1 * t369 * t97 * t132926 + 0.18e2 * t5648 * t5686 + 0.18e2 * t1336 * t26154 + 0.36e2 * t1336 * t26157 + 0.18e2 * t1336 * t26160 + 0.18e2 * t369 * t5668 * t5634 + 0.18e2 * t369 * t26127 * t1326 + 0.18e2 * t369 * t5671 * t5634 + 0.6e1 * t369 * t1350 * t26070 + 0.9e1 * t26140 * t1338 + 0.9e1 * t5680 * t5655 + 0.6e1 * t1357 * t26096 + 0.3e1 * t1357 * t26102 + 0.3e1 * t26088 * t1359 + 0.9e1 * t5648 * t5689 + 0.9e1 * t1336 * t26163;
39752   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39753     v4tau4[1] = t132946 * t372 * t7 + t872 * t133005 + 0.3e1 * t1334 * t26166 + 0.3e1 * t26132 * t1341 + t1355 * t26105 + t26082 * t1362 + 0.3e1 * t5644 * t5692 + 0.3e1 * t5676 * t5658;
39754 
39755   t133007 = t5665 * t5665;
39756   t133020 = my_piecewise3(t95, 0, 0.3e1 * t64949 * t23121 * t22888);
39757   t133042 = 0.4e1 * t1326 * t227 * t26175 * t81 + 0.2e1 * t133020 * t227 * t81 * t96 + 0.2e1 * t227 * t5634 * t5706 * t81 + 0.4e1 * t133007 * t227 * t81 - 0.4e1 * t133007 * t363 * t82 - 0.2e1 * t133020 * t363 * t449 + 0.4e1 * t26115 * t4781 * t81 - 0.4e1 * t23107 * t26116 - 0.2e1 * t26107 * t5707 - 0.4e1 * t5660 * t26176;
39758   t133086 = 0.12e2 * t133007 * t369 * t96 + 0.3e1 * t133020 * t369 * t97 + 0.12e2 * t1350 * t26115 * t369 + 0.6e1 * t369 * t5622 * t5706 + 0.24e2 * t369 * t5665 * t5668 + 0.12e2 * t1336 * t26219 + 0.12e2 * t1357 * t26154 + 0.6e1 * t1357 * t26163 + 0.6e1 * t26140 * t1359 + 0.6e1 * t5720 * t5652 + 0.24e2 * t5680 * t5686 + 0.12e2 * t5680 * t5689;
39759   t133116 = 0.12e2 * t1326 * t26186 * t369 + t133042 * t370 * params->d + 0.6e1 * t369 * t5634 * t5694 + 0.6e1 * t369 * t5634 * t5711 + 0.12e2 * t1336 * t26211 + 0.24e2 * t1336 * t26214 + 0.6e1 * t1336 * t26222 + 0.6e1 * t26199 * t1338 + 0.24e2 * t1357 * t26157 + 0.12e2 * t1357 * t26160 + 0.6e1 * t5648 * t5724 + 0.3e1 * t5648 * t5727 + 0.3e1 * t5720 * t5655;
39760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39761     v4tau4[2] = t7 * t133042 * t372 + 0.2e1 * t26191 * t1341 + t5716 * t5658 + 0.2e1 * t26132 * t1362 + 0.4e1 * t5676 * t5692 + 0.2e1 * t1355 * t26166 + t5644 * t5730 + 0.2e1 * t1334 * t26225 + t872 * (t133086 + t133116);
39762 
39763   t133129 = my_piecewise3(t95, 0, 0.3e1 * t64949 * t122590 * t4700);
39764   t133147 = 0.2e1 * t1326 * t227 * t26236 * t81 + 0.2e1 * t133129 * t227 * t81 * t96 - 0.2e1 * t133129 * t363 * t449 + 0.6e1 * t23039 * t5706 * t81 + 0.6e1 * t26175 * t4781 * t81 - 0.6e1 * t5665 * t5707 * t82 - 0.6e1 * t23107 * t26176 - 0.2e1 * t5660 * t26237;
39765   t133206 = params->d * t133147 * t370 + 0.3e1 * t26254 * t1338 + 0.9e1 * t26199 * t1359 + 0.18e2 * t5720 * t5686 + 0.9e1 * t5720 * t5689 + 0.18e2 * t5680 * t5724 + 0.18e2 * t1357 * t26211 + 0.36e2 * t1357 * t26214 + 0.9e1 * t5680 * t5727 + 0.18e2 * t1357 * t26219 + 0.9e1 * t1357 * t26222 + 0.6e1 * t1336 * t26262 + 0.18e2 * t369 * t5694 * t5665 + 0.18e2 * t1336 * t26265 + 0.18e2 * t369 * t5668 * t5706 + 0.18e2 * t369 * t5671 * t5706 + 0.18e2 * t369 * t1350 * t26175 + 0.3e1 * t1336 * t26268 + 0.6e1 * t369 * t26243 * t1326 + 0.3e1 * t369 * t97 * t133129;
39766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39767     v4tau4[3] = t133147 * t372 * t7 + t872 * t133206 + t1334 * t26271 + t26248 * t1341 + 0.3e1 * t1355 * t26225 + 0.3e1 * t26191 * t1362 + 0.3e1 * t5676 * t5730 + 0.3e1 * t5716 * t5692;
39768 
39769   t133208 = t5706 * t5706;
39770   t133220 = my_piecewise3(t95, 0, 0.3e1 * t58 * t26299 * t45310 * t49 * t26231 * t5700);
39771   t133234 = 0.2e1 * t133220 * t227 * t81 * t96 + 0.6e1 * t133208 * t227 * t81 - 0.6e1 * t133208 * t363 * t82 - 0.2e1 * t133220 * t363 * t449 + 0.8e1 * t26236 * t4781 * t81 - 0.8e1 * t23107 * t26237;
39772   t133269 = 0.18e2 * t133208 * t369 * t96 + 0.3e1 * t133220 * t369 * t97 + t133234 * t370 * params->d + 0.24e2 * t1350 * t26236 * t369 + 0.36e2 * t369 * t5694 * t5706 + 0.24e2 * t1357 * t26262 + 0.72e2 * t1357 * t26265 + 0.12e2 * t1357 * t26268 + 0.12e2 * t26254 * t1359 + 0.36e2 * t5720 * t5724 + 0.18e2 * t5720 * t5727;
39773   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
39774     v4tau4[4] = t133234 * t372 * t7 + t872 * t133269 + 0.4e1 * t1355 * t26271 + 0.4e1 * t26248 * t1362 + 0.6e1 * t5716 * t5730;
39775 
39776 #ifndef XC_DONT_COMPILE_MXC
39777 
39778   if(order < 5) return;
39779 
39780 
39781 #endif
39782 
39783 #endif
39784 
39785 #endif
39786 
39787 #endif
39788 
39789 #endif
39790 
39791 
39792 }
39793 
39794